on $*:text:/^[`~!@,](setpc|setworld|change) */Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %pcworld. [  $+ [ $chan ] ] $2-
    set %nickzor. [ $+ [ $chan ] ] $nick
    set %cctime. [ $+ [ $chan ] ] $ctime
    msg $chan 12 the world is changed `world for it:4. [ $+ [ $chan ] ] $+ .
  }
  else .notice $nick please put a number 1-138.
}
else .notice $nick you dont have rights to do this.


on $*:text:/^[!,~@`](world|pcw)/Si:#:{

  if (%pcworld.[ $+ [ $chan ] ] != $null) {
    if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick == $read(mynick.txt) {
      inc -u60 $+(%,cnt.,$nick) 
      ($($+(%,cnt.,$nick),2) <= 15) { 
        inc %usedpc
        notice $nick 12The world is:4 %pcworld. [ $+ [ $chan ] ] 12Set by:4 %nickzor. [ $+ [ $chan ] ] $+ 12. When:4 $duration($calc($ctime - $eval($+(%,cctime.,$chan),2))) 12ago. Used:4 %usedpc 12times.
      }
      else notice $nick please dont spam the world command.
    }
    else notice $nick you need a voice to do this.
  }
  else notice $nick no pc world set.
}