world,

alias -l c1 return $+(07,$1-,)
alias -l c2 return $+(14,$1-,)

on *:TEXT:!defineworld*:#pestops: {
  if ($nick isop #) || ($nick ishop #) && ($$2 isnum) {
    set %ownpc $$2
    set %ownpc $+ .time $ctime
    set %ownpc $+ .nick $nick
    /notice $nick New PC world set to %ownpc
    /msg #pest $c2(The current) $c1(pc-world) $c1(has been changed!) $c1(-) $c2(Type: !world)
  }
}
on $*:text:/^[@!]world/Si:#pest,#pestops: {
  if ($me isop $chan) || ($me ishop $chan) {
    if ($nick !isop #) && ($nick !ishop #) {
      hinc -mu45 flood $nick 1
      if ($hget(flood,$nick) >= 3) && (%spamcount < 15) {
        ban -ku300 $chan $nick 2 Stop spamming the bot (Temp Banned - 5 mins)
        hdel flood $nick
      }
    }
  }
}
if (%spam == $null) && ((%spamcount == $null) || (%spamcount < 15)) {
  if (!%ownpc) halt
  else {
    .notice $nick $c1(Current PC World:) $c2(%ownpc) $+ $c1(- Last Update:) $c2($duration($calc($ctime - $eval($+(%,ownpc,.time),2)))) 
    inc -u25 %spamcount 1
  }
}
if (%spamcount >= 15) { 
  set -u5 %spamcount 1
  set -u60 %spam 1 /
  msg $chan $c1(Bot flooded -) $c2(!world) $c1(command is off for) $c2(1 Minute)
}
}