Something

on *:TEXT:!pcw*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick isreg $chan) {
      { inc %used }
      .notice $nick 14The current PC World is3 $eval($+(%,pcw.,$chan),2) $+ 14. Last Set3 $duration($calc($ctime - $($+(%,pcw.,$chan,.time),2))) 14ago by3 $($+(%,pcw.,$chan,.nick),2) $+ 14. Used3 %used 14times.
    }
  }

on *:TEXT:!world*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick isreg $chan) {
      { inc %used }
      .notice $nick 14The current PC World is3 $eval($+(%,pcw.,$chan),2) $+ 14. Last Set3 $duration($calc($ctime - $($+(%,pcw.,$chan,.time),2))) 14ago by3 $($+(%,pcw.,$chan,.nick),2) $+ 14. Used3 %used 14times.
    }
  }
}


on *:TEXT:!setpcw*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ($2- isnum 0-138) {
      set $+(%,pcw.,$chan) $2- | set $+(%,pcw.,$chan,.nick) $nick | set $+(%,pcw.,$chan,.time) $ctime |
      msg $chan 1/4!\1 14New PC world was set, type3 !Pcw/!World14 to see it 1/4!\1
    }
  }
}

on *:TEXT:!setworld*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ($2- isnum 0-138) {
      set $+(%,pcw.,$chan) $2- | set $+(%,pcw.,$chan,.nick) $nick | set $+(%,pcw.,$chan,.time) $ctime |
      msg $chan 1/4!\1 14New PC world was set, type3 !Pcw/!World14 to see it 1/4!\1
    }
  }
}
on *:TEXT:!change*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ($2- isnum 0-138) {
      set $+(%,pcw.,$chan) $2- | set $+(%,pcw.,$chan,.nick) $nick | set $+(%,pcw.,$chan,.time) $ctime |
      msg $chan 1/4!\1 14New PC world was set, type3 !Pcw/!World14 to see it 1/4!\1
    }
  }
}