/* Angel newbreed class by The One and Only Zaphonite */ #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" #include "player.h" /* * Local Functions */ void do_angelgift( CHAR_DATA *ch, char *argument) { CHAR_DATA *victim; char arg1 [MAX_INPUT_LENGTH]; char arg2 [MAX_INPUT_LENGTH]; int gift = 0; int cost = 0; smash_tilde(argument); argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL)) { send_to_char("Huh?\n\r",ch); return; } if ( arg1[0] == '\0' || arg2[0] == '\0' ) { send_to_char("Syntax: angelgift (person) (gift)\n\r",ch); send_to_char("Wings (2000), Toughness (9000), GodStrength (9000), GodlySight (7500),\n\r",ch); send_to_char("Scry (7500), ReadAura (7500), Speed (9000), Halo (15000), MultiArm (50000),\n\r",ch); send_to_char("Prince (0),Wraith of God (75000), Trueform(50000),\n\r",ch); send_to_char("Shield of God (15000), Etherform (25000).\n\r",ch); return; } if ( ( victim = get_char_room( ch, arg1) ) == NULL ) { send_to_char( "They aren't here.\n\r",ch); return; } if ( IS_NPC(victim) ) { send_to_char("Not on NPC's.\n\r",ch); return; } if (!str_cmp(arg2,"prince")) { if (victim == ch) { send_to_char("Not on yourself!\n\r",ch); return; } if (ch->pcdata->stats[UNI_GEN] > 2) { send_to_char("Only an Archangel has the power to make princes.\n\r",ch); return; } if (IS_SET(victim->special,SPC_PRINCE)) { send_to_char("You have lost your princehood!\n\r",victim); send_to_char("You remove their princehood.\n\r",ch); REMOVE_BIT(victim->special, SPC_PRINCE); } else { send_to_char("You have been made a prince!\n\r",victim); send_to_char("You make them a prince.\n\r",ch); SET_BIT(victim->special, SPC_PRINCE); } save_char_obj(victim); return; } if (!str_cmp(arg2,"wings")) {gift = ANG_WINGS; cost = 2000;} else if (!str_cmp(arg2,"toughness")) {gift = ANG_TOUGHNESS; cost = 9000;} else if (!str_cmp(arg2,"godstrength")) {gift = ANG_STRENGTH; cost = 9000;} else if (!str_cmp(arg2,"godlysight")) {gift = ANG_GODLYSIGHT; cost = 7500;} else if (!str_cmp(arg2,"scry")) {gift = ANG_SCRY; cost = 7500;} else if (!str_cmp(arg2,"readaura")) {gift = ANG_READAURA; cost = 7500;} else if (!str_cmp(arg2,"speed")) {gift = ANG_SPEED; cost = 9000;} else if (!str_cmp(arg2,"halo")) {gift = ANG_HALO; cost = 15000;} else if (!str_cmp(arg2,"multiarm")) {gift = ANG_MULTIARM; cost = 50000;} else if (!str_cmp(arg2,"wraith of god")) {gift = ANG_WRAITH_OF_GOD; cost = 75000;} else if (!str_cmp(arg2,"trueform")) {gift = ANG_TRUEFORM; cost = 50000;} else if (!str_cmp(arg2,"shield of god")) {gift = ANG_SHIELD_OF_GOD; cost = 15000;} else if (!str_cmp(arg2,"etherform")) {gift = ANG_ETHERFORM; cost = 25000;} else { send_to_char("Please define a gift:\n\r",ch); send_to_char("Wings (2000), Toughness (9000), GodStrength (9000), GodlySight (7500),\n\r",ch); send_to_char("Scry (7500), ReadAura (7500), Speed (9000), Halo (15000), Multiarm (50000),\n\r",ch); send_to_char("Prince (0), Wraith of God (75000), Trueform(50000),\n\r",ch); send_to_char("Shield of God (15000), Etherform (25000).\n\r",ch); return; } if (IS_ANGPOWER(victim, gift)) { send_to_char("God has already given them that gift.\n\r",ch); return; } if (ch->pcdata->stats[ANGEL_TOTAL] < cost || ch->pcdata->stats[ANGEL_CURRENT] < cost) { send_to_char("You don't have enough angel points to gift that.\n\r",ch); return; } SET_BIT(victim->pcdata->powers[APOWER_FLAGS], gift); ch->pcdata->stats[ANGEL_TOTAL] -= cost; ch->pcdata->stats[ANGEL_CURRENT] -= cost; if (victim != ch) send_to_char("You have been granted a gift from god.\n\r",ch); send_to_char("Ok.\n\r",ch); save_char_obj(victim); return; } void do_angelwings( CHAR_DATA *ch, char *argument ) { char arg [MAX_INPUT_LENGTH]; argument = one_argument( argument, arg ); if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL)) { send_to_char("Huh?\n\r",ch); return; } if (!IS_ANGPOWER( ch, ANG_WINGS)) { send_to_char("God hasn't given you your wings.\n\r",ch); return; } if (arg[0] != '\0') { { send_to_char("You need your wings out first.\n\r",ch); return; } if (!str_cmp(arg,"spread") || !str_cmp(arg,"s")) { if (IS_ANGAFF(ch,ANG_SPREAD) ) { send_to_char("Your wings are already spread.\n\r",ch); return; } send_to_char("You spread your wings and start flying.\n\r",ch); act("$n spreads %s wings and starts to fly.\n\r",ch,NULL,NULL,TO_ROOM); SET_BIT(ch->pcdata->powers[APOWER_CURRENT], ANG_SPREAD); return; } else if (!str_cmp(arg,"unspread") || !str_cmp(arg,"u")) { if (!IS_ANGAFF(ch,ANG_SPREAD) ) { send_to_char("Your wings aren't spread.\n\r",ch); return; } send_to_char("Your wings close up behind your back.\n\r",ch); act("$n's wings close up behind %s back.",ch, NULL,NULL, TO_ROOM); REMOVE_BIT(ch->pcdata->powers[APOWER_CURRENT], ANG_SPREAD); return; } else { send_to_char("Do you want to SPREAD or CLOSE your wings?\n\r",ch); return; } } if (IS_ANGAFF(ch,ANG_WINGS) ) { if (IS_ANGAFF(ch,ANG_SPREAD) ) { send_to_char("Your wings close up behind your back.\n\r",ch); act("$n's wings close up behind %s back.\n\r",ch,NULL,NULL,TO_ROOM); REMOVE_BIT(ch->pcdata->powers[APOWER_CURRENT], ANG_SPREAD); } send_to_char("Your wings dissapear behind your back.\n\r",ch); act("$n's wings disappear behind %s back.",ch,NULL,NULL, TO_ROOM); REMOVE_BIT(ch->pcdata->powers[APOWER_CURRENT], ANG_WINGS); return; } send_to_char("Wings grow from your back.\n\r",ch); act("Wings grow from behind $n's back.",ch,NULL,NULL,TO_ROOM); SET_BIT(ch->pcdata->powers[APOWER_CURRENT], ANG_WINGS); return; } void do_godlysight( CHAR_DATA *ch, char *argument ) { if ( IS_NPC(ch) ) return; if (!IS_CLASS(ch, CLASS_ANGEL) ) { send_to_char("Huh?\n\r",ch); return; } if (!IS_ANGPOWER(ch, ANG_GODLYSIGHT) ) { send_to_char("God has not gifted you his sight.\n\r",ch); return; } if (IS_SET(ch->act, PLR_HOLYLIGHT) ) { REMOVE_BIT(ch->act, PLR_HOLYLIGHT); send_to_char("God stops assisting you with sight.\n\r",ch); } else { send_to_char("God answers your wishes and gives you his sight.\n\r",ch); SET_BIT(ch->act, PLR_HOLYLIGHT); } return; } void do_etherform( CHAR_DATA *ch, char *argument ) { if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL)) { send_to_char("Huh?\n\r",ch); return; } if (!IS_ANGPOWER(ch, ANG_ETHERFORM) ) { send_to_char("God has not given you the power to turn ethereal.\n\r",ch); return; } if (IS_AFFECTED(ch, AFF_ETHEREAL) ) { REMOVE_BIT(ch->affected_by, AFF_ETHEREAL); send_to_char("You shift back into the normal plane of existance.\n\r",ch); } else { send_to_char("You shift into the plane of angelic existance.\n\r",ch); SET_BIT(ch->affected_by, AFF_ETHEREAL); } return; } void do_wraithofgod( CHAR_DATA *ch, char *argument) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; int dam; one_argument( argument, arg ); if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL)) { send_to_char("Huh?\n\r",ch); return; } if ( arg[0] == '\0' ) { send_to_char("Bestow the Wraith of god against whom?\n\r",ch); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char("You can't seem to find them here.\n\r",ch); return; } if ( victim == ch ) { send_to_char("God does not approve of suicide.\n\r",ch); return; } if ( !IS_ANGPOWER(ch, ANG_WRAITH_OF_GOD)) { send_to_char("You don't have the Wraith of God to assist you.\n\r",ch); return; } if ( is_safe( ch, victim )) return; if ( IS_CLASS(victim, CLASS_ANGEL)) { send_to_char("You cannot summon the Wraith of God on another angel!\n\r",ch); return; } if ( IS_GOOD(victim)) { dam = number_range(2500, 7500); if ( dam <= 7500 ) { act("The Wraith of God strikes $N!!!!", ch, NULL, victim, TO_CHAR); act("The Wraith of God strikes you!!!", ch, NULL, victim, TO_VICT); act("The Wraith of God strikes $N!!!!", ch, NULL, victim, TO_NOTVICT); SET_BIT(victim->affected_by, AFF_CURSE); SET_BIT(victim->affected_by, AFF_FAERIE_FIRE); } } if ( IS_EVIL(victim)) { dam = number_range(7501,15000); if ( dam <= 7500 ) { act("The Wraith of God strikes $N!!!!", ch, NULL, victim, TO_CHAR); act("The Wraith of God strikes you!!!", ch, NULL, victim, TO_VICT); act("The Wraith of God strikes $N!!!!", ch, NULL, victim, TO_NOTVICT); SET_BIT(victim->affected_by, AFF_CURSE); SET_BIT(victim->affected_by, AFF_FAERIE_FIRE); } } else { dam = number_range(7501, 12000); if ( dam >= 7501); { act("The Wraith of God strikes $N!!!!", ch, NULL, victim, TO_CHAR); act("The Wraith of God strikes you!!!", ch, NULL, victim, TO_VICT); act("The Wraith of God strikes $N!!!!", ch, NULL, victim, TO_NOTVICT); SET_BIT(victim->affected_by, AFF_CURSE); SET_BIT(victim->affected_by, AFF_FAERIE_FIRE); } } REMOVE_BIT(ch->pcdata->powers[APOWER_FLAGS], ANG_WRAITH_OF_GOD); victim->hit -= dam; update_pos(victim); return; } /* void do_protect( CHAR_DATA *ch, char *argument ) { if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL)) { send_to_char("Huh?\n\r",ch); return; } if (!IS_ANGPOWER(ch, ANG_PROTECTION_OF_GOD)) { send_to_char("God has not given you the gift of his protection.\n\r",ch); return; } if ( IS_AFFECTED(ch, AFF_ANGELPROTECT)) { REMOVE_BIT(ch->affected_by, AFF_ANGELPROTECT); send_to_char("God stops protecting you from attacks.\n\r",ch); } else { send_to_char("God starts protecting you from attacks.\n\r",ch); SET_BIT(ch->affected_by, AFF_ANGELPROTECT); } return; } */ void do_trueform( CHAR_DATA *ch, char *argument ) { char buf [MAX_STRING_LENGTH]; if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL)) { send_to_char("Huh?\n\r",ch); return; } if (!IS_ANGPOWER( ch, ANG_TRUEFORM) && IS_CLASS(ch,CLASS_ANGEL)) { send_to_char("You are not gifted in trueform.\n\r",ch); return; } if (ch->mounted == IS_RIDING) do_dismount(ch,""); if ( IS_SET(ch->polyaff, POLY_ANGELFORM) ) { act( "You change back into human form.", ch, NULL, NULL, TO_CHAR ); act( "$n changes back into human form.", ch, NULL, NULL, TO_ROOM ); REMOVE_BIT(ch->affected_by, AFF_POLYMORPH); REMOVE_BIT(ch->polyaff, POLY_ANGELFORM); REMOVE_BIT(ch->pcdata->stats[UNI_AFF], VAM_CHANGED); clear_stats(ch); free_string( ch->morph ); ch->morph = str_dup( "" ); return; } else if ( !IS_SET(ch->polyaff, POLY_ANGELFORM) ) { act( "You are struck by holy light and turn into a true angel.", ch, NULL, NULL, TO_CHAR ); act( "$n is struck by holy light and turns into a true angel.", ch, NULL, NULL, TO_ROOM ); SET_BIT(ch->polyaff, POLY_ANGELFORM); SET_BIT(ch->affected_by, AFF_POLYMORPH); SET_BIT(ch->pcdata->stats[UNI_AFF], VAM_CHANGED); sprintf(buf, "%s the radiant angel", ch->name); free_string( ch->morph ); ch->morph = str_dup( buf ); ch->damroll = ch->damroll + 200; ch->hitroll = ch->hitroll + 200; return; } else send_to_char( "ANGELFORM: The Power to show your true self.\n\r", ch ); return; } void do_angellist( CHAR_DATA *ch, char *argument ) { char buf[MAX_STRING_LENGTH]; char arg[MAX_INPUT_LENGTH]; char lord[MAX_INPUT_LENGTH]; CHAR_DATA *gch; one_argument( argument, arg ); if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL) ) { send_to_char("Huh?\n\r",ch); return; } if (IS_CLASS(ch, CLASS_ANGEL)) strcpy(lord,ch->name); else strcpy(lord,ch->lord); sprintf( buf, "The Angels of %s:\n\r", lord ); send_to_char( buf, ch ); send_to_char("[ Name ] [ Hits ] [ Mana ] [ Move ] [ Exp ] [ Angel Points ]\n\r", ch ); for ( gch = char_list; gch != NULL; gch = gch->next ) { if ( IS_NPC(gch) ) continue; if ( !IS_CLASS(gch, CLASS_ANGEL)) continue; if ( !str_cmp(ch->clan,gch->clan) ) { sprintf( buf, "[%-16s] [%-6d] [%-6d] [%-6d] [%7d] [ %-9d%9d ]\n\r", capitalize( gch->name ), gch->hit,gch->mana,gch->move, gch->exp, gch->pcdata->stats[ANGEL_CURRENT], gch->pcdata->stats[ANGEL_TOTAL]); send_to_char( buf, ch ); } } return; } void do_multiarm( CHAR_DATA *ch, char *argument ) { CHAR_DATA *victim; int dam = number_range(100,200) + char_damroll(ch); if (dam < 10) dam = 10; if ( IS_NPC(ch) ) return; if (!IS_ANGPOWER( ch, ANG_MULTIARM) && IS_CLASS(ch,CLASS_ANGEL)) { send_to_char("God hasn't given you the gift of multiarm.\n\r",ch); return; } if ( !IS_CLASS(ch, CLASS_ANGEL) ) { send_to_char("Huh?\n\r", ch); return; } if ( ( victim = ch->fighting ) == NULL ) { send_to_char( "You aren't fighting anyone.\n\r", ch ); return; } if (is_safe(ch, victim)) return; WAIT_STATE( ch, 2 * PULSE_VIOLENCE ); WAIT_STATE( victim, 1 * PULSE_VIOLENCE ); act("You go in a frenzy and start punching $N.",ch,NULL,victim,TO_CHAR); act("$n gets in a frenzy and starts punching you .",ch,NULL,victim,TO_VICT); act("$n gets in a frenzy and starts punching $N.",ch,NULL,victim,TO_NOTVICT); damage(ch,victim,dam,gsn_punch); if (victim == NULL || victim->position == POS_DEAD) return; act("You continue your frenzy and hit $N in the legs.",ch,NULL,victim,TO_CHAR); act("$n croushes down and hits you in the legs.",ch,NULL,victim,TO_VICT); act("$n crouches down and hits $N in the legs.",ch,NULL,victim,TO_NOTVICT); damage(ch,victim,dam,NULL); if (victim == NULL || victim->position == POS_DEAD) return; if (number_percent() <= 25 && !IS_LEG_L(victim,BROKEN_LEG) && !IS_LEG_L(victim,LOST_LEG)) {act("Your left leg shatters under the impact of the blow!",victim,NULL,NULL,TO_CHAR); act("$n's left leg shatters under the impact of the blow!",victim,NULL,NULL,TO_ROOM); SET_BIT(victim->loc_hp[LOC_LEG_L],BROKEN_LEG);} else if (number_percent() <= 25 && !IS_LEG_R(victim,BROKEN_LEG) && !IS_LEG_R(victim,LOST_LEG)) {act("Your right leg shatters under the impact of the blow!",victim,NULL,NULL,TO_CHAR); act("$n's right leg shatters under the impact of the blow!",victim,NULL,NULL,TO_ROOM); SET_BIT(victim->loc_hp[LOC_LEG_R],BROKEN_LEG);} act("You grow 4 extra arms and charge at $N.",ch,NULL,victim,TO_CHAR); act("$n grows 4 extra arms and charges at you.",ch,NULL,victim,TO_VICT); act("$n grows 4 extra arms and charges at $N.",ch,NULL,victim,TO_NOTVICT); act("You charge at $N and hit $S with all 6 arms.",ch,NULL,victim,TO_CHAR); act("$n charges at you and hits you with all 6 arms.",ch,NULL,victim,TO_VICT); act("$n charges at $N and hits $S with all 6 arms.",ch,NULL,victim,TO_NOTVICT); damage(ch,victim,dam*3,NULL); if (victim == NULL || victim->position == POS_DEAD) return; act("You fall to the ground, stunned.",victim,NULL,NULL,TO_CHAR); act("$n falls to the ground, stunned.",victim,NULL,NULL,TO_ROOM); act("You somersault over $N's head and hit $S head on the way down.",ch,NULL,victim,TO_CHAR); act("$n somersaults over your head and hits you on the head on $s way down.",ch,NULL,victim,TO_VICT); act("$n somersaults over $N's head amd hits $S head on the way down.",ch,NULL,victim,TO_NOTVICT); damage(ch,victim,dam*2,NULL); if (victim == NULL || victim->position == POS_DEAD) return; act("You roll back onto your shoulders and kick both feet into $N's back.",ch,NULL,victim,TO_CHAR); act("$n rolls back onto $s shoulders and kicks both feet into your back.",ch,NULL,victim,TO_VICT); act("$n rolls back onto $s shoulders and kicks both feet into $N's back.",ch,NULL,victim,TO_NOTVICT); damage(ch,victim,dam*2,NULL); if (victim == NULL || victim->position == POS_DEAD) return; victim->position == POS_STUNNED; return; } void do_purify( CHAR_DATA *ch, char *argument ) { CHAR_DATA *victim; char arg [MAX_INPUT_LENGTH]; argument = one_argument( argument, arg ); if (IS_NPC(ch)) return; if (!IS_CLASS(ch, CLASS_ANGEL)) { send_to_char("Huh?\n\r",ch); return; } if (ch->pcdata->stats[UNI_GEN] > 2 && !IS_SET(ch->special, SPC_PRINCE)) { send_to_char("You are not able to purify.\n\r",ch); return; } if ( arg[0] == '\0' ) { send_to_char( "Purify whom?\n\r", ch ); return; } if ( ( victim = get_char_room( ch, arg ) ) == NULL ) { send_to_char( "They aren't here.\n\r", ch ); return; } if ( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\n\r", ch ); return; } if ( ch == victim ) { send_to_char( "You cannot purify with yourself.\n\r", ch ); return; } if ( victim->class != 0) { stc("They are already classed.\n\r",ch); return; } /* if (IS_CLASS(victim, CLASS_DROW)) { send_to_char("Not on a drow!\n\r", ch ); return; } if (IS_CLASS(victim, CLASS_MONK)) { send_to_char("You cannot purify monks!\n\r", ch); return; } if (IS_CLASS(victim, CLASS_MAGE)) { send_to_char( "You cannot purify with a mage.\n\r", ch ); return; } if (IS_CLASS(victim, CLASS_PALADIN)) { send_to_char( "You are unable to purify paladins.\n\r", ch); return; } if (IS_CLASS(victim, CLASS_NINJA)) { send_to_char( "You are unable to purify ninjas.\n\r", ch); return; } */ if ( victim->level != LEVEL_AVATAR && !IS_IMMORTAL(victim) ) { send_to_char( "You can only purify avatars.\n\r", ch ); return; } /* if (!IS_IMMUNE(victim,IMM_DEMON)) { send_to_char( "You cannot purify an unwilling person.\n\r", ch ); return; } if (IS_CLASS(victim, CLASS_ANGEL)) { send_to_char("They are already an angel!\n\r",ch); return; } if (IS_CLASS(victim, CLASS_NINJA)) { send_to_char( "Not on ninjas.\n\r", ch); return; } if ( IS_CLASS(victim, CLASS_HIGHLANDER) ) { send_to_char( "Not on a highlander.\n\r", ch ); return; } if (IS_CLASS(victim, CLASS_WEREWOLF)) { send_to_char("Not on a wolf.\n\r", ch ); return;} if (IS_CLASS(victim, CLASS_DROW)) { send_to_char("Not on a drow.\n\r", ch ); return;} */ if (!IS_GOOD(victim)) { send_to_char("They must be good!\n\r", ch ); return;} act("You make $N an angel!", ch, NULL, victim, TO_CHAR); act("$n makes $N an angel!", ch, NULL, victim, TO_NOTVICT); act("$n makes you an angel!", ch, NULL, victim, TO_VICT); victim->class=0; victim->class=CLASS_ANGEL; if (IS_CLASS(victim, CLASS_VAMPIRE)) do_mortalvamp(victim,""); REMOVE_BIT(victim->act, PLR_HOLYLIGHT); REMOVE_BIT(victim->act, PLR_WIZINVIS); REMOVE_BIT(victim->special, SPC_SIRE); REMOVE_BIT(victim->special, SPC_ANARCH); victim->pcdata->stats[UNI_RAGE] = 0; free_string(victim->lord); if (IS_CLASS(ch,CLASS_ANGEL)) victim->lord=str_dup(ch->name); else victim->lord=str_dup(ch->lord); save_char_obj(ch); save_char_obj(victim); return; }