1.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 113, 196)
  2.     如果表达式 (GetColor = "0000EF") 为真,则
  3.         X00=184:Y00=425:time00=500
  4.     否则
  5.         X00=834:Y00=531:time00=500
  6.     条件结束
  7.     X01= 450 : Y01= 137 : COL01 = "633000" : time01=300
  8.     如果表达式 (Var005="1") 为真,则
  9.         X01= 450 : Y01= 157 : COL01 = "633000" : time01=300
  10.     条件结束
  11.     调用子程序 CX.点击判断
  12.     如果表达式 (Var1114_temp = "0") 为真,则
  13.         //补看小弟的血
  14.         延时500毫秒
  15.         调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 262, 227)
  16.         如果表达式 (right ( GetColor , 2 ) = "E7") 为真,则
  17.         否则
  18.             调用子程序 CX.精灵恢复补充
  19.         条件结束
  20.         如果表达式 (buxue > 1) 为真,则
  21.             跳转到标记 END精灵恢复关闭窗口
  22.         条件结束
  23.         X00 = 405 : Y00 = 225
  24.         X01 = 392 : Y01 = 249 : COL02 = "633000" :Time02 = 45 : xiaosh=1
  25.         调用子程序 CX.点击判断
  26.     条件结束
  27.     调用子程序 CX.精灵恢复补充
  28.     标记 END精灵恢复关闭窗口
  29.     //关闭窗口
  30.     X01= 450 : Y01= 137 : COL01 = "633000" : time01=500
  31.     如果表达式 (Var005="1") 为真,则
  32.         X01= 450 : Y01= 157 : COL01 = "633000" : time01=500
  33.     条件结束
  34.     调用子程序 CX.判断点击判断
  35.     buxue=cint(var2)
  36.     Var1114_temp = 10
  37. 子程序结束,回到调用处
  38. 子程序 CX.精灵恢复补充
  39.     循环 5 遍
  40.         //获取精灵恢复坐标
  41.         调用插件命令 XY = Bkgnd.FindColor(Hwnd, 230, 410, 450, 433, "0000FF")
  42.         MyArray = Split(XY, "|")
  43.         X = CInt(MyArray(0)): Y = CInt(MyArray(1))
  44.         如果表达式 (X>0 and Y>0) 为真,则
  45.             跳转到标记 精灵恢复坐标
  46.         条件结束
  47.         延时time101毫秒
  48.     循环结束
  49.     标记 精灵恢复坐标
  50.     X00=X:Y00=Y:time00=500
  51.     X01= 358 : Y01= 239 : COL01 = "FFFFFF" : time01=500
  52.     调用子程序 CX.点击判断
  53.     循环 5 遍
  54.         调用子程序 CX.确定判断
  55.         延时time101毫秒
  56.     循环结束
  57. 子程序结束,回到调用处
  58. 子程序 CX.选择楼层
  59.     X00=449:Y00=86:time00=500
  60.     X01= 599 : Y01= 304 : COL01 = "FFFFFF" : time01=200
  61.     调用子程序 CX.点击判断
  62.     标记 开始挑战001
  63.     X00= Y3 : Y00=Y3:time00=500
  64.     调用子程序 CX.直接点击
  65.     延时time101毫秒
  66.     调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 113, 195)
  67.     如果表达式 (GetColor = "0004F7") 为真,则
  68.         跳转到标记 进入挑战塔
  69.     否则
  70.         //选择楼层
  71.         延时time101毫秒
  72.         调用插件命令 GetColor = Bkgnd.GetPixelColor(Hwnd, 793, 262)
  73.         如果表达式 (GetColor = "FFFFFF") 为真,则
  74.             X00=793:Y00=262+var3*36:time00=500
  75.             X01= 113 : Y01= 195 : COL01 = "0004F7" : time01=200
  76.             调用子程序 CX.点击判断
  77.         否则
  78.             跳转到标记 开始挑战001
  79.         条件结束
  80.     条件结束
  81.     标记 进入挑战塔
  82. 子程序结束,回到调用处
  83. 子程序 CX.读句柄
  84.     （VBScript语句） dim fso,file,filename
  85.     （VBScript语句） filename="..\句柄.txt"
  86.     （VBScript语句） Set fso=CreateObject("Scripting.FileSystemObject")
  87.     如果表达式 (fso.FileExists(filename)=0) 为真,则
  88.         Var_QD = "1"
  89.         跳转到标记 END读句柄
  90.         //MessageBox "句柄不在"
  91.         //Goto END
  92.     条件结束
  93.     （VBScript语句） Set file=fso.OpenTextFile(filename,1)
  94.     （VBScript语句） Hwnd=file.ReadLine
  95.     （VBScript语句） file.Close
  96.     （VBScript语句） dim fso,file,filename
  97.     （VBScript语句） filename="..\程序句柄.txt"
  98.     （VBScript语句） Set fso=CreateObject("Scripting.FileSystemObject")
  99.     如果表达式 (fso.FileExists(filename)=0) 为真,则
  100.         Var_QD = "1"