奥德萨后台造船脚本v1.0
作者：破红尘 获得积分： Z 投稿总数： 篇
网上造船的脚本有很多种,大部分需要修改,
本文提供的也一样,我会把需要修改的地方详细地给大家介绍一下,方便大家制作适合自己机器的造船脚本
1.按键精灵版本6.03以上,我是在6.03上开发的
2.地点是黑海奥德萨,这个地方的好处是商业地区的码头导航员和造船厂老板在一起,两点之间距离少,出错机会也少.
3.屏幕设置为1024*768,你也可以试试其它的.
4.游戏用800*600窗口,并放置到左上角.具体位置如下:
左边:游戏窗口的边框白线和显示器左边对齐.上边:游戏窗口标题栏的"大航海时代"五个字的上边线与显示器上边对齐. 如果这个位置改好了,脚本里面大部分按键坐标就不需要动了.
5.使用按键精灵的抓点抓色功能.抓四个点将下面四行的坐标更换了
142行 IfColor 633 362 ffffff 0
144行 IfColor 702 364 ffffff 0
232行 IfColor 631 359 ffffff 0
234行 IfColor 700 363 ffffff 0
上面这四行的意思是判断所取的点的坐标的颜色是不是白色.大航海里面NPC的名字的颜色都是白色字体,你在使用抓点抓色功能时,只要鼠标移到某个点.某个点的颜色和坐标就会显示出来. 在这里建议大家抓白色的点.这样只用改坐标就行了.
142行与144行,是抓"造船厂老板"五个字中两个字白色的点的坐标,你可以抓任意两个字的任意笔划,抓两个字是避免出现特例,比如有个玩家的名字叫"造船大神",而你抓的是造字.那么就可能选中玩家而不是造船厂老板.
232行和234行,同理,抓的是"码头导航员"的坐标
抓好点.把源文件中的142,144,232,234行更换为新坐标即可.
6.启动要求:
首先保证有两条船.然后在奥德萨造个1200的船,出港
出港后选择好奥德萨,等够两天
两天过了以后.按启动键,开始启动.为了避免在后台运行过程中,由于使用了脚本启动和停止的快捷键而导致脚本的错误,我设定的"]" 为开始键, "["为停止键.
*对于只有一条船的玩家.你当然可以买一条2000的,然后再从第一步开始做了.
7.造一次船会得到一张2号奖卷,卖一张也可以得一张.这个脚本设定的是按F8调出自定义栏,再按F8把奖卷给抽了.只抽一张.原因是,第一次自动造船后只能得一张,如果抽两张会出错.那么没有抽的奖卷会累计,200张约需要1600分钟,需要26小时左右.一般挂机这个时间足够你进行处理了.
8. 挂机的时候带够钱,但是不要太多.一个小时花30W左右.如果你挂20个小时,带600W足够了.
(我在测试挂机脚本的时候,带了800W,出去办个事,回来发现脚本出了问题,船进了黑海海域,被NPC做掉,损失了一半,虽然15级保险补回200多W,但还是有损失)
9. 本脚本支持后台运行,后台运行期间,你可以做任何事情,看电影,玩其它号之类的,但注意当脚本提示你不要动鼠标和键盘的时候,你静等两分钟左右即可.
10.本脚本系本人在原有前台版本基础上调试而成的,感谢原作者,并请各位船匠在使用时不用更换标题信息,支持原创.谢谢!!
下面是脚本,复制后贴到原文
#这是按键精灵生成的脚本源文件
#F8设置打开自定义栏,F8放置2号奖卷
# "]" 开始 "["停止
#要注意取四个白色的点.分别是"造船厂老板"和"码头导航员"五个字中的任意两个位置的点, 并把144行146行改成你取到的造船厂老板的坐标, 并把232行,234行改成你取到的码头导航员的坐标.
dim Obj,CI,HI.W
set Obj = createobject("WScript.Shell")
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 1000
Tishi="开始后台运行了....窗口会自动最小化"
//这个提示的话语可以自己修改，别把双引号搞没了就行。
Gosub 提示Tishi
Plugin Window.Min(hwnd)
Delay 1000
Rem 主程序开始处
For 9999999
MoveTo 30 30
Delay 300
Gosub 激活窗口
Delay 2000
MoveTo 30 30
Delay 300
Gosub 进港
Delay 1000
MoveTo 30 30
Delay 300
Gosub 找老板
Delay 1000
MoveTo 30 30
Delay 300
Gosub 卖第3船
Delay 1000
MoveTo 30 30
Delay 300
Gosub 造船
Delay 1000
MoveTo 30 30
Delay 300
Gosub 找官员
Delay 1000
MoveTo 30 30
Delay 300
Gosub 补给出港
Delay 1000
MoveTo 30 30
Delay 300
Gosub 返回窗口
Delay 360000
EndFor
Rem 主程序结束处
Sub 激活窗口
Rem 激活窗口程序开始
Plugin Window.Foreground(hwnd)
Delay 300
Tishi="从现在开始，不要动键盘和鼠标！,两分钟后窗口会最小化"
//这个提示的话语可以自己修改，别把双引号搞没了就行。
Delay 300
Gosub 提示Tishi
Delay 300
Plugin Window.Active(hwnd)
Delay 600
Plugin Window.Restore(hwnd)
Delay 600
Rem 激活窗口程序结束
Return 激活窗口
Rem 子程序5
Sub 返回窗口
Rem 返回窗口程序开始
Tishi="操作完毕，你可以继续工作了！窗口会自动最小化"
//这个提示的话语可以自己修改，别把双引号搞没了就行。
Gosub 提示Tishi
Delay 300
Plugin Window.Min(hwnd)
Delay 600
Rem 返回窗口程序结束
Return 返回窗口
Rem 子程序6
Sub 提示Tishi
Rem 提示程序开始
VBSCall TiShiObj.Popup(Tishi,5,"奥德萨造船后台运行版本,二区五服破红尘制作",0)
//这个提示的话语（双引号内的）可以自己修改，别把双引号搞没了就行。
Delay 300
Rem 提示程序结束
Return 提示Tshi
Sub 补给出港
Delay 1000
MoveTo 689 381
Delay 1000
LeftClick 1
Delay 1000
MoveTo 182 375
Delay 1000
LeftClick 1
Delay 1000
MoveTo 604 417
Delay 1000
LeftClick 1
Delay 1000
MoveTo 650 381
Delay 1000
LeftClick 1
Delay 1000
MoveTo 642 409
Delay 1000
LeftClick 1
//出港等待(使用技能)
Delay 5200
KeyPress 27 2
Delay 100
//把奖卷用了
KeyPress 119 1
Delay 1000
KeyPress 119 1
Delay 1000
KeyDown 17
KeyDown 39
Delay 3000
KeyUp 39
KeyUp 17
Delay 100
KeyDown 16
Delay 50
KeyPress 9
Delay 100
KeyPress 9
Delay 50
KeyUp 16
Return 补给出港
Sub 进港
KeyPress 13
Delay 1000
KeyPress 13
Delay 1000
KeyPress 13
Delay 8000
Return 进港
Sub 找老板
MoveTo 733 406
Delay 1000
LeftClick 1
Delay 5000
KeyDown 38 1
Delay 2000
KeyUp 38 1
For 10
KeyPress 9 1
Delay 1000
IfColor 633 362 ffffff 0
Delay 250
IfColor 702 364 ffffff 0
Delay 1000
KeyPress 13 1
Delay 2500
KeyPress 13 1
Goto 找老板结束
Else
EndIf
Else
EndIf
EndFor
Rem 找老板结束
Delay 3000
Return 找老板
Sub 卖第3船
MoveTo 651 382
Delay 1500
LeftClick 1
Delay 1500
MoveTo 733 380
Delay 1500
LeftClick 1
Delay 1500
MoveTo 139 266
Delay 1500
LeftClick 1
Delay 1500
MoveTo 612 421
Delay 1500
LeftClick 1
Delay 1500
MoveTo 372 278
Delay 1500
LeftClick 1
Delay 5000
Return 卖第3船
Sub 造船
MoveTo 651 380
Delay 20
LeftClick 0
Delay 3500
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 13
Delay 400
KeyPress 13
Delay 400
MoveTo 624 432
Delay 50
LeftClick 0
Delay 300
MoveTo 119 121
Delay 500
LeftClick 1
Delay 500
KeyPress 70 6
Delay 500
MoveTo 626 432
Delay 500
LeftClick 0
Delay 6800
Return 造船
Sub 找官员
KeyDown 40 1
Delay 5000
KeyUp 40 1
Delay 1000
MoveTo 346 231
Delay 1000
RightClick 1
Delay 2000
For 10
KeyPress 9 1
Delay 1000
IfColor 631 359 ffffff 0
Delay 250
IfColor 700 363 ffffff 0
Delay 1000
KeyPress 13 1
Delay 2000
KeyPress 13 1
Goto 跳出找官员
Else
EndIf
Else
EndIf
EndFor
Rem 跳出找官员
Delay 1000
MoveTo 652 380
Delay 1500
LeftClick 1
Delay 8000
Return 找官员
二区五服:破红尘 葡萄牙帝国商会欢迎你的加入
本文提供的也一样,我会把需要修改的地方详细地给大家介绍一下,方便大家制作适合自己机器的造船脚本
1.按键精灵版本6.03以上,我是在6.03上开发的
2.地点是黑海奥德萨,这个地方的好处是商业地区的码头导航员和造船厂老板在一起,两点之间距离少,出错机会也少.
3.屏幕设置为1024*768,你也可以试试其它的.
4.游戏用800*600窗口,并放置到左上角.具体位置如下:
左边:游戏窗口的边框白线和显示器左边对齐.上边:游戏窗口标题栏的"大航海时代"五个字的上边线与显示器上边对齐. 如果这个位置改好了,脚本里面大部分按键坐标就不需要动了.
5.使用按键精灵的抓点抓色功能.抓四个点将下面四行的坐标更换了
142行 IfColor 633 362 ffffff 0
144行 IfColor 702 364 ffffff 0
232行 IfColor 631 359 ffffff 0
234行 IfColor 700 363 ffffff 0
上面这四行的意思是判断所取的点的坐标的颜色是不是白色.大航海里面NPC的名字的颜色都是白色字体,你在使用抓点抓色功能时,只要鼠标移到某个点.某个点的颜色和坐标就会显示出来. 在这里建议大家抓白色的点.这样只用改坐标就行了.
142行与144行,是抓"造船厂老板"五个字中两个字白色的点的坐标,你可以抓任意两个字的任意笔划,抓两个字是避免出现特例,比如有个玩家的名字叫"造船大神",而你抓的是造字.那么就可能选中玩家而不是造船厂老板.
232行和234行,同理,抓的是"码头导航员"的坐标
抓好点.把源文件中的142,144,232,234行更换为新坐标即可.
6.启动要求:
首先保证有两条船.然后在奥德萨造个1200的船,出港
出港后选择好奥德萨,等够两天
两天过了以后.按启动键,开始启动.为了避免在后台运行过程中,由于使用了脚本启动和停止的快捷键而导致脚本的错误,我设定的"]" 为开始键, "["为停止键.
*对于只有一条船的玩家.你当然可以买一条2000的,然后再从第一步开始做了.
7.造一次船会得到一张2号奖卷,卖一张也可以得一张.这个脚本设定的是按F8调出自定义栏,再按F8把奖卷给抽了.只抽一张.原因是,第一次自动造船后只能得一张,如果抽两张会出错.那么没有抽的奖卷会累计,200张约需要1600分钟,需要26小时左右.一般挂机这个时间足够你进行处理了.
8. 挂机的时候带够钱,但是不要太多.一个小时花30W左右.如果你挂20个小时,带600W足够了.
(我在测试挂机脚本的时候,带了800W,出去办个事,回来发现脚本出了问题,船进了黑海海域,被NPC做掉,损失了一半,虽然15级保险补回200多W,但还是有损失)
9. 本脚本支持后台运行,后台运行期间,你可以做任何事情,看电影,玩其它号之类的,但注意当脚本提示你不要动鼠标和键盘的时候,你静等两分钟左右即可.
10.本脚本系本人在原有前台版本基础上调试而成的,感谢原作者,并请各位船匠在使用时不用更换标题信息,支持原创.谢谢!!
下面是脚本,复制后贴到原文
#这是按键精灵生成的脚本源文件
#F8设置打开自定义栏,F8放置2号奖卷
# "]" 开始 "["停止
#要注意取四个白色的点.分别是"造船厂老板"和"码头导航员"五个字中的任意两个位置的点, 并把144行146行改成你取到的造船厂老板的坐标, 并把232行,234行改成你取到的码头导航员的坐标.
dim Obj,CI,HI.W
set Obj = createobject("WScript.Shell")
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 1000
Tishi="开始后台运行了....窗口会自动最小化"
//这个提示的话语可以自己修改，别把双引号搞没了就行。
Gosub 提示Tishi
Plugin Window.Min(hwnd)
Delay 1000
Rem 主程序开始处
For 9999999
MoveTo 30 30
Delay 300
Gosub 激活窗口
Delay 2000
MoveTo 30 30
Delay 300
Gosub 进港
Delay 1000
MoveTo 30 30
Delay 300
Gosub 找老板
Delay 1000
MoveTo 30 30
Delay 300
Gosub 卖第3船
Delay 1000
MoveTo 30 30
Delay 300
Gosub 造船
Delay 1000
MoveTo 30 30
Delay 300
Gosub 找官员
Delay 1000
MoveTo 30 30
Delay 300
Gosub 补给出港
Delay 1000
MoveTo 30 30
Delay 300
Gosub 返回窗口
Delay 360000
EndFor
Rem 主程序结束处
Sub 激活窗口
Rem 激活窗口程序开始
Plugin Window.Foreground(hwnd)
Delay 300
Tishi="从现在开始，不要动键盘和鼠标！,两分钟后窗口会最小化"
//这个提示的话语可以自己修改，别把双引号搞没了就行。
Delay 300
Gosub 提示Tishi
Delay 300
Plugin Window.Active(hwnd)
Delay 600
Plugin Window.Restore(hwnd)
Delay 600
Rem 激活窗口程序结束
Return 激活窗口
Rem 子程序5
Sub 返回窗口
Rem 返回窗口程序开始
Tishi="操作完毕，你可以继续工作了！窗口会自动最小化"
//这个提示的话语可以自己修改，别把双引号搞没了就行。
Gosub 提示Tishi
Delay 300
Plugin Window.Min(hwnd)
Delay 600
Rem 返回窗口程序结束
Return 返回窗口
Rem 子程序6
Sub 提示Tishi
Rem 提示程序开始
VBSCall TiShiObj.Popup(Tishi,5,"奥德萨造船后台运行版本,二区五服破红尘制作",0)
//这个提示的话语（双引号内的）可以自己修改，别把双引号搞没了就行。
Delay 300
Rem 提示程序结束
Return 提示Tshi
Sub 补给出港
Delay 1000
MoveTo 689 381
Delay 1000
LeftClick 1
Delay 1000
MoveTo 182 375
Delay 1000
LeftClick 1
Delay 1000
MoveTo 604 417
Delay 1000
LeftClick 1
Delay 1000
MoveTo 650 381
Delay 1000
LeftClick 1
Delay 1000
MoveTo 642 409
Delay 1000
LeftClick 1
//出港等待(使用技能)
Delay 5200
KeyPress 27 2
Delay 100
//把奖卷用了
KeyPress 119 1
Delay 1000
KeyPress 119 1
Delay 1000
KeyDown 17
KeyDown 39
Delay 3000
KeyUp 39
KeyUp 17
Delay 100
KeyDown 16
Delay 50
KeyPress 9
Delay 100
KeyPress 9
Delay 50
KeyUp 16
Return 补给出港
Sub 进港
KeyPress 13
Delay 1000
KeyPress 13
Delay 1000
KeyPress 13
Delay 8000
Return 进港
Sub 找老板
MoveTo 733 406
Delay 1000
LeftClick 1
Delay 5000
KeyDown 38 1
Delay 2000
KeyUp 38 1
For 10
KeyPress 9 1
Delay 1000
IfColor 633 362 ffffff 0
Delay 250
IfColor 702 364 ffffff 0
Delay 1000
KeyPress 13 1
Delay 2500
KeyPress 13 1
Goto 找老板结束
Else
EndIf
Else
EndIf
EndFor
Rem 找老板结束
Delay 3000
Return 找老板
Sub 卖第3船
MoveTo 651 382
Delay 1500
LeftClick 1
Delay 1500
MoveTo 733 380
Delay 1500
LeftClick 1
Delay 1500
MoveTo 139 266
Delay 1500
LeftClick 1
Delay 1500
MoveTo 612 421
Delay 1500
LeftClick 1
Delay 1500
MoveTo 372 278
Delay 1500
LeftClick 1
Delay 5000
Return 卖第3船
Sub 造船
MoveTo 651 380
Delay 20
LeftClick 0
Delay 3500
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 40
Delay 100
KeyPress 13
Delay 400
KeyPress 13
Delay 400
MoveTo 624 432
Delay 50
LeftClick 0
Delay 300
MoveTo 119 121
Delay 500
LeftClick 1
Delay 500
KeyPress 70 6
Delay 500
MoveTo 626 432
Delay 500
LeftClick 0
Delay 6800
Return 造船
Sub 找官员
KeyDown 40 1
Delay 5000
KeyUp 40 1
Delay 1000
MoveTo 346 231
Delay 1000
RightClick 1
Delay 2000
For 10
KeyPress 9 1
Delay 1000
IfColor 631 359 ffffff 0
Delay 250
IfColor 700 363 ffffff 0
Delay 1000
KeyPress 13 1
Delay 2000
KeyPress 13 1
Goto 跳出找官员
Else
EndIf
Else
EndIf
EndFor
Rem 跳出找官员
Delay 1000
MoveTo 652 380
Delay 1500
LeftClick 1
Delay 8000
Return 找官员
二区五服:破红尘 葡萄牙帝国商会欢迎你的加入
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
