1.             条件结束
  2.         条件结束
  3.         // 檢查怪物血條、及防搶功能
  4.         循环 10 遍
  5.             如果 (424,0) 的颜色等于 #0 则
  6.                 如果 (596,47) 的颜色等于 #747474 则
  7.                     如果表达式 (NoKillMon=0) 为真,则
  8.                         跳转到标记 MonHP
  9.                     否则
  10.                         如果 (593,38) 的颜色大约等于 #000000 则
  11.                             跳转到标记 FindEnd
  12.                         否则
  13.                             跳转到标记 MonHP
  14.                         条件结束
  15.                     条件结束
  16.                 条件结束
  17.             条件结束
  18.             调用子程序 HP
  19.             调用子程序 MP
  20.             按键<Space>
  21.             延时50毫秒
  22.         循环结束
  23.         标记 MonHP
  24.         如果 (424,0) 的颜色等于 #0 则
  25.             如果 (596,47) 的颜色等于 #747474 则
  26.                 按键<Space>
  27.                 调用子程序 HP
  28.                 调用子程序 MP
  29.                 调用子程序 FindMonS
  30.                 延时40毫秒
  31.                 跳转到标记 MonHP
  32.             条件结束
  33.         条件结束
  34.         标记 FindEnd
  35.         鼠标移到 511 , 400
  36.         左键单击
  37.         // 集中掃描
  38.         如果表达式 (FineVar=0) 为真,则
  39.             跳转到标记 start
  40.         条件结束
  41.         // 滑鼠為手圖案，撿寶
  42.     否则如果(Shape=0)为真,则
  43.         鼠标相对移动 0 , 25
  44.         左键单击
  45.         延时100毫秒
  46.         // 集中掃描
  47.         如果表达式 (FineVar=0) 为真,则
  48.             跳转到标记 start
  49.         条件结束
  50.     条件结束
  51. 子程序结束,回到调用处
  52. // ---------------------------------找怪副程式--------------------------------------
  53. 子程序 FindMonColor
  54.     i=0
  55.     循环 Killvar 遍
  56.         ColorVar=MonColor(i)
  57.         调用外部VBScript子程序 Shape=GetCursorShape(0)
  58.         如果表达式 (i=2 and x>=460 and x<=550 and y>=362 and y<=394) 为真,则
  59.             鼠标移到 511 , 400
  60.             调用外部VBScript子程序 Shape=GetCursorShape(0)
  61.             如果表达式 (Shape=978197372) 为真,则
  62.                 调用子程序 CheckMon
  63.             条件结束
  64.         否则如果(x>=x1 and y>=y1)为真,则
  65.             j=0
  66.             循环 6 遍
  67.                 k=0
  68.                 循环 7 遍
  69.                     鼠标移到 x+k*5 , y+50-j*10
  70.                     调用外部VBScript子程序 Shape=GetCursorShape(0)
  71.                     如果表达式 (Shape=978197372) 为真,则
  72.                         调用子程序 CheckMon
  73.                     条件结束
  74.                     k=k+1
  75.                 循环结束
  76.                 j=j+1
  77.             循环结束
  78.         条件结束
  79.         i=i+1
  80.     循环结束
  81. 子程序结束,回到调用处
  82. // 小範圍
  83. 子程序 FindMonS
  84.     调用子程序 CanNotKill
  85.     调用子程序 Arise
  86.     调用子程序 FindMon1
  87.     调用子程序 FindMon2
  88.     调用子程序 FindMon3
  89.     调用子程序 FindMon4
  90.     调用子程序 FindMon5
  91.     调用子程序 FindMon6
  92.     调用子程序 FindMon7
  93.     调用子程序 FindMon8
  94.     调用子程序 FindMon9
  95.     调用子程序 FindMon10
  96.     调用子程序 FindMon11
  97.     调用子程序 FindMon12
  98.     调用子程序 FindMon13
  99.     调用子程序 FindMon14
  100.     调用子程序 FindMon15