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
}
}