bullshit lies

party_dice(string arg)
{
mixed tmp, newplace;
object otmp,leader,pob;
mapping mtmp,members;
object *followers, *artmp, *final, test;

if(!admin_rights(THISPLR))
{
write("You cannot force a party dice.
");
return 1;
}
[24/102 (23%)] More(Y/n/h)?

members = query_members();

if (!members || !mappingp(members))
{
write("There does not seem to be a party to dice with.
");
return 1;
}

followers=m_indices(members);

if (!followers || !pointerp(followers) || !sizeof(followers))
{
write("There does not seem to be a party to dice with.
");
return 1;
}

mtmp=([]);
foreach(pob : followers)
mtmp[pob]=random(100)+1;

artmp=followers;
final=({});
[47/102 (46%)] More(Y/n/h)?
while (sizeof(artmp))
{
test=artmp[0];
foreach(otmp : artmp)
if (mtmp[otmp]>mtmp[test])
test=otmp;
final+{test});
artmp=cut_array(artmp,member_array(test,artmp));
}

leader = query_leader();
inform_party(NAME(leader)+" calls for a dicing.
",0);

foreach(pob : final)
inform_party(NAME(pob)+" rolls: "+mtmp[pob]+".
",0);

return 1;
}