Func AfterRun()
    RndSleep(3000)
    TravelGH()
    RndSleep(1000)

    If GetKurzickFaction() < 5000 Then Return
    GoToNPC(GetAgentByName("Kurzick Bureaucrat [Faction Rewards]"))


    If $Donate = "Raise Alliance Reputation" Then
        $FactionReward = 1
    EndIf
    If $Donate = "Amber Chunks" Then
        $FactionReward = 2
    EndIf
    If $Donate = "Urgoz's Warren Scrolls" Then
        $FactionReward = 3
    EndIf


    Switch $FactionReward
        Case 1
            Dialog(0x00000086)
            TolSleep(1000, 250)

            While GetKurzickFaction() >= 5000
                DonateFaction("k")
                TolSleep(1000, 250)
            WEnd
        Case 2
            While GetKurzickFaction() >= 5000
                Dialog(0x00800101)
                TolSleep(1000, 250)
            WEnd
        Case 3
            While GetKurzickFaction() >= 1000
                Dialog(0x00800102)
                TolSleep(1000, 250)
            WEnd
    EndSwitch

    TolSleep(1500, 500)
    LeaveGH()
EndFunc