|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2007, 16:42 | #41 | |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,692
|
Цитата:
Код:
|
|
03.12.2007, 21:28 | #42 |
Инженер ИС
Старожил
Регистрация: 13.12.2006
Сообщений: 2,671
|
Pfent, вот примерчик. Все грубо, установи смещение на картинку и будет идти туда куда ткнул мышью.
Руководитель проекта MMO 2D RPG: Настоящее имя Денис Стрижак (10.05.1981-6.02.2019) Мир духу его
|
04.12.2007, 09:39 | #43 |
Пользователь
Регистрация: 02.12.2007
Сообщений: 22
|
Огромное спасибо за пример
|
05.12.2007, 14:35 | #44 |
Форумчанин
Регистрация: 01.12.2006
Сообщений: 241
|
Пользоваться таймером. там прописать что то типа если координата х больше левфт то лефт=лефт+1.... то же самое с у, кроме того может быть такое что добавлять надо не единицу... можно попробовать реализовать это через уравнение прямой...
Програмисты - единственные люди, которым платят за исправления их же ошибок
|
07.12.2007, 00:30 | #45 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Вот вам в качестве урока по созданию логических игр (это не РПГ =).
Исходник игры кликомания (коллапс) на Дельфи. http://www.programmersforum.ru/attac...4&d=1196863119
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
26.12.2007, 08:55 | #46 |
Пользователь
Регистрация: 25.12.2007
Сообщений: 11
|
Всем приветик=) Помогите произошел клинический ступор=) Гляньте свежим взглядом....=) Cуть задачи такова: кнопка при нажатии двигается вправо до ходя до края формы а после ползет в лево.
Procedure TForm1. для нажатия... begin if Button1.Left>600 then Button1.left:=Button1.left-5 else if Button1.left<600 then Button1.left:=Button1.left+5 else Button1.left:=Button1.left+5 end; end. Сама вижу что даю условие до 600 она доползает и начинает дергаться то +5 то _5. Тут как-то может нужно вести переменную и менять ей знак? |
27.12.2007, 17:32 | #47 |
Форумчанин
Регистрация: 01.12.2006
Сообщений: 241
|
Просто введи переменную булевского типа заначение фалз, если достигнут предел движени вправо изменить на тру если значение тру двигать влево при достижени крайнего левого пложение опять изминить значение на фалз...
Програмисты - единственные люди, которым платят за исправления их же ошибок
|
01.01.2008, 18:47 | #48 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Еще можешь сделать переменную Speed: integer; определяющую скорость, т.е. на сколько пикселей за раз перемещается кнопка.
При достижении стенок меняешь знак скорости +/- if (Button1.Left>600)or(Button1.left<0 ) then Speed:=0-Speed; Потом в любом случае прибавляешь эту скорость Button1.left:=Button1.left+Speed;
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
04.02.2008, 20:44 | #49 |
Участник клуба
Регистрация: 23.07.2007
Сообщений: 1,054
|
Тут уже рассматривался пример движения оъекта при нажатии на кнопки с клавиатуры, а если одновременно нажаты влево и вверх?
или пользователь пользуется "перекатом"(не отпуская жмет на другую кнопку. а потом первую отпускает)
Писано по д'Эльфийски
|
04.02.2008, 21:17 | #50 |
Участник клуба
Регистрация: 23.07.2007
Сообщений: 1,054
|
Еще один вопрос.Как клонировать обьект
Допустим стратегия. Нужно построить дом. Допустим это Image. Как сделать так чтоб создавался image в определенной области формы (любое количество, сколько вздумается пользователю) с соответствующим изображением здания И к этому image относились бы все процедуры заранее оговоренные для данного типа сооружения Например при двойном нажатии активировлась какая-то панель или что-то вроде этого.
Писано по д'Эльфийски
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Хорошие уроки | Render | Общие вопросы Delphi | 9 | 15.09.2012 07:13 |
Акцесс вопросы новичков | Yaga | Помощь студентам | 4 | 02.06.2008 00:16 |
Учебники для новичков в програмировании | Рар | Общие вопросы Delphi | 6 | 08.01.2007 08:07 |