46 lines
1.1 KiB
Plaintext
46 lines
1.1 KiB
Plaintext
|
; In this file, we handle alle the events
|
||
|
|
||
|
Procedure HandleEventMenu()
|
||
|
Define ActiveMenu_Index.i = ListIndex(*ActiveMenu\Entries())
|
||
|
|
||
|
If KeyboardReleased(#PB_Key_Up)
|
||
|
Menu_GotoCurrent()
|
||
|
*ActiveMenu\Entries()\Selected = #False
|
||
|
|
||
|
If ListIndex(*ActiveMenu\Entries()) = 0
|
||
|
LastElement(*ActiveMenu\Entries())
|
||
|
Else
|
||
|
PreviousElement(*ActiveMenu\Entries())
|
||
|
EndIf
|
||
|
|
||
|
*ActiveMenu\Entries()\Selected = #True
|
||
|
EndIf
|
||
|
|
||
|
If KeyboardReleased(#PB_Key_Down)
|
||
|
Menu_GotoCurrent()
|
||
|
*ActiveMenu\Entries()\Selected = #False
|
||
|
|
||
|
If ListIndex(*ActiveMenu\Entries()) = (ListSize(*ActiveMenu\Entries())-1)
|
||
|
FirstElement(*ActiveMenu\Entries())
|
||
|
Else
|
||
|
NextElement(*ActiveMenu\Entries())
|
||
|
EndIf
|
||
|
|
||
|
*ActiveMenu\Entries()\Selected = #True
|
||
|
EndIf
|
||
|
|
||
|
If KeyboardReleased(#PB_Key_Return)
|
||
|
Debug "Return!"
|
||
|
EndIf
|
||
|
EndProcedure
|
||
|
|
||
|
Procedure HandleEventRunningGame()
|
||
|
EndProcedure
|
||
|
; IDE Options = PureBasic 4.51 (MacOS X - x86)
|
||
|
; CursorPosition = 32
|
||
|
; Folding = -
|
||
|
; EnableUnicode
|
||
|
; EnableThread
|
||
|
; EnableXP
|
||
|
; EnableCompileCount = 0
|
||
|
; EnableBuildCount = 0
|