IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в данную темуНачать новую тему
Меню кнопок, Меню кнопок со звуковым сопровождением и кликанием
pavelman
сообщение 27.9.2015, 20:56
Сообщение #1


Активный участник
***

Группа: Пользователи
Сообщений: 201
Регистрация: 29.5.2009
Из: Russian Federation
Пользователь №: 65589



CODE

_main_nenu1:
rem main cycle menu
do
rem если нажата клавиша ESC
if escapekey()=1
goto _ender
endif

rem поворот камеры вокруг своих осей
movex=MOUSEMOVEX()
movey=MOUSEMOVEy()
TURN CAMERA RIGHT movex/5
PITCH CAMERA UP -movey/5

rem рисуем курсор
sprite cursor_1,MOUSEX(),MOUSEy(),cursor_1
SET SPRITE ALPHA cursor_1, 70


rem вычисляем столкновения курсора с кнопками и воспроизщводим звук
if SPRITE COLLISION(cursor_1, ttt)<>1
tt=0
if ttt>0 then scale sprite ttt,98
endif
for menu_select=11 to 17
if sOUND PLAYING(select_1)<1 and tt=0
if SPRITE COLLISION(cursor_1, menu_select)=1
play sound select_1
tt=1
ttt=menu_select
SCALE SPRITE menu_select, 100
goto _mainmenuselect
endif
endif
next menu_select

_mainmenuselect:
sync

rem если нажата кнопка меню и переход к следующему меню игры
if mouseclick()=1
if SPRITE COLLISION(cursor_1,new_game_1)=1
play sound pick_1
SCALE SPRITE new_game_1, 95
sync
sleep 1000
goto _newgamenew
endif
if SPRITE COLLISION(cursor_1,load_game_1)=1
play sound pick_1
SCALE SPRITE load_game_1, 95
sync
sleep 1000
goto _loadgamenew
endif
if SPRITE COLLISION(cursor_1,Options_1)=1
play sound pick_1
SCALE SPRITE Options_1, 95
sync
sleep 1000
goto _Optionsnew
endif
if SPRITE COLLISION(cursor_1,imform_1)=1
play sound pick_1
SCALE SPRITE imform_1, 95
sync
sleep 1000
goto _thesaurusnew:
endif

if SPRITE COLLISION(cursor_1,score_1)=1
play sound pick_1
SCALE SPRITE score_1, 95
sync
sleep 1000
goto _score:
endif

if SPRITE COLLISION(cursor_1,exit_1)=1
play sound pick_1
SCALE SPRITE exit_1, 95
sync
sleep 1000
goto _ender:
endif

if SPRITE COLLISION(cursor_1,power_1)=1
play sound pick_1
SCALE SPRITE power_1, 95
sync
sleep 1000
goto _power:
endif
endif
loop


спрайты и звук думаю разберутся как загрузить.
успехов.


--------------------
Если утром хорошо
встал, значит вечером
плохо выпил.
Перейти в начало страницы
 
+Цитировать сообщение
maximilian
сообщение 27.9.2015, 23:36
Сообщение #2


Активный участник
***

Группа: Пользователи
Сообщений: 568
Регистрация: 26.3.2009
Из: EARTH, UKRAINE
Пользователь №: 65574



Ну... пишешь тебе пишешь... как об стену горохом....
Я же приводил тебе пример использования функции.... ну неужели удобней писать 7-8 одинаковых блоков кода? только с одной переменной? это же как минимум 7 проверок if, а с использованием функции можно сократить до одной, которая будет производиться по событию..... и писать удобней, и читать проще, и работает быстрее....


--------------------
"... Стоя на краю пропасти на одной ноге, можно попасть стрелой не только в цель, но и второй стрелой в первую ещё в полёте... "
Лабироникс © ...отрывок из неизданного.
Перейти в начало страницы
 
+Цитировать сообщение
pavelman
сообщение 28.9.2015, 1:18
Сообщение #3


Активный участник
***

Группа: Пользователи
Сообщений: 201
Регистрация: 29.5.2009
Из: Russian Federation
Пользователь №: 65589



Цитата(maximilian @ 27.9.2015, 23:36) *
Ну... пишешь тебе пишешь... как об стену горохом....

я читаю слева направо-сверху вниз.


--------------------
Если утром хорошо
встал, значит вечером
плохо выпил.
Перейти в начало страницы
 
+Цитировать сообщение
Илья
сообщение 9.1.2018, 17:46
Сообщение #4


Активный участник
***

Группа: Пользователи
Сообщений: 138
Регистрация: 6.4.2009
Из: Россия г.Смоленск
Пользователь №: 65577



Эх, давно это было))
Сорри, конечно, но, твой код использовать страшно...
Глянь мои наработки, когда то на thegamecreators выкладывал biggrin.gif

https://www.thegamecreators.com/codebase/vi...fd95597c3a5fd9e

У меня там целый API был написан, и демка прилагалась)
Реализовал TextBox, Button, Slider, ProgressBar, впринципе, по шаблону, не сложно добавлять свои компоненты, комментарии даже русскоязычные. Правда, давно это было, щас что то на креаторсе поломалось sad.gif


--------------------
Проекты ArtMetal - немного музыкального творчества))
Перейти в начало страницы
 
+Цитировать сообщение

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 18.1.2018, 0:58
 X 
Ссылки на работы форумчан:
1. Cайт по использованию 3D технологий
в образовании

2. 15 Defense. Underwater Battle

3. GlaZ в Steam Greenlight