/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
/中文/
关于魔兽世界的挂机软件已经找不到比较好用的了,今天数码资源小编就为大家准备一份魔兽世界战场挂机脚本最新版,希望能帮助广大WOW玩家。
【魔兽世界挂机脚本明细】:
以下为脚本:
[General]
Description=魔兽世界战场挂机脚本V2.0
BeginHotkey=110
beginHotkeyMod=2
RunOnce=0
Enable=1
[Repeat]
Type=1
Number=261152
[Comment]
Content=
[Script]
Rem 选择模式
VBS i=0
VBSCall Call PopBox("请选择是否需要到特定时间关闭游戏",0,"请选择模式",68,ms)
If ms=6
VBSCall hh=InputBox("请输入关闭游戏小时(0-23)必须输入否则请停止脚本")
hh=int(hh)
VBSCall mm=InputBox("请输入关闭游戏分钟(0-59)必须输入否则请停止脚本")
mm=int(mm)
ElseIf ms=7
VBS hh=25
VBS mm=61
Goto 开始
EndIf
Rem 开始
VBS t=time
VBS h=Hour(t)
VBS m=Minute(t)
If ms=6
If h=hh and m=mm
Gosub 关游戏
VBS lvt=time
VBSCall MessageBox("游戏于" & lvt & "被自动关闭。期间共刷了" & i & "场")
EndScript
EndIf
EndIf
Rem 战场脚本
Gosub 进入战场
Gosub 离开战场
If jrx=-1 and lkx=-1
Gosub 战场检测
EndIf
Gosub 跳
Goto 开始
Sub 进入战场
VBSCall Call FindPic(0,0,1023,767,"wowpic\进入战场.bmp",0.9,jrx,jry)
If jrx>=0 and jry>=0
MoveTo jrx jry
Gosub 鼠标单击
Delay 1000
EndIf
Return
Sub 离开战场
VBSCall Call FindPic(0,0,1023,767,"wowpic\离开战场.bmp",0.9,lkx,lky)
If lkx>=0 and lky>=0
VBS i=i+1
MoveTo lkx lky
Gosub 鼠标单击
Delay 1000
EndIf
Return
Sub 跳
Delay 3000
KeyPress 32 1
Delay 2000
Return
Sub 关游戏
KeyDown 18 1
Delay 1000
KeyDown 115 1
Delay 500
KeyUp 115 1
Delay 1000
KeyUp 18 1
Delay 3000
Return 关游戏
Sub 鼠标单击
MoveR 5 5
Delay 500
LeftClick 1
Return
Sub 战场检测
VBSCall Call FindPic(0,0,1023,767,"wowpic\战场图标.bmp",0.9,tbx,tby)
If tbx>=0 and tby>=0
MoveTo tbx+5 tby+5
Delay 500
LeftClick 1
Gosub 离开战场
Else
Gosub 寻找npc
EndIf
Return
Sub 寻找npc
MoveTo 0 0
KeyPressH 86 1
Delay 1000
VBSCall FindPic(0,0,1023,767,"wowpic\npc2.bmp",0.8,npcx,npcy)
If npcx>=0 and npcy>=0
MoveTo npcx-50 npcy+1
RightClick 1
Delay 4000
Gosub 与npc对话
EndIf
Return
Sub 与npc对话
VBSCall FindPic(334,129,348,141,"wowpic\我想去战场.bmp",0.8,dhx,dhy)
If dhx>=0 and dhy>=0
MoveTo 110 258
//上面这个坐标就是战歌“我想去战场”的坐标点,想去大战场只需要更改这个就可以了
LeftClick 1
Delay 4000
VBSCall FindPic(0,0,1023,767,"wowpic\加入战斗.bmp",0.7,jrzdx,jrzdy)
If jrzdx>=0 and jrzdy>=0
MoveTo jrzdx jrzdy
LeftClick 1
Delay 4000
Else
MoveTo 79 285
//上面这个坐标就是盆地“我想去战场”的坐标点
LeftClick 1
Delay 4000
EndIf
VBSCall FindPic(0,0,1023,767,"wowpic\加入战斗.bmp",0.7,jrzdx,jrzdy)
If jrzdx>=0 and jrzdy>=0
MoveTo jrzdx jrzdy
LeftClick 1
Delay 4000
EndIf
KeyPressH 27 1
Goto 开始
Else
KeyPressH 27 1
Delay 1000
Gosub 再次寻找
EndIf
Return
Sub 再次寻找
MoveTo 0 0
VBS y=npcy+9
VBSCall FindPic(0,y,1023,767,"wowpic\npc2.bmp",0.8,npcx,npcy)
If npcx>=0 and npcy>=0
MoveTo npcx-50 npcy+1
RightClick 1
Delay 4000
Gosub 与npc对话
EndIf
Return