你的位置：
写了一个回合制游戏的自动打怪的脚本。但是发现在进入战斗的时候那个寻怪的函数还...
20:03:47 |
来源: 按键精灵资源站
本帖最后由 wzheng1227 于
20:22 编辑
写了一个回合制游戏的自动打怪的脚本。但是发现在进入战斗的时候那个寻怪的函数还在运行。怎么做才能让进入战斗之后寻怪的函数停止。战斗结束之后再继续运行。[code]Hwnd = Plugin.Window.GetKeyFocusWnd() '获取当前活动窗口
Call Plugin.Window.Move(Hwnd, 0, 0)& & & & '把窗口移动到屏幕坐标0,0
'*****************主程序*****************
FindPic 0,0,,&Attachment:\判断战斗.bmp&,0.9,intX,intY '判断是否进入战斗
& & & & If intX & 0 And intY & 0 Then '如果发生战斗，执行daguai函数
& & & & & & & & Delay 200
& & & & & & & & Call daguai()
& & & & Else '如果没有发生战斗，则继续寻怪
& & & & & & & & Delay 200
& & & & & & & & Call yuguai()
& & & & End If
'*****************主程序*****************
'*****************寻怪函数*****************
Sub yuguai '点击游戏窗口两个坐标寻怪
LeftClick 1
MoveTo 320, 320
RightClick 1
LeftClick 1
LeftClick 1
MoveTo 480, 320
RightClick 1
LeftClick 1
'*****************寻怪函数*****************
'*****************打怪函数*****************
Sub daguai '打怪函数并判断是否有自动攻击对话框如果没有按键呼出
& & & & FindPic 0,0,,&Attachment:\检测自动攻击.bmp&,0.9,intX,intY
& & & & & & & & If intX & 0 And intY & 0 Then
& & & & & & & & & & & & KeyDown 17, 1
& & & & & & & & & & & & KeyPress 65, 1
& & & & & & & & & & & & KeyUp 17, 1
& & & & & & & & End If
'*****************打怪函数*****************[/code]写了一个回合制游戏的自动打怪的脚本。但是发现在进入战斗的时候那个寻怪的函数还在运行。怎么做才能让进入战斗之后寻怪的函数停止。战斗结束之后再继续运行。你的位置：
关于回合制网游的自动打怪脚本问题 求达人指教
07:31:08 |
来源: 按键精灵资源站
我按照官方的回合制自动打怪编写的脚本 第一次使用没有问题 我移动窗口后脚本就失效了鼠标会跳出游戏窗口在桌面上乱点&&求大家帮帮忙 帮我解决下这个问题 我玩的游戏是梦幻西游 下面附上我按照编写的脚本..源码
Plugin.WINDOW.GetKeyFocusWnd
Plugin.WINDOW.GetClientRect 参数1
MyArray=Split(sRect,&|&)
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
Dim x(9), y(9)
x(0) = 229 : y(0) = 130
x(1) = 169 : y(1) = 159
x(2) = 114 : y(2) = 186
Call 吃药()
MoveTo 696+Ux, 487+Uy
LeftClick 1
Call 战斗子程序()
MoveTo 608+Ux, 375+Uy
LeftClick 1
Call 战斗子程序()
Sub 战斗子程序()
IfColor 970+Ux,335+Uy,& Then
& & Rem 战斗
FindPic 0,0,,&Attachment:\fashu.bmp&,0.9,intX,intY
If intX & 0
& && &&&For 3
& & KeyDown 18, 1
& && &&&KeyPress 65, 1
& && &&&KeyUp 18, 1
& && &&&Delay 100
& && &&&KeyDown 18, 1
& && &&&KeyPress 65, 1
& && &&&KeyUp 18, 1
& && && && &Next
& && & i=i+1
& & Delay 1000
& & IfColor 970+Ux,335+Uy,& Then
& & Goto 战斗结束
& && &&&End If
& & Goto 战斗
& & End If
& & Rem 战斗结束
& & End Sub
Sub 吃药()
IfColor 947+Ux,217+Uy,& Then
MoveTo 947+Ux,217+Uy
& & Delay 100
& & RightClick 1
& && &&&Delay 100
IfColor 944+Ux,230+Uy,&F06C08&,1 Then
MoveTo 944+Ux,230+Uy
& & Delay 100
& & RightClick 1
& && &&&Delay 100
IfColor 833+Ux,217+Uy,& Then
MoveTo 833+Ux,217+Uy
& & Delay 100
& & RightClick 1
& && &&&Delay 100
IfColor 830+Ux,230+Uy,&D06000&,1 Then
MoveTo 830+Ux,230+Uy
& & Delay 100
& & RightClick 1
& && &&&Delay 100
& & End Sub
拜托了& &&&阿一喜玛斯