呵呵，很多朋友喜欢用终极啊，惊天啊等等辞藻来形容某些事务。想想看，如果级那么容易终，还叫级吗？如果天那么容易惊，还算得上天吗？哈哈。
那么你看看下面的脚本功能：
1.自动判断角色位置（港口，码头，海上）而执行相应的任务
2.自动补给
3.自动使用技能
4.漂副官并定期更换岗位
5.判断暴风并抛锚
6.定时进港
7.休息处老板处补给
8.自动开奖卷
9.位置异常自动下线
.....
鉴于还没到本人完全公开造船脚本的时机，因此先公布部分脚本，仅仅是想让大家知道，什么才有资格称得上是脚本。
//定时关机
Sub 定时关机
If TimeShutDownSet <> 1
Goto 定时关机结束
EndIf
If Len(ShutDownTime) <> 11
Goto 定时关机结束
EndIf
If (Mid(ShutDownTime,3,1) <> ":") Or (Mid(ShutDownTime,6,1) <> "|") Or (Mid(ShutDownTime,9,1) <> ":")
Goto 定时关机结束
EndIf
ShutDownTimeSet = Split(ShutDownTime, "|", -1, 1)
ShutDownTimeLow = ShutDownTimeSet(0)
ShutDownTimeHigh = ShutDownTimeSet(1)
NowTimeSet = Right("00" & Hour(Time),2) & ":" & Right("00" & Minute(Time),2)
If (NowTimeSet > ShutDownTimeLow) And (NowTimeSet < ShutDownTimeHigh)
Gosub 当前时间
Message = CurrentTime & "定时关机时间已到, 自动登出游戏......"
Gosub 输出消息
Gosub 自动登出
Goto 脚本结束
EndIf
Rem 定时关机结束
Return 定时关机
//当前位置判断
Sub 当前位置判断
//码头判断(抓右下方码头两个字，剔除官员和导航员)
PosX = 628
PosY = 329
Gosub 坐标转换
IfColor PosX PosY FFFFFF 0
PosX = 646
PosY = 329
Gosub 坐标转换
IfColor PosX PosY FFFFFF 0
PosX = 658
PosY = 332
Gosub 坐标转换
IfColor PosX PosY FFFFFF 1
PosX = 661
PosY = 329
Gosub 坐标转换
IfColor PosX PosY FFFFFF 1
CurrentPosition = 2
Message = Message & "码头"
Goto 当前位置判断结束
EndIf
EndIf
EndIf
EndIf
//海上判断(抓左上角船舵的四个点)
PosX = 23
PosY = 9
Gosub 坐标转换
IfColor PosX PosY 5D95CC 0
PosX = 23
PosY = 39
Gosub 坐标转换
IfColor PosX PosY 5B91C9 0
PosX = 9
PosY = 23
Gosub 坐标转换
IfColor PosX PosY 487FB6 0
PosX = 39
PosY = 23
Gosub 坐标转换
IfColor PosX PosY 5B91C9 0
CurrentPosition = 3
Message = Message & "海上"
Goto 当前位置判断结束
EndIf
EndIf
EndIf
EndIf
CurrentPosition = 1
Message = Message & "港口"
Rem 当前位置判断结束
Beep
Return 当前位置判断
//找码头官员或码头导航员
Sub 找码头官员
NPC_Terminal = 0
KeyDown 27 1
Delay 1000
KeyPress 9 1
Delay 500
For 15
//抓右下方码头两个字，再找官员或导航员的首字
PosX = 628
PosY = 329
Gosub 坐标转换
IfColor PosX PosY FFFFFF 0
PosX = 646
PosY = 329
Gosub 坐标转换
IfColor PosX PosY FFFFFF 0
PosX = 658
PosY = 332
Gosub 坐标转换
IfColor PosX PosY FFFFFF 0
NPC_Terminal = 1
Goto 找码头官员结束
EndIf
PosX = 661
PosY = 329
Gosub 坐标转换
IfColor PosX PosY FFFFFF 0
NPC_Terminal = 1
Goto 找码头官员结束
EndIf
EndIf
EndIf
KeyPress 39 3
Delay 500
KeyPress 9 1
Delay 500
EndFor
Rem 找码头官员结束
KeyUp 27 1
If NPC_Terminal = 1
KeyPress 13 1
Delay 1000
KeyPress 13 1
Delay 1000
Else
Gosub 当前时间
Message = CurrentTime & "没有找到码头官员, 自动登出游戏......"
Gosub 输出消息
Goto 结束挂机
EndIf
Return 找码头官员
//和码头官员对话
Sub 和码头官员对话
PosX = 650
PosY = 359
Gosub 移动鼠标
IfColor PosX PosY C5C0A1 0
LeftClick 1
Delay 1000
For 20
Delay 500
PosX = 689
PosY = 356
Gosub 移动鼠标
IfColor PosX PosY 5D1F20 0
Goto 和码头官员对话结束
EndIf
EndFor
EndIf
Rem 和码头官员对话结束
Return 和码头官员对话
//进行补给
Sub 进行补给
//补给时按照预先保存的数量补给
//补给按钮
PosX = 689
PosY = 356
Gosub 移动鼠标
IfColor PosX PosY 5D1F20 0
LeftClick 1
For 20
Delay 500
//补给到所保存数量按钮
PosX = 185
PosY = 350
Gosub 移动鼠标
IfColor PosX PosY C3CE73 0
LeftClick 1
Delay 500
//确定按钮
PosX = 600
PosY = 390
Gosub 移动鼠标
IfColor PosX PosY DAE49A 0
LeftClick 1
Delay 500
Goto 进行补给结束
Else
//返回按钮
PosX = 655
PosY = 390
Gosub 移动鼠标
IfColor PosX PosY DAE98C 0
LeftClick 1
Delay 500
Goto 进行补给结束
EndIf
EndIf
EndIf
EndFor
EndIf
Rem 进行补给结束
Return 进行补给
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
