魔兽世界奥山单排新领域插件或宏

我建议你可以使用密钥向导,我可以给你一个脚本来尝试。如果有差异,适当修改一下就OK了。

脚本如下:

[脚本]

[color = red][常规]

描述=魔兽世界战场挂机脚本V2.0

BeginHotkey=110

beginHotkeyMod=2

RunOnce=0

启用=1

[重复]

Type=1

号码=261152

[评论]

Content=[/color]

[color=red][Script]

Rem选择模式

VBS i=0

VBSCall调用PopBox("请选择是否在特定时间关闭游戏",0,"请选择一种模式",68,ms)

如果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

转到开始

EndIf

快速眼动开始

VBS时间

VBS h =小时(t)

VBS m =分钟(t)

如果ms=6

如果h=hh且m=mm

Gosub关闭游戏。

VBS lvt =时间

VBS call MessageBox(" & amp in " &;lvt & amp“是自动关闭的。* * *刷期间“&;我& amp“字段”)

EndScript

EndIf

EndIf

Rem战场脚本

Gosub进入战场。

戈苏伯离开了战场

如果jrx=-1并且lkx=-1

战场探测

EndIf

Gosub跳转

转到开始

潜艇进入战场

VBScall调用find pic (0,0,1023,767," wow pic \进入战场。bmp”,0.9,jrx,jry)。

如果jrx & gt=0且jry & gt=0

移动到jrx jry

Gosub鼠标点击

延迟1000

EndIf

返回

潜艇离开了战场

VBScall调用find pic (0,0,1023,767," wow pic \离开战场。bmp”,0.9,lkx,lky)。

如果lkx & gt=0且lky & gt=0

VBS i=i+1

移动到lkx lky

Gosub鼠标点击

延迟1000

EndIf

返回

子跳跃

延迟3000

按键32 1

延迟2000年

返回

子博弈

按键18 1

延迟1000

按键115 1

延迟500

KeyUp 115 1

延迟1000

KeyUp 18 1

延迟3000

退出游戏

子鼠标点击

移动器5 5

延迟500

左键点击1

返回

子战场探测

VBScall调用find pic (0,0,1023,767," wow pic \战地图标。bmp”,0.9,tbx,tby)。

如果tbx & gt=0且tby & gt=0

移动到tbx+5 tby+5

延迟500

左键点击1

戈苏伯离开了战场

其他

Gosub寻找npc

EndIf

返回

寻找npc的潜艇

移动到0 0

按键86 1

延迟1000

VBSCall FindPic(0,0,1023,767," wowpic\npc2.bmp ",0.8,npcx,npcy)

如果npcx & gt=0且npcy & gt=0

移动到npcx-50 npcy+1

右键单击1

延迟4000

Gosub与npc对话

EndIf

返回

Sub和npc之间的对话

VBScall Find PIC (334,129,348,141," Wow PIC \我要上战场。bmp”,0.8,dhx,dhy)。

如果dhx & gt=0且dhy & gt=0

移动到110 258

[color=blue]//上面的坐标是战歌《我要上战场》的坐标点。想上大战场只需要改这个。

[/color] LeftClick 1

延迟4000

VBScall找PIC (0,0,1023,767," WOW PIC \加入战斗。bmp”,0.7,jrzdx,jrzdy)

如果jrzdx & gt=0且jrzdy & gt=0

移动到jrzdx jrzdy

左键点击1

延迟4000

其他

移到79 285

[color=blue]//上面的坐标是盆地中“我要上战场”的坐标点。

[/color] LeftClick 1

延迟4000

EndIf

VBScall找PIC (0,0,1023,767," WOW PIC \加入战斗。bmp”,0.7,jrzdx,jrzdy)

如果jrzdx & gt=0且jrzdy & gt=0

移动到jrzdx jrzdy

左键点击1

延迟4000

EndIf

按键27 1

转到开始

其他

按键27 1

延迟1000

Gosub又搜索了一遍。

EndIf

返回

潜艇再次寻找它

移动到0 0

VBS y=npcy+9

VBSCall FindPic(0,y,1023,767," wowpic\npc2.bmp ",0.8,npcx,npcy)

如果npcx & gt=0且npcy & gt=0

移动到npcx-50 npcy+1

右键单击1

延迟4000

Gosub与npc对话

EndIf

返回[/color]