Simple Pcw(3)

on $*:TEXT:/^[!@>~.](setpc|setw|change) */Si:#: {
 if ($nick isreg $chan || $nick isvoice $chan) {
 notice $nick Halfoperator+ Command Only. /!\Access Denied/!\
}
else {
 set %pcw.world $2 | set %pcw.nick $nick 
msg $chan The world has been updated by: %pcw.nick $+ . Type !pcw or !world to view.
}
}
on $*:TEXT:/^[!~]pcw|world*/Si:#: {
 inc %pcw.count 1 
 notice $nick The current # world is: %pcw.world Set by: %pcw.nick $+ . This Command has been used: %pcw.count
}
on $*:TEXT:/^[@.]pcw|world*/Si:#: {
 if ($nick isreg $chan || $nick isvoice $chan) {
 notice $nick Halfoperator+ Command Only. /!\Access Denied/!\
}
else {
 inc %pcw.count 1 
 notice + $+ # The current # world is: %pcw.world Set by: %pcw.nick $+ . This Command has been used: %pcw.count
}
}