bool spec_janitor(CHAR_DATA * ch)
{
OBJ_DATA *trash;
OBJ_DATA *trash_next;
if (!IS_AWAKE(ch))
return FALSE;
for (trash = ch->in_room->first_content; trash; trash = trash_next) {
trash_next = trash->next_content;
if (!IS_SET(trash->wear_flags, ITEM_TAKE)
|| IS_OBJ_STAT(trash, ITEM_BURRIED))
continue;
if (trash->item_type == ITEM_DRINK_CON
|| trash->item_type == ITEM_TRASH
|| trash->cost < 10
|| (trash->pIndexData->vnum == OBJ_VNUM_SHOPPING_BAG
&& !trash->first_content)) {
act(AT_ACTION, "$n picks up some trash.", ch, NULL,
NULL, TO_ROOM);
obj_from_room(trash);
obj_to_char(trash, ch);
return TRUE;
}
}
return FALSE;
}
void do_remove(struct char_data *ch, char *argument, int cmd)
{
char arg1[MAX_STRING_LENGTH];
char buffer[MAX_STRING_LENGTH];
char buffer1[MAX_STRING_LENGTH];
struct obj_data *obj_object;
struct char_data *tmp_char;
int i, j;
one_argument(argument, arg1);
if (*arg1) {
obj_object = get_object_in_equip_vis(ch, arg1, ch->equipment, &j);
if (obj_object) {
if (CAN_CARRY_N(ch) != IS_CARRYING_N(ch)) {
obj_to_char(unequip_char(ch, j), ch);
if (obj_object->obj_flags.type_flag == ITEM_LIGHT)
if (obj_object->obj_flags.value[2])
world[ch->in_room].light--;
act("You stop using $p.",FALSE,ch,obj_object,0,TO_CHAR);
act("$n stops using $p.",TRUE,ch,obj_object,0,TO_ROOM);
} else {
send_to_char("You can't carry that many items.\n\r", ch);
}
} else {
send_to_char("You are not using it.\n\r", ch);
}
} else {
send_to_char("Remove what?\n\r", ch);
}
}
void do_dridereq( CHAR_DATA *ch, char *argument )
{
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
int vnum = 0;
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_DROID))
{
send_to_char("Huh?\n\r", ch );
return;
}
if (arg[0] == '\0')
{
send_to_char("Please specify which piece of drider armor you wish to make: whip ring collar armor helmet leggings boots gloves sleeves cloak belt bracer mask.\n\r",ch);
return;
}
if (!str_cmp(arg,"whip" )) vnum = 33140;
else if (!str_cmp(arg,"ring" )) vnum = 33141;
else if (!str_cmp(arg,"collar" )) vnum = 33142;
else if (!str_cmp(arg,"armor" )) vnum = 33143;
else if (!str_cmp(arg,"helmet" )) vnum = 33144;
else if (!str_cmp(arg,"leggings" )) vnum = 33145;
else if (!str_cmp(arg,"boots" )) vnum = 33146;
else if (!str_cmp(arg,"gloves" )) vnum = 33147;
else if (!str_cmp(arg,"sleeves" )) vnum = 33148;
else if (!str_cmp(arg,"cloak" )) vnum = 33149;
else if (!str_cmp(arg,"belt" )) vnum = 33150;
else if (!str_cmp(arg,"bracer" )) vnum = 33151;
else if (!str_cmp(arg,"mask" )) vnum = 33152;
else
{
do_dridereq(ch,"");
return;
}
if ( ch->practice < 150)
{
send_to_char("It costs 150 points of primal to create a piece of drider armour.\n\r",ch);
return;
}
if ( vnum == 0 || (pObjIndex = get_obj_index( vnum )) == NULL)
{
send_to_char("Missing object, please inform Dracknuur.\n\r",ch);
return;
}
ch->practice -= 150;
obj = create_object(pObjIndex, 50);
obj->questowner = str_dup(ch->pcdata->switchname);
obj_to_char(obj, ch);
act("$p appears in your hands in a blast of flames.",ch,obj,NULL,TO_CHAR);
act("$p appears in $n's hands in a blast of flames.",ch,obj,NULL,TO_ROOM);
return;
}
void take_obj_list(struct char_data *ch,struct obj_data *o,int *amount,struct char_data *give_to)
{
char buf[MAX_STRING_LENGTH];
if (*amount<=0 && !o) return;
if (o->contains)
take_obj_list(ch,o->contains,amount,give_to);
else if (o->next_content)
take_obj_list(ch,o->next_content,amount,give_to);
else {
if (o->carried_by)
obj_from_char(o);
if (o->in_obj)
obj_from_obj(o);
*amount -= o->obj_flags.cost;
sendf(ch,"Your %s is taken.\n",o->short_description);
if (give_to)
sendf(give_to,"You take his %s.\n",o->short_description);
if (give_to) {
sprintf(buf,"FINE: %d take from %s",o->virtual,GET_NAME(ch));
slog(buf);
obj_to_char(o,give_to);
o->held_for=mystrdup(GET_NAME(ch));
} else {
sprintf(buf,"LINK: %d take from %s",o->virtual,GET_NAME(ch));
slog(buf);
extract_obj(o);
}
}
bool spec_janitor( CHAR_DATA *ch )
{
OBJ_DATA *trash;
OBJ_DATA *trash_next;
if ( !IS_AWAKE(ch) )
return FALSE;
for ( trash = ch->in_room->contents; trash != NULL; trash = trash_next )
{
trash_next = trash->next_content;
if ( !IS_SET( trash->wear_flags, ITEM_TAKE ) || !can_loot(ch,trash))
continue;
if ( trash->item_type == ITEM_DRINK_CON
|| trash->item_type == ITEM_TRASH
|| trash->cost < 10 )
{
act( "$n picks up some trash.", ch, NULL, NULL, TO_ROOM );
obj_from_room( trash );
obj_to_char( trash, ch );
return TRUE;
}
}
return FALSE;
}
void
sort_keeper_objs(struct char_data * keeper, int shop_nr)
{
struct obj_data *list = 0, *temp;
while (SHOP_SORT(shop_nr) < IS_CARRYING_N(keeper))
{
temp = keeper->carrying;
obj_from_char(temp);
temp->next_content = list;
list = temp;
}
while (list)
{
temp = list;
list = list->next_content;
if ((shop_producing(temp, shop_nr)) &&
!(get_obj_in_list_num(GET_OBJ_RNUM(temp), keeper->carrying)))
{
obj_to_char(temp, keeper);
SHOP_SORT(shop_nr)++;
} else
(void) slide_obj(temp, keeper, shop_nr);
}
}
void mag_creations(int level, struct char_data *ch, int spellnum)
{
struct obj_data *tobj;
obj_vnum z;
if (ch == NULL)
return;
/* level = MAX(MIN(level, LVL_IMPL), 1); - Hm, not used. */
switch (spellnum) {
case SPELL_CREATE_FOOD:
z = 10;
break;
default:
send_to_char(ch, "Spell unimplemented, it would seem.\r\n");
return;
}
if (!(tobj = read_object(z, VIRTUAL))) {
send_to_char(ch, "I seem to have goofed.\r\n");
log("SYSERR: spell_creations, spell %d, obj %d: obj not found",
spellnum, z);
return;
}
obj_to_char(tobj, ch);
act("$n creates $p.", FALSE, ch, tobj, 0, TO_ROOM);
act("You create $p.", FALSE, ch, tobj, 0, TO_CHAR);
}
/*
* Disarm a creature.
* Caller must check for successful attack.
*/
void disarm( CHAR_DATA *ch, CHAR_DATA *victim )
{
OBJ_DATA *obj;
if ( ( obj = get_eq_char( victim, WEAR_WIELD ) ) == NULL )
return;
if ( IS_OBJ_STAT(obj,ITEM_NOREMOVE))
{
act("$S weapon won't budge!",ch,NULL,victim,TO_CHAR, 1);
act("$n tries to disarm you, but your weapon won't budge!",
ch,NULL,victim,TO_VICT, 0);
act("$n tries to disarm $N, but fails.",ch,NULL,victim,TO_NOTVICT, 0);
return;
}
act( "$n DISARMS you and sends your weapon flying!",
ch, NULL, victim, TO_VICT, 1 );
act( "You disarm $N!", ch, NULL, victim, TO_CHAR, 1 );
act( "$n disarms $N!", ch, NULL, victim, TO_NOTVICT, 0 );
obj_from_char( obj );
if ( IS_OBJ_STAT(obj,ITEM_NODROP) || IS_OBJ_STAT(obj,ITEM_INVENTORY) )
obj_to_char( obj, victim );
else
{
obj_to_room( obj, victim->in_room );
if (IS_NPC(victim) && victim->wait == 0 && can_see_obj(victim,obj))
get_obj(victim,obj,NULL);
}
return;
}
SPEC_RET spec_janitor( CHAR_DATA *ch )
{
OBJ_DATA *trash;
OBJ_DATA *trash_next;
if ( !is_awake(ch) )
return FALSE;
for ( trash = ch->in_room->first_content; trash; trash = trash_next )
{
trash_next = trash->next_content;
if ( !HAS_BIT(trash->wear_flags, OBJWEAR_TAKE) ) continue;
if ( HAS_BIT(trash->extra_flags, OBJFLAG_BURIED) ) continue;
if ( trash->type == OBJTYPE_DRINK_CON
|| trash->type == OBJTYPE_TRASH
|| trash->cost < 10
|| (trash->pObjProto->vnum == VNUM_OBJ_SHOPPING_BAG && !trash->first_content) )
{
act( AT_ACTION, "$n raccoglie della spazzatura.", ch, NULL, NULL, TO_ROOM );
obj_from_room( trash );
obj_to_char( trash, ch );
return TRUE;
}
}
return FALSE;
}
void do_katana( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *obj;
if (IS_NPC(ch)) return;
if (!IS_CLASS(ch, CLASS_SAMURAI))
{
send_to_char("Huh?\n\r",ch);
return;
}
if ( 250 > ch->practice)
{
send_to_char("It costs 250 points of primal to create a Katana.\n\r",ch);
return;
}
ch->practice -= 250;
obj = create_object(get_obj_index(33176) ,50 );
SET_BIT(obj->quest, QUEST_RELIC);
obj->condition = 100;
obj->toughness = 100;
obj->resistance = 1;
obj->value[1] = 65;
obj->value[2] = 115;
obj->questowner = str_dup(ch->pcdata->switchname);
obj->ownerid = ch->pcdata->playerid;
obj_to_char(obj, ch);
act("A katana flashes into existance.",ch,NULL,NULL,TO_CHAR);
act("A katana suddenly apear in $n's hands.",ch,NULL,NULL,TO_ROOM);
return;
}
void do_magearmor( CHAR_DATA *ch, char *argument )
{
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
int vnum = 0;
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if(!IS_IMMORTAL(ch))
{
if( !IS_CLASS(ch, CLASS_MAGE) )
{
send_to_char("What?\n\r",ch);
return;
}
}
if (arg[0] == '\0')
{
send_to_char("Please specify which piece of mage armor you wish to make: Dagger Staff Ring Collar Robe Cap Leggings Boots Gloves Sleeves Cape Belt Bracer Mask.\n\r",ch);
return;
}
if ( ch->practice < 60 )
{
send_to_char("It costs 60 points of primal to create mage equipment.\n\r",ch);
return;
}
if (!str_cmp(arg,"mask")) vnum = 33013;
else if (!str_cmp(arg,"belt")) vnum = 33011;
else if (!str_cmp(arg,"cape")) vnum = 33010;
else if (!str_cmp(arg,"ring")) vnum = 33002;
else if (!str_cmp(arg,"collar")) vnum = 33003;
else if (!str_cmp(arg,"robe")) vnum = 33004;
else if (!str_cmp(arg,"cap")) vnum = 33005;
else if (!str_cmp(arg,"leggings")) vnum = 33006;
else if (!str_cmp(arg,"boots")) vnum = 33007;
else if (!str_cmp(arg,"gloves")) vnum = 33008;
else if (!str_cmp(arg,"sleeves")) vnum = 33009;
else if (!str_cmp(arg,"bracer")) vnum = 33012;
else if (!str_cmp(arg,"staff")) vnum = 33000;
else if (!str_cmp(arg,"dagger")) vnum = 33001;
else
{
do_magearmor(ch,"");
return;
}
if ( vnum == 0 || (pObjIndex = get_obj_index( vnum )) == NULL)
{
send_to_char("Missing object, please inform a God.\n\r",ch);
return;
}
obj = create_object(pObjIndex, 50);
obj->questowner = str_dup(ch->pcdata->switchname);
obj_to_char(obj, ch);
ch->practice -= 60;
act("$p appears in your hands.",ch,obj,NULL,TO_CHAR);
act("$p appears in $n's hands.",ch,obj,NULL,TO_ROOM);
return;
}
void do_taneq(CHAR_DATA *ch, char *argument)
{
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
int vnum = 0;
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if( !IS_CLASS(ch, CLASS_TANARRI))
{
send_to_char("What?\n\r",ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("Please specify which piece of tanar'ri armor you wish to make: Claymore Bracer\n\r"
"Collar Ring Plate Helmet Leggings Boots Gauntlets Sleeves Cloak Belt Visor.\n\r",ch);
return;
}
if ( ch->practice < 100 )
{
send_to_char("It costs 100 points of primal to create Tanar'ri equipment.\n\r",ch);
return;
}
if (!str_cmp(arg,"claymore")) vnum = 33200;
else if (!str_cmp(arg,"bracer")) vnum = 33202;
else if (!str_cmp(arg,"collar")) vnum = 33203;
else if (!str_cmp(arg,"ring")) vnum = 33201;
else if (!str_cmp(arg,"plate")) vnum = 33204;
else if (!str_cmp(arg,"helmet")) vnum = 33205;
else if (!str_cmp(arg,"leggings")) vnum = 33209;
else if (!str_cmp(arg,"boots")) vnum = 33206;
else if (!str_cmp(arg,"gauntlets")) vnum = 33207;
else if (!str_cmp(arg,"sleeves")) vnum = 33208;
else if (!str_cmp(arg,"cloak")) vnum = 33210;
else if (!str_cmp(arg,"belt")) vnum = 33211;
else if (!str_cmp(arg,"visor")) vnum = 33212;
else
{
do_taneq(ch,"");
return;
}
if ( vnum == 0 || (pObjIndex = get_obj_index( vnum )) == NULL)
{
send_to_char("Missing object, please inform a God.\n\r",ch);
return;
}
obj = create_object(pObjIndex, 50);
obj->questowner = str_dup(ch->pcdata->switchname);
obj->ownerid = ch->pcdata->playerid;
obj_to_char(obj, ch);
ch->practice -= 100;
act("$p appears in your hands.",ch,obj,NULL,TO_CHAR);
act("$p appears in $n's hands.",ch,obj,NULL,TO_ROOM);
return;
}
void do_token(CHAR_DATA *ch, char *argument)
{
OBJ_DATA *obj;
char arg1[MSL];
char arg2[MSL];
char arg3[MSL];
char arg4[MSL];
CHAR_DATA *to,*to_next;
argument = one_argument(argument,arg1);
argument = one_argument(argument,arg2);
argument = one_argument(argument,arg3);
if( arg1[0] == '\0'||
arg2[0] == '\0' ||
arg3[0] == '\0' ||
argument[0] == '\0')
{
send_to_one(ch,"Syntax: token <type> <winchance> <max_win> <min_win>\n\r"
"Token Types are:\n\r"
"Normal 0\n\r"
"Practice 1\n\r"
"Train 2\n\r"
"Quest 3\n\r"
"Exp 4\n\r"
"All arguments must be numerical.");
return;
}
obj = create_object(get_obj_index(OBJ_VNUM_TOKEN),0);
obj->value[0] = atoi(arg1);
obj->value[1] = atoi(arg2);
obj->value[2] = atoi(arg3);
obj->value[3] = atoi(argument);
obj->name = str_dup(token_table[obj->value[0]].name);
free_string(obj->short_descr);
obj->short_descr = str_dup(token_table[obj->value[0]].short_descr);
free_string(obj->description);
obj->description = str_dup(token_table[obj->value[0]].long_descr);
obj_to_char(obj,ch);
send_to_one(ch,"You have created a %s token.",token_table[obj->value[0]].name);
for(to = ch->in_room->people; to; to = to_next)
{
to_next = to->next_in_room;
if(to->in_room == ch->in_room && to != ch)
{
send_to_one(to,"%s has created %s token.",PERS(ch,to),token_table[obj->value[0]].name);
}
}
return;
}
void do_angelicarmor( CHAR_DATA *ch, char *argument )
{
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *obj;
char arg[MAX_INPUT_LENGTH];
int vnum = 0;
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if( !IS_CLASS(ch, CLASS_ANGEL))
{
send_to_char("What?\n\r",ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("Please specify which piece of angel armor you wish to make: Sword Bracer Necklace Ring Plate Helmet Leggings Boots Gauntlets Sleeves Cloak Belt Visor.\n\r",ch);
return;
}
if ( ch->practice < 150 )
{
send_to_char("It costs 150 points of primal to create angel equipment.\n\r",ch);
return;
}
if (!str_cmp(arg,"sword")) vnum = 33192;
else if (!str_cmp(arg,"bracer")) vnum = 33181;
else if (!str_cmp(arg,"necklace")) vnum = 33182;
else if (!str_cmp(arg,"ring")) vnum = 33180;
else if (!str_cmp(arg,"plate")) vnum = 33187;
else if (!str_cmp(arg,"helmet")) vnum = 33184;
else if (!str_cmp(arg,"leggings")) vnum = 33188;
else if (!str_cmp(arg,"boots")) vnum = 33189;
else if (!str_cmp(arg,"gauntlets")) vnum = 33190;
else if (!str_cmp(arg,"sleeves")) vnum = 33191;
else if (!str_cmp(arg,"cloak")) vnum = 33185;
else if (!str_cmp(arg,"belt")) vnum = 33183;
else if (!str_cmp(arg,"visor")) vnum = 33186;
else
{
do_angelicarmor(ch,"");
return;
}
if ( vnum == 0 || (pObjIndex = get_obj_index( vnum )) == NULL)
{
send_to_char("Missing object, please inform a God.\n\r",ch);
return;
}
obj = create_object(pObjIndex, 50);
obj->questowner = str_dup(ch->pcdata->switchname);
obj_to_char(obj, ch);
ch->practice -= 150;
act("$p appears in your hands.",ch,obj,NULL,TO_CHAR);
act("$p appears in $n's hands.",ch,obj,NULL,TO_ROOM);
return;
}
static void event_fill_zone_with_mobs(int rnum, struct room_data *rp,
struct event_mob_in_zone *mobs)
{
int i = 0;
int j = 0;
int couldbe = 0;
int exit_found = FALSE;
struct char_data *monster = NULL;
struct obj_data *object = NULL;
if (DEBUG > 1)
log_info("called %s with %d, %08zx, %08zx", __PRETTY_FUNCTION__, rnum, (size_t) rp,
(size_t) mobs);
if (!rp || rp->number < mobs->bottom || rp->number > mobs->top)
return;
if (IS_SET(rp->room_flags, (NO_MOB | PEACEFUL | PRIVATE)))
return;
exit_found = 0;
for (i = 0; i < MAX_NUM_EXITS; i++) /* neswud */
if (rp->dir_option[i]) {
exit_found = 1;
break;
}
if (!exit_found)
return;
couldbe = number(mobs->atleast, mobs->atmost);
for (j = 0; j < couldbe; j++) {
if (number(0, 99) >= mobs->chance)
continue;
i = number(1, mobs->count) - 1;
if (!(monster = read_mobile(mobs->mobset[i].vnum, VIRTUAL)))
continue;
monster->points.max_hit = dice(mobs->mobset[i].hp_dice,
mobs->mobset[i].hp_die) + mobs->mobset[i].hp_mod;
GET_HIT(monster) = GET_MAX_HIT(monster);
GET_EXP(monster) = (dice(mobs->mobset[i].exp_dice, mobs->mobset[i].exp_die)
+ mobs->mobset[i].exp_mod) * GET_MAX_HIT(monster);
GET_GOLD(monster) = number(mobs->mobset[i].gold_dice, mobs->mobset[i].gold_die)
+ mobs->mobset[i].gold_mod;
if (mobs->mobset[i].obj_vnum >= 0) {
if (number(0, 99) < mobs->mobset[i].obj_chance) {
if ((object = read_object(mobs->mobset[i].obj_vnum, VIRTUAL)))
obj_to_char(object, monster);
}
}
char_to_room(monster, rnum);
mob_count++;
act("In a shimmering column of blue light, $N appears!", FALSE,
monster, 0, monster, TO_ROOM);
}
}
void equip_char(struct char_data *ch, struct obj_data *obj, int pos)
{
int j;
if (pos < 0 || pos >= NUM_WEARS) {
core_dump();
return;
}
if (GET_EQ(ch, pos)) {
log("SYSERR: Char is already equipped: %s, %s", GET_NAME(ch),
obj->short_description);
return;
}
if (obj->carried_by) {
log("SYSERR: EQUIP: Obj is carried_by when equip.");
return;
}
if (IN_ROOM(obj) != NOWHERE) {
log("SYSERR: EQUIP: Obj is in_room when equip.");
return;
}
if (invalid_align(ch, obj) || invalid_class(ch, obj)) {
act("You are zapped by $p and instantly let go of it.", FALSE, ch, obj, 0, TO_CHAR);
act("$n is zapped by $p and instantly lets go of it.", FALSE, ch, obj, 0, TO_ROOM);
/* Changed to drop in inventory instead of the ground. */
obj_to_char(obj, ch);
return;
}
GET_EQ(ch, pos) = obj;
obj->worn_by = ch;
obj->worn_on = pos;
if (GET_OBJ_TYPE(obj) == ITEM_ARMOR)
GET_AC(ch) -= apply_ac(ch, pos);
if (IN_ROOM(ch) != NOWHERE) {
if (pos == WEAR_LIGHT && GET_OBJ_TYPE(obj) == ITEM_LIGHT)
if (GET_OBJ_VAL(obj, 2)) /* if light is ON */
world[IN_ROOM(ch)].light++;
} else
log("SYSERR: IN_ROOM(ch) = NOWHERE when equipping char %s.", GET_NAME(ch));
for (j = 0; j < MAX_OBJ_AFFECT; j++)
affect_modify_ar(ch, obj->affected[j].location,
obj->affected[j].modifier,
GET_OBJ_AFFECT(obj), TRUE);
affect_total(ch);
}
void do_skyforge( CHAR_DATA *ch, char *argument )
{
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *obj;
int vnum = 0;
if (IS_NPC(ch)) return;
if(!IS_IMMORTAL(ch))
{
if (!IS_CLASS(ch, CLASS_SKYBLADE))
{
send_to_char("What?\n\r",ch);
return;
}
}
if (ch->pcdata->powers[SKYBLADE_MAGIC] < 1)
{
send_to_char("You haven't mastered enough of the magic ability yet.\n\r",ch);
return;
}
if ( ch->practice < 250 )
{
send_to_char("You don't have the 250 primal needed.\n\r",ch);
return;
}
if (ch->pcdata->powers[SKYBLADE_MAGIC] == 1) vnum = 33178;
if (ch->pcdata->powers[SKYBLADE_MAGIC] >= 2) vnum = 33179;
if ( vnum == 0 || (pObjIndex = get_obj_index( vnum )) == NULL)
{
send_to_char("Missing object, please inform a God .\n\r",ch);
return;
}
if( !IS_IMMORTAL(ch) )
{
ch->practice -= 250;
}
obj = create_object(pObjIndex, 50);
SET_BIT(obj->spectype, SITEM_SKYBLADE);
obj->questowner = str_dup(ch->pcdata->switchname);
obj->ownerid = ch->pcdata->playerid;
obj_to_char(obj, ch);
act("$p falls from the heavens and lands before you.",ch,obj,NULL,TO_CHAR);
act("$p falls from the heavens and lands before $n.",ch,obj,NULL,TO_ROOM);
return;
}
/*
* Get !RENT items from equipment to inventory and
* extract !RENT out of worn containers.
*/
void Crash_extract_norent_eq(struct char_data *ch)
{
int j;
for (j = 0; j < NUM_WEARS; j++) {
if (GET_EQ(ch, j) == NULL)
continue;
if (Crash_is_unrentable(GET_EQ(ch, j)))
obj_to_char(unequip_char(ch, j), ch);
else
Crash_extract_norents(GET_EQ(ch, j));
}
}
void Crash_rentsave(struct char_data * ch, int cost)
{
char buf[MAX_INPUT_LENGTH];
struct rent_info rent;
int j;
FILE *fp;
if (IS_NPC(ch))
return;
if (!get_filename(GET_NAME(ch), buf, CRASH_FILE))
return;
if (!(fp = fopen(buf, "wb")))
return;
for (j = 0; j < NUM_WEARS; j++) {
if (GET_EQ(ch, j))
obj_to_char(unequip_char(ch, j), ch);
}
Crash_extract_norents_from_equipped(ch);
Crash_extract_norents(ch->carrying);
rent.net_cost_per_diem = cost;
rent.rentcode = RENT_RENTED;
rent.time = time(0);
rent.gold = GET_GOLD(ch);
rent.account = GET_BANK_GOLD(ch);
if (!Crash_write_rentcode(ch, fp, &rent)) {
fclose(fp);
return;
}
/* NOTHING SHOULD BE EQUIPPED SINCE IT WAS ALL REMOVED A FEW BLOCKS ABOVE
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch,j)) {
if (!Crash_save(GET_EQ(ch,j), fp, j+1)) {
fclose(fp);
return;
}
Crash_restore_weight(GET_EQ(ch,j));
Crash_extract_objs(GET_EQ(ch,j));
}
*/
if (!Crash_save(ch->carrying, fp, 0)) {
fclose(fp);
return;
}
fclose(fp);
Crash_extract_objs(ch->carrying);
}
struct obj_data *
slide_obj(struct obj_data * obj, struct char_data * keeper, int shop_nr)
/*
This function is a slight hack! To make sure that duplicate items are
only listed once on the "list", this function groups "identical"
objects together on the shopkeeper's inventory list. The hack involves
knowing how the list is put together, and manipulating the order of
the objects on the list. (But since most of DIKU is not encapsulated,
and information hiding is almost never used, it isn't that big a deal) -JF
*/
{
struct obj_data *loop;
int temp;
if (SHOP_SORT(shop_nr) < IS_CARRYING_N(keeper))
sort_keeper_objs(keeper, shop_nr);
/* Extract the object if it is identical to one produced */
if (shop_producing(obj, shop_nr))
{
temp = GET_OBJ_RNUM(obj);
extract_obj(obj);
return (&obj_proto[temp]);
}
/* randomly remove a piece of eq from shopkeeper inventory */
if (number(0, 5)==0) {
temp = GET_OBJ_RNUM(obj);
extract_obj(obj);
return (&obj_proto[temp]);
}
SHOP_SORT(shop_nr)++;
loop = keeper->carrying;
obj_to_char(obj, keeper);
keeper->carrying = loop;
while (loop)
{
if (same_obj(obj, loop))
{
obj->next_content = loop->next_content;
loop->next_content = obj;
return (obj);
}
loop = loop->next_content;
}
keeper->carrying = obj;
return (obj);
}
void Crash_cryosave(struct char_data * ch, int cost)
{
char buf[MAX_INPUT_LENGTH];
struct rent_info rent;
int j;
FILE *fp;
if (IS_NPC(ch))
return;
if (!get_filename(GET_NAME(ch), buf, CRASH_FILE))
return;
if (!(fp = fopen(buf, "wb")))
return;
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch, j))
obj_to_char(unequip_char(ch, j), ch);
Crash_extract_norents_from_equipped(ch);
Crash_extract_norents(ch->carrying);
GET_GOLD(ch) = MAX(0L, (long)GET_GOLD(ch) - cost);
rent.rentcode = RENT_CRYO;
rent.time = time(0);
rent.gold = GET_GOLD(ch);
rent.account = GET_BANK_GOLD(ch);
rent.net_cost_per_diem = 0;
if (!Crash_write_rentcode(ch, fp, &rent)) {
fclose(fp);
return;
}
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch,j)) {
if (!Crash_save(GET_EQ(ch,j), fp, j+1)) {
fclose(fp);
return;
}
Crash_restore_weight(GET_EQ(ch,j));
Crash_extract_objs(GET_EQ(ch,j));
}
if (!Crash_save(ch->carrying, fp, 0)) {
fclose(fp);
return;
}
fclose(fp);
Crash_extract_objs(ch->carrying);
SET_BIT(PLR_FLAGS(ch), PLR_CRYO);
}
bool spec_auth(CHAR_DATA * ch)
{
CHAR_DATA *victim;
CHAR_DATA *v_next;
char buf[MAX_STRING_LENGTH];
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *obj;
bool hasdiploma;
for (victim = ch->in_room->first_person; victim; victim = v_next) {
v_next = victim->next_in_room;
if (!IS_NPC(victim)
&& (pObjIndex =
get_obj_index(OBJ_VNUM_SCHOOL_DIPLOMA)) != NULL) {
hasdiploma = FALSE;
for (obj = victim->last_carrying; obj;
obj = obj->prev_content)
if (obj->pIndexData ==
get_obj_index(OBJ_VNUM_SCHOOL_DIPLOMA))
hasdiploma = TRUE;
if (!hasdiploma) {
obj = create_object(pObjIndex, 1);
obj = obj_to_char(obj, victim);
send_to_char
("&cThe schoolmaster gives you a diploma, and shakes your hand.\n\r&w",
victim);
}
}
if (IS_NPC(victim)
|| !IS_SET(victim->pcdata->flags, PCFLAG_UNAUTHED))
continue;
victim->pcdata->auth_state = 3;
REMOVE_BIT(victim->pcdata->flags, PCFLAG_UNAUTHED);
if (victim->pcdata->authed_by)
STRFREE(victim->pcdata->authed_by);
victim->pcdata->authed_by = QUICKLINK(ch->name);
sprintf(buf, "%s authorized %s", ch->name, victim->name);
to_channel(buf, CHANNEL_MONITOR, "Monitor", ch->top_level);
}
return FALSE;
}
void Crash_extract_norents_from_equipped(struct char_data * ch)
{
int j;
for (j = 0;j < NUM_WEARS;j++) {
if (GET_EQ(ch,j)) {
if (IS_OBJ_STAT(GET_EQ(ch,j), ITEM_NORENT) ||
GET_OBJ_RENT(GET_EQ(ch,j)) < 0 ||
GET_OBJ_RNUM(GET_EQ(ch,j)) <= NOTHING ||
GET_OBJ_TYPE(GET_EQ(ch,j)) == ITEM_KEY)
obj_to_char(unequip_char(ch,j),ch);
else
Crash_extract_norents(GET_EQ(ch,j));
}
}
}
void obj_store_to_char(struct char_data *ch, struct obj_file_u *st)
{
struct obj_data *obj;
int i, j;
void obj_to_char(struct obj_data *object, struct char_data *ch);
for(i=0; i<st->number; i++) {
if (st->objects[i].item_number > -1 &&
real_object(st->objects[i].item_number) > -1) {
obj = read_object(st->objects[i].item_number, VIRTUAL);
obj->obj_flags.value[0] = st->objects[i].value[0];
obj->obj_flags.value[1] = st->objects[i].value[1];
obj->obj_flags.value[2] = st->objects[i].value[2];
obj->obj_flags.value[3] = st->objects[i].value[3];
obj->obj_flags.extra_flags = st->objects[i].extra_flags;
obj->obj_flags.weight = st->objects[i].weight;
obj->obj_flags.timer = st->objects[i].timer;
obj->obj_flags.bitvector = st->objects[i].bitvector;
/* new, saving names and descrips stuff o_s_t_c*/
if (obj->name)
free(obj->name);
if (obj->short_description)
free(obj->short_description);
if (obj->description)
free(obj->description);
obj->name = (char *)malloc(strlen(st->objects[i].name)+1);
obj->short_description = (char *)malloc(strlen(st->objects[i].sd)+1);
obj->description = (char *)malloc(strlen(st->objects[i].desc)+1);
strcpy(obj->name, st->objects[i].name);
strcpy(obj->short_description, st->objects[i].sd);
strcpy(obj->description, st->objects[i].desc);
/* end of new, possibly buggy stuff */
for(j=0; j<MAX_OBJ_AFFECT; j++)
obj->affected[j] = st->objects[i].affected[j];
obj_to_char(obj, ch);
}
}
}
void weight_change_object(struct obj_data *obj, int weight)
{
struct obj_data *tmp_obj;
struct char_data *tmp_ch;
if (obj->in_room != NOWHERE) {
GET_OBJ_WEIGHT(obj) += weight;
} else if (tmp_ch = obj->carried_by) {
obj_from_char(obj);
GET_OBJ_WEIGHT(obj) += weight;
obj_to_char(obj, tmp_ch);
} else if (tmp_obj = obj->in_obj) {
obj_from_obj(obj);
GET_OBJ_WEIGHT(obj) += weight;
obj_to_obj(obj, tmp_obj);
} else {
log("Unknown attempt to subtract weight from an object.");
}
}
int janitor(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *i, *temp, *next_obj;
if (cmd || !AWAKE(ch))
return(FALSE);
for (i = world[ch->in_room].contents; i; i = i->next_content) {
if (IS_SET(i->obj_flags.wear_flags, ITEM_TAKE) &&
((i->obj_flags.type_flag == ITEM_DRINKCON) ||
(i->obj_flags.cost <= 10))) {
act("$n picks up some trash.", FALSE, ch, 0, 0, TO_ROOM);
obj_from_room(i);
obj_to_char(i, ch);
return(TRUE);
}
}
return(FALSE);
}
void do_bank_open(Character *ch, char *argument)
{
OBJ_DATA *obj;
if ( ( obj = get_obj_carry( ch, (char*)"bank note", ch ) ) != NULL )
{
send_to_char( "You already own a bank note.\n\r", ch );
return;
}
if (ch->gold < 10)
{
send_to_char("It costs 10 gold to open an account.\n\r", ch);
return;
}
ch->gold -= 10;
obj_to_char(create_object(get_obj_index(OBJ_VNUM_BANK_NOTE),0),ch);
send_to_char("Enjoy your bank note.\n\r", ch);
return;
}
* load_quest_object : This takes a pointer to OBJ_INDEX_DATA and places the
* object onto the target.
*/
OBJ_DATA *load_quest_object( CHAR_DATA *target )
{
OBJ_INDEX_DATA *pObj;
OBJ_DATA *object;
int foo;
foo = number_range( OBJ_VNUM_QUEST_MIN, OBJ_VNUM_QUEST_MAX );
pObj = get_obj_index( foo );
if ( pObj == NULL )
{
bug( "load_quest_object : Invalid object vnum %d.", foo );
return NULL;
}
object = create_object( pObj, 1 );
obj_to_char( object, target );
return object;
}
void
postmaster_receive_mail (struct char_data *ch, struct char_data *mailman,
int cmd, char *arg)
{
char buf[256];
struct obj_data *obj;
if (!has_mail (GET_IDNUM (ch)))
{
sprintf (buf,
"$n tells you, 'Sorry, you don't have any mail waiting.'");
act (buf, FALSE, mailman, 0, ch, TO_VICT);
return;
}
while (has_mail (GET_IDNUM (ch)))
{
obj = create_obj ();
obj->item_number = NOTHING;
obj->name = str_dup ("mail paper letter");
obj->short_description = str_dup ("a piece of mail");
obj->description = str_dup ("Someone has left a piece of mail here.");
GET_OBJ_TYPE (obj) = ITEM_NOTE;
GET_OBJ_WEAR (obj) = ITEM_WEAR_TAKE | ITEM_WEAR_HOLD;
GET_OBJ_WEIGHT (obj) = 1;
GET_OBJ_COST (obj) = 30;
GET_OBJ_RENT (obj) = 10;
obj->action_description = read_delete (GET_IDNUM (ch));
if (obj->action_description == NULL)
obj->action_description =
str_dup
("Mail system error - please report. Error #11.\r\n");
obj_to_char (obj, ch);
act ("$n gives you a piece of mail.", FALSE, mailman, 0, ch, TO_VICT);
act ("$N gives $n a piece of mail.", FALSE, ch, 0, mailman, TO_ROOM);
}
}
/* Common code for James and the Cleaning Woman. */
int castle_cleaner(struct char_data *ch, int cmd, int gripe)
{
struct obj_data *i;
if (cmd || !AWAKE(ch) || GET_POS(ch) == POS_FIGHTING)
return (FALSE);
for (i = world[IN_ROOM(ch)].contents; i; i = i->next_content) {
if (!is_trash(i))
continue;
if (gripe) {
act("$n says: 'My oh my! I ought to fire that lazy cleaning woman!'",
FALSE, ch, 0, 0, TO_ROOM);
act("$n picks up a piece of trash.", FALSE, ch, 0, 0, TO_ROOM);
}
obj_from_room(i);
obj_to_char(i, ch);
return (TRUE);
}
return (FALSE);
}
