Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim?

  • 2 odgovora
  • 4.161 pregleda

Najnovija ↓

Kako usporit ovo kretanje, ovo ide ko' ludo jedva ga vidim? 28.05.2005. u 15:22 · pre 260 meseci
izmenjeno 1 put, poslednji put secret 28.05.2005. u 19:07
  1. secret28.05.2005. u 19:07zapis iz teksta poruke
#1
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
Re: kretanje??????????????? 28.05.2005. u 17:11 · pre 260 meseci #3
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)!!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme