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