Here is my current script:
Code: Select all
#alias xpcounterreset={xpreset|tpreset|wpreset|xp|#var $xpcal=1}
#action >+xp0 Welcome to the land of Middle Earth.={#print|wpreset|xpreset|tpreset|xp|#var $xpcal=1}
#action >+xp1 XPCOUNTER: &1 &2 &3 &4 &5 (&6) &7 &8.={#if ($xpcal=="1") {xpcalc $1 $2 $6 $7 $8\|#var $xpcal=0}\|xpprint $1 $2 $3 $4 $6 $7 $8}
#action >+xp2 ^You receive your share of experience.={#print|xp|#var $xpcal=1}
#action >+xp3 ^You feel more experienced.={#print|xp|#var $xpcal=1}
#action >+xp4 XPCOUNTER: &1 &2 &3 &4 unknown at war &7 &8.={#if ($xpcal=="1") {xpcalc $1 $2 0 $7 $8\|#var $xpcal=0}\|xpprint $1 $2 $3 $4 0 $7 $8}
#action >+xp5 ^You are dead! Sorry...={#print|xp|#var $xpcal=1}
#alias xp=info XPCOUNTER: %x %t %X %T %K %L %l.
#alias xpcalc={#var $gainxp=($1-@oldxp)|#var $gaintp=($2-@oldtp)|#var $gainwp=($3-@oldwp)|#if (@oldxp==0) {#var $gainxp=0|#var $sessxp=0}|#if (@oldtp==0) {#var $gaintp=0|#var $sesstp=0}|#if (@oldwp==0) {#var $gainwp=0|#var $sesswp=0}|#var $sessxp=((%($sessxp))+(%($gainxp)))|#var $sesstp=((%($sesstp))+(%($gaintp)))|#var $sesswp=((%($sesswp))+(%($gainwp)))|#var @oldwp=$3|#var @oldxp=$1|#var @oldtp=$2}
#alias xpprint={#print ("\015\012"+$bgr+"-->"+$noattr+" Gained xp: "+$bwh+($gainxp)+$noattr+"\015\011\011\011\011tp: "+$bwh+($gaintp)+$noattr+"\015\011\011\011\011\011\011wp: "+$bwh+($gainwp)+$noattr )\|#print ($bgr+"-->"+$noattr+" Trip xp: "+($sessxp)+"\015\011\011\011\011tp: "+($sesstp)+"\015\011\011\011\011\011\011wp: "+($sesswp)+"\015\011\011\011\011\011\011\011\011time: $7 min"+$noattr)\|#print ($bgr+"-->"+$noattr+" Needed xp: $3\015\011\011\011\011tp: $4\015\011\011\011\011\011\011wp: $5 total\015\011\011\011\011\011\011\011\011Nxlv: $8"+$noattr)}
#alias xpreset={#var $sessxp=0|#var @oldxp=0}
#alias tpreset={#var $sesstp=0|#var @oldtp=0}
#alias wpreset={#var $sesswp=0|#var @oldwp=0}
#alias xpoff={#action -xp0|#action -xp1|#action -xp2|#action -xp3|#action -xp4}
#alias xpon={#action +xp0|#action +xp1|#action +xp2|#action +xp3|#action +xp4}
#(@oldtp = 0, @oldxp = 0, @oldwp = 0)
#($bgr = "\033[1m\033[32m")
#($bwh = "\033[1m")
#($noattr = "\033[0m")
#($gaintp = "0")
#($gainxp = "0")
#($gainwp = "0")
#($sesstp = "0")
#($sessxp = "0")
#($sesswp = "0")
#($xpcal = "0")
Code: Select all
!# CW>xp
[info XPCOUNTER: %x %t %X %T %K %L %l.]
--> Gained xp: 0 tp: 0 wp: 0
--> Trip xp: 0 tp: 0 wp: 0 time: 18 min
--> Needed xp: 181919 tp: 0 wp: 1 total Nxlv:
*Edit: Also, it seems to stick on the %L, stayed at 18 minutes whole session.