I could use keycommands instead mouse... but using left/right mousebutton would make live a lot more easy ,)
Code: Select all
InitSprite()
InitKeyboard()
InitMouse()
OpenScreen(800,600,32,"Test")
ShowCursor_(#True)
Repeat
ExamineMouse()
ExamineKeyboard()
ClearScreen(0)
If MouseButton( #PB_MouseButton_Left)
MessageRequester("LMB","",0)
EndIf
If MouseButton( #PB_MouseButton_Left)
MessageRequester("RMB","",0)
EndIf
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
End

