on $*:text:/^[!](setpc|setworld) */Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 isnum 1-138) {
      set %pcworld. [  $+ [ $chan ] ] $2
      set %nickzor. [ $+ [ $chan ] ] $nick
      set %cctime. [ $+ [ $chan ] ] $ctime
      msg $chan 10 the world is changed to:4 %pcworld. [ $+ [ $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) {
    inc -u60 $+(%,cnt.,$nick) 
    if ($($+(%,cnt.,$nick),2) <= 15) { 
      inc %usedpc
      notice $nick 10The world is:4 %pcworld. [ $+ [ $chan ] ] 10Set by:4 %nickzor. [ $+ [ $chan ] ] $+ 10. When:4 $duration($calc($ctime - $eval($+(%,cctime.,$chan),2))) 10ago. Used:4 %usedpc 10times.
    }
    else notice $nick please dont spam the pcworld command.
  }
  else notice $nick no pc world set.
}

on $*:text:/^[@](world|pcw)/Si:#:{
  if (%pcworld.[ $+ [ $chan ] ] != $null) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      inc -u60 $+(%,cnt.,$nick) 
      if ($($+(%,cnt.,$nick),2) <= 15) { 
        inc %usedpc
        msg $chan 10The world is:4 %pcworld. [ $+ [ $chan ] ] 10Set by:4 %nickzor. [ $+ [ $chan ] ] $+ 10. When:4 $duration($calc($ctime - $eval($+(%,cctime.,$chan),2))) 10ago. Used:4 %usedpc 10times.
      }
      else notice $nick please dont spam the world command.
    }
    else notice $nick you need to be halfop or op to do this.
  }
  else notice $nick no pc world set.
}