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