[ Passwd @ 28.05.2005. 14:22 ] @
Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim??

Code:

program kretanje;
uses crt;
var slx,sly:integer;
begin
repeat
randomize;
slx:=random(80);
sly:=random(80);
clrscr;
gotoxy(slx,sly);
write('***');
until slx=1230;
readln;
end


[Ovu poruku je menjao secret dana 28.05.2005. u 19:07 GMT+1]
[ Bojan Kopanja @ 28.05.2005. 15:14 ] @
Pa ubaci delay u repeat until petlju!
[ Passwd @ 28.05.2005. 16:11 ] @
Cudno mi je da se nisi nimalo nasmijao!! ;)

Ovako, ovaj kod predstavlja nas (covjeka koji igra) i on se moze kretati sa:
w-gore
s-dolje
a-lijevo
d-desno

Code:

program nista;
uses crt;
var x,y:integer;
    kretanje:string;
begin
clrscr;
x:=20;
y:=20;
repeat
textcolor(yellow);
kretanje:=readkey;
if kretanje='w' then begin
                     clrscr;
                     y:=y-2;
                     gotoxy(x,y);
                     write('*');
                     end;

if kretanje='s' then begin
                     clrscr;
                     y:=y+2;
                     gotoxy(x,y);
                     write('*');
                     end;

if kretanje='a' then begin
                     clrscr;
                     x:=x-2;
                     gotoxy(x,y);
                     write('*');
                     end;

if kretanje='d' then begin
                     clrscr;
                     x:=x+2;
                     gotoxy(x,y);
                     write('*');
                     end;


until kretanje='b';
readln;
end.



A ovaj kod predstavlja neku muhu koja leti po zraku:

Code:

program sam;
uses crt;
var slx,sly,brojac:integer;
begin
randomize;
brojac:=0;
repeat
brojac:=brojac+1;
slx:=random(50);
sly:=random(50);
clrscr;
gotoxy(slx,sly);
write('+');
delay(400);
until brojac=20;
readln;
end.


E sada, treba ta dva koda ujediniti tako da se muha krece , a mi se micemo kako nas ona ne bi pogodila (izbjegavamo ju)....i onda ako nas pogodi oduzme nam se zivot....dobro, to cu poslije.

Znaci sada treba ova dva koda ujediniti tako da rade u isto vrijeme (ja ih spojim pa jedan se izvrsi prije, a drugi poslije njega-znaci obadva u isto vrijeme je cilj)!!