En keksinyt muuta :D:
Code: Select all
SCREEN 640,480,0,cbfullscreen
Type FAILS
Field t$
EndType
hiiri=MakeImage(7,7)
DrawToImage hiiri
Line 3,0,3,7
Line 0,3,7,3
DrawToScreen
ShowMouse hiiri
hiiriobj=MakeObject()
nappula=MakeObject()
nappulakuva=MakeImage(16,16)
DrawToImage nappulakuva
Color cbred
Box 0,0,16,16,0
Color cbdarkred
Box 1,1,14,14
DrawToScreen
PaintObject nappula,-nappulakuva
Repeat
rx=MouseX()
ry=MouseY()
rx=rx+Rand(-10,10)
ry=ry+Rand(-10,10)
PositionMouse rx,ry
PositionObject hiiriobj,MouseWX(),MouseWY()
If ObjectsOverlap (hiiriobj,nappula) And MouseUp(1)
MakeError "OMG! ''Vain'' "+p+" failausta..."
ElseIf ObjectsOverlap (hiiriobj,nappula)=0 And MouseUp(1)
uusiFAIL.FAILS= New(FAILS)
uusiFAIL\t$="fail!"
Locate MouseX(),MouseY()
AddText ""+uusiFAIL\t$
p+1
EndIf
Color cbwhite
CenterText 320,40,"KOITAS PAINAA PUNAISTA NAPPULAA NIIN PÄÄSET POIS :)"
If TIMER()>aika+500 Then
liikkuu=1
aika=TIMER()
EndIf
If liikkuu=1
ScreenPositionObject nappula,Rand(0,(640-32)),Rand(0,(480-32))
liikkuu=0
EndIf
DrawScreen
Forever