If isZQActive() And ($ZQWin >= 6 OR $ZQWin = 0)  False Then HAQuests()


Func HAQuests()
    Out("Getting Quest.")
    ;PingManager(180)
    If GetMapID() <> 248 Then RndTravel(248);,$Travel_Region, $Travel_District, $Travel_Language)
    WaitMapLoading(248)
    MoveTo(-5133.27, -5416.97)
    Local $Zaishen_Combat = GetNearestNPCToCoords(-5033.00,-5391.00)
    Local $Zehnchu = GetNearestNPCToCoords(-5019.00,-5496.00)

    If $ZQWin >= 6 Then
        GoToNPC($Zehnchu)
        For $i=1 To 4

            QuestReward(1102)
            Sleep(67)
            QuestReward(1094)
            Sleep(67)
            QuestReward(1118)
            Sleep(67)
            QuestReward(1110)
            Sleep(67);DANACH KICK
            QuestReward(1116);DANACH KICK
            Sleep(500)
        Next

        $ZQWin = 0
        IniWrite(@ScriptDir &"\HA"&".ini",$LoggedCharName ,"ZQWins",$ZQWin)
        ;GUICtrlSetData($WinCount,$ZQWin)
        $travel = GetMapID()
        RndTravel($travel)
        WaitMapLoading($travel)
        MoveTo(-5133.27, -5416.97)
        $Zaishen_Combat = GetNearestNPCToCoords(-5033.00,-5391.00)
        $Zehnchu = GetNearestNPCToCoords(-5019.00,-5496.00)
    EndIf

    GoToNPC($Zaishen_Combat)

    If $BotInitialized = "Setup" And $ZQWin = 0 Then
        AbandonQuest(1102)
        AbandonQuest(1094)
        AbandonQuest(1118)
        AbandonQuest(1110)
        AbandonQuest(1116);DANACH KICK

    EndIf

    For $i = 1 To 4
        AcceptQuest(1102)
        Sleep(67)
        AcceptQuest(1094)
        Sleep(67)
        AcceptQuest(1118)
        Sleep(67)
        AcceptQuest(1110)
        Sleep(67)
        AcceptQuest(1116)
        Sleep(500)
    Next



EndFunc