elseif ($regex($1,/^[!@.](set|new)(pc(w)?|world)/Si)) {
if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-144) {
hadd -m $chan world $2
hadd -m $chan nick $nick
hadd -m $chan time $ctime
msg $chan $+([,$nick,$c2 has set a new pcw for $chan,!,$chr(44) type,$c1 !pcw,$c2 or,$c1 !world,$c2 to view it,$c1,])
}
else {
$iif($left($1,1) == @,msg $chan,notice $nick) $+([,$c2,You have to be halfop/op to set a new,$c1 pcw,$c2,. It also has to be in between,$c1 2-144])
}
}
elseif ($regex($1,/^[!@.](pcw|world)/Si)) {
if ($hget($chan,world)) $iif($left($1,1) == @,msg $chan,notice $nick) $+([,$c2,The pcw for,$c1 $chan,$c2 is,$c1 $hget($chan,world),$c2 set by,$c1 $hget($chan,nick) $duration($calc($ctime - $hget($chan,time))),$c2 ago,$c1,])
else $iif($left($1,1) == @,msg $chan,notice $nick) $+([,$c2,There is no pcw set for this channel, get an,$c1 op/halfop,$c2 to set it,$c1,])
}