on *:snotice:*client connecting*:{ var %s = 1,%q = $lines(cinsel.txt) | while (%s <= %q) { if $read(cinsel.txt,%s) { if ($v1 iswm $9) { sajoin $9 #cinsellik } | inc %s } } }

on badd:join:#: { 
if ($chan == #help) || ($chan == #operhelp) { halt }
sajoin $nick #cinsellik | sapart $nick $chan
}
alias bdekle { auser badd $1 | echo -a $1 Badnick listesine eklendi. }
alias bdsil { ruser badd $1 | echo -a $1 Badnick listesinden silindi }
alias bdlist {
 var %kry 1
 while %kry <= $ulist(*,badd,0) {
 echo -a $ulist(*,badd,%kry)
inc %kry
}
}

alias bad { .auser 02 $1 }
on ^&*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick Uygunsuz Nick!
sapart $nick # | sajoin $nick #Cinsellik, #***, #Erotik}
}
}
}