alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x }
on *:TEXT:!combatcheck*:#:{ if ($nick isop $chan) || ($readini(staff.ini,click,$nick)) || ($readini(admin.ini,click,$nick)) {
if (*on* iswm $2) { writeini onjoin.ini $chan status on | msg $chan On join combat is now on. | halt }
if (*off* iswm $2) { remini onjoin.ini $chan | msg $chan On join combat is now off | halt }
}
}
on *:JOIN:#:{ if ($nick == $me) { HALT }
if ($readini(onjoin.ini,$chan,status) == on) {
inc %onjoinvar
set $+(%,combatn,%onjoinvar) $nick
sockopen $+(combat.,%onjoinvar) www.slushpuppy.silverinterlocution.org 80
set $+(%,chan,%onjoinvar) $chan
}
}
on *:SOCKOPEN:combat.*:{
sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ $eval($+(%,combatn,$gettok($sockname,2,46)),46) HTTP/1.1
sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:combat.*:{
if ($sockerr) { msg $chan Socket error.
sockclose $sockname
halt
}
else {
var %combat
sockread %combat
if (*<b>* iswm %combat) {
set $+(%,combata,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),4,32)
set $+(%,combatd,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),6,32)
set $+(%,combats,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),8,32)
set $+(%,combath,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),10,32)
set $+(%,combatr,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),12,32)
set $+(%,combatp,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),14,32)
set $+(%,combatm,$gettok($sockname,2,46)) $gettok($htmlfree(%combat),16,32)
}
if (<br> isin %combat) { set $+(%,combat2,$gettok($sockname,2,46)) $remove(%combat,<br>)
if ($eval($+(%,combat2,$gettok($sockname,2,46)),46) < %req [ $+ [ $eval($+(%,chan,$gettok($sockname,2,46)),46) ] ]) { ban -ku600 $eval($+(%,chan,$gettok($sockname,2,46)),46) $eval($+(%,combatn,$gettok($sockname,2,46)),46) Please come back with your correct runescape name. You do not meet the channel requirements. | halt }
msg $eval($+(%,chan,$gettok($sockname,2,46)),46) Attack: $eval($+(%,combata,$gettok($sockname,2,46)),46) Defense: $eval($+(%,combatd,$gettok($sockname,2,46)),46) Strength: $eval($+(%,combats,$gettok($sockname,2,46)),46) Hitpoints: $eval($+(%,combath,$gettok($sockname,2,46)),46) Range: $eval($+(%,combatr,$gettok($sockname,2,46)),46) Prayer: $eval($+(%,combatp,$gettok($sockname,2,46)),46) Magic: $eval($+(%,combatm,$gettok($sockname,2,46)),46)
msg $eval($+(%,chan,$gettok($sockname,2,46)),46) Overall melee combat for $eval($+(%,combatn,$gettok($sockname,2,46)),46) $+ : $eval($+(%,combat2,$gettok($sockname,2,46)),46)
/unset $+(%,combat*,$gettok($sockname,2,46),46)
unset %combat*
/unset $+(%,chan*,$gettok($sockname,2,46))
sockclose $sockname
}
}
}
on *:TEXT:!setreq*:#:{ if ($nick isop $chan) || ($nick ishop $chan) {
if (*off* iswm $2) { unset %req $chan | msg $chan Requirements unset from $chan $+ . }
set %req $+ $chan $2 | msg $chan Requirements set to $2 $+ +
}
}
on *:TEXT:!setpcw*:?: {
if ($nick isop #fun || $nick ishop #fun ) {
set %world $2
set %setter $nick
set %ctime $ctime
inc %sets [ $+ [ $nick ] ]
msg #fun A new pc world has been set type !pcw or !world to see it!
}
}
on $*:TEXT:/^[!](pcw|pc|w|world)/Si:#: {
inc %pcw
/notice $nick Current P.C world is [ %world ] set $duration($calc($ctime - %ctime)) Ago. Suggest world currently is %suggested This command has been used %pcw
}
}
on *:TEXT:!suggest*:?: {
set %suggested $2
msg #fun $nick has suggested a world please type !pcw to view it
inc %scouts [ $+ [ $nick ] ]
}
on *:TEXT:!lazy:#fun:{
if ($nick isop $chan || $nick ishop $chan) {
set %world %suggested } {
inc %sets [ $+ [ $nick ] ]
msg $chan There is a new P.C world please type !pcw or !world to view it
unset %suggested
}
}
on *:TEXT:!scouts*:#fun: {
notice $nick you currently have %sets [ $+ [ $nick ] ] sets! you also currently have %scouts [ $+ [ $nick ] ] worlds scouted
notice $nick you currently have verified %verified [ $+ [ $nick ] ] people
}
on *:TEXT:!accept*:#fun: {
if ($nick isop $chan || $nick ishop $chan) {
if ($readini(whitelist.ini,ADRESSES,$address($2,2))) { /notice $nick $2 Is already in the whitelist
}
else {
inc %verified [ $+ [ $nick ] ]
.writeini whitelist.ini ADRESSES $address($2,2) $2
notice $nick $2 has been added to my whitelist
mode $chan +v $2
}
}
}
on *:join:#fun: {
if ($readini(whitelist.ini,ADRESSES,$address($nick,2))) {
mode $chan +v $nick
msg $chan $nick was found in my whitelist Welcome back $nick
}
}
}
on *:TEXT:!remove*:#fun: {
if ($nick ishop $chan) || ($nick isop $chan) {
.remini whitelist.ini ADRESSES $address($2,2) $2 {
notice $nick $2 Has been removed from whitelist
mode $chan -v $2
}
}
}