Помощь мне люди

[Elastic]

Помогите мне ребят,я новичок,любитель,и есть очень клевая задумка,на счет игры,и пытаюсь по кусочкам собирать,экспериментирую со всякими исходниками,и никак не могу понять,как мне сделать следующее...
Довести курсор до определенной точки координаты,то высветить определенный текст.?мучался оч долго,есть даже исходник,но там ошибка,и не могу понять в чем дело,..покажите плиз пример моего запроса,если надо будет я выложу неисправный исходник...

[ViNT]

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: Про задержку забыл

[Elastic]

Спасибо,это мне известно,но мне нужно похожее,-
Если х=а1 ,то высветить определенный текст в углу экрана..я не знаю как это обьяснить...блин..

[ViNT]

В чем отличие результата выполнения этого кода от требуемого результата?

[Elastic]

У меня много кода,этот там есть,но там ошибки,паскаль не компилит..ошибку,я знаю что там ошибка,но не знаю как ее решить...попробую выложить исходник

Я удалил исходник оказывается,ладно,попробую еще раз но по другому,спасибо за помощь,я еще сюда вернусьmidletpascal жжет

*********** где ошибка!?помогите,ничего не отображается

[ViNT]

Что за левая ссылка? Спам что ли? или не в курсе, что можно прикреплять файлы к сообщению?

[Elastic]

paint.rar

Охх.извините,не знал как,с телефона сижу,с
Так вот,все норм,но не отображается,поправьте код плиз кто нить и про комментируйте,а то я уже выбился из сил...очен прошу..

Просто белый экран,не знаю,пытался ,искал,изменял,но не могу найти ответ,не отображаются картинки на экране эмулятора и телефона..помогите разобраться...пост выше с вкладкой 'paint",.

[ViNT]

Если выкинуть drawimage(space,0,0); в начале программы, белого экрана не будет (иначе происходит попытка отрисовки незагруженного изображения).
Почему дальше не работает - точно сказать не могу, не работал с этой библиотекой, но возможно потому, что не загружена карта.

[Elastic]

Уже убрал,но все равно белый экран,это не повлияло на исправление...ладно.спасибо,попробую без библиотеки аркада...спасибо еще раз..

[Amigo888]

Elastic как я понял ти хотел сделать что то похожие на описание звезд созвездий? Если я правильно понял, то вот тебе пример

[Elastic]

Подскажите,а как сделать-в любую сторону передвигаешь картинку,а анимация одна и та же,без переворота?не могу сообразить...

Амиго!красавчикспасибо тебе чувак!прям в точку!

[Amigo888]

Не очень понятно что имеешь ввиду

добавь 2 переменой x1 и y1. Добавь картинку и присвой ей координаты x1 y1. Потом в цикле repeat Напиши например: If key=KE_KEY6 then x1:=x1+3;

это в право на лево x1:=x1-3

[Elastic]

paint_te.rar
где проблема? не могу понять.....не компилиться...
эммм...на счет анимации, я хотел чтоб было типа вот так но чтоб можно было передвигать...не могу реализовать....хелп ми...

Сообщение от ViNT

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: Про задержку забыл

все именно так винт, сорри, просто с телефона не все открылось...

все)))спасибо...разобрался)))

но как бы мне сделать анимацию курсора?

[Amigo888]

тебе суда http://forum.boolean.name/showthread.php?t=7816


насчет ошибки в процедуре хз с эндами нахимичил, вот подправил:

procedure xz;
begin
if(x>50)and(y>50)and(x<60)and(y<60)then
begin
setcolor(255,255,255);
fillRoundRect(140,25,91,20,5,5);//закрашенный прямоугольник с куглыми углами
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_PLAIN, FONT_SIZE_SMALL);//шрифт
setcolor(0,0,0);
drawtext('Система:ReVol',142,25);//х,у прямоугольника в котором будет текст
end;
if(x>78)and(y>90)and(x<88)and(y<100)then
begin
setcolor(255,255,255);
fillroundrect(140,25,91,20,5,5);
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_PLAIN, FONT_SIZE_SMALL);//шрифт
setcolor(0,0,0);
drawtext('Система:MiTer',142,25);
end;
end;

[Elastic]

нет,я там не понимаю, мне бы примерчик типа как в игре ArcadeDemo-Золотоискатель, она тут где то было...эхх...все так сложно....