Mine

alias c1 { return $+(7 $1-,) }
alias c2 { return $+(14 $1-,) }
alias setworld {
  set %pcworld. [ $+ [ $chan ] ] $1
  set %pcnick. [ $+ [ $chan ] ] $me 
  set %pctime. [ $+ [ $chan ] ] $ctime
  msg $chan  $c1( ~ The PC-World) $+($c2(has changed! Type),$c1(!world),$c2(or),$c1(!pcw),$c2(to find the new world.) [Set by) $+ $c1( $+ %pcnick. [ $+ [ $chan ] ] $+ ) $+ $c2(]) $c1( ~ )
}
alias pcw {
  echo $me $c1(~ The PC-World) $+($c2(is) [,$c1( %pcworld. [ $+ [ $chan ] ] ),,$c2(] Set by [),$c1( $+ %pcnick. [ $+ [ $chan ] ] $+ ),$c2(]),$c1(~)) $c2([ Updated:) $+ $c1( $duration($calc($ctime - %pctime. [ $+ [ $chan ] ] )) ) $+ $c2(ago) ]
}
on *:TEXT:!setworld*:#: {
  if (($nick ishop $chan || $nick isop $chan) || ($nick == Deadly1_4u) && ($2 isnum 2-138)) {
    set %pcworld. [ $+ [ $chan ] ] $2
    set %pcnick. [ $+ [ $chan ] ] $nick 
    set %pctime. [ $+ [ $chan ] ] $ctime
    msg $chan  $c1( ~ The PC-World) $+($c2(has changed! Type),$c1(!world),$c2(or),$c1(!pcw),$c2(to find the new world.) [Set by) $+ $c1( $+ %pcnick. [ $+ [ $chan ] ] $+ ) $+ $c2(]) $c1( ~ )
  }
  elseif ($2 != 2-138) {
    notice $nick $c2(Sorry but you can't set the PC-world to) $+ $c1( $2 ) 
  }
  else { /notice $nick Error please try again. }
}

on $*:text:/^!(world|pcw)/Si:#: { 
  inc %pc.counter
  notice $nick $c1(~ The PC-World) $+($c2(is) [,$c1( %pcworld. [ $+ [ $chan ] ] ),,$c2(] Set by [),$c1( $+ %pcnick. [ $+ [ $chan ] ] $+ ),$c2(]),$c1(~))
  notice $nick $c2([ Updated:) $+ $c1( $duration($calc($ctime - %pctime. [ $+ [ $chan ] ] )) ) $+ $c2(ago ][ Used) $+ $c1( %pc.counter ) $+ $c2(times ]) 
}