COWbrowse

You are looking at a command called castold

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

read the command called cast

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 03 Nov 2008

Code

$iam = 48691;
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 don't have enough mana to cast any spells.";

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

##showthem2:
sayto $init_obj,"[$for_id] (req $man mana)";
$shown = 1;

##checksec:
get $target,$rel,$second in $iam,$loc;
if $second ne '' then continue else 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 docast2;

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

##docast2:
find $loc,'battlesystem';
if $found_id > 0 then battlemode else docast3;

##docast3:
$sloc = $second's loc
find $sloc,'battle';
if $found_id > 0 then battlemode else immediate;

##battlemode:
set $init_obj's nextspell to $target;
set $init_obj's nextspellat to $second;
$ns = $init_obj's nextspell;
getgender $init_obj;
say 'msg',"[$init_obj] prepares something for $hisher next round in battle.";

##immediate:
$mm = $init_obj's mana;
$cost = $target's mana;
take $cost from $mm;
set $init_obj's mana to $mm;
copy $target;
multiset $new_id to "slot1='$init_obj',slot2='$second',slot3=0,loc='$loc'";
// sxet $new_id's slot1 to $init_obj;
// sxet $new_id's slot2 to $second;
// sxet $new_id's slot3 to 0;
// sxet $new_id's loc to $loc;
relook $loc;
switch $new_id on;
multivar $t=$target,$target=$second,$second=$t;
// $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...";

$mps = $init_obj's manapoints;
if $mps ne '' then continue else initmps;
add 1 to $mps;
$manamax = $init_obj's manamax;
if $manamax ne '' then continue else initmanamax;
$mcap = $init_obj's manacap;
if $mps > $manamax then checkmcap else gainmpoint;

##initmps:
$mps = 0;
set $init_obj's manapoints to $mps;

##initmanamax:
$manamax = 0;
set $init_obj's manamax to $manamax;

##gainmpoint:
set $init_obj's manapoints to $mps;

##checkmcap:
$mcap = $init_obj's manacap;
if $mcap ne '' then continue else initmcap;
if $mps > $mcap then saymcap else gainmana;

##initmcap:
$mcap = 10;
set $init_obj's manacap to $mcap;

##gainmana:
$manamax = $mps;
set $init_obj's manamax to $mps;
set $init_obj's manapoints to 0; // pocket;
say 'msg',"[$init_obj] seems a little better at magic.";
sayto $init_obj,"Your can now gain up to $mps mana";
$mps = 0;

##saymcap:
$lvl = $mcap;
add 10 to $lvl;
divide $lvl by 10;
sayto $init_obj,"You have reached your maximum magical ability. You must find a level $lvl magic trainer to advance further.";
set $init_obj's manapoints to 0;