-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 / Exemple :
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-
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.