All pastes #533719 Raw Edit

Someone

public text v1 · immutable
·published 2007-06-03 15:38 UTC
rendered paste body
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
        unset %chan
        unset %joinnick
        sockclose $sockname
      }
    }
  }
}
on *:JOIN:#pang: {
  if (%check == on) && ($nick !isop $chan) && ($nick !ishop $chan) {
    if (%attnstr < 170) {
      var %under $nick
    }
  }
  else {
    msg $chan $nick Meets reqs
  }
  if (%under != $nick) { HALT }
  else {
    if (%combat < 100) {
      ban -ku600 $nick $chan Sorry you dont meet reqs come back when you do 10min ban!
    }
    else {
      msg $chan $nick Meets reqs
    }
  }
}