很多人找我要专门的会计脚本,今天在过去写的三角脚本基础上改写了一个.为了方便下载,放弃了过去的图识别而改用色识别系统(改写过程中没赶上暴风,所以那个还是图,以前有图的还可以用,没图的也没关系只是无力对抗暴风,其他功能不受影响).脚本中放弃了延时设计,全部用的色识别以达到不受网络环境影响直逼最高效率的目的.同时对陆人NPC,海上玩家和NPC都进行了免干扰处理,经过本人9小时测试,未发现不稳定因素,发出来希望能对大家有所帮助.
功能介绍:
1.全自动跑巴塞-帕尔玛.
2.砍抬价识别系统:成功一次时买入或卖出.直到砍抬价黑时结束.
3.每次最少量买入第一种商品.
4.出港前暴风停3分,出海后转向前暴风下线,出海并转向后暴风停船3分后继续.
5.此脚本是在老三角脚本的基础上改写而成,脚本考虑到网络和NPC走动情况有多处纠错处理.
鸿鹄三角会计说明:
1.火图解压直接把解好的包放E:\下,例如E:\火图\1.BMP.
2.电脑分辩率1024*768,游戏分辩率1024*768全屏幕(经测试16位或32位没影响).
3.快捷键登陆中其他键设为没有登陆,F10设为自定义栏,自定义中F1料理,F2运用,F3望风,F4钓鱼,F5修理,F6操帆,F8测量.
4.在码头补给处提前保存一个补给定量,例如本人运用7级开商44带64人的定量为7水7粮2木1弹,可根据自己情况设置.
5.开始:巴塞买完东西进入码头后点运行脚本.
6.显示设置恢复系统默认.
作者:鸿鹄
[General]
Description=鸿鹄三角会计
BeginHotkey=189
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
Delay 400
Gosub 巴塞罗那到帕尔玛
Sub 巴塞罗那
MoveTo 859,545
Delay 99
LeftDoubleClick 1
Rem 巴城
Delay 400
IfColor 740,13,fbfeff,2
Else
Gosub 巴城
EndIf
Gosub 调整视角
KeyDown 27,1
Delay 99
For 80
MoveTo 495,302
LeftClick 1
Delay 150
Gosub 列宁同志先行
EndFor
Gosub 巴交易
KeyDown 27,1
For 75
MoveTo 519,490
LeftClick 1
Delay 150
Gosub 列宁同志先行
EndFor
For 35
MoveTo 625,399
LeftClick 1
Delay 150
Gosub 列宁同志先行
EndFor
For 27
MoveTo 539,498
LeftClick 1
Delay 150
Gosub 列宁同志先行
EndFor
Rem 巴码头
KeyPress 9,1
IfColor 907,496,ffffff,2
IfColor
908,497,ffffff,2
Goto 巴出航
EndIf
EndIf
Delay 400
Goto 巴码头
Rem 巴出航
KeyPress 13,2
IfColor 882,527,efe474,2
MoveTo 882,527
Delay 77
LeftClick 1
MoveTo 0,0
Else
Delay 400
Goto 巴出航
EndIf
Gosub 码头黑屏
Gosub 巴塞罗那到帕尔玛
Return 巴塞罗那
Sub 巴塞罗那到帕尔玛
// 补给
MoveTo 907,527
Delay 77
LeftClick 1
// 补给保存量亮
Rem 补给保存量
Delay 200
IfColor 230,429,ffffff,2
Else
Goto 补给保存量
EndIf
MoveTo 230,429
Delay 77
LeftClick 1
Delay 400
MoveTo 694,471
Delay 77
LeftClick 1
Delay 200
MoveTo 0,0
Rem 等补给
Delay 400
Shape1 = 2106545426
VBSCall Shape=GetCursorShape(0)
If shape = shape1
Else
Goto 等补给
EndIf
KeyPress 27,2
Rem 等补给完成
// 码头广场亮
Delay 400
IfColor 859,545,ffffff,2
Else
Goto 等补给完成
EndIf
// 点出航
Delay 200
MoveTo 864,525
Delay 77
LeftDoubleClick 3
Rem 出巴码
Delay 200
// 确认出航亮
IfColor 733,465,ffffff,2
Else
Goto 出巴码
EndIf
VBSCall
FindPic(0,0,1024,768,"e:\火图\外面暴风.bmp",0.8,u,v)
If u>=0 and v>=0
Delay 180000
EndIf
MoveTo 733,465
Delay 77
LeftDoubleClick 1
Rem 巴出海
Delay 200
// 航行0天亮
IfColor 25,25,ffffff,2
Else
Goto 巴出海
EndIf
Gosub 调整视角
Delay 99
MoveTo 717,59
Delay 99
LeftDoubleClick 1
Delay 500
MoveTo 717,59
Delay 50
LeftDoubleClick 1
Delay 500
KeyPress 45,1
Delay 500
KeyPress 45,1
Delay 500
MoveTo 717,59
Delay 50
LeftDoubleClick 1
KeyPress 121,1
Delay 2200
KeyPress 117,1
Delay 1000
MoveTo 717,59
Delay 50
LeftDoubleClick 1
Delay 200
Rem 吃料理
IfColor 122,115,f77df7,2
Goto 吃完
Else
KeyPress 121,1
Delay 2200
KeyPress 112,1
Delay 1200
EndIf
Goto 吃料理
Rem 吃完
MoveTo 717,59
Delay 50
LeftDoubleClick 1
Delay 200
KeyPress 121,1
Delay 2200
KeyPress 113,1
Delay 1200
KeyPress 121,1
Delay 2200
KeyPress 114,1
Delay 1200
KeyPress 121,1
Delay 2200
KeyPress 115,1
Delay 1200
KeyPress 121,1
Delay 2200
KeyPress 116,1
Delay 2000
Gosub 暴风
Delay 1000
KeyPress 27,2
KeyPress 36,2
Delay 1000
KeyPress 36,2
Delay 1000
KeyDown 38,1
KeyDown 17,1
Delay 2000
KeyUp 38,1
KeyUp 17,1
Delay 1000
Rem 寻找帕港
// 头亮
IfColor 9,17,ffffff,2
IfColor
859,545,ffffff,2
Delay 400
MoveTo 859,545
Delay 77
LeftClick 1
Else
Goto 寻找帕港
EndIf
Gosub 帕尔玛
Else
Gosub 寻找
Goto 寻找帕港
EndIf
Return 巴塞-帕
Sub 帕尔玛
Rem 舰队亮
Delay 200
IfColor 740,13,fbfeff,2
Else
Gosub 舰队亮
EndIf
Gosub 调整视角
KeyDown 27,1
Delay 400
For 45
MoveTo 490,299
LeftClick 1
Delay 170
Gosub 列宁同志先行
EndFor
For 20
MoveTo 626,392
LeftClick 1
Delay 150
Gosub 列宁同志先行
EndFor
For 20
MoveTo 458,314
LeftClick 1
Delay 150
Gosub 列宁同志先行
EndFor
Rem 找帕老头
KeyPress 9,1
Delay 200
// 板亮
IfColor 923,496,ffffff,2
Else
Goto 找帕老头
EndIf
KeyPress 13,1
Delay 200
Rem 点帕卖
// X亮
IfColor 979,545,ffffff,2
MoveTo 899,521
Delay 77
LeftClick 1
Else
Goto 点帕卖
EndIf
KeyUp 27,1
Rem 帕一抬卖
// 成亮
IfColor 231,401,ffffff,2
// 全部卖出
MoveTo 402,149
Delay 200
LeftClick 1
Else
Delay 200
Goto 帕一抬卖
EndIf
Rem 帕抬
Delay 200
// 确定亮
IfColor 722,491,ffffff,2
MoveTo 542,399
Delay 77
LeftClick 1
Else
Goto 帕抬
EndIf
// 判断成功失败
For 30
Delay 200
IfColor
531,207,deffff,2
Goto 帕卖确定
EndIf
IfColor
540,206,deffff,2
Goto 帕抬
EndIf
EndFor
Rem 帕卖确定
MoveTo 722,491
Delay 200
LeftClick 1
Rem 帕买
Delay 400
//金键头
Shape1 = 2106545426
VBSCall Shape=GetCursorShape(0)
If shape = shape1
Delay 400
Goto 点击帕买
Else
Goto 帕买
EndIf
Rem 点击帕买
IfColor 979,545,ffffff,2
IfColor
859,521,f8f7f7,2
MoveTo 859,521
Delay 77
LeftClick 1
Else
Goto 帕买
EndIf
Else
Goto 帕买
EndIf
Rem 帕进货
Delay 400
IfColor 173,22,ffffff,2
IfColor
507,261,ffffff,2
MoveTo 507,261
Delay 100
LeftDoubleClick 1
Else
Goto 帕进货
EndIf
Else
Goto 帕进货
EndIf
Rem 帕砍
IfColor 572,400,ffffff,2
MoveTo 572,400
Delay 77
LeftClick 1
Else
Goto 帕买确定
EndIf
For 30
Delay 200
IfColor
531,207,deffff,2
MoveTo 752,490
Delay 77
LeftClick 1
Delay 400
Goto 帕买
EndIf
IfColor
540,206,deffff,2
Goto 帕砍
EndIf
EndFor
Rem 帕买确定
MoveTo 752,490
Delay 77
LeftClick 1
Delay 400
Rem 下
KeyPress 27,4
KeyDown 27,1
Delay 700
For 25
MoveTo 566,470
LeftClick 1
Delay 170
Gosub 列宁同志先行
EndFor
For 20
MoveTo 398,396
LeftClick 1
Delay 170
Gosub 列宁同志先行
EndFor
For 50
MoveTo 540,502
LeftClick 1
Delay 190
Gosub 列宁同志先行
EndFor
Rem 码头
KeyPress 9,1
IfColor 907,496,ffffff,2
IfColor
908,497,ffffff,2
Goto 出航
EndIf
EndIf
Delay 400
Goto 码头
Rem 出航
KeyPress 13,2
IfColor 882,527,efe474,2
MoveTo 882,527
Delay 77
LeftClick 1
MoveTo 0,0
Else
Delay 400
Goto 出航
EndIf
Gosub 码头黑屏
Gosub 帕尔玛到巴塞罗那
Return 帕尔玛
Sub 帕尔玛到巴塞罗那
Delay 200
MoveTo 859,521
Delay 77
LeftClick 1
Rem 帕出海
Delay 400
IfColor 733,465,ffffff,2
Else
Goto 帕出海
EndIf
VBSCall
FindPic(0,0,1024,768,"e:\火图\外面暴风.bmp",0.8,w,z)
If w>=0 and z>=0
Delay 180000
EndIf
MoveTo 733,465
Delay 77
LeftDoubleClick 1
Rem 帕海上
Delay 400
IfColor 25,25,ffffff,2
Else
Goto 帕海上
EndIf
Gosub 调整视角
Delay 99
MoveTo 937,279
Delay 99
LeftDoubleClick 1
Delay 500
MoveTo 937,279
Delay 99
LeftDoubleClick 1
Delay 500
KeyPress 45,1
Delay 1000
KeyPress 45,1
Delay 1000
MoveTo 937,279
Delay 50
LeftDoubleClick 1
Delay 200
KeyPress 121,1
Delay 2200
KeyPress 117,1
Delay 1000
MoveTo 937,279
Delay 50
LeftDoubleClick 1
Delay 200
KeyPress 121,1
Delay 2200
KeyPress 113,1
Delay 1200
KeyPress 121,1
Delay 2200
KeyPress 114,1
Delay 1000
MoveTo 937,279
Delay 50
LeftDoubleClick 1
Delay 500
KeyPress 121,1
Delay 2200
KeyPress 119,1
Delay 1200
KeyPress 121,1
Delay 2200
KeyPress 116,1
Delay 2000
Gosub 暴风
Delay 1000
KeyPress 27,2
KeyPress 36,2
Delay 1000
KeyPress 36,2
Delay 1000
KeyDown 38,1
KeyDown 17,1
Delay 2000
KeyUp 38,1
KeyUp 17,1
Delay 1000
Rem 寻找巴港
Delay 200
IfColor 9,17,ffffff,2
IfColor
859,545,ffffff,2
Gosub 巴塞罗那
EndIf
EndIf
Gosub 寻找
Goto 寻找巴港
Return 帕一巴塞
Sub 寻找
KeyPress 9,1
KeyPress 13,2
Delay 20
Gosub 风雨无阻
Return 寻找
Sub 风雨无阻
VBSCall
FindPic(960,730,996,766,"e:\火图\暴风.bmp",0.9,o,p)
If o>=0 and p>=0
KeyPress 27,3
KeyPress 46,3
Delay 180000
KeyDown 17,1
KeyDown 40,1
Delay 3000
KeyUp 40,1
KeyUp 17,1
MoveTo 512,192
Delay 77
LeftDoubleClick 1
Delay 500
KeyPress 45,2
Delay 500
KeyDown 38,1
KeyDown 17,1
Delay 2000
KeyUp 38,1
KeyUp 17,1
EndIf
Return 暴风下线
Sub 暴风
VBSCall
FindPic(960,730,996,766,"e:\火图\暴风.bmp",0.9,o,p)
If o>=0 and p>=0
KeyPress 27,3
KeyPress 46,3
Delay 50
KeyDown 17,1
KeyPress 76,1
KeyUp 17,1
Delay 200
KeyPress 13,1
Delay 300000
KeyPress 123,1
EndIf
Return 暴风
Sub 列宁同志先行
IfColor 940,501,ffffff,2
IfColor
927,506,ffffff,2
Delay 700
Gosub 列宁同志先行
EndIf
EndIf
Return 列宁同志先行
Sub 调整视角
KeyDown 34,1
Delay 1000
KeyUp 34,1
Delay 100
KeyDown 17,1
KeyDown 40,1
Delay 3000
KeyUp 40,1
KeyUp 17,1
Return 调整视角
Sub 巴交易
Rem 找巴老头
KeyPress 9,1
Delay 200
// 板亮
IfColor 923,496,ffffff,2
Else
Goto 找巴老头
EndIf
KeyPress 13,1
Delay 200
Rem 点巴卖
// X亮
IfColor 979,545,ffffff,2
MoveTo 899,521
Delay 77
LeftClick 1
Else
Goto 点巴卖
EndIf
KeyUp 27,1
Rem 巴一抬卖
// 成亮
IfColor 231,401,ffffff,2
// 全部卖出
MoveTo 402,149
Delay 200
LeftClick 1
Else
Delay 200
Goto 巴一抬卖
EndIf
Rem 巴抬
Delay 200
// 确定亮
IfColor 722,491,ffffff,2
MoveTo 542,399
Delay 200
LeftClick 1
Else
Goto 巴抬
EndIf
// 判断成功失败
For 30
Delay 200
IfColor
531,207,deffff,2
Goto 巴卖确定
EndIf
IfColor
540,206,deffff,2
Goto 巴抬
EndIf
EndFor
Rem 巴卖确定
MoveTo 722,491
Delay 200
LeftClick 1
Rem 巴买
Delay 400
//金键头
Shape1 = 2106545426
VBSCall Shape=GetCursorShape(0)
If shape = shape1
Delay 400
Goto 点击巴买
Else
Goto 巴买
EndIf
Rem 点击巴买
IfColor 979,545,ffffff,2
IfColor
859,521,f8f7f7,2
MoveTo 859,521
Delay 200
LeftClick 1
Else
Goto 巴买
EndIf
Else
Goto 巴买
EndIf
Rem 巴进货
Delay 400
IfColor 173,22,ffffff,2
IfColor
507,261,ffffff,2
MoveTo 507,261
Delay 100
LeftDoubleClick 1
Else
Goto 巴进货
EndIf
Else
Goto 巴进货
EndIf
Rem 巴砍
IfColor 572,400,ffffff,2
MoveTo 572,400
Delay 200
LeftClick 1
Else
Goto 巴买确定
EndIf
For 30
Delay 200
IfColor
531,207,deffff,2
MoveTo 752,490
Delay 200
LeftClick 1
Delay 200
Goto 巴买
EndIf
IfColor
540,206,deffff,2
Goto 巴砍
EndIf
EndFor
Rem 巴买确定
MoveTo 752,490
Delay 200
LeftClick 1
Delay 400
Return 巴交易
Sub 码头黑屏
Rem 黑屏
Delay 400
IfColor 859,545,ffffff,2
IfColor
740,13,8e9090,2
Goto 就绪
EndIf
EndIf
Goto 黑屏
Rem 就绪
Return 码头黑屏
