Func castingEngine()

    cast(7)
    For $i=1 To 6
        cast($i)
    Next

    Do
        $cbType = "int"

        For $i=3 To 6
            CmdCB($CA_SKILLRECHARGE, $i)
            If Not $cbVar[0] Then
                cast($i)
            EndIf
        Next

        $cbType = "float"
        CmdCB($CA_GETNEARESTALIVEENEMYTOAGENT, -2)

    Until $cbVar[1] > 1250

EndFunc


;cast
;casts the skill in slot $skillBarSlot on target $target
;with $waitForCast=True the function returns after the character has finished casting
Func cast($skillBarSlot, $target = -2, $waitForCast=True)

    $cbType = "int"

    Cmd($CA_USESKILL, $skillBarSlot, $target)

    If $waitForCast Then
        Sleep(150)
        Do
            CmdCB($CA_CASTING)
            Sleep(10)
        Until $cbVar[0] = 0
    EndIf

EndFunc