alias c1 return $+(,12,$1-)
alias c2 return $+(,01,$1-)
alias c3 return $+(,04,$1-)
on *:TEXT:!bldel*:#:{
  if ($nick === Curt) {
    write -d blacklist.txt $address($2,2)
    notice $nick $c2 $+ Deleted 1(3 $+ $2 $+ 1) $c3 $+ $address($2,2) $c2 $+ From the 4B1lack-4L1ist List sucessfuly
  }
  else { notice $nick $c2 $+ Error 1(3 $+ $2 $+ 1) $c3 $+ $address($2,2) $c2 $+ is not on the blacklist
  }
}
on *:TEXT:!blacklist*:#:{
  if ($2 == $null) { notice $nick $c1 $+ You need to enter a nickname to blacklist | HALT }
  if ($nick isop $chan) || ($nick === Curt) {
    write blacklist.txt $address($2,2)
    set $+(%,reason,$address($2,2)) $3-
    ban -k $chan $2 $c2 $+ You have been 4B1lack - 4L1isted $c3 $+ Reason: $c2 $+ $3-
    notice $nick $c2 $+ Added 1(3 $+ $2 $+ 1) $c3 $+ $address($2,2)  $c2 $+ To the 4B1lack-4L1ist List sucessfuly
  }
  else { notice $nick $c2 $+ Error $c1 $+ You need half-op or higher to use that command
  }
}
on $*:TEXT:/^[!](world|pcw|p|w|pc)/Si:#:{
  if (%pesttimebot == on) {
    if (!wl isin $1-) { HALT }
    inc $+(%,uses,$chan)
    notice $nick $c1 $+ |' $+ $c3 Current world: $+ $c2 $hget(pcw,world) $+ $c1 '|' $c3 $+ Updated: $c2 $+ $+($duration($calc($ctime - %pcsettime)),) $+ $c1 '|' $c3 $+ Uses: $c2 $+ $($+(%,uses,$chan),2) $c1 $+ '|
  }
}
on $*:TEXT:/^[@](world|pcw|w|pc)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    inc $+(%,uses,$chan)
    notice + $+ $chan $c1 $+ |' $c3 $+ Current world: $+ $c2 $($+(%,pcw,$chan),2) $c1 $+ '|' $+ $c3 Last world: $c2 $+ $($+(%,lastworld,$chan),2) $c1 $+ '|' $+ $c3 Changed by: $c2 $+ $($+(%,pcnick,$chan),2) $c1 $+ '|
  }
  else { notice $nick $c2 $+ Error $c1 $+ You need half-op or higher to use this command
  }
}


on *:TEXT:!suggest*:#:{
  if (%pesttimebot == on) {
    set $+(%,sug,$chan) $2
    set %kwworld %sug
    notice $nick $c1 $+ Thanks for making a suggestion it will be reviewed A.S.A.P
    msg #pest-time.staff $c1 $+ |' $c2 $+ $nick has Suggested The world $2. $c1 $+ '|' $+ $c2 If the suggested world is good type !setsug $c1 $+ '| 
  }
}

on *:TEXT:!setsug:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) && (%pesttimebot == on) {
    set $+(%,lastworld,$chan) $($+(%,pcw,$chan),2)
    timer 1 1 set $+(%,pcw,$chan) $($+(%,sug,$chan),2)
    msg #pest-time $c1 $+ |' $c3 $+ New world $+ $c2 $hget(sug,world) $c1 $+ '|' $+ $c3 Last world $c2 $+ $hget(oldpcw,world) $c1 $+ '|' $+ $c3 Changed by: $c2 $+ $nick $c1 $+ '|
  }
  else { notice $nick $c2 $+ Error $c1 $+ You need half-op or higher to use this command | HALT
  }
}

on *:JOIN:#:{
  set %jnickn $nick
  set %whochan $chan
  set $+(%,whoon,$chan) on
  whois $nick
  set %wchan $chan

  if ($address($nick,2) iswm $read(blacklist.txt)) {
    ban -k $chan $nick $c2 You have been found on the blacklist $c3 $+ Reason: $($+(%,reason,$address($nick,2)),2)
  }
  inc -u7 $+(%,jspam,$chan,$nick)
  if ($($+(%,jspam,$chan,$nick),2) >= 3) {
    mode $chan +i
    timer 1 20 mode $chan -i
    mode $chan +b $address($nick,2)
    ban $chan -ku600 $nick $c1 $+ |' 5Flood join detected. $c1 $+ '|' $c2 $+ $Nick $c1 $+ '|' $c3 $+ 10 min ban $c1 $+ '|
  }
  if ($($+(%,cmbcheck,$chan),2) == on) {
    set %cnick $nick
    pr $nick
    set %cmbchan $chan
    set %cmbaddy $address($nick,2)
    notice $nick $c1 $+ Message $c3 $+ $($+(%,pm,$chan),2) $c2 $+ ingame for auto-voice on $chan
  }
}

