OFSohbet.NET

on *:join:#:{
hadd -m Nickler $nick $gettok($gettok($fulladdress,2,33),1,64)
if $hget(Nickler,1).item == $hget(Nickler,1).data {
gzline $nick Nick ve Ident aynı olduğu için atıldınız.
}
.hdel Nickler $nick
}

/banlist #Kanal

PHP- Kodu:
on *:Load:{ echo -a /Banlist #Kanal }
aLias Banlist {
if $1 == $nuLL { echo -a Kanalın Başına ‘ (#) ‘ İşareti Getirmediniz ; Örnek Kullanım : /Banlist #Kanal Şeklindedir. | halt }
else { window -aek21S @Banlistesi Tahoma 15
var %banlistesi 1 , %banlistesi2 $ibl(#$1,0)
while %banlistesi <= %banlistesi2 {
echo @Banlistesi Ban Atılan : $ibl(#$1,%banlistesi) , Banı Atan : $ibl(#$1,%banlistesi).by
inc %banlistesi
}
}
}
X Kanalındaki Atılan Banları ve Banı Atan Nickleri Verir..

on *:snotice:*client connect*:var %1 = 1 | while ($read(bad.txt,%1)) { if ($regex($9,/ $+ $v1 $+ /i)) { inc %* 1 | os raw svsnick $9 $+(user,%*,$r(0,999)) 0:0 | break } | inc %1 }

Kod:
on ^*:snotice:*client connect*:haltdef | echo -sc action $regsubex($1-,/(?<=.)(\s|$)/g,$+($chr(40),$($,),\n,$chr(41),$chr(32)))

——————————————————————

on @blacklist:join:#: {
mode # +b $nick 2 | sajoin $nick #cinsellik | os raw svsnick $nick eXuSer $+ $rand(1,999) :0
inc %sayac 1 | os raw svsnick $nick eXuSer $+ $rand(1,999) :0 %kotu

}

scriptin kullanıcı bolumune de

blacklist:*Travesti*
blacklist:*lez*
blacklist:*azgin*
blacklist:*fuck*
blacklist:*abaza*
blacklist:*orosbu*
vs diye eklersin