=================自定义区=======================

UserVar dm=0 "杀怪人物窗口句柄"
UserVar dm1=0 "辅助补血窗口句柄"
UserVar s1=1000 "放技能时间(毫秒)"
UserVar hong=0 "血"
UserVar lan=0 "蓝"
UserVar Var0=DropList{"开":"1"|"关":"2"}=1 "自动捡物"
UserVar V1=DropList{"全部":"1"|"蓝色以上":"2"|"紫色以上":"3"}=0 "捡物设置"
UserVar jw=1000 "捡物时间"
UserVar Vars=DropList{"开":"1"|"关":"2"}=1 "辅助补血"
UserVar Var1=DropList{"开":"1"|"关":"2"}=1 "1键技能"
UserVar Var2=DropList{"开":"1"|"关":"2"}=1 "2键技能"
UserVar Var3=DropList{"开":"1"|"关":"2"}=1 "3键技能"
UserVar Var4=DropList{"开":"1"|"关":"2"}=1 "4键技能"
UserVar Var5=DropList{"开":"1"|"关":"2"}=1 "5键技能"
UserVar Var6=DropList{"开":"1"|"关":"2"}=1 "6键技能"
UserVar Var7=DropList{"开":"1"|"关":"2"}=1 "7键技能"
UserVar VarF1=DropList{"开":"1"|"关":"2"}=1 "F1键技能"
UserVar VarF2=DropList{"开":"1"|"关":"2"}=1 "F2键技能"
UserVar VarF3=DropList{"开":"1"|"关":"2"}=1 "F3键技能"
UserVar VarF4=DropList{"开":"1"|"关":"2"}=1 "F4键技能"
UserVar TA1=1000 "1技能冷却时间(毫秒)"
UserVar TA2=1000 "2技能冷却时间(毫秒)"
UserVar TA3=1000 "3技能冷却时间(毫秒)"
UserVar TA4=1000 "4技能冷却时间(毫秒)"
UserVar TA5=1000 "5技能冷却时间(毫秒)"
UserVar TA6=1000 "6技能冷却时间(毫秒)"
UserVar TA7=1000 "7技能冷却时间(毫秒)"
UserVar TAF1=1000 "F1补血冷却时间(毫秒)"
UserVar TAF2=1000 "F2补蓝冷却时间(毫秒)"
UserVar TAF3=1000 "F3补血冷却时间(毫秒)"
UserVar TAF4=1000 "F4补蓝冷却时间(毫秒)"
set aa=CreateObject("simplugocr.ocr")
aa.dict="default_dict.txt"
aa.fontcolor="ffffff"
aa.bgcolor="FFFFFF"

////============主程序=================
Call Plugin.Window.Move(dm,0,0)
Delay 100
Call Plugin.Window.Move(dm1,186,173)
Delay 2000
Rem 找怪
IfColor 498,78,"1C1CE0",2 Then
    Goto 攻击技能
Else
    Call Plugin.Bkgnd.KeyPress(dm, 9)
    Delay 500
    Goto 找怪
   
End If

Rem 攻击技能
Call 技能1()
Call 判断怪物死()
Call 技能2()
Call 判断怪物死()
Call 技能3()
Call 判断怪物死()
Call 技能4()
Call 判断怪物死()
Call 技能5()
Call 判断怪物死()
Call 技能6()
Call 判断怪物死()
Call 技能7()
Call 判断怪物死()
Goto 找怪
////==========技能子程序区======================
EndScript
EndScript
sub 技能1
    If Var1 ="1" then
        TN1 = Plugin.Sys.GetTime()
        TG1=TN1-TJ1-TA1
    End if
    If TG1>0
        Call Plugin.Bkgnd.KeyPress(dm, 49)
        TJ1=TN1
        Delay s1
    End If
End sub 
sub 技能2
    If Var2 ="1" then
        TN2 = Plugin.Sys.GetTime()
        TG2=TN2-TJ2-TA2
    End if
    If TG2>0
        Call Plugin.Bkgnd.KeyPress(dm, 50)
        TJ2=TN2
        Delay s1
    End If
End sub 
sub 技能3
    If Var3 ="1" then
        TN3 = Plugin.Sys.GetTime()
        TG3=TN3-TJ3-TA3
    End if
    If TG3>0