;;;;;;             ;
;                  ;
;     ircdam 3     ;
;                  ;
;    by defproc    ;
;                  ;
;             ;;;;;;












on *:start:{
  if $exists(ircdam3.ini) {
    remini ircdam3.ini lines
  }
  echo -s *** using: ircdam 3 by defproc
  if %damlines < 2 {
    set %damlines 10
  }
  if $exists(damkicks.txt) == $false {
    echo -s *** ircdam first run - initializing
    write damkicks.txt YoR LaYmE!@#!@
    write damkicks.txt sssssssssss
    write damkicks.txt bravo
    write damkicks.txt very good.
  }
}

on *:notice:*:#:{
  if $readini(ircdam3.ini,chans,$chan) == $nul { halt }
  .timerclear $+ $nick 1 10 damclear $nick
  %lines = $readini(ircdam3.ini,lines,$nick)
  inc %lines
  writeini ircdam3.ini lines $nick %lines
  .timerdec $+ $nick 0 1 declines $nick
  if %lines > %damlimit {
    damaction $chan $nick
  }
}
alias declines {
  %lines = $readini(ircdam3.ini,lines,$1)
  dec %lines
  ; echo -at *** debug ] $1 now has lines value of %lines
  if %lines <= 0 {
    .timerdec $+ $1 off
    damclear $1
    return
  }
  writeini ircdam3.ini lines $1 %lines
}
alias damclear {
  remini ircdam3.ini lines $1
  ;echo -at *** debug ] lines record cleared for $1

}
alias damaction {
  damclear $2
  if $me isop $1 {
    ban $1 $2 3
    kick $1 $2 ircdam 3 ] $read damkicks.txt
    return
  }
  echo -t $1 *** ircdam 3 ] $nick exceeded %damlimit lines but unable to kickban!

}


menu channel {
  ircdam 3
  .$iif($readini(ircdam3.ini,chans,$chan) == yes,[X],[ ]) protect $chan:{
    set %damelse 1
    if $readini(ircdam3.ini,chans,$chan) == yes {
      remini ircdam3.ini chans $chan
      echo -at *** ircdam 3 ] $chan is no longer protected
      set %damelse 0
    } 
    if %damelse = 1 {
      writeini ircdam3.ini chans $chan yes
      echo -at *** ircdam 3 ] $chan is now under protection
    }
  }
  .set max lines ( $+ %damlimit $+ ):set %damlimit $?="set max lines"
  .-
  .about ircdam 3:aboutircdam3
}
alias aboutircdam3 {
  echo -at *** ircdam 3 by defproc
}

on *:text:*:#:{
  if $readini(ircdam3.ini,chans,$chan) == $nul { halt }
  .timerclear $+ $nick 1 10 damclear $nick
  %lines = $readini(ircdam3.ini,lines,$nick)
  inc %lines
  writeini ircdam3.ini lines $nick %lines
  ;echo -t $chan *** debug ] $nick now has lines value of %lines
  .timerdec $+ $nick 0 1 declines $nick
  if %lines > %damlimit {
    damaction $chan $nick
  }
}