If STR = "关闭" then 
Call Plugin.Bkgnd.LeftClick(Hwnd, 537,444)
Else
Delay 1000
Goto guanbi
End If
If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
If chongwushengji = 1 then
gosub 宠物升级
ElseIf chongwushengji = 2 then
End If
dadeguai = dadeguai+1
dadeguaio = dadeguai

Next 
Gosub 修理装备
Goto guaijixu
End Sub
Sub 古堡模式
For made
gubaozi = Plugin.Bkgnd.GetPixelColor(Hwnd, 596,318)
If gubaozi ="A9C7D4" then
Goto buyongle
Else
End If
Delay 300
If yaoshi = 1 then
gosub yaoshi11
ElseIf yaoshi = 2 then
gosub yaoshi22
ElseIf yaoshi = 3 then
gosub yaoshi33
End If
Delay 1000
If chushi =1 then
  gosub ceng1
    
ElseIf  chushi=2 then
   gosub ceng2
   
ElseIf  chushi=3 then
   gosub  ceng3
    End If
    If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
Rem buyongle
If moshi = 1 then
Call 模式1
ElseIf moshi = 2 then
Call 模式2
End If
Next
End Sub
Sub 修理装备
Rem bj2
Rem bj1
zb2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 580, 402)
If zb2 ="43DAE1" then
    Call Plugin.Bkgnd.LeftClick(Hwnd, 580, 402)
ElseIf zb2= "8FEAEF"
    Delay 300
    Call Plugin.Bkgnd.LeftClick(Hwnd, 580, 402)
Else
    Goto bj1
End If
GetColor6 = Plugin.Bkgnd.GetPixelColor(Hwnd, 906, 364)
Delay 300
If GetColor6="162C4B" Then
    Call Plugin.Bkgnd.LeftClick(Hwnd, 906, 364)
Else
    Goto bj2
End If
Rem bj3
GetColor7 = Plugin.Bkgnd.GetPixelColor(Hwnd, 460, 394)
Delay 300
If GetColor7="A9C7D4" Then
    Call Plugin.Bkgnd.LeftClick(Hwnd, 460, 394)
Else
    Goto bj3
End If
Rem bj4
GetColor8 = Plugin.Bkgnd.GetPixelColor(Hwnd, 512, 393)
Delay 300
If GetColor8="454591" Then
    Call Plugin.Bkgnd.LeftClick(Hwnd, 512, 393)
Else
    Goto bj4
End If

Rem zb
Delay 200
zb = Plugin.Bkgnd.GetPixelColor(Hwnd, 586,410)
If zb="2A5975" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 586,410)
ElseIf zb = "3F9AB5" Then