84 lines
1.9 KiB
Plaintext
Executable File
84 lines
1.9 KiB
Plaintext
Executable File
#!yab
|
|
|
|
// MouseWorld - shows mousemessages
|
|
// by DasJott
|
|
|
|
window open 100, 100 to 500, 400, "MainView", "Mouse-World"
|
|
window set "MainView", "flags","not-zoomable, not-h-resizable, not-v-resizable"
|
|
draw set "Zurich, Bold, 20", "MainView"
|
|
|
|
view 0, 20 to 100, 110, "MouseView", "MainView"
|
|
draw set "bgcolor", 255, 255, 255, "MouseView"
|
|
draw set "lowcolor", 255, 255, 255, "MouseView"
|
|
draw set "highcolor", 0, 0, 0, "MouseView"
|
|
|
|
draw text 60, 150, "Press the Quit button to Quit!", "MainView"
|
|
draw text 330, 290, "Haha!", "MainView"
|
|
|
|
dim cmd$(1)
|
|
dim mouse$(1)
|
|
inloop = true
|
|
while (inloop)
|
|
msg$ = message$
|
|
mmsg$ = mouse message$("MainView")
|
|
|
|
if (not mmsg$ = Fmmsg$) then
|
|
Fmmsg$ = mmsg$
|
|
n = split(mmsg$, mouse$(), ":")
|
|
Xmouse = val(mouse$(1))
|
|
Ymouse = val(mouse$(2))
|
|
BLmouse = val(mouse$(3))
|
|
BCmouse = val(mouse$(4))
|
|
BRmouse = val(mouse$(5))
|
|
ShowMouseMessage()
|
|
fi
|
|
|
|
if (Xmouse > 324 and Ymouse > 264) then
|
|
HideQbutton()
|
|
else
|
|
if (Qbutton = false) ShowQbutton()
|
|
fi
|
|
|
|
switch msg$
|
|
|
|
case "MainView:_QuitRequested|"
|
|
inloop = false
|
|
break
|
|
|
|
end switch
|
|
sleep 0.01
|
|
wend
|
|
window close "MainView"
|
|
|
|
sub ShowMouseMessage()
|
|
draw flush "MouseView"
|
|
draw text 10, 10, "Mouse X:", "MouseView"
|
|
draw text 10, 25, "Mouse Y:", "MouseView"
|
|
draw text 10, 40, "Mouse buttons:", "MouseView"
|
|
draw text 20, 55, "Button 1:", "MouseView"
|
|
draw text 20, 70, "Button 2:", "MouseView"
|
|
draw text 20, 85, "Button 3:", "MouseView"
|
|
|
|
draw text 60, 10, str$(Xmouse), "MouseView"
|
|
draw text 60, 25, str$(Ymouse), "MouseView"
|
|
draw text 70, 55, str$(BLmouse), "MouseView"
|
|
draw text 70, 70, str$(BRmouse), "MouseView"
|
|
draw text 70, 85, str$(BCmouse), "MouseView"
|
|
return
|
|
end sub
|
|
|
|
sub HideQbutton()
|
|
if(Qbutton) then
|
|
view remove "ButtonView"
|
|
endif
|
|
Qbutton = false
|
|
return
|
|
end sub
|
|
|
|
sub ShowQbutton()
|
|
view 325, 265 to 395, 295, "ButtonView", "MainView"
|
|
button 5, 5 to 65, 25, "Quit_", "Quit", "ButtonView"
|
|
Qbutton = true
|
|
return
|
|
end sub
|