1.         跳转到标记 移动
  2.     否则如果(r=tmpr)为真,则
  3.         延时8毫秒
  4.         鼠标移到 mx-gox*1.5 , my+goy*1.5
  5.         延时64毫秒
  6.         左键单击
  7.         延时8毫秒
  8.         鼠标移到 mx-gox*0.5 , my+goy*0.5
  9.         延时64毫秒
  10.         左键单击
  11.         延时256毫秒
  12.         调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  13.         如果表达式 (x1>0) 为真,则
  14.             调用子程序 有怪
  15.         条件结束
  16.         跳转到标记 移动
  17.     条件结束
  18.     延时256毫秒
  19.     如果表达式 (dierxue=1) 为真,则
  20.         调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  21.         如果表达式 (x1>0) 为真,则
  22.             调用子程序 有怪
  23.         条件结束
  24.     条件结束
  25.     标记 定位结束
  26. 子程序结束,回到调用处
  27. 子程序 乱点引怪
  28.     randomize
  29.     如果表达式 (YINGUAI=1) 为真,则
  30.         延时8毫秒
  31.         鼠标移到 mx+int(luanjuli+20) , my-int(luanjuli+20)
  32.         左键单击
  33.         延时luandelay毫秒
  34.         鼠标移到 mx-int(luanjuli+20) , my+int(luanjuli+20)
  35.         左键单击
  36.         延时luandelay毫秒
  37.         鼠标移到 mx+int(luanjuli+20) , my
  38.         左键单击
  39.         延时luandelay毫秒
  40.         鼠标移到 mx-int(luanjuli+20) , my
  41.         左键单击
  42.         延时luandelay毫秒
  43.         鼠标移到 mx+int(luanjuli+20) , my+int(luanjuli+20)
  44.         左键单击
  45.         延时luandelay毫秒
  46.         鼠标移到 mx-int(luanjuli+20) , my-int(luanjuli+20)
  47.         左键单击
  48.         延时luandelay毫秒
  49.         鼠标移到 mx , my+int(luanjuli+20)
  50.         左键单击
  51.         延时luandelay毫秒
  52.         鼠标移到 mx , my-int(luanjuli+20)
  53.         左键单击
  54.         延时luandelay毫秒
  55.         调用子程序 定位
  56.     条件结束
  57.     鼠标移到 mx+int(54*rnd+10) , my-int(54*rnd+10)
  58.     左键单击
  59.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  60.     如果表达式 (x1>0) 为真,则
  61.         调用子程序 定位
  62.         调用子程序 有怪
  63.     条件结束
  64.     延时16毫秒
  65.     鼠标移到 mx-int(54*rnd+10) , my+int(54*rnd+10)
  66.     左键单击
  67.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  68.     如果表达式 (x1>0) 为真,则
  69.         调用子程序 定位
  70.         调用子程序 有怪
  71.     条件结束
  72.     延时16毫秒
  73.     鼠标移到 mx+int(54*rnd+10) , my
  74.     左键单击
  75.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  76.     如果表达式 (x1>0) 为真,则
  77.         调用子程序 定位
  78.         调用子程序 有怪
  79.     条件结束
  80.     延时16毫秒
  81.     鼠标移到 mx-int(54*rnd+10) , my
  82.     左键单击
  83.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  84.     如果表达式 (x1>0) 为真,则
  85.         调用子程序 定位
  86.         调用子程序 有怪
  87.     条件结束
  88.     延时16毫秒
  89.     鼠标移到 mx+int(54*rnd+10) , my+int(54*rnd+10)
  90.     左键单击
  91.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  92.     如果表达式 (x1>0) 为真,则
  93.         调用子程序 定位
  94.         调用子程序 有怪
  95.     条件结束
  96.     延时16毫秒
  97.     鼠标移到 mx-int(54*rnd+10) , my-int(54*rnd+10)
  98.     左键单击
  99.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  100.     如果表达式 (x1>0) 为真,则