#alias tpreset={#var $sesstp=0;#var @oldtp=0}
#alias xp=info XPCOUNTER: %x %t %X %T.
#alias xpcalc={#var $gainxp=($1-@oldxp);#var $gaintp=($2-@oldtp);#if (@oldxp==0) {#var $gainxp=0;#var $sessxp=0};#if (@oldtp==0) {#var $gaintp=0;#var $sesstp=0};#var $sessxp=((%($sessxp))+(%($gainxp)));#var $sesstp=((%($sesstp))+(%($gaintp)));#var @oldxp=$1;#var @oldtp=$2}
#alias xpprint={#print (attr "bold green"+"-->"+noattr+" Gained   xp: "+attr "bold white"+($gainxp)+noattr+"\015\011\011\011\011tp: "+attr "bold white"+($gaintp)+noattr);#print (attr "bold green"+"-->"+noattr+" Trip     xp: "+($sessxp)+"\015\011\011\011\011tp: "+($sesstp));#print (attr "bold green"+"-->"+noattr+" Needed   xp: $3\015\011\011\011\011tp: $4")}
#alias xpreset={#var $sessxp=0;#var @oldxp=0}
#action >+xp0 XPCOUNTER: &1 &2 &3 &4.={#if ($xpcal=="1") {xpcalc $1 $2;#var $xpcal=0};xpprint $1 $2 $3 $4}
#action >+xp1 Welcome to the land of Middle Earth.={#print;xpreset;tpreset;xp}
#action >+xp2 ^You receive your share of experience.={#print;xp;#var $xpcal=1}
#($gaintp = "0")
#($gainxp = "0")
#($sesstp = "0")
#($sessxp = "0")
#($xpcal = "0")