Miscellany

on *:text:*:#: {
  elseif ($regex($1,/^([!@])?co?mb/Si)) { set %stat Combat }
  elseif ($regex($1,/^([!@])?att/Si)) { set %stat Attack }
  elseif ($regex($1,/^([!@])?def/Si)) { set %stat Defence }
  elseif ($regex($1,/^([!@])?str/Si)) { set %stat Strength }
  elseif ($regex($1,/^([!@])?h(p|it)/Si)) { set %stat Hitpoints }
  elseif ($regex($1,/^([!@])?rang/Si)) { set %stat Ranged }
  elseif ($regex($1,/^([!@])?pray/Si)) { set %stat Prayer }
  elseif ($regex($1,/^([!@])?mag[ei]/Si)) { set %stat Magic }
  elseif ($regex($1,/^([!@])?cook/Si)) { set %stat Cooking }
  elseif ($regex($1,/^([!@])?w(c|oodcut)/Si)) { set %stat Woodcutting }
  elseif ($regex($1,/^([!@])?flet/Si)) { set %stat Fletching }
  elseif ($regex($1,/^([!@])?fish/Si)) { set %stat Fishing }
  elseif ($regex($1,/^([!@])?f(m|iremak)/Si)) { set %stat Firemaking  }
  elseif ($regex($1,/^([!@])?craft/Si)) { set %stat Crafting }
  elseif ($regex($1,/^([!@])?smith/Si)) { set %stat Smithing }
  elseif ($regex($1,/^([!@])?min/Si)) { set %stat Mining }
  elseif ($regex($1,/^([!@])?herb/Si)) { set %stat Herblore }
  elseif ($regex($1,/^([!@])?agi/Si)) { set %stat Agility }
  elseif ($regex($1,/^([!@])?th(ie|ei)/Si)) { set %stat Thieving }
  elseif ($regex($1,/^([!@])?slay/Si)) { set %stat Slayer }
  elseif ($regex($1,/^([!@])?farm/Si)) { set %stat Farming }
  elseif ($regex($1,/^([!@])?r(c|une)/Si)) { set %stat Runecraft }
  elseif ($regex($1,/^([!@])?hunt/Si)) { set %stat Hunter }
  elseif ($regex($1,/^([!@])?c(s|on)/Si)) { set %stat Construction }
  if ($2 == $null) { set %lookupnick $Nick }
  else { set %lookupnick $2 }
  if (%stat == attack) { set %2ndstat defence }
  if (%stat == defence) { set %2ndstat strength }
  if (%stat == strength) { set %2ndstat hitpoints }
  if (%stat == hitpoints) { set %2ndstat ranged }
  if (%stat == ranged) { set %2ndstat prayer }
  if (%stat == prayer) { set %2ndstat magic }
  if (%stat == magic) { set %2ndstat cooking }
  if (%stat == cooking) { set %2ndstat woodcutting }
  if (%stat == woodcutting) { set %2ndstat fletching }
  if (%stat == fletching) { set %2ndstat fishing }
  if (%stat == fishing) { set %2ndstat firemaking }
  if (%stat == firemaking) { set %2ndstat crafting }
  if (%stat == crafting) { set %2ndstat smithing }
  if (%stat == smithing) { set %2ndstat mining }
  if (%stat == mining) { set %2ndstat herblore }
  if (%stat == herblore) { set %2ndstat agility }
  if (%stat == ahility) { set %2ndstat thiefing }
  if (%stat == thiefing) { set %2ndstat slayer }
  if (%stat == slayer) { set %2ndstat farming }
  if (%stat == runecraft { set %2ndstat consctuction }
  if ($sock(socket39977)) .sockclose socket39977
  set %chan $chan
  sockopen socket39977 www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:socket39977: {
  sockwrite -nt $sockname GET /rsstats.php?stats= HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:socket39977: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Overall:* iswm %sockreader) {
      var %tempvar $remove(%sockreader,<br>,%2ndstat)
      msg %chan %stat %tempvar
      unset %chan
      sockclose $sockname
    }
  }
}

elseif ($regex($1,/^([!@])?co?mb/Si)) { set %stat Combat
  elseif ($regex($1,/^([!@])?att/Si)) { set %stat Attack
    elseif ($regex($1,/^([!@])?def/Si)) { set %stat Defence
      elseif ($regex($1,/^([!@])?str/Si)) { set %stat Strength
        elseif ($regex($1,/^([!@])?h(p|it)/Si)) { set %stat Hitpoints
          elseif ($regex($1,/^([!@])?rang/Si)) { set %stat Ranged
            elseif ($regex($1,/^([!@])?pray/Si)) { set %stat Prayer
              elseif ($regex($1,/^([!@])?mag[ei]/Si)) { set %stat Magic
                elseif ($regex($1,/^([!@])?cook/Si)) { set %stat Cooking
                  elseif ($regex($1,/^([!@])?w(c|oodcut)/Si)) { set %stat Woodcutting
                    elseif ($regex($1,/^([!@])?flet/Si)) { set %stat Fletching
                      elseif ($regex($1,/^([!@])?fish/Si)) { set %stat Fishing
                        elseif ($regex($1,/^([!@])?f(m|iremak)/Si)) { set %stat Firemaking
                          elseif ($regex($1,/^([!@])?craft/Si)) { set %stat Crafting
                            elseif ($regex($1,/^([!@])?smith/Si)) { set %stat Smithing
                              elseif ($regex($1,/^([!@])?min/Si)) { set %stat Mining
                                elseif ($regex($1,/^([!@])?herb/Si)) { set %stat Herblore
                                  elseif ($regex($1,/^([!@])?agi/Si)) { set %stat Agility
                                    elseif ($regex($1,/^([!@])?th(ie|ei)/Si)) { set %stat Thieving
                                      elseif ($regex($1,/^([!@])?slay/Si)) { set %stat Slayer
                                        elseif ($regex($1,/^([!@])?farm/Si)) { set %stat Farming
                                          elseif ($regex($1,/^([!@])?r(c|une)/Si)) { set %stat Runecraft
                                            elseif ($regex($1,/^([!@])?hunt/Si)) { set %stat Hunter
                                              elseif ($regex($1,/^([!@])?c(s|on)/Si)) { set %stat Construction