void do_iclan( CHAR_DATA *ch, char *argument )
{
char arg[MSL];
// char arg2[MSL];
int clan;
DESCRIPTOR_DATA *d;
argument = one_argument(argument,arg);
// argument = one_argument(argument,ar2);
if(IS_NPC(ch))
return;
if( argument[0] == '\0' || arg[0] == '\0')
//|| arg2[0] == '\0')
{
send_to_one(ch,"Syntax: iclan <clan> <message>");
return;
}
clan = clan_lookup(arg);
if(clan == -1)
{
send_to_one(ch,"There is no such clan.");
return;
}
if(clan == ch->clan)
{
send_to_one(ch,"How about you use YOUR clan channel?");
return;
}
send_to_one(ch,"You [ %s ] clan '%s'",clan_table[clan].name,argument);
for(d = descriptor_list; d; d = d->next)
{
if(d->connected == CON_PLAYING
&& d->character != ch
&& d->character->clan == clan
&& !IS_SET(d->character->comm,COMM_NOCLAN)
&& !IS_SET(d->character->comm,COMM_QUIET))
{
send_to_one(d->character,"%s clans '%s'",ch->name,argument);
}
}
return;
}
void do_loner(CHAR_DATA *ch, char *argument)
{
if(IS_NPC(ch)) return;
if(ch->in_arena)
{
send_to_char("Now is ... not a good time.\n\r",ch);
return;
}
if(ch->clan)
{
if(is_independent(ch))
send_to_char("You're already an independent pkiller.\n\r", ch);
else
send_to_char("You're already in a clan.\n\r", ch);
return;
}
if(ch->level < 25)
{
send_to_char("You must be level 25 or higher to become a loner.\n\r",ch);
return;
}
if(argument[0] == '\0')
{
send_to_char("Syntax: loner confirm\n\r"
"\n\rWarning! This will make you PK-able!!!\n\r", ch);
return;
}
if(!str_cmp(argument, "confirm"))
{
send_to_char("You are now a loner. Watch out!\n\r", ch);
ch->clan = clan_lookup("loner");
ch->rank = 0;
return;
}
return;
}
void raw_kill( CHAR_DATA *victim, int absolute )
{
int i = 0;
/*
if(victim->fighting != NULL)
{
if(victim->fighting->ooc_xp_count < 2) {
send_to_char("You learn from your encounter.\n\r",
victim->fighting);
victim->fighting->exp += 1;
}
stop_fighting( victim, TRUE );
}
*/
if(!absolute && victim->race == race_lookup("werewolf")
&& ((i = dice_rolls(victim, victim->max_RBPG, 8)) > 0
|| victim->agghealth > 0))
{
bool tag = FALSE;
if(victim->health < 0)
victim->health = 0;
if(victim->agghealth < 0) {
victim->agghealth = 0;
tag = TRUE;
}
if(absolute) tag = TRUE;
if(tag) {
i -= 7 - victim->health;
if(i > 0)
victim->agghealth +=
UMIN(7 - victim->agghealth, i);
}
else while((victim->agghealth + victim->health - 7) <= 0)
{
if(victim->health >= 7)
victim->agghealth++;
else victim->health++;
}
send_to_char("It hurts, but your body starts to heal.\n\r", victim);
update_pos(victim, 0);
if((victim->agghealth + victim->health - 7) > 0)
return;
}
if(victim->clan == clan_lookup("bone gnawer")
&& victim->disc[DISC_TRIBE] >= 5
&& victim->max_willpower > 0)
{
victim->max_willpower--;
if(victim->willpower > victim->max_willpower)
{
victim->willpower = victim->max_willpower;
}
if(victim->health <= 0)
victim->health = 1;
if(victim->agghealth <= 0)
victim->agghealth = 1;
while((victim->agghealth + victim->health - 7) <= 0)
{
if(victim->health >= 7)
victim->agghealth++;
else victim->health++;
}
send_to_char("It hurts, but you'll live.\n\r", victim);
return;
}
death_cry( victim );
make_corpse( victim );
if ( IS_NPC(victim) )
{
victim->pIndexData->killed++;
extract_char( victim, TRUE );
return;
}
clear_orgs(victim);
if(victim->desc)
victim->desc->connected = CON_DECEASED;
SET_BIT(victim->act, ACT_REINCARNATE);
char_from_room(victim);
char_from_list(victim);
send_to_char("You are DEAD!\n\r[Hit Return to Continue]\n\r", victim);
victim->exp = get_points(victim);
save_char_obj(victim);
return;
}
/* ---------------------------------------------------------------------
* CMD_EVAL
* This monster evaluates an if/or/and statement
* There are five kinds of statement:
* 1) keyword and value (no $-code) if random 30
* 2) keyword, comparison and value if people > 2
* 3) keyword and actor if isnpc $n
* 4) keyword, actor and value if carries $n sword
* 5) keyword, actor, comparison and value if level $n >= 10
*
*----------------------------------------------------------------------
*/
int cmd_eval( sh_int vnum, char *line, int check,
CHAR_DATA *mob, CHAR_DATA *ch,
const void *arg1, const void *arg2, CHAR_DATA *rch )
{
CHAR_DATA *lval_char = mob;
CHAR_DATA *vch = (CHAR_DATA *) arg2;
OBJ_DATA *obj1 = (OBJ_DATA *) arg1;
OBJ_DATA *obj2 = (OBJ_DATA *) arg2;
OBJ_DATA *lval_obj = NULL;
char *original, buf[MAX_INPUT_LENGTH], code;
int lval = 0, oper = 0, rval = -1;
original = line;
line = one_argument( line, buf );
if ( buf[0] == '\0' || mob == NULL )
return FALSE;
/*
* If this mobile has no target, let's assume our victim is the one
*/
if ( mob->mprog_target == NULL )
mob->mprog_target = ch;
switch ( check )
{
/*
* Case 1: keyword and value
*/
case CHK_RAND:
return( atoi( buf ) < number_percent() );
case CHK_MOBHERE:
if ( is_number( buf ) )
return( get_mob_vnum_room( mob, atoi(buf) ) );
else
return( (bool) (get_char_room( mob, buf) != NULL) );
case CHK_OBJHERE:
if ( is_number( buf ) )
return( get_obj_vnum_room( mob, atoi(buf) ) );
else
return( (bool) (get_obj_here( mob, buf) != NULL) );
case CHK_MOBEXISTS:
return( (bool) (get_char_world( mob, buf) != NULL) );
case CHK_OBJEXISTS:
return( (bool) (get_obj_world( mob, buf) != NULL) );
/*
* Case 2 begins here: We sneakily use rval to indicate need
* for numeric eval...
*/
case CHK_PEOPLE:
rval = count_people_room( mob, 0 ); break;
case CHK_PLAYERS:
rval = count_people_room( mob, 1 ); break;
case CHK_MOBS:
rval = count_people_room( mob, 2 ); break;
case CHK_CLONES:
rval = count_people_room( mob, 3 ); break;
case CHK_ORDER:
rval = get_order( mob ); break;
case CHK_HOUR:
rval = time_info.hour; break;
default:;
}
/*
* Case 2 continued: evaluate expression
*/
if ( rval >= 0 )
{
if ( (oper = keyword_lookup( fn_evals, buf )) < 0 )
{
sprintf( buf, "Cmd_eval: prog %d syntax error(2) '%s'",
vnum, original );
bug( buf, 0 );
return FALSE;
}
one_argument( line, buf );
lval = rval;
rval = atoi( buf );
return( num_eval( lval, oper, rval ) );
}
/*
* Case 3,4,5: Grab actors from $* codes
*/
if ( buf[0] != '$' || buf[1] == '\0' )
{
sprintf( buf, "Cmd_eval: prog %d syntax error(3) '%s'",
vnum, original );
bug( buf, 0 );
return FALSE;
}
else
code = buf[1];
switch( code )
{
case 'i':
lval_char = mob; break;
case 'n':
lval_char = ch; break;
case 't':
lval_char = vch; break;
case 'r':
lval_char = rch == NULL ? get_random_char( mob ) : rch ; break;
case 'o':
lval_obj = obj1; break;
case 'p':
lval_obj = obj2; break;
case 'q':
lval_char = mob->mprog_target; break;
default:
sprintf( buf, "Cmd_eval: prog %d syntax error(4) '%s'",
vnum, original );
bug( buf, 0 );
return FALSE;
}
/*
* From now on, we need an actor, so if none was found, bail out
*/
if ( lval_char == NULL && lval_obj == NULL )
return FALSE;
/*
* Case 3: Keyword, comparison and value
*/
switch( check )
{
case CHK_ISPC:
return( lval_char != NULL && !IS_NPC( lval_char ) );
case CHK_ISNPC:
return( lval_char != NULL && IS_NPC( lval_char ) );
case CHK_ISGOOD:
return( lval_char != NULL && IS_GOOD( lval_char ) );
case CHK_ISEVIL:
return( lval_char != NULL && IS_EVIL( lval_char ) );
case CHK_ISNEUTRAL:
return( lval_char != NULL && IS_NEUTRAL( lval_char ) );
case CHK_ISIMMORT:
return( lval_char != NULL && IS_IMMORTAL( lval_char ) );
case CHK_ISCHARM: /* A relic from MERC 2.2 MOBprograms */
return( lval_char != NULL && IS_AFFECTED( lval_char, AFF_CHARM ) );
case CHK_ISFOLLOW:
return( lval_char != NULL && lval_char->master != NULL
&& lval_char->master->in_room == lval_char->in_room );
case CHK_ISACTIVE:
return( lval_char != NULL && lval_char->position > POS_SLEEPING );
case CHK_ISDELAY:
return( lval_char != NULL && lval_char->mprog_delay > 0 );
case CHK_ISVISIBLE:
switch( code )
{
default :
case 'i':
case 'n':
case 't':
case 'r':
case 'q':
return( lval_char != NULL && can_see( mob, lval_char ) );
case 'o':
case 'p':
return( lval_obj != NULL && can_see_obj( mob, lval_obj ) );
}
case CHK_HASTARGET:
return( lval_char != NULL && lval_char->mprog_target != NULL
&& lval_char->in_room == lval_char->mprog_target->in_room );
case CHK_ISTARGET:
return( lval_char != NULL && mob->mprog_target == lval_char );
default:;
}
/*
* Case 4: Keyword, actor and value
*/
line = one_argument( line, buf );
switch( check )
{
case CHK_AFFECTED:
return( lval_char != NULL
&& IS_SET(lval_char->affected_by, flag_lookup(buf, affect_flags)) );
case CHK_ACT:
return( lval_char != NULL
&& IS_SET(lval_char->act, flag_lookup(buf, act_flags)) );
case CHK_IMM:
return( lval_char != NULL
&& IS_SET(lval_char->imm_flags, flag_lookup(buf, imm_flags)) );
case CHK_OFF:
return( lval_char != NULL
&& IS_SET(lval_char->off_flags, flag_lookup(buf, off_flags)) );
case CHK_CARRIES:
if ( is_number( buf ) )
return( lval_char != NULL && has_item( lval_char, atoi(buf), -1, FALSE ) );
else
return( lval_char != NULL && (get_obj_carry( lval_char, buf ) != NULL) );
case CHK_WEARS:
if ( is_number( buf ) )
return( lval_char != NULL && has_item( lval_char, atoi(buf), -1, TRUE ) );
else
return( lval_char != NULL && (get_obj_wear( lval_char, buf ) != NULL) );
case CHK_HAS:
return( lval_char != NULL && has_item( lval_char, -1, item_lookup(buf), FALSE ) );
case CHK_USES:
return( lval_char != NULL && has_item( lval_char, -1, item_lookup(buf), TRUE ) );
case CHK_NAME:
switch( code )
{
default :
case 'i':
case 'n':
case 't':
case 'r':
case 'q':
return( lval_char != NULL && is_name( buf, lval_char->name ) );
case 'o':
case 'p':
return( lval_obj != NULL && is_name( buf, lval_obj->name ) );
}
case CHK_POS:
return( lval_char != NULL && lval_char->position == position_lookup( buf ) );
case CHK_CLAN:
return( lval_char != NULL && lval_char->clan == clan_lookup( buf ) );
case CHK_RACE:
return( lval_char != NULL && lval_char->race == race_lookup( buf ) );
case CHK_OBJTYPE:
return( lval_obj != NULL && lval_obj->item_type == item_lookup( buf ) );
default:;
}
/*
* Case 5: Keyword, actor, comparison and value
*/
if ( (oper = keyword_lookup( fn_evals, buf )) < 0 )
{
sprintf( buf, "Cmd_eval: prog %d syntax error(5): '%s'",
vnum, original );
bug( buf, 0 );
return FALSE;
}
one_argument( line, buf );
rval = atoi( buf );
switch( check )
{
case CHK_VNUM:
switch( code )
{
default :
case 'i':
case 'n':
case 't':
case 'r':
case 'q':
if( lval_char != NULL && IS_NPC( lval_char ) )
lval = lval_char->pIndexData->vnum;
break;
case 'o':
case 'p':
if ( lval_obj != NULL )
lval = lval_obj->pIndexData->vnum;
}
break;
case CHK_HPCNT:
if ( lval_char != NULL ) lval = (lval_char->hit * 100)/(UMAX(1,lval_char->max_hit)); break;
case CHK_ROOM:
if ( lval_char != NULL && lval_char->in_room != NULL )
lval = lval_char->in_room->vnum; break;
case CHK_SEX:
if ( lval_char != NULL ) lval = lval_char->sex; break;
case CHK_LEVEL:
if ( lval_char != NULL ) lval = lval_char->level; break;
case CHK_ALIGN:
if ( lval_char != NULL ) lval = lval_char->alignment; break;
case CHK_MONEY: /* Money is converted to silver... */
if ( lval_char != NULL )
lval = lval_char->gold + (lval_char->silver * 100); break;
case CHK_OBJVAL0:
if ( lval_obj != NULL ) lval = lval_obj->value[0]; break;
case CHK_OBJVAL1:
if ( lval_obj != NULL ) lval = lval_obj->value[1]; break;
case CHK_OBJVAL2:
if ( lval_obj != NULL ) lval = lval_obj->value[2]; break;
case CHK_OBJVAL3:
if ( lval_obj != NULL ) lval = lval_obj->value[3]; break;
case CHK_OBJVAL4:
if ( lval_obj != NULL ) lval = lval_obj->value[4]; break;
case CHK_GRPSIZE:
if( lval_char != NULL ) lval = count_people_room( lval_char, 4 ); break;
default:
return FALSE;
}
return( num_eval( lval, oper, rval ) );
}
void do_guild(CHAR_DATA * ch, char *argument)
{
char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
int clan;
argument = one_argument(argument, arg1);
argument = one_argument(argument, arg2);
if (!can_guild(ch))
{
send_to_char("Huh?\n\r", ch);
return;
}
if (arg1[0] == '\0' || arg2[0] == '\0')
{
send_to_char("Syntax: guild <char> <clan name>\n\r", ch);
return;
}
if ((victim = get_char_world(ch, arg1)) == NULL)
{
send_to_char("They aren't playing.\n\r", ch);
return;
}
if(IS_NPC(victim))
{
send_to_char("Not on NPCs.\n\r", ch);
return;
}
/** thanks to Zanthras for the bug fix here...*/
if (is_clan(victim) && !is_same_clan(ch, victim) &&
((ch->level < SUPREME) & (ch->trust < SUPREME)))
{
send_to_char("They are a member of a guild other than your own.\n\r", ch);
return;
}
if (!str_prefix(arg2, "none"))
{
send_to_char("They are no longer a member of any guild.\n\r", ch);
send_to_char("You are no longer a member of any guild!\n\r", victim);
victim->clan = 0;
victim->rank = 0;
/* add by: Zak Jonhson ([email protected]) */
if (IS_SET(victim->act, PLR_MORTAL_LEADER))
REMOVE_BIT(victim->act, PLR_MORTAL_LEADER);
return;
}
if ((clan = clan_lookup(arg2)) == 0)
{
send_to_char("No such guild exists.\n\r", ch);
return;
}
if( (IS_SET(victim->act, PLR_NOCLAN) && is_clan_pkill(clan)) && !IS_IMMORTAL(ch) )
{
send_to_char("They aren't allowed to be in a pkill clan",ch);
return;
}
sprintf(buf, "They are now a %s of the %s.\n\r",
clan_table[clan].rank[0].rankname, clan_table[clan].name);
send_to_char(buf, ch);
sprintf(buf, "You are now a %s of the %s.\n\r",
clan_table[clan].rank[0].rankname, clan_table[clan].name);
send_to_char(buf, victim);
if (IS_SET(victim->act, PLR_MORTAL_LEADER))
REMOVE_BIT(victim->act, PLR_MORTAL_LEADER);
victim->clan = clan;
victim->rank = 0; /* lowest, default */
} /* end: do_guild */
