1.                         调用子程序 checkArms
  2.                         跳转到标记 start
  3.                     否则如果(AriseVar=3)为真,则
  4.                         // 使用復活咒文書
  5.                         鼠标移到 390 , 363
  6.                         延时100毫秒
  7.                         左键单击
  8.                         延时1000毫秒
  9.                         跳转到标记 start
  10.                     否则如果(AriseVar=4)为真,则
  11.                         // 結束遊戲程式
  12.                         调用外部VBScript子程序 Shape=GetCursorShape(0)
  13.                         延时10000毫秒
  14.                         按键<F9>
  15.                         调用子程序 GameOver1
  16.                     条件结束
  17.                 条件结束
  18.             条件结束
  19.         条件结束
  20.     条件结束
  21. 子程序结束,回到调用处
  22. // 找怪區域HM - (3,3) - 409,306,613,460
  23. 子程序 FindMonHM
  24.     i=0
  25.     循环 Killvar 遍
  26.         ColorVar=MonColor(i)
  27.         如果表达式 (i=2) 为真,则
  28.             // 白色 - 自已名字範圍 Y軸 (362-394)
  29.             调用外部VBScript子程序 Shape=GetCursorShape(0)
  30.             如果表达式 (x>=409 and y>=200) 为真,则
  31.                 j=0
  32.                 循环 8 遍
  33.                     鼠标移到 x+20+j*2 , y+j*15
  34.                     调用外部VBScript子程序 Shape=GetCursorShape(0)
  35.                     如果表达式 (Shape=978197372) 为真,则
  36.                         循环 10 遍
  37.                             调用子程序 HP
  38.                             调用子程序 MP
  39.                             左键单击
  40.                             延时500毫秒
  41.                         循环结束
  42.                     条件结束
  43.                     调用子程序 CheckMon
  44.                     j=j+1
  45.                 循环结束
  46.             条件结束
  47.             调用外部VBScript子程序 Shape=GetCursorShape(0)
  48.             如果表达式 (x>=409 and y>=394) 为真,则
  49.                 j=0
  50.                 循环 8 遍
  51.                     鼠标移到 x+20+j*2 , y+j*15
  52.                     如果表达式 (Shape=978197372) 为真,则
  53.                         循环 10 遍
  54.                             调用子程序 HP
  55.                             调用子程序 MP
  56.                             左键单击
  57.                             延时500毫秒
  58.                         循环结束
  59.                     条件结束
  60.                     调用子程序 CheckMon
  61.                     j=j+1
  62.                 循环结束
  63.             条件结束
  64.         否则
  65.             调用外部VBScript子程序 Shape=GetCursorShape(0)
  66.             如果表达式 (x>=409 and y>=200) 为真,则
  67.                 j=0
  68.                 循环 8 遍
  69.                     鼠标移到 x+20+j*2 , y+j*15
  70.                     如果表达式 (Shape=978197372) 为真,则
  71.                         循环 10 遍
  72.                             调用子程序 HP
  73.                             调用子程序 MP
  74.                             左键单击
  75.                             延时500毫秒
  76.                         循环结束
  77.                         调用子程序 CheckMon
  78.                     条件结束
  79.                     j=j+1
  80.                 循环结束
  81.             条件结束
  82.             i=i+1
  83.         条件结束
  84.     循环结束
  85. 子程序结束,回到调用处
  86. 子程序 CloseTalkWin
  87.     如果 (59,733) 的颜色等于 #ffffff 则
  88.         如果 (4,728) 的颜色等于 #0 则
  89.             如果 (11,759) 的颜色等于 #ffffff 则
  90.                 鼠标移到 11 , 759
  91.                 延时100毫秒
  92.                 左键单击
  93.             条件结束
  94.         条件结束
  95.     条件结束
  96. 子程序结束,回到调用处
  97. // 尋寶、撿寶
  98. 子程序 GetBaoWu
  99.     按键<Space>
  100.     如果表达式 (GetBaoVar>=1) 为真,则