/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Dystopia Mud improvements copyright (C) 2000, 2001 by Brian Graversen *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
#include <sys/types.h>
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "merc.h"
/* local functions */
void clearshit args((CHAR_DATA *ch));
void upgrade2 args((CHAR_DATA *ch));
bool is_upgrade(CHAR_DATA *ch)
{
if (IS_NPC(ch)) return FALSE;
if (IS_CLASS(ch, CLASS_DROID)) return TRUE;
if (IS_CLASS(ch, CLASS_SAMURAI)) return TRUE;
if (IS_CLASS(ch, CLASS_TANARRI)) return TRUE;
if (IS_CLASS(ch, CLASS_UNDEAD_KNIGHT)) return TRUE;
if (IS_CLASS(ch, CLASS_ANGEL)) return TRUE;
if (IS_CLASS(ch, CLASS_LICH)) return TRUE;
if (IS_CLASS(ch, CLASS_SHAPESHIFTER)) return TRUE;
if (IS_CLASS(ch, CLASS_FAE)) return TRUE;
if (IS_CLASS(ch, CLASS_DRONE)) return TRUE;
return FALSE;
}
void upgrade2(CHAR_DATA *ch)
{
char buf[MAX_STRING_LENGTH];
int mana_needed = 80000;
int hit_needed = 80000;
int move_needed = 80000;
int qp_needed = 0;
int qp_needed_earned = 0;
int pkscore_needed = 2000;
int penalty = 1500;
int i;
if (IS_NPC(ch)) return;
if (ch->pcdata->upgrade_level >= 4)
{
send_to_char("You have reached the maximum level.\n\r",ch);
return;
}
qp_needed = (ch->pcdata->upgrade_level +1) * 40000;
qp_needed_earned += get_spend_qps(ch) + qp_needed;
hit_needed = hit_needed + ch->pcdata->upgrade_level * 10000;
mana_needed = mana_needed + ch->pcdata->upgrade_level * 10000;
move_needed = move_needed + ch->pcdata->upgrade_level * 10000;
pkscore_needed = pkscore_needed + ch->pcdata->upgrade_level * 500;
if (get_ratio(ch) < pkscore_needed)
{
pkscore_needed = (pkscore_needed - UMAX(get_ratio(ch),0)) / 100;
mana_needed += penalty * pkscore_needed;
move_needed += penalty * pkscore_needed;
hit_needed += penalty * pkscore_needed;
mana_needed = UMIN(mana_needed, 120000);
hit_needed = UMIN(hit_needed, 120000);
move_needed = UMIN(move_needed, 120000);
}
if (ch->max_hit < hit_needed)
{
sprintf(buf,"You need %d more hitpoints.\n\r", hit_needed - ch->max_hit);
send_to_char(buf,ch);
return;
}
if (ch->max_mana < mana_needed)
{
sprintf(buf,"You need %d more manapoints.\n\r", mana_needed - ch->max_mana);
send_to_char(buf,ch);
return;
}
if (ch->max_move < move_needed)
{
sprintf(buf,"You need %d more movepoints.\n\r", move_needed - ch->max_move);
send_to_char(buf,ch);
return;
}
if (ch->pcdata->quest < qp_needed)
{
sprintf(buf,"You need %d more qps.\n\r", qp_needed - ch->pcdata->quest);
send_to_char(buf,ch);
return;
}
if (ch->pcdata->questtotal < qp_needed_earned)
{
send_to_char("You need to have actually earned all the qps yourself.\n\r", ch);
sprintf(buf, "Qps earned : %6d.\n\rQps needed earned : %6d.\n\r",
ch->pcdata->questtotal, qp_needed_earned);
send_to_char(buf, ch);
return;
}
for (i = 19; i <= 23; i++)
{
if (ch->stance[i] == -1)
{
send_to_char("You need all your superstances to upgrade.\n\r", ch);
return;
}
}
ch->pcdata->upgrade_level++;
ch->pcdata->quest -= qp_needed;
ch->max_hit = 5000;
ch->hit = 5000;
ch->max_move = 5000;
ch->move = 5000;
ch->max_mana = 5000;
ch->mana = 5000;
ch->exp = 0;
if (IS_CLASS(ch, CLASS_UNDEAD_KNIGHT)) sprintf(buf,"The torments and horrors of undead life has made %s even more powerful",ch->name);
else if (IS_CLASS(ch, CLASS_LICH)) sprintf(buf,"Through studies of ancient and forbidden texts %s has grown more powerful",ch->name);
else if (IS_CLASS(ch, CLASS_SAMURAI)) sprintf(buf,"Through hard work and countless battles, %s's skills with weapons have grown beyond that of any mortal",ch->name);
else if (IS_CLASS(ch, CLASS_DROID)) sprintf(buf,"Becoming truly one with Lloth, %s choses to let the queen take more control",ch->name);
else if (IS_CLASS(ch, CLASS_SHAPESHIFTER)) sprintf(buf,"The Malaugrym grins in triumph as %s uncovers the ancient powers of Malaug",ch->name);
else if (IS_CLASS(ch, CLASS_ANGEL)) sprintf(buf,"The sky shakes with thunder as %s is proclaimed the messanger of God",ch->name);
else if (IS_CLASS(ch, CLASS_TANARRI)) sprintf(buf,"Through hardwon battles in the famous Blood Wars, %s has gained skills beyond this world",ch->name);
else if (IS_CLASS(ch, CLASS_FAE)) sprintf(buf, "A swirl of colors distorts and twists around %s, as the ancient fae howls with glee", ch->name);
else if (IS_CLASS(ch, CLASS_DRONE)) sprintf(buf, "Darkness settles over Dystopia, as the nightmare called %s grows in power", ch->name);
else sprintf(buf,"%s have upgraded", ch->name);
do_info(ch,buf);
return;
}
void do_upgrade(CHAR_DATA *ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
int mana_needed = 35000;
int hit_needed = 50000;
int move_needed = 35000;
int qp_needed = 40000;
int qp_needed_earned = 0;
int pkscore_needed = 1000;
int penalty = 3000;
int i;
if (IS_NPC(ch)) return;
qp_needed_earned += qp_needed + get_spend_qps(ch);
if ((ch->in_room == NULL || ch->in_room->vnum != 3054))
{
send_to_char("You can only upgrade at the Temple Altar of Midgaard.\n\r",ch);
return;
}
do_clearstats(ch,"");
if (is_upgrade(ch)) {upgrade2(ch); return;}
if (get_ratio(ch) < pkscore_needed)
{
pkscore_needed = (pkscore_needed - UMAX(get_ratio(ch),0)) / 100;
mana_needed += penalty * pkscore_needed;
move_needed += penalty * pkscore_needed;
hit_needed += penalty * pkscore_needed;
}
if (ch->max_hit < hit_needed)
{
sprintf(buf,"You need %d more hitpoints.\n\r", hit_needed - ch->max_hit);
send_to_char(buf,ch);
return;
}
if (ch->max_mana < mana_needed)
{
sprintf(buf,"You need %d more manapoints.\n\r", mana_needed - ch->max_mana);
send_to_char(buf,ch);
return;
}
if (ch->max_move < move_needed)
{
sprintf(buf,"You need %d more movepoints.\n\r", move_needed - ch->max_move);
send_to_char(buf,ch);
return;
}
if (ch->pcdata->quest < qp_needed)
{
sprintf(buf,"You need %d more qps.\n\r", qp_needed - ch->pcdata->quest);
send_to_char(buf,ch);
return;
}
if (ch->pcdata->questtotal < qp_needed_earned)
{
send_to_char("You need to have earned the qps yourself.\n\r", ch);
return;
}
if (ch->generation != 1)
{
send_to_char("You need to be generation 1.\n\r",ch);
return;
}
for (i = 19; i <= 23; i++)
{
if (ch->stance[i] == -1)
{
send_to_char("You need all your superstances to upgrade.\n\r", ch);
return;
}
}
if (ch->class == CLASS_DEMON) {ch->class = CLASS_TANARRI; sprintf(buf,"%s is reborn as a Tanar'ri", ch->name);}
else if (ch->class == CLASS_DROW) {ch->class = CLASS_DROID; sprintf(buf,"%s makes the ultimate sacrifice to Lloth", ch->name);}
else if (ch->class == CLASS_NINJA) {ch->class = CLASS_SAMURAI; sprintf(buf,"%s have become a true master of weapons", ch->name);}
else if (ch->class == CLASS_VAMPIRE) {ch->class = CLASS_UNDEAD_KNIGHT; sprintf(buf,"%s has chosen the darker path", ch->name);}
else if (ch->class == CLASS_MONK) {ch->class = CLASS_ANGEL; sprintf(buf,"%s becomes one with God", ch->name);}
else if (ch->class == CLASS_WEREWOLF) {ch->class = CLASS_SHAPESHIFTER; sprintf(buf,"%s reverts to the true form of the Malaugrym",ch->name);}
else if (ch->class == CLASS_MAGE) {ch->class = CLASS_LICH; sprintf(buf,"%s have sacrificed life for power", ch->name);}
else if (ch->class == CLASS_HOBBIT) {ch->class = CLASS_FAE;sprintf(buf,"%s has returned to a pure spritual form", ch->name);}
else if (ch->class == CLASS_GIANT) {ch->class = CLASS_DRONE; sprintf(buf, "%s deforms into a pure nightmarish form", ch->name);}
else return;
clearshit(ch);
ch->pcdata->quest -= qp_needed;
do_info(ch,buf);
set_learnable_disciplines(ch);
return;
}
void clearshit(CHAR_DATA *ch)
{
int sn;
ch->pcdata->religion = 0;
ch->pcdata->jflags = 0;
ch->extra = 0;
ch->exp = 0;
ch->practice = 0;
ch->special = 0;
ch->newbits = 0;
ch->max_hit = 5000;
ch->max_mana = 5000;
ch->max_move = 5000;
ch->hit = 5000;
ch->mana = 5000;
ch->move = 5000;
ch->generation = 5;
ch->pcdata->familiar = NULL;
ch->pcdata->chobj = NULL;
ch->pcdata->memorised = NULL;
ch->pcdata->disc_research = -1;
ch->pcdata->relrank = 0;
ch->pcdata->faith = 0;
ch->pcdata->current_faith = 0;
ch->pcdata->rel_powers = 0;
ch->morph = str_dup( "" );
ch->pload = str_dup( "" );
ch->poweraction = str_dup( "" );
ch->powertype = str_dup( "" );
ch->hunting = str_dup( "" );
ch->pcdata->followers = 0;
ch->spectype = 0;
ch->specpower = 0;
ch->mounted = 0;
ch->paradox[0] = 0; /* Total paradox */
ch->paradox[1] = 0; /* Current Paradox */
ch->paradox[2] = 0; /* Paradox Ticker */
ch->damcap[0] = 1000;
ch->damcap[1] = 0;
ch->itemaffect = 0;
ch->polyaff = 0;
ch->immune = 0;
ch->form = 1048575;
ch->beast = 15;
for( sn=0 ; sn < 7 ; sn ++ )
ch->loc_hp[sn] = 0;
for( sn=0 ; sn < 13 ; sn++ )
ch->wpn[sn] = 0;
for( sn=0 ; sn < 5 ; sn++ )
ch->spl[sn] = 4;
for( sn=0 ; sn < 8 ; sn++ )
ch->cmbt[sn] = 0;
for( sn=0 ; sn < 11 ; sn++ )
ch->cmbt[sn] = 0;
ch->pcdata->followers = 0;
ch->pcdata->perm_str = 13;
ch->pcdata->perm_int = 13;
ch->pcdata->perm_wis = 13;
ch->pcdata->perm_dex = 13;
ch->pcdata->perm_con = 13;
ch->pcdata->wolf = 0;
ch->pcdata->rank = 0;
ch->pcdata->language[0] = 0;
ch->pcdata->language[1] = 0;
ch->pcdata->stage[0] = 0;
ch->pcdata->stage[1] = 0;
ch->pcdata->stage[2] = 0;
ch->pcdata->score[0] = 0;
ch->pcdata->score[1] = 0;
ch->pcdata->score[2] = 0;
ch->pcdata->score[3] = 0;
ch->pcdata->score[4] = 0;
ch->pcdata->score[5] = 0;
for( sn=0 ; sn < 11 ; sn++ )
ch->pcdata->disc_a[sn] = 0;
for( sn=0 ; sn < 10 ; sn++ )
ch->pcdata->genes[sn] = 0;
for ( sn=0 ; sn < 20 ; sn++)
ch->pcdata->powers[sn] = 0;
for ( sn=0 ; sn < 12 ; sn++)
ch->pcdata->stats[sn] = 0;
for ( sn=0; sn < 19; sn++)
ch->stance[sn] = 0;
for ( sn=19; sn < 24; sn++)
ch->stance[sn] = -1;
for ( sn=0; sn < 44; sn++)
ch->power[sn] = -2;
ch->pcdata->obj_vnum = 0;
ch->pcdata->condition[COND_THIRST] = 48;
ch->pcdata->condition[COND_FULL] = 48;
ch->pcdata->stat_ability[STAT_STR] = 0;
ch->pcdata->stat_ability[STAT_END] = 0;
ch->pcdata->stat_ability[STAT_REF] = 0;
ch->pcdata->stat_ability[STAT_FLE] = 0;
ch->pcdata->stat_amount[STAT_STR] = 0;
ch->pcdata->stat_amount[STAT_END] = 0;
ch->pcdata->stat_amount[STAT_REF] = 0;
ch->pcdata->stat_amount[STAT_FLE] = 0;
ch->pcdata->stat_duration[STAT_STR] = 0;
ch->pcdata->stat_duration[STAT_END] = 0;
ch->pcdata->stat_duration[STAT_REF] = 0;
ch->pcdata->stat_duration[STAT_FLE] = 0;
ch->pcdata->exhaustion = 0;
if (IS_SET(ch->act, PLR_HOLYLIGHT)) REMOVE_BIT(ch->act, PLR_HOLYLIGHT);
return;
}