Ring gradually open Find strange example _seraphzone

Bored, write a everybody to play!!!
Play, open the Paint program, select the spray gun, and then run this script began to open the drawing circle, if changed to find strange script, hehe!!!

Copy Code code as follows:

Dim Ttx,tty
Function Main
ttx=512
tty= (768-42)/2
Todo
For R=1 to 10
Rr=20*r
If Ismonster (rr,x,y) Then
It's written to find the weird action.
End If
Next
Loop
End Function

function Ismonster (pixelr,byref monsterx,byref monstery)
Ismonster=false
Copyscreen ()
For K=1 to 2
For J=-PIXELR to PIXELR step 2
If K=1 Then
X=ttx+j
Y=TTY+SQR (PIXELR*PIXELR-J*J)
Else
X=ttx-j
Y=TTY-SQR (PIXELR*PIXELR-J*J)
End If
The following three lines are originally written monster color judgment, this changed to paint, hehe
MouseMove (X,y)
Mouseleftclick ()
Wait (100)
Next
Next
End Function