All pastes #543552 Raw Edit

duh

public text v1 · immutable
·published 2007-06-06 03:27 UTC
rendered paste body
on *:SOCKOPEN:socket67187: {
  13.
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %joinnick HTTP/1.1
  14.
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  15.
  sockwrite -nt $sockname $crlf
  16.
}
17.
on *:SOCKREAD:socket67187: {
  18.
  if ($sockerr) {
    19.
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    20.
    halt
    21.
  }
  22.
  else {
    23.
    var %sockreader
    24.
    sockread %sockreader
    25.
    if (*The Combat level for* iswm %sockreader) {
      26.
      var %tempvar $remove(%sockreader,<br>)
      27.
      var %sockreader2 | sockread %sockreader2
      28.
      if (*Overall:* iswm %sockreader2) {
        29.
        Set %att $gettok(%sockreader2,4,32)
        30.
        Set %str $gettok(%sockreader2,8,32)
        31.
        Set %combat $gettok(%tempvar,7,32)
        32.
        set %attnstr $calc(%att + %str)
        33.
        msg %chan Attack + Strength = %attnstr Combat = %combat
        34.
        cbcheck
        35.
      }
      36.
    }
    37.
    if (* $+ %joinnick does not feature in the hiscores.* iswm %sockreader) {
      38.
      ban -ku60 %chan %joinnick 10Please use your 5rs10 name 5110 min ban! 
      39.
      sockclose $sockname
      40.
    }
    41.
  }
  42.
}
43.

44.
alias cbcheck {
  45.
  if (%attnstr < 145) {
    46.
    set %under 5
    47.
    if (%combat < 90) {
      48.
      set %under2 5
      49.
      set %under3 $calc(%under + %under2)
      50.
      if (%under3 > 9) {
        51.
        ban -ku600 %chan %joinnick 13Sorry you dont meet 9reqs13 please come back when you do. 
        52.
      }
      53.
      unset %under
      54.
      unset %under2
      55.
      unset %joinnick
      56.
      unset %attnstr
      57.
      unset %combat
      58.
      unset %att
      59.
      unset %str
      60.
    }
    61.
    else {
      62.
      msg %chan %joinnick 10Meets the 4reqs10! 
      63.
      unset %under
      64.
      unset %under2
      65.
      unset %joinnick
      66.
      unset %attnstr
      67.
      unset %combat

      unset %att

      unset %str

    }

  }

}