PCW Script

on $*:Text:/!(pcwset|worldset)/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 
  }