ON *:JOIN:#pcsog:{
  if ($nick == $me) { halt }
  if (%pc.chan. [ $+ [ $chan ] ] == on) {
    var %i = $rand(10000,99999)
    set %pc.info. $+ %i $chan $nick
    sockopen pc.Sock. $+ %i slushpuppy.silverinterlocution.org 80
  }
}
ON $*:TEXT:/^[!@.]setP(cw|est)req/Si:#pcsog:{
  if ($me isop $chan || $me ishop $chan) {
    if (($2 isnum 3-126) && ($nick isop $chan || $nick ishop $chan)) {
      set %pc.chan. $+ $chan on
      set %pc.req. $+ $chan $2
      notice $nick [PCReq] PCReq set to $+(,$2,) $+ . If you want me to kick all non voiced type !RKick now.
      halt
    }
    if (($2 !isnum 3-126) && ($nick isop $chan || $nick ishop $chan)) {
      notice $nick [PCReq] Im sorry but $+(,$2,) just isnt a combat level. (Note CMB Levels can only be 3-126)
      halt
    }
    else {
      notice $nick This is a halfop+ command.
    }
  }
  else {
    notice $nick [PCReq] I need halfop+ for this command
  }
}
on *:SOCKOPEN:pc.Sock.*: {
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],2,32) HTTP/1.1
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pc.Sock.*: {
  var %pc
  sockread %pc
  if ($sockerr) {
    echo -a Error.
    cleanup.pc2 $right($sockname,5)
    sockclose $sockname
    halt
  }
  if (<br> isin %pc) {
    tokenize 32 %pc
    if ($remove($1-,<br>) == 0) {
      mode $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32) +b $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],2,32)
      kick $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32) $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],2,32) Please use your RuneScape Name /nick RSN
      notice $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],2,32) Please use your RSN /nick RSN
      cleanup.pc2 $right($sockname,5)
      sockclose $sockname
      halt
    }
    if ($remove($1-,<br>) < $($+(%,pc.req.,$gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32)),2)) {
      ban -ku300 $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32) $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],2,32) 3 You dont meet the req of $($+(%,pc.req.,$gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32)),2)
      notice $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],2,32) Your only $remove($1-,<br>) combat - The req is $($+(%,pc.req.,$gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32)),2)
      cleanup.pc2 $right($sockname,5)
      sockclose $sockname
      halt
    }
    if ($remove($1-,<br>) => %pc.req. $($+(%,pc.req.,$gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32)),2)) {
      msg $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],1,32) [PCReq] $gettok(%pc.info. [ $+ [ $right($sockname,5) ] ],2,32) is $bytes($remove($1,<br>),b) combat.
      cleanup.pc2 $right($sockname,5)
      sockclose $sockname
      halt
    }
  }
}
Alias cleanup.pc {
  unset %pc.*. $+ $1
}
Alias cleanup.pc2 {
  unset %pc.info. $+ $1
}

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

alias c1 { return $+($chr(3) $+ $iif(%color1,%color1,4),$1-) }
alias c2 { return $+($chr(3) $+ $iif(%color2,%color2,4),$1-) }

on $*:TEXT:/[@!]setpcw*/:#*: {   
  if ($readini(botconfig.ini,isony,onoff) == off) { notice $nick The Bot is turned OFF please wait until it is turned back on join #demigods for more information. | halt }
  if (*$* iswm $2) {
    notice $nick Identifiers are not needed in SetPC World Command, Please think about your actions again (1 Minute Ignore).
    echo -s  $nick was using an identifer for a setpc world command
    ignore $address($nick,2) | silence + $+ $nick
    timer 1 60 ignore -r $address($nick,2)
    timer 1 60 silence - $+ $nick
    halt
  }
  if ($nick isop $chan || $nick ishop $chan) {
    if (!$2) { notice $nick Syntax : [@!.]setpcw <RSN WORLD>. | halt }
    if ($2 isnum 2-140) {
      writeini pcw.ini $chan world $2
      writeini pcw.ini $chan nick $nick
      writeini pcw.ini $chan time $ctime
      writeini pcw.ini $chan suggest None
      msg $chan 1O 4Pest-Control 1World acaba de ser atualizado , Escreva 4!Pcw 1para vê-lo | halt
    }
    if ($2 isnum !2-140) { notice $nick Please put the world as a number | halt }
    else { notice $nick You need Halfop Plus to Set Pest Control Worlds! | halt }
  }
}

on $*:TEXT:/[@!](pcw|Pcw)/Si:#pcsog: {
  if ($chan == #bots || $chan == *bot*) { halt }
  if ($readini(botconfig.ini,isony,onoff) == off) { notice $nick The Bot is turned OFF please wait until it is turned back on join #demigods for more information. | halt }
  if  ($readini(pcw.ini,$chan,world) == $null)  { notice $nick No Pest Control World been set if you would like to suggest a world type !suggest pcw (world) | halt }
  else {
    set %msg $iif($left($1,1) == @,msg $chan,notice $nick)
    inc %pcw
    %msg 1O atual Pest Control World é   [4  $readini(pcw.ini,$chan,world)  1], Trocado por 4 $readini(pcw.ini,$chan,nick) 1 à [  $duration($calc($ctime - $readini(pcw.ini,$chan,time)))  ] 
  }
}