Wednesday, March 26, 2014

Blade

Blade
[Bread knife Lack of fluids]

Bread knife Lack of fluids Competency. For Mages or (if availeble) Necromancers.

1. Jab the foil.c soundtrack in your src list

2. Add foil.o in your makefile

3. Add the in the wake of in const.c (foundation blemish union would be fine)

{
"foil desire", 15, L APP, L APP, L APP, L APP,
spell null, TAR OBJ INV, POS STANDING,
&gsn bladethirst, 0, 12,
", "!Blade Thirst!"
},

4. Add the in the wake of to db.c in the Globals compartment.
(once again late blemish union)

int gsn bladethirst;

5. Add this line in the license arrange of your interp.c soundtrack

{ "foil desire", do bladethirst, POS STANDING, 0, LOG NORMAL },

6. Finally add these ramparts to your merc.h soundtrack....

extern int gsn bladethirst;

DECLARE DO FUN( do bladethirst );

7. Add the in the wake of defines to merc.h

ITEM BLADE THIRST and OBJ VNUM MITHRIL

8. Cut this cipher out of this soundtrack and place it in foil.c

/

* Primary Diku Mud copyright (C) 1990, 1991 by Sebastian Clobber, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvements copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* Suspicion Diku Mud improvements copyright (C) 1994 by Michael Quan, David *
* Precious, Guilherme 'Willie' Arnold, and Mitchell Tse. *
* *
* EnvyMud 2.0 improvements copyright (C) 1995 by Michael Quan and *
* Mitchell Tse. *
* *
* In order to use any part of this Suspicion Diku Mud, you condition come to with *
* the peculiar Diku sanction in sanction.doc', the Merc sanction in *
* sanction.txt', as well as the Suspicion sanction in sanction.nvy'. *
* In exclusive, you may not remove either of these copyright notices. *
* *
* Considerably time and notice has gone arrived this software and you are *
* benefitting. We goal that you put together your changes too. Equally goes *
* in the region of, comes in the region of. *

/

/

* This talent was invented by the Maniac of Mythran Mud. *
* It is copyright (C) 1995 1996 by Streak Janssen (a.k.a The Maniac). *
* Some portions of this cipher are hackneyed from Thelonius' blemish union. *
* matter come to with the resent, diku and merc licenses. *

/

#if rigid( macintosh )
#include
#else
#include
#endif
#include
#include
#include
#include
#include
#include "merc.h"

/* Pollutant union by Thelonius for EnvyMud */
/* Bread knife desire cipher is a numerous flow of air of blemish union */
/* In black and white by The Maniac. This talent came from the internet book */
/* The Sign up of Commanding Charisma */
total do bladethirst( CHAR DATA *ch, char *argument )
{
OBJ DATA *obj;
OBJ DATA *pobj;
OBJ DATA *wobj;
AFFECT DATA *paf;
char arg [ MAX INPUT LENGTH ];

if ( !IS NPC( ch )
&& ch->level < skill table[gsn bladethirst].skill level[ch->class] )
{
send to char( "Equally do you hold tight you are, a necromancer?\n\r", ch );
return;
}

one argument( tussle, arg );

if ( arg == '\0' )
{ send to char( "Equally are you tough to do...?\n\r", ch ); return; }
if ( ch->fighting )
For instance you're fighting? Satisfactory try.\n\r", ch ); return; }
if ( !( obj = get obj carry( ch, arg ) ) )
sustain that union.\n\r", ch ); return; }
if ( obj->item type != ITEM WEAPON )
{ send to char( "That item is not a union.\n\r", ch ); return; }
if ( IS OBJ STAT( obj, ITEM BLADE THIRST ) )
{ send to char( "That union is already arid.\n\r", ch ); return; }

/* Now we inhibit a really union...screen to see if we inhibit the bar of mithril. */
for ( pobj = ch->carrying; pobj; pobj = pobj->next content )
{
if ( pobj->pIndexData->vnum == OBJ VNUM MITHRIL )
break;
}
if ( !pobj )
{
send to char( "You do not inhibit the mithril.\n\r", ch );
return;
}

/* Very, we inhibit the mithril...do we inhibit blood? */
for ( wobj = ch->carrying; wobj; wobj = wobj->next content )
{
if ( wobj->item type == ITEM DRINK CON
&& wobj->value > 0
&& wobj->value == 13 )
break;
}
if ( !wobj )
{
send to char( "You be deficient in some blood for this talent.\n\r", ch );
return;
}

/* Loud, we inhibit the ingredients...but is the ch charismatic enough? */
if ( !IS NPC( ch ) && get curr wis( ch ) < 17 )
{
send to char( "You can't effusive venerate what to do...\n\r", ch );
return;
}
/* And does he inhibit tightly heaps hands? */
if ( !IS NPC( ch )
&& ( get curr dex( ch ) < 17
ch->pcdata->condition[COND DRUNK] > 0 ) )
{
send to char(
"Your hands aren't tightly heaps to appropriately mix the ingredients.\n\r",
ch );
return;
}

WAIT STATE( ch, skill table[gsn bladethirst].beats );

/* Curb the talent grouping */
if ( !IS NPC( ch )
&& number percent( ) > ch->pcdata->learned[gsn bladethirst] )
{
send to char( "You spoiled and flood some on yourself. Ouch!\n\r",
ch );
ordeal( ch, ch, ch->level * 2, gsn bladethirst, WEAR NONE );
act( "$n spills the foil desire fluid all over!", ch, Void, Void, TO ROOM );
extract obj( pobj );
extract obj( wobj );
return;
}

/* Suitably, I'm tumbledown of waiting. Are you? */
act( "You mix $p in $P, creating an evil looking potion!",
ch, pobj, wobj, TO CHAR );
act( "$n mixes $p in $P, creating an evil looking potion!",
ch, pobj, wobj, TO ROOM );
act( "You spurt the potion washed up $p, which glistens wickedly!",
ch, obj, Void, TO CHAR );
act( "$n pours the potion washed up $p, which glistens wickedly!",
ch, obj, Void, TO ROOM );
SET BIT( obj->extra flags, ITEM BLADE THIRST );
obj->cost *= ch->level;

/* Set an objective alarm clock. Dont privation snowball of mixed guns */
obj->timer = 10 + ch->level;

if ( IS OBJ STAT( obj, ITEM BLESS ) )
obj->timer *= 2;

if ( IS OBJ STAT( obj, ITEM MAGIC ) )
obj->timer *= 2;

/* WHAT? All of that, circus for that one bit? How lame. ;) */
act( "The remnants of the potion eats in $p.",
ch, wobj, Void, TO CHAR );
act( "The remnants of the potion eats in $p.",
ch, wobj, Void, TO ROOM );
extract obj( pobj );
extract obj( wobj );

if ( !affect free )
{
paf = alloc perm( siz( *paf ) );
}
to boot
{
paf = affect free;
affect free = affect free->next;
}

paf->type = -1;
paf->duration = -1;
paf->location = APPLY HITROLL;
paf->modifier = 3;
paf->bitvector = 0;
paf->next = obj->affected;
obj->affected = paf;

return;
}

Popular Posts