Public feed
#599474
alias -l c1 { return $+($chr(3),12,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),04,$1-,$chr(3)) }
alias -l c3 { return $+($chr(3),06,$1-,$chr(3)) }
alias -l c4 { return $+($chr(3),02,$1-,$chr(3)) }
alias -l c5 { return $+($chr(3),03,$1-,$chr(3)) }
on $*:TEXT:/^[!@.](set cmbcheck on|set pcjoin on)/Si:#:{
if ($nick isop $chan) {
set %joincmb [ $+ [ $chan ] ] on
notice $nick 6¤ $c1(The) $c2(Onjoin Combat checker) $c1(is now on) 6¤
}
}
on $*:TEXT:/^[!@.](set cmbcheck off|set pcjoin off)/Si:#:{
if ($nick isop $chan) {
set %joincmb [ $+ [ $chan ] ] off
notice $nick 6¤ $c1(The) $c2(Onjoin Combat checker) $c1(is now off) 6¤
}
}
on *:TEXT:!setreq combat*:#: {
if (%joincmb [ $+ [ $chan ] ] == off) { HALT } {
if ($nick isop $chan) && ($3 isnum 0-126 || $3 == Unset) {
notice $nick 6¤ $c1(The) $c2(combat) $c1(requirements are now) $c2($3) 6¤
writeini joincmb.ini $chan Combat $3
}
}
}
on *:TEXT:!setreq defence*:#: {
if (%joincmb [ $+ [ $chan ] ] == off) { HALT } {
if ($nick isop $chan) && ($3 isnum 0-99 || $3 == Unset) {
notice $nick 6¤ $c1(The) $c2(defence) $c1(requirements are now) $c2($3) 6¤
writeini joincmb.ini $chan Defence $3
}
}
}
on *:TEXT:!setreq ranged*:#: {
if (%joincmb [ $+ [ $chan ] ] == off) { HALT } {
if ($nick isop $chan) && ($3 isnum 0-99 || $3 == Unset) {
notice $nick 6¤ $c1(The) $c2(ranged) $c1(requirements are now) $c2($3) 6¤
writeini joincmb.ini $chan Ranged $3
}
}
}
on *:TEXT:!setreq strength*:#: {
if (%joincmb [ $+ [ $chan ] ] == off) { HALT } {
if ($nick isop $chan) && ($3 isnum 0-99 || $3 == Unset) {
notice $nick 6¤ $c1(The) $c2(strength) $c1(requirements are now) $c2($3) 6¤
writeini joincmb.ini $chan Strength $3
}
}
}
on *:TEXT:!setreq magic*:#: {
if (%joincmb [ $+ [ $chan ] ] == off) { HALT } {
if ($nick isop $chan) && ($3 isnum 0-99 || $3 == Unset) {
notice $nick 6¤ $c1(The) $c2(magic) $c1(requirements are now) $c2($3) 6¤
writeini joincmb.ini $chan Magic $3
}
}
}
on *:TEXT:!setreq attack*:#: {
if (%joincmb [ $+ [ $chan ] ] == off) { HALT } {
if ($nick isop $chan) && ($3 isnum 0-99 || $3 == Unset) {
notice $nick 6¤ $c1(The) $c2(attack) $c1(requirements are now) $c2($3) 6¤
writeini joincmb.ini $chan Attack $3
}
}
}
------
alias -l c1 { return $+($chr(3),12,$1-,$chr(3)) }
alias -l c2 { return $+($chr(3),04,$1-,$chr(3)) }
alias -l c3 { return $+($chr(3),06,$1-,$chr(3)) }
alias -l c4 { return $+($chr(3),02,$1-,$chr(3)) }
alias -l c5 { return $+($chr(3),03,$1-,$chr(3)) }
alias -l c6 { return $+($chr(3),07,$1-,$chr(3)) }
on *:JOIN:#:{
if (%joincmb [ $+ [ $chan ] ] == off) { HALT }
inc %id
if ($len($nick) > 13) { notice % $+ $chan $c3(¤) $c6($nick) $c2(is not in the highscores) $c3(¤) | halt }
set $+(%,pc.chan.,%id) $chan
set $+(%,pc.rsn.,%id) $nick
sockopen $+(pest.,%id) www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:pest.*:{
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ $($+(%,pc.rsn.,%id),2) HTTP/1.1
sockwrite -n $sockname Host: www.slushpuppy.silverinterlocution.org
sockwrite -n $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:pest.*:{
var %id = $gettok($sockname,2,46), $&
%rsn = $($+(%,pc.rsn.,%id),2), $&
%chan = $($+(%,pc.chan.,%id),2)
if ($sockerr) {
msg %chan Sockerr: $sockerr
unset $+(%,pc.*)
sockclose $sockname
halt
}
else {
var %read
sockread %read
if (*<i>* iswm %read) { set %pc.cmbstyle $htmlfree(%read) }
if (*<b>* iswm %read) {
tokenize 32 $nohtml(%read)
set $+(%,pc.info.,%id) $4 $6 $8 $10 $12 $14 $16
}
if (*<br>* iswm %read) {
if (%chan == #Pest-Time) {
var %cmb = $nohtml(%read)
tokenize 32 $($+(%,pc.info.,%id),2)
set %colnick $c2(%rsn)
if (100 <= %cmb) {
set %colnick $c5(%rsn)
set %colcombat $c3(¤) $c5($+(Combat,$chr(40),$round(%cmb,0),$chr(3),2/,$readini(joincmb.ini,%chan,Combat)3,$chr(41)))
}
else {
set %colcombat $c3(¤) $c2($+(Combat,$chr(40),$round(%cmb,0),$chr(3),2/,$readini(joincmb.ini,%chan,Combat)4,$chr(41)))
}
msg % $+ #Pest-time $c3(¤ Rsn:) %colnick %colCombat $c3(¤)
halt
}
else {
var %cmb = $nohtml(%read)
tokenize 32 $($+(%,pc.info.,%id),2)
set %colnick $c2(%rsn)
if ($readini(joincmb.ini,%chan,Strength) <= $3) {
set %colnick $c5(%rsn)
set %colStrength $c3(¤) $c5($+(Strength,$chr(40),$3,$chr(3),2/,$readini(joincmb.ini,%chan,Strength),$chr(41)))
}
else {
set %colStrength $c3(¤) $c2($+(Strength,$chr(40),$3,$chr(3),2/,$readini(joincmb.ini,%chan,Strength),$chr(41)))
}
if ($3 == $null) {
set %colstrength $c3(¤) $c2($+(Strength,$chr(40),0,$chr(3),2/,$readini(joincmb.ini,%chan,Strength),$chr(41)))
}
if ($readini(joincmb.ini,%chan,Strength) == $null) || ($readini(joincmb.ini,%chan,Strength) == Unset) {
set %colstrength $null
}
if ($readini(joincmb.ini,%chan,Attack) <= $1) {
set %colnick $c5(%rsn)
set %colAttack $c3(¤) $c5($+(Attack,$chr(40),$1,$chr(3),2/,$readini(joincmb.ini,%chan,Attack),$chr(41)))
}
else {
set %colAttack $c3(¤) $c2($+(Attack,$chr(40),$1,$chr(3),2/,$readini(joincmb.ini,%chan,Attack),$chr(41)))
}
if ($1 == $null) {
set %colattack $c3(¤) $c2($+(Attack,$chr(40),0,$chr(3),2/,$readini(joincmb.ini,%chan,Attack),$chr(41)))
}
if ($readini(joincmb.ini,%chan,Attack) == $null) || ($readini(joincmb.ini,%chan,Attack) == Unset) {
set %colAttack $null
}
if ($readini(joincmb.ini,%chan,Combat) <= %cmb) {
set %colnick $c5(%rsn)
set %colcombat $c3(¤) $c5($+(Combat,$chr(40),$round(%cmb,0),$chr(3),2/,$readini(joincmb.ini,%chan,Combat),$chr(41)))
}
else {
set %colcombat $c3(¤) $c2($+(Combat,$chr(40),$round(%cmb,0),$chr(3),2/,$readini(joincmb.ini,%chan,Combat),$chr(41)))
}
if ($readini(joincmb.ini,%chan,Combat) == $null) || ($readini(joincmb.ini,%chan,Combat) == Unset) {
set %colcombat $null
}
if ($readini(joincmb.ini,%chan,Ranged) <= $5) {
set %colnick $c5(%rsn)
set %colRanged $c3(¤) $c5($+(Ranged,$chr(40),$5,$chr(3),2/,$readini(joincmb.ini,%chan,Ranged),$chr(41)))
}
else {
set %colRanged $c3(¤) $c2($+(Ranged,$chr(40),$5,$chr(3),2/,$readini(joincmb.ini,%chan,Ranged),$chr(41)))
}
if ($5 == $null) {
set %colranged $c3(¤) $c2($+(Ranged,$chr(40),0,$chr(3),2/,$readini(joincmb.ini,%chan,Ranged),$chr(41)))
}
if ($readini(joincmb.ini,%chan,Ranged) == $null) || ($readini(joincmb.ini,%chan,Ranged) == Unset) {
set %colranged $null
}
if ($readini(joincmb.ini,%chan,Magic) <= $7) {
set %colnick $c5(%rsn)
set %colMagic $c3(¤) $c5($+(Magic,$chr(40),$7,$chr(3),2/,$readini(joincmb.ini,%chan,Magic),$chr(41)))
}
else {
set %colMagic $c3(¤) $c2($+(Magic,$chr(40),$7,$chr(3),2/,$readini(joincmb.ini,%chan,Magic),$chr(41)))
}
if ($7 == $null) {
set %colMagic $c3(¤) $c2($+(Magic,$chr(40),0,$chr(3),2/,$readini(joincmb.ini,%chan,Magic),$chr(41)))
}
if ($readini(joincmb.ini,%chan,Magic) == $null) || ($readini(joincmb.ini,%chan,Magic) == Unset) {
set %colmagic $null
}
if ($readini(joincmb.ini,%chan,Defence) <= $2) {
set %colnick $c5(%rsn)
set %colDefence $c3(¤) $c5($+(Defence,$chr(40),$2,$chr(3),2/,$readini(joincmb.ini,%chan,Defence),$chr(41)))
}
else {
set %colDefence $c3(¤) $c2($+(Defence,$chr(40),$2,$chr(3),2/,$readini(joincmb.ini,%chan,Defence),$chr(41)))
}
if ($2 == $null) {
set %colDefence $c3(¤) $c2($+(Defence,$chr(40),0,$chr(3),2/,$readini(joincmb.ini,%chan,Defence),$chr(41)))
}
if ($readini(joincmb.ini,%chan,Defence) == $null) || ($readini(joincmb.ini,%chan,Defence) == Unset) {
set %colDefence $null
}
msg % $+ %chan $c3(¤ Rsn:) %colnick %colcombat %colstrength %colattack %colranged %colmagic %coldefence $c3(¤)
}
unset $+(%,pc.*)
sockclose $sockname
}
}
}
alias -l nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}