#( "Mage stuff, most spells should NOT be learned until the level or two" )
#( "*after* they are available" )

#alias cmm=cast 'magic missile' $0
#alias cdm=cast 'detect magic' $0
#alias cdi=cast 'detect invisibility' $0
#alias cchill=cast 'chill touch' $0
#alias carm=cast 'armour' $0
#alias ccl=cast 'create light' $0
#alias cbh=cast 'burning hands' $0
#alias cshroud=cast 'shroud' $0
#alias cloc=cast 'locate' $0
#alias cfp=cast 'find the path' $0
#alias cquake=cast 'earthquake' $0
#alias csg=cast 'shocking grasp' $0
#alias ctp=cast 'teleport' $0
#alias cnv=cast 'night vision' $0
#alias clb=cast 'lightning bolt' $0
#alias cbd=cast 'block door' $0
#alias ccw=cast 'control weather' $0
#alias cstore=cast 'store' $0
#alias ccs=cast 'colour spray' $0
#alias cllife=cast 'locate life' $0
#alias ccal=cast 'call lightning' $0
#alias cench=cast 'enchant' $0
#alias cshield=cast 'shield' $0
#alias cscry=cast 'scry' $0
#alias ccharm=cast 'charm' $0
#alias csleep=cast 'sleep' $0
#alias cfb=cast 'fireball' $0
#alias cid=cast 'identify' $0
#alias cdispm=cast 'dispel magic' $0
#alias cwr=cast 'watch room' $0

#alias cpoi=cast 'poison' $0
#alias ccure=cast 'cure light' $0
#alias ccurs=cast 'cure serious' $0
#alias ccurc=cast 'cure critic' $0
#alias cbless=cast 'bless' $0
#alias cstr=cast 'strength' $0
#alias cbob=cast 'breath of briskness' $0
#alias cslife=cast 'sense life' $0
#alias ccf=cast 'create food' $0
#alias cremp=cast 'remove poison' $0
#alias cde=cast 'detect evil' $0
#alias cblind=cast 'blindness' $0
#alias cheal=cast 'heal' $0
#alias cdispel=cast 'dispel evil' $0
#alias charm=cast 'harm' $0
#alias cbreak=cast 'break door' $0

#alias stolb={cstore lightning bolt}
#alias stocs={cstore colour spray}
#alias stofb={cstore fireball}
#alias stoquake={cstore earthquake}
#alias stoq={stoquake}
#alias stoloc={cstore locate life}
#alias stollife={cstore locate life}
#alias stotp={cstore teleport}
#alias stocharm={cstore charm}

#( "alias aliases" )
#alias qq=cquake

#( "Eat magic food" )
#alias et={ccf;eat mushroom}

#alias sct=scast t
#alias scn=scast n
#alias scq=scast q

#alias smo={cg pipe;sheath;hold pipe;rest;smoke;sta;draw;cp pipe}

#( "watches for magic keys and writes them down, this saves ALL KEYS SEEN, and gets messy fast" )
#alias keyclear=#var $mkeys=
#alias keyview=#print ($mkeys)
#action >+suck-keys &1 - &2 key: '$3'={#print;#($mkeys+="$1 - $3\012");#var $descport=$1;#var $lastport=$3}
#action >+suck-keys-loc You feel the magic aura of this place: key: '$1'={#print;#($mkeys+="${thisroom} - $1\012");#var $descport=${thisroom};#var $lastport=$1}
#alias key={#if ("$0"!="") {#var $descport=Hand Set ($2);#var $lastport=$1};#print ("Current key for '" + $descport + "' is '" + $lastport + "'" )}

#( "Key related spells, like target but 'key' is the . (target)" )
#alias ctp.={keyrestore $1;#print ("Porting to: " + $descport);#ex ("ctp " + $lastport)}
#alias cwr.={keyrestore $1;#print ("Watching: " + $descport);#($cin=$descport);u_spacesto _;#ex ("cwr " + $lastport + " _" + $cout)}
#alias cscry.={keyrestore $1;#print ("Scrying: " + $descport);#ex ("cscry " + $lastport)}

#( "Extension of the key system, for saving specific keys with keywords, and can" )
#( "be used with *. and it will pull the key you need and description" )
#( "e.g. do locate at sppi, then 'key. sppi' and it will tag the key/desc" )
#( "and later you can tp. sppi and go sppi!" )
#( "NOTE: if your setup will save your config every time THESE WILL HANG AROUND" )
#alias key.={#if ("$0"!="") {#ex ("#var $keysave_" + "$1" + "_desc=" + $descport);#ex ("#var $keysave_" + "$1" + "_key=" + $lastport);#($namedkeys+="$1 ")}; #else key.list}
#alias keyrestore={#if ("$1"!="") {#ex ("#($descport=$keysave_" + "$1" + "_desc)");#ex ("#($lastport=$keysave_" + "$1" + "_key)")}}
#alias key.list={#print Named Key List;#var $namedkeys=! perl -e 'for(sort split( / +/s, shift() )){print $f{$_}++?"":"$_ "}' '${namedkeys}';#(@clen=:?$namedkeys);#for (@cidx=1;@cidx<=@clen;@cidx++) {#print ($namedkeys:@cidx);#ex ("key.view " + $namedkeys:@cidx)}}
#alias key.view={#if ("$1"!="") {#ex ("#($tempdescport=$keysave_" + "$1" + "_desc)");#ex ("#($templastport=$keysave_" + "$1" + "_key)");#print (" -> " + $tempdescport + " - " + $templastport)}}
#( "Doesn't ACTUALLY clear them, just the list used to remember them" )
#alias key.clear={#($namedkeys="")}

#( "Marks watched rooms from wr." )
#mark [_&]=black on green

#( "Helping lowbies xp as a charmer, charm something and label it jub" )
#alias noob={oj gr self;gr jub;gr $1;gr $1 trans;gr self}

#( "Counters for spells with durations" )
#alias ctr_set={#ex ("#(@t_$1=timer)")}
#alias ctr_print={#ex ("#(@t_diff=(timer-@t_$1)/100)");#print ("${last_line} (" + %@t_diff + ")")}

#action >+timer-armour A blue transparent wall slowly appears around you.={#print;ctr_set armour}
#action >+timer-armour-2 Your magic armour is revitalized.={#print;ctr_set armour}
#action >+disp-armour - armour={ctr_print armour}

#action >+timer-shield You feel protected.={#print;ctr_set shield}
#action >+timer-shield-2 shield is revitalized={#print;ctr_set shield}
#action >+disp-shield - shield={ctr_print shield}

#action >+timer-shroud You are surrounded by a misty shroud={#print;ctr_set shroud}
#action >+timer-shroud-2 Your misty shroud is={#print;ctr_set shroud}
#action >+disp-shroud - shroud={ctr_print shroud}


