Mine

on $*:TEXT:/^!(set)?(pc)?w/Si:#:{
  if (!set* iswm $1) {
    if ($nick($chan,$nick,oh)) {
      if ($2 isnum) {
        writeini pcwz.ini $chan nick lol $nick
        writeini pcwz.ini $chan time lol $ctime
        writeini pcwz.ini $chan lastworld lol $gettok($readini(pcwz.ini,$chan,world),2,32)
        writeini pcwz.ini $chan world lol $2
      }
      else notice $nick the world has to be a number: Syntax: !setpcw N
    }
  }
  else {
    if ($nick($chan,$nick,voh)) notice $nick $iif(!$readini(pcwz.ini,$chan,world),There is no world set,$getInfo($chan))
  }
}
alias getInfo {
  var %a = 0, %line = ~
  while (%a < $ini(pcwz.ini,$1,0)) var %a = %a + 1, %c = $ini(pcwz.ini,$1,%a), %line = %line $iif(%c == lastworld,Last World:,$iif(%c == time,Time Set:,$iif(%c == nick,Set By:,$+($upper($left($v1,1)),$lower($mid($v1,2)),:)))) $iif(%c == time,$duration($calc($ctime - $gettok($readini(pcwz.ini,$1,%c),2,32))) ago,$gettok($readini(pcwz.ini,$1,%c),2,32)) ~
  return %line
}