1.     如果表达式 (Num<=5) 为真,则
  2.         PosY = PosY+(Num-1)*56
  3.         //VBSCall MessageBox (PosX)
  4.         //VBSCall MessageBox (PosY)
  5.     否则
  6.         PosY = PosY+(5-1)*56
  7.     条件结束
  8. 子程序结束,回到调用处
  9. //移动鼠标到指定点(以窗口为准参数PosX,PosY相对坐标)
  10. 子程序 移动鼠标
  11.     调用插件命令 winRect=Window.GetClientRect(hwn)
  12.     winPoint = Split(winRect, "|", -1, 1)
  13.     AbsX = CInt(winPoint(0)) + PosX
  14.     AbsY = CInt(winPoint(1)) + PosY
  15.     鼠标移到 AbsX , AbsY
  16.     PosX = AbsX
  17.     PosY = AbsY
  18.     延时600毫秒
  19. 子程序结束,回到调用处
  20. //等对话按钮出现
  21. 子程序 等按钮
  22.     StButton = 0
  23.     如果表达式 (StButton = 0) 为真,则循环执行
  24.         PosX = 635
  25.         PosY = 353
  26.         调用子程序 坐标转换
  27.         如果 (PosX,PosY) 的颜色等于 #FFFFFF 则
  28.             StButton = 1
  29.             延时500毫秒
  30.         否则
  31.             按键<Enter>
  32.             延时1000毫秒
  33.         条件结束
  34.     循环结束
  35. 子程序结束,回到调用处
  36. 子程序 转向
  37.     //先定位鼠标，因为在聊天窗口是无法转向的
  38.     PosX = 399
  39.     PosY = 299
  40.     调用子程序 移动鼠标
  41.     //判断是否需要复位后转向，或就以当前位置转向
  42.     //0为复位后转向1为不复位直接转向
  43.     如果表达式 (TurnReset = 0) 为真,则
  44.         右键单击
  45.     否则如果(TurnReset = 1)为真,则
  46.         循环 2 遍
  47.             按键<Esc>
  48.             延时300毫秒
  49.         循环结束
  50.     否则
  51.         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  52.     条件结束
  53.     延时1500毫秒
  54.     如果表达式 (TurnWay = "R") 为真,则
  55.         按住<Ctrl>
  56.         按住<Right>
  57.         延时TurnAngle毫秒
  58.         弹起<Ctrl>
  59.         弹起<Right>
  60.         延时100毫秒
  61.     否则如果(TurnWay = "L")为真,则
  62.         按住<Ctrl>
  63.         按住<Left>
  64.         延时TurnAngle毫秒
  65.         弹起<Ctrl>
  66.         弹起<Left>
  67.         延时100毫秒
  68.     否则
  69.         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  70.     条件结束
  71. 子程序结束,回到调用处
  72. 子程序 快速入仓
  73.     如果表达式 (iWareHouse = 0) 为真,则
  74.         PosX = 354
  75.         PosY = 140
  76.         调用子程序 移动鼠标
  77.         左键单击
  78.         延时500毫秒
  79.     否则如果(iWareHouse = 1)为真,则
  80.         PosX = 354
  81.         PosY = 280
  82.         调用子程序 坐标转换
  83.         循环 3 遍
  84.             调用子程序 最大量
  85.             PosY = PosY-70
  86.         循环结束
  87.     否则
  88.         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  89.     条件结束
  90. 子程序结束,回到调用处
  91. 子程序 最大量
  92.     MaxOver = 0
  93.     如果表达式 (MaxOver = 0) 为真,则循环执行
  94.         如果 (PosX,PosY) 的颜色大约等于 #BBBBBB 则
  95.             鼠标移到 PosX , PosY
  96.             延时600毫秒
  97.             左键单击
  98.             延时500毫秒
  99.         否则
  100.             MaxOver = 1