forum.boolean.name - Показать сообщение отдельно

ViNT · 30.01.2012, 23:47

repeat
 k:=GetKeyPressed;
 e:=KeyToAction(k)
 if e = GA_UP then
  y:=y-1;
 if e = GA_DOWN then
  y:=y+1;
 if e = GA_RIGHT then
  x:=x+1;
 if e = GA_LEFT then
  x:=x-1;
 DrawImage(cusror,x,y);
 if (x=TX)and(y=TY) then //TX, TY - координаты цели
  DrawText('text',0,0);
 repaint;
 Delay(100);
until k = KE_KEY0;

Как-то так.
В чем сложность заключается?

UPD: Про задержку забыл

30.01.2012, 23:47	#2
ViNT Модератор Регистрация: 03.04.2007 Сообщений: 2,252 Написано 597 полезных сообщений (для 817 пользователей)	Ответ: Помощь мне люди repeat k:=GetKeyPressed; e:=KeyToAction(k) if e = GA_UP then y:=y-1; if e = GA_DOWN then y:=y+1; if e = GA_RIGHT then x:=x+1; if e = GA_LEFT then x:=x-1; DrawImage(cusror,x,y); if (x=TX)and(y=TY) then //TX, TY - координаты цели DrawText('text',0,0); repaint; Delay(100); until k = KE_KEY0; Как-то так. В чем сложность заключается? UPD: Про задержку забыл
(Offline)