/***************************************************************************** * Clan routines for clan funtions.. I hope to move the ones created prior * * to this file in here eventually as well. * * -- Altrag Dalosein, Lord of the Dragons * *****************************************************************************/ #define unix 1 #if defined( macintosh ) #include <types.h> #else #include <sys/types.h> #endif #include <stdio.h> #include <stdlib.h> #include <string.h> #include "merc.h" /* * Illuminati bestow command, for deity only. */ void do_bestow( CHAR_DATA *ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; CHAR_DATA *victim; if ( ch->clan != 1 || ch->clev < 5 ) { send_to_char(C_DEFAULT, "Huh?\n\r", ch ); return; } argument = one_argument( argument, arg ); if ( !( victim = get_char_room( ch, arg ) ) || IS_NPC(victim) ) { send_to_char(C_DEFAULT, "They aren't here.\n\r", ch ); return; } if ( victim->clan != ch->clan ) { send_to_char(C_DEFAULT, "They aren't in your clan!\n\r", ch ); return; } if ( !IS_SET( victim->act, PLR_CSKILL ) ) { SET_BIT( victim->act, PLR_CSKILL ); act(AT_PINK, "$N bestowed with the Transmute skill.", ch, NULL, victim, TO_CHAR ); send_to_char( AT_PINK, "You have been given the Transmute skill.\n\r", victim ); } else { REMOVE_BIT( victim->act, PLR_CSKILL ); act(AT_PINK, "Transmute denied from $N.", ch, NULL, victim, TO_CHAR ); send_to_char( AT_PINK, "You have been denied the Transmute skill.\n\r", victim ); } } /* * Illuminati transmute skill, must be given to a member by the deity */ void do_transmute( CHAR_DATA *ch, char *argument ) { OBJ_DATA *obj; int chance; if ( ch->clan != 1 || !IS_SET(ch->act, PLR_CSKILL) || IS_NPC(ch) ) { send_to_char(C_DEFAULT, "Huh?\n\r", ch ); return; } if ( !( obj = get_obj_carry( ch, argument ) ) ) { send_to_char(C_DEFAULT, "You do not have that item.\n\r", ch ); return; } if ( obj->level > 0 ) chance = (ch->level * 75) / obj->level; else chance = 85; if ( number_percent( ) < chance ) { obj->extra_flags |= ITEM_NO_DAMAGE; act(AT_PINK, "$p transmuted.", ch, obj, NULL, TO_CHAR ); return; } act(AT_PINK, "You failed! $p exploded in your face!", ch, obj, NULL, TO_CHAR); extract_obj(obj); return; } /* * ??? Doomshield skill */ void do_doomshield( CHAR_DATA *ch, char *argument ) { AFFECT_DATA af; if ( ch->clan != -1 ) { send_to_char( C_DEFAULT, "Huh?\n\r", ch ); return; } if ( IS_AFFECTED2( ch, AFF_DOOMSHIELD ) ) return; af.type = gsn_doomshield; af.level = ch->level; af.duration = 5; af.location = APPLY_NONE; af.modifier = 0; af.bitvector = AFF_DOOMSHIELD; affect_to_char2(ch, &af); act( AT_PURPLE, "$n is surrounded with the protection of Decklarean", ch, NULL, NULL, TO_ROOM ); send_to_char(AT_PURPLE, "You are surrounded with the protection of Decklarean\n\r", ch ); return; } void do_unholystrength( CHAR_DATA *ch, char *argument ) { AFFECT_DATA af; if ( ch->clan != 8 ) { send_to_char(C_DEFAULT, "Huh?\n\r",ch); return; } if ( ch->fighting || ch->ctimer || IS_AFFECTED2(ch, AFF_UNHOLYSTRENGTH ) ) { send_to_char(C_DEFAULT, "You failed.\n\r",ch); return; } af.type = gsn_unholystrength; af.level = ch->level; af.duration = -1; af.location = APPLY_NONE; af.modifier = 0; af.bitvector = AFF_UNHOLYSTRENGTH; affect_to_char2(ch, &af); /* ch->ctimer = 17;*/ send_to_char(AT_DGREEN, "You feel the strength of the Unholy Plague run through you.\n\r",ch); return; } void do_image( CHAR_DATA *ch, char *argument ) { AFFECT_DATA af; if ( ch->clan != 3 ) { send_to_char( C_DEFAULT, "Huh?\n\r",ch); return; } if ( ch->ctimer || ch->combat_timer ) { send_to_char(AT_BLUE, "You can't right now.\n\r",ch); return; } if ( IS_AFFECTED2(ch, AFF_IMAGE) ) return; af.location = APPLY_NONE; af.modifier = number_range( 1, 5 ); af.duration = number_fuzzy(3); af.bitvector = AFF_IMAGE; af.type = gsn_image; af.level = ch->level; ch->ctimer = af.duration + 10; affect_to_char2( ch, &af ); send_to_char(AT_CYAN, "You are surrounded by images of the Talisman.\n\r", ch); act(AT_CYAN, "$n suddenly splits into many images.",ch,NULL,NULL,TO_ROOM); return; } /* END */