【 按键精灵 精彩视频 】 高级教程-自动打怪实战脚本2D网游篇
朋友圈都转疯了
正在努力加载中...你的位置：
2D游戏自动打怪问题！！！
05:02:09 |
来源: 按键精灵资源站
写了一个剑侠情缘网络版的自动打怪的脚本。。。
测试了N次 就是说脚本出现错误。。。
能不能给我看下 到底错在哪儿了？？？
脚本如下：
Hwnd = Plugin.Window.Find(0, &剑侠情缘·网络版&)
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,&|&)
Ux = CLng(MyArray(0))
Uy = CLng(MyArray(1))
Rem 战斗开始
FindColor 944+Ux,78+Uy,971+Ux,92+Uy,&FF30A5&,intX,intY
If intX & 0 And intY & 0 Then
Qx = (intX - Ux - 724) * 16 + 374 + Ux
Qy = (intY - Uy - 94) * 16 + 290 + Uy
MoveTo Qx, Qy
LeftClick 1
& & Rem 战斗中
Delay 1000
IfColor 496,315,&FF&,0 Then
Goto 战斗中
Call 寻怪()
& & Goto 战斗开始
Sub 寻怪()
& & End Sub
//获得0-3的随机数
n = int(rnd * 4)
If n = 0 Then
& & & & MoveTo 280+Ux, 314+Uy
& & Delay 50
& & LeftClick 1
If n = 1 Then
& & MoveTo 646+Ux, 328+Uy
& & Delay 50
& & LeftClick 1
If n = 2 Then
& & & & MoveTo 249+Ux, 460+Uy
& & Delay 50
& & LeftClick 1
& & If n = 3 Then
& & & & MoveTo 629+Ux, 466+Uy
& & Delay 50
& & LeftClick 1
Delay 1800
& && && && &End Sub