ok Below is the script... the commands r... 

!pc on !pc off
!setpcw !setworld
!pcw !world
!suggest !wsuggest
!sworld !sw
!autocall on <time in seconds>  !autocall off
!av <name> 




---------------------SCRIPT-------------------------


on $*:Text:/!(setpcw|setworld)/Si:#:{
  if (%pcstatus. [ $+ [ $chan ] ] == off) {
    notice $nick $c1(Pest Control Features Disabled pm an op to activate)
  /halt }
  if (%autostatus. [ $+ [ $chan ] ] == on) {
    notice $nick $c1(Pest Control Autocall on please deactivate before changing world.)
  /halt }
  if ($nick isop $chan) || ($nick ishop $chan)  {
    if ($2 isnum 1-140) {
      set $+(%,pcsetter.,$chan) $nick
      set $+(%,pcw.,$chan) $2
      set $+(%,pcwtime.,$chan) $ctime
      msg $chan $c1(Pc World has been changed! Set by:) $c2($($+(%,pcsetter.,$chan),2)) . $c1(Type) $c2(!world or !pcw) $c1(to view!)
    }
    else notice $nick $c2(Worlds 1-140 only at this time)
  }
  else notice $nick Op only command
}
on $*:Text:/!(pcw|world)/Si:#:{
  if (%pcstatus. [ $+ [ $chan ] ] == off) {
    notice $nick $c1(Pest Control Features Disabled pm an op to activate)
  /halt }
  if ($nick isop $chan) || ($nick ishop $chan) ||  ($nick isvoice $chan) { 
    notice $nick $c1 Pc world: $c2($($+(%,pcw.,$chan),2) ) $c1(set by) $c2($($+(%,pcsetter.,$chan),2)) $c1($duration($calc($ctime - $($+(%,pcwtime.,$chan),2))) Ago.)
  }
}


on $*:Text:/!(suggest|wsuggest)/Si:#:{
  if (%pcstatus. [ $+ [ $chan ] ] == off) {
    notice $nick $c1(Pest Control Features Disabled pm an op to activate)
  /halt }
  if ($nick isop $chan) || ($nick ishop $chan) ||  ($nick isvoice $chan) {
    if ($2 isnum 1-140) {
      set $+(%,ssetter.,$chan) $nick
      set $+(%,spcw.,$chan) $2
      set $+(%,sugtime.,$chan) $ctime
      msg $chan $c1(The Suggested Pc World has been changed! Set by:) $c2($($+(%,pcsetter.,$chan),2). $c1(Type) $c2(!suggested or !sworld) $c1(to view!)
    }
  }
}
on $*:Text:/!(sworld|sw)/Si:#:{
  if (%pcstatus. [ $+ [ $chan ] ] == off) {
    notice $nick $c1(Pest Control Features Disabled pm an op to activate)
  /halt }
  if ($nick isop $chan) || ($nick ishop $chan) ||  ($nick isvoice $chan) {
    notice $nick $c1(The Suggested Pc world is:) $c2($($+(%,spcw.,$chan),2)) $c1(set by) $c2($($+(%,ssetter.,$chan),2)) $c1($duration($calc($ctime - $($+(%,sugtime.,$chan),2))) Ago.)
  }
}
on $*:TEXT:/!autocall*/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) {
    if (!$2) {
      if (%autostatus. [ $+ [ $chan ] ] == $null) {
        set %autostatus. [ $+ [ $chan ] ] on
        notice $nick Pest Control auto announce is on.
      }
      else {
        notice $nick $c1(Pest Control auto announce is %autostatus. [ $+ [ $chan ] ] $+ ).
      }
    }
    if ($2 == off) {
      set %autostatus. [ $+ [ $chan ] ] off
      notice $nick $c1(Pest Control auto announce is now off).
      /timers off
      if ($3 == $null) { notice $nick you have shut off autocall. /halt.
    }
  }
}

  if ($2 == on) {
    set %autostatus. [ $+ [ $chan ] ] on
    /timer 0 $3 msg $chan $c1(Pest Control World) $c2($($+(%,pcw.,$chan),2)) $c1(has been set by:) $c2($($+(%,pcsetter.,$chan),2)).
  }
  elseif ($3 == $null) { notice $nick Please specify the number of seconds per repeat. }

} 
on $*:TEXT:/!pc*/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) {
    if (!$2) {
      if (%pcstatus. [ $+ [ $chan ] ] == $null) {
        set %pcstatus. [ $+ [ $chan ] ] on
        notice $nick Pest Control is on.
      }
      else {
        notice $nick $c1(Pest Control is %pcstatus. [ $+ [ $chan ] ] $+ ).
      }
    }
    if ($2 == off) {
      set %pcstatus. [ $+ [ $chan ] ] off
      notice $nick $c1(Pest Control is now off).
    }
    if ($2 == on) {
      set %pcstatus. [ $+ [ $chan ] ] on
      notice $nick $c1(Pest Control is now on).
    }
  }
}
ON *:TEXT:!av*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    writeini AVLIST.ini ADRESSES $address($2,2) $2
    msg $chan $c1 added $2 to auto voice list
    /mode $chan +v $2
  }
}
on *:join:#:{
  if ($readini(AVLIST.ini,ADRESSES,$address($nick,2))) {
    /mode $chan +v $nick
  }