forum.boolean.name - Помощь мне люди

Страница 1 из 2

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Помощь мне люди (http://forum.boolean.name/showthread.php?t=16253)

Elastic

30.01.2012 23:15

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

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

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

Elastic

31.01.2012 00:27

Ответ: Помощь мне люди

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

ViNT	31.01.2012 00:40

Ответ: Помощь мне люди

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

Elastic

31.01.2012 00:42

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

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

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

ViNT	31.01.2012 02:38

Ответ: Помощь мне люди

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

Elastic

31.01.2012 11:33

Вложений: 1

Вложение 16079

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

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

ViNT	31.01.2012 13:35

Ответ: Помощь мне люди

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

Elastic

31.01.2012 14:34

Ответ: Помощь мне люди

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

Amigo888

31.01.2012 16:23

Ответ: Помощь мне люди

Вложений: 1

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

Elastic

31.01.2012 17:46

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

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

Amigo888

31.01.2012 18:35

Ответ: Помощь мне люди

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

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

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

Elastic

31.01.2012 19:15

Вложений: 2

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

Цитата:

Сообщение от ViNT (Сообщение 218188)

Код:

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

31.01.2012 19:42

Ответ: Помощь мне люди

тебе суда 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

31.01.2012 20:15

Ответ: Помощь мне люди

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

Часовой пояс GMT +4, время: 05:26.

Страница 1 из 2

Показывать 64 сообщений этой темы на одной странице