Charge skill for SMAUG1.02a - Update for SmaugFUSS 1.8
Okies here is how I made a "charge" skill for my mud. Charge allows PCs to
charge a "blank" wand with a cetain spell. It is very similar to the
"scribe" and "brew" skills. It also creates a new spell flag called
"nocharge" which you can put on spells, to prevent them from being charged
into a wand. (For example, putting "nocharge" on the "recharge" spell comes
to mind - wouldn't do, to have a wand that keeps recharging other wands,
now, eh? )
Okies....here's how to do it
============================================================================
Go into your mud, and create a prototype wand object. I put mine in
limbo.are, along with the blank scroll, empty flask, etc. Note the vnum
of the wand. Set it up how you like, but the following fields MUST be set
this way:
wear: take hold
v0: -1
v1: -1
v2: -1
v3: -1
(Note: After everything is set up, and you, or a PC invokes, buys, whatever,
a charging wand, it will appear with the values v0, v1, and v2 set to 1.
This is normal and won't affect the function. v3 MUST always be -1 prior
to actually using the charge skill, or the skill will fail. If you set the
prototype's v3 to -1, it will change, when invoked, or created, etc.)
Remember to foldarea to save the object.
Now, in MUD.H:
Around line 1530, find:
#define SF_NOBREW BV12 /* cannot be brewed */
Add:
#define SF_NOCHARGE BV30 /* cannot be charged */
Around line 1660, find:
#define OBJ_VNUM_FLASK_BREWING 35
Add:
#define OBJ_VNUM_WAND_CHARGING <vnum of wand>
Around line 2960, find:
extern short gsn_brew;
Add:
extern short gsn_charge;
Around line 3670, find:
DECLARE_DO_FUN( do_brew );
Add:
DECLARE_DO_FUN( do_charge );
Then, in DB.C:
Around line 160, find:
short gsn_brew;
Add:
short gsn_charge;
Around line 600, find:
ASSIGN_GSN( gsn_brew, "brew" );
Add:
ASSIGN_GSN( gsn_charge, "charge" );
Then, in SKILLS.C:
Around line 26, find:
char *const spell_flag[] = { "water", "earth", "air", "astral", "area", "distant", "reverse",
"noself", "_unused2_", "accumulative", "recastable", "noscribe",
"nobrew", "group", "object", "character", "secretskill", "pksensitive",
"stoponfail", "nofight", "nodispel", "randomtarget", "r2", "r3", "r4",
"r5", "r6", "r7", "r8", "r9", "r10", "r11"
};
Make it look like this:
char *const spell_flag[] = { "water", "earth", "air", "astral", "area", "distant", "reverse",
"noself", "_unused2_", "accumulative", "recastable", "noscribe",
"nobrew", "group", "object", "character", "secretskill", "pksensitive",
"stoponfail", "nofight", "nodispel", "randomtarget", "nocharge", "r3", "r4",
"r5", "r6", "r7", "r8", "r9", "r10", "r11"
};
(NOTE: the flag "stoponfail" must be added to preserve the "nocharge" flag's
BV position...at this time I am unsure whether "stoponfail" is supported
or not.)
// SmaugFUSS does not require the changes to TABLES.C
Then, in TABLES.C:
Add the appropriate "do_charge" lines, in both places.
Then, go to the end of the skills.c file, and drop in the following
function:
----------------------------- begin code -----------------------------------
/* Charge code written by Sadiq - April 28, 1998 *
* e-mail to sadiq@a-znet.com */
void do_charge( CHAR_DATA *ch, char *argument )
{
OBJ_DATA *wand;
int sn;
char buf1[MAX_STRING_LENGTH];
char buf2[MAX_STRING_LENGTH];
char buf3[MAX_STRING_LENGTH];
int mana;
int max_charge;
int charge;
if ( IS_NPC(ch) )
return;
if ( !IS_NPC(ch) && ch->level < skill_table[gsn_charge]->skill_level[ch->Class] )
{
send_to_char( "A skill such as this is presently beyond your comprehension.\n\r", ch);
return;
}
if ( argument[0] == '\0' || !str_cmp(argument, "") )
{
send_to_char( "Charge what?\n\r", ch );
return;
}
if ( ms_find_obj(ch) )
return;
if ( (sn = find_spell( ch, argument, TRUE )) < 0 )
{
send_to_char( "You have not learned that spell.\n\r", ch );
return;
}
if ( skill_table[sn]->spell_fun == spell_null )
{
send_to_char( "That's not a spell!\n\r", ch );
return;
}
if ( SPELL_FLAG(skill_table[sn], SF_NOCHARGE) )
{
send_to_char( "You cannot charge that spell.\n\r", ch );
return;
}
mana = IS_NPC(ch) ? 0 : UMAX(skill_table[sn]->min_mana,
100 / ( 2 + ch->level - skill_table[sn]->skill_level[ch->Class] ) );
mana *=3;
if ( !IS_NPC(ch) && ch->mana < mana )
{
send_to_char( "You don't have enough mana.\n\r", ch );
return;
}
if ( ( wand = get_eq_char( ch, WEAR_HOLD ) ) == NULL )
{
send_to_char( "You must be holding a suitable wand to charge it.\n\r", ch );
return;
}
if( wand->pIndexData->vnum != OBJ_VNUM_WAND_CHARGING )
{
send_to_char( "You must be holding a suitable wand to charge it.\n\r", ch );
return;
}
if ( ( wand->value[3] != -1 )
&& ( wand->pIndexData->vnum == OBJ_VNUM_WAND_CHARGING ) )
{
send_to_char( "That wand has already been charged.\n\r", ch);
return;
}
if ( !process_spell_components( ch, sn ) )
{
send_to_char( "The spell fizzles and dies due to a lack of the proper components.\n\r", ch);
ch->mana -= (mana / 2);
return;
}
if ( !IS_NPC(ch) && number_percent( ) > ch->pcdata->learned[gsn_charge] )
{
set_char_color ( AT_MAGIC, ch );
send_to_char("Your spell fails and the distortions in the magic destroy the wand!\n\r", ch);
learn_from_failure( ch, gsn_charge );
extract_obj( wand );
ch->mana -= (mana / 2);
return;
}
max_charge = abs( ch->level / 2 );
charge = abs( ch->mana / mana );
if ( charge > max_charge )
{
charge = max_charge;
}
wand->level = ch->level;
wand->value[0] = ch->level;
wand->value[1] = charge;
wand->value[2] = charge;
wand->value[3] = sn;
sprintf(buf1, "wand of %s", skill_table[sn]->name);
STRFREE(wand->short_descr);
wand->short_descr = STRALLOC( aoran(buf1) );
sprintf(buf2, "A polished wand of '%s' has been left here.", skill_table[sn]->name);
STRFREE(wand->description);
wand->description = STRALLOC(buf2);
sprintf(buf3, "wand charging %s", skill_table[sn]->name);
STRFREE(wand->name);
wand->name = STRALLOC(buf3);
act( AT_MAGIC, "$n magically charges $p.", ch,wand, NULL, TO_ROOM );
act( AT_MAGIC, "You magically charge $p.", ch,wand, NULL, TO_CHAR );
learn_from_success( ch, gsn_charge );
ch->mana -= (mana * charge);
}
---------------------------- end code --------------------------------------
Make clean and recompile.
Then, go back into your mud, and use sset to create the skill. Use these
commands:
* Note: Stock SmaugFUSS has a spell called 'Charged Beacon', and this may
cause confusion during the creation process. To get around this, simply
change 'charge' to 'charge wand'. Do a 'slookup' for 'charge wand', and
use the 'sn' in place of the name.
sset create skill charge
sset 272 code do_charge
sset 272 type skill
sset 272 target objinv
sset 272 minpos 12
sset 272 beats 12 /* or whatever - 1 beat = 1/4 second */
sset 272 wearoff !charge!
sset save skill table
Reboot the mud, and enjoy! :) You will still need to set the appropriate
levels and adept level for each class, for the skill. Also, you may want to
go through your spells, and add the "nocharge" flag to those spells you
don't want to have charged into wands. Remember that when you change a spell
or skill, the change won't take effect, until the mud is rebooted. Now, you
just need to make the help file for the new skill. Here's the one I made for
my mud:
0 CHARGE~
Syntax: Charge <spell>
Charge allows a mana user to magically charge a suitably prepared wand with
a spell. The wand must be held. Once the command to charge a wand is given,
several things happen at once. First a maximum amount of charges that can be
placed upon the wand is determined, based primarily on the caster's level.
Next, the amount of mana required for each charge is determined, based on
the spell that the wand is being charged with. The total current mana that
the caster has is divided by the cost per charge and, provided it doesn't
exceed the maximum charge figure, that figure is the amount of charges that
the wand will get if the charge is successful. The total number of charges
is multiplied by the cost per charge and that total is deducted from the
caster's mana. Basically, the less mana it takes to cast the particular
spell, the more charges a wand of that spell will get, modified by the
amount of mana the caster has at the time, when charging.
NOTE: If the charge itself fails, the wand is destroyed.
There are some spells that cannot be charged into a wand at
all.
A successful charge will always leave the caster almost completely
drained of mana.
SEE: SCRIBE, BREW
Also, add this line to the end of the "spellflags" help file:
nocharge cannot be charged into a wand
And there you go! :)