1.         条件结束
  2.         按键 <Tab>
  3.         按键 <Tab>
  4.         延时500毫秒
  5.         延时500毫秒
  6.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)
  7.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)
  8.         如果表达式 (xud>0 and yud>0) 为真,则
  9.             如果表达式 (xud>0 and yud>0) 为真,则
  10.                 按键 <Tab>
  11.                 按键 <Tab>
  12.                 延时500毫秒
  13.                 延时500毫秒
  14.             条件结束
  15.         条件结束
  16.     子程序结束,回到调用处
  17. 子程序结束,回到调用处
  18. 子程序 天鼠
  19.     子程序 天鼠
  20.         如果表达式 (zx<53 or zx>543) 为真,则
  21.             如果表达式 (zx<53 or zx>543) 为真,则
  22.                 如果表达式 (zx<53) 为真,则
  23.                     如果表达式 (zx<53) 为真,则
  24.                         zzx=zx+50
  25.                         zzx=zx+50
  26.                     条件结束
  27.                 条件结束
  28.                 如果表达式 (zx>543) 为真,则
  29.                     如果表达式 (zx>543) 为真,则
  30.                         zzx=zx-50
  31.                         zzx=zx-50
  32.                     条件结束
  33.                 条件结束
  34.             否则
  35.             否则
  36.                 zzx=zx
  37.                 zzx=zx
  38.             条件结束
  39.         条件结束
  40.         如果表达式 (zy<72 or zy>422) 为真,则
  41.             如果表达式 (zy<72 or zy>422) 为真,则
  42.                 如果表达式 (zy<72) 为真,则
  43.                     如果表达式 (zy<72) 为真,则
  44.                         zzy=zy+50
  45.                         zzy=zy+50
  46.                     条件结束
  47.                 条件结束
  48.                 如果表达式 (zy>422) 为真,则
  49.                     如果表达式 (zy>422) 为真,则
  50.                         zzy=zy-50
  51.                         zzy=zy-50
  52.                     条件结束
  53.                 条件结束
  54.             否则
  55.             否则
  56.                 zzy=zy
  57.                 zzy=zy
  58.             条件结束
  59.         条件结束
  60.         鼠标移到 zzx , zzy
  61.         鼠标移到 zzx , zzy
  62.         延时100毫秒
  63.         延时100毫秒
  64.         调用插件命令 xy=Color.FindMutiColor(3,22,640,480,"F0F428", "-1|7|F0C810,8|10|48C480,7|11|50F890",1)
  65.         调用插件命令 xy=Color.FindMutiColor(3,22,640,480,"F0F428", "-1|7|F0C810,8|10|48C480,7|11|50F890",1)
  66.         wxy=split(xy,"|")
  67.         wxy=split(xy,"|")
  68.         wx=CInt(wxy(0))-9
  69.         wx=CInt(wxy(0))-9
  70.         wy=CInt(wxy(1))-4
  71.         wy=CInt(wxy(1))-4
  72.         如果表达式 (wx<0 and wy<0) 为真,则
  73.             如果表达式 (wx<0 and wy<0) 为真,则
  74.                 调用插件命令 xy=Color.FindMutiColor(3,22,640,480,"78A4B0", "-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8",1)
  75.                 调用插件命令 xy=Color.FindMutiColor(3,22,640,480,"78A4B0", "-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8",1)
  76.                 wxy=split(xy,"|")
  77.                 wxy=split(xy,"|")
  78.                 wx=CInt(wxy(0))-18
  79.                 wx=CInt(wxy(0))-18
  80.                 wy=CInt(wxy(1))-9
  81.                 wy=CInt(wxy(1))-9
  82.             条件结束
  83.         条件结束
  84.         at=zx-wx
  85.         at=zx-wx
  86.         bt=zy-wy
  87.         bt=zy-wy
  88.         如果表达式 (at>35 or at<-35) 为真,则
  89.             如果表达式 (at>35 or at<-35) 为真,则
  90.                 如果表达式 (at>35) 为真,则
  91.                     如果表达式 (at>35) 为真,则
  92.                         at=35
  93.                         at=35
  94.                     条件结束
  95.                 条件结束
  96.                 如果表达式 (at<-35) 为真,则
  97.                     如果表达式 (at<-35) 为真,则
  98.                         at=-35
  99.                         at=-35
  100.                     条件结束