- alias nos { dialog -m nos nos }
- dialog nos {
- title "Anti insulte by Raziell"
- size -1 -1 82 121
- option dbu
- list 1, 14 9 50 50, size vsbar
- edit "", 2, 10 61 58 10, autohs
- box "", 3, 1 1 78 106
- button "Ajouter", 4, 20 75 37 12, flat
- button "Effacer", 5, 4 91 73 12, flat
- button "Quitter", 7, 22 109 37 12, ok
- }
- On *:dialog:nos:*:*:{
- if $devent == init { if $exists(insulte.txt) { loadbuf -ro nos 1 insulte.txt } }
- If $devent == sclick {
- If $did == 4 {
- If $did(2) == $null { $input(Vous devez entrez un mot !) }
- else {
- write -a insulte.txt $did(2) | loadbuf -ro nos 1 insulte.txt
- }
- }
- if $did == 5 {
- If $did(1).seltext == $null { $input(Vous devez choisir un mot !) }
- else { write -dl $+ $did(1).seltext insulte.txt | loadbuf -ro nos 1 insulte.txt }
- }
- }
- }
- On *:Text:*:*:{
- var %a = 0, %b = $lines(insulte.txt)
- while %b > %a {
- inc %a
- if $read(insulte.txt,%a) isin $1- { kick $chan $nick 2(1--14Channel Protection1--2) }
- }
- }
- Menu channel,menubar,status {
- -
- -[ Anti spam ]- :/nos
- }
- On *:Load:{
- echo -a Vous avez bien charger le menu anti badword
- echo -a Créé par Raziell
- echo -a Contact on irc, server chat7.x-echo.com , chan #keanu
- }
alias nos { dialog -m nos nos }
dialog nos {
title "Anti insulte by Raziell"
size -1 -1 82 121
option dbu
list 1, 14 9 50 50, size vsbar
edit "", 2, 10 61 58 10, autohs
box "", 3, 1 1 78 106
button "Ajouter", 4, 20 75 37 12, flat
button "Effacer", 5, 4 91 73 12, flat
button "Quitter", 7, 22 109 37 12, ok
}
On *:dialog:nos:*:*:{
if $devent == init { if $exists(insulte.txt) { loadbuf -ro nos 1 insulte.txt } }
If $devent == sclick {
If $did == 4 {
If $did(2) == $null { $input(Vous devez entrez un mot !) }
else {
write -a insulte.txt $did(2) | loadbuf -ro nos 1 insulte.txt
}
}
if $did == 5 {
If $did(1).seltext == $null { $input(Vous devez choisir un mot !) }
else { write -dl $+ $did(1).seltext insulte.txt | loadbuf -ro nos 1 insulte.txt }
}
}
}
On *:Text:*:*:{
var %a = 0, %b = $lines(insulte.txt)
while %b > %a {
inc %a
if $read(insulte.txt,%a) isin $1- { kick $chan $nick 2(1--14Channel Protection1--2) }
}
}
Menu channel,menubar,status {
-
-[ Anti spam ]- :/nos
}
On *:Load:{
echo -a Vous avez bien charger le menu anti badword
echo -a Créé par Raziell
echo -a Contact on irc, server chat7.x-echo.com , chan #keanu
}