Cinsel Nick için Db Oluşturma
 

#Cinsel off
on *:Text:*:#: {
if $1 == $Lower(!Cinselekle) {
if $read(cinsel.txt,w,$2) { msg $Chan 4 $time([HH:nn]) - 1Rumuz listede zaten var [ $2 ] | halt }
write cinsel.txt $2
Msg $Chan 4 $time([HH:nn]) - 1Rumuz listeye eklendi. [ $2 ]
halt
}
if ($1 == !Cinselsil) {
if (!$2) { msg $Chan 4 $time([HH:nn]) - 1 Hatalı Kullanım! "!Cinselsil rumuz" şeklinde kullanınız. | halt }
if !$read(cinsel.txt,w,$2) { msg $Chan 4 $time([HH:nn]) - 1 [ $2 ] rumuzu zaten listede yoktur. | halt }
write $+(-ds,$2) cinsel.txt
msg $Chan 4 $time([HH:nn]) - 1Rumuz listeden kaldırıldı. [ $2 ]
halt
}
if ($1 == !Cinsellist) {
if $lines(cinsel.txt) == 0 { msg $Chan 4 $time([HH:nn]) - Cinsell Rumuz listesinde kayıt bulunmamaktadır. | halt }
else {
Var %Sly 1
While %Sly <= $lines(Cinsel.txt) {
msg $Chan 4 $time([HH:nn]) - $Read(cinsel.txt,%Sly)
Inc %Sly
}
msg $Chan 4 $time([HH:nn]) - 1Cinsel rumuz listenizdeki4 $lines(Cinsel.txt) 1kayıt gösterildi
}
}
}
on *:join:#Kanaladınız: {
if $read(Cinsel.txt,w,$nick) {
sajoin $Nick 0
Sajoin $Nick #Cinsellik
Msg #Opers 4 $time([HH:nn]) 4[ $Chan 4] kanalına giren 4[ $Nick 4] Cinsel rumuz olduğu için bütün kanallardan çıkartılmıştır...
Msg $Nick Rumuzunuz cinsel içerikli olduğu için global kanallardan çıkartılıp, #Cinsellik kanalına alınmış bulunmaktasınız...
}
}
#Cinsel end