1.     调用子程序 行军攻击
  2.     // Gosub 对话npc框
  3.     //三月
  4.     //兵一
  5.     xingx=843:xingy=548:jiaox=852:jiaoy=552:gongjw=53
  6.     xingx=843:xingy=548:jiaox=854:jiaoy=562:gongjw=53
  7.     调用子程序 行军攻击
  8.     //兵二
  9.     xingx=768:xingy=521:jiaox=739:jiaoy=518:gongjw=33
  10.     调用子程序 行军攻击
  11.     //兵三
  12.     xingx=768:xingy=548:jiaox=742:jiaoy=560:gongjw=43
  13.     调用子程序 行军攻击
  14.     ///攻击完成后
  15.     调用子程序 读验证码
  16.     x1=728:y1=223
  17.     调用子程序 答题了罗
  18.     //记完成日志
  19.     // If renqijindu = 6
  20.     // Plugin File.WriteINI("NumMax","renqijindu",7,filenM)
  21.     // EndIf
  22.     time2 = obj.GetTickCount()
  23.     currtime=date
  24.     currtime= currtime&" " &time
  25.     str=cstr(ttlcount)&"路人=["&cstr(currtime)&"]--成功！！耗时:" & CStr(int((time2-time1)/1000)) & "秒 "
  26.     调用子程序 记运行日志
  27.     time1 = obj.GetTickCount()
  28. 子程序结束,回到调用处
  29. 子程序 NPC对话
  30.     str="进入 "&npc&"对话"
  31.     调用子程序 记运行日志10
  32.     x=-2
  33.     dnn=1
  34.     按住<F1>
  35.     如果表达式 (x < 00) 为真,则循环执行
  36.         按键<Esc>
  37.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(10,10,900,700,"bmp\npc4.bmp",0.9,x,y)
  38.         如果表达式 (x>=0 and y>=0) 为真,则
  39.             鼠标移到 x+15 , y+10
  40.             延时chbtime毫秒
  41.             左键单击
  42.             延时10*chbtime毫秒
  43.         否则
  44.             dnn=dnn+1
  45.             如果表达式 ((dnn mod 10) = 0) 为真,则
  46.                 鼠标相对移动 0 , 10
  47.                 左键单击
  48.             条件结束
  49.             延时1000毫秒
  50.         条件结束
  51.         调用子程序 重新进入
  52.     循环结束
  53.     xiangshidu=0
  54.     调用子程序 对话npc框
  55.     str="出 "&npc&"对话"
  56.     调用子程序 记运行日志10
  57. 子程序结束,回到调用处
  58. 子程序 对话npc框
  59.     str="出 "&npc&"对话框"
  60.     调用子程序 记运行日志10
  61.     xx=2
  62.     如果表达式 (xx>0) 为真,则循环执行
  63.         如果 (877,383) 的颜色等于 #294508 则
  64.             弹起<F1>
  65.             xx=-2
  66.         否则
  67.             延时chbtime毫秒
  68.         条件结束
  69.         调用子程序 重新进入
  70.     循环结束
  71.     延时1000毫秒
  72.     xx=2
  73.     如果表达式 (xx>0) 为真,则循环执行
  74.         如果 (877,383) 的颜色等于 #294508 则
  75.             鼠标移到 537 , 468
  76.             左键单击
  77.             延时dltime毫秒
  78.         否则
  79.             延时chbtime毫秒
  80.             xx=-2
  81.         条件结束
  82.         调用子程序 重新进入
  83.     循环结束
  84.     延时dltime毫秒
  85.     str="出 "&npc&"对话框"
  86.     调用子程序 记运行日志10
  87. 子程序结束,回到调用处
  88. 子程序 要出兵罗
  89.     xx=2
  90.     如果表达式 (xx>0) 为真,则循环执行
  91.         如果 (814,576) 的颜色等于 #fffbff 则
  92.             xx=-2
  93.         否则
  94.             延时chbtime毫秒
  95.         条件结束
  96.         如果 (141,431) 的颜色等于 #1014a5 则
  97.             xx=-2
  98.         条件结束
  99.         调用子程序 重新进入
  100.     循环结束