Someone

on *:TEXT:!pc-off*:#:{ if ($nick isop $chan || $nick ishop $chan) {
    if (%pestscript [ $+ [ $chan ] ] == OFF) { notice $nick 3][ 5The PCW command is already 4OFF 3][ } { Halt }
    msg $chan 3][5The PCW command has been turned 4OFF.3][
set %pestscript [ $+ [ #nucs ] ] OFF } } 

on *:TEXT:!pc-on*:#:{ if ($nick isop $chan || $nick ishop $chan) {
    if (%pestscript [ $+ [ $chan ] ] == ON) { notice $nick 3][ 5The PCW command is already 4ON 3][ } { Halt }
    msg $chan 3][5The PCW command has been turned 4ON.3][
set %pestscript [ $+ [ #nucs ] ] ON } }

on $*:text:/!(setpcw|setworld|change)*/Si:#nucs.staff: { if (%pestscript == OFF) { HALT }
  if ($3 == $null) { 
    if (%pestscript [ $+ [ #nucs ] ] == ON) && ($2 isnum 2-138) && ($nick isop $chan) || ($nick ishop $chan) {
      if ($3 == $null) { 
        set %world [ $+ [ #nucs ] ] $2
        set %scouted [ $+ [ #nucs ] ] $nick
        set %pcw.time [ $+ [ #nucs ] ] $ctime
        inc %scout.count [ $+ [ #nucs ] ] [ $+ [ $nick ] ] 
        msg #nucs 3][][ 5The World has changed type !world or !pcw to view it! 3][][ 
        halt
      }
    }
  }
  else { 
    if (%pestscript [ $+ [ #nucs ] ] == OFF) { HALT } 
    if (%pestscript [ $+ [ #nucs ] ] == ON) && ($2 isnum 2-138) && ($nick isop $chan) || ($nick ishop $chan) {
      set %world [ $+ [ #nucs ] ] $2
      set %scouted [ $+ [ #nucs ] ] $3
      set %pcw.time [ $+ [ #nucs ] ] $ctime 
      inc %scout.count [ $+ [ #nucs ] ] [ $+ [ $3 ] ]
      msg #nucs 3][][ 5The World has changed type !world or !pcw to view it! 3][][ 
      halt
    }
  }
}
on $*:text:/!(world|pcw|pc)/Si:#: { if (%pestscript [ $+ [ $chan ] ] == OFF) { notice $nick 3][][The PCW command has been turned off for $chan to turn on type !pc-on  3][][ | HALT }
  elseif (%pestscript [ $+ [ $chan ] ] == ON ) {
    if (%world [ $+ [ $chan ] ] == $null || %scouted [ $+ [ $chan ] ] == $null || %pcw.time [ $+ [ $chan ] ] == $null) { notice $nick 3][][ 5There is currently no world set. 3][ 5To set one type !setpcw world scouter (Op/half only) 3][][ | halt }
    else { /notice $nick 3][][ 5World:3 ][ %world [ $+ [ $chan ] ] ][ 5Scouted by:3 ][ %scouted [ $+ [ $chan ] ] ][ 5last set: $duration($calc( $ctime - %pcw.time [ $+ [ $chan ] ] )) 5ago. 3][][
      inc %cmut [ $+ [ $chan ] ]
      if (%cmut [ $+ [ $chan ] ] == 70) { unset %cmut [ $+ [ $chan ] ]  |  /quit Lag meter max, Restarting |  /timer 1 0 /server irc.swiftirc.net  } 
    }
  }
}
on $*:text:/@(world|pcw|pc)/Si:#: { if (%pestscript [ $+ [ $chan ] ] == OFF) { HALT }
  elseif (%pestscript [ $+ [ $chan ] ] == ON ) && ($nick isop $chan || $nick ishop $chan) {
    if (%world [ $+ [ $chan ] ] == $null || %scouted [ $+ [ $chan ] ] == $null || %pcw.time [ $+ [ $chan ] ] == $null) { msg $chan 3][][ 5There is currently no world set. 3][ 5To set one type !setpcw world scouter (Op/half only) 3][][ } { Halt }
    msg $chan 3][][ 5World:3 ][ %world [ $+ [ $chan ] ] ][ 5Scouted by:3 ][ %scouted [ $+ [ $chan ] ] ][ 5last set: $duration($calc( $ctime - %pcw.time [ $+ [ $chan ] ] )) 5ago. 3][][
  }
}
on *:text:!reset*:#:{ if (%pestscript [ $+ [ $chan ] ] == ON) && ($nick isop $chan || $nick ishop $chan) {
    unset %world [ $+ [ $chan ] ] 
    unset %scouted [ $+ [ $chan ] ]
    unset %pcw.time [ $+ [ $chan ] ]
  notice $nick 3][][5 $nick has reset the pcw info 3][][  }
}

on *:text:!commands:#:{ msg $nick 3][][5 PC commands for $me 3][][
  msg $nick 3][5 !pcw !pc !world - shows current world 3][
  msg $nick 3][5 !setpcw !setworld !change - changes the Pcw 3][
  msg $nick 3][5 !pc-on - turns the pc script on 3][
  msg $nick 3][5 !pc-off - turns the pc script off 3][
  msg $nick 3][5 !setstaff - Sets the staff chan for your channel. (Will send suggestions there) 3][5 
  msg $nick 3][5 !suggest|wsug|sug|wsuggest world reason will send suggested worlds to your staff channel 3][5  
  msg $nick 3][5 !scouts nick - Shows how many scouts the person has (set by !setpcw world scouter) 3][5 
  msg $nick 3][5 !delscouts - Deletes all scouts everyone has had. 3][5 
}
on $*:text:/!(scouts|scout)/Si:#:{ 
  if ($2 == $null) && (%scout.count [ $+ [ $chan ] ] [ $+ [ $nick ] ] == $null) { notice $nick 3][5 $nick has No Scouts 3][5 | Halt }
  elseif ($2 == $null) { notice $nick 3][5 $nick has %scout.count [ $+ [ $chan ] ] [ $+ [ $nick ] ] scouts 3][5 }
  elseif (%scout.count [ $+ [ $chan ] ] [ $+ [ $2 ] ] == $null) { notice $nick 3][5 $2 has No Scouts 3][5 }
  else { /notice $nick 3][5 $2 has %scout.count [ $+ [ $chan ] ] [ $+ [ $2 ] ] Scouts. 3][5 }
}
on *:text:!delscouts*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    unset %scout.count [ $+ [ $chan ] ] **
    notice $nick 3][5 All scouts have been deleted for $chan 3][5
  }
}
on $*:text:/@(scouts|scout)/Si:#:{ 
  if ($2 == $null) && (%scout.count [ $+ [ $chan ] ] [ $+ [ $nick ] ] == $null) { msg $chan 3][5 $nick has No Scouts 3][5 | Halt }
  elseif ($2 == $null) { msg $chan 3][5 $nick has %scout.count [ $+ [ $chan ] ] [ $+ [ $nick ] ] scouts 3][5 }
  elseif (%scout.count [ $+ [ $chan ] ] [ $+ [ $2 ] ] == $null) { msg $chan 3][5 $2 has No Scouts 3][5 }
  else { msg $chan 3][5 $2 has %scout.count [ $+ [ $chan ] ] [ $+ [ $2 ] ] Scouts. 3][5 }
}
on $*:text:/!(restart|die)/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {
    unset %cmut [ $+ [ $chan ] ]
    /quit Request restart by $nick 
    /timer 1 2 /server irc.swiftirc.net
  }
}
on *:connect:{ 
  /mode $me +TBp
  /ns id pass
  /join #nucs
/join #nucs.staff
}
on $*:text:/[@!](Part $me)/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {
    /part $chan Part command requested by $nick
  }
}
on *:disconnect:#: { if ($nick == $me) {
    /server digipen.wa.us.swiftirc.net
  }
}
===========================================================================
Script 2
=========================================================================
on *:text:!aov *:#: { if ($2 == $null) { notice $nick Please specify someone to autovoice | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) { 
    set %aov.nick [ $+ [ #nucs ] ] $2
    /mode $chan +v $2
    msg $chan $2 has currently been added to the Autovoice list. 
  }
}
on *:text:!dav *:#: { if ($2 == $null) { notice $nick Please specify someone to autovoice | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) { 
    unset %aov.nick [ $+ [ #nucs ] ] $2
    msg $chan $2 has currently been deleted from the Autovoice list. 
  }
}

on *:join:#nucs: { if ($nick ishop $chan) || ($nick isop $chan) { halt }
  elseif (%aov.nick [ $+ [ #nucs ] ] == $nick) {
    /mode $chan +v $nick 
  }
}

on *:text:!rsn *:#nucs: { if ($2 == $null) { halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    /ban -ku20 $chan $2 Please use your Runescape name in this channel.
  }
}
on *:text:~mkick *:#nucs: { if ($2 == $null) { notice $nick Please add someone for them to PM | halt }
  elseif ($nick isop $chan) || ($nick ishop $chan) {
    Var %r = 1
    While (%r <= $nick($chan,0,r)) {
      Ban -ku20 $chan $nick($chan,%r,r) PM $2 in game for voice
      Inc %r
    }
  }
}