//伦多近港脚本：
//一、环境：800*600的游戏窗口分辨率任意港口开始脚本
//二、设置内容：
//1)整套卖出;
//2)补给到一定量;
//3)自定义F1，料理F5，F2~F4为三个航行时使用的技能，F1为操帆，F8修理;。
//四、买卖事项：买入商品，卖出商品，会计买入，会计卖出。这四个请随自己情况选用。目前设置的是根据伦敦多佛实际情况选用的。
//F1=112;F2=113;F3=114;F4=115;F5=116;F6=117;F7=118;F8=119;F9=120;F10=121;F11=122;F12=123;
//UserVar accountant=1 是否练会计0不练1练
UserVar WareHouse=1 最大购入1最小购入0
UserVar Quotation=126 行情买入指数
UserVar BankArrange=11 银行存放料理的位置
UserVar LiaoLi=100 现有料理数量
UserVar AutoShutDown=0 自动关机设置
UserVar TimeShutDownSet=0 定时关机设置
UserVar ShutDownTime="08:45|09:15" 定时关机时间(HH:MM)
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn = Window.GetKeyFocusWnd()
VBS Dim MarketBuy(10),MarketSell(15),BSDirection(10)
//参数设置结束
Gosub 建立日志文件
Gosub 当前时间
Message = CurrentTime & "============================脚本开始============================"
Gosub 写入日志文件
Gosub 伦多近港脚本
Rem 脚本结束
Gosub 当前时间
Message = CurrentTime & "============================脚本结束============================"
Gosub 写入日志文件
Message = "----------------------------------------------------------------------------------------------------------------------------"
Gosub 写入日志文件
If AutoShutDown = 1
    Gosub 自动关机
EndIf 
EndScript 
Sub 伦多近港脚本
    Delay 1000
    iLiaoLi =  LiaoLi
    While iLiaoLi > 0
        Gosub 码头判断
        If MaTou = 1 or MaTou = 2
            If MaTou = 1
                //商业区下
                InPier = 3
                Gosub 下码头
                TurnAngle = 1500
                Gosub 向前行走
                Gosub 查找交易所老板
                //iaccountant = accountant
                iQuotation = Quotation
                //Gosub 交易事项
                Gosub 行情查看
                iWareHouse = WareHouse
                Gosub 卖出商品
                //Gosub 买入商品
                Gosub 会计买入
                Gosub 行动力保护
                TurnWay = "R"
                TurnAngle = 3000
                TurnReset = 1
                Gosub 转向
                TurnAngle = 2000
                Gosub 向前行走
                Gosub 查找码头导航员
                Gosub 入码头出航
                iSteerTimeA = SteerTimeA
                //Gosub 伦敦到多佛
                //====================================
            Else 
                //码头广场下
                InPier = 1
                Gosub 下码头
                TurnAngle = 2300
                Gosub 向前行走
                TurnWay = "R"
                TurnAngle = 700
                TurnReset = 1
                Gosub 转向
                TurnAngle = 5900
                Gosub 向前行走
                Gosub 查找交易所老板
                //iaccountant = accountant
                iQuotation = Quotation
                //Gosub 交易事项
                Gosub 行情查看
                iWareHouse = WareHouse
                //Gosub 卖出商品
                Gosub 会计卖出
                Gosub 买入商品
                Gosub 行动力保护
                TurnWay = "R"
                TurnAngle = 3000
                TurnReset = 1
                Gosub 转向
                TurnAngle = 8800
                Gosub 向前行走
                Gosub 查找码头官员
                Gosub 入码头出航
                iSteerTimeB = SteerTimeB
                iSteerTimeC = SteerTimeC