on *:TEXT:!setpcw*:#:{
  if (!istok(#chan1 #chan2,$chan,32) || ($nick($chan,$nick,a,ho)) halt
  if (!$istok(2|6|9|12|18|22|23|24|26|27|28|31|36|41|42|44|46|48|53|54|56|58|59|60|64|65|66|69|70|71|76|77|78|79|82|83|84|88|89|91|92|97|98|99|100|103|104|110|111|112|114|115|116|120|121|123|124|126|129|130|131|132|137|138,$2,124)) {
    .notice $nick $c1(Please specify a valid P2P world to set.)
    halt
  }
  elseif ($2 == $readini(PCWorlds.ini, #chan1, World)) {
    .notice $nick $c1(The PC world is already set as) $c2($2) $+ $c1(.)
    halt
  }
  else {
    writeini PCWorlds.ini #chan1 World $2
    writeini PCWorlds.ini #chan1 Setter $nick
    msg #chan1 $c1(The PC world has been changed by) $c2($nick) $+ $c1(. Type) $c2(!pcw) $c1(or) $c2(!world) $c1(to see it.)
  }
}

on *:TEXT:*:#chan1:{
  if (!$istok(pcw world,$right($1,-1),32)) || ($left($1,1) !isin !@) halt
  if (@* iswm $1) && ($nick !isop $chan) halt
  inc %pcworld.uses
  var %target $iif(@* iswm $1,msg $chan,.notice $nick)
  if (!$readini(PCWorlds.ini, $chan, World)) {
    %target $c1(There is not currently a PC world set.)
    halt
  }
  else {
    %target $c1(The current PC world is) $c2($readini(PCWorlds.ini, $chan, World)) $+ $c1($chr(44) set by) $c2($readini(PCWorlds.ini, $chan, Setter)) $+ $c1(. This command has been used) $c2($bytes(%pcworld.uses,b)) $c1($iif(%pcworld.uses == 1,time.,times.))
    halt
  }
}
alias -l c1 { return $+(04,$1-,) }
alias -l c1 { return $+(03,$1-,) }