For xunhuan
If guaijjc = 0 then
ElseIf guaijjc =1 then
If X2<=time Then
gosub 竞技场加怪
X1 = time
X2=DateAdd("n",daguaijingji,X1)
End If
End if
If xuelan = 1 then
If 吃红=1
Gosub 红90
ElseIf 吃红=2
    Gosub 红80  
        ElseIf 吃红=3 then
       Gosub 红70
         ElseIf 吃红 = 4 then
        Gosub 红60
          ElseIf 吃红=5 then
          Gosub 红50
          ElseIf 吃红=6 then
          Gosub 红40
          ElseIf 吃红=7 then
          Gosub 红30
          ElseIf 吃红=8 then
          Gosub 红20
          ElseIf 吃红=9 then
          Gosub 红10
          ElseIf 吃红=10 then
          End If
 If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
 If 吃蓝=1
        Gosub 蓝90
        ElseIf 吃蓝=2 then
         Gosub 蓝80
         ElseIf 吃蓝=3 then
          Gosub 蓝70
          ElseIf 吃蓝=4 then
          Gosub 蓝60
           ElseIf 吃蓝=5 then
           Gosub 蓝50
            ElseIf 吃蓝=6 then
            Gosub 蓝40
             ElseIf 吃蓝=7 then
             Gosub 蓝30
              ElseIf 吃蓝=8 then
              Gosub 蓝20
               ElseIf 吃蓝=9 then
               Gosub 蓝10
                ElseIf 吃蓝=10 then
          End If
          If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
   ElseIf xuelan = 2 then
Gosub 内存血
If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
gosub 内存蓝
If shifouhanhua = 1 then
gosub 喊话
ElseIf shifouhanhua= 2 then
End if
   End If
If guai=1 then
call 位置1
ElseIf guai=2 then
call 位置2
ElseIf guai=3 then
call 位置3
ElseIf guai=4 then
call 位置4
ElseIf guai=5 then
call 位置5
End If
Rem guaiding
Delay 300
guaiding = Plugin.Bkgnd.GetPixelColor(Hwnd, 463,396)
If guaiding= "A9C7D4" then
Call Plugin.Bkgnd.LeftClick(Hwnd, 463,396)
Else
Goto guaiding
End If
If 关闭战斗显示 = 0
Gosub 关闭战斗显示1
ElseIf 不关闭战斗显示 =1
End If
Delay 1000
Plugin.SR.SetMode 1,Hwnd
Rem guanbi
Delay 500
x1=518:y1=434:x2=567:y2=457
colordsc="D4C7A9-000000":similar=0.95
STR=Plugin.SR.ShapeRec(x1,y1,x2,y2,colordsc,similar)