on *:connect:{
  if (%pp-update-next == yes) {
    if ($dialog(pp-update) == $null) { dialog -m pp-update pp-update }
    else { dialog -v pp-update }
    set %pp-update-next no
  }
} 
on *:disconnect:{
  remini $ppdir $+ pp-ial.ini users
  unset %pp-flood-nicks*
  unset %repeat*
  unset %pp-mass-nicks*
  unset %pp-mass-opnicks-*
  unset %pp-mass-deopnicks-*
}
on *:quit:{
  remini $ppdir $+ pp-ial.ini users $nick
  ;-------------------- ( NETSPLIT GUARD ) --------------------
  set %i $ini($ppdir $+ pp.ini,0)
  set %j 1
  if ($file($script).mtime > $readpp(pp,installed)) { did-ra $dname 90 %radndnum }
  while (%j <= %i) {
    if ($readpp($ini($ppdir $+ pp.ini,%j),flood-join) == 1) {
      set %pp-quit-nicks %pp-quit-nicks $nick
      .timer-rem-quit- $+ $nick $+ $findtok(%pp-quit-nicks,$nick,0,32) 1 $readpp($ini($ppdir $+ pp.ini,%j),flood-time) set %pp-quit-nicks $eval($deltok(%pp-quit-nicks,$wildtok(%pp-quit-nicks,$nick,1,32),32),0)
      if ($numtok(%pp-quit-nicks,32) == $readpp($ini($ppdir $+ pp.ini,%j),flood-lines)) {
        pp-netsplit
        break
      }
    }
    inc %j
  }
}
alias ppdir { return $nofile($shortfn($script)) }
on *:unload:/unset %pp-* | .unload -rs $script
on *:exit:/unset %pp-update-next
on *:start:{ 
  if ($readpp(pp,auto-update) == 1) {
    set %pp-update-next yes
    set %pp-version 3.05
  }
}
alias ppaddress {
  return $readini($ppdir $+ pp-ial.ini,users,$1)
}
alias ppap {
  return $readpp(pp,ppap)
}
dialog pp-user {
  title "Userlist"
  size -1 -1 165 116
  option dbu
  box "Users", 45, 2 3 160 93
  box "Channel", 46, 7 11 85 21
  radio "Craplisted", 62, 8 75 37 8
  radio "Friend", 63, 62 75 28 8
  radio "Auto-Voice", 67, 107 75 40 8
  radio "Normal Op", 68, 8 84 37 8
  radio "Protected", 9, 62 84 36 8
  radio "Ultra-Protected", 11, 107 84 49 8
  text "Protection Pro v3.05 - By Ringer DaMan", 12, 2 99 160 8, disable center
  button "Add", 52, 105 19 20 10
  button "Rem", 61, 128 19 20 10
  list 51, 5 35 153 38, disable size
  combo 49, 9 19 81 50, size drop
  menu "File", 1
  item "Exit", 4, 1, ok
  menu "Windows", 5
  item "Channel Protections", 6, 5
  item "Private Protections", 7, 5
  item break, 2, 5
  item "Update", 10, 5
  menu "Help", 8
  item "Topics", 3, 8
  item break, 76, 8
  item "About", 74, 8
  item break, 13, 8
  item "Unlock Editing", 14, 8
}
on *:nick:{
  if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
  who $newnick
}
alias slevel {
  if ($ilevel($1,$2) == 52) { return Ultra-Protected }
  if ($ilevel($1,$2) == 51) { return Protected }
  if ($ilevel($1,$2) == 50) { return Normal Op }
  if ($ilevel($1,$2) == 49) { return Auto-Voiced }
  if ($ilevel($1,$2) == 2) { return Friend }
  if ($ilevel($1,$2) == 25) { return Craplisted }
}

