Plugin hwnd=Twindows.Find("LUNA Online","LUNA Online")
Plugin WindowEx2.MoveWindow(hwnd,0,0)
VBS dim hong,qg
VBS dim t1,t2,time1,time2
VBS t1=now:t2=now
UserVar time1=5*60 第一个技能的间隔时间(分)，
UserVar time2=14*60 第二个技能的间隔时间(分)，
UserVar qg=droplist{是:0|否:1} 是否不抢怪
UserVar hong=45 血量<hong%时，自动吃红
UserVar lan=10 MP<hong%时，自动吃mp
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Rem 开始
KeyPress 9,1
Delay 200
Gosub 找怪
Delay 100
Goto 开始
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★攻★击★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Sub 攻击
    //KeyPress 50,1
    //Delay 200
    Rem 攻击1
    KeyPress 49,1
    Delay 200
    //Gosub 加血
    IfColor 342,70,d69cff,0
        Goto 攻击1
    EndIf 
Return 攻击
Sub 加血
    IfColor hong/100*(196-69)+69 57 c075f3 1
        KeyPress 52,1
        Delay 100
        //补血延时
    EndIf 
    IfColor lan/100*(196-69)+69 70 E85F1C 1
        KeyPress 53,1
        Delay 100
        //补血延时
    EndIf 
Return 
Sub 找怪
    If qg=0
        IfColor 459,70,d69cff,0
            Goto 攻击
        Else 
            Goto 开始
        EndIf 
    EnlIf
Return 
    Sub 状态技能1
        If datediff("s",t1,now)>=tiam1
            Delay 500
            KeyPress 55,1
            Delay 200
            KeyPress 56,1
            Delay 3000
            t1=now
        EndIf 
    Return 
    Sub 状态技能2
        If datediff("s",t2,now)<time2
            Goto 开始
        Else 
            KeyPress 112,1
            Delay 100
            KeyPress 57,1
            Delay 1000
            t2=now
        EndIf 
    Return