If .........Then

[AndruXa]

Нажатие клавиши на физической клавиатуре прописывается так If KeyDown(Сканкод) Then ....ля-ля-ля тополя.....
А как прописывается нажатие на виртуальную кнопку, ну типа в меню есть кнопки Новая игра, Опции........
Как написать:
If нажать на Новую игру или....... Then/////////

[dimanche13]

если мышка на меню "Новая игра" и нажата левая кнопка мыши, то ...
блин, неимоверно сложно, я аж вспотел )))

[Данил]

так...

создаешь тип...
так же 4 коориданты кнопки...
если кликнули внутри кнопки, то , допустим, ставим переменной тип 1.
если другая кнопка , то 2

внонце цикла проверяем переменную. Если равна 0 => не нажали на кнопку. Если 1, то выполняем одно действие.. если два,то другое

Создаем тип кнопки

Type TypeButton
Field X,Y,W,H, image, Image2,f
End Type

CreateButton (LoadImage ("Data\1.bmp"),LoadImage ("Data\1a.bmp"),2,2,26,26,1)

Функция создания кнопки

Function CreateButton (image, image2,x,y,w,h,f)
Button.TypeButton=New TypeButton
Button\image = Image
Button\image2 = Image2
Button\x = X
Button\y = Y
Button\w = W
Button\h = H
Button\f = F
End Function

проверка на нажатие

Function UpdateButton (button.Typebutton)
If F = button\f Then  DrawImage button\image2,button\x, button\y Else DrawImage button\image,button\x, button\y
If MouseDown (1) And MouseX()>button\x And MouseX() <button\x+button\w And MouseY()>button\y And MouseY() <button\y+button\H Then f = button\f 
End Function

и далее у меня уже идет проверка переменной F... как я уже говорил, если равна 0 => не нажали на кнопку. Если 1, то выполняем одно действие.. если два,то другое