ANTI -INSULTES, BLAGUES ET AUTO-REPONSES DIVERSES antiinsultes, highlight, blagues, spam, automatique, Source N°27603

Information sur la source

Catégorie :AddOns Classé sous : antiinsultes, highlight, blagues, spam, automatique Niveau : Débutant Date de création : 16/11/2004 Date de mise à jour : 02/02/2006 21:44:34 Vu / téléchargé: 8 459 / 557

Auteur : J4Gu4R

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

-système high_light des mots interdits et urls interdits
-éditeur de phrases réponses automatique aux insultes
-dialog en 3 onglets :

. possibilité de configurer les mots et les urls de façon indépendante
(fermeture auto et réponse auto pour les insultes, et,
fermeture auto des spam URLs,
le tout indépendemment)

. la possibilité de configurer des phrases
auto-réponse aux insultes
2 possibilitées fichiers divers (2 higlight selon votre idée)
un générateur de blagues configurable

le tout sans aller dans le répertoire Mirc ( à noter que ces phrases seront aléatoires )

. possibilité de configurer le son lors des évênement anti-insultes et réponses diverse

- un seul fichier.ini à installer (voir le lisez-moi.txt)

pour l'utiliser TELECHARGER LE ZIP

Source

pour utiliser ce code téléchargez le zip :))
alias highlight { dialog -m highlight highlight }
dialog highlight {
title "HIGH-LIGHT"
size -1 -1 370 240
option pixels
tab "éditeur fichiers", 100, 0 0 367 238, tab 100
text "fichiers à éditer :", 102, 18 26 140 30, tab 100
combo 103, 18 40 150 200,tab 100 size drop
button "Ajouter", 104, 176 40 60 20, tab 100
button "Supprimer", 105, 236 40 60 20, tab 100
button "Modifier", 106, 296 40 60 20, tab 100
text "écrits ta phrase :", 107, 18 65 140 30, tab 100
edit "", 108, 18 82 336 22,tab 100 autohs center
text "liste des phrases éditées :", 109, 18 110 140 30, tab 100
list 110, 18 125 336 100,tab 100 size vsbar
tab "éditeur mots", 200, 0 0 367 238, tab 200
text "fichiers à éditer :", 202, 18 26 140 30, tab 200
combo 203, 18 40 150 200,tab 200 size drop
button "Ajouter", 204, 176 40 60 20, tab 200
button "Supprimer", 205, 236 40 60 20, tab 200
button "Modifier", 206, 296 40 60 20, tab 200
text "écrits tes mots :", 207, 18 65 140 30, tab 200
edit "", 208, 18 82 336 22,tab 200 autohs
text "liste des mots édités :", 209, 18 110 140 30, tab 200
list 210, 18 125 336 100,tab 200 size vsbar
tab "sclick", 300, 0 0 367 238
box "réponse insultes :", 301, 6 30 120 40, tab 300
check "ACTIVER", 302, 18 46 60 20, tab 300
box "fermer PV insutants :", 303, 6 70 120 40, tab 300
check "ACTIVER", 304, 18 86 60 20, tab 300
box "fermer URL spam :", 305, 6 110 120 40, tab 300
check "ACTIVER", 306, 18 126 60 20, tab 300
edit "", 307, 6 213 120 17, center autohs read tab 300
button "SONS InSuLTeS", 308, 6 192 120 20, tab 300
box "fermer spammers :", 309, 6 150 120 40, tab 300
check "ACTIVER", 310, 18 166 60 20, tab 300
box "réponses pv auto :", 311, 130 30 120 40, tab 300
check "ACTIVER", 312, 142 46 60 20, tab 300
box "fermeture pv auto :", 313, 130 70 120 40, tab 300
check "ACTIVER", 314, 142 86 60 20, tab 300
box "réponses pv divers :", 315, 130 110 120 40, tab 300
check "ACTIVER", 316, 142 126 60 20, tab 300
box "fermeture pv divers :", 317, 130 150 120 40, tab 300
check "ACTIVER", 318, 142 166 60 20, tab 300
edit "", 319, 130 213 120 17, center autohs read tab 300
button "SONS réponse auto", 320, 130 192 120 20, tab 300
box "BLaGueS SaLonS :", 321, 255 30 107 40, tab 300
check "ACTIVER", 322, 267 46 60 20, tab 300
}
on *:dialog:highlight:*:*:{
if $devent == init {
did -ra $dname 307 $nopath(%music-anti)
did -ra $dname 319 $nopath(%music-auto)
if (%highlight-Active-air == ON) { did -c highlight 302 }
if (%highlight-Active-aif == ON) { did -c highlight 304 }
if (%highlight-Active-auf == ON) { did -c highlight 306 }
if (%highlight-Active-spammer == ON) { did -c highlight 310 }
if (%highlight-Active-rpa == ON) { did -c highlight 312 }
if (%highlight-Active-fpa == ON) { did -c highlight 314 }
if (%highlight-Active-rpd == ON) { did -c highlight 316 }
if (%highlight-Active-fpd == ON) { did -c highlight 318 }
if (%highlight-Active-bs == ON) { did -c highlight 322 }
Did -r highlight 103
set %nblist 1
While ( %nblist <= $findfile( highlight\edit-fichiers , *.txt , 0 ) ) {
Did -a highlight 103 $NoPath( $findfile( highlight\edit-fichiers , *.txt , %nblist ) )
Inc %nblist
}
Did -c highlight 103 1
ChargerListehighlight
Did -r highlight 203
set %nblist2 1
While ( %nblist2 <= $findfile( highlight\edit-mots , *.txt , 0 ) ) {
Did -a highlight 203 $NoPath( $findfile( highlight\edit-mots , *.txt , %nblist2 ) )
Inc %nblist2
}
Did -c highlight 203 1
ChargerListehighlight2
}
if $devent == edit {
if ($did == 307 ) {
set %music-anti $did(307)
}
if ($did == 319 ) {
set %music-auto $did(319)
}
}
if $devent == sclick {
if ($did == 302 ) {
if (%highlight-Active-air == ON) { set %highlight-Active-air OFF }
else { set %highlight-Active-air ON }
}
if ($did == 304 ) {
if (%highlight-Active-aif == ON) { set %highlight-Active-aif OFF }
else { set %highlight-Active-aif ON }
}
if ($did == 306 ) {
if (%highlight-Active-auf == ON) { set %highlight-Active-auf OFF }
else { set %highlight-Active-auf ON }
}
if ($did == 308) {
set %music-anti $sfile($wavedir,Choisissez la Musique high-light.)
did -ra $dname 307 $nopath(%music-anti)
}
if ($did == 310 ) {
if (%highlight-Active-spammer == ON) { set %highlight-Active-spammer OFF }
else { set %highlight-Active-spammer ON }
}
if ($did == 312 ) {
if (%highlight-Active-rpa == ON) { set %highlight-Active-rpa OFF }
else { set %highlight-Active-rpa ON }
}
if ($did == 314 ) {
if (%highlight-Active-fpa == ON) { set %highlight-Active-fpa OFF }
else { set %highlight-Active-fpa ON }
}
if ($did == 316 ) {
if (%highlight-Active-rpd == ON) { set %highlight-Active-rpd OFF }
else { set %highlight-Active-rpd ON }
}
if ($did == 318 ) {
if (%highlight-Active-fpd == ON) { set %highlight-Active-fpd OFF }
else { set %highlight-Active-fpd ON }
}
if ($did == 320) {
set %music-auto $sfile($wavedir,Choisissez la Musique high-light.)
did -ra $dname 319 $nopath(%music-auto)
}
if ($did == 322 ) {
if (%highlight-Active-bs == ON) { set %highlight-Active-bs OFF }
else { set %highlight-Active-bs ON }
}
If ($Did == 104) {
If ($Did(108) != $Null) {
Did -a highlight 110 $Did(108)
Did -r highlight 108
SauverListehighlight
}
}
If ($Did == 204) {
If ($Did(208) != $Null) {
Did -a highlight 210 $Did(208)
Did -r highlight 208
SauverListehighlight2
}
}
If ($Did == 105) {
If ($Did(110).Sel != $Null) {
Did -r highlight 108
Did -d highlight 110 $Did(110).Sel
SauverListehighlight
}
}
If ($Did == 205) {
If ($Did(210).Sel != $Null) {
Did -r highlight 208
Did -d highlight 210 $Did(210).Sel
SauverListehighlight2
}
}
If ($Did == 103) {
ChargerListehighlight
Did -r highlight 108
}
If ($Did == 203) {
ChargerListehighlight2
Did -r highlight 208
}
If ($Did == 110) {
Did -ra highlight 108 $Did(110).Seltext
}
If ($Did == 210) {
Did -ra highlight 208 $Did(210).Seltext
}
If ($Did == 106) {
Write -l $+ $did(110).sel highlight\edit-fichiers $+ \ $+ $Did(103).Seltext $did(108)
Did -r highlight 108
ChargerListehighlight
}
If ($Did == 206) {
Write -l $+ $did(210).sel highlight\edit-mots $+ \ $+ $Did(203).Seltext $did(208)
Did -r highlight 208
ChargerListehighlight2
}
}
}
Alias SauverListehighlight {
Var %nblist = 1
Write -c highlight\edit-fichiers $+ \ $+ $Did(103).Seltext
While (%nblist <= $Did(110).Lines) {
Did -c highlight 110 %nblist
Write -l $+ %nblist highlight\edit-fichiers $+ \ $+ $Did(103).Seltext $Did(110).SelText
Inc %nblist
}
}
Alias ChargerListehighlight {
Var %nblist = 1
Did -r highlight 110
While (%nblist <= $Lines(highlight\edit-fichiers $+ \ $+ $Did(103).Seltext) ) {
Did -a highlight 110 $Read( highlight\edit-fichiers $+ \ $+ $Did(103).Seltext , %nblist )
Inc %nblist
}
}
Alias SauverListehighlight2 {
Var %nblist2 = 1
Write -c highlight\edit-mots $+ \ $+ $Did(203).Seltext
While (%nblist2 <= $Did(210).Lines) {
Did -c highlight 210 %nblist2
Write -l $+ %nblist2 highlight\edit-mots $+ \ $+ $Did(203).Seltext $Did(210).SelText
Inc %nblist2
}
}
Alias ChargerListehighlight2 {
Var %nblist2 = 1
Did -r highlight 210
While (%nblist2 <= $Lines(highlight\edit-mots $+ \ $+ $Did(203).Seltext) ) {
Did -a highlight 210 $Read( highlight\edit-mots $+ \ $+ $Did(203).Seltext , %nblist2 )
Inc %nblist2
}
}
Alias foundtxt {
If (!$1-) { halt }
Var %a = 0, %aa = $lines(highlight\edit-mots\mot_pour_insulte.txt)
While (%aa > %a) {
InC %a
If ($read(highlight\edit-mots\mot_pour_insulte.txt,%a) isin $1-) { return yes }
}
}
Alias foundtxte {
If (!$1-) { halt }
Var %b = 0, %bb = $lines(highlight\edit-mots\mot_pour_URLS.txt)
While (%bb > %b) {
InC %b
If ($read(highlight\edit-mots\mot_pour_URLS.txt,%b) isin $1-) { return yes }
}
}
Alias foundtxtes {
If (!$1-) { halt }
Var %c = 0, %cc = $lines(highlight\edit-mots\mot_pour_spam.txt)
While (%cc > %c) {
InC %c
If ($read(highlight\edit-mots\mot_pour_spam.txt,%c) isin $1-) { return yes }
}
}
Alias mrepauto {
If (!$1-) { halt }
Var %d = 0, %dd = $lines(highlight\edit-mots\mot_pour_divers1.txt)
While (%dd > %d) {
InC %d
If ($read(highlight\edit-mots\mot_pour_divers1.txt,%d) isin $1-) { return yes }
}
}
Alias mrepdiv {
If (!$1-) { halt }
Var %e = 0, %ee = $lines(highlight\edit-mots\mot_pour_divers2.txt)
While (%ee > %e) {
InC %e
If ($read(highlight\edit-mots\mot_pour_divers2.txt,%e) isin $1-) { return yes }
}
}
Alias mrepblag {
If (!$1-) { halt }
Var %f = 0, %ff = $lines(highlight\edit-mots\mot_pour_blague.txt)
While (%ff > %f) {
InC %f
If ($read(highlight\edit-mots\mot_pour_blague.txt,%f) isin $1-) { return yes }
}
}
On *:text:*:?:{
If ($foundtxt($1-) == yes) {
if (%highlight-Active-air == ON ) {
echo -s 4 $nick à dit $1- à $time
msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_insulte.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
if ($exists(%music-anti)) {
splay %music-anti
}
else echo -s 3pas de son de insultes configuré
}
if (%highlight-Active-aif == ON ) {
echo -s $1- à actionné mon anti-insulte ( $time )
msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_insulte_stop.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
echo -s 3 le pv est fermé automatiquement !!
close -m $nick
if ($exists(%music-anti)) {
splay %music-anti
}
else echo -s 3pas de son de insultes configuré
}
}
If ($foundtxte($1-) == yes) {
if (%highlight-Active-auf == ON ) {
notice $nick 4 $nick $1- à actionné mon anti-spam_URLs ( $time )
notice $nick 3 $nick 4proxy @J4Gu4R 1à la joie de vous avertir que ce spam est en mode 4/ignore 1automatique à bientôt dans les PV de $me !! 3:p
echo -s 4 $nick est un spam-URL il est maintenant ignoré :x
close -m $nick
if ($exists(%music-anti)) {
splay %music-anti
}
else echo -s 3pas de son de spam configuré
}
}
If ($foundtxtes($1-) == yes) {
if (%highlight-Active-spammer == ON ) {
notice $nick 3 $nick 4proxy @J4Gu4R 1à la joie de vous avertir que ce spam est en mode 4/ignore 1automatique à bientôt dans les PV de $me !! 3:p
echo -s $time 4 $nick est un spam il est maintenant ignoré :p
ignore $nick 1 | /closemsg $nick
if ($exists(%music-anti)) {
splay %music-anti
}
else echo -s 3pas de son de spam configuré
}
}
If ($mrepauto($1-) == yes) {
if (%highlight-Active-rpa == ON ) {
echo -s 4 $nick à dit $1- à $time
msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers1.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
ignore $nick 1 | /closemsg $nick
if ($exists(%music-auto)) {
splay %music-auto
}
else echo -s 3pas de son de insultes configuré
}
if (%highlight-Active-fpa == ON ) {
echo -s 4 $nick à dit $1- à $time
msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers1_stop.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
echo -s 3 le pv est fermé automatiquement !!
close -m $nick
if ($exists(%music-auto)) {
splay %music-auto
}
else echo -s 3pas de son de insultes configuré
}
}
If ($mrepdiv($1-) == yes) {
if (%highlight-Active-rpd == ON ) {
echo -s 4 $nick à dit $1- à $time
msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers2.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
if ($exists(%music-auto)) {
splay %music-auto
}
else echo -s 3pas de son de insultes configuré
}
if (%highlight-Active-fpd == ON ) {
echo -s 4 $nick à dit $1- à $time
msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers2_stop.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
echo -s 3 le pv est fermé automatiquement !!
close -m $nick
if ($exists(%music-auto)) {
splay %music-auto
}
else echo -s 3pas de son de insultes configuré
}
}
}
On *:text:*:#:{
If ($mrepblag($1-) == yes) {
if (%highlight-Active-bs == ON ) {
if !blonde == $strip($1-) {
inc %blonde
if (%blonde <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_blonde.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !brune == $strip($1-) {
inc %brune
if (%brune <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_blonde.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !rousse == $strip($1-) {
inc %rousse
if (%rousse <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_blonde.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !gay == $strip($1-) {
inc %gay
if (%gay <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_gay.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !gore == $strip($1-) {
inc %gore
if (%gore <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_gore.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !question == $strip($1-) {
inc %question
if (%question <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_question.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !tamere == $strip($1-) {
inc %tamere
if (%tamere <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_tamere.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !boulet == $strip($1-) {
inc %boulet
if (%boulet <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_fou.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !kinder == $strip($1-) {
inc %kinder
if (%kinder <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_fou.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
elseif !math == $strip($1-) {
inc %math
if (%math <= 10) {
msg $chan $replace($read(highlight\edit-fichiers\blague_math.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
}
else {
notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
}
}
}
}
}
On *:input:#:{
if ($strip($1-) == !reset) {
echo -s 4,3remise à zéro compteur high-light blagues
unset %math
unset %blonde
unset %brune
unset %rousse
unset %gay
unset %kinder
unset %question
unset %boulet
unset %tamere
unset %gore
unset %lool
}
elseif ($strip($1-) == !fou) {
msg $chan $replace($read(highlight\edit-fichiers\blague_fou.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
halt
}
}
on *:unload:{
unset %math
unset %blonde
unset %brune
unset %rousse
unset %gay
unset %kinder
unset %question
unset %boulet
unset %tamere
unset %gore
unset %lool
}
menu menubar,query,nicklist,channel {
slaps $$1 :/highlight
}

pour utiliser ce code téléchargez le zip :))

alias highlight { dialog -m highlight highlight }
dialog highlight {
  title "HIGH-LIGHT"
  size -1 -1 370 240
  option pixels
  tab "éditeur fichiers", 100, 0 0 367 238, tab 100
  text "fichiers à éditer :", 102, 18 26 140 30, tab 100
  combo 103, 18 40 150 200,tab 100 size drop 
  button "Ajouter", 104, 176 40 60 20, tab 100
  button "Supprimer", 105, 236 40 60 20, tab 100
  button "Modifier", 106, 296 40 60 20, tab 100
  text "écrits ta phrase :", 107, 18 65 140 30, tab 100
  edit "", 108, 18 82 336 22,tab 100 autohs center
  text "liste des phrases éditées :", 109, 18 110 140 30, tab 100
  list 110, 18 125 336 100,tab 100 size vsbar

  tab "éditeur mots", 200, 0 0 367 238, tab 200
  text "fichiers à éditer :", 202, 18 26 140 30, tab 200
  combo 203, 18 40 150 200,tab 200 size drop 
  button "Ajouter", 204, 176 40 60 20, tab 200
  button "Supprimer", 205, 236 40 60 20, tab 200
  button "Modifier", 206, 296 40 60 20, tab 200
  text "écrits tes mots :", 207, 18 65 140 30, tab 200
  edit "", 208, 18 82 336 22,tab 200 autohs 
  text "liste des mots édités :", 209, 18 110 140 30, tab 200
  list 210, 18 125 336 100,tab 200 size vsbar

  tab "sclick", 300, 0 0 367 238
  box "réponse insultes :", 301, 6 30 120 40, tab 300
  check "ACTIVER", 302, 18 46 60 20, tab 300
  box "fermer PV insutants :", 303, 6 70 120 40, tab 300
  check "ACTIVER", 304, 18 86 60 20, tab 300
  box "fermer URL spam :", 305, 6 110 120 40, tab 300
  check "ACTIVER", 306, 18 126 60 20, tab 300
  edit "", 307, 6 213 120 17, center autohs read tab 300
  button "SONS InSuLTeS", 308, 6 192 120 20, tab 300
  box "fermer spammers :", 309, 6 150 120 40, tab 300
  check "ACTIVER", 310, 18 166 60 20, tab 300

  box "réponses pv auto :", 311, 130 30 120 40, tab 300
  check "ACTIVER", 312, 142 46 60 20, tab 300
  box "fermeture pv auto :", 313, 130 70 120 40, tab 300
  check "ACTIVER", 314, 142 86 60 20, tab 300
  box "réponses pv divers :", 315, 130 110 120 40, tab 300
  check "ACTIVER", 316, 142 126 60 20, tab 300
  box "fermeture pv divers :", 317, 130 150 120 40, tab 300
  check "ACTIVER", 318, 142 166 60 20, tab 300
  edit "", 319, 130 213 120 17, center autohs read tab 300
  button "SONS réponse auto", 320, 130 192 120 20, tab 300
  box "BLaGueS SaLonS :", 321, 255 30 107 40, tab 300
  check "ACTIVER", 322, 267 46 60 20, tab 300
}

on *:dialog:highlight:*:*:{ 
  if $devent == init { 
    did -ra $dname 307 $nopath(%music-anti)
    did -ra $dname 319 $nopath(%music-auto)
    if (%highlight-Active-air == ON) { did -c highlight 302 }
    if (%highlight-Active-aif == ON) { did -c highlight 304 }
    if (%highlight-Active-auf == ON) { did -c highlight 306 }
    if (%highlight-Active-spammer == ON) { did -c highlight 310 }
    if (%highlight-Active-rpa == ON) { did -c highlight 312 }
    if (%highlight-Active-fpa == ON) { did -c highlight 314 }
    if (%highlight-Active-rpd == ON) { did -c highlight 316 }
    if (%highlight-Active-fpd == ON) { did -c highlight 318 }
    if (%highlight-Active-bs == ON) { did -c highlight 322 }
    Did -r highlight 103
    set %nblist 1
    While ( %nblist <= $findfile( highlight\edit-fichiers , *.txt ,  0 ) ) {
      Did -a highlight 103 $NoPath( $findfile( highlight\edit-fichiers , *.txt ,  %nblist ) )
      Inc %nblist
    }
    Did -c highlight 103 1
    ChargerListehighlight
    Did -r highlight 203
    set %nblist2 1
    While ( %nblist2 <= $findfile( highlight\edit-mots , *.txt ,  0 ) ) {
      Did -a highlight 203 $NoPath( $findfile( highlight\edit-mots , *.txt ,  %nblist2 ) )
      Inc %nblist2
    }
    Did -c highlight 203 1
    ChargerListehighlight2
  }
  if $devent == edit {
    if ($did == 307 ) {  
      set %music-anti  $did(307) 
    }
    if ($did == 319 ) {  
      set %music-auto  $did(319) 
    }
  }
  if $devent == sclick { 
    if ($did == 302 ) {
      if (%highlight-Active-air == ON) { set  %highlight-Active-air OFF  }
      else { set %highlight-Active-air ON  }
    }
    if ($did == 304 ) {
      if (%highlight-Active-aif == ON) { set  %highlight-Active-aif OFF  }
      else { set %highlight-Active-aif ON  }
    }
    if ($did == 306 ) {
      if (%highlight-Active-auf == ON) { set  %highlight-Active-auf OFF  }
      else { set %highlight-Active-auf ON  }
    }
    if ($did == 308) { 
      set %music-anti $sfile($wavedir,Choisissez la Musique high-light.)
      did -ra $dname 307 $nopath(%music-anti)
    }
    if ($did == 310 ) {
      if (%highlight-Active-spammer == ON) { set  %highlight-Active-spammer OFF  }
      else { set %highlight-Active-spammer ON  }
    }
    if ($did == 312 ) {
      if (%highlight-Active-rpa == ON) { set  %highlight-Active-rpa OFF  }
      else { set %highlight-Active-rpa ON  }
    }
    if ($did == 314 ) {
      if (%highlight-Active-fpa == ON) { set  %highlight-Active-fpa OFF  }
      else { set %highlight-Active-fpa ON  }
    }
    if ($did == 316 ) {
      if (%highlight-Active-rpd == ON) { set  %highlight-Active-rpd OFF  }
      else { set %highlight-Active-rpd ON  }
    }
    if ($did == 318 ) {
      if (%highlight-Active-fpd == ON) { set  %highlight-Active-fpd OFF  }
      else { set %highlight-Active-fpd ON  }
    }
    if ($did == 320) { 
      set %music-auto $sfile($wavedir,Choisissez la Musique high-light.)
      did -ra $dname 319 $nopath(%music-auto)
    }
    if ($did == 322 ) {
      if (%highlight-Active-bs == ON) { set  %highlight-Active-bs OFF  }
      else { set %highlight-Active-bs ON  }
    }
    If ($Did == 104) { 
      If ($Did(108) != $Null) {
        Did -a highlight 110 $Did(108)
        Did -r highlight 108
        SauverListehighlight
      }
    }
    If ($Did == 204) { 
      If ($Did(208) != $Null) {
        Did -a highlight 210 $Did(208)
        Did -r highlight 208
        SauverListehighlight2
      }
    }
    If ($Did == 105) { 
      If ($Did(110).Sel != $Null) { 
        Did -r highlight 108
        Did -d highlight 110 $Did(110).Sel 
        SauverListehighlight
      }
    }
    If ($Did == 205) { 
      If ($Did(210).Sel != $Null) { 
        Did -r highlight 208
        Did -d highlight 210 $Did(210).Sel 
        SauverListehighlight2
      }
    }
    If ($Did == 103) { 
      ChargerListehighlight
      Did -r highlight 108 
    }
    If ($Did == 203) { 
      ChargerListehighlight2
      Did -r highlight 208 
    }
    If ($Did == 110) { 
      Did -ra highlight 108 $Did(110).Seltext
    }
    If ($Did == 210) { 
      Did -ra highlight 208 $Did(210).Seltext
    }
    If ($Did == 106) {
      Write -l $+ $did(110).sel highlight\edit-fichiers $+ \ $+ $Did(103).Seltext $did(108)
      Did -r highlight 108
      ChargerListehighlight
    } 
    If ($Did == 206) {
      Write -l $+ $did(210).sel highlight\edit-mots $+ \ $+ $Did(203).Seltext $did(208)
      Did -r highlight 208
      ChargerListehighlight2
    }
  }
}

Alias SauverListehighlight {
  Var %nblist = 1
  Write -c highlight\edit-fichiers $+ \ $+ $Did(103).Seltext
  While (%nblist <= $Did(110).Lines) {
    Did -c highlight 110 %nblist
    Write -l $+ %nblist highlight\edit-fichiers $+ \ $+ $Did(103).Seltext $Did(110).SelText
    Inc %nblist
  }
}

Alias ChargerListehighlight {
  Var %nblist = 1
  Did -r highlight 110
  While (%nblist <= $Lines(highlight\edit-fichiers $+ \ $+ $Did(103).Seltext) ) {
    Did -a highlight 110 $Read( highlight\edit-fichiers $+ \ $+ $Did(103).Seltext , %nblist )
    Inc %nblist
  }
}

Alias SauverListehighlight2 {
  Var %nblist2 = 1
  Write -c highlight\edit-mots $+ \ $+ $Did(203).Seltext
  While (%nblist2 <= $Did(210).Lines) {
    Did -c highlight 210 %nblist2
    Write -l $+ %nblist2 highlight\edit-mots $+ \ $+ $Did(203).Seltext $Did(210).SelText
    Inc %nblist2
  }
}

Alias ChargerListehighlight2 {
  Var %nblist2 = 1
  Did -r highlight 210
  While (%nblist2 <= $Lines(highlight\edit-mots $+ \ $+ $Did(203).Seltext) ) {
    Did -a highlight 210 $Read( highlight\edit-mots $+ \ $+ $Did(203).Seltext , %nblist2 )
    Inc %nblist2
  }
}

Alias foundtxt { 
  If (!$1-) { halt } 
  Var %a = 0, %aa = $lines(highlight\edit-mots\mot_pour_insulte.txt) 
  While (%aa > %a) { 
    InC %a 
    If ($read(highlight\edit-mots\mot_pour_insulte.txt,%a) isin $1-) { return yes } 
  }
}

Alias foundtxte { 
  If (!$1-) { halt }
  Var %b = 0, %bb = $lines(highlight\edit-mots\mot_pour_URLS.txt) 
  While (%bb > %b) { 
    InC %b 
    If ($read(highlight\edit-mots\mot_pour_URLS.txt,%b) isin $1-) { return yes }
  }
}

Alias foundtxtes { 
  If (!$1-) { halt }
  Var %c = 0, %cc = $lines(highlight\edit-mots\mot_pour_spam.txt) 
  While (%cc > %c) { 
    InC %c 
    If ($read(highlight\edit-mots\mot_pour_spam.txt,%c) isin $1-) { return yes }
  }
}

Alias mrepauto { 
  If (!$1-) { halt } 
  Var %d = 0, %dd = $lines(highlight\edit-mots\mot_pour_divers1.txt) 
  While (%dd > %d) { 
    InC %d 
    If ($read(highlight\edit-mots\mot_pour_divers1.txt,%d) isin $1-) { return yes } 
  }
}

Alias mrepdiv { 
  If (!$1-) { halt } 
  Var %e = 0, %ee = $lines(highlight\edit-mots\mot_pour_divers2.txt) 
  While (%ee > %e) { 
    InC %e 
    If ($read(highlight\edit-mots\mot_pour_divers2.txt,%e) isin $1-) { return yes } 
  }
}

Alias mrepblag { 
  If (!$1-) { halt } 
  Var %f = 0, %ff = $lines(highlight\edit-mots\mot_pour_blague.txt) 
  While (%ff > %f) { 
    InC %f 
    If ($read(highlight\edit-mots\mot_pour_blague.txt,%f) isin $1-) { return yes } 
  }
}

On *:text:*:?:{
  If ($foundtxt($1-) == yes) {
    if (%highlight-Active-air == ON ) {
      echo -s 4 $nick à dit $1- à $time
      msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_insulte.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
      if ($exists(%music-anti)) { 
        splay %music-anti 
      }
      else echo -s 3pas de son de insultes configuré 
    }
    if (%highlight-Active-aif == ON ) { 
      echo -s $1- à actionné mon anti-insulte ( $time )
      msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_insulte_stop.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
      echo -s 3 le pv est fermé automatiquement !!
      close -m $nick
      if ($exists(%music-anti)) { 
        splay %music-anti 
      }
      else echo -s 3pas de son de insultes configuré 
    }
  }
  If ($foundtxte($1-) == yes) {
    if (%highlight-Active-auf == ON ) {  
      notice $nick 4 $nick $1- à actionné mon anti-spam_URLs ( $time )
      notice $nick 3 $nick 4proxy @J4Gu4R 1à la joie de vous avertir que ce spam est en mode 4/ignore 1automatique à bientôt dans les PV de $me !! 3:p 
      echo -s 4 $nick est un spam-URL il est maintenant ignoré :x
      close -m $nick
      if ($exists(%music-anti)) { 
        splay %music-anti 
      }
      else echo -s 3pas de son de spam configuré 
    }
  }
  If ($foundtxtes($1-) == yes) {
    if (%highlight-Active-spammer == ON ) { 
      notice $nick 3 $nick 4proxy @J4Gu4R 1à la joie de vous avertir que ce spam est en mode 4/ignore 1automatique à bientôt dans les PV de $me !! 3:p 
      echo -s $time 4 $nick est un spam il est maintenant ignoré :p 
      ignore $nick 1 | /closemsg $nick
      if ($exists(%music-anti)) { 
        splay %music-anti 
      }
      else echo -s 3pas de son de spam configuré 
    }
  }
  If ($mrepauto($1-) == yes) {
    if (%highlight-Active-rpa == ON ) {
      echo -s 4 $nick à dit $1- à $time
      msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers1.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
      ignore $nick 1 | /closemsg $nick
      if ($exists(%music-auto)) { 
        splay %music-auto 
      }
      else echo -s 3pas de son de insultes configuré 
    }
    if (%highlight-Active-fpa == ON ) { 
      echo -s 4 $nick à dit $1- à $time
      msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers1_stop.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
      echo -s 3 le pv est fermé automatiquement !!
      close -m $nick
      if ($exists(%music-auto)) { 
        splay %music-auto 
      }
      else echo -s 3pas de son de insultes configuré 
    }
  }
  If ($mrepdiv($1-) == yes) {
    if (%highlight-Active-rpd == ON ) {
      echo -s 4 $nick à dit $1- à $time
      msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers2.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
      if ($exists(%music-auto)) { 
        splay %music-auto 
      }
      else echo -s 3pas de son de insultes configuré 
    }
    if (%highlight-Active-fpd == ON ) { 
      echo -s 4 $nick à dit $1- à $time
      msg $nick $replace($read(highlight\edit-fichiers\reponse_pv_divers2_stop.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time)
      echo -s 3 le pv est fermé automatiquement !!
      close -m $nick
      if ($exists(%music-auto)) { 
        splay %music-auto 
      }
      else echo -s 3pas de son de insultes configuré 
    }
  }
}


On *:text:*:#:{
  If ($mrepblag($1-) == yes) {
    if (%highlight-Active-bs == ON ) {
      if !blonde == $strip($1-) { 
        inc %blonde 
        if (%blonde <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_blonde.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !brune == $strip($1-) {
        inc %brune 
        if (%brune <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_blonde.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !rousse == $strip($1-) {
        inc %rousse 
        if (%rousse <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_blonde.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !gay == $strip($1-) {
        inc %gay 
        if (%gay <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_gay.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !gore == $strip($1-) {
        inc %gore 
        if (%gore <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_gore.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !question == $strip($1-) {
        inc %question 
        if (%question <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_question.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !tamere == $strip($1-) {
        inc %tamere 
        if (%tamere <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_tamere.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !boulet == $strip($1-) {
        inc %boulet 
        if (%boulet <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_fou.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !kinder == $strip($1-) {
        inc %kinder 
        if (%kinder <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_fou.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
      elseif !math == $strip($1-) {
        inc %math 
        if (%math <= 10) {
          msg $chan $replace($read(highlight\edit-fichiers\blague_math.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
        }
        else {
          notice $nick STOOOOOOOOOOOOOOOOOP c'est fini $nick !!!
        }
      }
    }
  }
}

On *:input:#:{
  if ($strip($1-) == !reset) { 
    echo -s 4,3remise à zéro compteur high-light blagues
    unset %math
    unset %blonde
    unset %brune
    unset %rousse
    unset %gay
    unset %kinder
    unset %question
    unset %boulet
    unset %tamere
    unset %gore
    unset %lool
  }
  elseif ($strip($1-) == !fou) { 
    msg $chan $replace($read(highlight\edit-fichiers\blague_fou.txt),<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
    halt
  }
}

on *:unload:{
  unset %math
  unset %blonde
  unset %brune
  unset %rousse
  unset %gay
  unset %kinder
  unset %question
  unset %boulet
  unset %tamere
  unset %gore
  unset %lool
}

menu menubar,query,nicklist,channel {
  slaps $$1 :/highlight
}

Conclusion

bon je vois 5 avantages à ce code

1) laisser les abruti parler tout seul en leur faisant perdre leur temps
2) éditer des phrases sans aller dans le répertoire mirc
3) possibilité de fermer les Pv de manière automatique
pour les Pv insultants et indépendemment les URLS
4) possibilité de configurer un son
( à noter que si votre script possède déja un son,
par exemple pour les ouverture de pv,
et bien celui-là ce fera en même temps)
5) fini la précipitation du genou dans le coin de la table
pendant le ménage pour des idiots
qui savent pas comment perdre leur temps
en insultant les autres
et des spams à n'en plus finir revenant tout l'temps.

-J4Gu4R-

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

highlight
- edit-fichiers
  - blague_blonde.txt 7 561 octets
  - blague_fou.txt 414 octets
  - blague_gay.txt 1 166 octets
  - blague_gore.txt 2 724 octets
  - blague_lol.txt 640 octets
  - blague_math.txt 1 547 octets
  - blague_question.txt 2 201 octets
  - blague_tamere.txt 8 782 octets
  - reponse_pv_divers1.txt 27 octets
  - reponse_pv_divers1_stop.txt 47 octets
  - reponse_pv_divers2.txt 5 octets
  - reponse_pv_divers2_stop.txt 9 octets
  - reponse_pv_insulte.txt 1 475 octets
  - reponse_pv_insulte_stop.txt 182 octets
- edit-mots
  - mot_pour_blague.txt 90 octets
  - mot_pour_divers1.txt 5 octets
  - mot_pour_divers2.txt 5 octets
  - mot_pour_insulte.txt 732 octets
  - mot_pour_spam.txt 16 octets
  - mot_pour_URLS.txt 115 octets
- dialog_high-light.ini 21 118 octets
- lisez-moi.txt 470 octets

Télécharger le zip

Historique

29 novembre 2004 23:24:28 :: dialog plus petit cette correction apporte la possibilité de fermer les pvS insultant et autres bot spammer URLS à site calssé X capture d'écran :))
30 novembre 2004 19:56:10 :: ben forcément tete en l'air comme je suis j'avais oublié de mettre le fichier dans le zip :)) lool
03 décembre 2004 13:50:21 :: configuration du son configuration indépendante des pv insultants et spam urls
04 décembre 2004 17:16:11 :: dialog configuration des phrases automatique plus petit
27 décembre 2004 16:48:38 :: simplification de l'installation avec un seul fichier la désinstallation possible dans le menu éditeur dans la meme boite de dialog
30 décembre 2004 13:14:43 :: faute dans dans l'orthographe d'une variable :p
02 février 2006 21:44:34 :: c'est une version avec tout simplement la possibilité d'avoir 2 type de higlight selon votre idée (par exemple l'un réagirait à tout ce qui est asv et l'autre à tout ce qui est bonjour... ) c'est aussi maintenant un générateur de blagues (attention sur salon)

Sources du même auteur

REPONDEUR ET QUI FAIT EN + FERMETURE DE PV

SLAP FUN

BOMBE KICK FUN AVEC CHANCE :P

PREVIEN SON

TUTORIAL MIRC EN DIALOG

Toutes les sources de J4Gu4R

Sources de la même categorie

ONERADIOPLAYER par Bestdoud

WORLDDMT - STATISTIQUE V 1.0 par WorldDMT

WORLDDMT - INFOS DES CANAUX V 1.1 par WorldDMT

RACCOURCIS PERSONNELS par donkishock

EPGUIDES : SORTIES DES SÉRIES par RCA ArKanis

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

WANTISPAM V3.0 par WorldDMT

UNE COMMANDE POUR AJOUTER VOS BLAGUE par minerbe

TELECHARGEMENT DE PACKS EN SÉRIE SUR XDCC (SEULEMENT COMPATI... par VorteX_on

XDCC AUTOLEECH par Sad_Joker

TIT HIGHLIGHT BIEN SYMPAS par harpic_pc

Commentaires et avis

Commentaire de SornDrixer le 16/11/2004 16:34:30 administrateur CS

C'est pas mal, et configurable.

Relativement bien codé, mis à part quelques maladresses :

while (%z <= $lines(auto_insultes\insultes.txt))
Evite d'appeler un identifieur dans ton while, car à chaque boucle, mIRC va devoir aller chercher sa valeur.

Je te conseille donc un code comme celui-ci :
var %lignes while $lines(auto_insultes\insultes.txt)
while (%z <= %lignes)

on *:dialog:auto_insult:sclick:10:/insultes
Tout les événements sont regroupés sauf celui là qui se balade tout seul (en fin du fichier edition_reponses.ini)

Egalement, dans le fichier insluts.txt (pourquoi insluts d'ailleur et pas insultes ? :s), certains termes peuvent être considéré comme une insulte alors que s'en est pas.
Par exemple : "face de", si je dis "en face de chez moi"
Heuresement c'est configurable, donc pas très grave.

Bonne continuation

Commentaire de J4Gu4R le 16/11/2004 18:58:27

merci SornDrixer pour ta réac j'vais revoir le code la varable, le slick 10 en fait Ctai pour le séparer du reste pour montrer à celui ki vient juste de commencer à bidouiller 2 style d'évênement et puis C le slick qui appel la deuxième boite de dialog, donc je tenais à faire une ptite différence :))
pour le insluts je l'ai appeler comme ça pour moi, pour éviter de trop m'embrouiller à donner les mêmes noms.

pour le "face de" n'y a t'il pas un moyen de faire comprendre à l'mirc que "face" serait le premier mot et "de" le deuxième ou autres, dans le style :

on *:TEXT:Salut*:?:/notice $nick Salut a toi aussi
on *:TEXT:*Salut:?:/notice $nick Salut a toi aussi
...
j'y arrive comme ça mais pas quand le code est + optimisé genre :

on *:text:*:?:{
if ( soumi isin $1- ) { /msg $nick ni dieu ni maître... }
if ( chaud isin $1- ) { /msg $nick c'est cool j'aime la chaleur }
}

-J4Gu4R-

Commentaire de J4Gu4R le 29/11/2004 23:29:00

message perso pour la version 2 :

j'voudrait remercier :
SornDrixer pour m'avoir aidé sur une maladresse de codage
PaDa pour m'avoir appris une autre méthode d'automatisme des mots
et enfin maaars qui m'a aidé pour mon alias sans lequel l'addon n'aurait pas été fini

-J4Gu4R-

Commentaire de J4Gu4R le 30/11/2004 15:27:25

G oublier de mentionner pour les éventuels utilisateur de la version 1 que le code détectais uniquement les mot exact c'est à dire que si une personne écrivait exactement ce mot tout seul

désormais le code détecte les mots dans une phrase ce qui est plus cohérent dans un chat :))

voila je l'ai dit :))

-J4Gu4R-

Commentaire de RaZeR le 25/06/2005 02:15:57

Bof le zip lol jvoi pas pk ont doit le dl ^^

Commentaire de Asphere le 14/07/2005 02:34:52

Suis-je le seul où il n'y a rien dans le zip ?

Commentaire de J4Gu4R le 03/02/2006 13:49:28

humm tu es le seul :p

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Smiley automatique [ par arak ] Bjour all :)J'voudrais savoir si il existe un petit script pour que quand je tape par exemple se smiley sur irc :) sa me l'écrit avec des couleurs pa recherche script de message automatique [ par blubsy ] Bonjour et dsl pour le dérangement...Je suis novice et j'aurais besoin de trouver un scirpt irc pour pouvoir afficher des messages ce trouvant dans un [Debutant] Reponse automatique aux chats direct [ par lstelie ] Bonjour,je cherche un script tout simple qui fasse une réponse automatique lorsque j'ai quelqu'un qui me parle en direct avec mIRC.Ah que merciLuc HighLight [ par PuLP ] Bonjour,Je voudrais crée un system HighLight personnel, tout marche bien sauf un leger détail, la fenetre du salon ou l'highlight se colori en Rouge c changenick automatique [ par ArF14 ] J'aurais voulu savoir si vous connaisiez un ptit script pour que mon nick se change automatiquement quand ce nick est libreexemple, je suis ArF1 et Ar info pour un on:join:#: SVP [ par phil1957 ] j'aurai aimé ke ce ki suit puisse être en on:join:#: à l'entrée sur un chan. Merci par avance pour votre attention et vos réponses :menu menubar,chann highlight [ par LALIE ] coucou je sui nouvelle donc voila ma premiere kestionkan on prononce mon pseudo sur le chan je n'ai pas de son ki m'averti donc j'aimerais savoir kome Souligneur Automatique [ par Kolibot ] J'ai créé ce code pour un utilisateur de #scripting (HeliosNet) ... ne pouvant le poster en tant que Source à part entière mais voulant savoir si il e highlight [ par dmpm ] chu tanner du petit beep...comment le changer par un .wav jveut inc la phrase pour la metre ds le remote merci!!! Réponse automatique aux requête nickser [ par jArOd_95 ] Bonjour à tous,J'aimerai savoir de quel manière NickServ envoi sa demande de mot de passe (ainsi que les autres requêtes d'ailleurs) au client IRC afi

Trouver une ressource

ANTI -INSULTES, BLAGUES ET AUTO-REPONSES DIVERSES