Unnamed

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

on *:TEXT:!fightcheck*:#:{ 
  if ($nick isop $chan || $nick ishop $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 -ku120 $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 is $+ : $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:!setreqs*:#:{ if ($nick isop $chan || $nick ishop $chan) || ($readini(staff.ini,click,$nick)) || ($readini(admin.ini,click,$nick)) { 
    if (*off* iswm $2) { unset %req $chan | msg $chan Requirements unset from $chan $+ . } 
    set %req $+ $chan $2 | msg $chan Requirements set to $2 $+ + 
  } 
}
on *:JOIN:#SUPERPCW: {
  notice $nick Please Pm: %nick Ingame for voice
}

on *:TEXT:!setrsn*:#superpcw: {
  if ($2 != $null) {
    set %nick $2 | msg $chan %nick is now on pm duty!
  }
  else { set %nick $nick | msg $chan %nick is now avaliable for Pm! }
}
on *:TEXT:!suggest*:?: { 
    set %world $2 
    msg #superpcw $nick has suggested a Pc World for #superpcw . Type !pcw to see it 
  } 
}
on *:TEXT:!setpcw*:?: { 
  if ($nick isop #superpcw || $nick ishop #superpcw) { 
    set %world $2 
    set %nick2 $nick 
    inc %setworlds [ $+ [ $nick ] ] 
    inc %setworldschan 
    set %ctime $ctime 
    unset %viewd 
    timer 1 1 msg #superpcw There is a new pcw type !pcw to view it! 
  } 
} 
On $*:TEXT:/^[!@](pcw|pc|w|world)/Si:#superpcw: { 
  inc %viewd 
  notice $nick The current pcw is %world - $duration($calc($ctime - %ctime)) ago and was set by %nick2 who has set %setworlds [ $+ [ %nick2 ] ] worlds and this channel has seen new %setworldschan pcws. - %viewd people know this world! 
}
on *:Join:#:{ 
  set %whois $chan 
  whois $nick 
} 
raw 319:*:{ 
  if (%whois) { 
    msg %whois 13 $2 12 is on: 4 $3- 
    unset %whois 
    unset %nick*
  } 

}
on *:text:!av*:#:{ 
  if ($Nick isop $chan) || ($nick ishop $chan) { 
    /cs access $chan add $2 3 
    /msg $chan -ChanServ- $2 added to $chan access list at level 3. 
    /mode $chan +v $2 
  } 
} 
on *:text:!ah*:#:{ 
  if ($nick isop $chan) { 
    /cs access $chan add $2 4 
    /msg $chan -ChanServ- $2 added to $chan access list at level 4. 
    /mode $chan +h $2
  } 
} 
on *:text:!ao*:#:{ 
  if ($nick isop $chan) { 
    /cs access $chan add $2 5 
    /msg $chan -ChanServ- $2 added to $chan access list at level 5. 
    /mode $chan +o $2 
  } 
}