Something

on *:TEXT:!setpitw *:#:{ if ($nick isop $chan) {
  set %world [ $+ [ $chan ] ] $2
msg $chan 14[[7-Pits-14]]4There has been a new pits world set for $chan $+ !! Type !pitw to see it! } }

on *:TEXT:!pitw:#:{ if (! iswm $1) { notice $nick 14[[7-Pits-14]]4 The pits world for $chan is %world [ $+ [ $chan ] ] $+ . }
  if (@ iswm $1) { msg $chan 14[[7-Pits-14]]4 The pits world for $chan is %world [ $+ [ $chan ] ] $+ . }
}

on *:TEXT:!delpitw *:#:{ if ($nick isop $chan)
  unset %world [ $+ [ $chan ] ]
msg $chan 14[[7-Pits-14]]4 The pits world for $chan has been deleted. }