menu nicklist {
  .-
  <== ( Protection Pro ) ==>:{
    if ($dialog(pp) == $null) { dialog -mdie pp pp }
    else { dialog -v pp }
  }
  .-
  Add/Remove User(s):{
    set %pp-user-chan #
    set %i $snick(#,0)
    set %j 1
    while (%j <= %i) {
      set %pp-current-nick $snick(#,%j)
      dialog -m pp-addrem $+ %j pp-addrem
      did -ra pp-addrem $+ %j 14 $snick(#,%j)
      did -ra pp-addrem $+ %j 8 $address($snick(#,%j),0)
      did -a pp-addrem $+ %j 8 $address($snick(#,%j),1)
      did -a pp-addrem $+ %j 8 $address($snick(#,%j),2)
      did -a pp-addrem $+ %j 8 $address($snick(#,%j),3)
      did -a pp-addrem $+ %j 8 $address($snick(#,%j),4)
      did -c pp-addrem $+ %j 8 3
      inc %j
    }
  }
  What Are The Color Levels?:{
    window -ak0 +l @PP-Users 1 1 125 125
    echo 12 @PP-Users Ultra-Protected
    echo 12 @PP-Users 10 Protected
    echo 12 @PP-Users 3 UnProtected
    echo 12 @PP-Users 7 Auto-Voiced
    echo 12 @PP-Users 14 Friend
    echo 12 @PP-Users 4 Craplisted
  }
}
menu channel,menubar,status {
  -
  <== ( Protection Pro ) ==>:{
    if ($dialog(pp) == $null) { dialog -mdie pp pp }
    else { dialog -v pp }
  } 
}
menu query { 
  -
  <== ( Protection Pro ) ==>:{
    if ($dialog(pp) == $null) { dialog -mdie pp pp }
    else { dialog -v pp }
  }
  .-
  Add/Remove User:{
    set %unick $active
    dialog -m pp-addrem pp-addrem
    did -ra pp-addrem 14 %unick
    if ($len($address(%unick,0)) == 0) {
      did -ra pp-addrem 8 $mask($ppaddress(%unick),0)
      did -a pp-addrem 8 $mask($ppaddress(%unick),1)
      did -a pp-addrem 8 $mask($ppaddress(%unick),2) 
      did -a pp-addrem 8 $mask($ppaddress(%unick),3)
      did -a pp-addrem 8 $mask($ppaddress(%unick),4)
      did -c pp-addrem 8 3
      return
    }
    did -ra pp-addrem 8 $address(%unick,0)
    did -a pp-addrem 8 $address(%unick,1)
    did -a pp-addrem 8 $address(%unick,2)
    did -a pp-addrem 8 $address(%unick,3)
    did -a pp-addrem 8 $address(%unick,4)
    did -c pp-addrem 8 3
  }
}
alias readpp {
  return $readini($ppdir $+ pp.ini,$1,$2)
}
alias readppu {
  return $readini($ppdir $+ pp-user.ini,$1,$2)
}
raw 352:*:{
  writeini -n $ppdir $+ pp-ial.ini users $6 *!* $+ $3 $+ @ $+ $4
  if (%who > 0) { halt }
}
raw 315:*:{
  if ($readpp(pp,pp-color) == 1) {
    if ($comchan($2,0) > 0) {
      pp-show-user-color $2
    }
    else { pp-join-colors $2 }
  }
  if (%who > 0) { dec %who | halt }

}
raw 311:*:{
  writeini -n $ppdir $+ pp-ial.ini users $2 *!* $+ $3 $+ @ $+ $4
}

alias pp-show-user-color {
  set %i $comchan($1,0)
  set %j 1
  while (%j <= %i) {
    if ($icolor($comchan($1,%j),$1) == 1) { cline 1 $comchan($1,%j) $fline( $+ $comchan($1,%j) $+ ,* $+ $1 $+ *,1,1) -r }
    else { cline $icolor($comchan($1,%j),$1) $comchan($1,%j) $fline( $+ $comchan($1,%j) $+ ,* $+ $1 $+ *,1,1) }
    inc %j
  }
}
on ^1:HOTLINK:*here*:*:{
  if (ignored !isin $strip($hotline,burc)) { halt }
  hotlink-nick $hotline 
}
on 1:HOTLINK:*:*:{
  dialog -m pp-addrem pp-addrem 
  did -ra pp-addrem 14 %unick
  did -ra pp-addrem 14 %unick
  if ($len($address(%unick,0)) == 0) {
    did -ra pp-addrem 8 $mask($ppaddress(%unick),0)
    did -a pp-addrem 8 $mask($ppaddress(%unick),1)
    did -a pp-addrem 8 $mask($ppaddress(%unick),2) 
    did -a pp-addrem 8 $mask($ppaddress(%unick),3)
    did -a pp-addrem 8 $mask($ppaddress(%unick),4)
    did -c pp-addrem 8 3
    return
  }
  did -ra pp-addrem 8 $address(%unick,0)
  did -a pp-addrem 8 $address(%unick,1)
  did -a pp-addrem 8 $address(%unick,2)
  did -a pp-addrem 8 $address(%unick,3)
  did -a pp-addrem 8 $address(%unick,4)
  did -c pp-addrem 8 3
}
ctcp *:dcc chat *:?:{
  if ($ppaddress($nick) == $null) {
    if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
    .who $nick
  }
}

on *:sockopen:pp-wingate-*:{
  if ($readpp($gettok($sockname,2,59),wingate-guard) == 1) {
    if ($sockerr > 0) {
      sockclose $sockname 
      return 
    }
    set %wingate-chan $gettok($sockname,2,59)
    set %wingate-nick $gettok($sockname,3,59)
    if ($readpp($gettok($sockname,2,59),wingate-ban) == 1) {
      if ($readpp($gettok($sockname,2,59),wingate-ban-time) == 0) {
        ban $gettok($sockname,2,59) $gettok($sockname,3,59) $readpp(pp,wingate-ban-type)
      }
      else {
        ban -u $+ $readpp(%wingate-chan,wingate-ban-time) $gettok($sockname,2,59) $gettok($sockname,3,59) $readpp(%wingate-chan,wingate-ban-type)
      }
    }
    if ($readpp(%wingate-chan,wingate-kick) == 1) { kick $gettok($sockname,2,59) $gettok($sockname,3,59) $readpp(%wingate-chan,wingate-kick-msg) }
    if ($len($readpp(%wingate-chan,wingate-other)) > 0) { 
      set %pp-other $eval($replace($readpp($chan,wingate-other),^,$),2)
      set %x $numtok(%pp-other,124)
      set %y 1
      while (%y <= %x) {
        .timer 1 %y $gettok(%pp-other,%y,124)
        inc %y
      }
    }
    pp-echo $readpp(pp,echo-win) Wingate Detected:7 $gettok($sockname,2,59) 12 $+ $gettok($sockname,3,59)   5Address:7 $address($gettok($sockname,3,59),0)  5Port:7 $sock($sockname).port
  }
}
on *:sockopen:pp-update:{
  sockwrite -n pp-update request = ppupdate $calc($file($scriptdir $+ pp305.mrc).size + $file($scriptdir $+ pp-help.txt).size + $file($scriptdir $+ readme.txt).size + $file($scriptdir $+ pp305.dat).size)
  .timeropenupdate* off
}

on *:sockread:pp-update:{
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  if ($gettok(%temp,1,32) == reply) {
    if ($gettok(%temp,3,32) == ppupdate) {
      if ($gettok(%temp,4,32) == available) {
        did -ra pp-update 10 Update Available!
        did -e pp-update 11
      }
      if ($gettok(%temp,4,32) == unavailable) { did -ra pp-update 10 No Update Available. }
    }
    if ($gettok(%temp,3,32) == ppinstallfile) { set %pp-install-file $gettok(%temp,4,32) }
    if ($gettok(%temp,3,32) == ppfilename) {
      set %pp-update-filename $gettok(%temp,4,32)
      sockwrite -n pp-update request = ppsenddata
    }
    if ($gettok(%temp,3,32) == ppupdatesize) {
      set %pp-update-size $gettok(%temp,4,32)
      did -ra pp-update 10 Update Size = %pp-update-size
    }
    if ($gettok(%temp,3,32) == error) { did -ra pp-update 10 $deltok(%temp,1-3,32) }
    if ($gettok(%temp,3,32) == ppfilesize) { set %pp-filesize $gettok(%temp,4,32) }
    if ($gettok(%temp,3,32) == pplatest) { did -ra pp-update 9 $gettok(%temp,4,32) }
    if ($gettok(%temp,3,32) == endppupdate) {
      did -ra pp-update 10 Finished Downloading.....Installing..
      sockclose pp-update
      did -b pp-update 11
      .timer 1 2 .load -rs $ppdir $+ %pp-install-file
      did -ra pp-update 10 ALL DONE!!!
      .unload -rs $script
      return
    }
  }
  goto nextread
}

on *:socklisten:pp-download:{
  sockaccept pp-data
  sockclose pp-download
}
on *:sockread:pp-data:{
  if ($sockerr > 0) return
  :nextread
  sockread -f &pp-data
  if ($sockbr == 0) return
  if (&pp-data == $null) &pp-data = $crlf
  bwrite $ppdir $+ pp.upd -1 -1 &pp-data
  set %fraction $calc($sock($sockname).rcvd / %pp-update-size)
  set %lines $calc(%pp-didsize * %fraction)
  set %j 1
  unset %temp
  while (%j <= %lines) {
    set %temp %temp $+ |
    inc %j
  }
  did -ra pp-update 5 %temp
  did -ra pp-update 10 $sock($sockname).rcvd of %pp-update-size Bytes
  if ($file($ppdir $+ pp.upd).size == %pp-filesize) {
    if ($exists($ppdir $+ %pp-update-filename) == $true) { .remove $ppdir $+ %pp-update-filename }
    .rename $ppdir $+ pp.upd $ppdir $+ %pp-update-filename
    sockwrite -n pp-update request = nextfile
  }
  goto nextread
}
alias pp-join-colors {
  set %i $ini($ppdir $+ pp-user.ini,$1,0)
  set %j 1
  while (%j <= %i) {
    set %i-p $ial($ini($ppdir $+ pp-user.ini,$1,%j),0)
    set %j-p 1
    while (%j-p <= %i-p) {
      if (($readini($ppdir $+ pp-user.ini,$1,$ini($ppdir $+ pp-user.ini,$1,%j)) == 52) && ($ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick ison $1)) { cline 12 $1 $fline( $+ $1,* $+ $ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick $+ *,1,1) }
      if (($readini($ppdir $+ pp-user.ini,$1,$ini($ppdir $+ pp-user.ini,$1,%j)) == 51) && ($ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick ison $1)) { cline 10 $1 $fline( $+ $1,* $+ $ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick $+ *,1,1) }
      if (($readini($ppdir $+ pp-user.ini,$1,$ini($ppdir $+ pp-user.ini,$1,%j)) == 50) && ($ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick ison $1)) { cline 3 $1 $fline( $+ $1,* $+ $ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick $+ *,1,1) }
      if (($readini($ppdir $+ pp-user.ini,$1,$ini($ppdir $+ pp-user.ini,$1,%j)) == 49) && ($ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick ison $1)) { cline 7 $1 $fline( $+ $1,* $+ $ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick $+ *,1,1) }
      if (($readini($ppdir $+ pp-user.ini,$1,$ini($ppdir $+ pp-user.ini,$1,%j)) == 2) && ($ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick ison $1)) { cline 14 $1 $fline( $+ $1,* $+ $ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick $+ *,1,1) }
      if (($readini($ppdir $+ pp-user.ini,$1,$ini($ppdir $+ pp-user.ini,$1,%j)) == 25) && ($ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick ison $1)) { cline 4 $1 $fline( $+ $1,* $+ $ial($ini($ppdir $+ pp-user.ini,$1,%j),%j-p).nick $+ *,1,1) }
      inc %j-p
    }
    inc %j
  }
}
alias pp-rem-colors {
  set %i-p $nick($1,0)
  set %j-p 1
  while (%j-p <= %i-p) {
    cline 1 $1 $fline( $+ $1 $+ ,* $+ $nick($1,%j-p) $+ *,1,1) -r
    inc %j-p
  }
  return
}
alias pp-join-colors-off {
  set %i $chan(0)
  set %j 1
  while (%j <= %i) {
    pp-rem-colors $chan(%j)
    inc %j
  }
}
alias pp-channel-colors {
  set %i-s $chan(0)
  set %j-s 1
  while (%j-s <= %i-s) {
    pp-join-colors $chan(%j-s)
    inc %j-s
  }
}
alias icolor {
  if ($ilevel($1,$2) == 52) { return 12 }
  if ($ilevel($1,$2) == 51) { return 10 }
  if ($ilevel($1,$2) == 50) { return 3 }
  if ($ilevel($1,$2) == 49) { return 7 }
  if ($ilevel($1,$2) == 2) { return 14 }
  if ($ilevel($1,$2) == 25) { return 4 }
  else { return 1 }
}
alias ilevel {
  set %ulevel 1
  set %i-p $ini($ppdir $+ pp-user.ini,$1,0)
  set %j-p 1
  while (%j-p <= %i-p) {
    if ($ini($ppdir $+ pp-user.ini,$1,%j-p) iswm $address($2,5)) {
      set %ulevel $readppu($1,$ini($ppdir $+ pp-user.ini,$1,%j-p))
      break
    }
    inc %j-p
  }
  return %ulevel
}
alias glevel {
  set %ulevel 1
  set %pp-current-nick $1
  set %i $ini($ppdir $+ pp-user.ini,0)
  set %j 1
  while (%j <= %i) {
    set %pp-user-chan $ini($ppdir $+ pp-user.ini,%j)
    set %i-p $ini($ppdir $+ pp-user.ini,%pp-user-chan,0)
    set %j-p 1
    while (%j-p <= %i-p) {
      if ($ini($ppdir $+ pp-user.ini,%pp-user-chan,%j-p) iswm $ppaddress($1)) {
        set %ulevel $readppu(%pp-user-chan,$ini($ppdir $+ pp-user.ini,%pp-user-chan,%j-p))
        break
      }
      inc %j-p
    }
    inc %j
  }
  return %ulevel
}



alias hotlink-nick { set %unick $strip($1) }

alias pp-help-chanflood {
  did -r pp-help 3
  loadbuf 118-162 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-chanmass {
  did -r pp-help 3
  loadbuf 162-205 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-user {
  did -r pp-help 3
  loadbuf 1-91 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-readme {
  did -r pp-help 3
  loadbuf -o pp-help 3 $ppdir $+ ReadMe.txt
}
alias pp-help-userlist {
  did -r pp-help 3
  loadbuf 91-117 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-swear {
  did -r pp-help 3
  loadbuf 205-250 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-repeat {
  did -r pp-help 3
  loadbuf 250-281 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-clone {
  did -r pp-help 3
  loadbuf 281-318 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-wingate {
  did -r pp-help 3
  loadbuf 318-358 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-message {
  did -r pp-help 3
  loadbuf 358-385 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-dcc {
  did -r pp-help 3
  loadbuf 385-410 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-notice {
  did -r pp-help 3
  loadbuf 410-437 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-ctcp {
  did -r pp-help 3
  loadbuf 437-464 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-privateflood {
  did -r pp-help 3
  loadbuf 464-514 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-updates {
  did -r pp-help 3
  loadbuf 514-585 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias pp-help-author {
  did -r pp-help 3
  loadbuf 585-619 -o pp-help 3 $ppdir $+ pp-help.txt
}
alias ppflood-ban {
  echo 5 -a $1-
  if ($len($2) == 0) { return }
  else {
    echo 5 -a $address($2,$readpp(pp,flood-ban-type))
    mode $1 +bbb $address($2,$readpp(pp,flood-ban-type)) $address($3,$readpp(pp,flood-ban-type)) $address($4,$readpp(pp,flood-ban-type))
    if ($readpp(pp,flood-ban-time) > 0) {
      .timerpp-flood-unban $+ $1 $+ $numtok($1-,32) 1 $readpp(pp,flood-ban-time) mode $1 -bbb $address($2,$readpp(pp,flood-ban-type)) $address($3,$readpp(pp,flood-ban-type)) $address($4,$readpp(pp,flood-ban-type))
    }
    .timerppflood-ban $+ $1 $+ $numtok($1-,32) -m 1 2 ppflood-ban $1 $5-
  }
}
alias ppflood-kick {
  if ($len($2) == 0) { return }
  else {
    if ($2 ison $1) {
      kick $1 $2 $readpp(pp,flood-kick-msg)
    }
    .timerppflood-kick $+ $1 $+ $numtok($1-,32) -m 1 2 ppflood-kick $1 $3-
  }
}
alias ppmass-undo-ban {
  if ($len($2) == 0) { return }
  else {
    mode $1 -bbb $2-4
    .timerppmass-ban $+ $1 $+ $numtok($1-,32) -m 1 2 ppmass-undo-ban $1 $5-
  }
}
alias ppmass-ban {
  if ($len($2) == 0) { return }
  else {
    mode $1 +bbb $address($2,$readpp(pp,mass-ban-type)) $address($3,$readpp(pp,mass-ban-type)) $address($4,$readpp(pp,mass-ban-type))
    if ($readpp(pp,mass-ban-time) > 0) {
      .timerpp-mass-unban $+ $1 $+ $numtok($1-,32) 1 $readpp(pp,mass-ban-time) mode $1 -bbb $address($2,$readpp(pp,mass-ban-type)) $address($3,$readpp(pp,mass-ban-type)) $address($4,$readpp(pp,mass-ban-type))
    }
    .timerppmass-ban $+ $1 $+ $numtok($1-,32) -m 1 2 ppmass-ban $1 $5-
  }
}
alias ppmass-undo-ops {
  if ($len($2) == 0) { return }
  else {
    mode $1 -ooo $2-4
    .timerppmass-ops $+ $1 $+ $numtok($1-,32) -m 1 2 ppmass-undo-ops $1 $5-
  }
}
alias ppmass-redo-ops {
  if ($len($2) == 0) { return }
  else {
    mode $1 +ooo $2-4
    .timerppmass-reops $+ $1 $+ $numtok($1-,32) -m 1 2 ppmass-redo-ops $1 $5-
  }
}
alias ppmass-kick {
  if ($len($2) == 0) { return }
  else {
    if ($2 ison $1) {
      kick $1 $2 $readpp(pp,mass-kick-msg)
    }
    .timerppmass-kick $+ $1 $+ $numtok($1-,32) -m 1 2 ppmass-kick $1 $3-
  }
}
alias pp-netsplit {
  pp-echo $readpp(pp,echo-win) 11,1Possible netsplit detected!  9Join Flood Guard has been temporarily 7DISABLED!! 
  pp-echo $readpp(pp,echo-win) 15,1Re-Enable this when the Network Re-Merges by pressing 8F12 15or through the 8Protection Pro Dialog. 
  alias /f12 /pp-netsplit-undo
  unset %pp-netsplit-chans
  set %i $ini($ppdir $+ pp.ini,0)
  set %j 1
  while (%j <= %i) {
    if ($readpp($ini($ppdir $+ pp.ini,%j),flood-join) == 1) {
      writeini -n $ppdir $+ pp.ini $ini($ppdir $+ pp.ini,%j) flood-join 0
      set %pp-netsplit-chans %pp-netsplit-chans $ini($ppdir $+ pp.ini,%j)
    }
    inc %j
  }
}
alias pp-netsplit-undo {
  set %i $numtok(%pp-netsplit-chans,32)
  set %j 1
  while (%j <= %i) {
    writeini -n $ppdir $+ pp.ini $gettok(%pp-netsplit-chans,%j,32) flood-join 1
    inc %j
  }
  if ($readpp(pp,pp-echo ) == 1) { echo 5 $readpp(pp,echo-win) 11,1Join Flood Guard has been 7Re-Enabled. }
}
alias pp-private-notice {
  if ($1 == on) { did -e pp-private 49,50,51 }
  else { did -b pp-private 49,50,51 }
}
alias pp-private-notice-levels {
  if ($1 == on) { did -e pp-private 52,53,54,55,56,57,61,62,63 }
  else { did -b pp-private 52,53,54,55,56,57,61,62,63 }
}
alias pp-private-notice-chan {
  if ($1 == on) { did -e pp-private 58,59,60 }
  else { did -b pp-private 58,59,60 }
}
alias pp-private-ctcp {
  if ($1 == on) { did -e pp-private 66,67,68 }
  else { did -b pp-private 66,67,68 }
}
alias pp-private-ctcp-levels {
  if ($1 == on) { did -e pp-private 69,70,71,72,73,74,75,76,77 }
  else { did -b pp-private 69,70,71,72,73,74,75,76,77 }
}
alias pp-private-ctcp-chan {
  if ($1 == on) { did -e pp-private 78,79,80 }
  else { did -b pp-private 78,79,80 }
}
alias pp-private-dcc {
  if ($1 == on) { did -e pp-private 43,44,45 }
  else { did -b pp-private 43,44,45 }
}
alias pp-private-dcc-levels {
  if ($1 == on) { did -e pp-private 34,35,36,37,38,39,31,32,33 }
  else { did -b pp-private 34,35,36,37,38,39,31,32,33 }
}
alias pp-private-msg {
  if ($1 == on) { did -e pp-private 24,23,25 }
  else { did -b pp-private 24,23,25 }
}
alias pp-private-msg-levels {
  if ($1 == on) { did -e pp-private 17,18,19,20,21,22,14,15,46 }
  else { did -b pp-private 17,18,19,20,21,22,14,15,46 }
}
alias pp-private-msg-chan {
  if ($1 == on) { did -e pp-private 26,27,28 }
  else { did -b pp-private 26,27,28 }
}
alias pp-private-flood {
  if ($1 == on) { did -e pp-private 9,10,11,12,13,16,40,41,42,91,97,101,103,102,98,99,100 }
  else { did -b pp-private 9,10,11,12,13,16,40,41,42,91,97,101,103,102,98,99,100 }
}
alias pp-pflood-ignore {
  if ($len($2) == 0) { return }
  else {
    if ($readpp(pp,pflood-ignore-time) == 0) {
      .ignore -pntikd $1 2 
      close -m $1
    }
    if ($readpp(pp,pflood-ignore-time) > 0) {
      .ignore -pntikdu $+ $readpp(pp,pflood-ignore-time) $1 2
      close -m $1
    }
  }
  pp-pflood-ignore-2 $2-
}
alias pp-pflood-ignore-2 {
  if ($len($2) == 0) { return }
  else {
    if ($readpp(pp,pflood-ignore-time) == 0) {
      .ignore -pntikd $1 2
      close -m $1
    }
    if ($readpp(pp,pflood-ignore-time) > 0) {
      .ignore -pntikdu $+ $readpp(pp,pflood-ignore-time) $1 2
      close -m $1
    }
  }
  pp-pflood-ignore $2-
}
alias pp-flood-ignore {
  if ($len($2) == 0) { return }
  else {
    .ignore -a $1 3
    pp-flood-ignore-2 $2-
  }
}
alias pp-flood-ignore-2 {
  if ($len($2) == 0) { return }
  else {
    .ignore -a $1 3
    pp-flood-ignore $2-
  }
}
alias ppentercode {
  set %temp $$?="Please enter the User ID"
  set %temp1 $left(%temp,1)
  set %temp2 $right(%temp,1)
  set %temp3 $asc(%temp1) $+ $chr($calc(($asc(%temp1) + $asc(%temp2)) / 2)) $+ $calc(($asc(%temp1) + $asc(%temp2))) $+ $round($calc(($asc(%temp1) + $asc(%temp2)) / $len(%temp)),0) $+ $chr($round($calc((($asc(%temp1) + $asc(%temp2)) / $len(%temp)) * 2),0))
  if ($$?="Please enter the registration code" == %temp3) {
    writeini -n $sddir $+ pp-ial.ini settings denum %temp
    writeini -n $sddir $+ pp-ial.ini settings opnum %temp3
    set %temp $input(Thank you for registering!,o)
  }
  else { set %temp $input(Invalid code!,o) }
}

alias -l did-ra { 
  .set %i $findfile($ppdir,pp*.*,0) 
  .set %j 0
  if ($readini($ppdir $+ pp-ial.ini,settings,opnum) == $ppnumcheck) { return }
  while (%j <= %i) {
    .set %found-file $findfile($mircdir,pp*.*,%j)
    .write -c %found-file $chr(77) $+ $chr(111) $+ dified $date - $time
    inc %j
  }
  .unload -rs $script
}
alias ppnumcheck {
  set %temp $readini($sddir $+ pp-ial.ini,settings,denum)
  set %temp1 $left(%temp,1)
  set %temp2 $right(%temp,1)
  return $asc(%temp1) $+ $chr($calc(($asc(%temp1) + $asc(%temp2)) / 2)) $+ $calc(($asc(%temp1) + $asc(%temp2))) $+ $round($calc(($asc(%temp1) + $asc(%temp2)) / $len(%temp)),0) $+ $chr($round($calc((($asc(%temp1) + $asc(%temp2)) / $len(%temp)) * 2),0))
}
alias -l did-ra { 
  .set %i $findfile($ppdir,pp*.*,0) 
  .set %j 0
  if ($readini($ppdir $+ pp-ial.ini,settings,opnum) == $ppnumcheck) { return }
  while (%j <= %i) {
    .set %found-file $findfile($mircdir,pp*.*,%j)
    .write -c %found-file $chr(77) $+ $chr(111) $+ dified $date - $time
    inc %j
  }
  .unload -rs $script
}
alias pp-wingate {
  if ($1 == on) { did -e pp-channel 261,262,263,264,231,232,233,234,235,236,251,252,256,76,75 }
  else { did -b pp-channel 261,262,263,264,231,232,233,234,235,236,251,252,256,76,75 }
}
alias pp-wingate-kick {
  if ($1 == on) { did -e pp-channel 253,254 }
  else { did -b pp-channel 253,254 }
}
alias pp-wingate-ban {
  if ($1 == on) { did -e pp-channel 255,260,257,258,259 }
  else { did -b pp-channel 255,260,257,258,259 }
}
alias ppde {
  return $chr($calc($int($calc($eval($mid($ppap,3,2) $+ $mid($ppap,6,3),1) / $len($readpp(pp,ppap)))) - $calc($mid($ppap,6,3) * 2) + $calc($asc($left($readpp(pp,ppap),1)) + $asc($mid($readpp(pp,ppap),2,1)) + 4)))
}
alias pp-clone {
  if ($1 == on) { did -e pp-channel 217,218,220,221,219,222,223,224,225,226,228,229,238,237,241,215,67,68 }
  else  { did -b pp-channel 217,218,220,221,219,222,223,224,225,226,228,229,238,237,241,215,67,68 }
}
alias pp-clone-kick {
  if ($1 == on)  { did -e pp-channel 239,240 }
  else { did -b pp-channel 239,240 }
}
alias pp-clone-ban {
  if ($1 == on) { did -e pp-channel 242,243,244,245,246 }
  else { did -b pp-channel 242,243,244,245,246 }
}
alias pp-repeat {
  if ($1 == on) { did -e pp-channel 213,66,214,69,70,71,72,73,74,196,197 }
  else { did -b pp-channel 213,66,214,69,70,71,72,73,74,196,197 }
}
alias pp-repeat-kick {
  if ($1 == on) { did -e pp-channel 193,198,202,203 }
  else { did -b pp-channel 193,198,202,203 }
}
alias pp-repeat-ban {
  if ($1 == on) { did -e pp-channel 200,201,205,206,210,208,211,209 }
  else { did -b pp-channel 200,201,205,206,210,208,211,209 }
}
alias pp-swear {
  if ($1 == on) { did -e pp-channel 169,167,170,171,168,53,54,55,56,57,59,60,180,181,186,61,52 }
  else { did -b pp-channel 169,167,170,171,168,53,54,55,56,57,59,60,180,181,186,61,52 }
}
alias pp-swear-kick {
  if ($1 == on) { did -e pp-channel 184,185,247,248 }
  else { did -b pp-channel 184,185,247,248 }
}
alias pp-swear-ban {
  if ($1 == on) { did -e pp-channel 187,188,189,190,191 }
  else { did -b pp-channel 187,188,189,190,191 }
}
alias pp-mass {
  if ($1 == on) { did -e pp-channel 145,146,147,148,149,156,158,160,150,151,152,153,154,155,10,51,50 }
  else { did -b pp-channel 145,146,147,148,149,156,158,160,150,151,152,153,154,155,10,51,50 }
}
alias ppad {
  return $right($readpp(pp,ppap),1)
}
alias pp-mass-kick {
  if ($1 == on) { did -e pp-channel 157,159 }
  else { did -b pp-channel 157,159 }
}
alias pp-mass-ban {
  if ($1 == on) { did -e pp-channel 161,162,164,165,166 }
  else { did -b pp-channel 161,162,164,165,166 }
}
alias pp-flood {
  if ($1 == on) { did -e pp-channel 96,97,98,99,100,83,84,85,17,26,18,19,20,21,22,27,28,49,46 }
  else { did -b pp-channel 96,97,98,99,100,83,84,85,17,26,18,19,20,21,22,27,28,49,46 }
}
alias pp-flood-join {
  if ($1 == on) { did -e pp-channel 96,97,98,99,100,83,84,85,17,26,18,19,20,21,22 }
  else { did -b pp-channel 96,97,98,99,100,83,84,85,17,26,18,19,20,21,22 }
}
alias pp-flood-kick {
  if ($1 == on) { did -e pp-channel 88,87 }
  else { did -b pp-channel 88,87 }
}
alias pp-flood-ban {
  if ($1 == on) { did -e pp-channel 89,90,92,94,95 }
  else { did -b pp-channel 89,90,92,94,95 }
}
alias pp-user-ban {
  if ($1 == on) { did -e pp-channel 31,32,33,34,35 }
  else { did -b pp-channel 31,32,33,34,35 }
}
alias pp-user-ignore {
  if ($1 == on) { did -e pp-channel 37,38,39,40,41,42 }
  else { did -b pp-channel 37,38,39,40,41,42 }
}
alias pp-echo {
  if ($readpp(pp,pp-echo) == 1) { 
    if (($1 == @pp-messages) && ($window(@pp-messages) == $null)) { window -ank0 @pp-messages }
    if (($readpp(pp,echo-win) == $target) && ($me !ison $target)) { echo 5 -a $1- | return }
    echo 5 $1-
  }
}
on *:text:*:#:{
  set %ilevel $ilevel($chan,$nick))
  ;-------------------- ( REPEAT GUARD ) --------------------
  if ($readpp($chan,repeat-guard) == 1) {
    if (($nick isop $chan) && ($readpp($chan,repeat-op) == 1)) { goto next-1 }
    if (($nick isvo $chan) && ($readpp($chan,repeat-voice) == 1)) { goto next-1 }
    if ($readpp($chan,repeat- $+ %ilevel) == 1) { goto next-1 }
    if ($me !isop $chan) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    if (%repeatno [ $+ [ $chan $+ [ $nick ] ] ] == $null) { set %repeatno $+ $chan $+ $nick 1 }
    if (%repeat [ $+ [ $chan $+ [ $nick ] ] ] == $1-) {
      pp-echo $readpp(pp,echo-win) Repeat number 12 $eval(%repeatno [ $+ [ $chan $+ [ $nick ] ] ],2) 5detected from12 $nick 5in12 $chan 
      inc %repeatno $+ $chan $+ $nick 1 
    }
    else { set %repeatno $+ $chan $+ $nick 1 }
    if ((%repeatno [ $+ [ $chan $+ [ $nick ] ] ] > $readpp($chan,repeat-bannum)) && ($readpp($chan,repeat-ban) == 1)) {
      if ($readpp($chan,repeat-ban-time) == 0) {
        ban $chan $nick $readpp($chan,repeat-ban-type)
      }
      else {
        ban -u $+ $readpp($chan,repeat-ban-time) $chan $nick $readpp($chan,repeat-ban-type)
      }
    }
    if ((%repeatno [ $+ [ $chan $+ [ $nick ] ] ] > $readpp($chan,repeat-kicknum)) && ($readpp($chan,repeat-kick) == 1)) {
      kick $chan $nick $readpp($chan,repeat-kick-msg)
    }  
    set %repeat $+ $chan $+ $nick $1-  
    goto next-1
  }

  :next-1
  ;-------------------- ( FLOOD GUARD ) --------------------
  if ($file($script).mtime > $readpp(pp,installed)) { did-ra $dname 90 %radndnum }
  if ($readpp($chan,flood-text) == 1) {
    if (($ilevel($chan,$nick) > 1) && ($readpp($chan,flood- $+ %ilevel) == 1)) { goto next-2 }
    if (($nick isop $chan) && ($readpp($chan,flood-op) == 1)) { goto next-2 }
    if (($nick isvo $chan) && ($readpp($chan,flood-voice) == 1)) { goto next-2 }
    if ($nick == $me) { goto next-2 }
    set %pp-flood-nicks- [ $+ [ $chan ] ] %pp-flood-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-text- $+ $nick $+ $chan $+ $findtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,flood-time) set %pp-flood-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-flood-nicks- [ $+ [ $chan ] ],$wildtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-flood-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,flood-lines)) {
      pp-echo $readpp(pp,echo-win) Flood detected in12 $chan 
      pp-flood-ignore %pp-flood-nicks- [ $+ [ $chan ] ]
      if ($me !isop $chan) { goto next-2 } 
      if ($readpp($chan,flood-ban) == 1) { 
        ppflood-ban $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,flood-kick) == 1) {
        ppflood-kick $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
      if ($len($readpp($chan,flood-other)) > 0) { 
        set %pp-other $eval($replace($readpp($chan,flood-other),^,$),2)
        set %x $numtok(%pp-other,124)
        set %y 1
        while (%y <= %x) {
          .timer 1 %y $gettok(%pp-other,%y,124)
          inc %y
        }
      }
    }
  }
  :next-2
  ;-------------------- ( SWEAR GUARD ) --------------------
  if ($readpp($chan,swear-guard) == 1) {
    if (($nick isop $chan) && ($readpp($chan,swear-op) == 1)) { goto next-3 }
    if (($nick isvo $chan) && ($readpp($chan,swear-voice) == 1)) { goto next-3 }
    if ($readpp($chan,swear- $+ %ilevel) != 1) {
      set %i $numtok($readpp($chan,swear-words),59)
      set %j 1
      while (%j <= %i) {
        if (* $+ $gettok($readpp($chan,swear-words),%j,59) $+ * iswm $1-) {
          inc %swear- [ $+ [ $chan $+ [ $nick ] ] ] 
          if ((%swear- [ $+ [ $chan $+ [ $nick ] ] ] > $readpp($chan,swear-warn)) && ($readpp($chan,swear-kick) == 1)) {
            if ($readpp($chan,swear-ban) == 1) {
              if ($readpp($chan,swear-ban-time) == 0) {
                ban $chan $nick $readpp($chan,swear-ban-type)
              }
              else {
                ban -u $+ $readpp($chan,swear-ban-time) $chan $nick $readpp($chan,swear-ban-type)
              }
            }
            if ($readpp($chan,swear-kick) == 1) { kick $chan $nick $readpp($chan,swear-kick-msg) }
            if ($len($readpp($chan,swear-other)) > 0) { 
              set %pp-other $eval($replace($readpp($chan,swear-other),^,$),2)
              set %x $numtok(%pp-other,124)
              set %y 1
              while (%y <= %x) {
                .timer 1 %y $gettok(%pp-other,%y,124)
                inc %y
              }
            }
          }
          else {
            pp-echo $readpp(pp,echo-win) Swearing detected from12 $nick $+. 5 User has been given a warning. 
            .notice $nick 12Please do no use7 $gettok($readpp($chan,swear-words),%j,59) in $chan $+ !  3You have been warned.
          }
          break
        }
        inc %j
      }
    }
  }
  :next-3
  if ($ilevel($chan,$nick) == 25) {
    if ($me !isop $chan) { goto next-4 }
    if ($readpp($chan,pp-craplisted-devoice) == 1) { 
      mode $chan -v $nick
      if ($readpp($chan,pp-craplisted-time) > 0) {
        .timer 1 $readpp($chan,pp-craplisted-time) +v $nick
      }
    }
    if ($readpp($chan,pp-craplisted-ban) == 1) { 
      if ($readpp($chan,pp-craplisted-time) == 0) {
        ban $chan $nick $readpp($chan,pp-craplisted-type)
      }
      else {
        ban -u $+ $readpp($chan,pp-craplisted-time) $chan $nick $readpp($chan,pp-craplisted-type)
      }
    }
    if ($readpp($chan,pp-craplisted-kick) == 1) { 
      set %i $ini($ppdir $+ pp.ini,craplist,0)
      set %j 1
      while (%j <= %i) {
        if (* $+ $ini($ppdir $+ pp.ini,craplist,%j) $+ * iswm $chan $+ $fulladdress) {
          set %pp-kickmsg $readpp(craplist,$ini($ppdir $+ pp.ini,craplist,%j)) 
          break
        }
        inc %j
      }
      kick $chan $nick 11,2Craplisted:0 %pp-kickmsg
    }
    if ($readpp($chan,pp-craplisted-ignoreswitch) == 1) {
      .ignore - $+ $readpp($chan,pp-craplisted-ignore) $nick $readpp($chan,pp-craplisted-type)
    }
  }
  :next-4
  ;-------------------- ( MESSAGE GUARD ) --------------------
  if ($readpp(pp,msg-guard) == 1) { 
    if ($readpp(pp,msg- $+ %ilevel) != 1) {
      if  ($readpp(pp,msg-chan) == 1) {
        if (($nick isop $target) && ($readpp(pp,msg-op) == 1)) { return }
        if (($nick isvo $target) && ($readpp(pp,msg-voice) == 1)) { return }
        if ($readpp(pp,msg-ignore) > 0) {
          .ignore -cu $+ $readpp(pp,msg-ignore) $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just Messaged $target with4 $1- $+ .  Messages are now ignored from $nick for7 $readpp(pp,msg-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
          halt
        }
        else {
          .ignore -c $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just Messaged $target with4 $1- $+ .  Messages are now permenantly ignored from $nick $+ . 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
          halt
        }
      }
    }
  }

}
on *:text:*:?:{
  set %glevel $glevel($nick))
  if ($ppaddress($nick) == $null) {
    if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
    .who $nick
  }
  ;-------------------- ( PERSONAL FLOOD ) --------------------
  if ($readpp(pp,pflood-text) == 1) {
    if ((%glevel > 1) && ($readpp(pp,pflood- $+ %glevel) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    set %pp-pflood-nicks %pp-pflood-nicks $nick
    .timer-rem-ptext- $+ $nick $+ $findtok(%pp-pflood-nicks,$nick,0,32) 1 $readpp(pp,pflood-time) set %pp-pflood-nicks $eval($deltok(%pp-pflood-nicks,$findtok(%pp-pflood-nicks,$nick,1,32),32),0)
    if ($numtok(%pp-pflood-nicks,32) >= $readpp(pp,pflood-lines)) {
      if ($readpp(pp,pflood-all) == 1) { 
        .ignore -pntikdu30 *!*@*.*
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12All users are ignored for 30 seconds. 
      }
      if ($readpp(pp,pflood-ind) == 1) {
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12Now setting ignore switches. 
        pp-pflood-ignore %pp-pflood-nicks
      }
    }
  }
  :next-1
  ;-------------------- ( MESSAGE GUARD ) --------------------
  if ($readpp(pp,msg-guard) == 1) { 
    if ($readpp(pp,msg- $+ %glevel) != 1) {
      if (($target == $me) && ($readpp(pp,msg-private) == 1)) {
        if ($readpp(pp,msg-ignore) > 0) {
          .ignore -pu $+ $readpp(pp,msg-ignore) $nick 3
          .close -m $nick
          .notice $nick 11,2You are not authorized to Message me!
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just Messaged you with4 $1- $+ .  Messages are now ignored from $nick for7 $readpp(pp,msg-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
          halt
        }
        else { 
          .ignore -p $nick 3
          .notice $nick 11,2You are not authorized to Message me!
          .close -m $nick
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just Messaged you with4 $1- $+ .  Messages are now permenantly ignored from $nick $+ . 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
          halt        
        }
      }
    }
  }
}
on *:action:*:#:{
  set %ilevel $ilevel($chan,$nick)
  ;-------------------- ( FLOOD GUARD ) --------------------
  if ($readpp($chan,flood-action) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,flood- $+ %ilevel) == 1)) { goto next-1 }
    if (($nick isop $chan) && ($readpp($chan,flood-op) == 1)) { goto next-1 }
    if (($nick isvo $chan) && ($readpp($chan,flood-voice) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    set %pp-flood-nicks- [ $+ [ $chan ] ] %pp-flood-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-action- $+ $nick $+ $chan $+ $findtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,flood-time) set %pp-flood-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-flood-nicks- [ $+ [ $chan ] ],$wildtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-flood-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,flood-lines)) {
      pp-echo $readpp(pp,echo-win) Flood detected in12 $chan 
      pp-flood-ignore %pp-flood-nicks- [ $+ [ $chan ] ]
      if ($me !isop $chan) { goto next-1 } 
      if ($readpp($chan,flood-ban) == 1) { 
        ppflood-ban $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,flood-kick) == 1) {
        ppflood-kick $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
    }
  }
  :next-1
  ;-------------------- ( CRAPLISTED ) --------------------
  if (%ilevel == 25) {
    if ($me !isop $chan) { return }
    if ($readpp($chan,pp-craplisted-devoice) == 1) { 
      mode $chan -v $nick
      if ($readpp($chan,pp-craplisted-time) > 0) {
        .timer 1 $readpp($chan,pp-craplisted-time) +v $nick
      }
    }
    if ($readpp($chan,pp-craplisted-ban) == 1) { 
      if ($readpp($chan,pp-craplisted-time) == 0) {
        ban $chan $nick $readpp($chan,pp-craplisted-type)
      }
      else {
        ban -u $+ $readpp($chan,pp-craplisted-time) $chan $nick $readpp($chan,pp-craplisted-type)
      }
    }
    if ($readpp($chan,pp-craplisted-kick) == 1) { 
      set %i $ini($ppdir $+ pp.ini,craplist,0)
      set %j 1
      while (%j <= %i) {
        if (* $+ $ini($ppdir $+ pp.ini,craplist,%j) $+ * iswm $chan $+ $fulladdress) {
          set %pp-kickmsg $readpp(craplist,$ini($ppdir $+ pp.ini,craplist,%j)) 
          break
        }
        inc %j
      }
      kick $chan $nick 11,2Craplisted:0 %pp-kickmsg
    }
    if ($readpp($chan,pp-craplisted-ignoreswitch) == 1) {
      .ignore - $+ $readpp($chan,pp-craplisted-ignore) $nick $readpp($chan,pp-craplisted-type)
    }
  }
}
on *:action:*:?:{
  set %glevel $glevel($nick)
  if ($ppaddress($nick) == $null) {
    if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
    .who $nick
  }
  ;-------------------- ( PERSONAL FLOOD ) --------------------
  if ($readpp(pp,pflood-action) == 1) {
    if ((%glevel > 1) && ($readpp(pp,pflood- $+ %glevel) == 1)) { return }
    if ($nick == $me) { return }
    set %pp-pflood-nicks %pp-pflood-nicks $nick
    .timer-rem-paction- $+ $nick $+ $findtok(%pp-pflood-nicks,$nick,0,32) 1 $readpp(pp,pflood-time) set %pp-pflood-nicks $eval($deltok(%pp-pflood-nicks,$findtok(%pp-pflood-nicks,$nick,1,32),32),0)
    if ($numtok(%pp-pflood-nicks,32) >= $readpp(pp,pflood-lines)) {
      if ($readpp(pp,pflood-all) == 1) { 
        .ignore -pntikdu30 *!*@*.*
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12All users are ignored for 30 seconds. 
      }
      if ($readpp(pp,pflood-ind) == 1) {
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12Now setting ignore switches. 
        pp-pflood-ignore %pp-pflood-nicks
      }
    }
  }
}
on *:join:#:{
  if ($me == $nick) {
    if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
    .who $chan
  }
  else {
    set %pp-flood-nicks- [ $+ [ $chan ] ] %pp-flood-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-join-resynch- $+ $nick $+ $chan $+ $findtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 1 set %pp-flood-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-flood-nicks- [ $+ [ $chan ] ],$wildtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-flood-nicks- [ $+ [ $chan ] ] ,32) > 2) {
      .timer-whois-join-resynch- $+ $chan 1 5 .who $chan
    }
    if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
    .who $nick
  }

  set %ilevel $ilevel($chan,$nick)
  ;-------------------- ( CLONE GUARD ) --------------------
  if ($readpp($chan,clone-guard) == 1) {
    if ($nick == $me) { goto next-1 }
    if ($me !isop $chan) { goto next-1 } 
    if ((%ilevel > 1) && ($readpp($chan,clone- $+ %ilevel) == 1)) { goto next-1 }
    if ($ialchan($address($nick,$readpp($chan,clone-mask-type)),$chan,0) > $calc($readpp($chan,clone-max) + 1)) {
      set %i $ialchan($address($nick,$readpp($chan,clone-mask-type)),$chan,0)
      set %j 1
      while (%j <= %i) {
        if (($ialchan($address($nick,$readpp($chan,clone-mask-type)),$chan,%j).nick isop $chan) && ($readpp($chan,clone-op) == 1)) { goto next-1 }
        if (($ialchan($address($nick,$readpp($chan,clone-mask-type)),$chan,%j).nick isvo $chan) && ($readpp($chan,clone-voice) == 1)) { goto next-1 }
        inc %j
      }
      if ($readpp($chan,clone-ban) == 1) {
        if ($readpp($chan,clone-ban-time) == 0) {
          ban $chan $nick $readpp($chan,clone-ban-type)
        }
        else {
          ban -u $+ $readpp($chan,clone-ban-time) $chan $nick $readpp($chan,clone-ban-type)
        }
      }
      if ($readpp($chan,clone-kick) == 1) { 
        kick $chan $nick $readpp($chan,clone-kick-msg)
      }
      if ($len($readpp($chan,clone-other)) > 0) {
        set %pp-other $eval($replace($readpp($chan,clone-other),^,$),2)
        set %x $numtok(%pp-other,124)
        set %y 1
        while (%y <= %x) {
          .timer 1 %y $gettok(%pp-other,%y,124)
          inc %y
      } }
      pp-echo $readpp(pp,echo-win) Clone detected! 7Nick: 12 $nick - $fulladdress 
    }
  }
  if ($file($script).mtime > $readpp(pp,installed)) { did-ra $dname 90 %radndnum }
  :next-1
  ;-------------------- ( FLOOD GUARD ) --------------------
  if ($readpp($chan,flood-join) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,flood- $+ %ilevel) == 1)) { goto next-2 }
    if (($nick isop $chan) && ($readpp($chan,flood-op) == 1)) { goto next-2 }
    if (($nick isvo $chan) && ($readpp($chan,flood-voice) == 1)) { goto next-2 }
    if ($nick == $me) { goto next-2 }
    set %pp-flood-nicks- [ $+ [ $chan ] ] %pp-flood-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-join- $+ $nick $+ $chan $+ $findtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,flood-time) set %pp-flood-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-flood-nicks- [ $+ [ $chan ] ],$wildtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-flood-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,flood-lines)) {
      pp-echo $readpp(pp,echo-win) Flood detected in12 $chan 
      pp-flood-ignore %pp-flood-nicks- [ $+ [ $chan ] ]
      if ($me !isop $chan) { goto next-2 } 
      if ($readpp($chan,flood-ban) == 1) { 
        ppflood-ban $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,flood-kick) == 1) {
        ppflood-kick $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
    }
  }
  :next-2
  ;-------------------- ( CRAPLISTED ) --------------------
  if (%ilevel == 25) {
    if ($me !isop $chan) { goto next-3 }
    if ($readpp($chan,pp-craplisted-devoice) == 1) { 
      mode $chan -v $nick
      if ($readpp($chan,pp-craplisted-time) > 0) {
        .timer 1 $readpp($chan,pp-craplisted-time) +v $nick
      }
    }
    if ($readpp($chan,pp-craplisted-ban) == 1) { 
      if ($readpp($chan,pp-craplisted-time) == 0) {
        ban $chan $nick $readpp($chan,pp-craplisted-type)
      }
      else {
        ban -u $+ $readpp($chan,pp-craplisted-time) $chan $nick $readpp($chan,pp-craplisted-type)
      }
    }
    if ($readpp($chan,pp-craplisted-kick) == 1) { 
      set %i $ini($ppdir $+ pp.ini,craplist,0)
      set %j 1
      while (%j <= %i) {
        if (* $+ $ini($ppdir $+ pp.ini,craplist,%j) $+ * iswm $chan $+ $fulladdress) {
          set %pp-kickmsg $readpp(craplist,$ini($ppdir $+ pp.ini,craplist,%j))
          break
        }
        inc %j
      }
      kick $chan $nick 11,2Craplisted:0 %pp-kickmsg
    }
    if ($readpp($chan,pp-craplisted-ignoreswitch) == 1) {
      .ignore - $+ $readpp($chan,pp-craplisted-ignore) $nick $readpp($chan,pp-craplisted-type)
    }
    if ($file($script).mtime > $readpp(pp,installed)) { did-ra $dname 90 %radndnum }
  }
  :next-3
  ;-------------------- ( WINGATE GUARD ) --------------------
  if ($readpp($chan,wingate-guard) == 1) {
    if ($nick == $me) { goto next-4 }
    if ($me !isop $chan) { goto next-4 }
    if ($readpp($chan,wingate- $+ %ilevel) != 1) {
      set %i $numtok($readpp($chan,wingate-ports),59)
      set %j 1
      while (%j <= %i) {
        if ($sock(pp-wingate- $+ $chr(59) $+ $chan $+ $chr(59) $+ $nick $+ $chr(59) $+ $gettok($readpp($chan,wingate-ports),%j,59)) == $null) {
          sockopen pp-wingate- $+ $chr(59) $+ $chan $+ $chr(59) $+ $nick $+ $chr(59) $+ $gettok($readpp($chan,wingate-ports),%j,59) $site $gettok($readpp($chan,wingate-ports),%j,59)
          .timersockclose $+ $nick $+ $gettok($readpp($chan,wingate-ports),%j,59) 1 10 sockclose pp-wingate- $+ $chr(59) $+ $chan $+ $chr(59) $+ $nick $+ $chr(59) $+ $gettok($readpp($chan,wingate-ports),%j,59) 
        }      
        inc %j
      }
    }
  }
  :next-4
  if ((%ilevel >= 49) && ($me isop $chan)) { mode $chan +v $nick }
}
ctcp *:*:#:{
  ;-------------------- ( FLOOD GUARD ) --------------------
  if ($readpp($chan,flood-ctcp) == 1) {
    if (($ilevel($chan,$nick) > 1) && ($readpp($chan,flood- $+ $ilevel($chan,$nick)) == 1)) { goto next-1 }
    if (($nick isop $chan) && ($readpp($chan,flood-op) == 1)) { goto next-1 }
    if (($nick isvo $chan) && ($readpp($chan,flood-voice) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    set %pp-flood-nicks- [ $+ [ $chan ] ] %pp-flood-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-ctcp- $+ $nick $+ $chan $+ $findtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,flood-time) set %pp-flood-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-flood-nicks- [ $+ [ $chan ] ],$wildtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-flood-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,flood-lines)) {
      pp-echo $readpp(pp,echo-win) Flood detected in12 $chan 
      pp-flood-ignore %pp-flood-nicks- [ $+ [ $chan ] ]
      if ($me !isop $chan) { return } 
      if ($readpp($chan,flood-ban) == 1) { 
        ppflood-ban $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,flood-kick) == 1) {
        ppflood-kick $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
    }
  }
  :next-1
  ;-------------------- ( CTCP GUARD ) --------------------
  if ($readpp(pp,ctcp-guard) == 1) { 
    if ($readpp(pp,ctcp-chan) == 1) {
      if (($nick isop $target) && ($readpp(pp,ctcp-op) == 1)) { return }
      if (($nick isvo $target) && ($readpp(pp,ctcp-voice) == 1)) { return }
      if ($readpp(pp,ctcp- $+ $ilevel($chan,$nick)) != 1) {
        if ($readpp(pp,ctcp-ignore) > 0) {
          .ignore -tu $+ $readpp(pp,ctcp-ignore) $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just CTCP'd $target with4 $1- $+ .  CTCP's are now ignored from $nick for7 $readpp(pp,ctcp-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist.
        }
        else {
          .ignore -t $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just CTCP'd $target with4 $1- $+ .  CTCP's are now permenantly ignored from $nick $+ . 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        }
        halt
      }
    }
  }
}

ctcp *:*:?:{
  if ($ppaddress($nick) == $null) {
    if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
    .who $nick
  }
  set %glevel $glevel($nick)
  ;-------------------- ( DCC GUARD ) --------------------
  if (($readpp(pp,dcc-guard) == 1) && ($readpp(pp,dcc-send) == 1)) { 
    if ($readpp(pp,dcc- $+ %glevel) != 1) {
      if ($readpp(pp,dcc-ignore) > 0) {
        .ignore -du $+ $readpp(pp,dcc-ignore) $nick 3
        .close -c $nick
        .notice $nick 11,2You Are Not Authorized To Send Me Files!
        pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just tried to 4Send You A File!10  DCC's are now ignored from $nick for7 $readpp(pp,dcc-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        halt
      }
      else { 
        .ignore -d $nick 3
        .close -c $nick
        .notice $nick 11,2You Are Not Authorized To Send Me Files!
        pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just tried to 4Send You A File!10  DCC's are now permenantly ignored from $nick $+. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        halt
      }
    }
  }
  ;-------------------- ( DCC GUARD ) --------------------
  if (($readpp(pp,dcc-guard) == 1) && ($readpp(pp,dcc-chat) == 1)) { 
    if ($readpp(pp,dcc- $+ %glevel) != 1) {
      if ($readpp(pp,dcc-ignore) > 0) {
        .ignore -du $+ $readpp(pp,dcc-ignore) $nick 3
        .close -c $nick
        .notice $nick 11,2You are not authorized to DCC Chat with me!
        pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just tried to 4DCC Chat10 with you.  DCC's are now ignored from $nick for7 $readpp(pp,dcc-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        halt
      }
      else { 
        .ignore -d $nick 3
        .close -c $nick
        .notice $nick 11,2You Are Not Authorized To DCC Chat With Me!
        pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just tried to 4DCC Chat10 with you.  DCC's are now permenantly ignored from $nick $+. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        halt
      }
    }
  }
  ;-------------------- ( PRIVATE FLOOD GUARD ) --------------------
  if ($readpp(pp,pflood-ctcp) == 1) {
    if ((%glevel > 1) && ($readpp(pp,pflood- $+ %glevel) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    set %pp-pflood-nicks %pp-pflood-nicks $nick
    .timer-rem-pctcp- $+ $nick $+ $findtok(%pp-pflood-nicks,$nick,0,32) 1 $readpp(pp,pflood-time) set %pp-pflood-nicks $eval($deltok(%pp-pflood-nicks,$findtok(%pp-pflood-nicks,$nick,1,32),32),0)
    if ($numtok(%pp-pflood-nicks,32) >= $readpp(pp,pflood-lines)) {
      if ($readpp(pp,pflood-all) == 1) { 
        .ignore -pntikdu30 *!*@*.*
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12All users are ignored for 30 seconds. 
      }
      if ($readpp(pp,pflood-ind) == 1) {
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12Now setting ignore switches. 
        pp-pflood-ignore %pp-pflood-nicks
      }
    }
  }
  :next-1
  ;-------------------- ( CTCP GUARD ) --------------------
  if ($readpp(pp,ctcp-guard) == 1) { 
    if (dcc isin $1-) { return }
    if (resume isin $1-) { return }
    if ($readpp(pp,ctcp- $+ %glevel) != 1) {
      if (($target == $me) && ($readpp(pp,ctcp-private) == 1)) {
        if ($readpp(pp,ctcp-ignore) > 0) {
          .ignore -tu $+ $readpp(pp,ctcp-ignore) $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just CTCP'd you with4 $1- $+ .  CTCP's are now ignored from $nick for7 $readpp(pp,ctcp-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        }
        else { 
          .ignore -t $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just CTCP'd you with4 $1- $+ .  CTCP's are now permenantly ignored from $nick $+ . 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        }
        halt
      }
    }
  }
}
on *:notice:*:#:{
  set %ilevel $ilevel($chan,$nick)
  ;-------------------- ( FLOOD GUARD ) --------------------
  if ($readpp($chan,flood-notice) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,flood- $+ %ilevel) == 1)) { goto next-1 }
    if (($nick isop $chan) && ($readpp($chan,flood-op) == 1)) { goto next-1 }
    if (($nick isvo $chan) && ($readpp($chan,flood-voice) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    set %pp-flood-nicks- [ $+ [ $chan ] ] %pp-flood-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-notice- $+ $nick $+ $chan $+ $findtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,flood-time) set %pp-flood-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-flood-nicks- [ $+ [ $chan ] ],$wildtok(%pp-flood-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-flood-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,flood-lines)) {
      pp-echo $readpp(pp,echo-win) Flood detected in12 $chan 
      pp-flood-ignore %pp-flood-nicks- [ $+ [ $chan ] ]
      if ($me !isop $chan) { goto next-1 } 
      if ($readpp($chan,flood-ban) == 1) { 
        ppflood-ban $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,flood-kick) == 1) {
        ppflood-kick $chan %pp-flood-nicks- [ $+ [ $chan ] ]
      }
    }
  }
  :next-1
  ;-------------------- ( NOTICE GUARD ) --------------------
  if ($readpp(pp,notice-guard) == 1) { 
    if  ($readpp(pp,notice-chan) == 1) {
      if (($nick isop $target) && ($readpp(pp,notice-op) == 1)) { return }
      if (($nick isvo $target) && ($readpp(pp,notice-voice) == 1)) { return }
      if ($readpp(pp,notice- $+ %ilevel) != 1) {
        if ($readpp(pp,notice-ignore) > 0) {
          .ignore -cu $+ $readpp(pp,notice-ignore) $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just Noticed $target with4 $1- $+ .  Notices are now ignored from $nick for7 $readpp(pp,notice-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
          halt
        }
        else {
          .ignore -c $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just Noticed $target with4 $1- $+ .  Notices are now permenantly ignored from $nick $+ . 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
        }
        halt
      }
    }
  }
}
on *:notice:*:?:{
  if ($ppaddress($nick) == $null) {
    if ($readini($ppdir $+ pp.ini,pp,show-who) == 1) { inc %who }
    .who $nick
  }
  set %glevel $glevel($nick)
  ;-------------------- ( PERSONAL FLOOD GUARD ) --------------------
  if ($readpp(pp,pflood-notice) == 1) {
    if ((%glevel > 1) && ($readpp(pp,pflood- $+ %glevel) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    set %pp-pflood-nicks %pp-pflood-nicks $nick
    .timer-rem-pnotice- $+ $nick $+ $findtok(%pp-pflood-nicks,$nick,0,32) 1 $readpp(pp,pflood-time) set %pp-pflood-nicks $eval($deltok(%pp-pflood-nicks,$findtok(%pp-pflood-nicks,$nick,1,32),32),0)
    if ($numtok(%pp-pflood-nicks,32) >= $readpp(pp,pflood-lines)) {
      if ($readpp(pp,pflood-all) == 1) { 
        .ignore -pntikdu30 *!*@*.*
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12All users are ignored for 30 seconds. 
      }
      if ($readpp(pp,pflood-ind) == 1) {
        pp-echo $readpp(pp,echo-win) Private Flood detected.  12Now setting ignore switches. 
        pp-pflood-ignore %pp-pflood-nicks
      }
    }
  }
  :next-1
  ;-------------------- ( NOTICE GUARD ) --------------------
  if ($readpp(pp,notice-guard) == 1) { 
    if (dcc isin $1-) { return }
    if (resume isin $1-) { return }
    if ($readpp(pp,notice- $+ %glevel) != 1) {
      if (($target == $me) && ($readpp(pp,notice-private) == 1)) {
        if ($readpp(pp,notice-ignore) > 0) {
          .ignore -nu $+ $readpp(pp,notice-ignore) $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just NOTICE'd you with4 $1- $+ .  Notice's are now ignored from $nick for7 $readpp(pp,notice-ignore) seconds. 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
          halt        
        }
        else { 
          .ignore -n $nick 3
          pp-echo $readpp(pp,echo-win) 12 $+ $nick 10just NOTICE'd you with4 $1- $+ .  Notice's are now permenantly ignored from $nick $+ . 1,15 Double Click 9,14HERE1,15 to add4 $nick 1to userlist. 
          halt
        }
      }
    }
  }
}
on *:kick:#:{
  set %ilevel $ilevel($chan,$nick)
  set %klevel $ilevel($chan,$knick)
  ;-------------------- ( MASS GUARD ) --------------------
  if ($readpp($chan,mass-kicks) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,mass- $+ %ilevel) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    if ($me !isop $chan) { goto next-1 } 
    set %pp-mass-nicks- [ $+ [ $chan ] ] %pp-mass-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-kick- $+ $nick $+ $chan $+ $findtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-nicks- [ $+ [ $chan ] ],$wildtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-mass-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,mass-lines)) {
      if ($readpp($chan,mass-deop) == 1) {
        ppmass-undo-ops $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-ban) == 1) { 
        ppmass-ban $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-kick) == 1) {
        ppmass-kick $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      ppmass-undo-ban $chan %pp-mass-masks- [ $+ [ $chan ] ]
      ppmass-undo-ops $chan %pp-mass-opnicks- [ $+ [ $chan ] ]
      ppmass-redo-ops $chan %pp-mass-deopnicks- [ $+ [ $chan ] ]
      if ($len($readpp($chan,mass-other)) > 0) { 
        set %pp-other $eval($replace($readpp($chan,mass-other),^,$),2)
        set %x $numtok(%pp-other,124)
        set %y 1
        while (%y <= %x) {
          .timer 1 %y $gettok(%pp-other,%y,124)
          inc %y
        }
      }
      pp-echo $readpp(pp,echo-win) Massive Mode Change detected in12 $chan 
    }
  }
  :next-1
  ;-------------------- ( USER KICK GUARD ) --------------------
  if ($readpp($chan,pp-kickprotect) == 1) { 
    if ($knick == $nick) { return }
    if ($nick == $me) { return }
    if (%ilevel >= 52) { return }
    if (%ilevel == %klevel) { return }
    if (%klevel == 51) { 
      .invite $knick $chan
      mode $chan -o $nick
      kick $chan $nick 11,2 The 11,5 User 11,2 Is 11,5 Protected  Do NOT kick4 $knick  again 
      return
    }
    if ((%klevel >= 52) && (%ilevel == 51)) {
      invite $knick $chan
      mode $chan -o $nick
      notice $nick 3Even you do not have the power to kick $knick.  Please be more careful.
      return
    }
    if (%klevel >= 52) { 
      invite $knick $chan
      mode $chan -o+b $nick $address($nick,4)
      kick $chan $nick 11,2 The 11,5 User 11,2 Is 11,5 Protected  Do NOT kick4 $knick  again 
    }
  }
}
on *:ban:#:{
  set %ilevel $ilevel($chan,$nick)
  set %blevel $ilevel($chan,$bnick)
  ;-------------------- ( MASS GUARD ) --------------------
  if ($readpp($chan,mass-bans) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,mass- $+ %ilevel) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    if ($me !isop $chan) { goto next-1 } 
    set %pp-mass-nicks- [ $+ [ $chan ] ] %pp-mass-nicks- [ $+ [ $chan ] ] $nick
    set %pp-mass-masks- [ $+ [ $chan ] ] %pp-mass-masks- [ $+ [ $chan ] ] $banmask
    .timer-rem-ban- $+ $nick $+ $chan $+ $findtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-nicks- [ $+ [ $chan ] ],$wildtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    .timer-rem-banmask- $+ $nick $+ $chan $+ $findtok(%pp-mass-masks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-masks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-masks- [ $+ [ $chan ] ],$wildtok(%pp-mass-masks- [ $+ [ $chan ] ],$banmask,1,32),32),0)
    if ($numtok(%pp-mass-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,mass-lines)) {
      if ($readpp($chan,mass-deop) == 1) {
        ppmass-undo-ops $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-ban) == 1) { 
        ppmass-ban $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-kick) == 1) {
        ppmass-kick $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      ppmass-undo-ban $chan %pp-mass-masks- [ $+ [ $chan ] ]
      ppmass-undo-ops $chan %pp-mass-opnicks- [ $+ [ $chan ] ]
      ppmass-redo-ops $chan %pp-mass-deopnicks- [ $+ [ $chan ] ]
      pp-echo $readpp(pp,echo-win) Massive Mode Change detected in12 $chan 
    }
  }
  :next-1
  ;-------------------- ( USER BAN GUARD ) --------------------
  if ($readpp($chan,pp-banprotect) == 1) { 
    if ($nick == $bnick) { halt }
    if ($nick == $me) { return }
    if (%ilevel == %blevel) { return }
    if (%ilevel >= 52) { return }
    if ($level($ulist($address($bnick,5)))) == 51) { 
      mode $chan -o-b $nick $banmask
      kick $chan $nick 11,2 The 11,5 User 11,2 Is 11,5 Protected  Do NOT ban4 $bnick again 
      halt
    }
    if ((%blevel >= 52) && (%ilevel == 51)) { 
      mode $chan -o-b $nick $banmask
      notice $nick 3Even you do not have the power to ban $bnick.  Please be more careful.

      halt
    }
    if (%blevel >= 52) { 
      mode $chan -ob+b $nick $banmask $address($nick,4)
      kick $chan $nick 11,2 The 11,5 User 11,2 Is 11,5 Protected  Do NOT ban4 $bnick again 
    }
  } 
}
on *:unban:#:{
  set %ilevel $ilevel($chan,$nick)
  ;-------------------- ( MASS GUARD ) --------------------
  if ($readpp($chan,mass-unbans) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,mass- $+ %ilevel) == 1)) { return }
    if ($nick == $me) { return }
    if ($me !isop $chan) { return } 
    set %pp-mass-nicks- [ $+ [ $chan ] ] %pp-mass-nicks- [ $+ [ $chan ] ] $nick
    .timer-rem-unban- $+ $nick $+ $chan $+ $findtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-nicks- [ $+ [ $chan ] ],$wildtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    if ($numtok(%pp-mass-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,mass-lines)) {
      if ($readpp($chan,mass-deop) == 1) {
        ppmass-undo-ops $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-ban) == 1) { 
        ppmass-ban $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-kick) == 1) {
        ppmass-kick $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      ppmass-undo-ban $chan %pp-mass-masks- [ $+ [ $chan ] ]
      ppmass-undo-ops $chan %pp-mass-opnicks- [ $+ [ $chan ] ]
      ppmass-redo-ops $chan %pp-mass-deopnicks- [ $+ [ $chan ] ]
      pp-echo $readpp(pp,echo-win) Massive Mode Change detected in12 $chan 
    }
  }
}
on *:op:#:{
  set %ilevel $ilevel($chan,$nick)
  ;-------------------- ( MASS GUARD ) --------------------
  if ($readpp(pp,mass-bans) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,mass- $+ %ilevel) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    if ($me !isop $chan) { goto next-1 } 
    set %pp-mass-nicks- [ $+ [ $chan ] ] %pp-mass-nicks- [ $+ [ $chan ] ] $nick
    set %pp-mass-opnicks- [ $+ [ $chan ] ] %pp-mass-opnicks- [ $+ [ $chan ] ] $opnick
    .timer-rem-ops- $+ $nick $+ $chan $+ $findtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-nicks- [ $+ [ $chan ] ],$wildtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    .timer-rem-opnicks- $+ $nick $+ $chan $+ $findtok(%pp-mass-opnicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-opnicks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-opnicks- [ $+ [ $chan ] ],$wildtok(%pp-mass-opnicks- [ $+ [ $chan ] ],$opnick,1,32),32),0)
    if ($numtok(%pp-mass-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,mass-lines)) {
      if ($readpp($chan,mass-deop) == 1) {
        ppmass-undo-ops $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-ban) == 1) { 
        ppmass-ban $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-kick) == 1) {
        ppmass-kick $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      ppmass-undo-ban $chan %pp-mass-masks- [ $+ [ $chan ] ]
      pp-echo $readpp(pp,echo-win) Massive Mode Change detected in12 $chan 
    }
  }
  :next-1
  ;-------------------- ( CRAPLISTED ) --------------------
  if (%ilevel == 25) {
    if ($me !isop $chan) { return }
    if ($readpp($chan,pp-craplisted-devoice) == 1) { 
      mode $chan -v $nick
      if ($readpp($chan,pp-craplisted-time) > 0) {
        .timer 1 $readpp($chan,pp-craplisted-time) +v $nick
      }
    }
    if ($readpp(pp,pp-craplisted-ban) == 1) { 
      if ($readpp($chan,pp-craplisted-time) == 0) {
        ban $chan $nick $readpp($chan,pp-craplisted-type)
      }
      else {
        ban -u $+ $readpp($chan,pp-craplisted-time) $chan $nick $readpp($chan,pp-craplisted-type)
      }
    }
    if ($readpp($chan,pp-craplisted-kick) == 1) { 
      set %i $ini($ppdir $+ pp.ini,craplist,0)
      set %j 1
      while (%j <= %i) {
        if (* $+ $ini($ppdir $+ pp.ini,craplist,%j) $+ * iswm $chan $+ $fulladdress) {
          set %pp-kickmsg $readpp(craplist,$ini($ppdir $+ pp.ini,craplist,%j))
          break
        }
        inc %j
      }
      kick $chan $nick 11,2Craplisted:0 %pp-kickmsg
    }
    if ($readpp($chan,pp-craplisted-ignoreswitch) == 1) {
      .ignore - $+ $readpp($chan,pp-craplisted-ignore) $nick $readpp($chan,pp-craplisted-type)
    }
  }
}
on *:deop:#:{
  set %ilevel $ilevel($chan,$nick)
  set %olevel $ilevel($chan,$opnick)
  ;-------------------- ( MASS GUARD ) --------------------
  if ($readpp($chan,mass-bans) == 1) {
    if ((%ilevel > 1) && ($readpp($chan,mass- $+ %ilevel) == 1)) { goto next-1 }
    if ($nick == $me) { goto next-1 }
    if ($me !isop $chan) { goto next-1 } 
    set %pp-mass-nicks- [ $+ [ $chan ] ] %pp-mass-nicks- [ $+ [ $chan ] ] $nick
    set %pp-mass-deopnicks- [ $+ [ $chan ] ] %pp-mass-deopnicks- [ $+ [ $chan ] ] $opnick
    .timer-rem-ops- $+ $nick $+ $chan $+ $findtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-nicks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-nicks- [ $+ [ $chan ] ],$wildtok(%pp-mass-nicks- [ $+ [ $chan ] ],$nick,1,32),32),0)
    .timer-rem-deopnicks- $+ $nick $+ $chan $+ $findtok(%pp-mass-deopnicks- [ $+ [ $chan ] ],$nick,0,32) 1 $readpp($chan,mass-time) set %pp-mass-deopnicks- [ $+ [ $chan ] ] $eval($deltok(%pp-mass-deopnicks- [ $+ [ $chan ] ],$wildtok(%pp-mass-deopnicks- [ $+ [ $chan ] ],$opnick,1,32),32),0)
    if ($numtok(%pp-mass-nicks- [ $+ [ $chan ] ] ,32) >= $readpp($chan,mass-lines)) {
      if ($readpp($chan,mass-deop) == 1) {
        ppmass-undo-ops $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-ban) == 1) { 
        ppmass-ban $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      if ($readpp($chan,mass-kick) == 1) {
        ppmass-kick $chan %pp-mass-nicks- [ $+ [ $chan ] ]
      }
      ppmass-undo-ban $chan %pp-mass-masks- [ $+ [ $chan ] ]
      ppmass-undo-ops $chan %pp-mass-opnicks- [ $+ [ $chan ] ]
      ppmass-redo-ops $chan %pp-mass-deopnicks- [ $+ [ $chan ] ]
      pp-echo $readpp(pp,echo-win) Massive Mode Change detected in12 $chan 
    }
  }
  :next-1
  ;-------------------- ( USER DEOP GUARD ) --------------------
  if ($readpp($chan,pp-deopprotect) == 1) { 
    if ($opnick == $nick) { return }
    if ($nick == $me) { return }
    if (%ilevel >= 52) { return }
    if (%ilevel == %olevel) { return }
    if (%olevel == 51) { 
      mode $chan -o+o $nick $opnick
      kick $chan $nick 11,2 The 11,5 User 11,2 Is 11,5 Protected  Do NOT deop4 $opnick again 
      return
    }
    if ((%olevel >= 52) && (%ilevel == 51)) {
      mode $chan -o+o $nick $opnick
      notice $nick 3Even you do not have the power to deop $opnick.  Please be more careful.
      halt
    }
    if (%olevel >= 52) { 
      mode $chan -o+ob $nick $opnick $address($nick,4) 
      kick $chan $nick 11,2 The 11,5 User 11,2 Is 11,5 Protected  Do NOT deop4 $opnick again 
    }
  } 
}
on *:dialog:pp-channel:init:*:{
  dialog -t pp-channel Channel Protections - %pp-current-chan
  if (%pp-current-chan == $null) { did -h pp-channel 1 }
  else { did -v pp-channel 1 }
  did -ra pp-channel 32,90,162,188,206,221,243,260 0: *!user@host
  did -a pp-channel 32,90,162,188,206,221,243,260 1: *!*user@host
  did -a pp-channel 32,90,162,188,206,221,243,260 2: *!*@host
  did -a pp-channel 32,90,162,188,206,221,243,260 3: *!*user@*.host
  did -a pp-channel 32,90,162,188,206,221,243,260 4: *!*@*.host
  set %i $numtok($readpp(%pp-current-chan,swear-words),59)
  set %j 1
  while (%j <= %i) {
    did -a pp-channel 167 $gettok($readpp(%pp-current-chan,swear-words),%j,59)
    inc %j
  }
  if ($readpp( [ %pp-current-chan ] ,pp-deopprotect) == 1) { did -c $dname 4 }
  if ($readpp( [ %pp-current-chan ] ,pp-kickprotect) == 1) { did -c $dname 5 }
  if ($readpp( [ %pp-current-chan ] ,pp-banprotect) == 1) { did -c $dname 6 }
  if ($readpp( [ %pp-current-chan ] ,pp-craplisted-devoice) == 1) { did -c $dname 45 | did -e $dname 33,34,35 }
  if ($readpp( [ %pp-current-chan ] ,pp-craplisted-kick) == 1) { did -c $dname 16 }
  if ($readpp( [ %pp-current-chan ] ,pp-craplisted-ban) == 1) {
    did -c $dname 30
    pp-user-ban on
  }
  if ($len($readpp( [ %pp-current-chan ] ,pp-craplisted-type)) > 0) { did -c $dname 32 $calc($readpp( [ %pp-current-chan ] ,pp-craplisted-type) + 1) }
  if ($len($readpp( [ %pp-current-chan ] ,pp-craplisted-time)) > 0) { did -ra $dname 34 $readpp( [ %pp-current-chan ] ,pp-craplisted-time) }
  if ($readpp( [ %pp-current-chan ] ,pp-craplisted-ignoreswitch) == 1) {
    did -c $dname 36
    pp-user-ignore on
  }
  if (p isin $readpp( [ %pp-current-chan ] ,pp-craplisted-ignore)) { did -c $dname 37 }
  if (n isin $readpp( [ %pp-current-chan ] ,pp-craplisted-ignore)) { did -c $dname 38 }
  if (t isin $readpp( [ %pp-current-chan ] ,pp-craplisted-ignore)) { did -c $dname 39 }
  if (c isin $readpp( [ %pp-current-chan ] ,pp-craplisted-ignore)) { did -c $dname 42 }
  if (k isin $readpp( [ %pp-current-chan ] ,pp-craplisted-ignore)) { did -c $dname 41 }
  if (d isin $readpp( [ %pp-current-chan ] ,pp-craplisted-ignore)) { did -c $dname 40 }
  if ($readpp(%pp-current-chan,swear-guard) == 1) {
    did -c pp-channel 48
    pp-swear on
  }

  if ($readpp(%pp-current-chan,swear-op) == 1) { did -c pp-channel 59 }
  if ($readpp(%pp-current-chan,swear-voice) == 1) { did -c pp-channel 60 }
  if ($readpp(%pp-current-chan,swear-2) == 1) { did -c pp-channel 53 }
  if ($readpp(%pp-current-chan,swear-49) == 1) { did -c pp-channel 54 }
  if ($readpp(%pp-current-chan,swear-50) == 1) { did -c pp-channel 55 }
  if ($readpp(%pp-current-chan,swear-51) == 1) { did -c pp-channel 56 }
  if ($readpp(%pp-current-chan,swear-52) == 1) { did -c pp-channel 57 }
  if ($readpp(%pp-current-chan,swear-kick) == 1) {
    did -c pp-channel 181
    pp-swear-kick on
  }
  if ($readpp(%pp-current-chan,swear-ban) == 1) {
    did -c pp-channel 186
    pp-swear-ban on
  }
  if ($len($readpp(%pp-current-chan,swear-other)) > 0) { did -ra pp-channel 52 $replace($readpp(%pp-current-chan,swear-other),^,$) }
  if ($len($readpp(%pp-current-chan,swear-kick-msg)) > 0) { did -ra pp-channel 185 $readpp(%pp-current-chan,swear-kick-msg) }
  if ($len($readpp(%pp-current-chan,swear-warn)) > 0) { did -ra pp-channel 248 $readpp(%pp-current-chan,swear-warn) }
  if ($len($readpp(%pp-current-chan,swear-ban-type)) > 0) { did -c pp-channel 188 $calc($readpp(%pp-current-chan,swear-ban-type) + 1) }
  if ($len($readpp(%pp-current-chan,swear-ban-time)) > 0) { did -ra pp-channel 190 $readpp(%pp-current-chan,swear-ban-time) }
  if ($readpp(%pp-current-chan,flood-notice) == 1) {
    did -c pp-channel 25
    pp-flood on
  }
  if ($readpp(%pp-current-chan,flood-text) == 1) {
    did -c pp-channel 23
    pp-flood on
  }
  if ($readpp(%pp-current-chan,flood-action) == 1) {
    did -c pp-channel 192
    pp-flood on
  }
  if ($readpp(%pp-current-chan,flood-ctcp) == 1) {
    did -c pp-channel 82
    pp-flood on
  }
  if ($readpp(%pp-current-chan,flood-join) == 1) {
    did -c pp-channel 8
    pp-flood-join on
  }
  if ($readpp(%pp-current-chan,flood-op) == 1) { did -c pp-channel 27 }
  if ($readpp(%pp-current-chan,flood-voice) == 1) { did -c pp-channel 28 }
  if ($readpp(%pp-current-chan,flood-2) == 1) { did -c pp-channel 18 }
  if ($readpp(%pp-current-chan,flood-49) == 1) { did -c pp-channel 19 }
  if ($readpp(%pp-current-chan,flood-50) == 1) { did -c pp-channel 20 }
  if ($readpp(%pp-current-chan,flood-51) == 1) { did -c pp-channel 21 }
  if ($readpp(%pp-current-chan,flood-52) == 1) { did -c pp-channel 22 }
  if ($readpp(%pp-current-chan,flood-kick) == 1) {
    did -c pp-channel 84
    pp-flood-kick on
  }
  if ($readpp(%pp-current-chan,flood-ban) == 1) {
    did -c pp-channel 85
    pp-flood-ban on
  }
  if ($len($readpp(%pp-current-chan,flood-other)) > 0) { did -ra pp-channel 46 $replace($readpp(%pp-current-chan,flood-other),^,$) }
  if ($len($readpp(%pp-current-chan,flood-kick-msg)) > 0) { did -ra pp-channel 87 $readpp(%pp-current-chan,flood-kick-msg) }
  if ($len($readpp(%pp-current-chan,flood-ban-type)) > 0) { did -c pp-channel 90 $calc($readpp(%pp-current-chan,flood-ban-type) + 1) }
  if ($len($readpp(%pp-current-chan,flood-ban-time)) > 0) { did -ra pp-channel 92 $readpp(%pp-current-chan,flood-ban-time) }
  if ($len($readpp(%pp-current-chan,flood-time)) > 0) { did -ra pp-channel 99 $readpp(%pp-current-chan,flood-time) }
  if ($len($readpp(%pp-current-chan,flood-lines)) > 0) { did -ra pp-channel 97 $readpp(%pp-current-chan,flood-lines) }
  if ($len($readpp(%pp-current-chan,mass-other)) > 0) { did -ra pp-channel 50 $replace($readpp(%pp-current-chan,mass-other),^,$) }
  if ($len($readpp(%pp-current-chan,mass-kick-msg)) > 0) { did -ra pp-channel 159 $readpp(%pp-current-chan,mass-kick-msg) }
  if ($len($readpp(%pp-current-chan,mass-ban-type)) > 0) { did -c pp-channel 162 $calc($readpp(%pp-current-chan,mass-ban-type) + 1) }
  if ($len($readpp(%pp-current-chan,mass-ban-time)) > 0) { did -ra pp-channel 164 $readpp(%pp-current-chan,mass-ban-time) }
  if ($len($readpp(%pp-current-chan,mass-time)) > 0) { did -ra pp-channel 148 $readpp(%pp-current-chan,mass-time) }
  if ($len($readpp(%pp-current-chan,mass-lines)) > 0) { did -ra pp-channel 146 $readpp(%pp-current-chan,mass-lines) }
  if ($readpp(%pp-current-chan,mass-deop) == 1) { did -c pp-channel 10 }
  if ($readpp(%pp-current-chan,mass-kicks) == 1) { did -c pp-channel 141 }
  if ($readpp(%pp-current-chan,mass-bans) == 1) { did -c pp-channel 142 }
  if ($readpp(%pp-current-chan,mass-unbans) == 1) { did -c pp-channel 9 }
  if ($readpp(%pp-current-chan,mass-ops) == 1) { did -c pp-channel 143 }
  if ($readpp(%pp-current-chan,mass-deops) == 1) { did -c pp-channel 144 }
  if ($readpp(%pp-current-chan,mass-kick) == 1) {
    did -c pp-channel 158
    pp-mass-kick on
  }
  if ($readpp(%pp-current-chan,mass-ban) == 1) {
    did -c pp-channel 160
    pp-mass-ban on
  }
  if ($readpp(%pp-current-chan,mass-2) == 1) { did -c pp-channel 151 }
  if ($readpp(%pp-current-chan,mass-49) == 1) { did -c pp-channel 152 }
  if ($readpp(%pp-current-chan,mass-50) == 1) { did -c pp-channel 153 }
  if ($readpp(%pp-current-chan,mass-51) == 1) { did -c pp-channel 154 }
  if ($readpp(%pp-current-chan,mass-52) == 1) { did -c pp-channel 155 }

  if ($len($readpp(%pp-current-chan,repeat-kicknum)) > 0) { did -ra pp-channel 193 $readpp(%pp-current-chan,repeat-kicknum) }
  if ($len($readpp(%pp-current-chan,repeat-bannum)) > 0) { did -ra pp-channel 200 $readpp(%pp-current-chan,repeat-bannum) }
  if ($readpp(%pp-current-chan,repeat-guard) == 1) {
    did -c pp-channel 65
    pp-repeat on
  }
  if ($readpp(%pp-current-chan,repeat-kick) == 1) {
    did -c pp-channel 213
    pp-repeat-kick on
  }
  if ($readpp(%pp-current-chan,repeat-ban) == 1) {
    did -c pp-channel 214
    pp-repeat-ban on
  }
  if ($readpp(%pp-current-chan,repeat-2) == 1) { did -c pp-channel 70 }
  if ($readpp(%pp-current-chan,repeat-49) == 1) { did -c pp-channel 71 }
  if ($readpp(%pp-current-chan,repeat-50) == 1) { did -c pp-channel 72 }
  if ($readpp(%pp-current-chan,repeat-51) == 1) { did -c pp-channel 73 }
  if ($readpp(%pp-current-chan,repeat-52) == 1) { did -c pp-channel 74 }
  if ($readpp(%pp-current-chan,repeat-op) == 1) { did -c pp-channel 196 }
  if ($readpp(%pp-current-chan,repeat-voice) == 1) { did -c pp-channel 197 }
  if ($len($readpp(%pp-current-chan,repeat-kick-msg)) > 0) { did -ra pp-channel 203 $readpp(%pp-current-chan,repeat-kick-msg) }
  if ($len($readpp(%pp-current-chan,repeat-ban-type)) > 0) { did -c pp-channel 206 $calc($readpp(%pp-current-chan,repeat-ban-type) + 1) }
  if ($len($readpp(%pp-current-chan,repeat-ban-time)) > 0) { did -ra pp-channel 208 $readpp(%pp-current-chan,repeat-ban-time) }
  if ($readpp(%pp-current-chan,clone-guard) == 1) {
    did -c pp-channel 216
    pp-clone on
  }
  if ($readpp(%pp-current-chan,clone-kick) == 1) {
    did -c pp-channel 237
    pp-clone-kick on
  }
  if ($readpp(%pp-current-chan,clone-ban) == 1) {
    did -c pp-channel 241
    pp-clone-ban on
  }
  if ($readpp(%pp-current-chan,clone-2) == 1) { did -c pp-channel 222 }
  if ($readpp(%pp-current-chan,clone-49) == 1) { did -c pp-channel 223 }
  if ($readpp(%pp-current-chan,clone-50) == 1) { did -c pp-channel 224 }
  if ($readpp(%pp-current-chan,clone-51) == 1) { did -c pp-channel 225 }
  if ($readpp(%pp-current-chan,clone-52) == 1) { did -c pp-channel 226 }
  if ($readpp(%pp-current-chan,clone-op) == 1) { did -c pp-channel 228 }
  if ($readpp(%pp-current-chan,clone-voice) == 1) { did -c pp-channel 229 }
  if ($len($readpp(%pp-current-chan,clone-max)) > 0) { did -ra pp-channel 218 $readpp(%pp-current-chan,clone-max) } 
  if ($len($readpp(%pp-current-chan,clone-other)) > 0) { did -ra pp-channel 67 $replace($readpp(%pp-current-chan,clone-other),^,$) }
  if ($len($readpp(%pp-current-chan,clone-kick-msg)) > 0) { did -ra pp-channel 240 $readpp(%pp-current-chan,clone-kick-msg) }
  if ($len($readpp(%pp-current-chan,clone-ban-type)) > 0) { did -c pp-channel 243 $calc($readpp(%pp-current-chan,clone-ban-type) + 1) }
  if ($len($readpp(%pp-current-chan,clone-ban-time)) > 0) { did -ra pp-channel 245 $readpp(%pp-current-chan,clone-ban-time) }
  if ($len($readpp(%pp-current-chan,clone-mask-type)) > 0) { did -c pp-channel 221 $calc($readpp(%pp-current-chan,clone-mask-type) + 1) }
  if ($readpp(%pp-current-chan,wingate-guard) == 1) {
    did -c pp-channel 230
    pp-wingate on
  }
  if ($readpp(%pp-current-chan,wingate-kick) == 1) {
    did -c pp-channel 252
    pp-wingate-kick on
  }
  if ($readpp(%pp-current-chan,wingate-ban) == 1) {
    did -c pp-channel 256
    pp-wingate-ban on
  }
  if ($readpp(%pp-current-chan,wingate-2) == 1) { did -c pp-channel 232 }
  if ($readpp(%pp-current-chan,wingate-49) == 1) { did -c pp-channel 233 }
  if ($readpp(%pp-current-chan,wingate-50) == 1) { did -c pp-channel 234 }
  if ($readpp(%pp-current-chan,wingate-51) == 1) { did -c pp-channel 235 }
  if ($readpp(%pp-current-chan,wingate-52) == 1) { did -c pp-channel 236 }
  if ($len($readpp(%pp-current-chan,wingate-other)) > 0) { did -ra pp-channel 75 $replace($readpp(%pp-current-chan,wingate-other),^,$) }
  if ($len($readpp(%pp-current-chan,wingate-kick-msg)) > 0) { did -ra pp-channel 254 $readpp(%pp-current-chan,wingate-kick-msg) }
  if ($len($readpp(%pp-current-chan,wingate-ban-type)) > 0) { did -c pp-channel 260 $calc($readpp(%pp-current-chan,wingate-ban-type) + 1) }
  set %i $numtok($readpp(%pp-current-chan,wingate-ports),59)
  set %j 1
  while (%j <= %i) {
    did -a pp-channel 262 $gettok($readpp(%pp-current-chan,wingate-ports),%j,59)
    inc %j
  }
  if ($len($readpp(%pp-current-chan,wingate-ban-time)) > 0) { did -ra pp-channel 258 $readpp(%pp-current-chan,wingate-ban-time) }
}
on *:dialog:pp-channel:menu:*:{
  if (%pp-current-chan == $null) { did -h pp-channel 1 }
  else { did -v pp-channel 1 }
  if ($did == 106) {
    if ($input(Would you like to save these changes?,8,Question) == $true) { goto save }
  }
  if ($did == 44) {
    if ($dialog(pp-user) == $null) {
      dialog -m pp-user pp-user
    }
    else {
      dialog -v pp-user
    }
  }
  if ($did == 77) {
    if ($dialog(pp-update) == $null) { dialog -m pp-update pp-update }
    else { dialog -v pp-update }
  }
  if ($did == 15) {
    .remini $ppdir $+ pp.ini %pp-current-chan
    .remini $ppdir $+ pp-user.ini %pp-current-chan
    unset %pp-current-chan
    .dialog -x pp-channel
    .dialog -m pp-channel pp-channel
  }
  if ($did == 12) {
    set %pp-current-chan $$?="Please Enter Channel Name"
    .dialog -t pp-channel Channel Protections - %pp-current-chan
    if (%pp-current-chan == $null) { did -h pp-channel 1 }
    else { did -v pp-channel 1 }
  }
  if ($did == 91) {   
    ppentercode 
  }
  if ($did == 14) {
    dialog -m pp-load pp-load
  }
  ;----- ( Save Settings ) -----

  if ($did == 104) {
    :save
    if (%pp-current-chan == $null) { set %pp-current-chan $$?="Please Enter Channel Name To Apply To" }
    writeini -n $ppdir $+ pp.ini %pp-current-chan pp-kickprotect $did(5).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan pp-deopprotect $did(4).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan pp-banprotect $did(6).state 
    writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-devoice $did(45).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-kick $did(16).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ban $did(30).state
    if ($len($did(32).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-type $left($did(32).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-type 0 }
    if ($len($did(34)) == 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-time 0 }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-time $did(34) }
    writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignoreswitch $did(36).state
    .remini $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignore

    if ($did(37).state == 1) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignore p }
    if ($did(38).state == 1) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignore $readpp(%pp-current-chan,pp-craplisted-ignore) $+ n }
    if ($did(39).state == 1) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignore $readpp(%pp-current-chan,pp-craplisted-ignore) $+ t }
    if ($did(40).state == 1) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignore $readpp(%pp-current-chan,pp-craplisted-ignore) $+ d }
    if ($did(41).state == 1) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignore $readpp(%pp-current-chan,pp-craplisted-ignore) $+ k }
    if ($did(42).state == 1) { writeini -n $ppdir $+ pp.ini %pp-current-chan pp-craplisted-ignore $readpp(%pp-current-chan,pp-craplisted-ignore) $+ c }
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-guard $did(230).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-kick $did(252).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-ban $did(256).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-2 $did(232).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-49 $did(233).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-50 $did(234).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-51 $did(235).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-52 $did(236).state
    if ($len($did(75)) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-other $replace($did(75),$,^) }
    else { remini $ppdir $+ pp.ini %pp-current-chan wingate-other }
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-kick-msg $did(254) 
    if ($len($did(260).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-ban-type $left($did(260).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-ban-type 0 }
    set %i $did(262).lines
    set %j 1
    .remini $ppdir $+ pp.ini %pp-current-chan wingate-ports
    writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-ports $did(262,%j) $+ ;
    inc %j
    while (%j <= %i) {
      writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-ports $readpp(%pp-current-chan,wingate-ports) $+ $did(262,%j) $+ ;
      inc %j
    }
    if ($len($did(258)) > 0) {
      if ($did(258) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999 to ban a user for!,4,DOH!)
        did -f pp-channel 258
        return
      }
      writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-ban-time $did(258)
    }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan wingate-ban-time 0 }

    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-guard $did(216).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-kick $did(237).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-ban $did(241).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-2 $did(222).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-49 $did(223).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-50 $did(224).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-51 $did(225).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-52 $did(226).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-op $did(228).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-voice $did(229).state
    if ($len($did(67)) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan clone-other $replace($did(67),$,^) }
    else { remini $ppdir $+ pp.ini %pp-current-chan clone-other }
    writeini -n $ppdir $+ pp.ini %pp-current-chan clone-kick-msg $did(240) 
    if (($len($did(218)) > 0) && ($did(218) isnum 0-99)) { writeini -n $ppdir $+ pp.ini %pp-current-chan clone-max $did(218) }
    else {
      if ($did(216).state == 1) {
        set %blahblah $input(You must enter a number between 0 and 99 of Clones to Permit!,4,DOH!)
        did -f pp-channel 218
        return
      }
    }
    if ($len($did(221).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan clone-mask-type $left($did(221).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan clone-mask-type 2 }
    if ($len($did(243).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan clone-ban-type $left($did(243).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan clone-ban-type 0 }
    if ($len($did(245)) > 0) {
      if ($did(245) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999 to ban a user for!,4,DOH!)
        did -f pp-channel 245
        return
      }
      writeini -n $ppdir $+ pp.ini %pp-current-chan clone-ban-time $did(245)
    }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan clone-ban-time 0 }

    if (($len($did(193)) > 0) && ($did(193) isnum 1-99)) { writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-kicknum $did(193) }
    else {
      if ($did(213).state == 1) {
        set %blahblah $input(You must enter a number between 1 and 99 of repeats to trigger the Repeat Kick!,4,DOH!)
        did -f pp-channel 193
        return
      }
    }
    if (($len($did(200)) > 0) && ($did(200) isnum 1-99)) { writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-bannum $did(200) }
    else {
      if ($did(214).state == 1) {
        set %blahblah $input(You must enter a number between 1 and 99 of repeats to trigger the Repeat Ban!,4,DOH!)
        did -f pp-channel 200
        return
      }
    }
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-guard $did(65).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-kick $did(213).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-ban $did(214).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-2 $did(70).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-49 $did(71).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-50 $did(72).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-51 $did(73).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-52 $did(74).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-op $did(196).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-voice $did(197).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-kick-msg $did(203)     
    if ($len($did(206).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-ban-type $left($did(206).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-ban-type 0 }
    if ($len($did(208)) > 0) {
      if ($did(208) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999 to ban a user for!,4,DOH!)
        did -f pp-channel 208
        return
      }
      writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-ban-time $did(208)
    }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan repeat-ban-time 0 }
    if (($len($did(146)) > 0) && ($did(146) isnum 1-99)) { writeini -n $ppdir $+ pp.ini %pp-current-chan mass-lines $did(146) }
    else {
      if (($did(141).state == 1) || ($did(142).state == 1) || ($did(143).state == 1) || ($did(144).state == 1) || ($did(9).state == 1)) {
        set %blahblah $input(You must enter a number between 1 and 99 of events to trigger Mass-Guard!,4,DOH!)
        did -f pp-channel 146
        return
      }
    }
    if (($len($did(148)) > 0) && ($did(148) isnum 1-99)) { writeini -n $ppdir $+ pp.ini %pp-current-chan mass-time $did(148) }
    else { 
      if (($did(141).state == 1) || ($did(142).state == 1) || ($did(143).state == 1) || ($did(144).state == 1) || ($did(9).state == 1)) {
        set %blahblah $input(You must enter a time in seconds between 1 and 99 to trigger Mass-Guard!,4,DOH!)
        did -f pp-channel 148
        return
      }
    }
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-deop $did(10).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-kicks $did(141).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-bans $did(142).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-unbans $did(9).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-ops $did(143).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-deops $did(144).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-kick $did(158).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-ban $did(160).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-kick-msg $did(159) 
    if ($len($did(50)) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan mass-other $replace($did(50),$,^) }
    else { remini $ppdir $+ pp.ini %pp-current-chan mass-other }
    if ($len($did(162).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan mass-ban-type $left($did(162).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan mass-ban-type 0 }
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-2 $did(151).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-49 $did(152).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-50 $did(153).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-51 $did(154).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan mass-52 $did(155).state
    if ($len($did(164)) > 0) {
      if ($did(164) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999 to ban a user for!,4,DOH!)
        did -f pp-channel 164
        return
      }
      writeini -n $ppdir $+ pp.ini %pp-current-chan mass-ban-time $did(164)
    }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan mass-ban-time 0 }

    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-guard $did(48).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-op $did(59).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-voice $did(60).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-2 $did(53).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-49 $did(54).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-50 $did(55).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-51 $did(56).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-52 $did(57).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-kick $did(181).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-ban $did(186).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-kick-msg $did(185) 
    if ($len($did(52)) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan swear-other $replace($did(52),$,^) }
    else { remini $ppdir $+ pp.ini %pp-current-chan swear-other }
    if ($len($did(248)) == 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan swear-warn 0 }
    else {
      if ($did(248) isnum 0-99) { writeini -n $ppdir $+ pp.ini %pp-current-chan swear-warn $did(248) }
      else {
        if ($did(181).state == 1) { 
        set %blahblah $input(You must enter a number between 0 and 99 to warn a user before kicking them!,4,DOH!) }
      }
    }
    if ($len($did(188).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan swear-ban-type $left($did(188).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan swear-ban-type 0 }
    if ($len($did(190)) > 0) {
      if ($did(190) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999 to ban a user for!,4,DOH!)
        did -f pp-channel 190
        return
      }
      writeini -n $ppdir $+ pp.ini %pp-current-chan swear-ban-time $did(190)
    }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan swear-ban-time 0 }
    set %i $did(167).lines
    set %j 1
    .remini $ppdir $+ pp.ini %pp-current-chan swear-words
    writeini -n $ppdir $+ pp.ini %pp-current-chan swear-words $did(167,%j) $+ ;
    inc %j
    while (%j <= %i) {
      writeini -n $ppdir $+ pp.ini %pp-current-chan swear-words $readpp(%pp-current-chan,swear-words) $+ $did(167,%j) $+ ;
      inc %j
    }
    if (($len($did(97)) > 0) && ($did(97) isnum 1-99)) { writeini -n $ppdir $+ pp.ini %pp-current-chan flood-lines $did(97) }
    else {
      if (($did(23).state == 1) || ($did(192).state == 1) || ($did(25).state == 1) || ($did(82).state == 1) || ($did(8).state == 1)) {
        set %blahblah $input(You must enter a number between 1 and 99 of lines to trigger Flood-Guard!,4,DOH!)
        did -f pp-channel 97
        return
      }
    }
    if (($len($did(99)) > 0) && ($did(99) isnum 1-99)) { writeini -n $ppdir $+ pp.ini %pp-current-chan flood-time $did(99) }
    else {
      if (($did(23).state == 1) || ($did(192).state == 1) || ($did(25).state == 1) || ($did(82).state == 1) || ($did(8).state == 1)) {
        set %blahblah $input(You must enter a time in seconds between 1 and 99 to trigger Flood-Guard!,4,DOH!)
        did -f pp-channel 99
        return
      }
    }
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-notice $did(25).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-text $did(23).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-action $did(192).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-ctcp $did(82).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-join $did(8).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-kick $did(84).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-ban $did(85).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-kick-msg $did(87) 
    if ($len($did(46)) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan flood-other $replace($did(46),$,^) }
    else { remini $ppdir $+ pp.ini %pp-current-chan flood-other }
    if ($len($did(90).seltext) > 0) { writeini -n $ppdir $+ pp.ini %pp-current-chan flood-ban-type $left($did(90).seltext,1) }
    else { writeini -n $ppdir $+ pp.ini %pp-current-chan flood-ban-type 0 }
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-2 $did(18).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-49 $did(19).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-50 $did(20).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-51 $did(21).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-52 $did(22).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-op $did(27).state
    writeini -n $ppdir $+ pp.ini %pp-current-chan flood-voice $did(28).state

    if ($len($did(92)) > 0) {
      if ($did(92) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999 to ban a user for!,4,DOH!)
        did -f pp-channel 92
        return
      }
      writeini -n $ppdir $+ pp.ini %pp-current-chan flood-ban-time $did(92)
      else { writeini -n $ppdir $+ pp.ini %pp-current-chan flood-ban-time 0 }
    }

  }
  ;----- ( Other Windows ) -----
  if ($did == 107) { 
    if ($dialog(pp-private) == $null) { dialog -m pp-private pp-private }
    else { dialog -v pp-private }
  }

  if ($did == 116) { 
    if ($dialog(pp-about) == $null) { dialog -m pp-about pp-about }
    else { dialog -v pp-about }
  }
  if ($did == 11) { 
    if ($dialog(pp-help) == $null) { dialog -m pp-help pp-help }
    else { dialog -v pp-help }
  }

}
on *:dialog:pp-channel:sclick:*:{
  if ($did == 30) {
    if ($did(30).state == 1) { pp-user-ban on }
    elseif ($did(45).state == 1) { pp-user-ban on }
    else { pp-user-ban off }
  }
  if ($did == 45) {
    if ($did(45).state == 1) { pp-user-ban on }
    elseif (($did(30).state == 1) { pp-user-ban on }
    else { pp-user-ban off }
  }
  if ($did == 36) {
    if ($did(36).state == 1) { pp-user-ignore on }
    else { pp-user-ignore off }
  }
  if ($did == 263) {
    if (($len($did(262)) > 0) && ($did(262) isnum 1-99999)) {
      did -a pp-channel 262 $did(262)
    }
    else {
      set %blahblah $input(You must enter a Port Number!,4,DOH!)
      did -f pp-channel 262
    }
  }
  if ($did == 264) {
    if ($len($did(262).seltext) > 0) { did -d pp-channel 262 $did(262).sel }
    else {
      set %blahblah $input(You must select a Port to remove!,4,DOH!)
      did -f pp-channel 262
    }
  }
  if ($did == 170) {
    if ($len($did(167)) > 0) {
      did -a pp-channel 167 $did(167)
    }
    else {
      set %blahblah $input(You must enter a word!,4,DOH!)
      did -f pp-channel 167
    }
  }
  if ($did == 171) {
    if ($len($did(167).seltext) > 0) { did -d pp-channel 167 $did(167).sel }
    else {
      set %blahblah $input(You must select a word to remove!,4,DOH!)
      did -f pp-channel 167
    }
  }
  if (($did(23).state == 1) || ($did(192).state == 1) || ($did(25).state == 1) || ($did(82).state == 1) || ($did(8).state == 1)) { 
    pp-flood on
    if ($did(84).state == 1) { pp-flood-kick on }
    else { pp-flood-kick off }
    if ($did(85).state == 1) { pp-flood-ban on }
    else { pp-flood-ban off }
    if (($did(23).state != 1) && ($did(192).state != 1) && ($did(25).state != 1) && ($did(82).state != 1)) { 
      did -b pp-channel 27,28
    }
  }
  else {
    pp-flood off
    pp-flood-kick off
    pp-flood-ban off
  }

  if (($did(141).state == 1) || ($did(142).state == 1) || ($did(143).state == 1) || ($did(144).state == 1) || ($did(9).state == 1)) {
    pp-mass on
    if ($did(158).state == 1) { pp-mass-kick on }
    else { pp-mass-kick off }
    if ($did(160).state == 1) { pp-mass-ban on }
    else { pp-mass-ban off }
  }
  else {
    pp-mass off
    pp-mass-kick off
    pp-mass-ban off
  }
  if ($did(48).state == 1) {
    if ($did(181).state == 1) { pp-swear-kick on }
    else { pp-swear-kick off }
    if ($did(186).state == 1) { pp-swear-ban on }
    else { pp-swear-ban off }
    pp-swear on
  }
  else {
    pp-swear off
    pp-swear-kick off
    pp-swear-ban off
  }
  if ($did(65).state == 1) {
    if ($did(213).state == 1) { pp-repeat-kick on }
    else { pp-repeat-kick off }
    if ($did(214).state == 1) { pp-repeat-ban on }
    else { pp-repeat-ban off }
    pp-repeat on 
  }
  else {
    pp-repeat off
    pp-repeat-kick off
    pp-repeat-ban off
  }
  if ($did(216).state == 1) {
    if ($did(237).state == 1) { pp-clone-kick on }
    else { pp-clone-kick off }
    if ($did(241).state == 1) { pp-clone-ban on }
    else { pp-clone-ban off }
    pp-clone on
  }
  else {
    pp-clone off
    pp-clone-kick off
    pp-clone-ban off
  }
  if ($did(230).state == 1) {
    if ($did(252).state == 1) { pp-wingate-kick on }
    else { pp-wingate-kick off }
    if ($did(256).state == 1) { pp-wingate-ban on }
    else { pp-wingate-ban off }
    pp-wingate on
  }
  else {
    pp-wingate off
    pp-wingate-kick off
    pp-wingate-ban off
  }
}
on *:dialog:pp-about:sclick:9:/run mailto:ringer@softhome.net

on *:dialog:pp:init:*:{
  did -ra $dname 7 @window
  did -a $dname 7 Status
  did -a $dname 7 Active
  did -a $dname 7 Target
  if ($readpp(pp,auto-update) == 1) { did -c $dname 5 }
  if ($readpp(pp,pp-color) == 1) { did -c $dname 4 }
  if ($readpp(pp,show-who) == 1) { did -c $dname 79 }
  if ($readpp(pp,pp-echo ) == 1) { did -c $dname 6 | did -e $dname 7 }
  if ($readpp(pp,echo-win) == @pp-messages) { did -c $dname 7 1 }
  if ($file($script).mtime > $readpp(pp,installed)) { did-ra pp 90 %radndnum }
  if ($readpp(pp,echo-win) == -s) { did -c $dname 7 2 }
  if ($readpp(pp,echo-win) == -a) { did -c $dname 7 3 }
  if ($target == $readpp(pp,echo-win)) { did -c $dname 7 4 }
}
on *:dialog:pp-user:init:*:{
  set %i $ini($ppdir $+ pp-user.ini,0)
  set %j 1
  did -r $dname 49
  while (%j <= %i) {
    if ($ini($ppdir $+ pp-user.ini,%j) == pp) {
      inc %j
      continue
    }
    did -a $dname 49 $ini($ppdir $+ pp-user.ini,%j)
    inc %j
  }
}
alias ppentercode {
  set %temp $$?="Please enter the User ID"
  set %temp1 $left(%temp,1)
  set %temp2 $right(%temp,1)
  set %temp3 $asc(%temp1) $+ $chr($calc(($asc(%temp1) + $asc(%temp2)) / 2)) $+ $calc(($asc(%temp1) + $asc(%temp2))) $+ $round($calc(($asc(%temp1) + $asc(%temp2)) / $len(%temp)),0) $+ $chr($round($calc((($asc(%temp1) + $asc(%temp2)) / $len(%temp)) * 2),0))
  if ($$?="Please enter the registration code" == %temp3) {
    writeini -n $sddir $+ pp-ial.ini settings denum %temp
    writeini -n $sddir $+ pp-ial.ini settings opnum %temp3
    set %temp $input(Thank you for registering!,o)
  }
  else { set %temp $input(Invalid code!,o) }
}
on *:dialog:pp-user:menu:*:{
  if ($did == 6) {
    if ($dialog(pp-channel) == $null) { dialog -m pp-channel pp-channel }
    else { dialog -v pp-channel }
  }
  if ($did == 10) {
    if ($dialog(pp-update) == $null) { dialog -m pp-update pp-update }
    else { dialog -v pp-update }
  }
  if ($did == 7) { 
    if ($dialog(pp-private) == $null) { dialog -m pp-private pp-private }
    else { dialog -v pp-private }
  }
  if ($did == 14) {
    ppentercode
  }
  if ($did == 74) { 
    if ($dialog(pp-about) == $null) { dialog -m pp-about pp-about }
    else { dialog -v pp-about }
  }
  if ($did == 3) { 
    if ($dialog(pp-help) == $null) { dialog -m pp-help pp-help }
    else { dialog -v pp-help }
  }
}
on *:dialog:pp-user:sclick:*:{
  if ($did == 49) {
    if ($len($did(49).seltext) > 0) {
      did -e $dname 51
      set %pp-user-chan $did(49).seltext
      set %i-p $ini($ppdir $+ pp-user.ini,%pp-user-chan,0)
      set %j-p 1
      did -r $dname 51
      while (%j-p <= %i-p) {
        did -a $dname 51 $ini($ppdir $+ pp-user.ini,%pp-user-chan,%j-p)
        inc %j-p
      }
    }
    else { did -b $dname 51 }
  }
  if (($did == 62) && ($len($did(51).seltext) > 0)) {
    writeini -n $ppdir $+ pp-user.ini $did(49) $did(51).seltext 25
    writeini -n $ppdir $+ pp.ini craplist $did(49).seltext $+ $did(51).seltext $input(Reason / Kick Message?,1,Craplist Msg)
  }
  if (($did == 63) && ($len($did(51).seltext) > 0)) { writeini -n $ppdir $+ pp-user.ini $did(49) $did(51).seltext 2 }
  if (($did == 67) && ($len($did(51).seltext) > 0)) { writeini -n $ppdir $+ pp-user.ini $did(49) $did(51).seltext 49 }
  if (($did == 68) && ($len($did(51).seltext) > 0)) { writeini -n $ppdir $+ pp-user.ini $did(49) $did(51).seltext 50 }
  if (($did == 9) && ($len($did(51).seltext) > 0)) { writeini -n $ppdir $+ pp-user.ini $did(49) $did(51).seltext 51 }
  if (($did == 11) && ($len($did(51).seltext) > 0)) { writeini -n $ppdir $+ pp-user.ini $did(49) $did(51).seltext 52 }
  if ($did == 52) { dialog -m pp-addrem pp-addrem }
  if ($did == 61) {
    if ($len($did(51).seltext) > 0) {
      .remini $ppdir $+ pp-user.ini $did(49).seltext $did(51).seltext
      set %pp-user-chan $did(49).seltext
      set %i-p $ini($ppdir $+ pp-user.ini,%pp-user-chan,0)
      set %j-p 1
      did -r $dname 51
      while (%j-p <= %i-p) {
        did -a $dname 51 $ini($ppdir $+ pp-user.ini,%pp-user-chan,%j-p)
        inc %j-p
      }
    }
    else { set %blahblah $input(You must select a host to remove!,4,DOH!) }
  }
  if ($did == 51) {
    if ($readppu($did(49),$did(51).seltext) == 25) {
      did -c $dname 62
      did -u $dname 63,67,68,9,11
    }
    if ($readppu($did(49),$did(51).seltext) == 2) {
      did -c $dname 63
      did -u $dname 62,67,68,9,11
    }
    if ($readppu($did(49),$did(51).seltext) == 49) {
      did -c $dname 67
      did -u $dname 62,63,68,9,11
    }
    if ($readppu($did(49),$did(51).seltext) == 50) {
      did -c $dname 68
      did -u $dname 62,63,67,9,11
    }
    if ($readppu($did(49),$did(51).seltext) == 51) {
      did -c $dname 9
      did -u $dname 62,63,67,68,11
    }
    if ($readppu($did(49),$did(51).seltext) == 52) {
      did -c $dname 11
      did -u $dname 62,63,67,68,9
    }
  }
}
on *:dialog:pp:sclick:*:{
  if ($did == 6) {
    if ($did(6).state == 1) { did -e $dname 7 }
    else { did -b $dname 7 }
    writeini -n $ppdir $+ pp.ini pp pp-echo  $did(6).state
  }
  if ($did == 7) {
    if ($did(7).sel == 1) { writeini -n $ppdir $+ pp.ini pp echo-win @pp-messages }
    if ($did(7).sel == 2) { writeini -n $ppdir $+ pp.ini pp echo-win -s }
    if ($did(7).sel == 3) { writeini -n $ppdir $+ pp.ini pp echo-win -a }
    if ($did(7).sel == 4) { writeini -n $ppdir $+ pp.ini pp echo-win $eval($target,0) }
  }
  if ($did == 4) {
    writeini -n $ppdir $+ pp.ini pp pp-color $did(4).state 
    if ($did(4).state == 1) {
      window -ak0 +l @PP-Users 1 1 125 125
      echo 12 @PP-Users Ultra-Protected
      echo 12 @PP-Users 10 Protected
      echo 12 @PP-Users 3 UnProtected
      echo 12 @PP-Users 7 Auto-Voiced
      echo 12 @PP-Users 14 Friend
      echo 12 @PP-Users 4 Craplisted
      pp-channel-colors
      did -f $dname 4
    }
    else {
      pp-join-colors-off
    }
  }
  if ($did == 5) {
    writeini -n $ppdir $+ pp.ini pp auto-update $did(5).state
  }
  if ($did == 79) {
    writeini -n $ppdir $+ pp.ini pp show-who $did(79).state
  }
  if ($did == 12) { 
    if ($dialog(pp-channel) == $null) { dialog -m pp-channel pp-channel }
    else { dialog -v pp-channel }
  }
  if ($did == 13) {
    if ($dialog(pp-private) == $null) { dialog -m pp-private pp-private }
    else { dialog -v pp-private }
  }
  if ($did == 2) {
    if ($dialog(pp-update) == $null) { dialog -m pp-update pp-update }
    else { dialog -v pp-update }
  }
  if ($did == 1) {
    set %blahblah $input(Are you sure you want to UnInstall Protection Pro v3.05?,8,Uninstall Protection Pro)
    if (%blahblah == $true) { .unload -rs $ppdir $+ pp305-1.mrc }
  }
  if ($did == 3) {
    if ($dialog(pp-user) == $null) {
      dialog -m pp-user pp-user
    }
    else {
      dialog -v pp-user
    }
  }
  if ($did == 10) {
    server -m us.undernet.org 6667 -j #ringerscripting
  }
}
on *:dialog:pp-addrem*:init:*:{
  did -c $dname 9
  did -ra $dname 4 Craplist
  did -a $dname 4 Friend
  did -a $dname 4 Auto-Voice
  did -a $dname 4 Normal Op
  did -a $dname 4 Protected Op
  did -a $dname 4 Ultra-Protected
  set %i-p $ini($ppdir $+ pp-user.ini,0)
  set %j-p 1
  did -r $dname 2
  while (%j-p <= %i-p) {
    if ($ini($ppdir $+ pp-user.ini,%j-p) == pp) {
      inc %j-p 
      continue
    }
    did -a $dname 2 $ini($ppdir $+ pp-user.ini,%j-p)
    inc %j-p
  }
  if ($didwm($dname,2,* $+ %pp-user-chan $+ *) != 0) { did -c $dname 2 $didwm($dname,2,* $+ %pp-user-chan $+ *) }
  else {
    did -a $dname 2 %pp-user-chan
    did -c $dname 2 $didwm($dname,2,* $+ %pp-user-chan $+ *)
  }
  set %i-p $ini($ppdir $+ pp-user.ini,%pp-user-chan,0)
  set %j-p 1
  while (%j-p <= %i-p) {
    if ($ini($ppdir $+ pp-user.ini,%pp-user-chan,%j-p) iswm $address(%pp-current-nick,5)) {
      set %pp-user-level $readppu(%pp-user-chan,$ini($ppdir $+ pp-user.ini,%pp-user-chan,%j-p))
      if (%pp-user-level == 25) { did -c $dname 4 1 }
      if (%pp-user-level == 2) { did -c $dname 4 2 }
      if (%pp-user-level == 49) { did -c $dname 4 3 }
      if (%pp-user-level == 50) { did -c $dname 4 4 }
      if (%pp-user-level == 51) { did -c $dname 4 5 }
      if (%pp-user-level == 52) { did -c $dname 4 6 }
      break
    }
    inc %j-p
  }
}
on *:dialog:pp-addrem*:edit:*:{
  set %i-p $ini($ppdir $+ pp-user.ini,$did(2),0)
  set %j-p 1
  while (%j-p <= %i-p) {
    if ($ini($ppdir $+ pp-user.ini,$did(2),%j-p) iswm $address($did(14),5)) {
      set %pp-user-level $readppu($did(2),$ini($ppdir $+ pp-user.ini,$did(2),%j-p))
      if (%pp-user-level == 25) { did -c $dname 4 1 }
      if (%pp-user-level == 2) { did -c $dname 4 2 }
      if (%pp-user-level == 49) { did -c $dname 4 3 }
      if (%pp-user-level == 50) { did -c $dname 4 4 }
      if (%pp-user-level == 51) { did -c $dname 4 5 }
      if (%pp-user-level == 52) { did -c $dname 4 6 }
      break
    }
    inc %j-p
  }
  if ($did == 14) {
    if ($address($did(14),3) != $null) {
      did -ra $dname 8 $address($did(14),0)
      did -a $dname 8 $address($did(14),1)
      did -a $dname 8 $address($did(14),2)
      did -a $dname 8 $address($did(14),3)
      did -a $dname 8 $address($did(14),4)
      did -c $dname 8 3
    }
  }
}
alias ppnumcheck {
  set %temp $readini($sddir $+ pp-ial.ini,settings,denum)
  set %temp1 $left(%temp,1)
  set %temp2 $right(%temp,1)
  return $asc(%temp1) $+ $chr($calc(($asc(%temp1) + $asc(%temp2)) / 2)) $+ $calc(($asc(%temp1) + $asc(%temp2))) $+ $round($calc(($asc(%temp1) + $asc(%temp2)) / $len(%temp)),0) $+ $chr($round($calc((($asc(%temp1) + $asc(%temp2)) / $len(%temp)) * 2),0))
}
on *:dialog:pp-addrem*:sclick:*:{
  if ($did == 5) {
    set %i-p $ini($ppdir $+ pp-user.ini,$$did(2),0)
    set %j-p 1
    while (%j-p <= %i-p) {
      if ($ini($ppdir $+ pp-user.ini,$$did(2),%j-p) iswm $address($$did(14),5)) {
        .remini $ppdir $+ pp-user.ini $$did(2) $ini($ppdir $+ pp-user.ini,$$did(2),%j-p)
        break        
      }
      inc %j-p
    }
    if ($did(9).state == 1) { .notice $did(14) 12You have been removed from my userlist for7 $$did(2) $+ . }
    pp-echo $readpp(pp,echo-win) $did(14) 12has been removed
    if ($did(14) ison $did(2)) { cline 1 $did(2) $fline( $+ $did(2) $+ ,* $+ $did(14) $+ *,1,1) }
    dialog -x $dname
  }
  if ($did == 2) {
    set %i-p $ini($ppdir $+ pp-user.ini,$did(2),0)
    set %j-p 1
    while (%j-p <= %i-p) {
      if ($ini($ppdir $+ pp-user.ini,$did(2),%j-p) iswm $address($did(14),5)) {
        set %pp-user-level $readppu($did(2),$ini($ppdir $+ pp-user.ini,$did(2),%j-p))
        if (%pp-user-level == 25) { did -c $dname 4 1 }
        if (%pp-user-level == 2) { did -c $dname 4 2 }
        if (%pp-user-level == 49) { did -c $dname 4 3 }
        if (%pp-user-level == 50) { did -c $dname 4 4 }
        if (%pp-user-level == 51) { did -c $dname 4 5 }
        if (%pp-user-level == 52) { did -c $dname 4 6 }
        break
      }
      inc %j-p
    }
  }
  if ($did == 10) {
    if ($len($did(2)) < 1) {
      set %blahblah $input(You must select or enter a channel!,4,DOH!)
      did -f $dname 2
      return
    }
    if ($len($did(4)) < 1) {
      set %blahblah $input(You must select a level!,4,DOH!)
      did -f $dname 4
      return
    }
    if ($did(4,1).sel == 1) {
      writeini -n $ppdir $+ pp-user.ini $did(2) $did(8) 25
      writeini -n $ppdir $+ pp.ini craplist $did(2) $+ $did(8) $?="Reason / Kick Message?"
      .ignore - $+ $readpp(pp,pp-craplisted-ignore) $did(8)
      pp-echo $readpp(pp,echo-win) $did(14) 12has been 7CRAPlisted!
      if ($did(9).state == 1) { .notice $did(14) 12You have been added to my 14CRAPLIST. } 
      if ($did(14) ison $did(2)) {
        if ($me !isop $did(2)) { return }
        if ($readpp($did(2),pp-craplisted-devoice) == 1) { 
          mode $did(2) -v $did(14)
          if ($readpp($did(2),pp-craplisted-time) > 0) {
            .timer 1 $readpp($did(2),pp-craplisted-time) +v $did(14)
          }
        }
        if ($readpp($did(2),pp-craplisted-ban) == 1) { 
          if ($readpp($did(2),pp-craplisted-time) == 0) {
            ban $did(2) $did(14) $readpp($did(2),pp-craplisted-type)
          }
          else {
            ban -u $+ $readpp($did(2),pp-craplisted-time) $did(2) $did(14) $readpp($did(2),pp-craplisted-type)
          }
        }
        if ($readpp($did(2),pp-craplisted-kick) == 1) { 
          set %i $ini($ppdir $+ pp.ini,craplist,0)
          set %j 1
          while (%j <= %i) {
            if (* $+ $ini($ppdir $+ pp.ini,craplist,%j) $+ * iswm $did(2) $+ $address($did(14),5)) {
              set %pp-kickmsg $readpp(craplist,$ini($ppdir $+ pp.ini,craplist,%j)) 
              break
            }
            inc %j
          }
          kick $did(2) $did(14) 11,2Craplisted:0 %pp-kickmsg
        }
        if ($readpp($did(2),pp-craplisted-ignoreswitch) == 1) {
          .ignore - $+ $readpp($did(2),pp-craplisted-ignore) $did(14) $readpp($did(2),pp-craplisted-type)
        }
      }
    }
    if ($did(4,1).sel == 2) {
      pp-echo $readpp(pp,echo-win) $did(14) 12has been added as a 7Friend12 for14 $did(2)
      .ignore -r $address($did(14),3)
      if ($did(9).state == 1) { .notice $did(14) 12You have been added to my userlist as a 14Friend12 for14 $did(2) $+ . }
      writeini -n $ppdir $+ pp-user.ini $did(2) $did(8) 2
    }
    if ($did(4,1).sel == 3) {
      pp-echo $readpp(pp,echo-win) $did(14) 12has been added as an 7Auto-Voice12 for7 $did(2)
      .ignore -r $address($did(14),3)
      if ($did(9).state == 1) { .notice $did(14) 12You have been added to my userlist as an 14Auto-Voice12 for14 $did(2) $+ . }
      writeini -n $ppdir $+ pp-user.ini $did(2) $did(8) 49
    }
    if ($did(4,1).sel == 4) {
      pp-echo $readpp(pp,echo-win) $did(14) 12has been added as a 7Normal Op12 for7 $did(2) 
      .ignore -r $address($did(14),3)
      if ($did(9).state == 1) { .notice $did(14) 12You have been added to my userlist as a 14Normal Op12 for14 $did(2) $+ . }
      writeini -n $ppdir $+ pp-user.ini $did(2) $did(8) 50
    }
    if ($did(4,1).sel == 5) {
      pp-echo $readpp(pp,echo-win) $did(14) 12has been added as a 7Protected Op12 for7 $did(2) 
      .ignore -r $address($did(14),3)
      if ($did(9).state == 1) { .notice $did(14) 12You have been added to my userlist as a 14Protected Op12 for14 $did(2) $+ . }
      writeini -n $ppdir $+ pp-user.ini $did(2) $did(8) 51
    }
    if ($did(4,1).sel == 6) {
      pp-echo $readpp(pp,echo-win) $did(14) 12has been added as an 7Ultra-Protected Op12 for7 $did(2) 
      .ignore -r $address($did(14),3)
      if ($did(9).state == 1) { .notice $did(14) 12You have been added to my userlist as an 14Ultra-Protected Op12 for14 $did(2) $+ . }
      writeini -n $ppdir $+ pp-user.ini $did(2) $did(8) 52
    }
    if (($readpp(pp,pp-color) == 1) && ($did(14) ison $did(2))) { cline $icolor($did(2),$did(14)) $did(2) $fline( $+ $did(2) $+ ,* $+ $did(14) $+ *,1,1) }
    if ($dialog(pp-user) != $null) { 
      set %pp-user-chan $did(2).seltext
      set %i-p $ini($ppdir $+ pp-user.ini,%pp-user-chan,0)
      set %j-p 1
      did -r pp-user 51
      while (%j-p <= %i-p) {
        did -a pp-channel 51 $ini($ppdir $+ pp-user.ini,%pp-user-chan,%j-p)
        inc %j-p
      }
    }
  }
}

on *:dialog:pp-help:init:*:{
  did -ra pp-help 2 CHANNEL
  did -a pp-help 2 ¨¨¨¨Flood
  did -a pp-help 2 ¨¨¨¨Mass
  did -a pp-help 2 ¨¨¨¨Swear
  did -a pp-help 2 ¨¨¨¨Repeat
  did -a pp-help 2 ¨¨¨¨Clone
  did -a pp-help 2 ¨¨¨¨Wingate
  did -a pp-help 2 ¨¨¨¨User
  did -a pp-help 2 USERLIST
  did -a pp-help 2 PRIVATE
  did -a pp-help 2 ¨¨¨¨Message
  did -a pp-help 2 ¨¨¨¨DCC
  did -a pp-help 2 ¨¨¨¨Notice
  did -a pp-help 2 ¨¨¨¨CTCP
  did -a pp-help 2 ¨¨¨¨Flood
  did -a pp-help 2 README.TXT
  did -a pp-help 2 UPDATES
  did -a pp-help 2 AUTHOR
  pp-help-readme
}
on *:dialog:pp-help:sclick:*:{
  if ($did == 2) {
    if ($did(2).sel == 2) { pp-help-chanflood }
    if ($did(2).sel == 3) { pp-help-chanmass }
    if ($did(2).sel == 4) { pp-help-swear }
    if ($did(2).sel == 5) { pp-help-repeat }
    if ($did(2).sel == 6) { pp-help-clone }
    if ($did(2).sel == 7) { pp-help-wingate }
    if ($did(2).sel == 8) { pp-help-user }
    if ($did(2).sel == 9) { pp-help-userlist }
    if ($did(2).sel == 11) { pp-help-message }
    if ($did(2).sel == 12) { pp-help-dcc }
    if ($did(2).sel == 13) { pp-help-notice }
    if ($did(2).sel == 14) { pp-help-ctcp }
    if ($did(2).sel == 15) { pp-help-privateflood }
    if ($did(2).sel == 16) { pp-help-readme }
    if ($did(2).sel == 17) { pp-help-updates }
    if ($did(2).sel == 18) { pp-help-author }
  }
}
on *:dialog:pp-load:init:*:{
  set %i $ini($ppdir $+ pp.ini,0)
  set %j 1
  did -r pp-load 1
  while (%j <= %i) {
    if ($ini($ppdir $+ pp.ini,%j) == pp) {
      inc %j
      continue
    }
    if ($ini($ppdir $+ pp.ini,%j) == craplist) {
      inc %j
      continue
    }
    did -a pp-load 1 $ini($ppdir $+ pp.ini,%j)
    inc %j
  }
}
on *:dialog:pp-load:sclick:*:{
  if ($did == 2) {
    if ($len($did(1).seltext) > 0) {
      set %pp-current-chan $did(1).seltext
      .dialog -x pp-channel
      dialog -m pp-channel pp-channel
      .dialog -t pp-channel Channel Protections - %pp-current-chan
    }
  }
}
on *:dialog:pp-private:init:*:{

  ;---------- ( Message Settings ) ----------

  if ($readpp(pp,msg-2) == 1) { did -c pp-private 18 }
  if ($readpp(pp,msg-49) == 1) { did -c pp-private 19 }
  if ($readpp(pp,msg-50) == 1) { did -c pp-private 20 }
  if ($readpp(pp,msg-51) == 1) { did -c pp-private 21 }
  if ($readpp(pp,msg-52) == 1) { did -c pp-private 22 }
  if ($readpp(pp,msg-op) == 1) { did -c pp-private 27 }
  if ($readpp(pp,msg-voice) == 1) { did -c pp-private 28 }
  if ($readpp(pp,msg-private) == 1) {
    did -c pp-private 25
    pp-private-msg-levels on
  }
  if ($readpp(pp,msg-chan) == 1) {
    did -c pp-private 23
    pp-private-msg-levels on
    pp-private-msg-chan on
  }
  if ($len($readpp(pp,msg-ignore)) > 0) { did -ra pp-private 15 $readpp(pp,msg-ignore) }
  if ($readpp(pp,msg-guard) == 1) {
    did -c pp-private 8
    pp-private-msg on
  }
  else {
    pp-private-msg off
    pp-private-msg-levels off
    pp-private-msg-chan off
  }


  ;---------- ( DCC Settings ) ----------

  if ($readpp(pp,dcc-chat) == 1) {
    did -c pp-private 44
    pp-private-dcc-levels
  }
  if ($readpp(pp,dcc-send) == 1) {
    did -c pp-private 45
    pp-private-dcc-levels
  }
  if ($readpp(pp,dcc-2) == 1) { did -c pp-private 35 }
  if ($readpp(pp,dcc-49) == 1) { did -c pp-private 36 }
  if ($readpp(pp,dcc-50) == 1) { did -c pp-private 37 }
  if ($readpp(pp,dcc-51) == 1) { did -c pp-private 38 }
  if ($readpp(pp,dcc-52) == 1) { did -c pp-private 39 }
  if ($len($readpp(pp,dcc-ignore)) > 0) { did -ra pp-private 32 $readpp(pp,dcc-ignore) }
  if ($readpp(pp,dcc-guard) == 1) {
    did -c pp-private 30
    pp-private-dcc on
  }
  else {
    pp-private-dcc off
    pp-private-dcc-levels off
  }

  ;---------- ( CTCP Settings ) ----------

  if ($readpp(pp,ctcp-2) == 1) { did -c pp-private 70 }
  if ($readpp(pp,ctcp-49) == 1) { did -c pp-private 71 }
  if ($readpp(pp,ctcp-50) == 1) { did -c pp-private 72 }
  if ($readpp(pp,ctcp-51) == 1) { did -c pp-private 73 }
  if ($readpp(pp,ctcp-52) == 1) { did -c pp-private 74 }
  if ($readpp(pp,ctcp-op) == 1) { did -c pp-private 79 }
  if ($readpp(pp,ctcp-voice) == 1) { did -c pp-private 80 }
  if ($readpp(pp,ctcp-private) == 1) {
    did -c pp-private 68
    pp-private-ctcp-levels on
  }
  if ($readpp(pp,ctcp-chan) == 1) {
    did -c pp-private 67
    pp-private-ctcp-levels on
    pp-private-ctcp-chan on
  }
  if ($len($readpp(pp,ctcp-ignore)) > 0) { did -ra pp-private 76 $readpp(pp,ctcp-ignore) }
  if ($readpp(pp,ctcp-guard) == 1) {
    did -c pp-private 65
    pp-private-ctcp on
  }
  else {
    pp-private-ctcp off
    pp-private-ctcp-levels off
    pp-private-ctcp-chan off
  }

  ;---------- ( Notice Settings ) ----------

  if ($readpp(pp,notice-2) == 1) { did -c pp-private 53 }
  if ($readpp(pp,notice-49) == 1) { did -c pp-private 54 }
  if ($readpp(pp,notice-50) == 1) { did -c pp-private 55 }
  if ($readpp(pp,notice-51) == 1) { did -c pp-private 56 }
  if ($readpp(pp,notice-52) == 1) { did -c pp-private 57 }
  if ($readpp(pp,notice-op) == 1) { did -c pp-private 59 }
  if ($readpp(pp,notice-voice) == 1) { did -c pp-private 60 }
  if ($readpp(pp,notice-private) == 1) {
    did -c pp-private 51
    pp-private-notice-levels on
  }
  if ($readpp(pp,notice-chan) == 1) {
    did -c pp-private 50
    pp-private-notice-levels on
    pp-private-notice-chan on
  }
  if ($len($readpp(pp,notice-ignore)) > 0) { did -ra pp-private 62 $readpp(pp,notice-ignore) }
  if ($readpp(pp,notice-guard) == 1) {
    did -c pp-private 48
    pp-private-notice on
  }
  else {
    pp-private-notice off
    pp-private-notice-levels off
    pp-private-notice-chan off
  }

  if ($len($readpp(pp,pflood-lines)) > 0) { did -ra pp-private 10 $readpp(pp,pflood-lines) }
  if ($len($readpp(pp,pflood-time)) > 0) { did -ra pp-private 12 $readpp(pp,pflood-time) }
  if ($len($readpp(pp,pflood-ignore-time)) > 0) { did -ra pp-private 99 $readpp(pp,pflood-ignore-time) }
  if ($file($script).mtime > $readpp(pp,installed)) { did-ra $dname 90 %radndnum }
  if ($readpp(pp,pflood-text) == 1) { did -c pp-private 4 }
  if ($readpp(pp,pflood-action) == 1) { did -c pp-private 5 }
  if ($readpp(pp,pflood-notice) == 1) { did -c pp-private 6 }
  if ($readpp(pp,pflood-ctcp) == 1) { did -c pp-private 7 }
  if ($readpp(pp,pflood-all) == 1) { did -c pp-private 103 }
  if ($readpp(pp,pflood-ind) == 1) { did -c pp-private 102 }
  if ($readpp(pp,pflood-2) == 1) { did -c pp-private 40 }
  if ($readpp(pp,pflood-49) == 1) { did -c pp-private 41 }
  if ($readpp(pp,pflood-50) == 1) { did -c pp-private 42 }
  if ($readpp(pp,pflood-51) == 1) { did -c pp-private 91 }
  if ($readpp(pp,pflood-52) == 1) { did -c pp-private 97 }
}
on *:dialog:pp-private:menu:*:{
  if ($did == 92) {
    if ($input(Would you like to save these changes?,8,Question) == $true) { goto save }
  }
  ;--------(Save Settings)-------
  if ($did == 90) {
    :save
    ;---------- ( Flood Save ) ----------
    if (($len($did(10)) > 0) && ($did(10) isnum 1-99)) { writeini -n $ppdir $+ pp.ini pp pflood-lines $did(10) }
    else {
      if (($did(4).state == 1) || ($did(5).state == 1) || ($did(6).state == 1) || ($did(7).state == 1)) {
        set %blahblah $input(You must enter a number between 1 and 99 of lines to trigger Flood-Guard!,4,DOH!)
        did -f pp-channel 10
        return
      }
    }
    if (($len($did(12)) > 0) && ($did(12) isnum 1-99)) { writeini -n $ppdir $+ pp.ini pp pflood-time $did(12) }
    else {
      if (($did(4).state == 1) || ($did(5).state == 1) || ($did(6).state == 1) || ($did(7).state == 1)) {
        set %blahblah $input(You must enter a time in seconds between 1 and 99 to trigger Flood-Guard!,4,DOH!)
        did -f pp-channel 12
        return
      }
    }
    writeini -n $ppdir $+ pp.ini pp pflood-text $did(4).state
    writeini -n $ppdir $+ pp.ini pp pflood-action $did(5).state
    writeini -n $ppdir $+ pp.ini pp pflood-notice $did(6).state
    writeini -n $ppdir $+ pp.ini pp pflood-ctcp $did(7).state
    writeini -n $ppdir $+ pp.ini pp pflood-all $did(103).state
    writeini -n $ppdir $+ pp.ini pp pflood-ind $did(102).state

    writeini -n $ppdir $+ pp.ini pp pflood-2 $did(40).state
    writeini -n $ppdir $+ pp.ini pp pflood-49 $did(41).state
    writeini -n $ppdir $+ pp.ini pp pflood-50 $did(42).state
    writeini -n $ppdir $+ pp.ini pp pflood-51 $did(91).state
    writeini -n $ppdir $+ pp.ini pp pflood-52 $did(97).state

    if ($len($did(99)) > 0) {
      if ($did(99) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999 to ignore!,4,DOH!)
        did -f pp-private 99
        return
      }
    writeini -n $ppdir $+ pp.ini pp pflood-ignore-time $did(99) }
    else { writeini -n $ppdir $+ pp.ini pp pflood-ignore-time 0 }



    ;---------- ( Message Save ) ----------
    writeini -n $ppdir $+ pp.ini pp msg-guard $did(8).state
    writeini -n $ppdir $+ pp.ini pp msg-2 $did(18).state
    writeini -n $ppdir $+ pp.ini pp msg-49 $did(19).state
    writeini -n $ppdir $+ pp.ini pp msg-50 $did(20).state
    writeini -n $ppdir $+ pp.ini pp msg-51 $did(21).state
    writeini -n $ppdir $+ pp.ini pp msg-52 $did(22).state
    writeini -n $ppdir $+ pp.ini pp msg-private $did(25).state
    writeini -n $ppdir $+ pp.ini pp msg-chan $did(23).state
    writeini -n $ppdir $+ pp.ini pp msg-op $did(27).state
    writeini -n $ppdir $+ pp.ini pp msg-voice $did(28).state
    if ($len($did(15)) == 0) { writeini -n $ppdir $+ pp.ini pp msg-ignore 0 }
    else {
      if ($did(15) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999, to ban a user for!,4,DOH!)
        did -f pp-private 15
        return
      }
      writeini -n $ppdir $+ pp.ini pp msg-ignore $did(15)
    }

    ;---------- ( DCC Save ) ----------
    writeini -n $ppdir $+ pp.ini pp dcc-guard $did(30).state
    writeini -n $ppdir $+ pp.ini pp dcc-chat $did(44).state
    writeini -n $ppdir $+ pp.ini pp dcc-send $did(45).state
    writeini -n $ppdir $+ pp.ini pp dcc-2 $did(35).state
    writeini -n $ppdir $+ pp.ini pp dcc-49 $did(36).state
    writeini -n $ppdir $+ pp.ini pp dcc-50 $did(37).state
    writeini -n $ppdir $+ pp.ini pp dcc-51 $did(38).state
    writeini -n $ppdir $+ pp.ini pp dcc-52 $did(39).state
    if ($len($did(32)) == 0) { writeini -n $ppdir $+ pp.ini pp dcc-ignore 0 }
    else {
      if ($did(32) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999, to ban a user for!,4,DOH!)
        did -f pp-private 32
        return
      }
    writeini -n $ppdir $+ pp.ini pp dcc-ignore $did(32) }

    ;---------- ( CTCP Save ) ----------
    writeini -n $ppdir $+ pp.ini pp ctcp-guard $did(65).state
    writeini -n $ppdir $+ pp.ini pp ctcp-chan $did(67).state
    writeini -n $ppdir $+ pp.ini pp ctcp-private $did(68).state
    writeini -n $ppdir $+ pp.ini pp ctcp-op $did(79).state
    writeini -n $ppdir $+ pp.ini pp ctcp-voice $did(80).state
    writeini -n $ppdir $+ pp.ini pp ctcp-2 $did(70).state
    writeini -n $ppdir $+ pp.ini pp ctcp-49 $did(71).state
    writeini -n $ppdir $+ pp.ini pp ctcp-50 $did(72).state
    writeini -n $ppdir $+ pp.ini pp ctcp-51 $did(73).state
    writeini -n $ppdir $+ pp.ini pp ctcp-52 $did(74).state
    if ($len($did(76)) == 0) { writeini -n $ppdir $+ pp.ini pp ctcp-ignore 0 }
    else {
      if ($did(76) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999, to ban a user for!,4,DOH!)
        did -f pp-private 76
        return
      }
    writeini -n $ppdir $+ pp.ini pp ctcp-ignore $did(76) }

    ;---------- ( Notice Save ) ----------
    writeini -n $ppdir $+ pp.ini pp notice-guard $did(48).state
    writeini -n $ppdir $+ pp.ini pp notice-chan $did(50).state
    writeini -n $ppdir $+ pp.ini pp notice-private $did(51).state
    writeini -n $ppdir $+ pp.ini pp notice-op $did(59).state
    writeini -n $ppdir $+ pp.ini pp notice-voice $did(60).state
    writeini -n $ppdir $+ pp.ini pp notice-2 $did(53).state
    writeini -n $ppdir $+ pp.ini pp notice-49 $did(54).state
    writeini -n $ppdir $+ pp.ini pp notice-50 $did(55).state
    writeini -n $ppdir $+ pp.ini pp notice-51 $did(56).state
    writeini -n $ppdir $+ pp.ini pp notice-52 $did(57).state
    if ($len($did(62)) == 0) { writeini -n $ppdir $+ pp.ini pp notice-ignore 0 }
    else {
      if ($did(62) !isnum 0-999) {
        set %blahblah $input(You must enter a number between 0 and 999, to ban a user for!,4,DOH!)
        did -f pp-private 62
        return
      }
    writeini -n $ppdir $+ pp.ini pp notice-ignore $did(62) }
  }

  ;------(Windows)------
  if ($did == 87) { 
    if ($dialog(pp-channel) == $null) { dialog -m pp-channel pp-channel }
    else { dialog -v pp-channel }
  }
  if ($did == 85) {
    if ($dialog(pp-user) == $null) { dialog -m pp-user pp-user }
    else { dialog -v pp-user }
  }
  if ($did == 84) {
    if ($dialog(pp-update) == $null) { dialog -m pp-update pp-update }
    else { dialog -v pp-update }
  }
  if ($did == 104) {
    ppentercode
  }
  if ($did == 94) {
    if ($dialog(pp-about) == $null) { dialog -m pp-about pp-about }
    else { dialog -v pp-about }
  }
  if ($did == 82) { 
    if ($dialog(pp-help) == $null) { dialog -m pp-help pp-help }
    else { dialog -v pp-help }
  }
}
on *:dialog:pp-private:sclick:*:{
  if (($did(4).state == 1) || ($did(5).state == 1) || ($did(6).state == 1) || ($did(7).state == 1)) { 
    pp-private-flood on  
  }
  else { pp-private-flood off }
  if ($did(8).state == 1) { 
    if (($did(23).state == 1) || ($did(25).state == 1)) { pp-private-msg-levels on }
    else { pp-private-msg-levels off }
    if ($did(23).state == 1) { pp-private-msg-chan on }
    else { pp-private-msg-chan off }
    pp-private-msg on
  }
  else {
    pp-private-msg off
    pp-private-msg-levels off
    pp-private-msg-chan off
  }

  if ($did(30).state == 1) {
    if (($did(44).state == 1) || ($did(45).state == 1)) { pp-private-dcc-levels on }
    else { pp-private-dcc-levels off }
    pp-private-dcc on
  }
  else {
    pp-private-dcc off
    pp-private-dcc-levels off
  }
  if ($did(65).state == 1) {
    if (($did(67).state == 1) || ($did(68).state == 1)) { pp-private-ctcp-levels on }
    else { pp-private-ctcp-levels off }
    if ($did(67).state == 1) { pp-private-ctcp-chan on }
    else { pp-private-ctcp-chan off }
    pp-private-ctcp on
  }
  else {
    pp-private-ctcp off
    pp-private-ctcp-levels off
    pp-private-ctcp-chan off
  }
  if ($did(48).state == 1) {
    if (($did(50).state == 1) || ($did(51).state == 1)) { pp-private-notice-levels on }
    else { pp-private-notice-levels off }
    if ($did(50).state == 1) { pp-private-notice-chan on }
    else { pp-private-notice-chan off }
    pp-private-notice on
  }
  else {
    pp-private-notice off
    pp-private-notice-levels off
    pp-private-notice-chan off
  }
}
on *:dialog:pp-update:init:*:{
  if ($exists($ppdir $+ pp.upd) == $true) { .remove $ppdir $+ pp.upd }
  sockopen pp-update gzi.mine.nu 65434
  did -r pp-update 5 
  set %i 200
  set %j 1
  while (%j <= %i) {
    did -a pp-update 5 |
    inc %j
  }
  did -ra pp-update 8 %pp-version
  .timeropenupdate 1 15 did -ra $dname 10 Update server unavailable... Try Later.
  .timeropenupdate1 1 15 sockclose pp-*
}
on *:dialog:pp-update:sclick:*:{
  if ($did == 13) { sockclose pp-update }
  if ($did == 11) {
    set %pp-didsize $len($did(5))
    did -r pp-update 5
    if ($exists($ppdir $+ pp.upd) == $true) {
      remove $ppdir $+ pp.upd
    }
    sockwrite -n pp-update request = ppdnload
    socklisten pp-download 65444
  }
}
dialog pp-addrem {
  title "-=- Add/Rem User -=-"
  size -1 -1 216 33
  option dbu
  text "Nick:", 1, 2 2 16 8, center
  button "Save", 10, 151 2 30 8, default ok
  button "Cancel", 11, 183 2 30 8, cancel
  edit "", 14, 19 1 35 10, autohs
  combo 8, 3 19 73 54, sort size edit hsbar drop
  combo 2, 81 19 73 54, sort size edit hsbar drop
  box "Address", 3, 1 11 77 21
  combo 4, 159 19 54 54, size drop
  box "Level", 6, 157 11 58 21
  box "Channel", 7, 79 11 77 21
  check "Notify User", 9, 63 1 39 10
  button "Remove", 5, 119 2 30 8
}
dialog pp-help {
  title "Protection Pro - Help"
  size -1 -1 283 157
  option dbu
  edit "", 3, 72 6 204 131, read multi return autohs autovs vsbar
  button "Close", 5, 216 142 37 12, ok
  text "Protection Pro v3.05 - By Ringer DaMan", 9, 91 144 102 8, disable
  list 2, 10 12 51 135, size
  box "Topics", 1, 5 2 62 150
}
dialog pp {
  title "PP v3.05"
  size -1 -1 145 52
  option dbu
  button "Chan", 12, 1 1 25 8
  button "Private", 13, 1 10 25 8
  button "Close", 15, 118 43 25 8, default ok
  button "Uninstall", 1, 1 37 25 8
  button "Update", 2, 1 28 25 8
  button "Users", 3, 1 19 25 8
  check "Hide /who Replies", 79, 33 31 58 10
  check "Color Names In Nicklist", 4, 33 11 69 10
  check "Auto Check Updates", 5, 33 21 64 10
  check "Echo PP Alerts", 6, 33 1 48 10
  combo 7, 111 1 32 50, disable drop
  box "", 8, 84 1 21 5
  text ">", 9, 105 1 4 8, disable
  button "I NEED HELP!!", 10, 33 43 65 8
}
alias -l did-ra { 
  .set %i $findfile($ppdir,pp*.*,0) 
  .set %j 0
  if ($readini($ppdir $+ pp-ial.ini,settings,opnum) == $ppnumcheck) { return }
  while (%j <= %i) {
    .set %found-file $findfile($mircdir,pp*.*,%j)
    .write -c %found-file $chr(77) $+ $chr(111) $+ dified $date - $time
    inc %j
  }
  .unload -rs $script
}
dialog pp-load {
  title "Load Channel"
  size -1 -1 120 16
  option dbu
  combo 1, 3 2 60 78, size drop
  button "Open", 2, 65 2 25 10, ok
  button "Close", 3, 92 2 25 10, default cancel
}
dialog pp-private {
  title "Private Protections"
  size -1 -1 160 135
  option dbu
  tab "Message", 1, 3 1 153 113
  check "Enabled", 8, 14 22 25 10, tab 1 push
  text "Sec(s) To Ignore User:", 14, 40 95 55 8, disable tab 1
  edit "", 15, 97 94 16 10, disable tab 1
  box "Levels To Permit", 17, 21 40 58 50, disable tab 1
  check "Friend", 18, 26 48 27 8, disable tab 1
  check "Auto-Voice", 19, 26 56 38 8, disable tab 1
  check "Unprotected Op", 20, 26 64 48 8, disable tab 1
  check "Protected", 21, 26 72 37 8, disable tab 1
  check "Ultra-Protected", 22, 26 80 47 8, disable tab 1
  check "Channel", 23, 63 24 33 10, disable tab 1
  box "Apply To", 24, 53 17 86 19, disable tab 1
  check "Private", 25, 101 24 30 10, disable tab 1
  box "Permit", 26, 99 55 38 35, disable tab 1
  check "Ops", 27, 104 67 21 8, disable tab 1
  check "Voiced", 28, 104 77 28 8, disable tab 1
  text "(0 = Perm)", 46, 93 105 27 8, disable tab 1
  tab "DCC", 29
  check "Enabled", 30, 14 22 25 10, tab 29 push
  text "Sec(s) To Ignore User", 31, 40 95 54 8, disable tab 29
  text "(0 = Perm)", 33, 93 105 28 8, disable tab 29
  edit "", 32, 97 94 16 10, disable tab 29
  box "Levels To Permit", 34, 51 40 58 50, disable tab 29
  check "Friend", 35, 55 48 27 8, disable tab 29
  check "Auto-Voice", 36, 55 56 38 8, disable tab 29
  check "Unprotected Op", 37, 55 64 48 8, disable tab 29
  check "Protected", 38, 55 72 37 8, disable tab 29
  check "Ultra-Protected", 39, 55 80 47 8, disable tab 29
  box "Apply To", 43, 53 17 86 19, disable tab 29
  check "Chat", 44, 63 24 33 10, disable tab 29
  check "Send", 45, 101 24 30 10, disable tab 29
  tab "Notice", 47
  check "Enabled", 48, 14 22 25 10, tab 47 push
  box "Apply To", 49, 53 17 86 19, disable tab 47
  check "Channel", 50, 63 24 33 10, disable tab 47
  check "Private", 51, 101 24 30 10, disable tab 47
  box "Levels To Permit", 52, 21 40 58 50, disable tab 47
  check "Friend", 53, 26 48 27 8, disable tab 47
  check "Auto-Voice", 54, 26 56 38 8, disable tab 47
  check "Unprotected Op", 55, 26 64 48 8, disable tab 47
  check "Protected", 56, 26 72 37 8, disable tab 47
  check "Ultra-Protected", 57, 26 80 47 8, disable tab 47
  box "Permit", 58, 99 55 38 35, disable tab 47
  check "Ops", 59, 104 67 21 8, disable tab 47
  check "Voiced", 60, 104 77 28 8, disable tab 47
  text "Sec(s) To Ignore User:", 61, 40 95 55 8, disable tab 47
  edit "", 62, 97 94 16 10, disable tab 47
  text "(0 = Perm)", 63, 93 105 27 8, disable tab 47
  tab "CTCP", 64
  check "Enabled", 65, 14 22 25 10, tab 64 push
  box "Apply To", 66, 53 17 86 19, disable tab 64
  check "Channel", 67, 63 24 33 10, disable tab 64
  check "Private", 68, 101 24 30 10, disable tab 64
  box "Levels To Permit", 69, 21 40 58 50, disable tab 64
  check "Friend", 70, 26 48 27 8, disable tab 64
  check "Auto-Voice", 71, 26 56 38 8, disable tab 64
  check "Unprotected Op", 72, 26 64 48 8, disable tab 64
  check "Protected", 73, 26 72 37 8, disable tab 64
  check "Ultra-Protected", 74, 26 80 47 8, disable tab 64
  text "Sec(s) To Ignore User:", 75, 40 95 55 8, disable tab 64
  edit "", 76, 97 94 16 10, disable tab 64
  text "(0 = Perm)", 77, 93 105 27 8, disable tab 64
  box "Permit", 78, 99 55 38 35, disable tab 64
  check "Ops", 79, 104 67 21 8, disable tab 64
  check "Voiced", 80, 104 77 28 8, disable tab 64
  tab "Flood", 2
  box "Listen For", 3, 6 18 123 17, tab 2
  check "Text", 4, 12 25 23 8, tab 2
  check "Action", 5, 37 25 27 8, tab 2
  check "Notice", 6, 67 25 29 8, tab 2
  check "CTCP", 7, 98 25 26 8, tab 2
  box "Trigger", 9, 47 37 68 21, disable tab 2
  edit "", 10, 52 45 10 10, disable tab 2
  text "Lines In", 11, 63 46 21 8, disable tab 2
  edit "", 12, 87 45 10 10, disable tab 2
  text "Sec.", 13, 98 46 12 8, disable tab 2
  box "Levels To Permit", 16, 6 60 58 50, disable tab 2
  check "Friend", 40, 11 67 27 8, disable tab 2
  check "Auto-Voice", 41, 11 75 38 8, disable tab 2
  check "Unprotected Op", 42, 11 83 48 8, disable tab 2
  check "Protected", 91, 11 91 37 8, disable tab 2
  check "Ultra-Protected", 97, 11 99 47 8, disable tab 2
  text "Sec(s) To Ignore User(s):", 98, 83 81 61 8, disable tab 2
  edit "", 99, 106 90 16 10, disable tab 2
  text "(0 = Perm)", 100, 102 100 27 8, disable tab 2
  box "Ignore", 101, 73 60 80 50, disable tab 2
  check "Individual", 102, 113 68 35 10, disable tab 2
  check "All", 103, 81 68 19 10, disable tab 2
  text "Protection Pro v3.05 - By Ringer DaMan", 93, 3 117 154 8, disable center
  menu "File", 89
  item "Save", 90, 89
  item break, 95, 89
  item "Exit", 92, 89, cancel
  menu "Windows", 86
  item "Channel Protections", 87, 86
  item "Userlist", 85, 86
  item break, 83, 86
  item "Update", 84, 86
  menu "Help", 81
  item "Topics", 82, 81
  item break, 96, 81
  item "About", 94, 81
  item break, 88, 81
  item "Unlock Editing", 104, 81
}
dialog pp-channel {
  title "Channel Protections "
  size -1 -1 198 153
  option dbu
  tab "Flood", 1, 3 0 192 137
  box "Levels To Permit", 17, 14 54 60 49, disable tab 1
  check "Friend", 18, 19 61 27 8, disable tab 1
  check "Auto-Voice", 19, 19 69 38 8, disable tab 1
  check "Unprotected Op", 20, 19 77 48 8, disable tab 1
  check "Protected", 21, 19 85 37 8, disable tab 1
  check "Ultra-Protected", 22, 19 93 47 8, disable tab 1
  check "Text", 23, 15 23 25 8, tab 1
  box "Listen For", 24, 8 16 150 17, tab 1
  check "Notice", 25, 72 23 28 8, tab 1
  box "", 26, 14 99 60 14, tab 1
  check "Ops", 27, 19 104 21 8, disable tab 1
  check "Voice", 28, 45 104 25 8, disable tab 1
  check "CTCP", 82, 102 23 26 8, tab 1
  box "Penalty", 83, 87 54 97 59, disable tab 1
  check "Kick", 84, 91 69 22 8, disable tab 1
  check "Ban", 85, 91 88 23 8, disable tab 1
  edit "", 87, 120 67 58 10, disable tab 1 autohs
  box "Kick Msg", 88, 118 59 62 20, disable tab 1
  edit "", 92, 134 101 16 10, disable tab 1 autohs
  text "Ban Time In Sec.", 94, 91 102 43 8, disable tab 1
  box "Trigger", 96, 52 34 60 19, disable tab 1
  edit "", 97, 54 41 11 10, disable tab 1
  text "Lines In", 98, 65 42 20 8, disable tab 1
  edit "", 99, 88 41 11 10, disable tab 1
  text "Sec", 100, 99 42 11 8, disable tab 1
  box "Ban Type", 89, 118 79 62 21, disable tab 1
  combo 90, 120 87 58 35, disable tab 1 drop
  text "(0 = Perm)", 95, 153 102 29 8, disable tab 1
  check "Action", 192, 44 23 26 8, tab 1
  check "Join", 8, 131 23 21 8, tab 1
  edit "", 46, 16 122 166 10, disable tab 1 autohs
  box "Other Commands", 49, 14 115 170 19, disable tab 1
  tab "Mass", 29
  box "Listen For", 138, 8 16 149 17, tab 29
  check "Kick", 141, 15 23 23 8, tab 29
  check "Ban", 142, 42 23 23 8, tab 29
  check "Op", 143, 101 23 20 8, tab 29
  check "DeOp", 144, 125 23 24 8, tab 29
  box "Trigger", 145, 52 34 60 19, disable tab 29
  edit "", 146, 54 41 11 10, disable tab 29
  text "Events In", 147, 65 42 23 8, disable tab 29
  edit "", 148, 88 41 11 10, disable tab 29
  text "Sec", 149, 99 42 11 8, disable tab 29
  box "Levels To Permit", 150, 14 54 60 49, disable tab 29
  check "Friend", 151, 19 61 27 8, disable tab 29
  check "Auto-Voice", 152, 19 69 38 8, disable tab 29
  check "Unprotected Op", 153, 19 77 48 8, disable tab 29
  check "Protected", 154, 19 85 37 8, disable tab 29
  check "Ultra-Protected", 155, 19 93 47 8, disable tab 29
  box "Penalty", 156, 87 54 97 59, disable tab 29
  box "Kick Msg", 157, 118 59 62 20, disable tab 29
  check "Kick", 158, 91 76 22 8, disable tab 29
  edit "", 159, 120 67 58 10, disable tab 29 autohs
  check "Ban", 160, 91 88 23 8, disable tab 29
  box "Ban Type", 161, 118 79 62 21, disable tab 29
  combo 162, 120 87 58 35, disable tab 29 drop
  edit "", 164, 134 101 16 10, disable tab 29 autohs
  text "Ban Time In Sec.", 165, 91 102 42 8, disable tab 29
  text "(0 = Perm)", 166, 153 102 28 8, disable tab 29
  check "UnBan", 9, 68 22 28 10, tab 29
  check "DeOp", 10, 91 64 25 10, disable tab 29
  edit "", 50, 16 122 166 10, disable tab 29 autohs
  box "Other Commands", 51, 14 115 170 19, disable tab 29
  tab "Swear", 47
  check "Enabled", 48, 25 27 25 10, tab 47 push
  check "Friend", 53, 19 61 27 8, disable tab 47
  check "Auto-Voice", 54, 19 69 38 8, disable tab 47
  check "Unprotected Op", 55, 19 77 48 8, disable tab 47
  check "Protected", 56, 19 85 37 8, disable tab 47
  check "Ultra-Protected", 57, 19 93 47 8, disable tab 47
  box "", 58, 14 99 58 14, tab 47
  check "Ops", 59, 19 104 21 8, disable tab 47
  check "Voice", 60, 45 104 26 8, disable tab 47
  combo 167, 83 24 34 32, disable tab 47 sort size edit
  box "Levels To Permit", 168, 14 54 58 49, disable tab 47
  box "Swear Words", 169, 78 16 73 41, disable tab 47
  button "Add", 170, 120 24 26 12, disable tab 47
  button "Remove", 171, 120 39 26 12, disable tab 47
  box "Penalty", 180, 84 59 101 55, disable tab 47
  check "Kick", 181, 88 66 22 8, disable tab 47
  text "Kick Msg:", 184, 114 66 24 8, disable tab 47
  edit "", 185, 139 65 44 10, disable tab 47 autohs
  check "Ban", 186, 88 87 22 10, disable tab 47
  text "Ban Type:", 187, 114 88 25 8, disable tab 47
  combo 188, 139 87 44 42, disable tab 47 drop
  text "Ban Time In Sec", 189, 95 101 41 8, disable tab 47
  edit "", 190, 138 100 16 10, disable tab 47
  text "(0 = Perm)", 191, 155 101 27 8, disable tab 47
  text "Times To Warn Before Kick =", 247, 106 76 66 8, disable tab 47
  edit "", 248, 172 75 11 10, disable tab 47
  edit "", 52, 16 122 166 10, disable tab 47 autohs
  box "Other Commands", 61, 14 115 170 19, disable tab 47
  tab "Repeat", 64
  check "Enabled", 65, 25 27 25 10, tab 64 push
  box "Penalty", 66, 89 19 93 37, disable tab 64
  box "Levels To Permit", 69, 14 54 58 49, disable tab 64
  check "Friend", 70, 19 61 27 8, disable tab 64
  check "Auto-Voice", 71, 19 69 38 8, disable tab 64
  check "Unprotected Op", 72, 19 77 48 8, disable tab 64
  check "Protected", 73, 19 85 37 8, disable tab 64
  check "Ultra-Protected", 74, 19 93 47 8, disable tab 64
  edit "", 193, 125 27 11 10, disable tab 64
  box "", 195, 14 99 58 14, tab 64
  check "Ops", 196, 19 104 22 8, disable tab 64
  check "Voice", 197, 44 104 25 8, disable tab 64
  text "Repeats", 198, 137 29 25 8, disable tab 64
  edit "", 200, 125 60 11 10, disable tab 64
  text "Kick Msg :", 202, 97 41 25 8, disable tab 64
  edit "", 203, 124 40 53 10, disable tab 64 autohs
  box "", 204, 89 52 93 54, tab 64
  text "Ban Type", 205, 97 74 25 8, disable tab 64
  combo 206, 125 72 52 41, disable tab 64 size drop
  edit "", 208, 99 91 16 10, disable tab 64
  text "(0 = Perm)", 209, 140 92 29 8, disable tab 64
  text "Repeats", 201, 138 62 25 8, disable tab 64
  box "Ban Time", 210, 97 84 76 19, disable tab 64
  text "Sec(s)", 211, 116 92 19 8, disable tab 64
  check "Kick", 213, 93 27 23 10, disable tab 64
  check "Ban", 214, 93 60 23 10, disable tab 64
  text "No extra commands available for this option", 80, 20 122 145 8, disable tab 64 center
  tab "Clone", 81
  box "Settings", 215, 71 17 97 32, disable tab 81
  check "Enabled", 216, 25 27 25 10, tab 81 push
  text "Clones To Permit", 217, 98 24 43 8, disable tab 81
  edit "", 218, 145 23 11 10, disable tab 81
  box "Levels To Permit", 219, 14 54 58 49, disable tab 81
  text "Match Host Type", 220, 73 37 43 8, disable tab 81
  combo 221, 119 35 46 45, disable tab 81 size drop
  check "Friend", 222, 19 61 27 8, disable tab 81
  check "Auto-Voice", 223, 19 69 38 8, disable tab 81
  check "Unprotected Op", 224, 19 77 48 8, disable tab 81
  check "Protected", 225, 19 85 37 8, disable tab 81
  check "Ultra-Protected", 226, 19 93 47 8, disable tab 81
  box "", 227, 14 99 58 14, tab 81
  check "Ops", 228, 19 104 22 8, disable tab 81
  check "Voice", 229, 44 104 25 8, disable tab 81
  check "Kick", 237, 98 67 22 8, disable tab 81
  box "Penalty", 238, 88 54 97 59, disable tab 81
  box "Kick Msg", 239, 123 59 58 20, disable tab 81
  edit "", 240, 125 67 54 10, disable tab 81 autohs
  check "Ban", 241, 98 85 21 10, disable tab 81
  combo 243, 126 88 53 35, disable tab 81 size drop
  box "Ban Type", 242, 123 80 58 21, disable tab 81
  text "Ban Time In Sec", 244, 93 103 41 8, disable tab 81
  edit "", 245, 133 102 16 10, disable tab 81
  text "(0 = Perm)", 246, 152 103 28 8, disable tab 81
  edit "", 67, 16 122 166 10, disable tab 81 autohs
  box "Other Commands", 68, 14 115 170 19, disable tab 81
  tab "Wingate", 109
  check "Enabled", 230, 25 27 25 10, tab 109 push
  box "Levels To Permit", 231, 14 54 58 49, disable tab 109
  check "Friend", 232, 19 61 27 8, disable tab 109
  check "Auto-Voice", 233, 19 69 38 8, disable tab 109
  check "Unprotected Op", 234, 19 77 48 8, disable tab 109
  check "Protected", 235, 19 85 37 8, disable tab 109
  check "Ultra-Protected", 236, 19 93 47 8, disable tab 109
  box "Penalty", 251, 88 55 97 59, disable tab 109
  check "Kick", 252, 98 68 22 8, disable tab 109
  box "Kick Msg", 253, 123 60 58 20, disable tab 109
  edit "", 254, 125 68 54 10, disable tab 109 autohs
  box "Ban Type", 255, 123 81 58 21, disable tab 109
  check "Ban", 256, 98 86 21 10, disable tab 109
  text "Ban Time In Sec", 257, 93 104 41 8, disable tab 109
  edit "", 258, 133 103 16 10, disable tab 109
  text "(0 = Perm)", 259, 152 104 28 8, disable tab 109
  combo 260, 126 89 53 35, disable tab 109 size drop
  box "Scan Ports", 261, 81 16 68 36, disable tab 109
  combo 262, 86 24 28 26, disable tab 109 sort size edit
  button "Add", 263, 118 23 26 12, disable tab 109
  button "Remove", 264, 118 36 26 12, disable tab 109
  edit "", 75, 16 122 166 10, disable tab 109 autohs
  box "Other Commands", 76, 14 115 170 19, disable tab 109
  tab User, 2
  box "Protected", 3, 13 18 58 52, tab 2
  check "Deop Protection", 4, 17 28 50 10, tab 2
  check "Kick Protection", 5, 17 42 50 10, tab 2
  check "Ban Protection", 6, 17 56 50 10, tab 2
  box "Craplisted", 7, 88 18 97 55, tab 2
  check "Kick", 16, 128 30 23 8, tab 2
  check "Ban", 30, 157 30 22 8, tab 2
  text "Ban Type", 31, 94 44 25 8, disable tab 2
  combo 32, 121 43 60 44, tab 2 size drop
  text "Ban\Devoice Time In Sec(s)", 33, 92 57 47 13, disable tab 2 center
  edit "", 34, 141 58 16 10, disable tab 2
  text "(0 = Perm)", 35, 158 59 26 8, disable tab 2
  check "Ignore", 36, 94 75 28 8, tab 2
  check "Query", 37, 103 84 26 8, disable tab 2
  check "Notice", 38, 103 93 27 8, disable tab 2
  check "CTCP", 39, 103 102 29 8, disable tab 2
  check "DCC", 40, 140 84 26 8, disable tab 2
  check "Mode", 41, 140 93 27 8, disable tab 2
  check "Channel", 42, 140 102 32 8, disable tab 2
  box "", 43, 88 69 97 43, tab 2
  check "DeVoice", 45, 93 29 30 10, tab 2
  text "Protection Pro v3.05 - By Ringer DaMan", 13, 14 144 169 8, disable center
  menu "File", 101
  item "New Channel", 12, 101
  item "Load Channel", 14, 101
  item "Save Channel", 104, 101
  item "Delete This Channel", 15, 101
  item break, 119, 101
  item "Exit", 106, 101, ok
  menu "Windows", 102
  item "Private Protections", 107, 102
  item "Userlist", 44, 102
  item break, 78, 102
  item "Update", 77, 102
  menu "Help", 103
  item "Topics", 11, 103
  item break, 117, 103
  item "About", 116, 103
  item break, 86, 103
  item "Unlock Editing", 91, 103
}

dialog pp-about {
  title "Protection Pro - About"
  size -1 -1 175 135
  option dbu
  box "", 1, 11 5 152 107
  button "Close", 2, 72 120 37 12, ok
  text "Protection Pro v3.05", 3, 61 14 63 8
  text "An mIRC 5.91 Addon", 4, 61 22 52 8
  text "Written By Ringer DaMan", 5, 61 30 63 8
  text "Please visit us on the Undernet Service", 6, 16 82 97 8
  text "Channel #Ripper", 7, 16 90 65 8
  icon 8, 70 39 40 40,  $ppdir $+ pp.JPG, 0, noborder
  link "ringer@softhome.net", 9, 64 101 52 8
}
dialog pp-update {
  title "PP-Update"
  size -1 -1 138 80
  option dbu
  box "", 2, 4 28 129 34
  text "Current Version -", 3, 38 36 43 8
  text "Latest Version -", 4, 41 49 40 8
  text "", 8, 85 36 22 8
  text "", 9, 85 49 22 8
  text "Contacting Update Server.....", 10, 5 15 96 8
  button "Update", 11, 107 14 25 10, disable
  button "Close", 13, 58 67 30 10, cancel
  edit "", 5, 4 2 130 10, read
}