Call 竞技场打断()
ElseIf ms=2 Then
    Call 古堡打怪()
    Call 竞技场打断()
End if
If ms=3 Then
    Rem 竞技场小循环
    Delay 256
    Call 宠物模块1()
    Call 宠物模块()
    Rem 关闭宠物升级2
    Call 竞技场()
    Call 竞技场打断()
    Goto 竞技场小循环
End if
If ms=4 Then
    Delay 256
    Call 副本打怪()
    Delay 256
End if
n=n+1
dgjs=dgjs+1
If zdxx=1 Then
    Call Plugin.WindowEx3.SendTextRgnString(tisi,"总计打怪数为："&dgjs&"喝红瓶数为："&hpjs&"喝蓝瓶数为:"&lpjs)
Else
    Delay 23
    Goto 打怪开始
End if
Delay 23
Goto 打怪开始
//---------------------------------------判断用户选择红的百分比
Sub 红的百分比()
    If hong=0 Then
        inx=413
        iny=538
        inz="111516"
        Delay 23
    End if
    If hong=1 Then
        inx=413
        iny=538
        inz="111516"
        Delay 23
    ElseIf hong=2 Then
        inx=427
        iny=550
        inz="161A1A"
        Delay 23
    End if
    Delay 23
    If hong=3 Then
        inx=441
        iny=563
        inz="353636"
        Delay 23
    ElseIf hong=4 Then
        inx=462
        iny=573
        inz="383C3D"
        Delay 23
    End if
    Delay 23
End Sub
//---------------------------------------判断用户选择蓝的百分比
Sub 蓝的百分比()
    If lan=1 Then
        ina=584
        inb=540
        inc="0D1113"
        Delay 23
    ElseIf lan=2 Then
        ina=577
        inb=548
        inc="0F1315"
        Delay 23
    End if
    Delay 23
    If lan=3 Then
        ina=564
        inb=558
        inc="313435"
        Delay 23
    ElseIf lan=4 Then
        ina=539
        inb=572
        inc="2A2E2F"
        Delay 23
    End if
    Delay 23
End Sub
//---------------------------------------打怪开始
Sub 打怪()
    If wz=1 Then
        Delay 25
        Call Plugin.Bkgnd.LeftClick(Hwnd,910,187)
        Delay 56
        Call Plugin.Bkgnd.LeftClick(Hwnd,910,187)
    ElseIf wz=2 Then
        Delay 56
        Call Plugin.Bkgnd.LeftClick(Hwnd,910,246)