1. //伦多近港脚本：
2. //一、环境：800*600的游戏窗口分辨率任意港口开始脚本
3. //二、设置内容：
4. //1)整套卖出;
5. //2)补给到一定量;
6. //3)自定义F1，料理F5，F2~F4为三个航行时使用的技能，F1为操帆，F8修理;。
7. //四、买卖事项：买入商品，卖出商品，会计买入，会计卖出。这四个请随自己情况选用。目前设置的是根据伦敦多佛实际情况选用的。
8. //F1=112;F2=113;F3=114;F4=115;F5=116;F6=117;F7=118;F8=119;F9=120;F10=121;F11=122;F12=123;
9. //UserVar accountant=1 是否练会计0不练1练
10. 用户定义变量 WareHouse=1 最大购入1最小购入0
11. 用户定义变量 Quotation=126 行情买入指数
12. 用户定义变量 BankArrange=11 银行存放料理的位置
13. 用户定义变量 LiaoLi=100 现有料理数量
14. 用户定义变量 AutoShutDown=0 自动关机设置
15. 用户定义变量 TimeShutDownSet=0 定时关机设置
16. 用户定义变量 ShutDownTime="08:45|09:15" 定时关机时间(HH:MM)
17. （VBScript语句） set TiShiObj = createobject("WScript.Shell")
18. 调用插件命令 hwn = Window.GetKeyFocusWnd()
19. （VBScript语句） Dim MarketBuy(10),MarketSell(15),BSDirection(10)
20. //参数设置结束
21. 调用子程序 建立日志文件
22. 调用子程序 当前时间
23. Message = CurrentTime & "============================脚本开始============================"
24. 调用子程序 写入日志文件
25. 调用子程序 伦多近港脚本
26. 标记 脚本结束
27. 调用子程序 当前时间
28. Message = CurrentTime & "============================脚本结束============================"
29. 调用子程序 写入日志文件
30. Message = "----------------------------------------------------------------------------------------------------------------------------"
31. 调用子程序 写入日志文件
32. 如果表达式 (AutoShutDown = 1) 为真,则
33.     调用子程序 自动关机
34. 条件结束
35. 脚本停止运行
36. 子程序 伦多近港脚本
37.     延时1000毫秒
38.     iLiaoLi = LiaoLi
39.     如果表达式 (iLiaoLi > 0) 为真,则循环执行
40.         调用子程序 码头判断
41.         如果表达式 (MaTou = 1 or MaTou = 2) 为真,则
42.             如果表达式 (MaTou = 1) 为真,则
43.                 //商业区下
44.                 InPier = 3
45.                 调用子程序 下码头
46.                 TurnAngle = 1500
47.                 调用子程序 向前行走
48.                 调用子程序 查找交易所老板
49.                 //iaccountant = accountant
50.                 iQuotation = Quotation
51.                 //Gosub 交易事项
52.                 调用子程序 行情查看
53.                 iWareHouse = WareHouse
54.                 调用子程序 卖出商品
55.                 //Gosub 买入商品
56.                 调用子程序 会计买入
57.                 调用子程序 行动力保护
58.                 TurnWay = "R"
59.                 TurnAngle = 3000
60.                 TurnReset = 1
61.                 调用子程序 转向
62.                 TurnAngle = 2000
63.                 调用子程序 向前行走
64.                 调用子程序 查找码头导航员
65.                 调用子程序 入码头出航
66.                 iSteerTimeA = SteerTimeA
67.                 //Gosub 伦敦到多佛
68.                 //====================================
69.             否则
70.                 //码头广场下
71.                 InPier = 1
72.                 调用子程序 下码头
73.                 TurnAngle = 2300
74.                 调用子程序 向前行走
75.                 TurnWay = "R"
76.                 TurnAngle = 700
77.                 TurnReset = 1
78.                 调用子程序 转向
79.                 TurnAngle = 5900
80.                 调用子程序 向前行走
81.                 调用子程序 查找交易所老板
82.                 //iaccountant = accountant
83.                 iQuotation = Quotation
84.                 //Gosub 交易事项
85.                 调用子程序 行情查看
86.                 iWareHouse = WareHouse
87.                 //Gosub 卖出商品
88.                 调用子程序 会计卖出
89.                 调用子程序 买入商品
90.                 调用子程序 行动力保护
91.                 TurnWay = "R"
92.                 TurnAngle = 3000
93.                 TurnReset = 1
94.                 调用子程序 转向
95.                 TurnAngle = 8800
96.                 调用子程序 向前行走
97.                 调用子程序 查找码头官员
98.                 调用子程序 入码头出航
99.                 iSteerTimeB = SteerTimeB
100.                 iSteerTimeC = SteerTimeC