Someone

on *:TEXT:*:#brute-pc:{
  if (($nick isop $chan) || ($nick ishop $chan)) {
    if ($1 == !set) {
      if ($2 == pcw) {
        if ($3) writeini pc.ini $chan pcw $v1 | msg $chan new pcw set!!! type !pcw or !world to see it!
        else notice $nick please specify a world
      }
      if ($2 == script) {
        if ($3 == off) { writeini pc.ini $chan $chan off | notice $nick you have set this channel on the disabled list. }
        if ($3 == on) { writeini pc.ini $chan $chan on | notice $nick you have set this channel on the enabled list. }
      }
      if ($2 == cmb) {
        if ($3 isnum) { writeini pc.ini $chan combat $$3 | notice $nick combat requirement for $chan set to $$3 }
        else notice $nick input a combat lvl requirement...
      }
      if ($2 == bantime) {
        if ($3 isnum) { writeini pc.ini $chan bantime $$3 | notice $nick bantime for $chan set to $$3 minutes }
        else notice $nick input a ban time in minutes...
      }
      if ($2 == attstr) {
        if ($3 isnum) { writeini pc.ini $chan attstr $$3 | notice $nick attack + str requirement for $chan set to $$3 }
        else notice $nick input a attack + strength requirement...
      }
      if ($2 == av) {
        if ($3 ison $chan) { writeini pc.ini $+(av,.,$chan) $address($3,2) yes | notice $nick you've added $address($3,2) to the auto voice list. | mode $chan +v $3 }
        else notice $nick input someone who is in the channel...
      }
    }
    if ($1 == !av) {
      if ($2 ison $chan) { writeini pc.ini $+(av,.,$chan) $address($2,2) yes | notice $nick you've added $address($2,2) to the auto voice list. | mode $chan +v $3 }
      else notice $nick input someone who is in the channel...
    }
  }

  on *:JOIN:#brute-pc:{
    if ($address($nick,2) == $address($me,2)) halt
    if ($readini(pc.ini,$+(av,.,$chan),$address($nick,2))) { mode $chan +v $nick | halt }
    if ($readini(pc.ini,$chan,$chan)) {
      if ($readini(pc.ini,$chan,$chan) == off) { halt }
      sockopen $+(pc1,.,$nick,.,$chan,.,$ticks) www.o-ss.net 80
    }
  }
  on *:SOCKOPEN:pc1.*:{
    sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $replace($gettok($sockname,2,46),_,+,$chr($asc(|)),+)  HTTP/1.1
    sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
  }
  on *:SOCKREAD:pc1.*:{
    sockread -f $+(%,$sockname,.,read)
    tokenize 32 $($+(%,$sockname,.,read),2)
    if (*does not feature* iswm $1-) { ban $+(-ku,$calc($iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) * 60)) $gettok($sockname,3,46) $gettok($sockname,2,46) 2 Please use your rsn... $iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) minutes | unset $+(%,$sockname,.,read) | sockclose $sockname }
    if ($istok($yesline,$1,58)) { hadd -m $sockname $1 $iif(*not ranked* iswm $1-3,NA,$3) }
    if ($1 == cooking) {
      if ($check($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic)) == dead) {
        ban $+(-ku,$calc($iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) * 60)) $gettok($sockname,3,46) $gettok($sockname,2,46) 2 Sorry you arn't in the high scores for any combat skill... $iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) minutes | halt
        hfree $sockname
        unset $+(%,$sockname,.,read)
        sockclose $sockname
      }
      hadd -m $sockname combat $floor($extcmbcalc($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic)))
      if ($hget($sockname,range) > $iif($readini(pc.ini,$gettok($sockname,3,46),range),$v1,1000)) { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
      if ($hget($sockname,mage) > $iif($readini(pc.ini,$gettok($sockname,3,46),mage),$v1,1000)) { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
      if ($hget($sockname,combat) < $iif($readini(pc.ini,$gettok($sockname,3,46),combat),$v1,80)) {
        if ($calc($hget($sockname,attack) + $hget($sockname,strength)) < $iif($readini(pc.ini,$gettok($sockname,3,46),attstr),$v1,100)) {
          ban $+(-ku,$calc($iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) * 60)) $gettok($sockname,3,46) $gettok($sockname,2,46) 2 You do not meet requirements, come back when you do... $iif($readini(pc.ini,$gettok($sockname,3,46),bantime),$v1,5) minutes 
          hfree $sockname
          unset $+(%,$sockname,.,read)
          sockclose $sockname
        }
        else { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
      }
      else { hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
    }
  }
  alias check {
    if ($1-7 == $str(NA ,7)) { return dead }
    else { return okay }
  }
  alias extcmbcalc {
    var %line = $replace($1 $2 $3 $4 $5 $6 $7,NA,1)
    tokenize 32 %line
    if (($calc($1 + $2) > $6) && ($calc($1 + $2) > $7)) var %type = melee
    if (($calc($1 + $2) < $6) || ($calc($1 + $2) < $7)) {
      if ($7 > $calc($1 + $2)) if ($7 > $6) var %type = magic
      if ($6 > $calc($1 + $2)) if ($6 > $7) var %type = range
    } 
    if (%type == range) return $calc((0.487 * $6) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5))
    if (%type == magic) return $calc((0.487 * $7) + (0.249 * $3) + (0.25 * $4) + (0.124 * $5))
    if (%type == melee) return $calc((0.32707 * $1) + (0.249 * $3) + (0.324 * $2) + (0.25 * $4) + (0.124 * $5))
  }