Non so se hai visto, ma in David-Bot da tempo esiste un add-on di protezione canale. Si chiama "protezione-canale.mrc" ed è gestibile con il comando
Tra le protezioni supportate, ti segnalo: flood (con avvisi prima del kick ban), repeat (ripetere lo stesso messaggio comporta ban), spam (puoi decidere di avvisare + far bannare chi spamma link in canale per una certa soglia, tipo di default è 3 link in 30s), caps (che è ciò che mi hai appena chiesto con questa richiesta), swear (parolacce, puoi gestire un elenco di parole proibite), nick flood (cioè chi cambia nick troppo velocemente per svariate volte), join flood (chi entra in massa in canale a distanza di pochissimo, es: stesso secondo, di solito succede in caso di attacchi o per un netsplit).
Puoi ovviamente gestire le eccezioni con !protezione eccezioni (qui puoi mettere in whitelist dei nickname).
Tutte le protezioni sono attivabili a piacimento. Di default sono tutte attive, con valori che ho verificato non dare problemi, poi puoi variarli direttamente con un comando in chat.
Unica cosa: attenzione, perché lo script nasce apposta per essere usato su David-Bot, quindi ci sono una serie di controlli che dovresti rimuovere/sostituire se vuoi usarlo su un mIRC pulito, mi riferisco a:
Non ho verificato se funziona ugualmente su mIRC pulito, ma a occhio ti direi che dovrebbe andare senza problemi, perché anche gli operatori del canale possono gestire le protezioni.
Codice: Seleziona tutto
;#############################
;######### Script by #########
;## CaiusMaximus & Dragone2 ##
;#### protezione-chan.mrc ####
;#############################
on *:TEXT:*:#:{
if ($1 == !protezione) {
if ($me isop #) || ($me ishop #) {
if ($nick isop #) || ($nick == %owner. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]) || ($nick == %proprietario. [ $+ [ $network ] ]) || ($istok(%ammessi. [ $+ [ $network ] ],$nick,32)) {
if ($2 == $null) || ($2 == help) {
msg $chan 4-]29Protezioni canale4[-
.timerprotezioni1 1 1 msg $chan Per gestire la protezione dal text flood digita !protezione flood
.timerprotezioni2 1 2 msg $chan Per gestire la protezione dal repeat digita !protezione repeat
.timerprotezioni3 1 3 msg $chan Per gestire la protezione dallo spam digita !protezione spam
.timerprotezioni4 1 4 msg $chan Per gestite la protezione dal caps digita !protezione caps
.timerprotezioni5 1 5 msg $chan Per gestire la protezione dalle swearword digita !protezione swear
.timerprotezioni6 1 6 msg $chan Per gestire la protezione dal join flood digita !protezione join
.timerprotezioni7 1 7 msg $chan Per gestire la protezione dal nick flood digita !protezione nick
.timerprotezioni8 1 8 msg $chan Per gestire la lista delle eccezioni, i nick che saranno immuni dalle protezioni, digita !protezione eccezioni
}
elseif ($2 == flood) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Protezione text flood4[-
.timerprotezioni1 1 1 msg $chan Questa funzione evita il flood in canale, allontanando gli utenti che superano un dato numero di linee
.timerprotezioni2 1 2 msg $chan Digita !protezione flood on per attivare la protezione, !protezione flood off per disattivarla
.timerprotezioni3 1 3 msg $chan Digita !protezione flood LINEE:SECONDI per modificare le impostazioni definendo il massimo consentito di linee in rapporto ai secondi
.timerprotezioni4 1 4 msg $chan Le impostazioni attuali permettono $gettok($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58) linee in $gettok($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58) secondi
}
elseif ($3 isalpha) {
if ($3 == on) {
if ($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ $gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,5:2
}
msg $chan La protezione dal flood è stata attivata
}
elseif ($3 == off) {
if ($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0, $+ $gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,5:2
}
msg $chan La protezione dal flood è stata disattivata
}
}
elseif ($left($3,1) isnum) {
var %lines $gettok($3,1,58)
var %seconds $gettok($3,2,58)
if (%lines > 1) && (%seconds > 0) {
if ($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %lines $+ : $+ %seconds
}
else {
set %protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %lines $+ : $+ %seconds
}
msg $chan La protezione dal flood è stata modificata. Il limite è ora di %lines linee in %seconds secondi
}
else {
msg $chan Errore: imposta un valore superiore a uno
}
}
}
elseif ($2 == repeat) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Protezione repeat4[-
.timerprotezioni1 1 1 msg $chan Questa funzione evita la ripetizione di frasi in canale, allontanando gli utenti che superano un dato numero di ripetizioni
.timerprotezioni2 1 2 msg $chan Digita !protezione repeat on per attivare la protezione, !protezione repeat off per disattivarla
.timerprotezioni3 1 3 msg $chan Digita !protezione repeat RIPETIZIONI:SECONDI per modificare le impostazioni definendo il massimo consentito di ripetizioni di una stessa frase in rapporto ai secondi
.timerprotezioni4 1 4 msg $chan Le impostazioni attuali permettono $gettok($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58) ripetizioni in $gettok($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58) secondi
}
elseif ($3 isalpha) {
if ($3 == on) {
if ($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ $gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,3:10
}
msg $chan La protezione dal repeat è stata attivata
}
elseif ($3 == off) {
if ($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0, $+ $gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,3:10
}
msg $chan La protezione dal repeat è stata disattivata
}
}
elseif ($left($3,1) isnum) {
var %repeat $gettok($3,1,58)
var %seconds $gettok($3,2,58)
if (%repeat > 1) && (%seconds > 0) {
if ($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %repeat $+ : $+ %seconds
}
else {
set %protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %repeat $+ : $+ %seconds
}
msg $chan La protezione dal repeat è stata modificata. Il limite è ora di %repeat frasi ripetute in %seconds secondi
}
else {
msg $chan Errore: imposta un valore superiore a uno
}
}
}
elseif ($2 == spam) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Protezione spam4[-
.timerprotezioni1 1 1 msg $chan Questa funzione evita lo spam in canale, allontanando gli utenti che superano un dato numero di link
.timerprotezioni2 1 2 msg $chan Digita !protezione spam on per attivare la protezione, !protezione spam off per disattivarla
.timerprotezioni3 1 3 msg $chan Digita !protezione spam LINK:SECONDI per modificare le impostazioni definendo il massimo consentito di link in rapporto ai secondi
.timerprotezioni4 1 4 msg $chan Le impostazioni attuali permettono $gettok($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58) link in $gettok($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58) secondi
}
elseif ($3 isalpha) {
if ($3 == on) {
if ($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ $gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,3:30
}
msg $chan La protezione dallo spam è stata attivata
}
elseif ($3 == off) {
if ($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0, $+ $gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,3:30
}
msg $chan La protezione dallo spam è stata disattivata
}
}
elseif ($left($3,1) isnum) {
var %links $gettok($3,1,58)
var %seconds $gettok($3,2,58)
if (%links > 0) && (%seconds > 0) {
if ($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %links $+ : $+ %seconds
}
else {
set %protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %links $+ : $+ %seconds
}
msg $chan La protezione dallo spam è stata modificata. Il limite è ora di %links link in %seconds secondi
}
else {
msg $chan Errore: imposta un valore superiore a zero
}
}
}
elseif ($2 == caps) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Protezione caps4[-
.timerprotezioni1 1 1 msg $chan Questa funzione evita l'uso eccessivo del maiuscolo in canale, allontanando gli utenti che superano una data percentuale
.timerprotezioni2 1 2 msg $chan Digita !protezione caps on per attivare la protezione, !protezione caps off per disattivarla
.timerprotezioni3 1 3 msg $chan Digita !protezione caps percent VALORE per modificare le impostazioni definendo la percentuale massima di maiuscolo consentita in una stessa frase. NON inserire qui il simbolo di percentuale ( $+ $chr(37) $+ )
.timerprotezioni4 1 4 msg $chan Digita !protezione caps settings VOLTE:SECONDI per modificare le impostazioni definendo il massimo di volte in rapporto ai secondi che la percentuale impostata potrà essere superata
.timerprotezioni5 1 5 msg $chan Le impostazioni attuali permettono $gettok($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58) $+ % di maiuscolo in massimo $gettok($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58) frasi in $gettok($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),3,58) secondi
}
if ($3 == on) {
if ($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ $gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,80:2:10
}
msg $chan La protezione dal caps è stata attivata
}
elseif ($3 == off) {
if ($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0, $+ $gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,80:2:10
}
msg $chan La protezione dal caps è stata disattivata
}
elseif ($3 == percent) {
if ($4 isnum) && ($5 == $null) {
if ($4 > 0) {
var %capsvalue $gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
var %newcapsvalue $puttok(%capsvalue,$4,1,58)
if ($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %newcapsvalue
}
else {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %newcapsvalue
}
msg $chan La protezione dal caps è stata modificata. Il maiuscolo consentito in una stessa frase è ora: $4 $+ $chr(37)
}
else {
msg $chan Errore: imposta un valore superiore a zero
}
}
else {
msg $chan Errore: indica la percentuale massima consentita. Ricorda di non inserire il segno di percentuale ( $+ $chr(37) $+ ) alla fine
}
}
elseif ($3 == settings) {
if ($4 != $null) && ($5 == $null) {
var %amount $gettok($4,1,58)
var %seconds $gettok($4,2,58)
if (%amount > 0) && (%seconds > 0) {
var %capsvalue $gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
var %newcapsvalue $puttok(%capsvalue,%amount,2,58)
var %newcapsvalue $puttok(%newcapsvalue,%seconds,3,58)
if ($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %newcapsvalue
}
else {
set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %newcapsvalue
}
msg $chan La protezione dal caps è stata modificata. Il ban avverrà ora se il maiuscolo eccede la percentuale impostata per più di %amount volte in %seconds secondi
}
else {
msg $chan Errore: imposta un valore superiore a zero
}
}
else {
msg $chan Errore: indica il massimo di volte che la percentuale settata può essere superata in rapporto ai secondi usando il formato VOLTE:SECONDI
}
}
}
elseif ($2 == swear) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Protezione swearword4[-
.timerprotezioni1 1 1 msg $chan Questa funzione evita l'uso di parole non appropriate in canale, allontanando gli utenti che le utilizzano ripetutamente
.timerprotezioni2 1 2 msg $chan Digita !protezione swear on per attivare la protezione, !protezione swear off per disattivarla
.timerprotezioni3 1 3 msg $chan Digita !protezione swear add PAROLA per vietare una parola, !protezione swear del PAROLA per permetterla nuovamente. Per vedere l'elenco delle parole vietate digita !protezione swear list. Nota: puoi utilizzare wildcard (* e ?) nelle parole che inserisci
.timerprotezioni4 1 4 msg $chan Digita !protezione swear settings VOLTE:SECONDI per modificare le impostazioni definendo il massimo di volte in rapporto ai secondi che potrà essere usata una parola vietata
.timerprotezioni5 1 5 msg $chan Le impostazioni attuali permettono l'uso di parole vietate al massimo $gettok($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58) volte in $gettok($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58) secondi
}
elseif ($3 == on) {
if ($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ $gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,2:30
}
msg $chan La protezione dalle swearword è stata attivata
}
elseif ($3 == off) {
if ($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0, $+ $gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,2:30
}
msg $chan La protezione dalle swearword è stata disattivata
}
elseif ($3 == add) {
if ($4 != $null) && ($5 == $null) {
set %protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $addtok(%protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$4,58)
msg $chan La lista delle parole vietate è stata aggiornata
}
else {
msg $chan Errore: indica una ed una sola parola da bloccare. Puoi utilizzare i caratteri jolly * e ?
}
}
elseif ($3 == del) {
if ($4 != $null) && ($5 == $null) {
set %protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $remtok(%protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$4,1,58)
msg $chan La lista delle parole vietate è stata aggiornata
}
else {
msg $chan Errore: indica una ed una sola parola da sbloccare. Se avevi utilizzato caratteri jolly ricorda di riutilizzarli
}
}
elseif ($3 == list) {
if ($numtok(%protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],58) > 0) {
msg $chan Le parole vietate su questo canale sono: $replace(%protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],:,$chr(44) $+ $chr(32))
}
else {
msg $chan Non ci sono parole vietate su questo canale
}
}
elseif ($3 == settings) {
if ($4 != $null) && ($5 == $null) {
var %amount $gettok($4,1,58)
var %seconds $gettok($4,2,58)
if (%amount > 0) && (%seconds > 0) {
if ($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %amount $+ : $+ %seconds
}
else {
set %protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %amount $+ : $+ %seconds
}
msg $chan La protezione dalle parolacce è stata modificata. Il ban avverrà ora se viene scritta una parola vietata più di %amount volte in %seconds secondi
}
else {
msg $chan Errore: imposta un valore superiore a zero
}
}
else {
msg $chan Errore: indica il massimo di volte che può essere scritta una parola vietata usando il formato VOLTE:SECONDI
}
}
}
elseif ($2 == join) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Protezione join flood4[-
.timerprotezioni1 1 1 msg $chan Questa funzione evita il join flood, allontanando gli utenti che entrano ed escono troppe volte di seguito
.timerprotezioni2 1 2 msg $chan Digita !protezione join on per attivare la protezione, !protezione join off per disattivarla
.timerprotezioni3 1 3 msg $chan Digita !protezione join ACCESSI:SECONDI per modificare le impostazioni definendo il massimo consentito di join in rapporto ai secondi
.timerprotezioni4 1 4 msg $chan Le impostazioni attuali permettono $gettok($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58) accessi in $gettok($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58) secondi
}
elseif ($3 isalpha) {
if ($3 == on) {
if ($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ $gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,5:60
}
msg $chan La protezione dal join flood è stata attivata
}
elseif ($3 == off) {
if ($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0, $+ $gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,5:60
}
msg $chan La protezione dal join flood è stata disattivata
}
}
elseif ($left($3,1) isnum) {
var %joins $gettok($3,1,58)
var %seconds $gettok($3,2,58)
if (%joins > 1) && (%seconds > 0) {
if ($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %joins $+ : $+ %seconds
}
else {
set %protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %joins $+ : $+ %seconds
}
msg $chan La protezione dal join flood è stata modificata. Il limite è ora di %joins accessi in %seconds secondi
}
else {
msg $chan Errore: imposta un valore superiore a uno
}
}
}
elseif ($2 == nick) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Protezione nick flood4[-
.timerprotezioni1 1 1 msg $chan Questa funzione evita il nick flood, allontanando gli utenti che cambiano nick troppe volte di seguito
.timerprotezioni2 1 2 msg $chan Digita !protezione nick on per attivare la protezione, !protezione nick off per disattivarla
.timerprotezioni3 1 3 msg $chan Digita !protezione nick CAMBI:SECONDI per modificare le impostazioni definendo il massimo consentito di cambi di nick in rapporto ai secondi
.timerprotezioni4 1 4 msg $chan Le impostazioni attuali permettono $gettok($gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58) cambi di nick in $gettok($gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58) secondi
}
elseif ($3 isalpha) {
if ($3 == on) {
if ($gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ $gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,4:60
}
msg $chan La protezione dal nick flood è stata attivata
}
elseif ($3 == off) {
if ($gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44) != $null) {
set %protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0, $+ $gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44)
}
else {
set %protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,4:60
}
msg $chan La protezione dal nick flood è stata disattivata
}
}
elseif ($left($3,1) isnum) {
var %nicks $gettok($3,1,58)
var %seconds $gettok($3,2,58)
if (%nicks > 1) && (%seconds > 0) {
if ($gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) != $null) {
set %protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $gettok(%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) $+ , $+ %nicks $+ : $+ %seconds
}
else {
set %protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1, $+ %nicks $+ : $+ %seconds
}
msg $chan La protezione dal nick flood è stata modificata. Il limite è ora di %nicks cambi di nick in %seconds secondi
}
else {
msg $chan Errore: imposta un valore superiore a uno
}
}
}
elseif ($2 == eccezioni) {
if ($3 == $null) || ($3 == help) {
msg $chan 4-]29Eccezioni4[-
.timerprotezioni1 1 1 msg $chan I nickname in questa lista saranno immuni dalle funzioni di protezione. Ciò significa che non verranno kickati o bannati, neanche se dovessero superare i valori di protezione impostati
.timerprotezioni2 1 2 msg $chan Digita !protezione eccezioni add NICK per aggiungere un nick alla lista, !protezione eccezioni del NICK per rimuoverlo. Per vedere l'elenco dei nickname nelle eccezioni digita !protezione eccezioni list
}
elseif ($3 == add) {
if ($4 != $null) && ($5 == $null) {
set %protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $addtok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$4,32)
msg $chan $4 è stato aggiunto alla lista eccezioni
}
else {
msg $chan Errore: indica un nickname da aggiungere alla lista. Puoi specificare un solo nickname alla volta
}
}
elseif ($3 == del) {
if ($4 != $null) && ($5 == $null) {
set %protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $remtok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$4,1,32)
msg $chan $4 è stato rimosso alla lista eccezioni
}
else {
msg $chan Errore: indica un nickname da rimuovere dalla lista. Puoi specificare un solo nickname alla volta
}
}
elseif ($3 == list) {
if ($numtok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],32) > 0) {
msg $chan Sono in lista eccezioni i seguenti nick: %protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
}
else {
msg $chan Non ci sono nick in lista eccezioni
}
}
}
}
else {
msg $chan Errore: devi essere op per poter utilizzare questa funzione
}
}
else {
msg $chan Errore: devo essere op per poter utilizzare questa funzione
}
}
else {
if ($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) == 1) {
if ($nick !isop $chan) && ($nick !ishop $chan) && ($nick !ishop $chan) && ($nick != %owner. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]) && ($nick != %proprietario. [ $+ [ $network ] ]) && ($istok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$nick,32) == $false) {
var %amount $gettok($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58)
var %time $gettok($gettok(%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58)
var %doinc inc -u $+ %time $chr(37) $+ flood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
%doinc
if (%flood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == %amount) {
notice $nick Smetti di floodare o verrai bannato! - %logo
return
}
if (%flood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] > %amount) {
kickclones $nick $chan
ban -ku300 $chan $nick 2 Flood - %logo
unset %flood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
return
}
}
}
if ($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) == 1) {
if ($nick !isop $chan) && ($nick !ishop $chan) && ($nick != %owner. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]) && ($nick != %proprietario. [ $+ [ $network ] ]) && ($istok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$nick,32) == $false) {
var %amount $gettok($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58)
var %time $gettok($gettok(%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58)
if ($strip($1-) == $strip(%lastmessage. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ])) {
var %doinc inc -u $+ %time $chr(37) $+ repeat. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
%doinc
if (%repeat. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $calc(%amount - 1)) {
notice $nick Smetti di ripetere o verrai bannato! - %logo
return
}
if (%repeat. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == %amount) {
kickclones $nick $chan
ban -ku300 $chan $nick 2 Repeat - %logo
unset %repeat. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
return
}
}
else {
set %lastmessage. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] $strip($1-)
}
}
}
if ($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) == 1) {
if ($nick !isop $chan) && ($nick !ishop $chan) && ($nick != %owner. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]) && ($nick != %proprietario. [ $+ [ $network ] ]) && ($istok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$nick,32) == $false) {
if ($wildtok($1-,http://*,0,32) >= 1) || ($wildtok($1-,https://*,0,32) >= 1) || ($wildtok($1-,www.*,0,32) >= 1) || (($wildtok($1-,#*,0,32) >= 1) && ($wildtok($1-,#*,1,32) != $chan)) {
var %amount $gettok($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58)
var %time $gettok($gettok(%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58)
var %doinc inc -u $+ %time $chr(37) $+ spam. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
%doinc
if (%spam. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == %amount) {
notice $nick Smetti di spammare o verrai bannato! - %logo
return
}
if (%spam. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] > %amount) {
kickclones $nick $chan
ban -ku300 $chan $nick 2 Spam - %logo
unset %spam. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
return
}
}
}
}
if ($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) == 1) {
if ($nick !isop $chan) && ($nick !ishop $chan) && ($nick != %owner. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]) && ($nick != %proprietario. [ $+ [ $network ] ]) && ($istok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$nick,32) == $false) {
if ($len($1-) >= 8) || ($numtok($1-,32) >= 2) {
var %upper = $regex($1-,/[A-Z]/g)
var %total = $regex($1-,/[A-Za-z]/g)
var %percentage $round($calc(%upper * 100 / %total),0)
var %maxpercentage $gettok($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58)
if (%percentage > %maxpercentage) {
var %amount $gettok($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58)
var %time $gettok($gettok(%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),3,58)
var %doinc inc -u $+ %time $chr(37) $+ caps. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
%doinc
if (%caps. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == %amount) {
notice $nick Non scrivere troppo in maiuscolo o verrai bannato! - %logo
return
}
if (%caps. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] > %amount) {
kickclones $nick $chan
ban -ku300 $chan $nick 2 Caps - %logo
unset %caps. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
return
}
}
}
}
}
if ($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) == 1) {
if ($nick !isop $chan) && ($nick !ishop $chan) && ($nick != %owner. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]) && ($nick != %proprietario. [ $+ [ $network ] ]) && ($istok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$nick,32) == $false) {
var %num = $numtok(%protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],58)
if (%num > 0) {
var %inc 1
while (%inc <= %num) {
if ($wildtok($1-, $gettok(%protections.swearlist. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],%inc,58),0,32) >= 1) {
var %amount $gettok($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58)
var %time $gettok($gettok(%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58)
var %doinc inc -u $+ %time $chr(37) $+ swear. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
%doinc
if (%swear. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == %amount-1) {
notice $nick Usa un linguaggio meno volgare o verrai bannato! - %logo
return
}
if (%swear. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] > %amount) {
kickclones $nick $chan
ban -ku300 $chan $nick 2 Swear - %logo
unset %swear. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
return
}
}
inc %inc
}
}
}
}
}
}
on *:JOIN:#:{
if ($nick != $me) {
if ($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],1,44) == 1) {
if ($nick !isop $chan) && ($nick !ishop $chan) && ($nick != %owner. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]) && ($nick != %proprietario. [ $+ [ $network ] ]) && ($istok(%protections.exception. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],$nick,32) == $false) {
var %maxjoin $gettok($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58)
var %time $gettok($gettok(%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58)
var %doinc inc -u $+ %time $chr(37) $+ joinflood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
%doinc
if (%joinflood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == %maxjoin) {
notice $nick Smetti di uscire e rientrare o verrai bannato! - %logo
}
if (%joinflood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] > %maxjoin) {
kickclones $nick $chan
ban -ku300 $chan $nick 2 Join Flood - %logo
unset %joinflood. [ $+ [ $address($nick,2) ] ] [ $+ . ] [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ]
}
}
}
}
else {
; SETTO I VALORI PREDEFINITI
if (%protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $null) { set %protections.flood. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,5:2 }
if (%protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $null) { set %protections.repeat. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,3:10 }
if (%protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $null) { set %protections.spam. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,3:30 }
if (%protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $null) { set %protections.caps. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 0,80:2:10 }
if (%protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $null) { set %protections.swear. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,2:30 }
if (%protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $null) { set %protections.join. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,5:60 }
if (%protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] == $null) { set %protections.nick. [ $+ [ $chan ] ] [ $+ . ] [ $+ [ $network ] ] 1,4:60 }
}
}
on *:NICK:{
var %i = 1
while (%i <= $comchan($newnick,0)) {
if ($gettok(%protections.nick. [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ],1,44) == 1) {
if ($newnick !isop $comchan($newnick,%i)) && ($newnick !ishop $comchan($newnick,%i)) && ($newnick != %ownernick. [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ]) && ($newnick != %proprietario. [ $+ [ $network ] ]) && ($istok(%protections.exception. [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ],$newnick,32) == $false) {
var %maxnick $gettok($gettok(%protections.nick. [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ],2,44),1,58)
var %time $gettok($gettok(%protections.nick. [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ],2,44),2,58)
var %doinc inc -u $+ %time $chr(37) $+ nickflood. [ $+ [ $address($newnick,2) ] ] [ $+ . ] [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ]
%doinc
if (%nickflood. [ $+ [ $address($newnick,2) ] ] [ $+ . ] [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ] == %maxnick) {
notice $newnick Smetti di cambiare nick o verrai bannato da $comchan($newnick,%i) $+ ! - %logo
}
if (%nickflood. [ $+ [ $address($newnick,2) ] ] [ $+ . ] [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ] > %maxnick) {
kickclones $newnick $comchan($newnick,%i)
ban -ku300 $comchan($newnick,%i) $newnick 2 Nick Flood - %logo
unset %nickflood. [ $+ [ $address($newnick,2) ] ] [ $+ . ] [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ]
}
}
}
inc %i
}
}
alias -l kickclones {
var %users $ialchan($address($1,2),$2,0)
if (%users > 1) {
var %address $address($1,2)
var %i 1
while (%i <= %users) {
var %nick $ialchan(%address,$2,%i).nick
if (%nick != $1) {
if ($istok(%protections.exception. [ $+ [ $comchan($newnick,%i) ] ] [ $+ . ] [ $+ [ $network ] ],%nick,32) == $false) {
kick $2 %nick Clone dell'utente bannato - %logo
}
}
inc %i
}
}
}
