COWbrowse

You are in a command called cast

cast - To get a list of spells available
or
cast {spell}
or
cast {spell} at {target}

read the command called cast

read the info about magic

If a spell requires a target and none is specified, then it will be cast at you.

Note: If there is a battle going on in your (or your target's) location, then casting a spell will do nothing but prepare the spell for your next hit. To make it happen, you must join the battle.

Trigger words:
This command sends a 'cast' with $second = the spell and $target = the object at which the spell is cast.

Spells/enchantments currently send the following trigger words as appropriate:
heal, burn, freeze, shock, bleed

vampyric drain: sends 'harm' and 'heal' to the appropriate targets.

If you are coding a spell, please consult the above list before creating a new word. If you still need to make a more appropriate word then let Thorn know so he can update the above list.

Created by thorn, last updated 19 Jul 2012

Code

$iam = 58844;
get $text;
if $text eq '' then showhelp else checksec;

##showhelp:
sayto $init_obj,"Synopsis: cast {spell} at {target} where {spell} is one of the following objects:";
$shown = 0;
foreach in $iam do showthem;
if $shown < 1 then cant;

##cant:
sayto $init_obj,"You are unable to cast any spells.";
if $init_obj's manamax > 0 then continue else cant2;
##cant2:
msg $loc,$actor,$actor,0,'force',"force:exam 58850";

##showthem:
$man = $for_id's mana;
if $man > $init_obj's mana then skipit else showthem2;

##showthem2:
$matvals = $for_id's matvals;
manipulate $matvals get difficult to $difficult;
manipulate $difficult get cast to $castdata by 2;
manipulate $castdata get dskill to $skillname by 3;
manipulate $castdata get dreq to $dreq by 3;
include 58416;
$skiller = $init_obj;
runsub getskillvalue;
if $skillvalue < $dreq then skipit else showthem3;
##showthem3:
sayto $init_obj,"[$for_id] (req $man mana and $dreq $skillname)";
$shown = 1;

##checksec:
get $target,$rel,$second in $iam,$loc;
if $second == '' then atself;
if $target > 0 then docast else badspell;

##atself:
get $target in $iam;
$second = $init_obj;

##badspell:
say $init_obj,"Unrecognized spell";

##docast:
if $target's mana > $init_obj's mana then toolow else checkdiff;

##toolow:
sayto $init_obj,"You don't have enough mana to cast [$target].";

##checkdiff:
if $target's material like _difficult_ then checkdiff2 else checkdiff2;
##checkdiff2:
$matvals = $target's matvals;
manipulate $matvals get difficult to $difficult;
manipulate $difficult get cast to $castdata by 2;
manipulate $castdata get dskill to $skillname by 3;
manipulate $castdata get dreq to $dreq by 3;
include 58416;
$skiller = $init_obj;
runsub getskillvalue;
if $skillvalue < $dreq then reqnotmet else docast2;
##reqnotmet:
sayto $init_obj,"[$target] requires $dreq in $skillname.";

##docast2:
$matvals = $init_obj's matvals;
manipulate $matvals get living to $living;
$nextspell = "sname=$target}3{sat=$second";
manipulate $living set nextspell to $nextspell by 2;
manipulate $matvals set living to $living;
set $init_obj's matvals to $matvals;

$mm = $init_obj's mana;
$cost = $target's mana;
take $cost from $mm;
set $init_obj's mana to $mm;
$mat = $init_obj's material;
swap $mat add _spellcasting_;
set $init_obj's material to $mat;
multivar $t=$target,$target=$second,$second=$t;
$verb = (speaking,articulating,delivering,expressing,mumbling,murmuring,muttering,mumbling,sounding,uttering,voicing);
$secret = (arcane,esoteric,mysterious,mystic,recondite,apocryphal,enigmatic,mystical,mystifying,strange,veiled,intricate,orphic);
say 'cast',"[$init_obj] begins $verb $secret words...";