天龙八部脚本莫愁

2023年4月6日发(作者：win10关闭445端口)[General]

Description=天龙八部完美跑商主义

BeginHotkey=121

BeginHotkeyMod=0

PauseHotkey=0

PauseHotkeyMod=0

StopHotkey=123

StopHotkeyMod=0

RunOnce=1

EnableWindow=

Enable=0

AutoRun=0

[Repeat]

Type=0

Number=1

[Relative]

SetupOCXFile=

[Comment]

Content=【功能说明】

说明:只买卖大米,跑商的玩家都知道大米在94的时候卖价最高,固设为一个标准,94买94卖

①地图可随便修改:hang=*的值为要到达的下个图在自动寻路面板中处于的行数

②玩家初始银票的修改:第一个i=*的值为初始银票价值,第2个i=*的值为回程后需要卖的个数

下面以3金(i=3;i=10)的玩家给出脚本,草原西南→洱海正东





【使用说明】

1,游戏非全屏最大化

2,非聊天状态,英文输入状态,聊天框内不要focus

3,地区地图Tab最小化

4,背包置于材料栏,内无异物,:lol

5,各面板为系统默认状态,未被人为移动

6,帮城与帮城对跑,一趟满票的玩家(完美跑商的条件,:lol ,简单才完美)

7,站在钱为一旁边,点一下钱为一











[Script]

Rem 再来

// =============================================================

Rem 领票

VBSCall FindPic(0,150,260,440,"Attachment:包裹.bmp",0.9,x,y)

If x>0 and y>0

MoveTo x+50,y-90

Delay 1000

LeftClick 2

Delay 1000

Else

Goto 领票

EndIf

Gosub 买东西

// =============================================================

// 从帮会到洱海帮会

// 当前地图本帮帮会

xx=526

yy=572

Gosub gopos

Delay 25000

// 当前地图草原

hang=4

Gosub gopic

Delay 10000

Gosub 过地图

// 当前地图雁南

hang=2

Gosub gopic

Delay 10000

Gosub 过地图

// 当前地图洛阳

hang=3

Gosub gopic

Delay 10000

Gosub 过地图

// 当前地图敦黄

hang=2

Gosub gopic

Delay 10000

Gosub 过地图

// 当前地图剑阁

hang=1

Gosub gopic

Delay 10000

Gosub 过地图

// 当前地图大理

hang=2

Gosub gopic

Delay 10000

Gosub 过地图

// 当前地图洱海

hang=5

Gosub gopic

Delay 10000

Gosub 进城

// 当前地图洱海帮会

xx=659

yy=296

Gosub gopos

Delay 25000

Gosub 找商人

// =============================================================

i=3

Gosub 卖东西

Gosub 买东西

// =============================================================

// 从洱海帮会到本帮帮会

Rem 测试

xx=526

yy=572

Gosub gopos

Delay 25000

hang=2

Gosub gopic

Delay 10000

Gosub 过地图

hang=3

Gosub gopic

Delay 10000

Gosub 过地图

hang=2

Gosub gopic

Delay 10000

Gosub 过地图

hang=3

Gosub gopic

Delay 10000

Gosub 过地图

hang=5

Gosub gopic

Delay 10000

Gosub 过地图

hang=1

Gosub gopic

Delay 10000

Gosub 过地图

hang=5

Gosub gopic

Delay 10000

Gosub 进城

xx=659

yy=296

Gosub gopos

Delay 25000

Gosub 找商人

// ==============================================================

i=10

Gosub 卖东西

// 交票再来

MoveTo x+50,y-65

Delay 1000

LeftClick 2

Delay 2000

Got

o 再来

// ==============================================================

Sub 买东西

Rem 找包

VBSCall FindPic(0,150,260,440,"Attachment:包裹.bmp",0.9,x,y)

If x>0 and y>0

Delay 1000

Else

Goto 找包

EndIf

Rem 打开商店

MoveTo x+50,y+9

Delay 1000

LeftClick 2

Delay 3000

// 买大米,94银的时候买

VBSCall FindPic(340,150,680,450,"Attachment:",1,x6,y6)

If x6>0 and y6>0

MoveTo x6-80,y6-5

Delay 500

Else

Goto 打开商店

EndIf

Rem 买

LeftClick 5

// 检查是否操作过快,是否商品列表已经改变

VBSCall FindPic(300,30,750,150,"Attachment:重.bmp",0.9,x7,y7)

If x7>0 and y7>0

Goto 打开商店

EndIf

// 检查是否用完商票,是否买够

VBSCall FindPic(300,30,750,150,"Attachment:再.bmp",0.9,x8,y8)

If x8>0 and y8>0

Delay 500

Else

Goto 买

EndIf

Return 买东西

Sub 卖东西

Rem 找包1

VBSCall FindPic(0,150,260,440,"Attachment:包裹.bmp",0.9,x,y)

If x>0 and y>0

Delay 1000

Else

Goto 找包1

EndIf

Rem 打开商店1

MoveTo x+50,y+9

Delay 1000

LeftClick 2

Delay 3000

// 卖大米,94银的时候卖

VBSCall FindPic(340,150,680,450,"Attachment:",1,x9,y9)

If x9>0 and y9>0

MoveTo 830,455

Delay 2000

Else

Goto 打开商店1

EndIf

j=0

For i

j=j+1

VBSCall FindPic(300,30,750,150,"Attachment:重.bmp",0.9,x10,y10)

If x10>0 and y10>0

Goto 打开商店1

EndIf

RightClick 3

Delay 1000

If (j Mod 5)=0

MoveR -136,34

Else

MoveR 34,0

EndIf

Delay 2000

EndFor

Return 卖东西

Sub gopos

KeyPress 9,1

Rem 区域

Delay 2000

VBSCall FindPic(377,111,660,140,"Attachment:区域地图.bmp",0.9,x2,y2)

If x2>0 and y2>0

Delay 1000

MoveTo xx,yy

Delay 1000

LeftClick 1

Delay 10000

LeftClick 1

KeyPress 9,1

Else

Goto 区域

EndIf

Return gopos

Sub 过地图

Rem 过图

Delay 3000

VBSCall FindPic(865,250,1024,500,"Attachment:自动寻路(全).bmp",0.9,x4,y4)

If x4>0 and y4>0

Goto 过图

Else

Delay 3000

EndIf

Return 过地图

Sub gopic

KeyPress 192,1

Rem 找全

Delay 2000

VBSCall FindPic(865,250,1024,500,"Attachment:自动寻路(全).bmp",0.9,x3,y3)

If x3>0 and y3>0

Delay 1000

MoveTo x3+64,y3+44+(hang-1)*16

Delay 1000

LeftClick 2

Delay 1000

MoveTo x3+64,y3+210

Delay 500

LeftClick 1

Delay 10000

LeftClick 1

Else

Goto 找全

EndIf

Return gopic

Sub 进城

Rem 过城

Delay 30

00

VBSCall FindPic(0,150,200,300,"Attachment:城市",1,x1,y1)

If x1>0 and y1>0

Delay 1000

MoveTo x1,y1+5

Delay 1000

LeftClick 2

Delay 3000

Else

Goto 过城

EndIf

Return 进城

Sub 找商人

Rem 找人

Delay 2000

VBSCall FindPic(345,145,630,460,"Attachment:钱为一.bmp",0.9,x5,y5)

If x5>0 and y5>0

MoveTo x5,y5+84

Delay 2000

VBSCall Shape=GetCursorShape(0)

If Shape = 302826352

Delay 2000

LeftClick 2

Else

Goto 找人

EndIf

Else

Goto 找人

EndIf

Return 找商人