1.                                             按键<Space>
  2.                                         循环结束
  3.                                     否则如果(Shape=978197372)为真,则
  4.                                         调用子程序 CheckMon
  5.                                     条件结束
  6.                                     k=k+1
  7.                                     延时5毫秒
  8.                                 循环结束
  9.                                 j=j+1
  10.                             循环结束
  11.                         条件结束
  12.                     条件结束
  13.                 条件结束
  14.             条件结束
  15.         条件结束
  16.         弹起`
  17.     条件结束
  18. 子程序结束,回到调用处
  19. // 防卡牆的怪物
  20. 子程序 CanNotKill
  21.     如果表达式 (CanNotKillVar=1) 为真,则
  22.         // 怪物血條
  23.         如果 (424,0) 的颜色等于 #0 则
  24.             如果 (596,47) 的颜色等于 #747474 则
  25.                 如果表达式 (DateDiff("s",MonRunTime,Time)>=CanNotKillTime) 为真,则
  26.                     MonRunTime=time
  27.                     // 轉方向
  28.                     循环 8 遍
  29.                         鼠标移到 500 , 500
  30.                         右键按下
  31.                         延时40毫秒
  32.                         鼠标相对移动 200 , 0
  33.                         延时40毫秒
  34.                         右键弹起
  35.                     循环结束
  36.                 条件结束
  37.             否则
  38.                 MonRunTime=time
  39.             条件结束
  40.         否则
  41.             MonRunTime=time
  42.         条件结束
  43.     条件结束
  44. 子程序结束,回到调用处
  45. // 檢查水瓶
  46. 子程序 checkCarafe
  47.     如果表达式 (CarafeVar>0) 为真,则
  48.         调用外部VBScript子程序 Shape=GetCursorShape(0)
  49.         如果表达式 (Cx<=433 and Cy<=750) 为真,则
  50.             如果表达式 (CarafeVar=1) 为真,则
  51.                 AriseVar=1
  52.             条件结束
  53.         条件结束
  54.         调用外部VBScript子程序 Shape=GetCursorShape(0)
  55.         如果表达式 (Cx<=471 and Cy<=750) 为真,则
  56.             如果表达式 (CarafeVar=1) 为真,则
  57.                 AriseVar=1
  58.             条件结束
  59.         条件结束
  60.     条件结束
  61. 子程序结束,回到调用处
  62. // 特殊職業設定
  63. 子程序 Vocation
  64.     // 機甲師-特殊設定
  65.     如果表达式 (VocationVar=1) 为真,则
  66.         如果 (52,73) 的颜色大约等于 #000000 则
  67.             调用外部VBScript子程序 Shape=GetCursorShape(0)
  68.             如果表达式 (Ballx<10 and Bally<85) 为真,则
  69.                 延时40毫秒
  70.                 调用外部VBScript子程序 Shape=GetCursorShape(0)
  71.                 如果表达式 (Ballx1<10 and Bally1<85) 为真,则
  72.                     鼠标移到 80 , 95
  73.                     左键单击
  74.                 条件结束
  75.             条件结束
  76.         否则
  77.             鼠标相对移动 30 , 0
  78.             左键单击
  79.         条件结束
  80.     条件结束
  81. 子程序结束,回到调用处
  82. // 檢查武器 - 機甲師
  83. 子程序 checkArms
  84.     按键<I>
  85.     延时100毫秒
  86.     如果 (808,91) 的颜色等于 #ff 则
  87.         // 回到重生點
  88.         AriseVar=1
  89.     条件结束
  90.     按键<I>
  91.     鼠标移到 1012 , 12
  92.     左键单击
  93. 子程序结束,回到调用处
  94. 标记 GameOver
  95. 延时60000毫秒
  96. 循环 5 遍
  97.     鼠标移到 100 , 200
  98.     左键单击
  99.     延时2000毫秒
  100. 循环结束