oracle exp-电脑关机很慢
![天龙八部脚本莫愁](/uploads/image/0362.jpg)
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 找商人
更多推荐
天龙八部脚本莫愁
发布评论