1.         （VBScript语句） file.Close
  2.     条件结束
  3.     （VBScript语句） Set file=fso.OpenTextFile(filename,2)
  4.     （VBScript语句） file.WriteLine(txt)
  5.     （VBScript语句） file.Close
  6.     now01=timer
  7. 子程序结束,回到调用处
  8. 子程序 CX.找到精灵
  9.     chose = 0
  10.     txt_record="CX.找到精灵"
  11.     var01=Split(var1,",")
  12.     调用子程序 CX.日志.记录
  13.     //原来位置查找精灵
  14.     循环 100 遍
  15.         延时200毫秒
  16.         标记 精灵好像不在
  17.         如果表达式 (X_last>0) 为真,则
  18.             X01 = X_last-15 : Y01= Y_last-15 : X02= X_last+15 : Y02 = Y_last+15
  19.         否则
  20.             X01 = A : Y01= B : X02= C : Y02 = D
  21.         条件结束
  22.         调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, X01, Y01, X02, Y02, COL01)
  23.         如果表达式 (XY = "-1|-1") 为真,则
  24.             调用插件命令 XY = Bkgnd.FindCenterColor(Hwnd, X01, Y01, X02, Y02, COL02)
  25.             COL01 = COL02
  26.         条件结束
  27.         MyArray = Split(XY, "|")
  28.         X_last = CInt(MyArray(0)): Y_last = CInt(MyArray(1))
  29.         如果表达式 (X_last >0) 为真,则
  30.             如果表达式 (X_last > a1 and X_last < a2 and Y_last > b1 and Y_last < b2) 为真,则
  31.                 X01 = A : Y01= B : X02= C : Y02 = D
  32.                 跳转到标记 精灵好像不在
  33.             条件结束
  34.             //下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：X_last, Y_last)处发送一个鼠标左键单击
  35.             调用插件命令 Bkgnd.LeftClick(Hwnd, X_last, Y_last)
  36.             调用插件命令 Bkgnd.LeftClick(Hwnd, X_last, Y_last)
  37.             循环 5 遍
  38.                 延时100毫秒
  39.                 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 789, 748)
  40.                 如果表达式 (GetColor = "9C5108") 为真,则
  41.                     调用插件命令 Bkgnd.LeftClick(Hwnd, 789, 748)
  42.                     延时200毫秒
  43.                     跳转到标记 精灵好像不在
  44.                 条件结束
  45.                 调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X_n, Y_n )
  46.                 如果表达式 (GetColor <> Color_N) 为真,则
  47.                     txt_record="X坐标：" & X_last & " Y坐标：" & Y_last & "颜色：" & COL01
  48.                     调用子程序 CX.日志.记录
  49.                     跳转到标记 找到精灵了
  50.                 条件结束
  51.                 调用子程序 点到玩家
  52.                 调用子程序 CX.选择面向精灵
  53.                 如果表达式 (chose = 1) 为真,则
  54.                     跳转到标记 END.找到精灵
  55.                 条件结束
  56.             循环结束
  57.         条件结束
  58.         txt_record=XY
  59.         调用子程序 CX.日志.记录
  60.         调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, X_n, Y_n )
  61.         如果表达式 (GetColor <> Color_N) 为真,则
  62.             txt_record="X坐标：" & X_last & " Y坐标：" & Y_last & "颜色：" & COL01
  63.             调用子程序 CX.日志.记录
  64.             跳转到标记 找到精灵了
  65.         条件结束
  66.         延时time101毫秒
  67.     循环结束
  68.     标记 找到精灵了
  69.     //下面这句是最小化窗口
  70.     调用插件命令 Window.Min(Hwnd)
  71.     filename="..\7time_A.txt"
  72.     调用子程序 CX.读文件
  73.     time_A=cint(txt)
  74.     延时time_A * 45毫秒
  75.     //下面这句是还原窗口
  76.     调用插件命令 Window.Restore(Hwnd)
  77.     //Plugin Window.Size(Hwnd01, A_1, B_1)
  78.     //下面这句按从左到右，从上到下的顺序查找窗口句柄(变量：Hwnd)窗口的指定矩形区域内指定颜色
  79.     i=-1
  80.     循环 6 遍
  81.         延时44毫秒
  82.         调用插件命令 XY = Bkgnd.FindColor(Hwnd, 545, 480, 577, 492, "FFD384")
  83.         MyArray = Split(XY, "|")
  84.         X = CInt(MyArray(0)): Y = CInt(MyArray(1))
  85.         如果表达式 (X > 0 and Y >0) 为真,则
  86.             跳转到标记 OK！可以选择技能
  87.         条件结束
  88.         i=i+1
  89.     循环结束
  90.     标记 OK！可以选择技能
  91.     time_A=time_A+i
  92.     txt=time_A:filename="..\7time_A.txt"
  93.     调用子程序 CX.写入文件
  94.     调用子程序 CX.选择技能
  95.     标记 END.找到精灵
  96. 子程序结束,回到调用处
  97. 子程序 CX.选择技能
  98.     i10=0
  99.     标记 动画中
  100.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 468, 224)