Untitled

on *:TEXT:!set pc *:#: { if ($nick isop $chan) {
    if ($3 == on) && (%pcchan. [ $+ [ $chan ] ] == on) {
      notice $nick 7The 4Pest Control7 Setting is already enabled.
      halt
    }
    if ($3 == on) && (%pcchan. [ $+ [ $chan ] ] == $null) {
      set %pcchan. [ $+ [ $chan ] ] on
      notice $nick 7The 4Pest Control7 now 4ON7 for channel4 $chan $+ 7.
      halt
    }
    if ($3 == off) && (%pcchan. [ $+ [ $chan ] ] == $null) {
      notice $nick 7The 4Pest Control7 Setting is already 4OFF7 for channel4 $chan $+ 7.
      halt
    }
    if ($3 == off) && (%pcchan. [ $+ [ $chan ] ] == on) {
      unset %pcchan. [ $+ [ $chan ] ] 
      notice $nick 7The 4Pest Control7 now 4OFF7 for channel4 $chan $+ 7.
      halt
    }
  }
}





on *:TEXT:!setworld *:#:{ if (%pcchan. [ $+ [ $chan ] ] == $null) { HALT }
  if ($2 >= 2) && ($2 <= 138) {
  }
  if ($nick isop $chan || $nick ishop $chan) {
    set %pcworld. [ $+ [ $chan ] ] $2 
    set %pcwd. [ $+ [ $chan ] ] $ctime
    set %pcwnick. [ $+ [ $chan ] ] $nick
    notice $nick 7World changed to4 %pcworld. [ $+ [ $chan ] ]
    msg $chan 7Pest Control 4World7 Has 4Changed7 - Type [4!world7|4!pcw7]
  }
}

on *:TEXT:!setworld *:?: { if (%pcchan. [ $+ [ $3 ] ] == $null) { HALT }
  if ($2 >= 2) && ($2 <= 138) {
    if ($nick isop $3 || $nick ishop $3) {
      set %pcworld. [ $+ [ $3 ] ] $2
      set %pcwd. [ $+ [ $3 ] ] $ctime
      set %pcwnick. [ $+ [ $3 ] ] $nick
      notice $nick 7World changed to4 %pcworld. [ $+ [ $3 ] ]
      msg $3 7Pest Control 4World7 Has 4Changed7 - Type [4!world7|4!pcw7]
    }
  }
}

on *:TEXT:!world:#: { if (%pcchan. [ $+ [ $chan ] ] == $null) { HALT }
  if (%pcworld. [ $+ [ $chan ] ] == $null) { halt }
  { 
    notice $nick 7The Pest Control World is:4 %pcworld. [ $+ [ $chan ] ] 7Duration:4 $duration($calc($ctime - %pcwd. [ $+ [ $chan ] ] )) 
  }
}