此脚本是应朋友的需要开发的，完成有近一个月了，一直没有发表。近日会里有不少朋友问能不能用脚本练会计，为了方便葡萄特将此脚本公布出来。希望能对葡萄有所帮助。
1.设置
设置为1024*768 32位全屏,
F1为调用自定义
自定义中.F7为自定义中的料理(砍价成功11次要110行动力.所以绕一次用三个PS);F1,F2,F3,F4为所练的技能比如运用,望风,测量,警戒,
F11为系统默认的使用技能(用于容错)
2.开始
在波尔图的码头开始.脚本会出海,绕够距离后翻回来.
3.功能说明
a.由于众所周知的原因.网络延迟和暴风雨会导致此脚本失效。里斯本海域必然会出现暴风雨的，所以用此脚本需要定时看一下
b.这个版本除了屏幕分辨率和功能键外，都不需要改，直接调用就可以了。
c.注意社交能加的加满。
d.100W启动资金足够了。
4.感谢
感谢二区五服的郑筝进行了宝贵的测试
国际惯例：二区五服 葡萄牙一号会馆 葡萄牙帝国商会 破红尘
以下为脚本，适用于按键6.03以上的版本
#############################################
# 二区五服 -=破红尘=- 制作 #
# 欢迎使用，请保留此信息 #
#############################################
Rem 主程序开始处
For 9999999
Gosub 补给出港
Delay 1000
Gosub 绕港1
Delay 95000
Gosub 绕港2
Delay 1000
Gosub 找老板
Delay 1000
Gosub 买11次
Delay 1000
Gosub 卖掉
Delay 1000
Gosub 找官员
Delay 1000
EndFor
Rem 主程序结束处
Sub 进港
KeyPress 13
Delay 1000
KeyPress 13
Delay 1000
KeyPress 13
Delay 8000
Return 进港
Sub 找老板
Delay 2000
MoveTo 871 550
Delay 1000
LeftClick 1
Delay 5000
KeyDown 27 1
KeyDown 38 1
Delay 6300
KeyDown 37 1
Delay 1200
KeyUp 37 1
Delay 3600
KeyUp 38 1
For 10
KeyPress 9 1
Delay 1000
IfColor 859 497 ffffff 0
Delay 250
IfColor 892 497 ffffff 0
Delay 250
IfColor 924 508 ffffff 0
Delay 1000
KeyPress 13 1
Delay 2500
KeyPress 13 1
Goto 找老板结束
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找老板结束
KeyUp 27 1
Delay 3000
Return 找老板
Sub 买11次
For 11
MoveTo 870 528
Delay 800
LeftClick 1
Delay 1200
KeyPress 40 1
Delay 800
MoveTo 488 243
Delay 800
LeftClick 1
Delay 800
MoveTo 596 405
Delay 800
LeftClick 1
Delay 800
MoveTo 766 496
Delay 800
LeftClick 1
Delay 1000
EndFor
Return 买11次
Sub 卖掉
MoveTo 903 526
Delay 800
LeftClick 1
Delay 1200
MoveTo 436 153
Delay 800
LeftClick 1
Delay 800
MoveTo 740 497
Delay 800
LeftClick 1
Delay 1000
Return 卖掉
Sub 找官员
KeyDown 40 1
Delay 3000
KeyUp 40 1
KeyDown 39 1
Delay 800
KeyUp 39 1
KeyDown 40 1
Delay 7000
KeyUp 40 1
Delay 1000
RightClick 1
Delay 2000
For 10
KeyPress 9 1
Delay 1000
IfColor 854 498 ffffff 0
Delay 250
IfColor 892 498 ffffff 0
Delay 250
IfColor 904 497 ffffff 0
Delay 1000
KeyPress 13 1
Delay 2000
KeyPress 13 1
Goto 跳出找官员
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 跳出找官员
Delay 1000
MoveTo 869 525
Delay 1500
LeftClick 1
Delay 2000
Return 找官员
Sub 补给出港
Delay 1000
MoveTo 949 525
Delay 1000
LeftClick 1
Delay 1000
MoveTo 492 237
Delay 1000
For 32
LeftClick 1
Delay 200
EndFor
MoveTo 713 462
Delay 1000
LeftClick 1
Delay 1000
KeyPress 27 1
Delay 1000
MoveTo 908 526
Delay 1000
LeftClick 1
Delay 1000
MoveTo 315 431
Delay 1000
LeftClick 1
Delay 1000
MoveTo 719 473
Delay 1000
LeftClick 1
Delay 1000
KeyPress 27 1
Delay 1000
MoveTo 864 526
Delay 1000
LeftClick 1
Delay 1000
MoveTo 755 473
Delay 1000
LeftClick 1
Delay 2200
Return 补给出港
Sub 绕港1
Delay 2000
KeyPress 27 1
Delay 1000
KeyPress 45 1
Delay 1000
For 3
KeyPress 122 1
Delay 1000
KeyPress 112 1
Delay 1000
KeyPress 118 1
Delay 1000
EndFor
KeyPress 122 1
Delay 1000
KeyPress 112 1
Delay 1000
KeyPress 112 1
Delay 1000
KeyPress 122 1
Delay 1000
KeyPress 112 1
Delay 1000
KeyPress 113 1
Delay 1000
KeyPress 122 1
Delay 1000
KeyPress 112 1
Delay 1000
KeyPress 114 1
Delay 1000
KeyPress 122 1
Delay 1000
KeyPress 112 1
Delay 1000
KeyPress 115 1
Delay 1000
Return 绕港
Sub 绕港2
Delay 2000
MoveTo 516 575
Delay 1000
LeftDoubleClick 1
Delay 40000
RightClick 1
Delay 40000
For 100
KeyPress 9 1
Delay 1000
IfColor 861 498 ffffff 0
Delay 250
IfColor 875 499 ffffff 0
Delay 250
IfColor 889 497 ffffff 0
Delay 250
Goto 找波尔图结束
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找波尔图结束
For 20
KeyPress 13 1
Delay 500
EndFor
Return 绕港
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
