NEU
Func Setup()
   If GetMapID() <> 449 Then
      Out("Zoning to Kamadan.")
      RndTravel(449)
   EndIf
    If GetHeroCount() < 4 Then
        Out("Add NPC.")
        RndSleep(2000)
        AddNpc(1)
        RndSleep(700)
        AddNpc(3)
        RndSleep(700)
        AddNpc(4)
        RndSleep(700)

    EndIf
    SwitchMode(0)
    Out("Normal Mode.")
    RndSleep(2000)
EndFunc


______________________________________________________________________________________________________
ALT
Func Main()
    Sleep(100)
    While 1
        Sleep(100)
        If $boolRun Then
            If $FirstRun == True Then
                $FirstRun = False
                If GetMapID() <> 819 Then ;
                    Update("Mapping to Kama")
                    TravelTo(819)
                EndIf

                If GetHeroCount() < 4 Then
                    RndSleep(2000)
                    AddNpc(1)
                    RndSleep(700)
                    AddNpc(3)
                    RndSleep(700)
                    AddNpc(4)
                    RndSleep(700)

                EndIf

;~              TOGGLERENDERING()
;~              Inventory()
            EndIf
            StartParty()
        EndIf
    WEnd
EndFunc   ;==>Main