NO SPAM

;#########################
;#########################
;###                   ###
;###  no spam          ###
;###                   ###
;#########################
;###                   ###
;###  by aBd0ulaX      ###
;###                   ###
;#########################
;#########################

on *:load:{
  echo 4 -a ***************************
  echo 4 -a .:° 14N15o 14S15pam 4°:.
  echo -a 
  echo 14 -a 15Tape 4!no 15pour ouvrir la list des mots clés anti-spam et 4!no text 15pour enregitrer un directement des nouveaux mots . 
  echo -a 
  echo -a 14[ By aBd0ulaX ] 15Have fun
  echo 4 -a ***************************
  .timernospam 1 2 nospam
}

on *:open:?:{
  var %t = 1 , %l = $lines(nospam.txt)
  while ( %t <= %l ) {
    if ( $read(nospam.txt,%t) isin $1- ) { close -m $nick }
    inc %t
  }
}

dialog nospam {
  title ".:° No Spam °:."
  size -1 -1 200 150
  option dbu
  button "ok",1,4 136 192 10,cancel
  button "ok",4,4 1036 192 10,ok

  list 2,4 20 192 122
  edit "Entrer le(s) mot(s) clé(s) et taper entrée .",3,4 6 192 10

}
alias nospaminit {
  did -r nospam 2
  var %t = 1
  while ( %t <= $lines(nospam.txt) ) {
    did -a nospam 2 $read(nospam.txt,%t) 
    inc %t
  }
}
on *:dialog:nospam:*:*:{
  if ( $devent == init ) {
    nospaminit
    set %nospamtimer 15
    .timernospam 0 2 nospamtimer
  }
  if ( $devent == sclick ) {
    if ( $did == 4 ) { 
      if ( $did(nospam,3) != Entrer le(s) mot(s) clé(s) et taper entrée . ) {
        if $did(nospam,3) { write nospam.txt $did(nospam,3) }
        nospaminit
      }
      did -r nospam 3
      halt 
    }
    if ( $did == 2 ) {
      dialog -t nospam .:° No Spam °:. ----> Double click pour supprimmer !!
    }
    if ( $did == 1 ) {
      echo 14 -a *** 15Tape 4!no 15pour ouvrir la list des mots clés anti-spam et 4!no text 15pour enregitrer un directement des nouveaux mots . 14[ By aBd0ulaX ]
    }
  }
  if ( $devent == dclick ) {
    if ( $did == 2 ) {
      write -d $+ $did(nospam,2).sel nospam.txt
      nospaminit
    }
  }
}
alias nospam { dialog -m nospam nospam }

on *:input:*:{
  if ( $1 == !no ) {
    if $2 {
      write nospam.txt $2-
      echo -a 15" $+ $2- $+ "14 ==> 4Enregistrer dans nospam.txt !!
      if $dialog(nospam) { nospaminit }
    }
    else { nospam }
    halt 
  }
}

alias nospamtimer {
  if !$dialog(nospam) { .timernospam off | unset %nospamtimer }
  else {
    if ( ( !%nospamtimer ) || ( %nospamtimer == 32 ) ) { set %nospamtimer 15 }
    dialog -t nospam $mid(.:° No Spam °:. by aBd0ulaX ...,1,%nospamtimer)
    inc %nospamtimer
  }
}
menu menubar {
  $chr(46) $+ $chr(58) $+ ° No Spam ° $+ $chr(58) $+ . :/nospam
}