All pastes #390939 Raw Edit

Untitled

public text v1 · immutable
·published 2007-03-11 19:57 UTC
rendered paste body
on *:TEXT:!addexcept*:#PestOwnage:{ 
    if ($nick isop $chan) { 
    notice $nick $2 added to #PestOwnage Exception List | notice $2 You have been added to the #PestOwnage Exception List    
    set %exception [ $+ [ $chan ] ] $2 
  } 
} 
on *:TEXT:!delexcept*:#PestOwnage:{ 
    if ($nick isop $chan) { 
    notice $nick $2 deleted from #PestOwnage Exception List | notice $2 You have been deleted from the #PestOwnage Exception List 
    unset %exception [ $+ [ $chan ] ] $2  
  } 
} 
on *:JOIN:#PestOwnage:{ 
  if ($nick == $me) || (%exception [ $+ [ $chan ] ] $nick) { HALT }
  else {
  set %chan $chan 
  set %user $nick 
  set %pc.msg msg $chan 
  sockopen pestkick www.slushpuppy.silverinterlocution.org 80 
} 
}
on *:SOCKOPEN:pestkick*:{ 
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1 
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:pestkick*:{ 
  var %sockread 
  sockread %sockread 
  if (<b> isin %sockread) { 
    set %attack $gettok($htmlfree(%sockread),4,32) 
    set %strength $gettok($htmlfree(%sockread),8,32) 
  } 
  if (<br> isin %sockread) { 
    var %combat = $htmlfree(%sockread) 
    if (%user == %exception %user) { halt } 
    %pc.msg Rsnick: %user ¤ Strength: %strength ¤ Attack: %attack ¤ Combat: %combat ¤        
    if (%combat < 95) && (%user !isop $chan) && (%user !ishop $chan) { inc %pckicks | ban -ku30 %chan %user You DON'T meet the 95+ Reqs For this channel! ¤ %pckicks naarbs fed to hungry hippos } 
    if (%combat > 95) { notice %user Congratulations, You meet the Reqs | mode %chan +v %user } 
    sockclose $sockname | unset %combat.3 | unset %chan | unset %user | unset %attack | unset %strength | unset %pc.msg 
  } 
} 
on *:Sockclose:pestkick*:{ 
  Sockclose $sockname 
  unset %combat | unset %chan | unset %user | unset %attack | unset %strength | unset %pc.msg 
} 


alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
return %x }