1.     循环 3 遍
  2.         调用外部VBScript子程序 在屏幕区域里查找图形(10,10,1000,750,"sgcqxz.bmp",0.4,x,y)
  3.         如果表达式 (x>0 and y>0) 为真,则
  4.             鼠标移到 x , y
  5.             延时50毫秒
  6.             右键单击
  7.         条件结束
  8.     循环结束
  9. 子程序结束,回到调用处
  10. 子程序 怪物星级
  11.     如果 (x3,37) 的颜色大约等于 #2f7fa9 则
  12.         按键`
  13.     否则
  14.         跳转到标记 打怪开始
  15.     条件结束
  16. 子程序结束,回到调用处
  17. 子程序 挂机点选择
  18.     按键<M>
  19.     //挂机地点大地图选择
  20.     延时1000毫秒
  21.     gjj=split(cstr(gj),",")
  22.     鼠标移到 clng(gjj(0)) , clng(gjj(1))
  23.     延时1000毫秒
  24.     左键单击
  25.     延时1000毫秒
  26.     gww=split(cstr(gw),",")
  27.     鼠标移到 clng(gww(0)) , clng(gww(1))
  28.     延时1000毫秒
  29.     左键单击
  30.     延时200毫秒
  31.     鼠标移到 850 , 139
  32.     延时200毫秒
  33.     左键单击
  34.     延时200毫秒
  35.     按键<M>
  36.     延时xgT毫秒
  37. 子程序结束,回到调用处
  38. 子程序 寻怪
  39.     如果 (490,37) 的颜色大约等于 #2f7fa9 则
  40.         调用子程序 怪物星级
  41.     否则
  42.         按键`
  43.         延时200毫秒
  44.     条件结束
  45. 子程序结束,回到调用处
  46. 子程序 人物是否死亡
  47.     调用外部VBScript子程序 在屏幕区域里查找图形(10,10,1000,750,"sgcqxz.bmp",0.4,x,y)
  48.     如果表达式 (x>0 and y>0) 为真,则
  49.         延时3000毫秒
  50.         鼠标移到 x , y
  51.         左键单击
  52.         延时5000毫秒
  53.         按键<Tab>
  54.         延时500毫秒
  55.         鼠标移到 745 , 215
  56.         延时100毫秒
  57.         左键单击
  58.         延时5000毫秒
  59.         鼠标移到 56 , 396
  60.         延时100毫秒
  61.         左键单击
  62.         延时100毫秒
  63.         鼠标移到 745 , 215
  64.         延时100毫秒
  65.         左键单击
  66.         延时100毫秒
  67.         鼠标移到 56 , 376
  68.         延时200毫秒
  69.         左键单击
  70.         延时200毫秒
  71.         按键<Esc>
  72.         延时200毫秒
  73.         鼠标移到 677 , 264
  74.         延时200毫秒
  75.         左键单击
  76.         延时200毫秒
  77.         鼠标移到 697 , 598
  78.         延时200毫秒
  79.         左键单击
  80.         延时5000毫秒
  81.         跳转到标记 死亡返回
  82.     否则
  83.         跳转到标记 到达
  84.     条件结束
  85. 子程序结束,回到调用处
  86. 子程序 自动组队
  87.     如果 (790,735) 的颜色大约等于 #12ffff 则
  88.         鼠标移到 790 , 735
  89.         延时500毫秒
  90.         左键单击
  91.         延时100毫秒
  92.         zdd=split(cstr(zd),",")
  93.         鼠标移到 clng(zdd(0)) , clng(zdd(1))
  94.         延时200毫秒
  95.         左键单击
  96.         延时200毫秒
  97.     条件结束
  98. 子程序结束,回到调用处