Stuff

ON $*:TEXT:/[!@.](Pest|PCW) off/Si:#Rips,#Rips.staff,#fastpcw,#nucs:{ 
  if ($nick ishop $chan || $Nick isop $chan) {
    if (%scripts == off) {
      notice $nick 10You 14cant 10turn 14something 10off 14that is 14not 7on.
      halt
    }
    if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
      set %scripts off 
      msg $chan 7The 14PestControl 7services 14have 7been 14halted 7by 14 $nick 
      halt
    }
    else {
      notice $nick 7You 14must 7be 14Halfop 7Plus 14to 7use 114this command.
    }
  }
}
ON $*:TEXT:/[!@.](Pest|PCW) On/Si:#Rips,#rips.staff,#fastpcw,#nucs:{ 
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2) && %scripts == off) {
    set %scripts on
    msg $chan 7The 14PestControl 7services 14have 7been 14continued 7by14 $nick 
    halt
  }
  if (%scripts == on) {
    notice $nick 7You 14cant 7turn 14ON 7whats 14not 7off.
    halt
  }
  else {
    notice $nick 7You 14must 7be 14Halfop7 Plus 14to 7use 14this 7command.
  }
}
ON $*:TEXT:/[!@.]clear pcw/Si:#Rips,#rips.staff,#fastpcw,#nucs:{ 
  if (($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    unset %pcw
    msg $chan 7The 14PestControl world has been cleared by7 $nick 
    halt
  }
}
ON $*:TEXT:/[!@.](Change|setpcw)/Si:#rips.staff,#fastpcw,#nucs.staff,#nucs:{
  if (%scripts == off) { halt }
  if ($nick isop $chan || $nick ishop $chan && ($2 isnum 2-144)) {
    if ($2 == %pcw) { notice $nick haha nice try | halt }
    inc %changed [ $+ [ $nick ] ] 
    inc %changed [ $+ [ $2 ] ] 
    set %pcw $2
    set %nick  $nick
    set %time $CTime
    msg #nucs 7The 14PestControl 7world 14has 7been 14changed 7by14 $nick $+ . 
    if ($2 > 144) {
      notice $nick 7The 14world 7must 14be 7Between14 2 7 and 14 144
      halt
    }
  }
}
else {
  notice $nick 7A 14PestControl 7world 14must 7be 14a 7number.
}
ON $*:TEXT:/[!@.]StopPCW/Si:#Rips,#rips.staff,#fastpcw,#nucs:{ 
  if (%scripts == off) { halt }
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    unset %pcw
    unset %nick
    unset %time
    msg $chan 7All 14PestControl 7files 14for7 $chan 14 have 7been 14deleted.
    halt
  }
}
if ($readini(PCW.ini,$chan,World) == $null) { 
  notice $nick
}
ON $*:TEXT:/^[!@.](Suggest|SugWorld)/Si:#Rips,#Rips.staff,#fastpcw,#nucs:{
  set %display1 $iif($left($1,1) == @,msg $chan,notice $nick)
  set %worldz [ $+ [ $chan ] ] $2
  set %nickz [ $+ [ $nick ] ] $nick
  set %timez $ctime
  msg $chan 14[7«14 New suggestion 7»14] 14[7«14 By: 4 %nickz [ $+ [ $nick ] ] 7»14] 14[7«14 World - 4 %worldz [ $+ [ $chan ] ] 7»14] 
  halt
}
ON $*:TEXT:/^[!@.](Pcw|W|World)/Si:#rips,#fastpcw,#nucs,#nucs.staff:{
  if ($nick isvoice $chan || $nick ishop $chan || $nick isop $chan) {
    if (%scripts == off) { halt }
    notice $nick 14[7«14 Pest Control World 7»14] 14[7«14 World: 4 %pcw  7»14] 14[7«14 Set By: 4 %nick  7»14] 14[7«14 Updated:4 $duration($calc($ctime - %time)) ago. 7»14] 14[7«14 Suggested World - 4 %worldz [ $+ [ $chan ] ] 7»14] 14[7«14 Suggested By: 4 %nickz [ $+ [ $nick ] ] 7»14] 
    halt
  }
}
ON $*:TEXT:/^[!@.](Sw|Sworld|Suggested)/Si:#Rips,#Rips.staff,#fastpcw,#nucs: {
  if ($nick ishop $chan || $nick isop $chan) {
    set %display1 $iif($left($1,1) == @,msg $chan,notice $nick)
    %display1 14[7«14 Last Suggestion 7»14] 14[7«14 By: 4 %nickz [ $+ [ $nick ] ] 7»14] 14[7«14 World - 4 %worldz [ $+ [ $chan ] ] 7»14] $duration($calc($ctime - %time)) ago. 
    halt
  }
}
on $*:text:/[!](count|check|sets)/Si:#:{
  if ($nick ishop $chan || $nick isop $chan) {
    if (!$2) {
      if (%changed [ $+ [ $nick ] ] == $null) {
        notice $nick 14You haven't set any worlds yet! | Halt
      }
      elseif (%changed [ $+ [ $nick ] ] != $null) {
        notice $nick 7 $+ $nick 14has set 7 %changed [ $+ [ $nick ] ] 14worlds | Halt 
      }
    }
    else {
      if (%changed [ $+ [ $2 ] ] == $null) {
        notice $nick 14 They haven't set any worlds yet! | Halt 
      } 
      elseif (%changed [ $+ [ $2 ] ] != $null) {
        notice $nick 7 $+ $2 14has set 7 %changed [ $+ [ $2 ] ] 14 worlds 
      }
    }
  } 
}
on $*:text:/[@](count|check|sets)/Si:#:{
  if ($nick ishop $chan || $nick isop $chan) {
    if (!$2) {
      if (%changedvoice [ $+ [ $nick ] ] == $null) {
        msg $chan 14You haven't set any worlds yet! | Halt
      }
      elseif (%changedvoice [ $+ [ $nick ] ] != $null) {
        msg $chan 7 $+ $nick 14has set7 %changed [ $+ [ $nick ] ] 14worlds | Halt 
      }
    }
    else {
      if (%changedvoice [ $+ [ $2 ] ] == $null) {
        msg $chan 14 They haven't voiced anyone yet! | Halt 
      } 
      elseif (%changedvoice [ $+ [ $2 ] ] != $null) {
        msg $chan 7 $+ $2 14has set 7 %changed [ $+ [ $2 ] ] 14 worlds
      }
    }
  } 
}