Mine

on *:TEXT:!setpcw *:#:{ 
  if ( $nick isvoice # ) notice $nick 4You cannot change the world! 
  if ( $nick isreg # ) notice $nick 4You cannot change the world! 
  if ( $nick ishop # ) notice $nick 4You cannot change the world! 
  if ( $nick isop # ) set %pctime $ctime 
  if ( $nick isop # ) set %pcnick $nick 
  if ( $nick isop # ) set %pcworld $2-
  if ( $nick isop # ) msg $chan 4,1|'|'|'|'|'|PC World is changed to 14 %pcworld 4by 14 %pcnick 4|'|'|'|'|'| 
} 

on *:TEXT:!world:#:{ 
  notice $nick 14Current PC World:4 %pcworld 14--Last Update:4 $+($duration($calc($ctime - %pctime)),) 15ago 
  notice $nick 14This world was set by:4 %pcnick 
}