Someone

on *:TEXT:!setp2p *:#: {
  if ($nick isop $chan) || ($nick ishalfop $chan) {
    if ($2 isnum 1-132) {
      set %p2pworld. [ $+ [ $chan ] ] $2
      set %noobwhosetp2p [ $+ [ $chan ] ] $nick
      msg $chan the p2p world we are on has changed type !p2p for it
    }
  }
}
on *:TEXT:!setp2p *:#: {
  if ($nick isop $chan) || ($nick ishalfop $chan) {
    if ($2 isnum 1-132) {
      set %f2pworld. [ $+ [ $chan ] ] $2
      set %noobwhosetf2p [ $+ [ $chan ] ] $nick
      msg $chan the f2p world has changed. type !f2p to view it.
    }
  }
}
on *:TEXT:!p2p*:#: {
  notice $nick 0,12 The P2P World for $chan is %p2pworld. [ $+ [ $chan ] ] $2 set by  set %noobwhosetp2p [ $+ [ $chan ] ] $nick
}


on *:TEXT:!f2p*:#: {
  notice $nick 0,12 The F2P World for $chan is %f2pworld. [ $+ [ $chan ] ] $2 set by  set %noobwhosetf2p [ $+ [ $chan ] ] $nick
}