环形渐开找怪示例

2008年11月30日

无聊，写个大家玩玩！！！
玩法，打开画图程序，选喷枪，然后运行此脚本就开始渐开画圆了，如果改改就成找怪的脚本了，呵呵！！！


dim Ttx,Tty 
function main 
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 
//以下三行本来是写怪物颜色判断，这改成画图了，呵呵 
MouseMove(x,y) 
MouseLeftClick() 
Wait(100) 
next 
next 
end function