alias -l c1 { return $+($chr(3),12,$1-) }
alias -l c2 { return $+($chr(3),14,$1-) }
on $*:text:/^[!@](.*)/Si:#: {
  if ($right($1,5) == stats) {
    if ($2 == zezima) {
      .notice $nick Zezima is level 99 in everything. Why do you noob spammer do that... grow up. 5 minute ignore!
      .msg #ice-warrior_blacklists [ $+ $nick using stats for Zezima] $c1(Nick:) $c2($nick)  $c1(Address:) $c2($address($nick,-2)) $&
        $c1(Chan:) $c2($chan) $c1(Evidence:) $c2($1-) $c1(Time:) $c2($time(hh:nn:ss tt)) 
      ignore -u300 $address($nick,2)
      .msg #Ice-Warrior_blacklists ^tignore $address($nick,2) 5
      halt
    }
    Else {  
      set %stats.style $iif($left($1,1) == @,.msg $chan,.notice $nick)
      set %stats.user $iif($2-,$replace($2-,$chr(32),$chr(95)),$readini(c:\rsnames.ini,$address($nick,2),defname))
      set %stats.nick $nick
      sockopen rsstats rscript.org 80
    }

  }
  if ($regex($1,/^rsn|(set)?rsn(ame)?|(set)?defname/Si)) && ($2 != zezima) {
    if ($len($2-) <= 12) && ($len($2-) >= 4) {
      writeini -n c:\rsnames.ini $address($nick,2) defname $replace($2-,$chr(32),$chr(95))
      .notice $nick $c1(Defname:) $c2($replace($2-,$chr(32),$chr(95))) $c1(saved to) $c2($address($nick,2))
    }
    Else { %notice $nick $c2(Sorry,) $c1($2-) $c2(is too long)
    }
  }
  if ($setskill($right($1,-1))) {
    set %skill.user $iif($2-,$replace($2-,$chr(32),$chr(95)),$readini(c:\rsnames.ini,$address($nick,2),defname))
    set %skill.style $iif(@ isin $1,.msg $chan,.notice $nick)
    set %skill.skill $setskill($right($1,-1))
    set %skill.nick $nick
    sockopen skill rs.facepwn.com 80
  }
}
on *:sockopen:skill: {
  sockwrite -nt $sockname Get /Parsers/skill.php?user= $+ %skill.user &skill= $+ %skill.skill HTTP/1.1
  sockwrite -nt $sockname Host: rs.facepwn.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:skill: {
  if ($sockerr) { return }
  var %rank
  sockread %rank
  echo -a %rank
  tokenize 32 %rank
  if (*** isin %rank) {
    set %skill.return $replace($remove(%rank,$1,$2,$3,|),Level:,$c2(Level:))
    %skill.style %skill.return
    unset %skill.*
    sockclose $sockname
  }
  else { 
    unset %skill.*
    sockclose $sockname
  }
}
on *:sockopen:rsstats: {
  sockwrite -nt $sockname Get /lookup.php?type=stats&user= $+ %stats.user  HTTP/1.1 
  sockwrite -nt $sockname Host: rscript.org
  sockwrite -nt $sockname $crlf
}
on *:sockread:rsstats: {
  if ($sockerr) { return }
  var %read
  sockread %read
  tokenize 32 %read
  if (*STAT:* iswm %read) {
    set %stats.return %stats.return $c1($replace($remove($1,$left($1,5)),Attack,Att,Defence,Def,Strength,Str,Hitpoints,Hp,Firemaking,Fire,Ranged,Range,Prayer,Pray,Woodcutting,Woodcut,Construction,Construct:,magic,Mage,cooking,Cook,Smithing,Smith,herblore,Herb,Fletching,Fletch)) $c2($3)
  }
  if (*STAT:Dueling* iswm %read) {
    %stats.style $c1(Stats for) $c2(%stats.user $+ :) %stats.return
    unset %stats.*
  }
}


alias setskill {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  elseif ($1 == 22) || ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter
  elseif ($1 == 23) || ($regex($1,/^(con)(struc?tion)?$/si)) return Construction
}