/* 
 *
 * Kloner Mieszkancow 
 * by Silvy - Luty '97
 *
 */

#define NPCPATH "/d/Imperium/Zakon/npc"
#define TO this_object()

object *ludzie = ({});

string rodzaj();

void
ludzie(int ilu)
{
    int x;
    
    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()
{
    switch(random(7))
    {
        case 0:
        return NPCPATH + "dziecko.c";
        break;
        case 1:
        return NPCPATH + "marynarz.c";
        break;
        case 2:
        return NPCPATH + "lowca.c";
        break;
        case 3:
        return NPCPATH + "prostytu.c";
        break;
        case 4:
        return NPCPATH + "szlachci.c";
        break;
        case 5:
        return NPCPATH + "goniec.c";        
        break;
        case 6:
        return NPCPATH + "przekupka.c";
    }        
}