вот моя первая слабая игра на mobile pascal , здесь практически ничего нет, просто курсор и его можно передвигать

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. var
2. px,py,sx,sy,w :integer;
3. s,zem,ufo :image;
4. g :string;
5. begin
6. px:=50;
7. py:=50;
8. sx:=100;
9. sy:=100;
10. s:=loadimage('/s.png');
11. zem:=loadimage('/g.png');
12. ufo:=loadimage('/a.png');
13. repeat
14. w:=0;
15. if getkeypressed=ke_key2 then begin
16. py:=py-4;
17. w:=2;
18. End;
19. if getkeypressed=ke_key8 then begin
20. py:=py+4;
21. w:=8;
22. End;
23. if getkeypressed=ke_key4 then begin
24. px:=px-4;
25. w:=4;
26. End;
27. if getkeypressed=ke_key6 then begin
28. px:=px+4;
29. w:=6;
30. End;
31. if getkeypressed=ke_key1 then g:='pysto';
32. if px>208 then px:=207;
33. if px<0 then px:=1;
34. if py>288 then py:=287;
35. if py<0 then py:=1;
36. if (w=2) and (px+32>sx) and (px<sx+32) and (py+32>sy) and (py<sy+32) then py:=py+1;
37. if (w=8) and (px+32>sx) and (px<sx+32) and (py+32>sy) and (py<sy+32) then py:=py-1;
38. if (w=4) and (px+32>sx) and (px<sx+32) and (py+32>sy) and (py<sy+32) then px:=px+1;
39. if (w=6) and (px+32>sx) and (px<sx+32) and (py+32>sy) and (py<sy+32) then px:=px-1;
40. drawimage(zem,0,0);
41. drawimage(ufo,px,py);
42. drawimage(s,sx,sy);
43. drawtext(g,50,100);
44. repaint;
45. until getkeypressed=ke_key0;
46. end.

ошибка . Как так?

gtasase (11.05.2013/18:57)
[spoiler]varpx,py,sx,sy,w :integer;s,zem,ufo :image;g :string;beginpx:=50;py:=50;sx:=100;sy:=100;s:=loadimage('/s.png');zem:=loadimage('/g.png');ufo:=loadimage('/a.png');repeatw:=0;if getkeypressed=keПосмотри на переменную w:=0. Перенеси ее выше команды repaet.

где здесь ошибка, комплирует без ошибок,
а игра не запускается хотя все картинки я добавил точно с таким же названием
program game;
var
   Cosmos:image;
   NLO:image;
   X,Y:integer;
   Key:integer;
begin
   Cosmos:=LoadImage('/Cosmos.png');
   NLO:=LoadImage('/NLO.png');
   X:=50;
   Y:=50;
   while (Key<>GA_FIRE) do
     begin
       DrawImage(Cosmos,0,0);
       DrawImage(NLO,X,Y);
       Delay(100);
       repaint;
       Key:=KeyToAction(getKeyPressed);
       if (Key=GA_LEFT) then X:=X-3;
       if (Key=GA_RIGHT) then X:=X+3;
       if (Key=GA_UP) then Y:=Y-3;
       if (Key=GA_DOWN) then Y:=Y+3;
     end;
end.

ovogov24, коди красиво

Helltar, Да это с инэта пример , у меня такой в тетрадке даже есть

dimonkrut, руками. Берёшь и делаешь
P.S. фишка в том, что при движении меняешь не одну координату, а две

Я это в передвижение объекта вставил, что не так с запятой?

dimonkrut (12.05.2013/02:31)
Я это в передвижение объекта вставил, что не так с запятой?begink2:=getkeypressed;if k2=KE_KEY1 then yx:=x-1,y+1;if k2=KE_KEY3 then xy:=x+1,y+1;if k2=KE_KEY7 then yx:=y-1,x-1;if k2=KE_KEY9 then xy:=x+Вот так записывать надо. Почитай инфу про midlet pascal. Здесь на сайте вроде есть.