1.     令 Y = Clng(Right(XY,Len(XY) - ZB))
  2.     如果 X > 0 并且 Y > 0 则
  3.         调用 Bkgnd.LeftClick(Hwnd,X,Y)
  4.     否则
  5.         延时 200 毫秒
  6.         跳转到标记 ga1(子程序 关闭战斗显示1)
  7.     条件结束
  8. 子程序结束
  9. 子程序 模式1
  10.     标记 继续(子程序 模式1)
  11.     循环 guxiu 次
  12.         令 XY = Bkgnd.FindColor(Hwnd,357,305,427,326,"A9C7D4")
  13.         令 ZB = InStr(XY,"|")
  14.         令 X = Clng(Left(XY,ZB - 1))
  15.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  16.         如果 X > 0 并且 Y > 0 则
  17.             调用 Bkgnd.LeftClick(Hwnd,X,Y)
  18.         条件结束
  19.         延时 500 毫秒
  20.         标记 ga(子程序 模式1)
  21.         令 XY = Bkgnd.FindColor(Hwnd,421,382,493,405,"A9C7D4")
  22.         令 ZB = InStr(XY,"|")
  23.         令 X = Clng(Left(XY,ZB - 1))
  24.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  25.         如果 X > 0 并且 Y > 0 则
  26.             调用 Bkgnd.LeftClick(Hwnd,X,Y)
  27.         否则
  28.             跳转到标记 ga(子程序 模式1)
  29.         条件结束
  30.         延时 500 毫秒
  31.         如果 关闭战斗显示 = 0 则
  32.             调用 关闭战斗显示1()
  33.         否则如果 不关闭战斗显示 = 1 则
  34.         条件结束
  35.         延时 200 毫秒
  36.         标记 guanbi(子程序 模式1)
  37.         延时 300 毫秒
  38.         令 XY = Bkgnd.FindColor(Hwnd,505,431,578,454,"A9C7D4")
  39.         令 ZB = InStr(XY,"|")
  40.         令 X = Clng(Left(XY,ZB - 1))
  41.         令 Y = Clng(Right(XY,Len(XY) - ZB))
  42.         如果 X > 0 并且 Y > 0 则
  43.             调用 Bkgnd.LeftClick(Hwnd,X,Y)
  44.         否则
  45.             延时 2000 毫秒
  46.             跳转到标记 guanbi(子程序 模式1)
  47.         条件结束
  48.         延时 500 毫秒
  49.         SR.SetMode(1,Hwnd)
  50.         令 x1 = 268
  51.         令 y1 = 68
  52.         令 x2 = 425
  53.         令 y2 = 98
  54.         令 colordsc = "BEA67A-000000"
  55.         令 similar = 0.95
  56.         令 STR = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)
  57.         调用 Msg.ShowScrTXT(0,0,500,500,STR,"29AA41")
  58.         延时 500 毫秒
  59.         SR.SetMode(1,Hwnd)
  60.         令 x1 = 270
  61.         令 y1 = 91
  62.         令 x2 = 427
  63.         令 y2 = 121
  64.         令 colordsc = "BEA67A-000000"
  65.         令 similar = 0.95
  66.         令 STT = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)
  67.         调用 Msg.ShowScrTXT(0,0,500,500,STT,"29AA41")
  68.         延时 300 毫秒
  69.         令 x1 = 277
  70.         令 y1 = 121
  71.         令 x2 = 456
  72.         令 y2 = 145
  73.         令 colordsc = "S[30-50]"
  74.         令 similar = 0.95
  75.         令 STA = SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)
  76.         如果 STA = 您本次探险还有0次复活机会 则
  77.             跳转到标记 哈哈(子程序 模式1)
  78.         否则
  79.         条件结束
  80.         如果 xuelan = 1 则
  81.             如果 吃红 = 1 则
  82.                 调用 红90()
  83.             否则如果 吃红 = 2 则
  84.                 调用 红80()
  85.             否则如果 吃红 = 3 则
  86.                 调用 红70()
  87.             否则如果 吃红 = 4 则
  88.                 调用 红60()
  89.             否则如果 吃红 = 5 则
  90.                 调用 红50()
  91.             否则如果 吃红 = 6 则
  92.                 调用 红40()
  93.             否则如果 吃红 = 7 则
  94.                 调用 红30()
  95.             否则如果 吃红 = 8 则
  96.                 调用 红20()
  97.             否则如果 吃红 = 9 则
  98.                 调用 红10()
  99.             否则如果 吃红 = 10 则
  100.             条件结束