1.         调用子程序 定位
  2.         调用子程序 有怪
  3.     条件结束
  4.     延时16毫秒
  5.     鼠标移到 mx , my+int(54*rnd+10)
  6.     左键单击
  7.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  8.     如果表达式 (x1>0) 为真,则
  9.         调用子程序 定位
  10.         调用子程序 有怪
  11.     条件结束
  12.     延时16毫秒
  13.     鼠标移到 mx , my-int(54*rnd+10)
  14.     左键单击
  15.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  16.     如果表达式 (x1>0) 为真,则
  17.         调用子程序 定位
  18.         调用子程序 有怪
  19.     条件结束
  20.     延时16毫秒
  21.     调用子程序 定位
  22. 子程序结束,回到调用处
  23. 子程序 有怪
  24.     randomize
  25.     guainow=now
  26.     标记 清怪
  27.     循环 2 遍
  28.         按键#F1
  29.         延时256毫秒
  30.     循环结束
  31.     如果表达式 (datediff("s",guainow,now)>fangka) 为真,则
  32.         循环 6 遍
  33.             按键#F3
  34.             延时256毫秒
  35.         循环结束
  36.         延时256毫秒
  37.         鼠标移到 mx+int(50*rnd) , my-int(50*rnd)
  38.         延时8毫秒
  39.         左键单击
  40.         延时32毫秒
  41.         鼠标移到 mx-int(50*rnd) , my+int(50*rnd)
  42.         延时8毫秒
  43.         左键单击
  44.         延时32毫秒
  45.         鼠标移到 mx-int(50*rnd) , my-int(50*rnd)
  46.         延时8毫秒
  47.         左键单击
  48.         延时32毫秒
  49.         鼠标移到 mx-int(50*rnd) , my+int(50*rnd)
  50.         延时8毫秒
  51.         左键单击
  52.         延时32毫秒
  53.         guainow=now
  54.         跳转到标记 清怪结束
  55.     条件结束
  56.     调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  57.     如果表达式 (x1>0) 为真,则
  58.         循环 3 遍
  59.             按键#F1
  60.             延时256毫秒
  61.         循环结束
  62.         跳转到标记 清怪
  63.     条件结束
  64.     如果表达式 (dierxue=1) 为真,则
  65.         调用外部VBScript子程序 得到鼠标当前位置(mx,my)
  66.         如果表达式 (x1>0) 为真,则
  67.             循环 3 遍
  68.                 按键#F1
  69.                 延时256毫秒
  70.             循环结束
  71.             跳转到标记 清怪
  72.         条件结束
  73.     条件结束
  74.     标记 清怪结束
  75.     //捡东西
  76.     按键#F8
  77.     //捡东西
  78.     延时PICK毫秒
  79. 子程序结束,回到调用处
  80. 子程序 读出坐标
  81.     //读取坐标赋初值
  82.     nx=nx+4:ny=ny+1:strnum="":strxy=""
  83.     curx=0:cury=0:cur=0
  84.     //点只有一个
  85.     point=0
  86.     //点只有一个
  87.     //读取坐标赋初值
  88.     dim pcolor(12)
  89.     标记 读数
  90.     pcolor(12)=Chen8.NewYNColor1(nx+2,ny-1,coor,rdev,gdev,bdev)
  91.     如果表达式 (pcolor(12)=1) 为真,则
  92.         strnum="]"
  93.         跳转到标记 读取结束
  94.     条件结束
  95.     pcolor(2)=Chen8.NewYNColor1(nx+1,ny+1,coor,rdev,gdev,bdev)
  96.     如果表达式 (pcolor(2)=1) 为真,则
  97.         strnum="1"
  98.         跳转到标记 合并
  99.     条件结束
  100.     pcolor(11)=Chen8.NewYNColor1(nx,ny+7,coor,rdev,gdev,bdev)