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

#define NPCPATH "/d/Imperium/Nuln/npc/"

object ludz1,ludz2,ludz3,ludz4,ludz5;

string rodzaj();

void
ludzie(int ilu)
{
    if(!objectp(ludz1))
    { 
        ludz1=clone_object(rodzaj());
        ludz1->move(TO);
    }
    if(ilu==1)
    return;
    if(!objectp(ludz2))
    { 
        ludz2=clone_object(rodzaj());
        ludz2->move(TO);
    }
    if(ilu==2)
    return;
    if(!objectp(ludz3))
    { 
        ludz3=clone_object(rodzaj());
        ludz3->move(TO);
    }
    if(ilu==3)
    return;
    if(!objectp(ludz4))
    { 
        ludz4=clone_object(rodzaj());
        ludz4->move(TO);
    }
    if(ilu==4)
    return;
    if(!objectp(ludz5))
    { 
        ludz5=clone_object(rodzaj());
        ludz5->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";
    }        
}