Mine

on $*:text:/^[!@](s(et)?w(orld)?|change) (.*?)/Si:#: {
  if ($nick isop $chan || $nick ishop $chan) && ($istok(2.6.9.12.18.22.23.24.26.27.28.31.36.42.44.48.53.54.56.58.59.60.64.65.66.69.70.71.76.77.78.79.82.83.84.88.89.91.92.97.98.99.100.103.104.110.111.112.114.115.116.120.121.123.124.129.130.131.132.137.138,$2,46)) {
    set $+(%,setter.,$chan) $nick
    set $+(%,var.,$chan) $ctime
    set $+(%,World.,$chan) $2
    msg # 14The PestControl world has been changed to07 $2 14by07 $nick $+ 14.
  }
  else {
    $iif($left($1,1) = @,msg $chan,.notice $nick) 14Either you arent an (half-)operator or you did not specify a valid world.)
  }
}