on *:TEXT:!setpcw*:?:{
  if (($nick isop #samoschat) || ($nick ishop #samoschat)) { 
    /set -s %var $2 
    /set -s %worldperson $nick
    /unset %worldchange $ctime
    /set %pccount %count
    /set %worldchange $ctime
    /notice $nick 12 The new world is- 4 $2 
    /msg #samoschat 12 The world has been changed!!- 4 Set by $+(,$nick,) 12 -Type 4 !pcw- 12 To see the new world
  }
  else { /notice $nick You are not allowed to set a world, only operators are }
} 

on *:text:!*:#:{ if ($istok(!pcw !world,$1,32)) { 
    inc %pcw 1
  .notice $nick  12 The Current Pc-World Is 4 $+( ,%Var,)  12- This world was set- 4 $duration($calc($ctime - %worldchange $ctime))) 12ago - World set by: 4 $+(,%worldperson,) 12 - The "!Pcw" command count: 4 %pcw }
}