|
Основной форум Сюда все проблемы связанные с программированием. |
30.01.2012, 23:15
|
#1
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
Помощь мне люди
Помогите мне ребят,я новичок,любитель,и есть очень клевая задумка,на счет игры,и пытаюсь по кусочкам собирать,экспериментирую со всякими исходниками,и никак не могу понять,как мне сделать следующее...
Довести курсор до определенной точки координаты,то высветить определенный текст.?мучался оч долго,есть даже исходник,но там ошибка,и не могу понять в чем дело,..покажите плиз пример моего запроса,если надо будет я выложу неисправный исходник...
|
(Offline)
|
|
30.01.2012, 23:47
|
#2
|
Модератор
Регистрация: 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)
|
|
Сообщение было полезно следующим пользователям:
|
|
31.01.2012, 00:27
|
#3
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помощь мне люди
Спасибо,это мне известно,но мне нужно похожее,-
Если х=а1 ,то высветить определенный текст в углу экрана..я не знаю как это обьяснить...блин..
|
(Offline)
|
|
31.01.2012, 00:40
|
#4
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помощь мне люди
В чем отличие результата выполнения этого кода от требуемого результата?
|
(Offline)
|
|
31.01.2012, 00:42
|
#5
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
У меня много кода,этот там есть,но там ошибки,паскаль не компилит..ошибку,я знаю что там ошибка,но не знаю как ее решить...попробую выложить исходник
Я удалил исходник оказывается,ладно,попробую еще раз но по другому,спасибо за помощь,я еще сюда вернусь midletpascal жжет
*********** где ошибка!?помогите,ничего не отображается
Последний раз редактировалось SBJoker, 31.01.2012 в 10:45.
|
(Offline)
|
|
31.01.2012, 02:38
|
#6
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помощь мне люди
Что за левая ссылка? Спам что ли? или не в курсе, что можно прикреплять файлы к сообщению?
|
(Offline)
|
|
31.01.2012, 11:33
|
#7
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
paint.rar
Охх.извините,не знал как,с телефона сижу,с
Так вот,все норм,но не отображается,поправьте код плиз кто нить и про комментируйте,а то я уже выбился из сил...очен прошу..
Просто белый экран,не знаю,пытался ,искал,изменял,но не могу найти ответ,не отображаются картинки на экране эмулятора и телефона..помогите разобраться...пост выше с вкладкой 'paint",.
Последний раз редактировалось SBJoker, 31.01.2012 в 13:31.
|
(Offline)
|
|
31.01.2012, 13:35
|
#8
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помощь мне люди
Если выкинуть drawimage(space,0,0); в начале программы, белого экрана не будет (иначе происходит попытка отрисовки незагруженного изображения).
Почему дальше не работает - точно сказать не могу, не работал с этой библиотекой, но возможно потому, что не загружена карта.
|
(Offline)
|
|
31.01.2012, 14:34
|
#9
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помощь мне люди
Уже убрал,но все равно белый экран,это не повлияло на исправление...ладно.спасибо,попробую без библиотеки аркада...спасибо еще раз..
|
(Offline)
|
|
31.01.2012, 16:23
|
#10
|
Нуждающийся
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений (для 16 пользователей)
|
Ответ: Помощь мне люди
Elastic как я понял ти хотел сделать что то похожие на описание звезд созвездий? Если я правильно понял, то вот тебе пример
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
31.01.2012, 17:46
|
#11
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
Подскажите,а как сделать-в любую сторону передвигаешь картинку,а анимация одна и та же,без переворота?не могу сообразить...
Амиго! красавчик спасибо тебе чувак!прям в точку!
|
(Offline)
|
|
31.01.2012, 18:35
|
#12
|
Нуждающийся
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений (для 16 пользователей)
|
Ответ: Помощь мне люди
Не очень понятно что имеешь ввиду
добавь 2 переменой x1 и y1. Добавь картинку и присвой ей координаты x1 y1. Потом в цикле repeat Напиши например: If key=KE_KEY6 then x1:=x1+3;
это в право на лево x1:=x1-3
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
31.01.2012, 19:15
|
#13
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
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: Про задержку забыл
|
все именно так винт, сорри, просто с телефона не все открылось...
все)))спасибо...разобрался)))
но как бы мне сделать анимацию курсора?
Последний раз редактировалось SBJoker, 31.01.2012 в 21:10.
|
(Offline)
|
|
31.01.2012, 19:42
|
#14
|
Нуждающийся
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений (для 16 пользователей)
|
Ответ: Помощь мне люди
тебе суда 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;
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
31.01.2012, 20:15
|
#15
|
AnyKey`щик
Регистрация: 30.01.2012
Сообщений: 14
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Помощь мне люди
нет,я там не понимаю, мне бы примерчик типа как в игре ArcadeDemo-Золотоискатель, она тут где то было...эхх...все так сложно....
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 11:30.
|