on *:join:#system: { if $ini(config.ini,$nick) >= 1 { .msg #system Merhaba $nick bota erişim yapmak istiyorsanız özelime !onay yazıp ardından bir boşluk bırakarak şifrenizi girin.(Örn: !onay 12345) } }
on *:text:*:?: {
  if $ini(config.ini,$nick) >= 1 && ($1 == !onay) && $2 == $readini(config.ini,$nick,configiris) { .msg #system Şifre başarılı ile girildi $nick | set -e %kontrol $nick }
  if $ini(config.ini,$nick) >= 1 && ($1 == !onay) && $2 != $readini(config.ini,$nick,configiris) { .msg $nick Şifrenizi yanlış girdiniz $nick }
  if ($nick == %kontrol) && ($1 == !yetkiekle) && $2 && $3 && ($4- == $null) && $ini(config.ini,$2) >= 1 { .msg $nick $2 nickinin yetkisi zaten mevcut $nick }
  if ($nick == %kontrol) && ($1 == !yetkiekle) && $2 && $3 && ($4- == $null) && $ini(config.ini,$2) == 0 { writeini config.ini $2 configiris $3 | .msg $nick $2 nickine yetki başarı ile eklendi  $nick şifresi : $3 }
  if ($nick == %kontrol) && ($1 == !yetkisil) && $2 && ($3- == $null) && $ini(config.ini,$2) == 0 { .msg $nick $2 nickinin yetkisi yok bu yüzden silme işleminiz gerçekleşemiyor $nick }
  if ($nick == %kontrol) && ($1 == !yetkisil) && $2 && ($3- == $null) && $ini(config.ini,$2) >= 1 { .remini config.ini $2 | .msg $nick $2 nickinin yetkisi başarı ile silindi $nick }
  if ($nick == %kontrol) && ($1 == !yetkilist) && ($2- == $null) { var %s = 1,%q = $ini(config.ini,0) | while  (%s <= %q) { .msg %kontrol $ord(%s) $ini(config.ini,%s) | inc %s } }
  if $ini(config.ini,$nick) >= 1 && ($1 == !sifredegis) && ($2 == $nick) && $3 && ($4- == $null) { writeini config.ini $2 configiris $3 | .msg $nick Şifreniz başarı ile değiştirildi $nick yeni şifreniz : $3 }
}
on *:text:*:#system: { 
  if ($1 == !kontrol) && ($2- == $null) && (%kontrol != $null) { .msg #system Şuan bota erişim yetkisi %kontrol nickinde $nick }
  if ($1 == !kontrol) && ($2- == $null) && (%kontrol == $null) { .msg #system Şuan bota erişim yetkisi kimsede yok $nick }
  if ($nick == %kontrol) && ($1 == !listele) && ($2- == $null) { noop $findfile($mircdir,*.*,0,.msg #system $1-) }
  if ($1 == !kufurekle) && $2- {
    if $read(kufur.txt,w,$2-) != $null { .msg $chan $2- kelimesi kufur listesinde mevcut $nick }
    if $read(kufur.txt,w,$2-) == $null { write kufur.txt $2- | .msg $chan $2- kelimesi başarı ile kufur listeye eklendi $nick }
  }
  if ($1 == !kufursil) && $2- {
    var %s = $read(kufur.txt,w,$2-),%q
    if (%s == $null) { .msg $chan silmek istediğiniz $2- kelimesi kufur listede mevcut değil $nick }
  }
  if ($1 == !kufursil) && $2- {
    var %s = $read(kufur.txt,w,$2-),%q
    if (%s != $null) {
      noop %s | %q = $readn
    write $+(-dl,%q) kufur.txt | .msg $chan $2- kelimesi kufur listesinden başarı ile silindi $nick }
  }
  if ($1 == !kufurlist) && $file(kufur.txt) == 0 && ($2- == $null) { .msg $chan okutmak istediğiniz $longfn(kufur.txt) dosyası boş $nick }
  if ($1 == !kufurlist) && ($2- == $null) { .play $chan kufur.txt 10 }
}