void gain_exp_regardless(struct char_data * ch, int gain)
{
int is_altered = FALSE;
int num_levels = 0;
GET_EXP(ch) += gain;
if (GET_EXP(ch) < 0)
GET_EXP(ch) = 0;
if (!IS_NPC(ch)) {
while (GET_LEVEL(ch) < LVL_IMPL &&
GET_EXP(ch) >= level_exp(GET_CLASS(ch), GET_LEVEL(ch) + 1)) {
GET_LEVEL(ch) += 1;
num_levels++;
advance_level(ch);
is_altered = TRUE;
}
if (is_altered) {
sprintf(buf, "%s advanced %d level%s to level %d.",
GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s",
GET_LEVEL(ch));
mudlog(buf, BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE);
if (num_levels == 1)
send_to_char("You rise a level!\r\n", ch);
else {
sprintf(buf, "You rise %d levels!\r\n", num_levels);
send_to_char(buf, ch);
}
set_title(ch, NULL);
check_autowiz(ch);
}
}
}
// юзается исключительно в act.wizards.cpp в имм командах "advance" и "set exp".
void gain_exp_regardless(CHAR_DATA * ch, int gain)
{
int is_altered = FALSE;
int num_levels = 0;
ch->set_exp(ch->get_exp() + gain);
if (!IS_NPC(ch))
{
if (gain > 0)
{
while (GET_LEVEL(ch) < LVL_IMPL && GET_EXP(ch) >= level_exp(ch, GET_LEVEL(ch) + 1))
{
ch->set_level(ch->get_level() + 1);
num_levels++;
sprintf(buf, "%sВы достигли следующего уровня!%s\r\n",
CCWHT(ch, C_NRM), CCNRM(ch, C_NRM));
send_to_char(buf, ch);
advance_level(ch);
is_altered = TRUE;
}
if (is_altered)
{
sprintf(buf, "%s advanced %d level%s to level %d.",
GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s", GET_LEVEL(ch));
mudlog(buf, BRF, LVL_IMPL, SYSLOG, TRUE);
}
}
else if (gain < 0)
{
// Pereplut: глупый участок кода.
// gain = MAX(-max_exp_loss_pc(ch), gain); // Cap max exp lost per death
// GET_EXP(ch) += gain;
// if (GET_EXP(ch) < 0)
// GET_EXP(ch) = 0;
while (GET_LEVEL(ch) > 1 && GET_EXP(ch) < level_exp(ch, GET_LEVEL(ch)))
{
ch->set_level(ch->get_level() - 1);
num_levels++;
sprintf(buf,
"%sВы потеряли уровень!%s\r\n",
CCIRED(ch, C_NRM), CCNRM(ch, C_NRM));
send_to_char(buf, ch);
decrease_level(ch);
is_altered = TRUE;
}
if (is_altered)
{
sprintf(buf, "%s decreases %d level%s to level %d.",
GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s", GET_LEVEL(ch));
mudlog(buf, BRF, LVL_IMPL, SYSLOG, TRUE);
}
}
}
}
void ChangeMobExp(struct char_data *ch, char *arg, int type)
{
char buf[255];
struct char_data *mob;
long change, expamount;
if(type != ENTER_CHECK)
if(!*arg || (*arg == '\n')) {
ch->specials.medit = MOB_MAIN_MENU;
UpdateMobMenu(ch);
return;
}
mob=ch->specials.mobedit;
if(type != ENTER_CHECK) {
change=atoi(arg);
if(change<0) change=0;
if(mob->specials.mobtype=='S')
GET_EXP(mob) = change;
else {
if(change>32) {
send_to_char("That expflag is too high!\n\r",ch);
ch->specials.medit = MOB_HIT_RETURN;
MobHitReturn(ch, "", ENTER_CHECK);
return;
}
mob->specials.exp_flag=change;
expamount=(DetermineExp(mob, mob->specials.exp_flag)+mob->points.gold);
sprintf(buf,"This mobile will have around %d exp the next time it is loaded.\n\r",expamount);
send_to_char(buf,ch);
ch->specials.medit = MOB_HIT_RETURN;
MobHitReturn(ch, "", ENTER_CHECK);
return;
}
ch->specials.medit = MOB_MAIN_MENU;
UpdateMobMenu(ch);
return;
}
sprintf(buf, VT_HOMECLR);
send_to_char(buf, ch);
if(mob->specials.mobtype=='S')
sprintf(buf, "Current Mob Exp: %d", GET_EXP(mob));
else
sprintf(buf, "Current Mob Expflag: %d", mob->specials.exp_flag);
send_to_char(buf, ch);
if(mob->specials.mobtype=='S')
send_to_char("\n\r\n\rNew Exp Amount: ", ch);
else
send_to_char("\n\r\n\rNew Expflag: ", ch);
return;
}
void die(struct char_data *ch)
{
gain_exp(ch, -(GET_EXP(ch) / 2));
if (!IS_NPC(ch))
REMOVE_BIT(PLR_FLAGS(ch), PLR_KILLER | PLR_THIEF);
raw_kill(ch);
}
double
__mth_i_dint(double xx)
{
I64 xexp;
UI64 ux, mask;
double x;
FPI fpi;
x = xx;
fpi.f = x;
ux = fpi.i;
xexp = GET_EXP(ux) - EXPBIAS;
if (xexp < 0) {
/* |x| < 0 => zero with the original sign */
fpi.i = (ux & 0x8000000000000000);
} else if (xexp < MANTBITS) {
/* 1 <= |x| < 2^53:
* just mask out the trailing bits of the mantiassa beyond the
* range of the exponent; mask out the exponent field as well.
*/
mask = ((UI64)1 << (MANTBITS - xexp)) - 1;
fpi.i = ux & ~mask;
}
/* else illegal input, nan, inf, overflow, ...; just return it */
return fpi.f;
}
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 gain_exp_regardless( CharData * ch, int gain)
{
int is_altered = FALSE;
GET_EXP(ch) += gain;
if( GET_EXP(ch) < 0 )
GET_EXP(ch) = 0;
if( !IS_NPC(ch) ){
while( GET_LEVEL(ch) < LVL_IMPL &&
GET_EXP(ch) >= titles[(int) GET_CLASS(ch)][GET_LEVEL(ch) + 1].exp) {
send_to_char("You rise a level!\r\n", ch);
GET_LEVEL(ch) += 1;
level_up(ch);
is_altered = TRUE;
}
if( is_altered ){
set_title(ch, NULL);
run_autowiz();
}
}
}/* gain_exp_regardless */
/* Some initializations for characters, including initial skills */
void do_start(struct char_data *ch)
{
GET_LEVEL(ch) = 1;
GET_TOT_LEVEL(ch) = 1;
GET_EXP(ch) = 1;
GET_CLASS_1(ch) = GET_CLASS(ch);
GET_MULTIS(ch) = 1;
set_title(ch, NULL);
roll_real_abils(ch);
GET_MAX_HIT(ch) = 10;
GET_MAX_MANA(ch) = 100;
GET_MAX_MOVE(ch) = 100;
switch (GET_CLASS(ch)) {
case CLASS_ADEPT:
break;
case CLASS_MEDIC:
break;
case CLASS_BANDIT:
SET_SKILL(ch, SKILL_SNEAK, 10);
SET_SKILL(ch, SKILL_HIDE, 5);
SET_SKILL(ch, SKILL_STEAL, 15);
SET_SKILL(ch, SKILL_BACKSTAB, 10);
SET_SKILL(ch, SKILL_PICK_LOCK, 10);
SET_SKILL(ch, SKILL_TRACK, 10);
break;
case CLASS_SOLDIER:
break;
}
advance_level(ch);
GET_HIT(ch) = GET_MAX_HIT(ch);
GET_MANA(ch) = GET_MAX_MANA(ch);
GET_MOVE(ch) = GET_MAX_MOVE(ch);
GET_COND(ch, THIRST) = 24;
GET_COND(ch, HUNGER) = 24;
GET_COND(ch, DRUNK) = 0;
if (CONFIG_SITEOK_ALL)
SET_BIT_AR(PLR_FLAGS(ch), PLR_SITEOK);
}
int write_mobile_record(mob_vnum mvnum, struct char_data *mob, FILE *fd)
{
char ldesc[MAX_STRING_LENGTH], ddesc[MAX_STRING_LENGTH];
ldesc[MAX_STRING_LENGTH - 1] = '\0';
ddesc[MAX_STRING_LENGTH - 1] = '\0';
strip_cr(strncpy(ldesc, GET_LDESC(mob), MAX_STRING_LENGTH - 1));
strip_cr(strncpy(ddesc, GET_DDESC(mob), MAX_STRING_LENGTH - 1));
fprintf(fd, "#%d\n"
"%s%c\n"
"%s%c\n"
"%s%c\n"
"%s%c\n",
mvnum,
GET_ALIAS(mob), STRING_TERMINATOR,
GET_SDESC(mob), STRING_TERMINATOR,
ldesc, STRING_TERMINATOR,
ddesc, STRING_TERMINATOR
);
fprintf(fd, "%ld %ld %d E\n"
"%d %d %d %dd%d+%d %dd%d+%d\n",
MOB_FLAGS(mob), AFF_FLAGS(mob), GET_ALIGNMENT(mob),
GET_LEVEL(mob), 20 - GET_HITROLL(mob), GET_AC(mob) / 10, GET_HIT(mob),
GET_MANA(mob), GET_MOVE(mob), GET_NDD(mob), GET_SDD(mob),
GET_DAMROLL(mob)
);
fprintf(fd, "%d %d\n"
"%d %d %d\n",
GET_GOLD(mob), GET_EXP(mob),
GET_POS(mob), GET_DEFAULT_POS(mob), GET_SEX(mob)
);
if (write_mobile_espec(mvnum, mob, fd) < 0)
log("SYSERR: GenOLC: Error writing E-specs for mobile #%d.", mvnum);
script_save_to_disk(fd, mob, MOB_TRIGGER);
#if CONFIG_GENOLC_MOBPROG
if (write_mobile_mobprog(mvnum, mob, fd) < 0)
log("SYSERR: GenOLC: Error writing MobProgs for mobile #%d.", mvnum);
#endif
return TRUE;
}
void group_gain(struct char_data *ch, struct char_data *victim)
{
int tot_members, base, cur_base, tot_gain;
struct char_data *k;
struct follow_type *f;
if (!(k = ch->master))
k = ch;
if (AFF_FLAGGED(k, AFF_GROUP) && (IN_ROOM(k) == IN_ROOM(ch)))
tot_members = 1;
else
tot_members = 0;
for (f = k->followers; f; f = f->next)
if (AFF_FLAGGED(f->follower, AFF_GROUP) && IN_ROOM(f->follower) == IN_ROOM(ch))
tot_members++;
/* round up to the next highest tot_members */
tot_gain = (GET_EXP(victim) / 3) + tot_members - 1;
/* prevent illegal xp creation when killing players */
if (!IS_NPC(victim))
tot_gain = MIN(CONFIG_MAX_EXP_LOSS * 2 / 3, tot_gain);
if (tot_members >= 1)
base = MAX(1, tot_gain / tot_members);
else
base = 0;
if (AFF_FLAGGED(k, AFF_GROUP) && IN_ROOM(k) == IN_ROOM(ch)) {
cur_base = base;
script_compute_kill_exp(&ch, &victim, tot_members, &cur_base);
perform_group_gain(k, cur_base, victim);
}
for (f = k->followers; f; f = f->next)
if (AFF_FLAGGED(f->follower, AFF_GROUP) && IN_ROOM(f->follower) == IN_ROOM(ch)) {
cur_base = base;
script_compute_kill_exp(&ch, &victim, tot_members, &cur_base);
perform_group_gain(f->follower, cur_base, victim);
}
}
void group_gain(struct char_data *ch, struct char_data *victim)
{
char buf[256];
int no_members, share;
struct char_data *k;
struct follow_type *f;
if (!(k=ch->master))
k = ch;
if (IS_AFFECTED(k, AFF_GROUP) &&
(k->in_room == ch->in_room))
no_members = 1;
else
no_members = 0;
for (f=k->followers; f; f=f->next)
if (IS_AFFECTED(f->follower, AFF_GROUP) &&
(f->follower->in_room == ch->in_room))
no_members++;
if (no_members >= 1)
share = MIN(450000/no_members, (GET_EXP(victim)/3)/no_members);
else
share = 0;
if (IS_AFFECTED(k, AFF_GROUP) &&
(k->in_room == ch->in_room)) {
act("You receive your share of experience.", FALSE, k, 0, 0, TO_CHAR);
gain_exp(k, share);
change_alignment(k, victim);
}
for (f=k->followers; f; f=f->next) {
if (IS_AFFECTED(f->follower, AFF_GROUP) &&
(f->follower->in_room == ch->in_room)) {
act("You receive your share of experience.", FALSE, f->follower,0,0,TO_CHAR);
gain_exp(f->follower, share);
change_alignment(f->follower, victim);
}
}
}
void do_mob_report (struct char_data *ch)
{
struct char_data *mob;
FILE *reportfile;
int i;
if (!(reportfile = fopen("report.mob", "w"))) {
mlog("SYSERR: Mob report file unavailable.");
send_to_char ("Report.mob could not be generated.\r\n",ch);
return;
}
sprintf(buf, "MOBS\n----\n");
for (i=0; i<top_of_mobt;i++) {
mob=read_mobile(i, REAL);
char_to_room(mob, 0);
sprintf(buf+strlen(buf), "[%5d] %s Spec Proc: ",
GET_MOB_VNUM(mob), GET_NAME(mob));
if (mob_index[GET_MOB_RNUM(mob)].func!=NULL)
get_spec_name(GET_MOB_RNUM(mob), buf2,'m');
else sprintf(buf2, "none");
sprintf(buf+strlen(buf), "%s\n",buf2);
sprintf(buf+strlen(buf),mob->player.description);
sprintf(buf+strlen(buf),"Difficulty: %d XP: %d HP: %d Mana: %d Gold %d\n",
GET_DIFFICULTY(mob), GET_EXP(mob), GET_MAX_HIT(mob), GET_MAX_MANA(mob), GET_GOLD(mob));
sprintf(buf+strlen(buf),"Passive Defense: %d Damage Reduction: %d ",
GET_PD(mob), GET_REDUCTION(mob));
sprintf(buf+strlen(buf), "Attack Type: %s\n",
attack_hit_text[mob->mob_specials.attack_type].singular);
sprintbit(MOB_FLAGS(mob), action_bits, buf2, sizeof(buf2));
sprintf(buf+strlen(buf),"Flags: %s\n", buf2);
sprintbit(AFF_FLAGS(mob), affected_bits, buf2, sizeof(buf2));
sprintf(buf+strlen(buf),"Affects: %s\n\n-------\n", buf2);
extract_char(mob);
fprintf(reportfile, buf);
buf[0]='\0';
}/*for i=0...*/
fclose (reportfile);
send_to_char ("report.mob printed\r\n",ch);
}
void solo_gain(struct char_data *ch, struct char_data *victim)
{
int exp;
exp = MIN(max_exp_gain, GET_EXP(victim) / 3);
/* Calculate level-difference bonus */
if (IS_NPC(ch))
exp += MAX(0, (exp * MIN(4, (GET_LEVEL(victim) - GET_LEVEL(ch)))) / 8);
else
exp += MAX(0, (exp * MIN(8, (GET_LEVEL(victim) - GET_LEVEL(ch)))) / 8);
exp = MAX(exp, 1);
if (exp > 1)
send_to_char(ch, "You receive %d experience points.\r\n", exp);
else
send_to_char(ch, "You receive one lousy experience point.\r\n");
gain_exp(ch, exp);
change_alignment(ch, victim);
}
void gain_exp(struct char_data * ch, int gain)
{
int is_altered = FALSE;
int num_levels = 0;
char buf[128];
if (!IS_NPC(ch) && ((GET_LEVEL(ch) < 1 || GET_LEVEL(ch) >= LVL_IMMORT)))
return;
if (IS_NPC(ch)) {
GET_EXP(ch) += gain;
return;
}
if (gain > 0) {
gain = MIN(max_exp_gain, gain); /* put a cap on the max gain per kill */
GET_EXP(ch) += gain;
while (GET_LEVEL(ch) < LVL_IMMORT &&
GET_EXP(ch) >= level_exp(GET_CLASS(ch), GET_LEVEL(ch) + 1)) {
GET_LEVEL(ch) += 1;
num_levels++;
advance_level(ch);
is_altered = TRUE;
}
if (is_altered) {
sprintf(buf, "%s advanced %d level%s to level %d.",
GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s",
GET_LEVEL(ch));
mudlog(buf, BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE);
if (num_levels == 1)
send_to_char("You rise a level!\r\n", ch);
else {
sprintf(buf, "You rise %d levels!\r\n", num_levels);
send_to_char(buf, ch);
}
set_title(ch, NULL);
check_autowiz(ch);
}
} else if (gain < 0) {
gain = MAX(-max_exp_loss, gain); /* Cap max exp lost per death */
GET_EXP(ch) += gain;
if (GET_EXP(ch) < 0)
GET_EXP(ch) = 0;
}
}
static void event_zombie_master(struct char_data *ch, char *arg)
{
struct room_data *rp = NULL;
struct char_data *master = NULL;
struct char_data *mob = NULL;
int i = 0;
int j = 0;
if (DEBUG > 1)
log_info("called %s with %s, %s", __PRETTY_FUNCTION__, SAFE_NAME(ch), VNULL(arg));
if ((rp = real_roomp(ch->in_room))) {
master = read_mobile(666, VIRTUAL); /* xenthia, lady of the dead */
j = dice(1, 4) + 3;
if (IS_SET(ch->specials.act, PLR_STEALTH))
allprintf
("\r\nYou feel a darkening of the land.\r\nYou hear a low moaning wind arise nearby...\r\n\r\n");
else
allprintf
("\r\n%s begins a low incantation, and a bolt of ebon lightning strikes %s upraised hands!\r\nYou hear a low moaning wind arise nearby...\r\n\r\n",
GET_NAME(ch), HSHR(ch));
for (i = 0; i < j; i++) {
mob = read_mobile(100, VIRTUAL); /* zombie */
char_to_room(mob, ch->in_room);
SET_BIT(mob->specials.affected_by, AFF_CHARM);
GET_EXP(mob) = number(300, 500);
add_follower(mob, master);
mob->points.max_hit = dice(4, 10) + 10;
mob->points.hit = mob->points.max_hit;
AddHatred(master->followers->follower, OP_VNUM, ZM_NEMESIS);
SET_BIT(master->followers->follower->specials.act, ACT_GUARDIAN);
SET_BIT(master->followers->follower->specials.act, ACT_USE_ITEM);
SET_BIT(master->followers->follower->specials.affected_by, AFF_FLYING);
}
char_to_room(master, ch->in_room);
}
}
void medit_autoroll_stats(struct descriptor_data *d)
{
int mob_lev;
mob_lev = GET_LEVEL(OLC_MOB(d));
mob_lev = GET_LEVEL(OLC_MOB(d)) = LIMIT(mob_lev, 1, LVL_IMPL);
GET_MOVE(OLC_MOB(d)) = mob_lev*10; /* hit point bonus (mobs don't use movement points */
GET_HIT(OLC_MOB(d)) = mob_lev/5; /* number of hitpoint dice */
GET_MANA(OLC_MOB(d)) = mob_lev/5; /* size of hitpoint dice */
GET_NDD(OLC_MOB(d)) = MAX(1, mob_lev/6); /* number damage dice 1-5 */
GET_SDD(OLC_MOB(d)) = MAX(2, mob_lev/6); /* size of damage dice 2-5 */
GET_DAMROLL(OLC_MOB(d)) = mob_lev/6; /* damroll (dam bonus) 0-5 */
GET_HITROLL(OLC_MOB(d)) = mob_lev/3; /* hitroll 0-10 */
GET_EXP(OLC_MOB(d)) = (mob_lev*mob_lev*100);
GET_GOLD(OLC_MOB(d)) = (mob_lev*10);
GET_AC(OLC_MOB(d)) = (100-(mob_lev*6)); /* AC 94 to -80 */
/* 'Advanced' stats are only rolled if advanced options are enabled */
if (CONFIG_MEDIT_ADVANCED) {
GET_STR(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18); /* 2/3 level in range 11 to 18 */
GET_INT(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_WIS(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_DEX(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_CON(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_CHA(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_SAVE(OLC_MOB(d), SAVING_PARA) = mob_lev / 4; /* All Saving throws */
GET_SAVE(OLC_MOB(d), SAVING_ROD) = mob_lev / 4; /* set to a quarter */
GET_SAVE(OLC_MOB(d), SAVING_PETRI) = mob_lev / 4; /* of the mobs level */
GET_SAVE(OLC_MOB(d), SAVING_BREATH) = mob_lev / 4;
GET_SAVE(OLC_MOB(d), SAVING_SPELL) = mob_lev / 4;
}
}
void solo_gain(struct char_data *ch, struct char_data *victim)
{
int exp;
exp = MIN(CONFIG_MAX_EXP_GAIN, GET_EXP(victim) / 3);
/* Calculate level-difference bonus */
if (IS_NPC(ch))
exp += MAX(0, (exp * MIN(4, (GET_LEVEL(victim) - GET_LEVEL(ch)))) / 8);
else
exp += MAX(0, (exp * MIN(8, (GET_LEVEL(victim) - GET_LEVEL(ch)))) / 8);
exp = MAX(exp, 1);
if (script_compute_kill_exp(&ch, &victim, 1, &exp) != SCRIPT_RET_OK)
exp = MAX(exp, 1);
if (exp > 1)
send_to_char(ch, "You receive %d experience points.\r\n", exp);
else
send_to_char(ch, "You receive one lousy experience point.\r\n");
gain_exp(ch, exp);
change_alignment(ch, victim);
}
/*
* Display main menu.
*/
void medit_disp_menu(struct descriptor_data *d)
{
struct char_data *mob;
mob = OLC_MOB(d);
get_char_colors(d->character);
clear_screen(d);
sprintf(buf,
"-- Mob Number: [%s%d%s]\r\n"
"%s1%s) Sex: %s%-7.7s%s %s2%s) Alias: %s%s\r\n"
"%s3%s) S-Desc: %s%s\r\n"
"%s4%s) L-Desc:-\r\n%s%s"
"%s5%s) D-Desc:-\r\n%s%s"
"%s6%s) Level: [%s%4d%s], %s7%s) Alignment: [%s%4d%s]\r\n"
"%s8%s) HR//SKY: [%s%4d%s], %s9%s) DR//FD: [%s%4d%s]\r\n"
"%sA%s) NumDamDice: [%s%4d%s], %sB%s) SizeDamDice: [%s%4d%s]\r\n"
"%sC%s) Num HP Dice: [%s%4d%s], %sD%s) Size HP Dice: [%s%4d%s], %sE%s) HP Bonus: [%s%5d%s]\r\n"
"%sF%s) Armor Class: [%s%4d%s], %sG%s) Exp: [%s%9d%s], %sH%s) Gold: [%s%8d%s]\r\n",
cyn, OLC_NUM(d), nrm,
grn, nrm, yel, genders[(int)GET_SEX(mob)], nrm,
grn, nrm, yel, GET_ALIAS(mob),
grn, nrm, yel, GET_SDESC(mob),
grn, nrm, yel, GET_LDESC(mob),
grn, nrm, yel, GET_DDESC(mob),
grn, nrm, cyn, GET_LEVEL(mob), nrm,
grn, nrm, cyn, GET_ALIGNMENT(mob), nrm,
grn, nrm, cyn, GET_HITROLL(mob), nrm,
grn, nrm, cyn, GET_DAMROLL(mob), nrm,
grn, nrm, cyn, GET_NDD(mob), nrm,
grn, nrm, cyn, GET_SDD(mob), nrm,
grn, nrm, cyn, GET_HIT(mob), nrm,
grn, nrm, cyn, GET_MANA(mob), nrm,
grn, nrm, cyn, GET_MOVE(mob), nrm,
grn, nrm, cyn, GET_AC(mob), nrm,
grn, nrm, cyn, GET_EXP(mob), nrm,
grn, nrm, cyn, convert_all_to_copper(mob), nrm
);
SEND_TO_Q(buf, d);
sprintbit(MOB_FLAGS(mob), action_bits, buf1);
sprintbit(AFF_FLAGS(mob), affected_bits, buf2);
sprintf(buf,
"%sI%s) Position : %s%s\r\n"
"%sJ%s) Default : %s%s\r\n"
"%sK%s) Attack : %s%s\r\n"
"%sN%s) Class : %s%s\r\n"
"%sR%s) Race : %s%s\r\n"
"%sS%s) Size : %s%d\r\n"
"%sW%s) Weight : %s%d\r\n"
"%sL%s) NPC Flags : %s%s\r\n"
"%sM%s) AFF Flags : %s%s\r\n"
#if CONFIG_OASIS_MPROG
"%sP%s) Mob Progs : %s%s\r\n"
#endif
"%sQ%s) Quit\r\n"
"Enter choice : ",
grn, nrm, yel, position_types[(int)GET_POS(mob)],
grn, nrm, yel, position_types[(int)GET_DEFAULT_POS(mob)],
grn, nrm, yel, attack_hit_text[GET_ATTACK(mob)].singular,
grn, nrm, cyn, npc_class_types[(int)GET_CLASS(mob)],
grn, nrm, cyn, npc_race_types[(int)GET_RACE(mob)],
grn, nrm, cyn, GET_MOB_SIZE(mob),
grn, nrm, cyn, GET_MOB_WEIGHT(mob),
grn, nrm, cyn, buf1,
grn, nrm, cyn, buf2,
#if CONFIG_OASIS_MPROG
grn, nrm, cyn, (OLC_MPROGL(d) ? "Set." : "Not Set."),
#endif
grn, nrm
);
SEND_TO_Q(buf, d);
OLC_MODE(d) = MEDIT_MAIN_MENU;
}
void gain_exp(CHAR_DATA * ch, int gain)
{
int is_altered = FALSE;
int num_levels = 0;
char buf[128];
if (IS_NPC(ch))
{
ch->set_exp(ch->get_exp() + gain);
return;
}
else
{
ch->dps_add_exp(gain);
ZoneExpStat::add(zone_table[world[IN_ROOM(ch)]->zone].number, gain);
}
if (!IS_NPC(ch) && ((GET_LEVEL(ch) < 1 || GET_LEVEL(ch) >= LVL_IMMORT)))
return;
if (gain > 0 && GET_LEVEL(ch) < LVL_IMMORT)
{
gain = MIN(max_exp_gain_pc(ch), gain); // put a cap on the max gain per kill
ch->set_exp(ch->get_exp() + gain);
if (GET_EXP(ch) >= level_exp(ch, LVL_IMMORT))
{
if (!GET_GOD_FLAG(ch, GF_REMORT) && GET_REMORT(ch) < MAX_REMORT)
{
if (Remort::can_remort_now(ch))
{
send_to_char(ch, "%sПоздравляем, вы получили право на перевоплощение!%s\r\n",
CCIGRN(ch, C_NRM), CCNRM(ch, C_NRM));
}
else
{
send_to_char(ch,
"%sПоздравляем, вы набрали максимальное количество опыта!\r\n"
"%s%s\r\n", CCIGRN(ch, C_NRM), Remort::WHERE_TO_REMORT_STR.c_str(), CCNRM(ch, C_NRM));
}
SET_GOD_FLAG(ch, GF_REMORT);
}
}
ch->set_exp(MIN(GET_EXP(ch), level_exp(ch, LVL_IMMORT) - 1));
while (GET_LEVEL(ch) < LVL_IMMORT && GET_EXP(ch) >= level_exp(ch, GET_LEVEL(ch) + 1))
{
ch->set_level(ch->get_level() + 1);
num_levels++;
sprintf(buf, "%sВы достигли следующего уровня!%s\r\n", CCWHT(ch, C_NRM), CCNRM(ch, C_NRM));
send_to_char(buf, ch);
advance_level(ch);
is_altered = TRUE;
}
if (is_altered)
{
sprintf(buf, "%s advanced %d level%s to level %d.",
GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s", GET_LEVEL(ch));
mudlog(buf, BRF, LVL_IMPL, SYSLOG, TRUE);
}
}
else if (gain < 0 && GET_LEVEL(ch) < LVL_IMMORT)
{
gain = MAX(-max_exp_loss_pc(ch), gain); // Cap max exp lost per death
ch->set_exp(ch->get_exp() + gain);
while (GET_LEVEL(ch) > 1 && GET_EXP(ch) < level_exp(ch, GET_LEVEL(ch)))
{
ch->set_level(ch->get_level() - 1);
num_levels++;
sprintf(buf,
"%sВы потеряли уровень. Вам должно быть стыдно!%s\r\n",
CCIRED(ch, C_NRM), CCNRM(ch, C_NRM));
send_to_char(buf, ch);
decrease_level(ch);
is_altered = TRUE;
}
if (is_altered)
{
sprintf(buf, "%s decreases %d level%s to level %d.",
GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s", GET_LEVEL(ch));
mudlog(buf, BRF, LVL_IMPL, SYSLOG, TRUE);
}
}
if ((GET_EXP(ch) < level_exp(ch, LVL_IMMORT) - 1)
&& GET_GOD_FLAG(ch, GF_REMORT)
&& gain
&& (GET_LEVEL(ch) < LVL_IMMORT))
{
if (Remort::can_remort_now(ch))
{
send_to_char(ch, "%sВы потеряли право на перевоплощение!%s\r\n",
CCIRED(ch, C_NRM), CCNRM(ch, C_NRM));
}
CLR_GOD_FLAG(ch, GF_REMORT);
}
char_stat::add_class_exp(GET_CLASS(ch), gain);
update_clan_exp(ch, gain);
}
void gain_exp_unchecked(CharData *ch, int gain)
{
// PC mobs do NOT gain exps at all.
if (IS_AFFECTED(ch, AFF_CHARM) || MOB_FLAGGED(ch, MOB_CONJURED))
return;
// stop xps clocking over.
if ((GET_EXP(ch) > 2000000000) && gain > 0)
return;
if (!IS_NPC(ch) && ((GET_LEVEL(ch) < 1 || GET_LEVEL(ch) > MAX_MORTAL)))
return;
if (IN_ARENA(ch)) return;
if (ZONE_FLAGGED(world[ch->in_room].zone, ZONE_ARENA)) return;
if (ZONE_FLAGGED(world[ch->in_room].zone, ZONE_SLEEPTAG)) return;
/* NPCs just get their exp mod and leave */
if (IS_NPC(ch)) {
GET_EXP(ch) += gain;
return;
}
if (gain > 0) {
if ((GET_EXP(ch) + gain ) > INT_MAX)
return;
GET_EXP(ch) += gain;
/* Did the player just earn a level? */
if( GET_LEVEL(ch) < MAX_MORTAL &&
GET_EXP(ch) >= titles[(int) GET_CLASS(ch)][GET_LEVEL(ch) + 1].exp)
{
send_to_char("You rise a level!\r\n", ch);
GET_EXP(ch) = titles[(int) GET_CLASS(ch)][GET_LEVEL(ch) + 1].exp;
GET_LEVEL(ch) += 1;
level_up(ch);
set_title(ch, NULL);
}
} else if (gain < 0) {
long thisLvl = (titles[(int) GET_CLASS(ch)][GET_LEVEL(ch) + 0].exp);
long nextLvl = (titles[(int) GET_CLASS(ch)][GET_LEVEL(ch) + 1].exp);
long neg100 = thisLvl - nextLvl + thisLvl;
GET_EXP(ch) += gain;
/* uh oh spaghettios! */
if (GET_EXP(ch) < 0 && IS_MORTAL(ch)) {
mudlog(NRM, LVL_IMMORT, TRUE, "SOUL DEATH: %s reduced to 0 xps by death, deleting!",
GET_NAME(ch));
sendChar(ch, "Your soul is too weak to return to the world...");
sendChar(ch, "Utter darkness surrounds you as you slowly slip "
"into oblivion...");
act("A look of utter despair crosses $n's face as their very soul"
" is destroyed.", TRUE, ch, 0, 0, TO_ROOM );
SET_BIT_AR(PLR_FLAGS(ch), PLR_DELETED);
if (ch->desc) SET_DCPENDING(ch->desc);
}
/* Did the player just lose a level? */
if (GET_LEVEL(ch) > 1 && IS_MORTAL(ch) && GET_EXP(ch) <= neg100) {
send_to_char("You have lost a level!\r\n", ch);
GET_LEVEL(ch) -= 1;
retreat_level(ch);
set_title(ch, NULL);
/* make sure they don't drop below 0% at their new level */
if (GET_EXP(ch) < titles[(int)GET_CLASS(ch)][GET_LEVEL(ch)].exp)
GET_EXP(ch) = titles[(int)GET_CLASS(ch)][GET_LEVEL(ch)].exp;
}
}
}
void convert_mobs_to_disk(int zone_num)
{
int i, rmob_num, zone, top;
FILE *mob_file;
char fname[64];
struct char_data *mob;
struct mob_attacks_data *attack;
struct mob_equipment_data *equipment;
struct mob_action_data *action;
MPROG_DATA *mob_prog;
zone = zone_table[zone_num].number;
top = zone_table[zone_num].top;
sprintf(fname, "%s/%i.mob", MOB_PREFIX, zone);
if (!(mob_file = fopen(fname, "w"))) {
mudlog("SYSERR: OLC: Cannot open mob file!", 'G', COM_BUILDER, TRUE);
return;
}
/*. Seach database for mobs in this zone and save em .*/
for (i = zone * 100; i <= top; i++) {
rmob_num = real_mobile(i);
if (rmob_num != -1) {
if (fprintf(mob_file, "#%d\n", i) < 0) {
mudlog("SYSERR: OLC: Cannot write mob file!\r\n", 'G', COM_BUILDER, TRUE);
fclose(mob_file);
return;
}
mob = (mob_proto + rmob_num);
attack = GET_ATTACKS(mob);
equipment = GET_EQUIP(mob);
action = GET_ACTION(mob);
mob_prog = mob_index[rmob_num].mobprogs;
/*. Clean up strings .*/
strcpy(buf1, GET_LDESC(mob));
strip_string(buf1);
if (GET_DDESC(mob)) {
strcpy(buf2, GET_DDESC(mob));
strip_string(buf2);
} else
strcpy(buf2, "");
fprintf(mob_file, "%s~\n"
"%s~\n"
"%s~\n"
"%s~\n"
"%ld %ld %i X\n"
"%d %d %i %dd%d+%d %dd%d+%d\n"
"%d %d\n" /*. Gold & Exp are longs in my mud, ignore any warning .*/
"%d %d %d %d %d %d\n", GET_ALIAS(mob), GET_SDESC(mob), buf1, buf2, MOB_FLAGS(mob), AFF_FLAGS(mob), GET_ALIGNMENT(mob), GET_LEVEL(mob), GET_HITROLL(mob), GET_AC(mob) / 10, GET_HIT(mob), GET_MANA(mob), GET_MOVE(mob), GET_NDD(mob), GET_SDD(mob), GET_DAMROLL(mob), GET_GOLD(mob), GET_EXP(mob), GET_POS(mob), GET_DEFAULT_POS(mob), GET_SEX(mob), GET_CLASS(mob), GET_RACE(mob), GET_SIZE(mob));
while (attack) {
fprintf(mob_file, "T %d %dd%d+%d %d\n", attack->attacks, attack->nodice, attack->sizedice, attack->damroll, attack->attack_type);
attack = attack->next;
}
while (action) {
fprintf(mob_file, "A %d %d %s\n", action->chance, action->minpos, action->action);
action = action->next;
}
while (equipment) {
fprintf(mob_file, "E %d %d %d %d\n", equipment->pos, equipment->chance, equipment->vnum, equipment->max);
equipment = equipment->next;
}
/*. Deal with Extra stats in case they are there .*/
if ((GET_STR(mob) != 11) && (GET_STR(mob) < 19))
fprintf(mob_file, "Str: %d\n", (GET_STR(mob) * 5));
else if ((GET_STR(mob) > 18) && (GET_STR(mob) != 50))
fprintf(mob_file, "Str: 100\n");
if ((GET_DEX(mob) != 11) && (GET_DEX(mob) < 19)) {
fprintf(mob_file, "Dex: %d\n", (GET_DEX(mob) * 5));
fprintf(mob_file, "Agi: %d\n", (GET_DEX(mob) * 5));
} else if ((GET_DEX(mob) > 18) && (GET_DEX(mob) != 50)) {
fprintf(mob_file, "Dex: 100\n");
fprintf(mob_file, "Agi: 100\n");
}
if ((GET_INT(mob) != 11) && (GET_INT(mob) < 19))
fprintf(mob_file, "Int: %d\n", (GET_INT(mob) * 5));
else if ((GET_INT(mob) > 18) && (GET_INT(mob) != 50))
fprintf(mob_file, "Int: 100\n");
if ((GET_WIS(mob) != 11) && (GET_WIS(mob) < 19))
fprintf(mob_file, "Wis: %d\n", (GET_WIS(mob) * 5));
else if ((GET_WIS(mob) > 18) && (GET_WIS(mob) != 50))
fprintf(mob_file, "Wis: 100\n");
if ((GET_CON(mob) != 11) && (GET_CON(mob) < 19))
fprintf(mob_file, "Con: %d\n", (GET_CON(mob) * 5));
else if ((GET_CON(mob) > 18) && (GET_CON(mob) != 50))
fprintf(mob_file, "Con: 100\n");
/*. Deal with Mob Progs .*/
while (mob_prog) {
switch (mob_prog->type) {
case IN_FILE_PROG:
fprintf(mob_file, ">in_file_prog");
break;
case ACT_PROG:
fprintf(mob_file, ">act_prog");
break;
case SPEECH_PROG:
fprintf(mob_file, ">speech_prog");
break;
case RAND_PROG:
fprintf(mob_file, ">rand_prog");
break;
case FIGHT_PROG:
fprintf(mob_file, ">fight_prog");
break;
case HITPRCNT_PROG:
fprintf(mob_file, ">hitprcnt_prog");
break;
case DEATH_PROG:
fprintf(mob_file, ">death_prog");
break;
case ENTRY_PROG:
fprintf(mob_file, ">entry_prog");
break;
case GREET_PROG:
fprintf(mob_file, ">greet_prog");
break;
case ALL_GREET_PROG:
fprintf(mob_file, ">all_greet_prog");
break;
case GIVE_PROG:
fprintf(mob_file, ">give_prog");
break;
case BRIBE_PROG:
fprintf(mob_file, ">bribe_prog");
break;
case SHOUT_PROG:
fprintf(mob_file, ">shout_prog");
break;
case HOLLER_PROG:
fprintf(mob_file, ">holler_prog");
break;
case TELL_PROG:
fprintf(mob_file, ">tell_prog");
break;
case TIME_PROG:
fprintf(mob_file, ">time_prog");
break;
}
strcpy(buf1, mob_prog->arglist);
strip_string(buf1);
strcpy(buf2, mob_prog->comlist);
strip_string(buf2);
fprintf(mob_file, " %s~\n%s", buf1, buf2);
mob_prog = mob_prog->next;
if (!mob_prog)
fprintf(mob_file, "~\n|\n");
else
fprintf(mob_file, "~\n");
}
}
}
fclose(mob_file);
}
// Create a brand new character
struct creature *
account_create_char(struct account *account, const char *name)
{
struct creature *ch;
int i;
if (chars_available(account) <= 0)
return NULL;
ch = make_creature(true);
ch->player.name = strdup(tmp_capitalize(tmp_tolower(name)));
ch->char_specials.saved.idnum = top_player_idnum() + 1;
account->chars =
g_list_append(account->chars, GINT_TO_POINTER(GET_IDNUM(ch)));
sql_exec
("insert into players (idnum, name, account) values (%ld, '%s', %d)",
GET_IDNUM(ch), tmp_sqlescape(name), account->id);
// New characters shouldn't get old mail.
if (has_mail(GET_IDNUM(ch))) {
if (purge_mail(GET_IDNUM(ch)) > 0) {
errlog("Purging pre-existing mailfile for new character.(%s)",
GET_NAME(ch));
}
}
// *** if this is our first player --- he be God ***
if (GET_IDNUM(ch) == 1) {
GET_EXP(ch) = 160000000;
GET_LEVEL(ch) = LVL_GRIMP;
ch->points.max_hit = 666;
ch->points.max_mana = 555;
ch->points.max_move = 444;
GET_HOME(ch) = HOME_MODRIAN;
ch->player_specials->saved.load_room = -1;
ch->player_specials->saved.home_room = 1204;
} else {
ch->points.max_hit = 100;
ch->points.max_mana = 100;
ch->points.max_move = 82;
GET_HOME(ch) = HOME_NEWBIE_SCHOOL;
ch->player_specials->saved.load_room = -1;
ch->player_specials->saved.home_room = -1;
}
ch->player_specials->rentcode = RENT_CREATING;
set_title(ch, "");
ch->player.short_descr = NULL;
ch->player.long_descr = NULL;
ch->player.description = NULL;
ch->player.time.birth = time(NULL);
ch->player.time.death = 0;
ch->player.time.played = 0;
ch->player.time.logon = time(NULL);
for (i = 0; i < MAX_SKILLS; i++)
ch->player_specials->saved.skills[i] = 0;
for (i = 0; i < MAX_WEAPON_SPEC; i++) {
ch->player_specials->saved.weap_spec[i].vnum = 0;
ch->player_specials->saved.weap_spec[i].level = 0;
}
ch->player_specials->saved.imm_qp = 0;
ch->player_specials->saved.quest_id = 0;
ch->player_specials->saved.qlog_level = 0;
GET_REMORT_CLASS(ch) = -1;
ch->player.weight = 100;
ch->player.height = 100;
ch->points.hit = GET_MAX_HIT(ch);
ch->points.mana = GET_MAX_MANA(ch);
ch->points.move = GET_MAX_MOVE(ch);
ch->points.armor = 100;
SET_BIT(PRF_FLAGS(ch),
PRF_DISPHP | PRF_DISPMANA | PRF_DISPMOVE | PRF_AUTOEXIT | PRF_NOSPEW |
PRF_NOPLUG);
SET_BIT(PRF2_FLAGS(ch),
PRF2_AUTO_DIAGNOSE | PRF2_AUTOPROMPT | PRF2_DISPALIGN |
PRF2_NEWBIE_HELPER);
ch->char_specials.saved.affected_by = 0;
ch->char_specials.saved.affected2_by = 0;
ch->char_specials.saved.affected3_by = 0;
for (i = 0; i < 5; i++)
GET_SAVE(ch, i) = 0;
GET_COND(ch, FULL) = (GET_LEVEL(ch) == LVL_GRIMP ? -1 : 24);
GET_COND(ch, THIRST) = (GET_LEVEL(ch) == LVL_GRIMP ? -1 : 24);
GET_COND(ch, DRUNK) = (GET_LEVEL(ch) == LVL_GRIMP ? -1 : 0);
POOFIN(ch) = NULL;
POOFOUT(ch) = NULL;
return ch;
}
void die(struct char_data *ch)
{
gain_exp(ch, -(GET_EXP(ch)/2));
raw_kill(ch);
}
void damage(struct char_data *ch, struct char_data *victim,
int dam, int attacktype)
{
char buf[MAX_STRING_LENGTH];
struct message_type *messages;
int i,j,nr,max_hit,exp;
int hit_limit(struct char_data *ch);
assert(GET_POS(victim) > POSITION_DEAD);
if ((GET_LEVEL(victim)>20) && !IS_NPC(victim)) /* You can't damage an immortal! */
dam=0;
if (victim != ch) {
if (GET_POS(victim) > POSITION_STUNNED) {
if (!(victim->specials.fighting))
set_fighting(victim, ch);
GET_POS(victim) = POSITION_FIGHTING;
}
if (GET_POS(ch) > POSITION_STUNNED) {
if (!(ch->specials.fighting))
set_fighting(ch, victim);
if (IS_NPC(ch) && IS_NPC(victim) &&
victim->master &&
!number(0,10) && IS_AFFECTED(victim, AFF_CHARM) &&
(victim->master->in_room == ch->in_room)) {
if (ch->specials.fighting)
stop_fighting(ch);
hit(ch, victim->master, TYPE_UNDEFINED);
return;
}
}
}
if (victim->master == ch)
stop_follower(victim);
if (IS_AFFECTED(ch, AFF_INVISIBLE))
appear(ch);
if (IS_AFFECTED(victim, AFF_SANCTUARY))
dam = MIN(dam, 18); /* Max 18 damage when sanctuary */
dam=MIN(dam,100);
dam=MAX(dam,0);
GET_HIT(victim)-=dam;
if (ch != victim)
gain_exp(ch,GET_LEVEL(victim)*dam);
update_pos(victim);
if ((attacktype >= TYPE_HIT) && (attacktype <= TYPE_SLASH)) {
if (!ch->equipment[WIELD]) {
dam_message(dam, ch, victim, TYPE_HIT);
} else {
dam_message(dam, ch, victim, attacktype);
}
} else {
for(i = 0; i < MAX_MESSAGES; i++) {
if (fight_messages[i].a_type == attacktype) {
nr=dice(1,fight_messages[i].number_of_attacks);
for(j=1,messages=fight_messages[i].msg;(j<nr)&&(messages);j++)
messages=messages->next;
if (!IS_NPC(victim) && (GET_LEVEL(victim) > 20)) {
act(messages->god_msg.attacker_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_CHAR);
act(messages->god_msg.victim_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_VICT);
act(messages->god_msg.room_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_NOTVICT);
} else if (dam != 0) {
if (GET_POS(victim) == POSITION_DEAD) {
act(messages->die_msg.attacker_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_CHAR);
act(messages->die_msg.victim_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_VICT);
act(messages->die_msg.room_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_NOTVICT);
} else {
act(messages->hit_msg.attacker_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_CHAR);
act(messages->hit_msg.victim_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_VICT);
act(messages->hit_msg.room_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_NOTVICT);
}
} else { /* Dam == 0 */
act(messages->miss_msg.attacker_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_CHAR);
act(messages->miss_msg.victim_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_VICT);
act(messages->miss_msg.room_msg, FALSE, ch, ch->equipment[WIELD], victim, TO_NOTVICT);
}
}
}
}
switch (GET_POS(victim)) {
case POSITION_MORTALLYW:
act("$n is mortally wounded, and will die soon, if not aided.", TRUE, victim, 0, 0, TO_ROOM);
act("You are mortally wounded, and will die soon, if not aided.", FALSE, victim, 0, 0, TO_CHAR);
break;
case POSITION_INCAP:
act("$n is incapacitated and will slowly die, if not aided.", TRUE, victim, 0, 0, TO_ROOM);
act("You are incapacitated an will slowly die, if not aided.", FALSE, victim, 0, 0, TO_CHAR);
break;
case POSITION_STUNNED:
act("$n is stunned, but will probably regain conscience again.", TRUE, victim, 0, 0, TO_ROOM);
act("You're stunned, but will probably regain conscience again.", FALSE, victim, 0, 0, TO_CHAR);
break;
case POSITION_DEAD:
act("$n is dead! R.I.P.", TRUE, victim, 0, 0, TO_ROOM);
act("You are dead! Sorry...", FALSE, victim, 0, 0, TO_CHAR);
break;
default: /* >= POSITION SLEEPING */
max_hit=hit_limit(victim);
if (dam > (max_hit/5))
act("That Really did HURT!",FALSE, victim, 0, 0, TO_CHAR);
if (GET_HIT(victim) < (max_hit/5)) {
act("You wish that your wounds would stop BLEEDING that much!",FALSE,victim,0,0,TO_CHAR);
if (IS_NPC(victim))
if (IS_SET(victim->specials.act, ACT_WIMPY))
do_flee(victim, "", 0);
}
break;
}
if (!IS_NPC(victim) && !(victim->desc)) {
do_flee(victim, "", 0);
if (!victim->specials.fighting) {
act("$n is rescued by divine forces.", FALSE, victim, 0, 0, TO_ROOM);
victim->specials.was_in_room = victim->in_room;
char_from_room(victim);
char_to_room(victim, 0);
}
}
if (GET_POS(victim) < POSITION_STUNNED)
if (ch->specials.fighting == victim)
stop_fighting(ch);
if (!AWAKE(victim))
if (victim->specials.fighting)
stop_fighting(victim);
if (GET_POS(victim) == POSITION_DEAD) {
if (IS_NPC(victim) || victim->desc)
if (IS_AFFECTED(ch, AFF_GROUP)) {
group_gain(ch, victim);
} else {
/* Calculate level-difference bonus */
exp = GET_EXP(victim)/3;
if (IS_NPC(ch))
exp += (exp*MIN(4, (GET_LEVEL(victim) - GET_LEVEL(ch))))>>3;
else
exp += (exp*MIN(8, (GET_LEVEL(victim) - GET_LEVEL(ch))))>>3;
exp = MAX(exp, 1);
gain_exp(ch, exp);
change_alignment(ch, victim);
}
if (!IS_NPC(victim)) {
sprintf(buf, "%s killed by %s at %s",
GET_NAME(victim),
(IS_NPC(ch) ? ch->player.short_descr : GET_NAME(ch)),
world[victim->in_room].name);
log(buf);
}
die(victim);
}
/* Display main menu. */
static void medit_disp_stats_menu(struct descriptor_data *d)
{
struct char_data *mob;
char buf[MAX_STRING_LENGTH];
mob = OLC_MOB(d);
get_char_colors(d->character);
clear_screen(d);
/* Color codes have to be used here, for count_color_codes to work */
sprintf(buf, "(range \ty%d\tn to \ty%d\tn)", GET_HIT(mob) + GET_MOVE(mob), (GET_HIT(mob) * GET_MANA(mob)) + GET_MOVE(mob));
/* Top section - standard stats */
write_to_output(d,
"-- Mob Number: %s[%s%d%s]%s\r\n"
"(%s1%s) Level: %s[%s%4d%s]%s\r\n"
"(%s2%s) %sAuto Set Stats (based on level)%s\r\n\r\n"
"Hit Points (xdy+z): Bare Hand Damage (xdy+z): \r\n"
"(%s3%s) HP NumDice: %s[%s%5d%s]%s (%s6%s) BHD NumDice: %s[%s%5d%s]%s\r\n"
"(%s4%s) HP SizeDice: %s[%s%5d%s]%s (%s7%s) BHD SizeDice: %s[%s%5d%s]%s\r\n"
"(%s5%s) HP Addition: %s[%s%5d%s]%s (%s8%s) DamRoll: %s[%s%5d%s]%s\r\n"
"%-*s(range %s%d%s to %s%d%s)\r\n\r\n"
"(%sA%s) Armor Class: %s[%s%4d%s]%s (%sD%s) Hitroll: %s[%s%5d%s]%s\r\n"
"(%sB%s) Exp Points: %s[%s%10d%s]%s (%sE%s) Alignment: %s[%s%5d%s]%s\r\n"
"(%sC%s) Gold: %s[%s%10d%s]%s\r\n\r\n",
cyn, yel, OLC_NUM(d), cyn, nrm,
cyn, nrm, cyn, yel, GET_LEVEL(mob), cyn, nrm,
cyn, nrm, cyn, nrm,
cyn, nrm, cyn, yel, GET_HIT(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_NDD(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_MANA(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SDD(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_MOVE(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_DAMROLL(mob), cyn, nrm,
count_color_chars(buf)+28, buf,
yel, GET_NDD(mob) + GET_DAMROLL(mob), nrm,
yel, (GET_NDD(mob) * GET_SDD(mob)) + GET_DAMROLL(mob), nrm,
cyn, nrm, cyn, yel, GET_AC(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_HITROLL(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_EXP(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_ALIGNMENT(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_GOLD(mob), cyn, nrm
);
if (CONFIG_MEDIT_ADVANCED) {
/* Bottom section - non-standard stats, togglable in cedit */
write_to_output(d,
"(%sF%s) Str: %s[%s%2d/%3d%s]%s Saving Throws\r\n"
"(%sG%s) Int: %s[%s%3d%s]%s (%sL%s) Paralysis %s[%s%3d%s]%s\r\n"
"(%sH%s) Wis: %s[%s%3d%s]%s (%sM%s) Rods/Staves %s[%s%3d%s]%s\r\n"
"(%sI%s) Dex: %s[%s%3d%s]%s (%sN%s) Petrification %s[%s%3d%s]%s\r\n"
"(%sJ%s) Con: %s[%s%3d%s]%s (%sO%s) Breath %s[%s%3d%s]%s\r\n"
"(%sK%s) Cha: %s[%s%3d%s]%s (%sP%s) Spells %s[%s%3d%s]%s\r\n\r\n",
cyn, nrm, cyn, yel, GET_STR(mob), GET_ADD(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_INT(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_PARA), cyn, nrm,
cyn, nrm, cyn, yel, GET_WIS(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_ROD), cyn, nrm,
cyn, nrm, cyn, yel, GET_DEX(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_PETRI), cyn, nrm,
cyn, nrm, cyn, yel, GET_CON(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_BREATH), cyn, nrm,
cyn, nrm, cyn, yel, GET_CHA(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_SPELL), cyn, nrm
);
}
/* Quit to previous menu option */
write_to_output(d, "(%sQ%s) Quit to main menu\r\nEnter choice : ", cyn, nrm);
OLC_MODE(d) = MEDIT_STATS_MENU;
}
int save_mobiles(zone_rnum rznum)
{
zone_vnum vznum;
FILE *mobfd;
room_vnum i;
mob_rnum rmob;
int written;
char mobfname[64], usedfname[64];
#if CIRCLE_UNSIGNED_INDEX
if (rznum == NOWHERE || rznum > top_of_zone_table) {
#else
if (rznum < 0 || rznum > top_of_zone_table) {
#endif
log("SYSERR: GenOLC: save_mobiles: Invalid real zone number %d. (0-%d)", rznum, top_of_zone_table);
return FALSE;
}
vznum = zone_table[rznum].number;
snprintf(mobfname, sizeof(mobfname), "%s%d.new", MOB_PREFIX, vznum);
if ((mobfd = fopen(mobfname, "w")) == NULL) {
mudlog(BRF, LVL_GOD, TRUE, "SYSERR: GenOLC: Cannot open mob file for writing.");
return FALSE;
}
for (i = genolc_zone_bottom(rznum); i <= zone_table[rznum].top; i++) {
if ((rmob = real_mobile(i)) == NOBODY)
continue;
check_mobile_strings(&mob_proto[rmob]);
if (write_mobile_record(i, &mob_proto[rmob], mobfd) < 0)
log("SYSERR: GenOLC: Error writing mobile #%d.", i);
}
fputs("$\n", mobfd);
written = ftell(mobfd);
fclose(mobfd);
snprintf(usedfname, sizeof(usedfname), "%s%d.mob", MOB_PREFIX, vznum);
remove(usedfname);
rename(mobfname, usedfname);
if (in_save_list(vznum, SL_MOB))
remove_from_save_list(vznum, SL_MOB);
log("GenOLC: '%s' saved, %d bytes written.", usedfname, written);
return written;
}
int write_mobile_espec(mob_vnum mvnum, struct char_data *mob, FILE *fd)
{
if (GET_ATTACK(mob) != 0)
fprintf(fd, "BareHandAttack: %d\n", GET_ATTACK(mob));
if (GET_STR(mob) != 11)
fprintf(fd, "Str: %d\n", GET_STR(mob));
if (GET_ADD(mob) != 0)
fprintf(fd, "StrAdd: %d\n", GET_ADD(mob));
if (GET_DEX(mob) != 11)
fprintf(fd, "Dex: %d\n", GET_DEX(mob));
if (GET_INT(mob) != 11)
fprintf(fd, "Int: %d\n", GET_INT(mob));
if (GET_WIS(mob) != 11)
fprintf(fd, "Wis: %d\n", GET_WIS(mob));
if (GET_CON(mob) != 11)
fprintf(fd, "Con: %d\n", GET_CON(mob));
if (GET_CHA(mob) != 11)
fprintf(fd, "Cha: %d\n", GET_CHA(mob));
if (GET_SAVE(mob, SAVING_PARA) != 0)
fprintf(fd, "SavingPara: %d\n", GET_SAVE(mob, SAVING_PARA));
if (GET_SAVE(mob, SAVING_ROD) != 0)
fprintf(fd, "SavingRod: %d\n", GET_SAVE(mob, SAVING_ROD));
if (GET_SAVE(mob, SAVING_PETRI) != 0)
fprintf(fd, "SavingPetri: %d\n", GET_SAVE(mob, SAVING_PETRI));
if (GET_SAVE(mob, SAVING_BREATH) != 0)
fprintf(fd, "SavingBreath: %d\n", GET_SAVE(mob, SAVING_BREATH));
if (GET_SAVE(mob, SAVING_SPELL) != 0)
fprintf(fd, "SavingSpell: %d\n", GET_SAVE(mob, SAVING_SPELL));
fputs("E\n", fd);
return TRUE;
}
int write_mobile_record(mob_vnum mvnum, struct char_data *mob, FILE *fd)
{
char ldesc[MAX_STRING_LENGTH];
char ddesc[MAX_STRING_LENGTH];
char buf[MAX_STRING_LENGTH];
ldesc[MAX_STRING_LENGTH - 1] = '\0';
ddesc[MAX_STRING_LENGTH - 1] = '\0';
strip_cr(strncpy(ldesc, GET_LDESC(mob), MAX_STRING_LENGTH - 1));
strip_cr(strncpy(ddesc, GET_DDESC(mob), MAX_STRING_LENGTH - 1));
int n = snprintf(buf, MAX_STRING_LENGTH, "#%d\n"
"%s%c\n"
"%s%c\n"
"%s%c\n"
"%s%c\n",
mvnum,
GET_ALIAS(mob), STRING_TERMINATOR,
GET_SDESC(mob), STRING_TERMINATOR,
ldesc, STRING_TERMINATOR,
ddesc, STRING_TERMINATOR
);
if(n < MAX_STRING_LENGTH) {
fprintf(fd, "%s", convert_from_tabs(buf));
fprintf(fd, "%d %d %d %d %d %d %d %d %d E\n"
"%d %d %d %dd%d+%d %dd%d+%d\n",
MOB_FLAGS(mob)[0], MOB_FLAGS(mob)[1],
MOB_FLAGS(mob)[2], MOB_FLAGS(mob)[3],
AFF_FLAGS(mob)[0], AFF_FLAGS(mob)[1],
AFF_FLAGS(mob)[2], AFF_FLAGS(mob)[3],
GET_ALIGNMENT(mob),
GET_LEVEL(mob), 20 - GET_HITROLL(mob), GET_AC(mob) / 10, GET_HIT(mob),
GET_MANA(mob), GET_MOVE(mob), GET_NDD(mob), GET_SDD(mob),
GET_DAMROLL(mob));
fprintf(fd, "%d %d\n"
"%d %d %d\n",
GET_GOLD(mob), GET_EXP(mob),
GET_POS(mob), GET_DEFAULT_POS(mob), GET_SEX(mob)
);
if (write_mobile_espec(mvnum, mob, fd) < 0)
log("SYSERR: GenOLC: Error writing E-specs for mobile #%d.", mvnum);
script_save_to_disk(fd, mob, MOB_TRIGGER);
#if CONFIG_GENOLC_MOBPROG
if (write_mobile_mobprog(mvnum, mob, fd) < 0)
log("SYSERR: GenOLC: Error writing MobProgs for mobile #%d.", mvnum);
#endif
} else {
mudlog(BRF,LVL_BUILDER,TRUE,
"SYSERR: Could not save mobile #%d due to size (%d > maximum of %d)",
mvnum, n, MAX_STRING_LENGTH);
}
return TRUE;
}
/*
* Read in a char.
*/
int fread_char( struct char_data *ch, FILE *fp )
{
int error_count = 0;
char *word;
char buf [ MAX_STRING_LENGTH ];
struct affected_type *paf;
int sn;
int i;
int j;
int status;
int status1;
char *p;
int tmpi;
int num_keys;
int last_key = 0;
char def_sdesc [] = "Your short description was corrupted.";
char def_ldesc [] = "Your long description was corrupted.";
char def_desc [] = "Your description was corrupted.";
char def_title [] = "Your title was corrupted.";
struct key_data key_tab [] = {
{ "ShtDsc", TRUE, (int) &def_sdesc, { &GET_SHORT_DESC(ch), NULL } },
{ "LngDsc", TRUE, (int) &def_ldesc, { &GET_LONG_DESC(ch), NULL } },
{ "Dscr", TRUE, (int) &def_desc, { &GET_DESCRIPTION(ch), NULL } },
{ "Sx", FALSE, SEX_MALE, { &GET_SEX(ch), NULL } },
{ "Race", FALSE, MAND, { &GET_RACE(ch), NULL } },
{ "Lvl", FALSE, MAND, { &GET_LEVEL(ch), NULL } },
{ "Trst", FALSE, 0, { &GET_TRUST(ch), NULL } },
{ "HpMnMv", FALSE, MAND, { &GET_HIT(ch),
&GET_MAX_HIT(ch),
&GET_MANA(ch),
&GET_MAX_MANA(ch),
&GET_MOVE(ch),
&GET_MAX_MOVE(ch), NULL } },
{ "Gold", FALSE, 0, { &GET_GOLD(ch), NULL } },
{ "Exp", FALSE, MAND, { &GET_EXP(ch), NULL } },
{ "Act", FALSE, DEFLT, { &PLR_FLAGS(ch), NULL } },
{ "Act2", FALSE, DEFLT, { &PLR2_FLAGS(ch), NULL } },
{ "AffdBy", FALSE, 0, { &AFF_FLAGS(ch), NULL } },
{ "AffdBy2", FALSE, 0, { &AFF2_FLAGS(ch), NULL } },
{ "Pref", FALSE, 0, { &PRF_FLAGS(ch), NULL } },
{ "Pref2", FALSE, 0, { &PRF2_FLAGS(ch), NULL } },
{ "Pos", FALSE, POS_STANDING, { &GET_POS(ch), NULL } },
{ "Prac", FALSE, MAND, { &GET_PRACTICES(ch), NULL } },
{ "PAlign", FALSE, 0, { &GET_PERMALIGN(ch), NULL } },
{ "CAlign", FALSE, 0, { &GET_ALIGNMENT(ch), NULL } },
{ "Ttle", TRUE, (int) &def_title, { &GET_TITLE(ch), NULL } },
#if 0
{ "SavThr", FALSE, MAND, { &ch->saving_throw, NULL } },
{ "Hit", FALSE, MAND, { &ch->hitroll, NULL } },
{ "Dam", FALSE, MAND, { &ch->damroll, NULL } },
{ "Armr", FALSE, MAND, { &ch->armor, NULL } },
{ "Wimp", FALSE, 10, { &ch->wimpy, NULL } },
{ "Deaf", FALSE, 0, { &ch->deaf, NULL } },
{ "Immskll",TRUE, DEFLT, { &ch->pcdata->immskll,
NULL } },
{ "AtrPrm", FALSE, MAND, { &ch->pcdata->perm_str,
&ch->pcdata->perm_int,
&ch->pcdata->perm_wis,
&ch->pcdata->perm_dex,
&ch->pcdata->perm_con,
NULL } },
{ "AtrMd", FALSE, MAND, { &ch->pcdata->mod_str,
&ch->pcdata->mod_int,
&ch->pcdata->mod_wis,
&ch->pcdata->mod_dex,
&ch->pcdata->mod_con,
NULL } },
{ "Cond", FALSE, DEFLT, { &ch->pcdata->condition [0],
&ch->pcdata->condition [1],
&ch->pcdata->condition [2],
NULL } },
{ "Pglen", FALSE, 20, { &ch->pcdata->pagelen,
NULL } },
{ "Playd", FALSE, 0, { &ch->played, NULL } },
#endif
{ "Paswd", TRUE, MAND, { &GET_PASSWD(ch), NULL } },
{ "Poofin", TRUE, DEFLT, { &POOFIN(ch), NULL } },
{ "Poofout", TRUE, DEFLT, { &POOFOUT(ch), NULL } },
{ "\0", FALSE, 0 } };
for ( num_keys = 0; *key_tab [num_keys].key; )
num_keys++;
for ( ; !feof (fp) ; )
{
word = fread_word_stat( fp, &status );
if ( !word )
{
log( "fread_char: Error reading key. EOF?" );
fread_to_eol( fp );
break;
}
/* This little diddy searches for the keyword
from the last keyword found */
for ( i = last_key;
i < last_key + num_keys &&
str_cmp (key_tab [i % num_keys].key, word); )
i++;
i = i % num_keys;
if ( !str_cmp (key_tab [i].key, word) )
last_key = i;
else
i = num_keys;
if ( *key_tab [i].key ) /* Key entry found in key_tab */
{
if ( key_tab [i].string == SPECIFIED )
log( "Key already specified." );
/* Entry is a string */
else
if ( key_tab [i].string )
{
if ( ( p = fread_string( fp, (char*)&status ) ) && !status )
{
free( *(char **)key_tab [i].ptrs [0] );
*(char **)key_tab [i].ptrs [0] = p;
}
}
/* Entry is an integer */
else
for ( j = 0; key_tab [i].ptrs [j]; j++ )
{
tmpi = fread_number_stat( fp, &status );
if ( !status )
*(int *)key_tab [i].ptrs [j] = tmpi;
}
if ( status )
{
fread_to_eol( fp );
continue;
}
else
key_tab [i].string = SPECIFIED;
}
else if ( *word == '*' || !str_cmp( word, "Nm" ) )
fread_to_eol( fp );
else if ( !str_cmp( word, "End" ) )
break;
else if ( !str_cmp( word, "Room" ) )
{
ch->in_room = fread_number_stat( fp, &status );
if ( !ch->in_room )
ch->in_room = NOWHERE;
}
else if ( !str_cmp( word, "Race" ) )
{
i = race_lookup( fread_string( fp, (char*)&status ) );
if ( status )
log( "Fread_char: Unknown Race." );
else
GET_RACE(ch) = i;
}
else if ( !str_cmp( word, "Skill" ) )
{
i = fread_number_stat( fp, &status );
sn = skill_lookup( fread_word_stat( fp, &status1 ) );
if ( status || status1 )
{
log( "Fread_char: Error reading skill." );
fread_to_eol( fp );
continue;
}
if ( sn < 0 )
log( "Fread_char: unknown skill." );
else
GET_SKILL(ch, sn) = i;
}
else if ( !str_cmp ( word, "Afft" ) )
{
int status;
CREATE(paf, struct affected_type, 1);
memset(paf, 0, sizeof( struct affected_type ));
paf->type = skill_lookup( fread_string( fp,
(char*)&status ) );
paf->duration = fread_number_stat( fp, &status );
paf->modifier = fread_number_stat( fp, &status );
paf->location = fread_number_stat( fp, &status );
paf->bitvector = fread_number_stat( fp, &status );
paf->next = ch->affected;
ch->affected = paf;
}
else
{
/*
* Write the char to the file.
*
* @param ch the character to be written
* @param fp the file to write to
*/
void fwrite_char( struct char_data *ch, FILE *fp )
{
extern struct race_data * races;
struct affected_type *paf;
int sn, i;
fprintf( fp, "#%s\n", IS_NPC( ch ) ? "MOB" : "PLAYER" );
fprintf( fp, "Name %s~\n", GET_NAME(ch) );
fprintf( fp, "ShtDsc %s~\n", GET_SHORT_DESC(ch) ?
GET_SHORT_DESC(ch) : "" );
fprintf( fp, "LngDsc %s~\n", GET_LONG_DESC(ch) ?
GET_LONG_DESC(ch) : "" );
fprintf( fp, "Dscr %s~\n", GET_DESCRIPTION(ch) ?
GET_DESCRIPTION(ch) : "" );
// fprintf( fp, "Prmpt %s~\n", ch->pcdata->prompt );
fprintf( fp, "Sx %d\n", GET_SEX(ch) );
fprintf( fp, "Race %s~\n", races[ (int)GET_RACE(ch) ].name );
fprintf( fp, "Lvl %d\n", GET_LEVEL(ch) );
fprintf( fp, "Trst %d\n", GET_TRUST(ch) );
/*
fprintf( fp, "Playd %ld\n",
GET_PLAYED(ch) + (int)( time( 0 ) - GET_LOGON(ch) ) );
*/
// fprintf( fp, "Note %ld\n", (unsigned long)ch->last_note );
fprintf( fp, "Room %ld\n",
( ch->in_room == NOWHERE && ch->was_in_room )
? ch->was_in_room : ch->in_room );
fprintf( fp, "HpMnMv %d %d %d %d %d %d\n",
GET_HIT(ch), GET_MAX_HIT(ch),
GET_MANA(ch), GET_MAX_MANA(ch),
GET_MOVE(ch), GET_MAX_MOVE(ch) );
fprintf( fp, "Gold %ld\n", GET_GOLD(ch) );
fprintf( fp, "Exp %ld\n", GET_EXP(ch) );
fprintf( fp, "Act %lld\n", PLR_FLAGS(ch) );
fprintf( fp, "Act2 %lld\n", PLR2_FLAGS(ch) );
fprintf( fp, "Pref %lld\n", PRF_FLAGS(ch) );
fprintf( fp, "Pref2 %lld\n", PRF2_FLAGS(ch) );
fprintf( fp, "AffdBy %lld\n", AFF_FLAGS(ch) );
fprintf( fp, "AffdBy2 %lld\n", AFF2_FLAGS(ch) );
/* Bug fix from Alander */
fprintf( fp, "Pos %d\n",
GET_POS(ch) == POS_FIGHTING ? POS_STANDING : GET_POS(ch) );
fprintf( fp, "Prac %d\n", GET_PRACTICES(ch) );
fprintf( fp, "PAlign %d\n", GET_PERMALIGN(ch) );
fprintf( fp, "CAlign %d\n", GET_ALIGNMENT(ch) );
fprintf( fp, "SavThr " );
for ( i = 0; i < NUM_SAVES; i++ )
fprintf( fp, "%d%s", GET_SAVE(ch, i), (i != NUM_SAVES-1 ? ", " : "\n") );
fprintf( fp, "Hitroll %d\n", GET_HITROLL(ch) );
fprintf( fp, "Damroll %d\n", GET_DAMROLL(ch) );
fprintf( fp, "Armr " );
for ( i = 0; i < ARMOR_LIMIT; i++ )
fprintf( fp, "%d%s", GET_AC(ch, i), (i != ARMOR_LIMIT-1 ? ", " : "\n") );
fprintf( fp, "Wimp %d\n", GET_WIMP_LEV(ch) );
if ( IS_NPC( ch ) ) {
fprintf( fp, "Vnum %ld\n", GET_MOB_VNUM(ch) );
} else {
fprintf( fp, "Paswd %s~\n", GET_PASSWD(ch) );
fprintf( fp, "Poofin %s~\n", POOFIN(ch) ?
POOFIN(ch) : "" );
fprintf( fp, "Poofout %s~\n", POOFOUT(ch) ?
POOFOUT(ch) : "" );
fprintf( fp, "Ttle %s~\n", GET_TITLE(ch) ?
GET_TITLE(ch) : "" );
fprintf( fp, "AtrPrm %d/%d %d %d %d %d %d %d\n",
ch->real_abils.str,
ch->real_abils.str_add,
ch->real_abils.intel,
ch->real_abils.wis,
ch->real_abils.dex,
ch->real_abils.con,
ch->real_abils.cha,
ch->real_abils.will );
fprintf( fp, "AtrMd %d/%d %d %d %d %d %d %d\n",
ch->aff_abils.str,
ch->aff_abils.str_add,
ch->aff_abils.intel,
ch->aff_abils.wis,
ch->aff_abils.dex,
ch->aff_abils.con,
ch->aff_abils.cha,
ch->aff_abils.will );
fprintf( fp, "Conditions " );
for ( i = 0; i < MAX_COND; i++ )
fprintf( fp, "%d%s", GET_COND(ch, i), (i != MAX_COND-1 ? ", " : "\n") );
fprintf( fp, "Addictions " );
for ( i = 0; i < MAX_COND; i++ )
fprintf( fp, "%d%s", GET_ADDICT(ch, i), (i != MAX_COND-1 ? ", " : "\n") );
for ( sn = 0; sn < MAX_SKILLS; sn++ ) {
if ( skill_name( sn ) &&
strcmp( skill_name( sn ), "!UNUSED!" ) &&
GET_SKILL(ch, sn) > 0 ) {
fprintf( fp, "Skill %d '%s'\n",
GET_SKILL(ch, sn),
skill_name( sn ) );
}
}
}
for ( paf = ch->affected; paf; paf = paf->next ) {
fprintf( fp, "Afft %18s~ %3d %3d %3d %lld\n",
skill_name( paf->type ),
paf->duration,
paf->modifier,
paf->location,
paf->bitvector );
}
for ( paf = ch->affected2; paf; paf = paf->next ) {
fprintf( fp, "Afft2 %18s~ %3d %3d %3d %lld\n",
skill_name( paf->type ),
paf->duration,
paf->modifier,
paf->location,
paf->bitvector );
}
fprintf( fp, "End\n\n" );
return;
}
void medit_parse(struct descriptor_data *d, char *arg)
{
int i = -1, j;
char *oldtext = NULL;
if (OLC_MODE(d) > MEDIT_NUMERICAL_RESPONSE) {
i = atoi(arg);
if (!*arg || (!isdigit(arg[0]) && ((*arg == '-') && !isdigit(arg[1])))) {
write_to_output(d, "Try again : ");
return;
}
} else { /* String response. */
if (!genolc_checkstring(d, arg))
return;
}
switch (OLC_MODE(d)) {
case MEDIT_CONFIRM_SAVESTRING:
/* Ensure mob has MOB_ISNPC set. */
SET_BIT_AR(MOB_FLAGS(OLC_MOB(d)), MOB_ISNPC);
switch (*arg) {
case 'y':
case 'Y':
/* Save the mob in memory and to disk. */
medit_save_internally(d);
mudlog(CMP, MAX(LVL_BUILDER, GET_INVIS_LEV(d->character)), TRUE, "OLC: %s edits mob %d", GET_NAME(d->character), OLC_NUM(d));
if (CONFIG_OLC_SAVE) {
medit_save_to_disk(zone_table[real_zone_by_thing(OLC_NUM(d))].number);
write_to_output(d, "Mobile saved to disk.\r\n");
} else
write_to_output(d, "Mobile saved to memory.\r\n");
cleanup_olc(d, CLEANUP_ALL);
return;
case 'n':
case 'N':
/* If not saving, we must free the script_proto list. We do so by
* assigning it to the edited mob and letting free_mobile in
* cleanup_olc handle it. */
OLC_MOB(d)->proto_script = OLC_SCRIPT(d);
cleanup_olc(d, CLEANUP_ALL);
return;
default:
write_to_output(d, "Invalid choice!\r\n");
write_to_output(d, "Do you wish to save your changes? : ");
return;
}
break;
case MEDIT_MAIN_MENU:
i = 0;
switch (*arg) {
case 'q':
case 'Q':
if (OLC_VAL(d)) { /* Anything been changed? */
write_to_output(d, "Do you wish to save your changes? : ");
OLC_MODE(d) = MEDIT_CONFIRM_SAVESTRING;
} else
cleanup_olc(d, CLEANUP_ALL);
return;
case '1':
OLC_MODE(d) = MEDIT_SEX;
medit_disp_sex(d);
return;
case '2':
OLC_MODE(d) = MEDIT_KEYWORD;
i--;
break;
case '3':
OLC_MODE(d) = MEDIT_S_DESC;
i--;
break;
case '4':
OLC_MODE(d) = MEDIT_L_DESC;
i--;
break;
case '5':
OLC_MODE(d) = MEDIT_D_DESC;
send_editor_help(d);
write_to_output(d, "Enter mob description:\r\n\r\n");
if (OLC_MOB(d)->player.description) {
write_to_output(d, "%s", OLC_MOB(d)->player.description);
oldtext = strdup(OLC_MOB(d)->player.description);
}
string_write(d, &OLC_MOB(d)->player.description, MAX_MOB_DESC, 0, oldtext);
OLC_VAL(d) = 1;
return;
case '6':
OLC_MODE(d) = MEDIT_POS;
medit_disp_positions(d);
return;
case '7':
OLC_MODE(d) = MEDIT_DEFAULT_POS;
medit_disp_positions(d);
return;
case '8':
OLC_MODE(d) = MEDIT_ATTACK;
medit_disp_attack_types(d);
return;
case '9':
OLC_MODE(d) = MEDIT_STATS_MENU;
medit_disp_stats_menu(d);
return;
case 'a':
case 'A':
OLC_MODE(d) = MEDIT_NPC_FLAGS;
medit_disp_mob_flags(d);
return;
case 'b':
case 'B':
OLC_MODE(d) = MEDIT_AFF_FLAGS;
medit_disp_aff_flags(d);
return;
case 'w':
case 'W':
write_to_output(d, "Copy what mob? ");
OLC_MODE(d) = MEDIT_COPY;
return;
case 'x':
case 'X':
write_to_output(d, "Are you sure you want to delete this mobile? ");
OLC_MODE(d) = MEDIT_DELETE;
return;
case 's':
case 'S':
OLC_SCRIPT_EDIT_MODE(d) = SCRIPT_MAIN_MENU;
dg_script_menu(d);
return;
default:
medit_disp_menu(d);
return;
}
if (i == 0)
break;
else if (i == 1)
write_to_output(d, "\r\nEnter new value : ");
else if (i == -1)
write_to_output(d, "\r\nEnter new text :\r\n] ");
else
write_to_output(d, "Oops...\r\n");
return;
case MEDIT_STATS_MENU:
i=0;
switch(*arg) {
case 'q':
case 'Q':
medit_disp_menu(d);
return;
case '1': /* Edit level */
OLC_MODE(d) = MEDIT_LEVEL;
i++;
break;
case '2': /* Autoroll stats */
medit_autoroll_stats(d);
medit_disp_stats_menu(d);
OLC_VAL(d) = TRUE;
return;
case '3':
OLC_MODE(d) = MEDIT_NUM_HP_DICE;
i++;
break;
case '4':
OLC_MODE(d) = MEDIT_SIZE_HP_DICE;
i++;
break;
case '5':
OLC_MODE(d) = MEDIT_ADD_HP;
i++;
break;
case '6':
OLC_MODE(d) = MEDIT_NDD;
i++;
break;
case '7':
OLC_MODE(d) = MEDIT_SDD;
i++;
break;
case '8':
OLC_MODE(d) = MEDIT_DAMROLL;
i++;
break;
case 'a':
case 'A':
OLC_MODE(d) = MEDIT_AC;
i++;
break;
case 'b':
case 'B':
OLC_MODE(d) = MEDIT_EXP;
i++;
break;
case 'c':
case 'C':
OLC_MODE(d) = MEDIT_GOLD;
i++;
break;
case 'd':
case 'D':
OLC_MODE(d) = MEDIT_HITROLL;
i++;
break;
case 'e':
case 'E':
OLC_MODE(d) = MEDIT_ALIGNMENT;
i++;
break;
case 'f':
case 'F':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_STR;
i++;
break;
case 'g':
case 'G':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_INT;
i++;
break;
case 'h':
case 'H':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_WIS;
i++;
break;
case 'i':
case 'I':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_DEX;
i++;
break;
case 'j':
case 'J':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_CON;
i++;
break;
case 'k':
case 'K':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_CHA;
i++;
break;
case 'l':
case 'L':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_PARA;
i++;
break;
case 'm':
case 'M':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_ROD;
i++;
break;
case 'n':
case 'N':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_PETRI;
i++;
break;
case 'o':
case 'O':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_BREATH;
i++;
break;
case 'p':
case 'P':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_SPELL;
i++;
break;
default:
medit_disp_stats_menu(d);
return;
}
if (i == 0)
break;
else if (i == 1)
write_to_output(d, "\r\nEnter new value : ");
else if (i == -1)
write_to_output(d, "\r\nEnter new text :\r\n] ");
else
write_to_output(d, "Oops...\r\n");
return;
case OLC_SCRIPT_EDIT:
if (dg_script_edit_parse(d, arg)) return;
break;
case MEDIT_KEYWORD:
smash_tilde(arg);
if (GET_ALIAS(OLC_MOB(d)))
free(GET_ALIAS(OLC_MOB(d)));
GET_ALIAS(OLC_MOB(d)) = str_udup(arg);
break;
case MEDIT_S_DESC:
smash_tilde(arg);
if (GET_SDESC(OLC_MOB(d)))
free(GET_SDESC(OLC_MOB(d)));
GET_SDESC(OLC_MOB(d)) = str_udup(arg);
break;
case MEDIT_L_DESC:
smash_tilde(arg);
if (GET_LDESC(OLC_MOB(d)))
free(GET_LDESC(OLC_MOB(d)));
if (arg && *arg) {
char buf[MAX_INPUT_LENGTH];
snprintf(buf, sizeof(buf), "%s\r\n", arg);
GET_LDESC(OLC_MOB(d)) = strdup(buf);
} else
GET_LDESC(OLC_MOB(d)) = strdup("undefined");
break;
case MEDIT_D_DESC:
/*
* We should never get here.
*/
cleanup_olc(d, CLEANUP_ALL);
mudlog(BRF, LVL_BUILDER, TRUE, "SYSERR: OLC: medit_parse(): Reached D_DESC case!");
write_to_output(d, "Oops...\r\n");
break;
case MEDIT_NPC_FLAGS:
if ((i = atoi(arg)) <= 0)
break;
else if ( (j = medit_get_mob_flag_by_number(i)) == -1) {
write_to_output(d, "Invalid choice!\r\n");
write_to_output(d, "Enter mob flags (0 to quit) :");
return;
} else if (j <= NUM_MOB_FLAGS) {
TOGGLE_BIT_AR(MOB_FLAGS(OLC_MOB(d)), (j));
}
medit_disp_mob_flags(d);
return;
case MEDIT_AFF_FLAGS:
if ((i = atoi(arg)) <= 0)
break;
else if (i <= NUM_AFF_FLAGS)
TOGGLE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), i);
/* Remove unwanted bits right away. */
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_CHARM);
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_POISON);
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_GROUP);
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_SLEEP);
medit_disp_aff_flags(d);
return;
/* Numerical responses. */
case MEDIT_SEX:
GET_SEX(OLC_MOB(d)) = LIMIT(i - 1, 0, NUM_GENDERS - 1);
break;
case MEDIT_HITROLL:
GET_HITROLL(OLC_MOB(d)) = LIMIT(i, 0, 50);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_DAMROLL:
GET_DAMROLL(OLC_MOB(d)) = LIMIT(i, 0, 50);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_NDD:
GET_NDD(OLC_MOB(d)) = LIMIT(i, 0, 30);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_SDD:
GET_SDD(OLC_MOB(d)) = LIMIT(i, 0, 127);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_NUM_HP_DICE:
GET_HIT(OLC_MOB(d)) = LIMIT(i, 0, 30);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_SIZE_HP_DICE:
GET_MANA(OLC_MOB(d)) = LIMIT(i, 0, 1000);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_ADD_HP:
GET_MOVE(OLC_MOB(d)) = LIMIT(i, 0, 30000);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_AC:
GET_AC(OLC_MOB(d)) = LIMIT(i, -200, 200);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_EXP:
GET_EXP(OLC_MOB(d)) = LIMIT(i, 0, MAX_MOB_EXP);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_GOLD:
GET_GOLD(OLC_MOB(d)) = LIMIT(i, 0, MAX_MOB_GOLD);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_STR:
GET_STR(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_INT:
GET_INT(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_WIS:
GET_WIS(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_DEX:
GET_DEX(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_CON:
GET_CON(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_CHA:
GET_CHA(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_PARA:
GET_SAVE(OLC_MOB(d), SAVING_PARA) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_ROD:
GET_SAVE(OLC_MOB(d), SAVING_ROD) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_PETRI:
GET_SAVE(OLC_MOB(d), SAVING_PETRI) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_BREATH:
GET_SAVE(OLC_MOB(d), SAVING_BREATH) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_SPELL:
GET_SAVE(OLC_MOB(d), SAVING_SPELL) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_POS:
GET_POS(OLC_MOB(d)) = LIMIT(i - 1, 0, NUM_POSITIONS - 1);
break;
case MEDIT_DEFAULT_POS:
GET_DEFAULT_POS(OLC_MOB(d)) = LIMIT(i - 1, 0, NUM_POSITIONS - 1);
break;
case MEDIT_ATTACK:
GET_ATTACK(OLC_MOB(d)) = LIMIT(i, 0, NUM_ATTACK_TYPES - 1);
break;
case MEDIT_LEVEL:
GET_LEVEL(OLC_MOB(d)) = LIMIT(i, 1, LVL_IMPL);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_ALIGNMENT:
GET_ALIGNMENT(OLC_MOB(d)) = LIMIT(i, -1000, 1000);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_COPY:
if ((i = real_mobile(atoi(arg))) != NOWHERE) {
medit_setup_existing(d, i);
} else
write_to_output(d, "That mob does not exist.\r\n");
break;
case MEDIT_DELETE:
if (*arg == 'y' || *arg == 'Y') {
if (delete_mobile(GET_MOB_RNUM(OLC_MOB(d))) != NOBODY)
write_to_output(d, "Mobile deleted.\r\n");
else
write_to_output(d, "Couldn't delete the mobile!\r\n");
cleanup_olc(d, CLEANUP_ALL);
return;
} else if (*arg == 'n' || *arg == 'N') {
medit_disp_menu(d);
OLC_MODE(d) = MEDIT_MAIN_MENU;
return;
} else
write_to_output(d, "Please answer 'Y' or 'N': ");
break;
default:
/* We should never get here. */
cleanup_olc(d, CLEANUP_ALL);
mudlog(BRF, LVL_BUILDER, TRUE, "SYSERR: OLC: medit_parse(): Reached default case!");
write_to_output(d, "Oops...\r\n");
break;
}
/* END OF CASE If we get here, we have probably changed something, and now want
to return to main menu. Use OLC_VAL as a 'has changed' flag */
OLC_VAL(d) = TRUE;
medit_disp_menu(d);
}
void medit_parse(struct descriptor_data *d, char *arg)
{
int i = -1;
char *oldtext = NULL;
if (OLC_MODE(d) > MEDIT_NUMERICAL_RESPONSE) {
i = atoi(arg);
if (!*arg || (!isdigit(arg[0]) && ((*arg == '-') && !isdigit(arg[1])))) {
SEND_TO_Q("Field must be numerical, try again : ", d);
return;
}
} else { /* String response. */
if (!genolc_checkstring(d, arg))
return;
}
switch (OLC_MODE(d)) {
/*-------------------------------------------------------------------*/
case MEDIT_CONFIRM_SAVESTRING:
/*
* Ensure mob has MOB_ISNPC set or things will go pear shaped.
*/
SET_BIT(MOB_FLAGS(OLC_MOB(d)), MOB_ISNPC);
switch (*arg) {
case 'y':
case 'Y':
/*
* Save the mob in memory and to disk.
*/
SEND_TO_Q("Saving mobile to memory.\r\n", d);
medit_save_internally(d);
sprintf(buf, "OLC: %s edits mob %d", GET_NAME(d->character), OLC_NUM(d));
mudlog(buf, CMP, MAX(LVL_BUILDER, GET_INVIS_LEV(d->character)), TRUE);
/* FALL THROUGH */
case 'n':
case 'N':
cleanup_olc(d, CLEANUP_ALL);
return;
default:
SEND_TO_Q("Invalid choice!\r\n", d);
SEND_TO_Q("Do you wish to save the mobile? : ", d);
return;
}
break;
/*-------------------------------------------------------------------*/
case MEDIT_MAIN_MENU:
i = 0;
switch (*arg) {
case 'q':
case 'Q':
if (OLC_VAL(d)) { /* Anything been changed? */
SEND_TO_Q("Do you wish to save the changes to the mobile? (y//n) : ", d);
OLC_MODE(d) = MEDIT_CONFIRM_SAVESTRING;
} else
cleanup_olc(d, CLEANUP_ALL);
return;
case '1':
OLC_MODE(d) = MEDIT_SEX;
medit_disp_sex(d);
return;
case '2':
OLC_MODE(d) = MEDIT_ALIAS;
i--;
break;
case '3':
OLC_MODE(d) = MEDIT_S_DESC;
i--;
break;
case '4':
OLC_MODE(d) = MEDIT_L_DESC;
i--;
break;
case '5':
OLC_MODE(d) = MEDIT_D_DESC;
send_editor_help(d);
SEND_TO_Q("Enter mob description:\r\n\r\n", d);
if (OLC_MOB(d)->player.description) {
SEND_TO_Q(OLC_MOB(d)->player.description, d);
oldtext = str_dup(OLC_MOB(d)->player.description);
}
string_write(d, &OLC_MOB(d)->player.description, MAX_MOB_DESC, 0, oldtext);
OLC_VAL(d) = 1;
return;
case '6':
OLC_MODE(d) = MEDIT_LEVEL;
i++;
break;
case '7':
OLC_MODE(d) = MEDIT_ALIGNMENT;
i++;
break;
case '8':
OLC_MODE(d) = MEDIT_HITROLL;
i++;
break;
case '9':
OLC_MODE(d) = MEDIT_DAMROLL;
i++;
break;
case 'a':
case 'A':
OLC_MODE(d) = MEDIT_NDD;
i++;
break;
case 'b':
case 'B':
OLC_MODE(d) = MEDIT_SDD;
i++;
break;
case 'c':
case 'C':
OLC_MODE(d) = MEDIT_NUM_HP_DICE;
i++;
break;
case 'd':
case 'D':
OLC_MODE(d) = MEDIT_SIZE_HP_DICE;
i++;
break;
case 'e':
case 'E':
OLC_MODE(d) = MEDIT_ADD_HP;
i++;
break;
case 'f':
case 'F':
OLC_MODE(d) = MEDIT_AC;
i++;
break;
case 'g':
case 'G':
OLC_MODE(d) = MEDIT_EXP;
i++;
break;
case 'h':
case 'H':
OLC_MODE(d) = MEDIT_GOLD;
i++;
break;
case 'i':
case 'I':
OLC_MODE(d) = MEDIT_POS;
medit_disp_positions(d);
return;
case 'j':
case 'J':
OLC_MODE(d) = MEDIT_DEFAULT_POS;
medit_disp_positions(d);
return;
case 'k':
case 'K':
OLC_MODE(d) = MEDIT_ATTACK;
medit_disp_attack_types(d);
return;
case 'l':
case 'L':
OLC_MODE(d) = MEDIT_NPC_FLAGS;
medit_disp_mob_flags(d);
return;
case 'm':
case 'M':
OLC_MODE(d) = MEDIT_AFF_FLAGS;
medit_disp_aff_flags(d);
return;
case 'n':
case 'N':
OLC_MODE(d) = MEDIT_CLASS;
medit_disp_class_flags(d);
return;
case 'r':
case 'R':
OLC_MODE(d) = MEDIT_RACE;
medit_disp_race_flags(d);
return;
case 's':
case 'S':
OLC_MODE(d) = MEDIT_MSIZE;
medit_disp_size_flags(d);
return;
case 'w':
case 'W':
OLC_MODE(d) = MEDIT_WEIGHT;
send_to_char("Please enter the mobiles weight in pounds: ", d->character);
return;
#if CONFIG_OASIS_MPROG
case 'p':
case 'P':
OLC_MODE(d) = MEDIT_MPROG;
medit_disp_mprog(d);
return;
#endif
default:
medit_disp_menu(d);
return;
}
if (i == 0)
break;
else if (i == 1)
SEND_TO_Q("\r\nEnter new value : ", d);
else if (i == -1)
SEND_TO_Q("\r\nEnter new text :\r\n] ", d);
else
SEND_TO_Q("Oops...\r\n", d);
return;
/*-------------------------------------------------------------------*/
case MEDIT_ALIAS:
if (GET_ALIAS(OLC_MOB(d)))
free(GET_ALIAS(OLC_MOB(d)));
GET_ALIAS(OLC_MOB(d)) = str_udup(arg);
break;
/*-------------------------------------------------------------------*/
case MEDIT_S_DESC:
if (GET_SDESC(OLC_MOB(d)))
free(GET_SDESC(OLC_MOB(d)));
GET_SDESC(OLC_MOB(d)) = str_udup(arg);
break;
/*-------------------------------------------------------------------*/
case MEDIT_L_DESC:
if (GET_LDESC(OLC_MOB(d)))
free(GET_LDESC(OLC_MOB(d)));
if (arg && *arg) {
strcpy(buf, arg);
strcat(buf, "\r\n");
GET_LDESC(OLC_MOB(d)) = str_dup(buf);
} else
GET_LDESC(OLC_MOB(d)) = str_dup("undefined");
break;
/*-------------------------------------------------------------------*/
case MEDIT_D_DESC:
/*
* We should never get here.
*/
cleanup_olc(d, CLEANUP_ALL);
mudlog("SYSERR: OLC: medit_parse(): Reached D_DESC case!", BRF, LVL_BUILDER, TRUE);
SEND_TO_Q("Oops...\r\n", d);
break;
/*-------------------------------------------------------------------*/
#if CONFIG_OASIS_MPROG
case MEDIT_MPROG_COMLIST:
/*
* We should never get here, but if we do, bail out.
*/
cleanup_olc(d, CLEANUP_ALL);
mudlog("SYSERR: OLC: medit_parse(): Reached MPROG_COMLIST case!", BRF, LVL_BUILDER, TRUE);
break;
#endif
/*-------------------------------------------------------------------*/
case MEDIT_NPC_FLAGS:
if ((i = atoi(arg)) <= 0)
break;
else if (i <= NUM_MOB_FLAGS)
TOGGLE_BIT(MOB_FLAGS(OLC_MOB(d)), 1 << (i - 1));
medit_disp_mob_flags(d);
return;
/*-------------------------------------------------------------------*/
case MEDIT_AFF_FLAGS:
if ((i = atoi(arg)) <= 0)
break;
else if (i <= NUM_AFF_FLAGS)
TOGGLE_BIT(AFF_FLAGS(OLC_MOB(d)), 1 << (i - 1));
medit_disp_aff_flags(d);
return;
/*-------------------------------------------------------------------*/
#if CONFIG_OASIS_MPROG
case MEDIT_MPROG:
if ((i = atoi(arg)) == 0)
medit_disp_menu(d);
else if (i == OLC_MTOTAL(d)) {
struct mob_prog_data *temp;
CREATE(temp, struct mob_prog_data, 1);
temp->next = OLC_MPROGL(d);
temp->type = -1;
temp->arglist = NULL;
temp->comlist = NULL;
OLC_MPROG(d) = temp;
OLC_MPROGL(d) = temp;
OLC_MODE(d) = MEDIT_CHANGE_MPROG;
medit_change_mprog (d);
} else if (i < OLC_MTOTAL(d)) {
struct mob_prog_data *temp;
int x = 1;
for (temp = OLC_MPROGL(d); temp && x < i; temp = temp->next)
x++;
OLC_MPROG(d) = temp;
OLC_MODE(d) = MEDIT_CHANGE_MPROG;
medit_change_mprog (d);
} else if (i == (OLC_MTOTAL(d) + 1)) {
SEND_TO_Q("Which mob prog do you want to purge? ", d);
OLC_MODE(d) = MEDIT_PURGE_MPROG;
} else
medit_disp_menu(d);
return;
case MEDIT_PURGE_MPROG:
if ((i = atoi(arg)) > 0 && i < OLC_MTOTAL(d)) {
struct mob_prog_data *temp;
int x = 1;
for (temp = OLC_MPROGL(d); temp && x < i; temp = temp->next)
x++;
OLC_MPROG(d) = temp;
REMOVE_FROM_LIST(OLC_MPROG(d), OLC_MPROGL(d), next);
free(OLC_MPROG(d)->arglist);
free(OLC_MPROG(d)->comlist);
free(OLC_MPROG(d));
OLC_MPROG(d) = NULL;
OLC_VAL(d) = 1;
}
medit_disp_mprog(d);
return;
case MEDIT_CHANGE_MPROG:
if ((i = atoi(arg)) == 1)
medit_disp_mprog_types(d);
else if (i == 2) {
SEND_TO_Q("Enter new arg list: ", d);
OLC_MODE(d) = MEDIT_MPROG_ARGS;
} else if (i == 3) {
SEND_TO_Q("Enter new mob prog commands:\r\n", d);
/*
* Pass control to modify.c for typing.
*/
OLC_MODE(d) = MEDIT_MPROG_COMLIST;
if (OLC_MPROG(d)->comlist) {
SEND_TO_Q(OLC_MPROG(d)->comlist, d);
oldtext = str_dup(OLC_MPROG(d)->comlist);
}
string_write(d, &OLC_MPROG(d)->comlist, MAX_STRING_LENGTH, 0, oldtext);
OLC_VAL(d) = 1;
} else
medit_disp_mprog(d);
return;
#endif
/*-------------------------------------------------------------------*/
/*
* Numerical responses.
*/
#if CONFIG_OASIS_MPROG
case MEDIT_MPROG_TYPE:
/*
* This calculation may be off by one too many powers of 2?
* Someone who actually uses MobProgs will have to check.
*/
OLC_MPROG(d)->type = (1 << LIMIT(atoi(arg), 0, NUM_PROGS - 1));
OLC_VAL(d) = 1;
medit_change_mprog(d);
return;
case MEDIT_MPROG_ARGS:
OLC_MPROG(d)->arglist = str_dup(arg);
OLC_VAL(d) = 1;
medit_change_mprog(d);
return;
#endif
case MEDIT_SEX:
GET_SEX(OLC_MOB(d)) = LIMIT(i, 0, NUM_GENDERS - 1);
break;
case MEDIT_HITROLL:
GET_HITROLL(OLC_MOB(d)) = LIMIT(i, 0, 50);
break;
case MEDIT_DAMROLL:
GET_DAMROLL(OLC_MOB(d)) = LIMIT(i, 0, 50);
break;
case MEDIT_NDD:
GET_NDD(OLC_MOB(d)) = LIMIT(i, 0, 30);
break;
case MEDIT_SDD:
GET_SDD(OLC_MOB(d)) = LIMIT(i, 0, 127);
break;
case MEDIT_NUM_HP_DICE:
GET_HIT(OLC_MOB(d)) = LIMIT(i, 0, 30);
break;
case MEDIT_SIZE_HP_DICE:
GET_MANA(OLC_MOB(d)) = LIMIT(i, 0, 1000);
break;
case MEDIT_ADD_HP:
GET_MOVE(OLC_MOB(d)) = LIMIT(i, 0, 30000);
break;
case MEDIT_AC:
GET_AC(OLC_MOB(d)) = LIMIT(i, 10, 200);
break;
case MEDIT_EXP:
GET_EXP(OLC_MOB(d)) = MAX(i, 0);
break;
case MEDIT_GOLD:
add_money_to_char(OLC_MOB(d), MAX(i, 0), COPPER_COINS);
break;
case MEDIT_POS:
GET_POS(OLC_MOB(d)) = LIMIT(i, 0, NUM_POSITIONS - 1);
break;
case MEDIT_DEFAULT_POS:
GET_DEFAULT_POS(OLC_MOB(d)) = LIMIT(i, 0, NUM_POSITIONS - 1);
break;
case MEDIT_ATTACK:
GET_ATTACK(OLC_MOB(d)) = LIMIT(i, 0, NUM_ATTACK_TYPES - 1);
break;
case MEDIT_LEVEL:
GET_LEVEL(OLC_MOB(d)) = i;
break;
case MEDIT_ALIGNMENT:
GET_ALIGNMENT(OLC_MOB(d)) = LIMIT(i, -1000, 1000);
break;
case MEDIT_CLASS:
GET_CLASS(OLC_MOB(d)) = MAX(0, MIN(NUM_NPC_CLASS, atoi(arg)));
break;
case MEDIT_RACE:
GET_RACE(OLC_MOB(d)) = MAX(0, MIN(NUM_NPC_RACE, atoi(arg)));
// INT, WIS, STR, DEX, CON, CHA
GET_INT(OLC_MOB(d)) = mob_stats[(int)GET_RACE(OLC_MOB(d))][0];
GET_WIS(OLC_MOB(d)) = mob_stats[(int)GET_RACE(OLC_MOB(d))][1];
GET_STR(OLC_MOB(d)) = mob_stats[(int)GET_RACE(OLC_MOB(d))][2];
GET_DEX(OLC_MOB(d)) = mob_stats[(int)GET_RACE(OLC_MOB(d))][3];
GET_CON(OLC_MOB(d)) = mob_stats[(int)GET_RACE(OLC_MOB(d))][4];
GET_CHA(OLC_MOB(d)) = mob_stats[(int)GET_RACE(OLC_MOB(d))][5];
GET_HIT(OLC_MOB(d)) = mob_hp[i][0];
GET_MANA(OLC_MOB(d)) = mob_hp[i][2];
GET_MOVE(OLC_MOB(d)) = mob_hp[i][3];
break;
case MEDIT_WEIGHT:
GET_MOB_WEIGHT(OLC_MOB(d)) = LIMIT(i, 1, 1000);
break;
case MEDIT_MSIZE:
GET_MOB_SIZE(OLC_MOB(d)) = atoi(arg);
break;
/*-------------------------------------------------------------------*/
default:
/*
* We should never get here.
*/
cleanup_olc(d, CLEANUP_ALL);
mudlog("SYSERR: OLC: medit_parse(): Reached default case!", BRF, LVL_BUILDER, TRUE);
SEND_TO_Q("Oops...\r\n", d);
break;
}