int get_r_request(int * list, char* name, int type, int log_count)
{
int i, count = 0;
for (i = 0; i < log_count; i++)
{
if (stringEquals(logarray[i].name, name) && logarray[i].type == type &&
isRoom(logarray[i].where))
list[count++] = logarray[i].where;
}
return count;
}
int get_room_list(int * list, int log_count)
{
int i, count = 0;
;
for (i = 0; i < log_count; i++)
{
if (isRoom(logarray[i].where) && !find_number_in_list(logarray[i].where,
list, count))
list[count++] = logarray[i].where;
}
qsort(list, count, sizeof (int), asc_comparer);
return count;
}
int has_flag( dbref player, dbref it, char *flagname ) {
FLAGENT *fp;
FLAG fv;
fp = find_flag( it, flagname );
if( fp == NULL ) { /* find_flag() uppercases the string */
if( !strcmp( flagname, "PLAYER" ) ) {
return isPlayer( it );
}
if( !strcmp( flagname, "THING" ) ) {
return isThing( it );
}
if( !strcmp( flagname, "ROOM" ) ) {
return isRoom( it );
}
if( !strcmp( flagname, "EXIT" ) ) {
return isExit( it );
}
return 0;
}
if( fp->flagflag & FLAG_WORD3 ) {
fv = Flags3( it );
} else if( fp->flagflag & FLAG_WORD2 ) {
fv = Flags2( it );
} else {
fv = Flags( it );
}
if( fv & fp->flagvalue ) {
if( ( fp->listperm & CA_WIZARD ) && !Wizard( player ) ) {
return 0;
}
if( ( fp->listperm & CA_GOD ) && !God( player ) ) {
return 0;
}
/*
* don't show CONNECT on dark wizards to mortals
*/
if( isPlayer( it ) && isConnFlag( fp ) &&
Can_Hide( it ) && Hidden( it ) && !See_Hidden( player ) ) {
return 0;
}
return 1;
}
return 0;
}
// ---------------------------------------------------------------------------
// count_quota, mung_quota, show_quota, do_quota: Manage quotas.
//
static int count_quota(dbref player)
{
if (Owner(player) != player)
{
return 0;
}
int q = 0 - mudconf.player_quota;
dbref i;
DO_WHOLE_DB(i)
{
if (Owner(i) != player)
{
continue;
}
if (Going(i) && (!isRoom(i)))
{
continue;
}
switch (Typeof(i))
{
case TYPE_EXIT:
q += mudconf.exit_quota;
break;
case TYPE_ROOM:
q += mudconf.room_quota;
break;
case TYPE_THING:
q += mudconf.thing_quota;
break;
case TYPE_PLAYER:
q += mudconf.player_quota;
break;
}
}
return q;
}
bool CBlock::isSellable(GLint playerID)
{
bool sellable = (isRoom() && this->type != CV_BLOCK_TYPE_HEART_ID && this->type != CV_BLOCK_TYPE_PORTAL_ID);
if (!sellable)
{
CBlockObject *bObject = NULL;
// might be that we're not trying to sell a room tile but a trap
for (std::vector<CBlockObject*>::iterator rmIter = blockObjects.begin(); rmIter != blockObjects.end(); rmIter++)
{
bObject = *rmIter;
if (bObject->getClassName()=="TRAP")
{
sellable = true;
break;
}
}
}
return (sellable && playerID == owner);
}
void
do_link(dbref player, dbref cause, int key, char *what, char *where)
{
dbref thing, room;
char *buff;
int nomtest;
if ( (key & SIDEEFFECT) && !SideFX(player) ) {
notify(player, "#-1 FUNCTION DISABLED");
return;
}
/* Find the thing to link */
init_match(player, what, TYPE_EXIT);
match_everything(0);
thing = noisy_match_result();
if (thing == NOTHING)
return;
nomtest = ((NoMod(thing) && !WizMod(player)) || (DePriv(player,Owner(thing),DP_MODIFY,POWER7,NOTHING) && (Owner(thing) != Owner(player))) || (Backstage(player) && NoBackstage(thing) && !Immortal(player)));
/* Allow unlink if where is not specified */
if (!where || !*where) {
if (!nomtest)
do_unlink(player, cause, key, what);
else
notify(player,"Permission denied.");
return;
}
switch (Typeof(thing)) {
case TYPE_EXIT:
/* Set destination */
room = parse_linkable_room(player, where);
if (room != NOTHING) {
if (!nomtest)
link_exit(player, thing, room, key);
else
notify(player,"Permission denied.");
}
break;
case TYPE_PLAYER:
case TYPE_THING:
/* Set home */
if (!Controls(player, thing) || nomtest) {
notify_quiet(player, "Permission denied.");
break;
}
init_match(player, where, NOTYPE);
match_everything(MAT_NO_EXITS);
room = noisy_match_result();
if (!Good_obj(room))
break;
if (!Has_contents(room)) {
notify_quiet(player, "Can't link to an exit.");
break;
}
if (!can_set_home(player, thing, room) ||
!could_doit(player, room, A_LLINK, 1, 0)) {
notify_quiet(player, "Permission denied.");
} else if (room == HOME) {
notify_quiet(player, "Can't set home to home.");
} else {
s_Home(thing, room);
if (!(Quiet(player) || (key & SIDEEFFECT)) )
notify_quiet(player, "Home set.");
}
break;
case TYPE_ROOM:
/* Set dropto */
if (!Controls(player, thing) || nomtest) {
notify_quiet(player, "Permission denied.");
break;
}
room = parse_linkable_room(player, where);
if (!Good_obj(room) && (room != HOME)) {
notify_quiet(player, "Permission denied.");
break;
}
if ((room != HOME) && !isRoom(room)) {
notify_quiet(player, "That is not a room!");
} else if ((room != HOME) &&
((!controls(player, room) && !Link_ok(room)) ||
!could_doit(player, room, A_LLINK, 1, 0))) {
notify_quiet(player, "Permission denied.");
} else {
s_Dropto(thing, room);
if (!Quiet(player))
notify_quiet(player, "Dropto set.");
}
break;
default:
STARTLOG(LOG_BUGS, "BUG", "OTYPE")
buff = alloc_mbuf("do_link.LOG.badtype");
sprintf(buff, "Strange object type: object #%d = %d",
thing, Typeof(thing));
log_text(buff);
free_mbuf(buff);
ENDLOG
}
}
static void give_money (dbref giver, dbref recipient, int key, int amount)
{
dbref aowner;
int cost, pcost, rcost, aflags, dpamount;
char *str;
/* do amount consistency check */
if (amount < 0 && ((!Builder(giver) && !HasPriv(giver,recipient,POWER_STEAL,POWER3,NOTHING)) ||
DePriv(giver,recipient,DP_STEAL,POWER6,NOTHING))) {
notify(giver,
unsafe_tprintf("You look through your pockets. Nope, no negative %s.",
mudconf.many_coins));
return;
}
if (!amount) {
notify(giver,
unsafe_tprintf("You must specify a positive number of %s.",
mudconf.many_coins));
return;
}
dpamount = 0;
if (amount < 0)
dpamount = DePriv(giver,NOTHING,DP_NOSTEAL,POWER7,POWER_LEVEL_NA);
else
dpamount = DePriv(giver,NOTHING,DP_NOGOLD,POWER7,POWER_LEVEL_NA);
if (dpamount) {
if (DPShift(giver))
dpamount--;
dpamount = mudconf.money_limit[dpamount];
}
else
dpamount = -1;
if (!Admin(Owner(giver))) {
if ((Typeof(recipient) == TYPE_PLAYER) && (Pennies(recipient) + amount > mudconf.paylimit)) {
notify(giver,
unsafe_tprintf("That player doesn't need that many %s!",
mudconf.many_coins));
return;
}
if ((Typeof(recipient) != TYPE_PLAYER) && (!could_doit(giver, recipient, A_LUSE,1))) {
notify(giver,
unsafe_tprintf("%s won't take your money.",
Name(recipient)));
return;
}
}
str = atr_get(Owner(giver), A_PAYLIM, &aowner, &aflags);
pcost = atoi(str);
free_lbuf(str);
if (!Immortal(Owner(giver)) && pcost) {
if ((Typeof(recipient) == TYPE_PLAYER) && (amount > 0) &&
(Pennies(recipient) + amount > pcost)) {
notify(giver,
unsafe_tprintf("That player doesn't need that many %s!",
mudconf.many_coins));
return;
}
else if (Pennies(recipient) + amount < (-pcost)) {
notify(giver,"That player doesn't need that much debt!");
return;
}
}
str = atr_get(Owner(recipient), A_RECEIVELIM, &aowner, &aflags);
rcost = atoi(str);
free_lbuf(str);
if (!Immortal(Owner(giver)) && rcost) {
if ((Typeof(recipient) == TYPE_PLAYER) && (amount > 0) &&
(Pennies(recipient) + amount > rcost)) {
notify(giver,
unsafe_tprintf("That player doesn't need that many %s!",
mudconf.many_coins));
return;
}
else if (Pennies(recipient) + amount < (-rcost)) {
notify(giver,"That player doesn't need that much debt!");
return;
}
}
if (!Immortal(Owner(giver))) {
if (dpamount >= 0) {
if (amount > 0) {
if ((Typeof(recipient) == TYPE_PLAYER) && (Pennies(recipient) + amount > dpamount)) {
notify(giver,
unsafe_tprintf("That player doesn't need that many %s!",
mudconf.many_coins));
return;
}
else if (amount > dpamount) {
notify(giver, "Permission denied.");
return;
}
}
else {
if ((Typeof(recipient) == TYPE_PLAYER) && (Pennies(recipient) + amount < (-dpamount))) {
notify(giver,
unsafe_tprintf("That player doesn't need that many %s!",
mudconf.many_coins));
return;
}
else if (amount < (-dpamount)) {
notify(giver, "Permission denied.");
return;
}
}
}
}
/* try to do the give */
if (!payfor_give(giver, amount)) {
notify(giver,
unsafe_tprintf("You don't have that many %s to give!",
mudconf.many_coins));
return;
}
/* Find out cost if an object */
if (Typeof(recipient) == TYPE_THING) {
str = atr_pget(recipient, A_COST, &aowner, &aflags);
cost = atoi(str);
free_lbuf(str);
/* Can't afford it? */
if (amount < cost) {
notify(giver, "Feeling poor today?");
giveto(giver, amount, NOTHING);
return;
}
/* Negative cost */
if (cost < 0) {
return;
}
} else {
cost = amount;
}
if (!(key & GIVE_QUIET)) {
if (amount == 1) {
notify(giver,
unsafe_tprintf("You give a %s to %s.",
mudconf.one_coin, Name(recipient)));
notify_with_cause(recipient, giver,
unsafe_tprintf("%s gives you a %s.", Name(giver),
mudconf.one_coin));
} else {
notify(giver,
unsafe_tprintf("You give %d %s to %s.", amount,
mudconf.many_coins, Name(recipient)));
notify_with_cause(recipient, giver,
unsafe_tprintf("%s gives you %d %s.", Name(giver),
amount, mudconf.many_coins));
}
}
else {
if (amount == 1) {
notify(giver,
unsafe_tprintf("You give a %s to %s. (quiet)",
mudconf.one_coin, Name(recipient)));
}
else {
notify(giver,
unsafe_tprintf("You give %d %s to %s. (quiet)",
amount, mudconf.many_coins,
Name(recipient)));
}
}
/* Report change given */
if((amount - cost) == 1) {
notify(giver,
unsafe_tprintf("You get 1 %s in change.", mudconf.one_coin));
giveto(giver, 1, NOTHING);
} else if (amount != cost) {
notify(giver,
unsafe_tprintf("You get %d %s in change.",
(amount - cost), mudconf.many_coins));
giveto(giver, (amount - cost), NOTHING);
}
if (pcost && (Pennies(Owner(recipient)) + cost > pcost)) {
pcost = pcost - Pennies(Owner(recipient));
if (pcost < 0)
pcost = 0;
}
else
pcost = cost;
if (!giveto(recipient, pcost, giver))
giveto(giver, cost, NOTHING);
/* Transfer the money and run PAY attributes */
/* Rooms should not kick off the PAY attribute */
if ( !isRoom(giver) )
did_it(giver, recipient, A_PAY, NULL, A_OPAY, NULL, A_APAY,
(char **)NULL, 0);
return;
}
void AGOSEngine::o_isRoom() {
// 25: is room
setScriptCondition(isRoom(getNextItemPtr()));
}
