Вниз  MIDlet Pascal
<< 1 ... 63 64 65 66 67 ... 160 >>
- 30.05.2013 / 09:13
#265019
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
lehaAKO, на твой пост (29.05.2013 / 18:25) отвечу, тебе надо чтоб все обекты двигались? кроме курсора?
- 30.05.2013 / 11:01
#265048
lehaAKO
  Пользователь
lehaAKO 
Сейчас: Offline
Virus-ON, да, но только в противоположную сторону например я нажал влево а фон должен идти в право вместе с домом. мне просто нужно чтобы как в бейсике. одну картинку передвигать обратно если он дошел до края экрана. и тем самым получится что типа курсор передвигается
- 30.05.2013 / 11:09
#265051
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
lehaAKO, Через час/два пошлю код.
- 30.05.2013 / 12:50
#265062
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
  1. program name;
  2. var x,y:integer;
  3. key:integer;
  4. i:integer;
  5. home,fon,cursor:image;
  6.  
  7. procedure key();
  8.  begin
  9.  
  10.  key:=getkeypressed;
  11.  if key=ke_key2 then y:=y-1;
  12.  
  13.  if key=ke_key4 then x:=x+1
  14.  
  15.  if key=ke_key8 then y:=y+1
  16.  
  17.  if key=ke_key6 then x:=x-1
  18.  
  19.  end;
  20.  
  21. begin
  22.  
  23. x=0;
  24. y=0;
  25.  
  26. home:=li('/11.PNG');
  27. cursor:=li('/10.PNG');
  28. fon:=li('/24.PNG');
  29. i=2;
  30.  
  31. while i>0 do
  32. begin
  33.  
  34. key;
  35. setcolor(255,255,255);
  36. fillrect(0,0,320,400);
  37. di(fon,0+x,0+y);
  38. di(home,100+x,100+y);
  39. di(cursor,120,160);
  40. repaint;
  41. delay(200);
  42.  
  43. end;
  44. end.

Изменено Virus-ON (30.05 / 12:51) (всего 2 раза)
- 30.05.2013 / 12:52
#265063
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
Понял?
- 30.05.2013 / 12:56
#265065
lehaAKO
  Пользователь
lehaAKO 
Сейчас: Offline
ну я это то знаю, мне нужно чтобы фон обратно переходил
if k=ke_key8 and y>-1 then y:=-80
if k=ke_key4 and x>-1 then x:=-80
if k=ke_key6 and x<-79 then x:=0
if k=ke_key2 and y<-79 then y:=0


это туда добавить, чтобы фон типа бесконечно переходил
- 30.05.2013 / 13:01
#265067
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
lehaAKO, а сам? :-D
а просто подправил , дальше все своими руками делай. :)
Изменено Virus-ON (30.05 / 13:02) (всего 1 раз)
- 30.05.2013 / 13:05
#265068
lehaAKO
  Пользователь
lehaAKO 
Сейчас: Offline
ну я все это знаю я просто добавил этот код, у меня фон ни туда ни сюда
- 30.05.2013 / 13:13
#265070
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
lehaAKO, ?
- 30.05.2013 / 14:29
#265081
lehaAKO
  Пользователь
lehaAKO 
Сейчас: Offline
Virus-ON, ну на месте стоит
<< 1 ... 63 64 65 66 67 ... 160 >>
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)