on !*:join:#:{
if $istok(Nick1 Nick2 Nick3,$nick,32) { return }
komut
}

$istok(Nick1 Nick2 Nick3,$nick,32) { return }

$read(muafn.txt,w,$nick) { return }

$read(filename, [ntswrp], [matchtext], [N])

on *:snotice:*Client connecting on*:{ if $istok(IRCForumlari İbrahim,$9,32) { return } | msg $9 hoş geldiniz. }

on *:snotice:*Client connecting on*:{ if $istokcs(IRCForumlari İbrahim,$9,32) { return } | msg $9 hoş geldiniz. }

on *:snotice:*Client connecting on*:{ if $token($token($10,1,64),1,40) == Sohbet { .sajoin $9 #Sohbet } }

on *:snotice:*Client connecting on*:{ if $token($token($10,1,64),1,40) === Sohbet { .sajoin $9 #Sohbet } }

 on *:dialog:adminlist:sclick:5:{ os admin add $did(2) }
on *:dialog:adminlist:dclick:1:os admin del $did(1).seltext | did -d adminlist 1 $did(1).sel
on *:notice:*:*: { 
  if ($nick == OperServ) && $dialog(adminlist) && (Şifresi isin $1-) && (*Services*admin*listesinden*silindi* !iswm $1-) { did -a adminlist 6 $5 }
  if (*Services*admin*listesinden*silindi* !iswm $1-) && $dialog(adminlist) && $regsubex($1,/^(\S{1,25})$/S,\1) { did -a adminlist 1 $v1 } 
  if (*Services*admin*listesinden*silindi* iswm $1-) && $dialog(adminlist) { did -r adminlist 9 | did -a adminlist 9 Admin Listesinden Silindi }
  if (*Services*admin*listesine*eklendi* iswm $1-) && $dialog(adminlist) { did -r adminlist 9 | did -a adminlist 9 Admin Listesine Eklendi } 
}

menu ,menubar {
  .-
  . ® ÖZELBOT 
  ..Açık:.enable  #otobot  | .echo -a 0,4 ÖzeL Bot Açıldı
  ..Kapalı:.disable  #otobot    | .echo -a 0,4 ÖzeL Bot Kapatıldı 
  .-
}

#otobot on

on *:text:*nasıls?*:?: /.timer  1 5 /msg $nick iyiym sen nasılsın
on *:text:*nerdensin*:?:/.timer  1 5  /msg $nick sağdan soldan
on *:text:*delimisin*:?: /.timer  1 5  /msg $nick sende çok akıllı sayılmazsın
on *:text:*.............
on *:text:*.............
on *:text:*.............

#otobot end

if $istok(nick1 nick2 nick3,$nick,32) { return }

if $read(muafnick.txt,w,$nick) { return }

if $regex($nick,/^(nick1|nick2|nick3|nick4)$/i) { return }

on *:text:*:#:{
if $regex($1-,/(selam|s\.a|sa|merhaba)/i) {
if $istok(nick1 nick2 nick3,$nick,32) { return }
msg # a.selam $nick
}
}

menu ,menubar {
.-
. ® ÖZELBOT 
..Açık:.enable #otobot | .echo -a 0,4 ÖzeL Bot Açıldı
..Kapalı:.disable #otobot | .echo -a 0,4 ÖzeL Bot Kapatıldı 
.-
}

#otobot on
on *:text:*:?:{
if $read(muafnick.txt,w,$nick) { return }
if $regex($1-,/(nas[ıiİ]ls[ıiİ]n)/i) { .timer 1 5 /msg $nick iyiym sen nasılsın }
if $regex($1-,/(nerdens[ıiİ]n)/i) { .timer 1 5 /msg $nick sağdan soldan }
if $regex($1-,/(del[ıiİ]m[ıiİ]s[ıiİ]n)/i) { .timer 1 5 /msg $nick sende çok akıllı sayılmazsın }
}
#otobot end

on *:text:*:?:{
if $read(muafnick.txt,w,$nick) { return }
if $regex($1-,/(nas[ıiİ]ls[ıiİ]n)/i) { .timer 1 5 /msg $nick iyiym sen nasılsın }
if $regex($1-,/(nerdens[ıiİ]n)/i) { .timer 1 5 /msg $nick sağdan soldan }
if $regex($1-,/(del[ıiİ]m[ıiİ]s[ıiİ]n)/i) { .timer 1 5 /msg $nick sende çok akıllı sayılmazsın }

on *:event:*:#:{ 
if (koşul) { kodlar }
else { kodlar }
}

on *:text:*:?:{
if $read(muafnick.txt,w,$nick) { return }
if $regex($1-,/(nas[ıiİ]ls[ıiİ]n)/i) { .timer 1 5 /msg $nick iyiym sen nasılsın }
if $regex($1-,/(nerdens[ıiİ]n)/i) { .timer 1 5 /msg $nick sağdan soldan }
if $regex($1-,/(del[ıiİ]m[ıiİ]s[ıiİ]n)/i) { .timer 1 5 /msg $nick sende çok akıllı sayılmazsın }
}