rendered paste bodyon *:text:*:#pyro:{
if ($left($1,1) !isin @!.) {
halt
}
var %sckid = $right($ticks,6)
table $right($1,-1) %sckid
if ( $($+(%,public.,$chan),2) == 1 ) {
set $+(%,stats.display.,%sckid) $iif($left($1,1) == @,msg $chan,notice $nick)
}
else {
set $+(%,stats.display.,%sckid) $iif($left($1,1) == @,notice $nick,notice $nick)
}
if ( $right($1,-1) == compare ) {
if (!$2) {
notice $nick 10Please use proper syntax: 4!compare <skill> <user1> [User2]10 Use _ for spaces. Thank you.
clean %sckid
}
table $2 %sckid
if ( %table. [ $+ [ %sckid ] ] !isnum 0-23 ) && ( %stats.style. [ $+ [ %sckid ] ] != combat ) {
notice $nick 4 $+ $2 10is not a valid skill.
clean %sckid
}
if ( %stats.style. [ $+ [ %sckid ] ] == combat ) {
set %stats.style. [ $+ [ %sckid ] ] compare
set %stats.compare. [ $+ [ %sckid ] ] combat
}
if ( %table. [ $+ [ %sckid ] ] isnum 0-23 ) {
set %stats.style. [ $+ [ %sckid ] ] compare
}
if (!$3) {
notice $nick 10Please use proper syntax: 4!rank <skill> <user>10 Thank you.
clean %sckid
}
if ($len($3) > 12) {
notice $nick 10The username4 $3 10is too long!
clean %sckid
}
if ($len($4) > 12) {
notice $nick 10The username4 $4 10is too long!
clean %sckid
}
if (!$4) {
if ( $readini(DefRSN.ini,RSNs,$mask($fulladdress,3)) != $null ) {
set %stats.lookup.name1. $+ %sckid $readini(DefRSN.ini,RSNs,$mask($fulladdress,3))
set %stats.lookup.name2. $+ %sckid $3
set %stats.style. [ $+ [ %sckid ] ] compare
}
else {
set %stats.lookup.name1. $+ %sckid $nick
set %stats.lookup.name2. $+ %sckid $3
set %stats.style. [ $+ [ %sckid ] ] compare
}
}
else {
set %stats.lookup.name1. $+ %sckid $3
set %stats.lookup.name2. $+ %sckid $4
set %stats.style. [ $+ [ %sckid ] ] compare
}
}
elseif ( %stats.style. [ $+ [ %sckid ] ] == stat ) {
if (!$2) {
if ( $readini(DefRSN.ini,RSNs,$mask($fulladdress,3)) != $null ) {
set %stats.lookup. $+ %sckid $readini(DefRSN.ini,RSNs,$mask($fulladdress,3))
set %stats.style. [ $+ [ %sckid ] ] stat
}
else {
set %stats.lookup. $+ %sckid $nick
set %stats.style. [ $+ [ %sckid ] ] stat
}
if ($len($2-) > 12) {
notice $nick 10The username4 $2- 10is too long!
clean %sckid
}
}
set %stats.lookup. $+ %sckid $replace($2-,$chr(32),_)
set %stats.style. [ $+ [ %sckid ] ] stat
}
elseif ( %stats.style. [ $+ [ %sckid ] ] == overall ) {
if (!$2) {
if ( $readini(DefRSN.ini,RSNs,$mask($fulladdress,3)) != $null ) {
set %stats.lookup. $+ %sckid $readini(DefRSN.ini,RSNs,$mask($fulladdress,3))
set %stats.style. [ $+ [ %sckid ] ] overall
}
else {
set %stats.lookup. $+ %sckid $nick
set %stats.style. [ $+ [ %sckid ] ] overall
}
if ($len($2-) > 12) {
notice $nick 10The username4 $2- 10is too long!
clean %sckid
}
}
set %stats.lookup. $+ %sckid $replace($2-,$chr(32),_)
set %stats.style. [ $+ [ %sckid ] ] overall
}
elseif ( %stats.style. [ $+ [ %sckid ] ] == combat ) {
if (!$2) {
if ( $readini(DefRSN.ini,RSNs,$mask($fulladdress,3)) != $null ) {
set %stats.lookup. $+ %sckid $readini(DefRSN.ini,RSNs,$mask($fulladdress,3))
set %stats.style. [ $+ [ %sckid ] ] combat
}
else {
set %stats.lookup. $+ %sckid $nick
set %stats.style. [ $+ [ %sckid ] ] combat
}
if ($len($2-) > 12) {
notice $nick 10The username4 $2- 10is too long!
clean %sckid
}
}
set %stats.lookup. $+ %sckid $replace($2-,$chr(32),_)
set %stats.style. [ $+ [ %sckid ] ] combat
}
elseif ($right($1,-1) == stats) {
if (!$2) {
if ( $readini(DefRSN.ini,RSNs,$mask($fulladdress,3)) != $null ) {
set %stats.lookup. $+ %sckid $readini(DefRSN.ini,RSNs,$mask($fulladdress,3))
set %stats.style. $+ %sckid astats
}
else {
set %stats.lookup. $+ %sckid $nick
set %stats.style. $+ %sckid astats
}
if ($len($2-) > 12) {
notice $nick 10The username4 $2- 10is too long!
clean %sckid
}
}
set %stats.lookup. $+ %sckid $replace($2-,$chr(32),_)
set %stats.style. $+ %sckid astats
}
elseif ($right($1,-1) == rank) {
if (!$2) {
notice $nick 10Please use proper syntax: 4!rank <skill> <user>10 Thank you.
clean %sckid
}
if (!$3) {
notice $nick 10Please use proper syntax: 4!rank <skill> <user>10 Thank you.
clean %sckid
}
if ($replace($3,$chr(44),$null) !isnum 1-1000000 ) {
notice $nick 10Please use a valid rank number.
clean %sckid
}
table $2 %sckid
var %x = %table. [ $+ [ %sckid ] ]
if ( %x !isnum 0-23 ) {
notice $nick 4 $+ $2 10is not a valid skill.
clean %sckid
}
set %stats.lookup. $+ %sckid $3
set %stats.style. $+ %sckid rank
}
elseif ($right($1,-1) == setrsn) && ($2) {
writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
.notice $nick 10 You're default RSN for the host4 $mask($fulladdress,3) 10has been set to4 $2-
clean %sckid
}
elseif ($right($1,-1) == setname) && ($2) {
writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
.notice $nick 10 You're default RSN for the host4 $mask($fulladdress,3) 10has been set to4 $2-
clean %sckid
}
elseif ($right($1,-1) == defname) && ($2) {
writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
notice $nick 10 You're default RSN for the host4 $mask($fulladdress,3) 10has been set to4 $2-
clean %sckid
}
else {
halt
}
//echo it should all be clean now
clean %sckid
}
alias -l clean {
unset %stats.display. [ $+ [ $1 ] ]
unset %stats.compare. [ $+ [ $1 ] ]
unset %stats.style. [ $+ [ $1 ] ]
unset %stats.lookup.name1. [ $+ [ $1 ] ]
unset %stats.lookup.name2. [ $+ [ $1 ] ]
halt
}
alias -l table {
if ( $regex($1,/^(st|(skill)?total|overall)$/Si) ) { set %table. $+ $2 0 | set %stats.style. $+ $2 overall }
elseif ( $regex($1,/co?mb(at)?/Si) ) { set %stats.style. $+ $2 combat }
elseif ( $regex($1,/^at(t|k|tack)$/Si) ) { set %table. $+ $2 1 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^def(en[cs]e)?$$/Si) ) { set %table. $+ $2 2 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^str(ength)?$/Si) ) { set %table. $+ $2 3 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^hp|hit(s|points?)?$/Si) ) { set %table. $+ $2 4 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^range(r|d|ing)?$/Si) ) { set %table. $+ $2 5 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^Pray(er)?$$/Si) ) { set %table. $+ $2 6 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^mag(e|ic)$$/Si) ) { set %table. $+ $2 7 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^cook(ing)?$/Si) ) { set %table. $+ $2 8 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^wc|wood(cut(ting)?)?$/Si) ) { set %table. $+ $2 9 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^fletch(ing)?$/Si) ) { set %table. $+ $2 10 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^fish(ing)?$/Si) ) { set %table. $+ $2 11 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si) ) { set %table. $+ $2 12 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^craft(ing)?$/Si) ) { set %table. $+ $2 13 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^(smith|smelt)(ing)?$/Si) ) { set %table. $+ $2 14 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^mine(ing)?$/Si) ) { set %table. $+ $2 15 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^herb(law|lore)?$/Si) ) { set %table. $+ $2 16 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^agil(ity)?$/Si) ) { set %table. $+ $2 17 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si) ) { set %table. $+ $2 =018 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^slay(er|ing)?$/Si) ) { set %table. $+ $2 19 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^farm(er|ing)?$/Si) ) { set %table. $+ $2 20 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^(rc|runecraft)(er|ing)?$/Si) ) { set %table. $+ $2 21 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^(hunt)(er|ing)?$/Si) ) { set %table. $+ $2 22 | set %stats.style. $+ $2 stat }
elseif ( $regex($1,/^(construct)(ion|ing)?$/Si) ) { set %table. $+ $2 23 | set %stats.style. $+ $2 stat }
}