环形渐开找怪示例

无聊，写个大家玩玩！！！

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


复制代码 代码如下:

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

本文由 华域联盟 原创撰写：华域联盟 » 环形渐开找怪示例

转载请保留出处和原文链接：https://www.cnhackhy.com/84580.htm