Bunu denermisin.. (buradaki liste fullname.txt) senin fullname list nasıl ise o şekilde değiştir.. mirc.txt gibi...
Alternatif olarak önerebileceğim bi kod daha yazıyorum. (muhtemel olasılıkla üstteki kodun çalışmaması ihtimaliyle)
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
menu menubar,status,channel {
-
Kötü fullname
.$iif($group(#bfname) == on,Kapat,Aç):$+(.,$iif($group(#bfname) == on,dis,en),able) #bfname
.-
.Kelimeler:$iif(!$exists(bfnameads.txt),write -c bfnameads.txt) | run bfnameads.txt
.-
.Ceza
..$iif(%bfname.ceza == kick,$style(2)) Kick:set %bfname.ceza kick
..$iif(%bfname.ceza == kban,$style(2)) Kick Ban:set %bfname.ceza kban
..$iif(%bfname.ceza == kill,$style(2)) Kill:set %bfname.ceza kill
..$iif(%bfname.ceza == kline,$style(2)) Kline:set %bfname.ceza kline
..$iif(%bfname.ceza == gline,$style(2)) Gline:set %bfname.ceza gline
..-
..Ban süresi $+([,$iif(%bfname.sure != 0,$calc($v1 /60)),d]) :if $$?="Kaç dakika süresince banlı kalsın? (Süresiz için 0 yazın)" { set %bfname.sure $calc(60* $!) }
./Wholar arası zaman
..$iif(%bfname.delay == evet,Kapat,Aç):set %bfname.delay $iif(%bfname.delay == evet,hayir,evet)
..-
..Yardım?:echo $color(info) -at * Kanala giren herkese anında /who çekmek yerine belirli bir süre sonra işlem yapmak, flooddan korunmak için bir yöntem.
}
on *:LOAD:{
echo $color(info) -at * Kötü fullname koruması addonu yüklendi.
set %bfname.ceza kban
set %bfname.delay evet
set %bfname.sure 0
write -c bfnameads.txt
echo $color(info) -at * Varsayılan ayarlar yapıldı, ayarları değiştirmek için popupsları kontrol ediniz.
}
on *:UNLOAD:{
unset %bfname.*
echo $color(info) -at * Kötü fullname koruması kaldırıldı, ayarlar silindi.
}
#bfname on
on !*:JOIN:#:{
if $me !isop # && $istok(kick kban,%bfname.ceza,32) { return }
if !$($+(%,bfnw.,$nick),2) {
set -z $($+(%,bfnw.,$nick),1) 4
var %' = $+(%,bfnc.,$nick)
if !$(%',2) {
if %bfname.delay == evet { inc -eu3 %bfname.q 3 | .timer 1 %bfname.q who $nick }
else { who $nick }
set $(%',1) #
}
}
}
raw *:*:{
if $istok(315 352,$numeric,32) {
if $numeric == 315 {
if $($+(%,bfnc.,$2),2) { unset $($+(%,bfnc.,$2),1) | halt }
}
if $numeric == 352 {
if $($+(%,bfnc.,$6),2) && $bfname.check($strip($9-)) {
if $istok(kill kline gline,%bfname.ceza,32) {
%bfname.ceza $6 Fullname'iniz kötü söz/reklam içerdiğinden serverdan uzaklaştırıldınız.
}
elseif $istok(kick kban,%bfname.ceza,32) {
var %: = 1 | while $comchan($6,%:) { var %; = $v1 | if $me isop %; && $6 isreg %; { $iif(%bfname.ceza == kick,kick,ban $iif(%bfname.sure != 0,-ku $+ $v1,-k)) %; $6 $iif(%bfname.ceza == kban,2) Fullname'iniz kötü/söz reklam içeriyor. } | inc %: }
}
}
}
halt
}
}
alias bfname.check {
if $1 {
var %: = 1, %_ = $regsubex($replace($1-,©,c,®,r,3,e),/[^a-z.]+/gi,) | while $read(bfnameads.txt,%:) {
if $v1 iswm %_ { return $true }
inc %:
}
return $false
}
}
#bfname end