raw 319:*: {
  if (#pc isin $3-) || (#pcelites isin $3-) || (#fastpcw isin $3-) || (#pest-hq isin $3-) || (#rspc isin $3-) || (#n0noobpest isin $3-) || (#luckypc isin $3-) || (#hq isin $3-) || (# isin $3-) || (#thepc isin $3-) { msg #pest-time.staff 4Action has been taken against %jnickn For multi-channeling. | /ban -ku300 #pest-time %jnickn $c1 Your on a banned channel please leave it then rejoin. $c3 $+ 5 min ban. }
  msg #pest-time.staff $c1 $+ %jnickn $c2 $+ Channels $c3 $+ $3-
  unset %jnickn
  unset %whochan
  unset $+(%,whoon,$chan) 
  unset %wchan
}
on $*:TEXT:/^[!](change|setpcw|setpc|setworld)/Si:#:{
  set $+(%,kkworld,$chan) off
  timer 1 5 /set $+(%,kkworld,$chan) yes
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick === Curt) {
    if  ($2 == $($+(%,pcw,$chan),2)) { |' notice $nick $c2 $+ Error $c1 $+ That world is already set | HALT }
    set $+(%,lastworld,$chan) $($+(%,pcw,$chan),2)
    timer 1 1 set $+(%,pcw,$chan) $2
    set $+(%,pcnick,$chan) $nick
    set %pcsettime $ctime 
    set %kwworld $2
    inc $+(%,setworld,#pest-time,$nick) 
    if (%pesttimebot != off) {
      msg #pest-time $c1 $+ |' $c3 $+ New world $+ $c2 $2 $c1 $+ '|' $+ $c3 Last world $c2 $+ $($+(%,lastworld,$chan),2) $c1 $+ '|' Changed by: $c2 $+ $nick $c1 $+ '|
    }
  }
  else { notice $nick $c2 $+ Error $c1 $+ You need half-op or higher to use this command | HALT }
}

on *:TEXT:!av*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick  === Curt) {
    if ($address($2,2) isin $read(av.txt,w, $address($2,2) )) { notice $nick $c2 $+ Error 1(3 $+ $2 $+ 1) $c3 $+ $address($2,2) $c2 $+ is already on the 4A1uto-4V1oice list | HALT  }
    write av.txt $address($2,2) {
      inc $+(%,voice,#pest-time,$nick) 
      notice $nick $c2 $+ Added 1(3 $+ $2 $+ 1) $c3 $+ $address($2,2)  $c2 $+ To the 4A1uto-4V1oice List sucessfuly
      mode $chan +v $2
    }
  }
}

on *:TEXT:!delav*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick  === Curt) {
    if ($address($2,2) isin $read(av.txt,w, $address($2,2) )) {
      write -d av.txt $address($2,2)
      notice $nick $c2 $+ Deleted 1(3 $+ $2 $+ 1) $c3 $+ $address($2,2) $c2 $+ From the 4A1uto-4V1oice list successfully | halt
    }
    else { notice $nick $c2 $+ Error 1(3 $+ $2 $+ 1) $c3 $+ $address($2,2) $c2 $+ is not on the 4A1uto-4V1oice list
    }   
  }
}

