Anonymous

on *:JOIN:#pang: {
  set %joinnick $nick
  if ($sock(socket67187)) .sockclose socket67187
  set %chan $chan
  sockopen socket67187 www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:socket67187: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %joinnick HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:socket67187: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*The Combat level for* iswm %sockreader) {
      var %tempvar $remove(%sockreader,<br>)
      var %sockreader2 | sockread %sockreader2
      if (*Overall:* iswm %sockreader2) {
        Set %att $gettok(%sockreader2,4,32)
        Set %str $gettok(%sockreader2,8,32)
        Set %combat $gettok(%tempvar,7,32)
        set %attnstr $calc(%att + %str)
        msg %chan Attack + Strength = %attnstr Combat = %combat
        cbcheck
      }
      if (* $+ %joinnick does not feature in the hiscores.* iswm %sockreader) {
        ban -ku60 %joinnick %chan Please use your rs name 1 min ban!
        sockclose $sockname
      }
    }
  }
}

alias cbcheck {
  if (%attnstr < 170) {
    set %under 5
    if (%combat < 100) {
      set %under2 5
      if ($calc(%under + %under2) > 9)
      ban -ku600 %joinnick %chan Sorry you dont meet reqs please come back when you do
    }
    unset %under
    unset %under2
    unset %joinnick
    unset %attnstr
    unset %combat
    unset %att
    unset %str
  }
  else {
    msg %chan %joinnick Meets the reqs!
    unset %under
    unset %under2
    unset %joinnick
    unset %attnstr
    unset %combat
    unset %att
    unset %str
  }
}
alias rscheck {
  if (%combat == notin) {
    ban -ku600 %joinnick %chan Sorry please use your runescape name!
  }
  else {
    cbcheck
  }
}