1. 子程序 打怪
  2.     延时10毫秒
  3.     t6=now
  4.     //初始化时间
  5.     标记 怪没死
  6.     硬件模拟按键<1>
  7.     延时100毫秒
  8.     //----------------------------------
  9.     调用子程序 时间技能
  10.     延时10毫秒
  11.     调用子程序 锁怪时间
  12.     延时10毫秒
  13.     调用子程序 红蓝检测
  14.     延时10毫秒
  15.     调用子程序 组队交易检测
  16.     //---------------------------------
  17.     调用外部VBScript子程序 在屏幕区域里查找图形(798,0,1023,200,"Attachment:\奇迹定位点.bmp",0.6,x,y)
  18.     如果表达式 (x1>0 and y1>0) 为真,则
  19.         //怪没死
  20.         跳转到标记 怪没死
  21.     否则
  22.         调用子程序 捡起东西
  23.     条件结束
  24. 子程序结束,回到调用处
  25. //*******************************************
  26. // 放时间技能
  27. //********************************************
  28. 子程序 时间技能
  29.     延时10毫秒
  30.     如果表达式 (DateDiff("s",t1,now)>=sj(0)) 为真,则
  31.         //< DateDiff 函数：返回两个日期之间的时间间隔>
  32.         //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  33.         硬件模拟按键<2>
  34.         //按键2
  35.         延时100毫秒
  36.         t1=now
  37.     条件结束
  38.     如果表达式 (DateDiff("s",t2,now)>=sj(1)) 为真,则
  39.         硬件模拟按键<3>
  40.         //按键3
  41.         延时100毫秒
  42.         t2=now
  43.     条件结束
  44.     如果表达式 (DateDiff("s",t3,now)>=sj(2)) 为真,则
  45.         //< DateDiff 函数：返回两个日期之间的时间间隔>
  46.         //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  47.         硬件模拟按键<4>
  48.         //按键 4
  49.         延时100毫秒
  50.         t3=now
  51.         //重新定义时间变量
  52.     条件结束
  53.     如果表达式 (DateDiff("s",t4,now)>=sj(3)) 为真,则
  54.         硬件模拟按键<5>
  55.         //按键5
  56.         延时100毫秒
  57.         t4=now
  58.     条件结束
  59.     如果表达式 (DateDiff("s",t5,now)>=sj(4)) 为真,则
  60.         硬件模拟按键-
  61.         //按键-
  62.         延时100毫秒
  63.         t5=now
  64.     条件结束
  65. 子程序结束,回到调用处
  66. //********************************
  67. // 锁怪6秒超时换怪判断
  68. //********************************
  69. 子程序 锁怪时间
  70.     延时10毫秒
  71.     如果表达式 (DateDiff("s",t6,now)>=6) 为真,则
  72.         //< DateDiff 函数：返回两个日期之间的时间间隔>
  73.         //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  74.         延时8毫秒
  75.         t6=now
  76.         //重新定义时间变量
  77.         调用外部VBScript子程序 在屏幕区域里查找图形(798,0,1023,200,"Attachment:\奇迹定位点.bmp",0.6,x,y)
  78.         如果表达式 (x1>0 and y1>0) 为真,则
  79.             //还没打到怪,太远或卡或是BOSS,重新找怪
  80.             硬件模拟按键<Tab>
  81.             //锁定下一个怪
  82.         条件结束
  83.     条件结束
  84. 子程序结束,回到调用处
  85. //****************************************
  86. // 捡拾东西
  87. //****************************************
  88. 子程序 捡起东西
  89.     硬件模拟按键<6>
  90.     //捡起东西
  91.     延时50毫秒
  92.     硬件模拟按键<6>
  93.     //捡起东西
  94.     延时50毫秒
  95. 子程序结束,回到调用处
  96. //******************************************
  97. // 组队+复活+交易
  98. //******************************************
  99. 子程序 复活
  100.     如果表达式 (FH=0) 为真,则