bCombat := false
bLooping := false

nDelayF := 15
nDelayS := 1500
nDelayD := 25

tShari := A_TickCount
tDimach := A_TickCount
tStim := A_TickCount
tDiffuse := A_TickCount
tCaress := A_TickCount
tTotemic := A_TickCount
tFlesh := A_TickCount

tFools := A_TickCount
tEvade := A_TickCount
tLimber := A_TickCount
tPhylactery := A_TickCount
tBlur := A_TickCount
tDrain := A_TickCount

tPiercingA := A_TickCount
tPiercingB := A_TickCount
tFeast := A_TickCount
tChaos := A_TickCount

tCombatDelay := A_TickCount

tFastAttack :=A_TickCount

SetKeyDelay, nDelayF, nDelayD

*NumpadMult::Pause, Toggle

~Numpad0::
    ExitApp
Return

*Numpad1::
    Loop {
        ;Begin Attack
        ImageSearch, TX, TY, 850, 772, 950, 778, *32 %A_ScriptDir%\blue.png
        if (TX) {
            ;NOT IN COMBAT, ABOUT TO START
            Send R
            Send q
            Sleep 1000
            bCombat := true
        } else if (bCombat) {
            ImageSearch, CX, CY, 37, 37, 156, 73, *32 %A_ScriptDir%\green.png
            if (not CX) {
                bCombat := false
                Continue
            }
        } else {
            Send {Tab}
            Continue
        }
        ;Check Health
        if (tFastAttack < A_TickCount) {
            Send n
            tFastAttack := A_TickCount + 7000
        }
        ImageSearch, HX, HY, 1733, 65, 1890, 84, *32 %A_ScriptDir%\missing.png
        if (HX) {
            if (tShari < A_TickCount) {
                Send F
                tShari := A_TickCount + 601000
                Sleep 1000
                Continue
            }
            if (tDimach < A_TickCount) {
                Send k
                tDimach := A_TickCount + 261000
                Continue
            }
            if (tStim < A_TickCount) {
                Send {F1}
                Send E
                Send {F1}
                tStim := A_TickCount + 41000
                Continue
            }
            if (tDiffuse < A_TickCount) {
                Send +2
                Send 1
                tDiffuse := A_TickCount + 91000
                Sleep 1000
                Continue
            }
            if (tCaress < A_TickCount) {
                Send T
                Sleep 1150
                tCaress := A_TickCount + 121000
                Sleep 1000
                Continue
            }
            if (tTotemic < A_TickCount) {
                Send +2
                SetKeyDelay, nDelayS, nDelayD
                tTotemic := A_TickCount + 42000
                Sleep 1500
                Send 2
                Send 3
                Send 4
                Send 5
                Send 6
                Send 7
                Send 8
                SetKeyDelay, nDelayF, nDelayD
                Continue
            }
            if (tFlesh < A_TickCount) {
                Send G
                tFlesh := A_TickCount + 1201000
                Continue
            }
            else {
                Send Q
                tDrain := A_TickCount + 47000
                Sleep 3000
                Continue
            }
        }
        ;Buffs
        if (tFools < A_TickCount) {
            Send A
            tLimber := tLimber + 32500
            tEvade := tEvade + 37500
            tFools := A_TickCount + 66000
            Continue
        }
        if (tEvade < A_TickCount) {
            Send D
            tEvade := A_TickCount + 201000
            Continue
        }
        if (tLimber < A_TickCount) {
            Send S
            tLimber := A_TickCount + 66000
            Continue
        }
        if (tPhylactery < A_TickCount) {
            Send +3
            SetKeyDelay, nDelayS, nDelayD
            tPhylactery := A_TickCount + 59000
            Sleep 1500
            Send 1
            Send 2
            Send 3
            Send 4
            Send 5
            Send 6
            Send 7
            SetKeyDelay, nDelayF, nDelayD
            Continue
        }
        if (tBlur < A_TickCount) {
            Send +3
            Send 0
            tBlur := A_TickCount + 66000
            Continue
        }
        if (tDrain < A_TickCount) {
            Send Q
            tDrain := A_TickCount + 47000
            Continue
        }
        ;Damage
        if (tPiercingA < A_TickCount) {
            Send +1
            SetKeyDelay, nDelayS, nDelayD
            tPiercingA := A_TickCount + 30000
            Sleep 1000
            Send 3
            Send 4
            SetKeyDelay, nDelayF, nDelayD
            Continue
        }
        if (tPiercingB < A_TickCount) {
            Send +1
            SetKeyDelay, nDelayS, nDelayD
            tPiercingA := A_TickCount + 30000
            tPiercingB := A_TickCount + 30000
            Sleep 1000
            Send 5
            Send 6
            Send 7
            SetKeyDelay, nDelayF, nDelayD
            Continue
        }
        if (tFeast < A_TickCount) {
            Send +1
            Send 0
            tFeast := A_TickCount + 70000
            Sleep 1500
            Continue
        }
        if (tChaos < A_TickCount) {
            Send +1
            Send 9
            tChaos := A_TickCount + 95000
            Sleep 1500
            Continue
        }
        if (tTotemic < A_TickCount) {
            Send +2
            SetKeyDelay, nDelayS, nDelayD
            tTotemic := A_TickCount + 42000
            Sleep 1500
            Send 2
            Send 3
            Send 4
            Send 5
            Send 6
            Send 7
            Send 8
            SetKeyDelay, nDelayF, nDelayD
            Continue
        }
    }
Return