Something

on *:TEXT:!setp2p *:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($2 isnum 1-132) {
    set %p2pworld $2
    set %p2pnick $nick
    set %p2pctime $ctime
    msg $chan 12The P2P world has been updated by %p2pnick $+ ! Type !p2p to see the P2P World.
} }
on *:TEXT:!setf2p *:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($2 isnum 1-132) {
    set %f2pworld $2
    set %f2pnick $nick
    set %f2pctime $ctime
    msg $chan 12The F2P world has been updated by %f2pnick $+ ! Type !f2p to see the F2P World.
} }
on *:TEXT:!p2p*:#: {
  notice $nick 4The current P2P World is 12 $+ %p2pworld $+ . 4Set by 12 $+ %p2pnick $duration($calc ($ctime - %p2pctime)) 4ago.
}
on *:TEXT:!f2p*:#: {
  notice $nick 4The current PFP World is 12 $+ %p2fworld $+ . 4Set by 12 $+ %p2pnick $duration($calc ($ctime - %p2pcfime)) 4ag