#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
void do_displacerform( CHAR_DATA *ch, char *argument )
{
char arg [MAX_INPUT_LENGTH];
char buf [MAX_STRING_LENGTH];
argument = one_argument( argument, arg );
if (IS_NPC(ch)) return;
if (ch->symbiotetype != 2)
{
send_to_char("You need a Death Symbiote for this.\n\r",ch);
return;
}
if (ch->symbiotelvl < 90)
{
send_to_char("You need your Death Symbiote to level 60 for this.\n\r",ch);
return;
}
if (IS_SET(ch->affected_by, AFF_POLYMORPH))
{
act( "You shift into human form.", ch, NULL, NULL, TO_CHAR);
act( "$n's shifts into human.", ch, NULL, NULL, TO_ROOM );
REMOVE_BIT(ch->symbioteaff, SYMBIOTE_DISPLACER);
REMOVE_BIT(ch->affected_by, AFF_POLYMORPH);
ch->hitroll -= 400;
ch->damroll -= 400;
ch->armor += 200;
free_string(ch->morph);
ch->morph = str_dup("");
return;
}
if (!IS_SET(ch->affected_by, AFF_POLYMORPH))
{
if (ch->stance[0] != -1) do_stance(ch,"");
if (ch->mounted == IS_RIDING) do_dismount(ch,"");
act( "You shift into a displacer beast.", ch, NULL, NULL, TO_CHAR);
act( "$n's shifts into a displacer beast.", ch, NULL, NULL, TO_ROOM );
SET_BIT(ch->symbioteaff, SYMBIOTE_DISPLACER);
SET_BIT(ch->affected_by, AFF_POLYMORPH);
ch->hitroll += 400;
ch->damroll += 400;
ch->armor -= 200;
sprintf(buf, "%s The #0D#7i#0splac#7e#0r #GB#geas#Gt#n", ch->name);
free_string(ch->morph);
ch->morph = str_dup(buf);
return;
}
return;
}
void improve_str(CHAR_DATA * ch)
{
int dice1;
int dice2;
dice1 = number_percent();
dice2 = number_percent();
if (IS_NPC(ch))
return;
if (ch->pcdata->perm_str >=100) return;
if (dice1 >= 98 || dice2 >= 99)
{
send_to_char("#0Your Strength increases by #R[#0ONE#R]#0 point.#n \n\r",ch);
ch->pcdata->perm_str++;
}
return;
}
void improve_dex(CHAR_DATA * ch)
{
int dice1;
int dice2;
dice1 = number_percent();
dice2 = number_percent();
if (IS_NPC(ch))
return;
if (ch->pcdata->perm_dex >=100) return;
if (dice1 >= 98 || dice2 >= 99)
{
send_to_char("#0Your Dexterity increases by #R[#0ONE#R]#0 point.#n \n\r",ch);
ch->pcdata->perm_dex++;
}
return;
}
void improve_con(CHAR_DATA * ch)
{
int dice1;
int dice2;
dice1 = number_percent();
dice2 = number_percent();
if (IS_NPC(ch))
return;
if (ch->pcdata->perm_con >=100) return;
if (dice1 >= 98 || dice2 >= 99)
{
send_to_char("#0Your Constitution increases by #R[#0ONE#R]#0 point.#n \n\r",ch);
ch->pcdata->perm_con++;
}
return;
}
void do_gainsymbiote(CHAR_DATA * ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
char arg[MAX_INPUT_LENGTH];
if (IS_NPC(ch))
return;
one_argument( argument, arg);
if (ch->level < 3)
{
send_to_char("You must be an avatar to gain a Symbiote.\n\r",ch);
return;
}
if (!IS_NPC(ch) && ch->symbiotetype != 0)
{
send_to_char("You already have a symbiote.\n\r",ch);
return;
}
if (arg[0] == '\0')
{
send_to_char("type gainsymbiote (name) to choose a Symbiote.\n\r",ch);
send_to_char("#Y--#CDeath Symbiote\n\r",ch);
send_to_char("#Y--#CLife Symbiote\n\r",ch);
send_to_char("Cost: 200,000 Bones\n\r",ch);
return;
}
if (!str_cmp(arg,"death"))
{
if (ch->bones < 200000)
{
send_to_char( "You do not have enough bones.\n\r", ch);
return;
}
else
{
ch->symbiotetype = SYMBIOTE_DEATH;
send_to_char( "A Death Symbiote absorbs into your body.\n\r", ch);
ch->bones -= 200000;
return;
}
}
else if (!str_cmp(arg,"life"))
{
if (ch->bones < 200000)
{
send_to_char( "You do not have enough bones.\n\r", ch);
return;
}
else
{
ch->symbiotetype = SYMBIOTE_LIFE;
send_to_char( "A Life Symbiote absorbs into your body.\n\r", ch);
ch->bones -= 200000;
return;
}
}
else do_gainsymbiote(ch,"");
return;
}
void do_symbioteadvance(CHAR_DATA * ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
char arg1[MAX_INPUT_LENGTH];
int sgainexp = 10000 * ch->symbiotelvl;
int sgainbones = 100 * ch->symbiotelvl;
int mkills = 1000;
if (IS_NPC(ch))
return;
one_argument( argument, arg1);
if (ch->level < 3)
{
send_to_char("You must be avatar to advance your Symbiote.\n\r",ch);
return;
}
if (ch->symbiotetype < 1)
{
send_to_char("You do not have a symbiote.\n\r",ch);
return;
}
if (arg1[0] == '\0')
{
send_to_char("#R[#0--------------------#R[#7Symbiote Screen#R]#0--------------------#R]#n\n\r", ch);
if (ch->symbiotetype == 2) stc("Death Symbiote\n\r",ch);
if (ch->symbiotetype == 1) stc("Life Symbiote\n\r",ch);
sprintf(buf, "Damroll Modifier: %d \n\r",ch->symbiotedr);
send_to_char(buf,ch);
sprintf(buf, "Hitroll Modifier: %d\n\r",ch->symbiotehr);
send_to_char(buf,ch);
sprintf(buf, "AC Modifier: %d\n\r",ch->symbioteac);
send_to_char(buf,ch);
sprintf(buf, "Damcap Modifier: %d\n\r",ch->symbiotedc);
send_to_char(buf,ch);
sprintf(buf, "Current Level: %d\n\r",ch->symbiotelvl);
send_to_char(buf,ch);
sprintf(buf, "Symbiote Points %d\n\r",ch->symbiotepoints);
send_to_char(buf, ch);
sprintf(buf, "Mob kills until next point: %d\n\r",(mkills -= ch->symbiotemkills));
send_to_char(buf,ch);
sprintf(buf,"Cost of advancing symbiote's level :%d EXP, %d Bones\n\r", sgainexp, sgainbones);
send_to_char(buf,ch);
send_to_char("Symbiote Spells and Skills\n\r",ch);
send_to_char("Level 0: 2x Exp\n\r",ch);
send_to_char("Level 15: Spirit Armor\n\r",ch);
send_to_char("Level 25: Bark Skin\n\r",ch);
if (ch->symbiotetype == 1)
send_to_char("Level 50: Mana Transfer\n\r",ch);
send_to_char("Level 60: Primal Rage\n\r",ch);
if (ch->symbiotetype == 2)
send_to_char("Level 80: Death Ray\n\r",ch);
if (ch->symbiotetype == 1)
send_to_char("Level 80: Holy Beam\n\r",ch);
if (ch->symbiotetype == 2)
send_to_char("Level 90: Displacer form\n\r",ch);
send_to_char("#R[#0------------------#R[#7Symbiote Arguments#R]#0------------------#R]#n\n\r", ch);
send_to_char("damroll(+5 DR), hitroll(+5 HR), ac(-10 AC), damcap(+10 DC)\n\r", ch);
/* if (ch->symbiotetype == 1)
{
send_to_char("Death Symbiote Abilities\n\r", ch);
send_to_char("
send_to_char("Superberserk (level 0)\n\r", ch);
send_to_char("Tremble (level 20)\n\r", ch);
send_to_char("4xexp (level 25)\n\r", ch);
send_to_char("Greathelm (level 30)\n\r", ch);
send_to_char("Mistform (level 50)\n\r", ch);
send_to_char("Displacerform (level 70)\n\r", ch);
}
if (ch->symbiotetype == 2)
{
send_to_char("Life Symbiote Abilities\n\r", ch);
send_to_char("Thunderhammer (level 0)\n\r", ch);
send_to_char("4xexp (level 25)\n\r", ch);
send_to_char("Lifeshield (level 30)\n\r", ch);
send_to_char("Mistform (level 50)\n\r", ch);
}
*/
send_to_char("#R[#0--------------------#R[#7Symbiote Screen#R]#0--------------------#R]#n\n\r", ch);
return;
}
if (!str_cmp(arg1,"damroll"))
{
if (ch->symbiotedr > 800)
{
send_to_char( "Symbiote Damroll Maxed\n\r", ch);
return;
}
if (ch->symbiotepoints < 1)
{
send_to_char( "Not enough symbiote points.\n\r", ch);
return;
}
send_to_char( "Damroll increased by 5.\n\r", ch);
ch->symbiotedr += 5;
ch->symbiotepoints -= 1;
return;
}
if (!str_cmp(arg1,"hitroll"))
{
if (ch->symbiotehr > 800)
{
send_to_char( "Symbiote Hitroll Maxed\n\r", ch);
return;
}
if (ch->symbiotepoints < 1)
{
send_to_char( "Not enough symbiote points.\n\r", ch);
return;
}
send_to_char( "Hitroll increased by 5.\n\r", ch);
ch->symbiotehr += 5;
ch->symbiotepoints -= 1;
return;
}
if (!str_cmp(arg1,"damcap"))
{
if (ch->symbiotedc > 800)
{
send_to_char( "Symbiote Damcap Maxed\n\r", ch);
return;
}
if (ch->symbiotepoints < 1)
{
send_to_char( "Not enough symbiote points.\n\r", ch);
return;
}
send_to_char( "Damcap increased by 10.\n\r", ch);
ch->symbiotedc += 10;
ch->symbiotepoints -= 1;
return;
}
if (!str_cmp(arg1,"ac"))
{
if (ch->symbioteac > 800)
{
send_to_char( "Symbiote AC Maxed\n\r", ch);
return;
}
if (ch->symbiotepoints < 1)
{
send_to_char( "Not enough symbiote points.\n\r", ch);
return;
}
send_to_char( "Armor increased by 10.\n\r", ch);
ch->symbioteac += 10;
ch->symbiotepoints -= 1;
return;
}
if (!str_cmp(arg1,"level"))
{
if( ch->symbiotelvl >= 100 )
{
send_to_char( "Already Maximum Symbiote Level.\n\r", ch );
return;
}
if( ch->exp < sgainexp )
{
sprintf( buf, "Not enough Experience points, you need %d more.\n\r", ( sgainexp - ch->exp ) );
send_to_char( buf, ch );
return;
}
if( ch->bones < sgainbones )
{
sprintf( buf, "Not enough Bones, you need %d more.\n\r", ( sgainbones - ch->bones ) );
send_to_char( buf, ch );
return;
}
ch->bones -= sgainbones;
ch->exp -= sgainexp;
ch->symbiotelvl++;
ch->symbiotepoints++;
if (ch->symbiotetype == 2) stc("Your Death Symbiote has gained a level.\n\r",ch);
if (ch->symbiotetype == 1) stc("Your Life Symbiote has gained a level.\n\r",ch);
}
return;
}
void do_consecrate(CHAR_DATA *ch, char *argument)
{
OBJ_DATA *obj;
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
int livingweap_needed = 0;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if (arg1[0] == '\0')
{
send_to_char("Which item do you wish to consecrate?\n\r", ch);
return;
}
if ( (obj = get_obj_carry(ch, arg1, ch)) == NULL)
{
send_to_char("You are not carrying that item.\n\r", ch);
return;
}
if (obj->item_type != ITEM_WEAPON)
{
send_to_char("You may only Consecrate weapons.\n\r",ch);
return;
}
else if (obj->item_type == ITEM_WEAPON)
{
sprintf( buf, "Weapon Name: %s \n\r", obj->short_descr );
send_to_char( buf, ch );
sprintf(buf, "Weapon is of type %s.\n\r", flag_string(weapon_flags, obj->value[3]));
send_to_char( buf, ch );
sprintf( buf, "Weapon Damage Min: %d Max: %d \n\r", obj->value[1], obj->value[2] );
send_to_char( buf, ch );
sprintf( buf, "Weapon Level: %d, Weapon Points: %d \n\r", obj->weapon_level, obj->weapon_points);
send_to_char( buf, ch );
livingweap_needed = (obj->weapon_level * 100);
sprintf( buf, "Weapon Experiance: %d, EXP til next Level: %d \n\r", obj->weapon_currentxp,
(livingweap_needed - obj->weapon_currentxp));
send_to_char( buf, ch );
sprintf( buf, "Earth Level: %d \n\r", obj->earth_level );
send_to_char( buf, ch );
sprintf( buf, "Lightning Level: %d \n\r", obj->lightning_level );
send_to_char( buf, ch );
sprintf( buf, "Fire Level: %d \n\r", obj->fire_level );
send_to_char( buf, ch );
sprintf( buf, "Water Level: %d \n\r", obj->water_level );
send_to_char( buf, ch );
sprintf( buf, "Shocking(5), Flaming(5), Frost(5), Vampiric(5), Poison(5)\n\r",ch);
send_to_char( buf, ch );
sprintf( buf, "Souls obtained With %s: %d \n\r",obj->short_descr, obj->soul_level );
send_to_char( buf, ch );
send_to_char("Cost of Advancing weapon: 10 Weapon Points\n\r",ch);
send_to_char("Cost of Min Damage Increase: 1 Cost of Max Damage Increase: 1 \n\r", ch);
if (IS_SET(obj->weapflags, WEAPON_FLAMING))
{
send_to_char("Your weapon is flaming.\n\r",ch);
}
if (IS_SET(obj->weapflags, WEAPON_SHOCKING))
{
send_to_char("Your weapon is Shocking.\n\r",ch);
}
if (IS_SET(obj->weapflags, WEAPON_FROST))
{
send_to_char("Your weapon has Frost.\n\r",ch);
}
if (IS_SET(obj->weapflags, WEAPON_VAMPIRIC))
{
send_to_char("Your weapon is Vampiric.\n\r",ch);
}
if (IS_SET(obj->weapflags, WEAPON_POISON))
{
send_to_char("Your weapon is Poisoned.\n\r",ch);
}
}
if (!str_cmp(arg2,"flaming"))
{
if (obj->weapon_points < 5)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
if (IS_SET(obj->weapflags, WEAPON_FLAMING))
{
send_to_char("Your weapon is already flaming.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s is engulfed in fire.\n\r",obj->short_descr);
send_to_char(buf,ch);
SET_BIT(obj->weapflags, WEAPON_FLAMING);
obj->weapon_points -= 5;
return;
}
}
if (!str_cmp(arg2,"shocking"))
{
if (obj->weapon_points < 5)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
if (IS_SET(obj->weapflags, WEAPON_SHOCKING))
{
send_to_char("Your weapon is already Shocking.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s is enveloped with Lightning.\n\r",obj->short_descr);
send_to_char(buf,ch);
SET_BIT(obj->weapflags, WEAPON_SHOCKING);
obj->weapon_points -= 5;
return;
}
}
if (!str_cmp(arg2,"frost"))
{
if (obj->weapon_points < 5)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
if (IS_SET(obj->weapflags, WEAPON_FROST))
{
send_to_char("Your weapon already has Frost.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s is covered with ice.\n\r",obj->short_descr);
send_to_char(buf,ch);
SET_BIT(obj->weapflags, WEAPON_FROST);
obj->weapon_points -= 5;
return;
}
}
if (!str_cmp(arg2,"vampiric"))
{
if (obj->weapon_points < 5)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
if (IS_SET(obj->weapflags, WEAPON_VAMPIRIC))
{
send_to_char("Your weapon is already Vampiric.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s absorbs an evil taint.\n\r",obj->short_descr);
send_to_char(buf,ch);
SET_BIT(obj->weapflags, WEAPON_VAMPIRIC);
obj->weapon_points -= 5;
return;
}
}
if (!str_cmp(arg2,"poison"))
{
if (obj->weapon_points < 5)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
if (IS_SET(obj->weapflags, WEAPON_POISON))
{
send_to_char("Your weapon is already Poisoned.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s is coated with poison.\n\r",obj->short_descr);
send_to_char(buf,ch);
SET_BIT(obj->weapflags, WEAPON_POISON);
obj->weapon_points -= 5;
return;
}
}
if (!str_cmp(arg2,"earth"))
{
if (obj->weapon_points < 10)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s earth raised by one.\n\r",obj->short_descr);
send_to_char(buf,ch);
obj->earth_level++;
obj->weapon_points -= 10;
return;
}
}
if (!str_cmp(arg2,"lightning"))
{
if (obj->weapon_points < 10)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s lightning raised by one.\n\r",obj->short_descr);
send_to_char(buf,ch);
obj->lightning_level++;
obj->weapon_points -= 10;
return;
}
}
if (!str_cmp(arg2,"fire"))
{
if (obj->weapon_points < 10)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s fire raised by one.\n\r",obj->short_descr);
send_to_char(buf,ch);
obj->fire_level++;
obj->weapon_points -= 10;
return;
}
}
if (!str_cmp(arg2,"water"))
{
if (obj->weapon_points < 10)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s water raised by one.\n\r",obj->short_descr);
send_to_char(buf,ch);
obj->water_level++;
obj->weapon_points -= 10;
return;
}
}
if (!str_cmp(arg2,"min"))
{
if (obj->weapon_points < 5)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s Min Damage increases!\n\r",obj->short_descr);
send_to_char(buf,ch);
obj->value[1]++;
obj->weapon_points -= 1;
return;
}
}
if (!str_cmp(arg2,"max"))
{
if (obj->weapon_points < 1)
{
send_to_char("You dont have enough weapon points.\n\r",ch);
return;
}
else
{
sprintf(buf,"%s's Max Damage increases!\n\r",obj->short_descr);
send_to_char(buf,ch);
obj->value[2]++;
obj->weapon_points -= 1;
return;
}
}
}