No spam

Commenter

Contenu du snippet

No Spam est tout simplement un anti-spam . Lorsque qu'un usager vous envois un pv contenant un mot(s) clé(s) l'addon ferme automatiquement la boite de dicution en privé . Ces mots sont enregistrer au préalble dans une liste mots .

Source / Exemple : 


;#########################
;#########################
;###                   ###
;###  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
}

Conclusion :


Have fun

By aBd0ulaX

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (abdoulax)