fb:porticula NoPaste
Catch Me if U can
Uploader: | Key_Frogger |
Datum/Zeit: | 25.09.2009 13:16:02 |
screen 18
Dim As Integer x, y, buttons
GetMouse (x, y, , buttons)
LINE (140, 80)-(180, 120), 15, BF
IF x = 140-180 then
cls
LINE (30, 80)-(70, 120), 15, BF
sleep 75
end if
IF x = 80-120 then
cls
LINE (30, 80)-(70, 120), 15, BF
sleep 75
end if
IF y = 140-180 then
CLS
Line (140, 200)-(180, 250), 15, BF
sleep 75
end if
IF y = 80-120 then
CLS
Line (140, 200)-(180, 250), 15, BF
sleep 75
end if
sleep