dim Ttx,Tty
function m
ain
Ttx=
512 Tty=(768-42)/2
do
for r=1 to 10
rr=20*r
if ismonster(rr,x,y) then
//这写找到怪后的动作
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
//以下三行本来是写怪物颜色判断,这改成画图了,呵呵
Mou
SEMove(x,y)
MouseLeftClick()
Wa
IT(100)
next
next
end function