Var1=DropList{"5次":"1"|"10次":"2"|"15次":"3"|"20次":"4"}=0 "您的技能次数是多少？？"
UserVar Var2=DropList{"第一个技能":"1"|"第二个技能":"2"|"第三个技能":"3"|"第四个技能":"4"}=0 "要使用第几个技能？"
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "请快速把鼠标移动到游戏窗口上！！倒计时：3", "0000FF")
Delay 1000
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "请快速把鼠标移动到游戏窗口上！！倒计时：2", "0000FF")
Delay 1000
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "请快速把鼠标移动到游戏窗口上！！倒计时：1", "0000FF")
Delay 1000
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "请快速把鼠标移动到游戏窗口上！！倒计时：0", "0000FF")
Delay 1000
Call Plugin.Msg.HideScrTXT()
Delay 1000
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "开始后台！如果没反应请重新", "dadww")
Dim Hwnd
Hwnd = Plugin.Window.MousePoint()
Rem NN
Delay 3000
If Var1=1 Then
    For 5
        Call 打怪()
    Next
    Call 加血()
    Call chongfu()
    Goto NN
ElseIf Var1=2 Then
    For 10
        Call 打怪()
    Next
    Call 加血()
    Call chongfu()
    Goto NN
ElseIf Var1=3 Then
    For 15
        Call 打怪()
    Next
    Call 加血()
    Call chongfu()
    Goto NN
ElseIf Var1=4 Then
    For 20
        Call 打怪()
    Next
    Call 加血()
    Call chongfu()
    Goto NN
End If
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "已完成自动打怪！准备重头开始  (*^__^*) 嘻嘻", "109271")
EndScript
//Rem ********以下都是子程序**************
//Rem ********以下都是子程序**************
//Rem ********以下都是子程序**************
//Rem ********以下都是子程序**************
//Rem ********以下都是子程序**************
Sub 技能()
    If Var2=1
        Call Plugin.Bkgnd.LeftClick(Hwnd, 508, 457)
    ElseIf Var2=2
        Call Plugin.Bkgnd.LeftClick(Hwnd, 633, 459)
    ElseIf Var2=3
        Call Plugin.Bkgnd.LeftClick(Hwnd, 504, 506)
    ElseIf Var2=4
        Call Plugin.Bkgnd.LeftClick(Hwnd, 616, 513)
    End If
End Sub
Sub 加血()
    Call Plugin.Bkgnd.LeftClick(Hwnd, 184, 433)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 421,429)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 412, 345)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 479, 354)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(Hwnd, 446, 137)
    Delay 1000
End Sub
Sub 打怪()
    Rem A
    Delay 1000
    Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 491, 262)
    Delay 2000
    GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 450, 447)
    If GetColor="FFD383" Then
        Call 技能()
    Else
        Delay 1000
        Goto A
    End If
    Delay 2000
    Call dianji()
End Sub
Sub dianji()
    Rem AAA
    Delay 1000
    Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 450, 223)
    If Color="00FFFF" Then
        Call Plugin.Bkgnd.LeftClick(Hwnd, 485, 356)
        Delay 100
        Call Plugin.Bkgnd.LeftClick(Hwnd, 472, 389)
        Delay 500