on *:TEXT:!world:#:{
  notice $nick The current world  is %cw $+ .
} 
on *:TEXT:!rcw:#:{
  notice $nick The current world  is %cw $+ .
} 


on *:TEXT:!setcw *:#:{
  if ($nick isop #) || ($nick ishop #) && ($$2 isnum) {
    set %cw $2-
    msg #cw 4CW world has been changed, type 1!cw
    else { halt }
  }
}