1.         令 colordsc = "D4C7A9-000000"
  2.         令 similar = 0.95
  3.         令 STR = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)
  4.         如果 STR = "关闭" 则
  5.             调用 Bkgnd.LeftClick(Hwnd,537,444)
  6.         否则
  7.             延时 1000 毫秒
  8.             跳转到标记 guanbi(子程序 打怪模式)
  9.         条件结束
  10.         如果 shifouhanhua = 1 则
  11.             调用 喊话()
  12.         否则如果 shifouhanhua = 2 则
  13.         条件结束
  14.         如果 chongwushengji = 1 则
  15.             调用 宠物升级()
  16.         否则如果 chongwushengji = 2 则
  17.         条件结束
  18.         令 dadeguai = dadeguai + 1
  19.         令 dadeguaio = dadeguai
  20.     循环结束
  21.     调用 修理装备()
  22.     跳转到标记 guaijixu(子程序 打怪模式)
  23. 子程序结束
  24. 子程序 古堡模式
  25.     循环 made 次
  26.         令 gubaozi = Bkgnd.GetPixelColor(Hwnd,596,318)
  27.         如果 gubaozi = "A9C7D4" 则
  28.             跳转到标记 buyongle(子程序 古堡模式)
  29.         否则
  30.         条件结束
  31.         延时 300 毫秒
  32.         如果 yaoshi = 1 则
  33.             调用 yaoshi11()
  34.         否则如果 yaoshi = 2 则
  35.             调用 yaoshi22()
  36.         否则如果 yaoshi = 3 则
  37.             调用 yaoshi33()
  38.         条件结束
  39.         延时 1000 毫秒
  40.         如果 chushi = 1 则
  41.             调用 ceng1()
  42.         否则如果 chushi = 2 则
  43.             调用 ceng2()
  44.         否则如果 chushi = 3 则
  45.             调用 ceng3()
  46.         条件结束
  47.         如果 shifouhanhua = 1 则
  48.             调用 喊话()
  49.         否则如果 shifouhanhua = 2 则
  50.         条件结束
  51.         标记 buyongle(子程序 古堡模式)
  52.         如果 moshi = 1 则
  53.             调用 模式1
  54.         否则如果 moshi = 2 则
  55.             调用 模式2
  56.         条件结束
  57.     循环结束
  58. 子程序结束
  59. 子程序 修理装备
  60.     标记 bj2(子程序 修理装备)
  61.     标记 bj1(子程序 修理装备)
  62.     令 zb2 = Bkgnd.GetPixelColor(Hwnd,580,402)
  63.     如果 zb2 = "43DAE1" 则
  64.         调用 Bkgnd.LeftClick(Hwnd,580,402)
  65.     否则如果 zb2 = "8FEAEF" 则
  66.         延时 300 毫秒
  67.         调用 Bkgnd.LeftClick(Hwnd,580,402)
  68.     否则
  69.         跳转到标记 bj1(子程序 修理装备)
  70.     条件结束
  71.     令 GetColor6 = Bkgnd.GetPixelColor(Hwnd,906,364)
  72.     延时 300 毫秒
  73.     如果 GetColor6 = "162C4B" 则
  74.         调用 Bkgnd.LeftClick(Hwnd,906,364)
  75.     否则
  76.         跳转到标记 bj2(子程序 修理装备)
  77.     条件结束
  78.     标记 bj3(子程序 修理装备)
  79.     令 GetColor7 = Bkgnd.GetPixelColor(Hwnd,460,394)
  80.     延时 300 毫秒
  81.     如果 GetColor7 = "A9C7D4" 则
  82.         调用 Bkgnd.LeftClick(Hwnd,460,394)
  83.     否则
  84.         跳转到标记 bj3(子程序 修理装备)
  85.     条件结束
  86.     标记 bj4(子程序 修理装备)
  87.     令 GetColor8 = Bkgnd.GetPixelColor(Hwnd,512,393)
  88.     延时 300 毫秒
  89.     如果 GetColor8 = "454591" 则
  90.         调用 Bkgnd.LeftClick(Hwnd,512,393)
  91.     否则
  92.         跳转到标记 bj4(子程序 修理装备)
  93.     条件结束
  94.     标记 zb(子程序 修理装备)
  95.     延时 200 毫秒
  96.     令 zb = Bkgnd.GetPixelColor(Hwnd,586,410)
  97.     如果 zb = "2A5975" 则
  98.         调用 Bkgnd.LeftClick(Hwnd,586,410)
  99.     否则如果 zb = "3F9AB5" 则
  100.         延时 300 毫秒