on *:TEXT:*check*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    if (!cmbcheck isin $1-) { HALT }
    if (! isin $1-) { set %msgstyle notice $nick }
    if (@ isin $1-) { set %msgstyle msg $chan }
    if ($2 == $null) { set %2 $nick 
      %msgstyle $c3 $+ %2 $c2 $+ has 4A1uto - 4V1oiced $c3 $+ $($+(%,voice,#pest-time,%2),2) $c2 $+ Nicks
      %msgstyle $c3 $+ %2 $c2 $+ has set $c3 $+ $($+(%,setworld,#pest-time,%2),2) 4P1est - 4C1ontrol $c2 $+ worlds.
      unset %2
    } 
    else { set %2 $2
      %msgstyle $c3 $+ %2 $c2 $+ has 4A1uto - 4V1oiced $c3 $+ $($+(%,voice,#pest-time,%2),2) $c2 $+ Nick
      %msgstyle $c3 $+ %2 $c2 $+ has set $c3 $+ $($+(%,setworld,#pest-time,%2),2) 4P1est - 4C1ontrol $c2 $+ worlds.
      unset %2
      unset %msgstyle
    }
  }
}

on *:TEXT:*testav *:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    if (!cmbcheck isin $1-) { HALT }
    if (! isin $1-) { set %msgstyle notice $nick }
    if (@ isin $1-) { set %msgstyle msg $chan }
    set %hnick $3
    set %lnick $2
    if ($($+(%,voice,$chan,$2),2) > $($+(%,voice,$chan,$3),2) ) { set %hnick $2 | set %lnick $3 }
    %msgstyle $c3 $+ $2 $c2 $+ has Auto - voiced $c3 $+ $($+(%,voice,$chan,$2),2) $c2 $+ and $c3 $+ $3 $c2 $+ has 4A1uto-4V1oiced $c3 $+ $($+(%,voice,$chan,$3),2) 
    %msgstyle $c3 $+ %hnick $c2 $+ has Auto - voiced  $c3 $+ $calc( $($+(%,voice,$chan,%hnick),2) - $($+(%,voice,$chan,%lnick),2) ) $c2 $+  more nicks than $c3 $+ %lnick  
  }
}
on *:TEXT:*testpc*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    if (!cmbcheck isin $1-) { HALT }
    if (! isin $1-) { set %msgstyle notice $nick }
    if (@ isin $1-) { set %msgstyle msg $chan }
    set %hnick $3
    set %lnick $2
    if ($($+(%,setworld,$chan,$2),2) > $($+(%,setworld,$chan,$3),2) ) { set %hnick $2 | set %lnick $3 }
    %msgstyle $c3 $+ $2 $c2 $+ has set $c3 $+ $($+(%,setworld,$chan,$2),2) $c2 $+ Worlds and $c3 $+ $3 $c2 $+ has set $c3 $+ $($+(%,setworld,$chan,$3),2)
    %msgstyle $c3 $+ %hnick $c2 $+ has set $c3 $+ $calc( $($+(%,setworld,$chan,%hnick),2) - $($+(%,setworld,$chan,%lnick),2) ) $c2 $+  more Worlds than $c3 $+ %lnick  
  }
}
on 4:JOIN:#pest-time: {
  mode $chan +v $nick
}
on *:TEXT:!rsn*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    ban -ku5 $chan $2 $c2 $+ Please rejoin using your $c3 $+ R $+ $c2 $+ unescape $c3 $+ N $+ $c2 $+ ame. $c3 $+ 5 sec ban.
  }
}
on *:TEXT:!decline*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    if ($2 isop $chan) || ($2 ishop $chan) { HALT } {
      ban -ku600 #pest-time $2 $c2 $+ Sorry you do not meet the requirements come back when you do
    }
  }
}
on *:INVITE:#: { 
  if ($chan == #pest-time) || ($chan == #pest-time.staff) || ($chan == #pest-time.verify) {
    /join $chan 
  }
}

on *:TEXT:!mkick:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick === Curt) {
    /kreges $chan
  }
}
alias kreges {
  mode #pest-time +i
  timer 1 3 /mode #pest-time -i
  var %a = $nick($1,0)
  while ($nick($1,%a) isreg $1) {
    kick $1 $nick($1,%a) $c2 $+ For auto-voice message $c3 $+ $($+(%,pm,$chan),2) $c2 $+ in runescape
    dec %a
  }
}
on *:TEXT:!setpm*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    if ($($+(%,pm,$chan),2) == $2-) { notice $nick $c1 $+ Sorry those users are already set | HALT }
    set $+(%,pm,$chan) $2-
    if (%pesttimebot == on) {
      notice $nick $c1 $+ The @pm command for $chan has been set to nickname(s) $+ $c3 $2-
    }
  }
}

on *:TEXT:@pm:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) && %pesttimebot {
    /pmv $chan
    notice $nick $c1 $+ |' $c2 $+ Message successfully sent Available Nicks: $c3 $+ $($+(%,pm,$chan),2) $c2 $+ *|
  }
}
on *:TEXT:pm?:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    notice $nick $c2 $+ Available to pm in runescape $c3 $+ $($+(%,pm,$chan),2)
  }
}
alias pmv {
  var %a = $nick($1,0)
  while ($nick($1,%a) isreg $1) {
    msg $nick($1,%a) $c1 $+ Message $c3 $+ $($+(%,pm,$chan),2) $c1 $+ ingame for auto-voice on $chan
    notice $nick($1,%a) $c1 $+ Message $c3 $+ $($+(%,pm,$chan),2) $c1 $+ ingame for auto-voice on $chan
    dec %a
  }
}
on *:TEXT:!bot on:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    set %pesttimebot on
    notice $nick $c1 $+ |' $c2 $+ 4S1cope 4E1nabled. $c1 $+ '| 
  }
}
on *:TEXT:!bot off:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == Curt) {
    set %pesttimebot off
    notice $nick $c1 $+ |' $c2 $+ 4S1cope 4D1isabled. $c1 $+ '| 
  }
}