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 c2 { return $+(043$1-,) }