| Вопрос: Управление мышью | Добавлено: 08.07.02 15:00 |
Автор вопроса:  Game Maker
|
|
Если кто может помочь с осуществлением нормального управления мышью, то буду благодарен. Что нужно: 1. Кликаешь мышью и персонаж идет туда, за это отнимаються экшн поинты... 2. Персонаж поворачиваеться именно в ту сторону, куда нужно идти... Жду ответов на мыло или на этот форум... |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #1 | Добавлено: 11.07.02 11:54 |
|
Типа перс - Image1 Dim pX, pY as Single Кликнул: Private Sub Form1_MouseUp (X as Single, Y as Single, и т.д.) pX=X pY=Y End Syb Private Sub Timer1() 'Типа нужен таймер с интервалов ~50 'Идет в лево-право if image1.left<px then image1.left=image1.left+120 else image1.left=image1.left-120 end if 'Верх-низ if image1.top<py then image1.top=image1.top+120 else image1.top=image1.top-120 end if End Sub
Чтото типа этого должно работать. Чтоб объект был анимирован нужно менять картинку при каждом шаге Типа: Image1.Picture=Движение_в_Лево(index).Picture Хотя для игры Image и любые другие объекты лучше не использовать. |
||
Типа поле - это Form1
|
Номер ответа: 2 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #2 | Добавлено: 11.07.02 11:58 |
|
Типа перс - Image1 Dim pX, pY as Single Кликнул: Private Sub Form1_MouseUp (X as Single, Y as Single, и т.д.) pX=X pY=Y End Syb Private Sub Timer1() 'Типа нужен таймер с интервалов ~50 'Идет в лево-право if image1.left<px then image1.left=image1.left+120 else image1.left=image1.left-120 end if 'Верх-низ if image1.top<py then image1.top=image1.top+120 else image1.top=image1.top-120 end if End Sub
Чтото типа этого должно работать. Чтоб объект был анимирован нужно менять картинку при каждом шаге Типа: Image1.Picture=Движение_в_Лево(index).Picture Хотя для игры Image и любые другие объекты лучше не использовать. |
||
Страница: 1 |