Lrdwhyt

on $*:TEXT:/^[!](set(pcw|world)|change)/Si:#: {
  if (%setwrld [ $+ [ $chan ] ] == off) { halt }
  elseif (%setwrld [ $+ [ $chan ] ]) {
    if ($nick isop $chan) || ($nick ishop $chan) && ($istok(6 9 12 22 23 24 26 27 28 31 36 41 42 44 46 48 53 54 56 58 59 60 64 65 66 69 70 71 76 77 79 83 82 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,$2,32)) {
      set %setwrld [ $+ [ $chan ] ] $2
      set %pctime [ $+ [ $chan ] ] $fulldate
      set %setpcname [ $+ [ $chan ] ] $nick
      set %setwrldstatus [ $+ [ $chan ] ] on
      msg $chan 4[7» 14World changed to 4 $2  7«4]|4[7» 14Set by: 4 %setpcname [ $+ [ $chan ] ]  7«4]|
    }
    else notice $nick 4[7» 14Access denied. You do not have the correct user settings. 7«4]
  }
}