ALpMontana
КЯaL´da TaNıMaM КuяaL´da
Siz kucuk bir yildizi kovaliyorsunuz.Onu yakalamalisiniz.Her yakalayisinizda +100 puan alacaksiniz.bu oyunu oklarla oynuyorsunuz
Uses crt;
Var
fr,scor,o,z,ux,uy,x,y:Integer;
ch,tus:Char;
a:Boolean;
az:array[1..5] of boolean;
Procedure yon(ch:char);
Begin
fr:=0;
case ch of
#77:If x<80 then inc(x);
#80:If y<25 then inc
;
#75:if x>1 then dec(x);
#72:If y>1 then dec;
end;
gotoxy(40,13);write('Sizin koordinantlariniz:',x,' ',y);
gotoxy(40,14);write('Ulduzun koordinantlari :',ux,' ',uy);
gotoxy(40,15);write('Scor :',scor);
gotoxy(x,y);
inc(fr);
End;
Uses crt;
Var
fr,scor,o,z,ux,uy,x,y:Integer;
ch,tus:Char;
a:Boolean;
az:array[1..5] of boolean;
Procedure yon(ch:char);
Begin
fr:=0;
case ch of
#77:If x<80 then inc(x);
#80:If y<25 then inc
;#75:if x>1 then dec(x);
#72:If y>1 then dec
;end;
gotoxy(40,13);write('Sizin koordinantlariniz:',x,' ',y);
gotoxy(40,14);write('Ulduzun koordinantlari :',ux,' ',uy);
gotoxy(40,15);write('Scor :',scor);
gotoxy(x,y);
inc(fr);
End;