站长网_站长创业_站长主页_站长之家_易采站长站

会员投稿 投稿指南 站长资讯通告: go 下载非标准库包(部份包被墙了)到本地使用的方
搜索:
您的位置: 主页 > 教程 > 脚本教程 > 其他脚本 > » 正文

环形渐开找怪示例

来源: 易采站长站
无聊,写个大家玩玩!!!
玩法,打开画图程序,选喷枪,然后运行此脚本就开始渐开画圆了,如果改改就成找怪的脚本了,呵呵!!!
代码如下:
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
最新图文资讯
1 2 3 4 5 6
相关文章列表:
最新文章
易采站长站 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助 -