on *:TEXT:!cmb-on*:#:{ if ($nick isop $chan || $nick ishop $chan) { msg $chan 8,4Reqs for $chan are currently runnning set %pc.kicker $+ $chan ON } } on *:TEXT:!cmb-off*:#:{ if ($nick isop $chan || $nick ishop $chan) { msg $chan 8,4Reqs for $chan are currently OFF set %pc.kicker $+ $chan OFF } } on *:text:!reqs*:#:{ if ($nick isop $chan || $nick ishop $chan) { notice $nick REQS are turned on as $2 + set %cmb $+ $chan $2 } } on *:JOIN:#:{ if (%pc.kicker [ $+ [ $chan ] ] == OFF) { Halt } if ($nick == Dash|bot) { Halt } set %channy $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*:{ if (%pc.kicker [ $+ [ $chan ] ] == OFF) { Halt } var %sockread sockread %sockread if ( isin %sockread) { set %attack $gettok($htmlfree(%sockread),4,32) set %strength $gettok($htmlfree(%sockread),8,32) } if (
isin %sockread) { var %combat = $htmlfree(%sockread) %pc.msg 4Rsn:7 %user 4¤ Strength:7 %strength 4¤ Attack:7 %attack 4¤ Combat:7 %combat if (%combat < %cmb ) && ($calc(%attack + %strength) < 1999) { inc %kicks | ban -ku30 %channy %user 4You 7dont 4meet 7Reqs 4For 7this 4channel!7 ¤4 %kicks } if (%combat > %cmb ) { Notice %user 7Congratulations,4You 7meet 4Reqs } sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg } } on *:Sockclose:pestkick*:{ Sockclose $sockname unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %pc.msg } alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x }