Zeug

n *:TEXT:/^[.!@](setpcw|setworld|change)/Si:#:{ 
  if ($2 == %pcworld [ $+ [ #fastpcw ] ]) {
    notice $nick 2This world has already been set!
  }
  else {
    if ($3 == na) { 
      set %pcsetter [ $+ [ #fastpcw ] ] N/A
      set %pcworld [ $+ [ #fastpcw ] ] $2
      set %pcwtime. [ $+ [ #fastpcw ] ] $ctime 
      /timer 2 0 /msg #fastpcw 2The World Has Been Updated by4 %pcsetter [ $+ [ #fastpcw ] ] $+ 2! New World:4 %pcworld [ $+ [ #fastpcw ] ] $+ 2.
    }
  }
  else {
    set %pcsetter [ $+ [ #fastpcw ] ] $nick
    set %pcworld [ $+ [ #fastpcw ] ] $2
    set %pcwtime. [ $+ [ #fastpcw ] ] $ctime 
    /timer 1 0 /msg +#fastpcw 2The World Has Been Updated by4 %pcnick
  }
}
on *:text:!stoppcm:#: {
  if (!%pcworld [ $+ [ #fastpcw ] ]) {
    msg $chan 2World isn't even set!
  }
  else {
    timer1 off 
    msg $chan 2Auto pc world messaging has been ended type !pcw to view the world!
  }
}
on $*:TEXT:/^[.!@](pcw|world|w)/Si:#fastpcw:{ 
  if (!%pcworld [ $+ [ #fastpcw ] ]) {
    msg $chan 2There is no pc world anymore. PC is stopped by %pcstopper [ $+ [ #fastpcw ] ] $+ . Ask him/her why he stopped PC or ask if PC may be set again.
  }
  else {
    notice $nick 2Current World:4 %pcworld [ $+ [ #fastpcw ] ] $+ 2. Set by:4 %pcsetter [ $+ [ #fastpcw ] ] $+ 2. Last Updated:4 $duration($calc( $ctime - %pcwtime. [ $+ [ #fastpcw ] ] )) $+ 2. 
  }
}
on *:text:!stoppcw:#: {
  if (!%pcworld [ $+ [ #fastpcw ] ]) {
    notice $nick 2PC have already been set off!
  }
  elseif ($nick ishop $chan || $nick isop $chan) {
    set %pcstopper [ $+ [ #fastpcw ] ] $nick
    unset %pcworld [ $+ [ #fastpcw ] ]
    unset %pcsetter [ $+ [ #fastpcw ] ]
    timer1 off
    notice $nick 2No pc world anymore!
  }