1.         time40=time41
  2.     否则
  3.         If(time41-time40)<0
  4.         time40=time41
  5.     条件结束
  6.     检测上次按键，保存到变量Mykey中
  7. 循环结束
  8. 脚本停止运行
  9. 子程序 CatchET
  10.     //扫描小地图的有效范围（能直接点击怪）
  11.     调用外部VBScript子程序 在区域里从中间开始找颜色(MapA(0),MapA(1),MapA(2),MapA(3),"FF",xa,ya)
  12.     如果表达式 (xa>=0 and ya>=0) 为真,则
  13.         xb=(xa-PosA(0))*20+PosB(0)
  14.         yb=(ya-PosA(1))*20+PosB(1)
  15.         鼠标移到 xb , yb
  16.         延时300毫秒
  17.         左键单击
  18.         延时300毫秒
  19.         如果 (263,43) 的颜色大约等于 #9aff 则
  20.             //如果有血条
  21.             //进一步判断，点中的是否为怪
  22.             //脚下有暗红色光环？通过取颜色值来判断。
  23.             调用外部VBScript子程序 在区域里从中间开始找颜色(MapA(0),MapA(1),MapA(2),MapA(3),"FF",xa,ya)
  24.             如果表达式 (vx>=0 and vy>=0) 为真,则
  25.                 SelectedET=1
  26.             否则
  27.                 //按下ESC，取消选择。
  28.                 //KeyPress 27 1
  29.                 SKILL_NUM=3
  30.                 调用子程序 SkillA
  31.                 SelectedET=0
  32.             条件结束
  33.         否则
  34.             //没血条时
  35.             //可能小地图的绿点已经不在中央位置
  36.             调用子程序 ComeBack
  37.             SelectedET=0
  38.         条件结束
  39.     否则
  40.         //有效范围找不到红点
  41.         （VBScript语句） time1=timer
  42.         调用子程序 StepToET
  43.         //扩大小地图查找范围
  44.         SelectedET=0
  45.     条件结束
  46. 子程序结束,回到调用处
  47. //技能
  48. 子程序 SkillA
  49.     //定时辅助技能
  50.     如果表达式 (SKILL_NUM=9) 为真,则
  51.         time1_skill=time2_skill
  52.         按键<9>
  53.         延时1000毫秒
  54.         //打怪技能
  55.     否则如果(SKILL_NUM=3)为真,则
  56.         如果表达式 (Busy=0) 为真,则
  57.             按键<3>
  58.             延时300毫秒
  59.         条件结束
  60.     否则如果(SKILL_NUM=4)为真,则
  61.         //补血技能
  62.         按键<4>
  63.         延时300毫秒
  64.         按键<3>
  65.         延时300毫秒
  66.     条件结束
  67. 子程序结束,回到调用处
  68. 子程序 CheckMyBlood
  69.     //指定点为黑色（大约余血为3/5左右)
  70.     如果 (143,43) 的颜色大约等于 #0 则
  71.         MyBlood=BLOOD_LOW
  72.     否则
  73.         MyBlood=BLOOD_HI
  74.     条件结束
  75. 子程序结束,回到调用处
  76. //对整个小地图进行查找怪
  77. 子程序 StepToET
  78.     调用外部VBScript子程序 在区域里从中间开始找颜色(MapA(0),MapA(1),MapA(2),MapA(3),"FF",xa,ya)
  79.     如果表达式 (x>0 and y>0) 为真,则
  80.         如果表达式 (x<MapA(0) or x>MapA(2) or y>MapA(3) or y<MapA(1)) 为真,则
  81.             x=x-PosA(0)
  82.             y=y-PosA(1)
  83.             如果表达式 (x<0) 为真,则
  84.                 mx=-100
  85.             否则
  86.                 mx=100
  87.             条件结束
  88.             my=mx*y/x
  89.             如果表达式 (my>120) 为真,则
  90.                 my=90
  91.             否则如果(my<-100)为真,则
  92.                 my=-90
  93.             条件结束
  94.             xb=mx+PosB(0)
  95.             yb=my+PosB(1)
  96.             鼠标移到 xb , yb
  97.             延时400毫秒
  98.             左键单击
  99.             延时400毫秒
  100.         条件结束