Miscellany

alias -l setskill {
  if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall
  elseif ($regex($1,/at(t|k|tack)/Si)) return Attack
  elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence
  elseif ($regex($1,/str(ength)?/Si)) return Strength
  elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints
  elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged
  elseif ($regex($1,/Pray(er)?/Si)) return Prayer
  elseif ($regex($1,/mag(e|ic)/Si)) return Magic
  elseif ($regex($1,/cook(ing)?/Si)) return Cooking
  elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting
  elseif ($regex($1,/fletch(ing)?/Si)) return Fletching
  elseif ($regex($1,/fish(ing)?/Si)) return Fishing
  elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking
  elseif ($regex($1,/craft(ing)?/Si)) return Crafting
  elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing
  elseif ($regex($1,/min(e|e?ing)?/Si)) return Mining
  elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore
  elseif ($regex($1,/agil(ity)?/Si)) return Agility
  elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving
  elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer
  elseif ($regex($1,/farm(er|ing)?/Si)) return Farming
  elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft
  elseif ($regex($1,/hunt(er|ing)?/Si)) return Hunting
  elseif ($regex($1,/c(b|mb|ombat)?/Si)) return Combat
} 
on *:TEXT:*:*: {
  if ($setskill($right($1,-1))) && (!$3) {
    set %return $iif($left($1,1) == @, msg $chan, notice $nick)
    set %skill $setskill($remove($1,@,!,.))
    set %user $replace($2-,$chr(32),$chr(95))
    /sockopen kerstskill www.o-ss.net 80
  }
}
on *:SOCKOPEN:kerstskill: {
  sockwrite -nt $sockname GET /parsers/skills.php?skill= $+ %skill $+ &user= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:kerstskill: {
  if ($sockerr) {
    %return error
    halt
  }
  var %read
  sockread %read
  if (*end iswm %read) {
    tokenize 12 $htmlfree(%read)
    %return 7[ $+ %skill info for %user $+ ]:12Level: $+ $remove($2,end)Experience: $remove($3,end)Rank: $remove($2,end)
    %return $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    sockclose $sockname
    /unset %return
    /unset %user
    /unset %skill
  }
  if ($saddress($nick) == $saddress($me)) || (idlebot == $nick) { halt }
  if (%flood. [ $+ [ $nick ] ] >= 5) { 
    unset %flood. [ $+ [ $nick ] ]
    .notice $nick 7Dont flood me! 12i now ignore u for 7 5 full minutes $&
      $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    ignore -pcntikdu300 $saddress($nick)
    echo @ignored. [ $+ [ $network ] ] $timestamp $nick ( $+ $saddress($nick) $+ ) $chan
  }    
  elseif (%flood. [ $+ [ $nick ] ]) {
    inc %flood. [ $+ [ $nick ] ]
  }
  else {
    set -u10 %flood. [ $+ [ $nick ] ] 1
  }
}
on *:START:{
  window -e @ignored. [ $+ [ $network ] ]
}
menu @ignored.* {
  -
  clear:clear @ignored. [ $+ [ $network ] ]
  -
}
alias -l saddress {
  if (ipt.aol.com isin $address($1,2)) var %i 2
  else var %i 3
  return $address($1,%i)
}