;<!---Script By RussellReal :) I Luff Joo ALL!!---!>
;<!---WebSite: www.altscripts.net---!>
;<!---IRC SERVER: irc.swiftirc.net---!>
;<!---MSN: RussellonMSN@hotmail.com---!>
on *:TEXT:*:#:{
  if (($nick isop $chan) || ($nick ishop $chan)) {
    if (($1 == !setpcw) && ($2 isnum)) {
      writeini pc.ini $chan pcw $2
      msg $chan new pcw set!!! type !pcw or !world to see it!
    }
    if ($1 == !set) {
      if ($2 == pcw) {
        if ($3 isnum) { writeini pc.ini $chan pcw $v1 | writeini pc.ini $chan pcwset $ctime | 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 == mage) {
        if ($3 isnum) { writeini pc.ini $chan mage $$3 | notice $nick mage requirement for $chan set to $$3 }
        else notice $nick input a mage lvl requirement...
      }
      if ($2 == range) {
        if ($3 isnum) { writeini pc.ini $chan range $$3 | notice $nick range requirement for $chan set to $$3 }
        else notice $nick input a range 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($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...
      }
    }
    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...
    }
  }
  if ($nick !isreg $chan) {
    if ($regex($1,/^[!](pcw|world)$/Si)) notice $nick $iif($readini(pc.ini,$chan,pcw),the current world is $v1 updated: $duration($calc($ctime - $readini(pc.ini,$chan,pcwset))),there is no world set...)
  }
}
on *:JOIN:#:{
  if ($nick == $me) 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 $+(pc,.,$nick,.,$chan,.,$ticks) parsers.freehostia.com 80
  }
  else { halt }
}
on *:SOCKOPEN:pc.*:{
  sockwrite -nt $sockname GET /parsers/statsoww.php?rsname= $+ $replace($gettok($sockname,2,46),_,+,$chr($asc(|)),+)  HTTP/1.1
  sockwrite -nt $sockname Host: parsers.freehostia.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:pc.*:{
  sockread -f $+(%,$sockname,.,read)
  tokenize 32 $($+(%,$sockname,.,read),2)
  if (*is not featured* 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)) { mode $gettok($sockname,3,46) +v $gettok($sockname,2,46) | hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
    if ($hget($sockname,mage) > $iif($readini(pc.ini,$gettok($sockname,3,46),mage),$v1,1000)) { mode $gettok($sockname,3,46) +v $gettok($sockname,2,46) | 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 { mode $gettok($sockname,3,46) +v $gettok($sockname,2,46) | hfree $sockname | unset $+(%,$sockname,.,read) | sockclose $sockname }
    }
    else { mode $gettok($sockname,3,46) +v $gettok($sockname,2,46) | 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))
}