/* 
 *
 * Kloner Mieszkancow 
 * by Silvy - Luty '97
 * zaadaptowany do klonowania orkow przez Rangara,
 * Listopad 1997
 *
 */

#define NPCPATH "/d/Imperium/Kraina/ORKI/npc/"

object *ludzie = ({});

string rodzaj();

void
ludzie(int ilu)
{
    int x;

    if (ilu == 0)
        return;
    
    if ((x = sizeof(ludzie)) != ilu)
    {
        if (x > ilu)
        {
            ludzie = exclude_array(ludzie, x - ilu, x - 1);
        }
        else
            ludzie += allocate(ilu - x);
    }
    
    for (x = 0; x < ilu; x++)
    {
        if (!objectp(ludzie[x]))
        {
            ludzie[x] = clone_object(rodzaj());
            ludzie[x]->szykuj();
            ludzie[x]->move(TO);
        }
    }

    return;
}    

string
rodzaj()
{
    return NPCPATH + "ork.c";
}