Durum/Arkadaşlık/İlişki Sistemi

on *:text:*:?: {
  if $regex($1,/^[.&!-]komutlar/Si) {
    msg $nick 4,8E-book sistem botu komutları:
    msg $nick 1,8Kayıt olmak için: !kayıt Nick Sifre 11,2( Kayıt Ebook yönetim onayı gerektirir. )
    msg $nick 1,8Giriş yapmak için: !giris Nick Sifre 11,2( Giriş yapmadan herhangi bir parametre kullanamazsınız. )
    msg $nick 1,8Çıkış yapmak için: !cikis 11,2 ( Çıkış yapar ve tüm giriş bilgileriniz temizlenir. )
    msg $nick 1,8Durum eklemek için: !durum ekle DURUM
    msg $nick 1,8Durum silmek için: !durum sil DURUMNO 11,2( Listeledikten sonra durum numaralarını görebilirsiniz. )
    msg $nick 1,8Durum listelemek için: !durum listele 
    msg $nick 1,8Bildirimleri okumak için: !bildirimlerim 11,2( Okuduktan sonra silinir. ) 
    msg $nick 1,8Arkadas eklemek için: !arkadas ekle Nick 11,2( Karşı tarafın onayını gerektirir. )
    msg $nick 1,8Arkadaş silmek için: !arkadas sil Nick 11,2( Direk olarak arkadaş listenizden silinir. )
    msg $nick 1,8Arkadaş listelemek için: !arkadas listele 11,2( Mevcut arkadaş listenizi verir. )
    msg $nick 1,8İlişki eklemek için: !iliski ekle Nick 11,2( Karşı tarafın onayını gerektirir. Karşılama mesajınızda gözükür. )
    msg $nick 1,8İlişki silmek için: !iliski sil Nick 11,2( Direk olarak ilişkinizi siler. )
    msg $nick 1,8Özel mesaj atmak için: !mesaj at Nick MESAJ 11,2( Kullanıcının sunucuda bulunmasını gerektirmez. Mesaj diğer kullanıcı giriş yaptığında bildirim halinda gösterilir. )
    msg $nick 1,8Mesajları okumak için: !mesaj oku 11,2( Mesajlarınızı listeler. )
    msg $nick 1,8Mesajları temizlemek için: !mesaj temizle 11,2( Mesajlarınızı temizler. )
    msg $nick 1,8Bir kullanıcı bilgilerini görmek için: !info NİCK
    msg $nick 1,8Bir kullanıcı engellemek için: !engelle Nick 11,2( Size mesaj gönderemez, arkadaşlık isteğinde bulunamaz, bilgilerinizi göremez. )
    msg $nick 1,8Ayarlar ve şifre değişimi için: !ayarlar 11,2 ( Profil ve şifre ayarlarınızı buradan yapabilirsiniz. )
    msg $nick 1,8 Sistemin detaylı bilgisi için: !bilgi 
  }
  if $regex($1,/^[.&!-]bilgi/Si) {
    msg $nick 1,8 EBook boş bir zaman diliminde hobi olarak kodlanmış olup, geliştirilmeye açık bir sistemdir.
    msg $nick 1,8 Kayıt, giriş, çıkış, durum, arkadaş, ilişki, özel mesaj, engel, şifre değişimi, info, profil bilgileri gibi özellikler sunmaktadır.
    msg $nick 1,8 Umarım gelişimine devam eder.
  }
  if $regex($1,/^[.&!-]kay[iIİı]t/Si) {
    if !$2 || !$3 { msg $nick 1,8 Kullanıcı adı veya şifre girmediniz, lütfen tüm parametreleri tam girerek deneyiniz. | return }
    if $istok(%yasaklinick,$2,32) { msg $nick 1,8 Bu kullanıcı adı "yasaklı nick" listesindedir. Detaylar için 11,2 #E-book | return }
    if $hfind(ebook,$2,0,w) > 0 { msg $nick 1,8 Bu kullanıcı ismi zaten daha önce kullanılmış, lütfen farklı bir kullanıcı adı deneyin. | return }
    else { 
      set %kayitlimi $nick
      set %multip $2
      set %epass $3
      who +I $nick
    }
  }
  if $regex($1,/^[.&!-]g[iİı]r[iIİı][Şşs]/Si) {
    if $hfind(giris,$nick,0) = 1 { msg $nick 1,8Daha önce giriş yapmışsın $nick | return }
    if !$2 || !$3 { msg $nick 1,8Kullanıcı adı veya şifre girmediniz, lütfen tüm parametreleri tam girerek deneyiniz. | return }
    if $hfind(ebook,$2,0,w) = 0 { msg $nick 1,8 Böyle bir kullanıcı adı maalesef yok, bir hesap oluşturmak ister misiniz? | return }
    if $hget(ebook,$hfind(ebook,$2,1,w)) != $3 { msg $nick 1,8 Maalesef girdiğiniz şifre yanlış, şifrenizi unuttuysanız 11,2 #E-book 1,8 kanalından yardım alabilirsiniz. | return }
    else { msg $nick 1,8 Tebrikler 11,2 $2 1,8kullanıcı adıyla giriş yaptın. !komutlar yazarak kullanabileceğin parametreleri görebilirsin. | hadd -s giris $nick $2 }
    if !$read(ebook/profil.txt,w,$+($2,|,*)) { msg $nick 1,8 Lütfen profil bilgilerinizi, !ayarlar yapıp doldurun. }
    if $lines(ebook/bildirim/ $+ $2 $+ .txt) > 0 { msg $nick 1,8 Yeni bildirimlerin var okumak için: !bildirimlerim }
  }
  if $regex($1,/^[.&!-][Ççc][iİı]k[iİı][Şşs]/Si) {
    if $hfind(giris,$nick,0) = 0 { msg $nick 1,8 Zaten giriş yapmamışsın $nick | return }
    hdel giris $nick
    msg $nick 1,8 Tüm kayıtların silindi, başarıyla çıkış yaptın!
  }
  if $regex($1,/^[.&!-]b[İiı]ld[iİı]r[iİı]mler[iİı]m/Si) {
    msg $nick 1,8 Bildirimlerin..
    var %s $lines(ebook/bildirim/ $+ $hget(giris,$hfind(giris,$nick,1)) $+ .txt) 
    while (%s) {
      msg $nick 1,8 %s : $read(ebook/bildirim/ $+ $hget(giris,$hfind(giris,$nick,1)) $+ .txt,%s)
      dec %s
    }
    write -c ebook/bildirim/ $+ $hget(giris,$hfind(giris,$nick,1)) $+ .txt
  }
  if $regex($1,/^[.&!-]durum/Si) {
    if $hfind(giris,$nick,0) = 0 { msg $nick 1,8Lütfen önce giriş yapın. | return }
    if $2 = ekle { 
      var %s $calc($lines(ebook/durum $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt) + 1)
      msg $nick 1,8 Durumunuz kaydedilmiştir, arkadaşlarınıza bildirim yapıldı. 
      msg $nick 1,8 Durum numaranız: $calc($lines(ebook/durum/ $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt) + 1)
      write ebook/durum/ $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt $3-
      var %i 1
      while (%i <= $lines(ebook/arkadas/ $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt)) {
        write ebook/bildirim/ $+ $read( $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt)),%i) $hget(giris,$hfind(giris,$nick,1)) Nicki bir durum paylasti!
        inc %i
      }
    }
    if $2 = sil {
      if $lines( $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt) = 0 { msg $nick 1,8 Henüz bir şey paylaşmamışsın, daha ne bekliyorsun? | return }
      if !$read( $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt,$3) { msg $nick 1,8 Bu numaraya ait bir durum yok. | return }
      write -l $+ $read( $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt,$3) $hget(giris,$hfind(giris,$nick,1))  $+ .txt
      msg $nick 1,8 $3 Numaralı durumun silindi.
    }
    if $2 = listele {
      msg $nick 1,8 Durumların listeleniyor >>>
      var %s $lines(ebook/durum/ $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt)
      while %s { 
        msg $nick 1,8 $read(ebook/durum/ $+ $hget(giris,$hfind(giris,$nick,1))  $+ .txt,%s) 11,2 Durum No: $readn
        dec %s
      }
    }
  }

  if $regex($1,/^[!.&-]arkada[şŞs]/Si) {
    if $hfind(giris,$nick,0) = 0 { msg $nick 1,8Lütfen önce giriş yapın. | return }
    if !$2 || !$3 && $2 != listele { msg $nick 1,8 Yetersiz parametre hatası, lütfen doğru olarak girdi yapınız. | return }
    if $2 = ekle {
      if $read(ebook/engel/ $+ $3 $+ .txt,w,$hget(giris,$hfind(giris,$nick))) { msg $nick 1,8Bu kişi sizi engellemiş maalesef.. | return }
      if $hfind(ebook,$3,0) = 0 { msg $nick 1,8 Böyle bir kullanıcı yok maalesef, farklı bir nicke yönlensen? | return }
      if $hget(giris,$hfind(giris,$nick)) = $3 { msg $nick 1,8 Her insan kendinin arkadaşıdır, istek göndermeye gerek yok bence. | return }
      if $read(ebook/arkadasistek.txt,w,$3 $+ $chr(124) $+ $hget(giris,$hfind(giris,$nick))) { msg $nick 1,8 Zaten bu nicke bir arkadaşlık isteği yollamışsın. | return }
      if $read(ebook/arkadas/ $+ $hget(giris,$hfind(giris,$nick)) $+ .txt,w,$3) { msg $nick 1,8 Bu nickle zaten arkadaşsın. | return }
      write ebook/arkadasistek.txt $3 $+ $chr(124) $+ $hget(giris,$hfind(giris,$nick))
      if $hfind(giris,$3,0) = 1 { msg $hget(giris,$hfind(giris,$3)) $hget(giris,$hfind(giris,$nick)) Nicki size arkadaslik istegi gonderdi. }
      write ebook/bildirim/ $+ $3 $+ .txt $hget(giris,$hfind(giris,$nick)) size arkadaşlık isteği gönderdi.
      msg $nick 1,8 Arkadaşlık isteğin gönderildi, $3 onayladığında arkadaş olabileceksiniz.
    }
    if $2 = sil {
      if $hfind(ebook,$3,0) = 0 { msg $nick 1,8 Böyle bir kullanıcı adı yok. | return }
      if $hget(giris,$hfind(giris,$nick)) = $3 { msg $nick 1,8Oyun mu oynuyoruz? :) | return }
      if !$read(ebook/arkadas/ $+ $hget(giris,$hfind(giris,$nick)) $+ .txt $+ ,w,$3) { msg $nick 1,8 Böyle bir arkadaşın yokmuş meğerse. | return }
      write -l $+ $3 ebook/arkadas/ $+ $hget(giris,$hfind(giris,$nick)) $+ .txt
      write -l $+ $hget(giris,$hfind(giris,$nick)) ebook/arkadas/ $+ $3 $+ .txt
      msg $nick 1,3 $3 Nickini arkadaş listenden sildin.
      write ebook/bildirim/ $+ $3 $+ .txt $hget(giris,$hfind(giris,$nick)) sizi arkadaş listesinden sildi.
    }
    if $2 = listele {
      msg $nick 1,8 Arkadaş listeniz..
      play $nick $+(ebook/arkadas/,$hget(giris,$hfind(giris,$nick)),.txt)  0
    }
    if $2 = onay {
      if !$read(ebook/arkadasistek.txt,w,$hget(giris,$hfind(giris,$nick)) $+ $chr(124) $+ *) { msg $nick 1,8 Size ait bir arkadaşlık isteği yok. | return }
      if $3 = $token($read(ebook/arkadasistek.txt,w,$hget(giris,$hfind(giris,$nick)) $+ *),2,124) { 
        msg $nick 1,8 $token($read(ebook/arkadasistek.txt,w,$hget(giris,$hfind(giris,$nick)) $+ *),2,124) ile arkadaş oldun!
        write ebook/arkadas/ $+ $token($read(ebook/arkadasistek.txt,w,$hget(giris,$hfind(giris,$nick)) $+ *),2,124) $+ .txt $hget(giris,$hfind(giris,$nick))
        write ebook/arkadas/ $+ $hget(giris,$hfind(giris,$nick)) $+ .txt $token($read(ebook/arkadasistek.txt,w,$hget(giris,$hfind(giris,$nick)) $+ *),2,124)
        write ebook/bildirim/ $+ $token($read(ebook/arkadasistek.txt,w,$hget(giris,$hfind(giris,$nick)) $+ *),2,124) $+ .txt $hget(giris,$hfind(giris,$nick)) arkadaslik istegini onayladi.
        write -l $+ $token($read(ebook/arkadasistek.txt,w,$hget(giris,$hfind(giris,$nick)) $+ *),2,124) ebook/arkadasistek.txt
      }
    }
  }
  if $regex($1,/^[!.&-]mesaj/Si) {
    if $hfind(giris,$nick,0) = 0 { msg $nick 1,8Lütfen önce giriş yapın. | return }
    if !$2 || !$3 && $2 != oku && $2 != temizle { msg $nick 1,8 Yetersiz parametre hatası, lütfen doğru olarak girdi yapınız.  | return }
    if $2 = at {
      if $hfind(ebook,$3,0) = 0 { msg $nick 1,8 Böyle bir kullanıcı yok maalesef, farklı bir nicke yönlensen? | return }
      if !$4 { msg $nick Lutfen bir mesaj girin.. | return }
      if $hget(giris,$hfind(giris,$nick)) = $3 { msg $nick 1,8Kendine mesaj atamazsın $nick | return }
      if $read(ebook/engel/ $+ $3 $+ .txt,w,$hget(giris,$hfind(giris,$nick))) { msg $nick 1,8 Bu nick tarafından engellenmişsiniz.. | return }
      msg $nick 1,8Mesajiniz $3 nickine gönderildi.
      write ebook/mesaj/ $+ $3 $+ .txt $hget(giris,$hfind(giris,$nick)) : $4-
      if $hfind(giris,$3,0) > 0 { msg $3 $hget(giris,$hfind(giris,$nick)) Nicki size Ebook uzerinden ozel bir mesaj gonderdi! Okumak icin !mesaj oku yapiniz. }
      else {
        write ebook/bildirim/ $+ $3 $+ .txt $hget(giris,$hfind(giris,$nick)) Nicki size ozel bir mesaj gonderdi! Okumak icin !mesaj oku yapiniz. 
      }
    }
    if $2 = oku { 
      msg $nick 1,8Özel mesajlarınız listeleniyor, mesaj adeti: $lines( $+ $hget(giris,$hfind(giris,$nick)) $+ .txt)
      play $nick ebook/mesaj/ $+ $hget(giris,$hfind(giris,$nick)) $+ .txt 0
    }
    if $2 = temizle {
      msg $nick 1,8 Özel mesajlarınız taranıyor..
      write -c ebook/mesaj/ $+ $hget(giris,$hfind(giris,$nick)) $+ .txt
      msg $nick 1,8Özel mesajlarınız temizlendi.. 
    }
  }
  if $regex($1,/^[!.&-][iİı]l[iİı][Şsş]k[iİı]/Si) {

    if $hfind(giris,$nick,0) = 0 { msg $nick 1,8Lütfen önce giriş yapın. | return }
    if !$2 || !$3 && $2 != sil { msg $nick 1,8 Yetersiz parametre hatası, lütfen doğru olarak girdi yapınız. | return }
    if $2 = ekle {
      if $hget(giris,$hfind(giris,$nick)) = $3 { msg $nick 1,8Kendinle ilişki yaşayacak kadar düşmedin umarım.. | return }
      if $hfind(ebook,$3,0) = 0 { msg $nick 1,8 Böyle bir kullanıcı yok maalesef, farklı bir nicke yönlensen? | return }
      if $read(ebook/engel/ $+ $3 $+ .txt,w,$hget(giris,$hfind(giris,$nick))) { msg $nick 1,8Bu kişi sizi engellemiş maalesef.. | return }
      if $hfind(iliski,$hget(giris,$hfind(giris,$nick)),0) > 0 || $hfind(iliski,$3,0) > 0 { msg $nick 1,8Sizin veya ilişki istediğiniz kişinin hali hazırda ilişkisi var. | return }
      hadd iliskiistek $3 $hget(giris,$hfind(giris,$nick))
      msg $nick 1,8İlişki isteğiniz $3 Nickine gönderilmiştir.
      write ebook/bildirim/ $+ $3 $+ .txt $hget(giris,$hfind(giris,$nick)) Nicki size iliski istegi gonderdi! Onaylamak için !iliski onay NİCK
    }
    if $2 = kabul {
      if $hfind(iliskiistek,$hget(giris,$hfind(giris,$nick)),0) = 0 { msg $nick 1,8Şu an bir ilişki isteğiniz mevcut değildir. | return }
      if $3 = $hget(iliskiistek,$hfind(iliskiistek,$nick)) { 
        hadd iliski $3 $hget(iliskiistek,$hfind(iliskiistek,$nick))
        hadd iliski $hget(iliskiistek,$hfind(iliskiistek,$nick)) $3
        msg $nick 1,8 $hget(iliskiistek,$hfind(iliskiistek,$nick)) ile iliskin basladi!
        write ebook/bildirim/ $+ $hget(iliskiistek,$hfind(iliskiistek,$nick)) $+ .txt $nick iliski istegini onayladi.
        hdel iliskiistek $nick
      }
    }
    if $2 = sil {
      msg $nick 1,8İlişkin siliniyor!
      hdel iliski $nick
      msg $nick 1,8İlişkin silindi..
    }
  }
  if $regex($1,/^[!.&-][İiı]nfo/Si) {
    if $hfind(giris,$nick,0) = 0 { msg $nick 1,8Lütfen önce giriş yapın. | return }
    if !$2 { msg $nick 1,8 Yetersiz parametre hatası, lütfen doğru olarak girdi yapınız. | return }
    if $hfind(ebook,$2,0) = 0 { msg $nick 1,8 Böyle bir kullanıcı yok maalesef, farklı bir nicke yönlensen? | return }
    if $read(ebook/engel/ $+ $2 $+ .txt,w,$hget(giris,$hfind(giris,$nick))) { msg $nick 1,8Bu kişi sizi engellemiş maalesef.. | return }
    msg $nick 11,2İsim: 1,8 $token($token($read(ebook/profil.txt,w,$+($2,|,*)),2,124),2,$asc(:))
    msg $nick 11,2Yaş: 1,8 $token($token($read(ebook/profil.txt,w,$+($2,|,*)),3,124),2,$asc(:))
    msg $nick 11,2Memleket: 1,8 $token($token($read(ebook/profil.txt,w,$+($2,|,*)),4,124),2,$asc(:))
    msg $nick 11,2Burç: 1,8 $token($token($read(ebook/profil.txt,w,$+($2,|,*)),5,124),2,$asc(:))
    msg $nick 11,2Son Durum: 1,8 $read(ebook/durum/ $+ $2 $+ .txt,$lines(ebook/durum/ $+ $2 $+ .txt))
  }
  if $regex($1,/^[!.&-]ayarlar/Si) {
    if $hfind(giris,$nick,0) = 0 { msg $nick 1,8Lütfen önce giriş yapın. | return }
    if !$2 {
      msg $nick 1,8İsminizi değiştirmek için: 11,2!ayarlar isim İSMİNİZ
      msg $nick 1,8Şifrenizi değiştirmek için: 11,2!ayarlar sifre eskişifre YENİŞİFRE
      msg $nick 1,8Yaşınızı değiştirmek için: 11,2!ayarlar yas YAŞINIZ
      msg $nick 1,8Memleketinizi değiştirmek için: 11,2!ayarlar memleket MEMLEKETİNİZ
      msg $nick 1,8Burcunuzu değiştirmek için: 11,2!ayarlar burc BURCUNUZ
    }
    if $2 = isim {
      if !$3 { msg $nick Lutfen bir isim belirt! | return }
      var %:s $read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ |*)
      if !$read(ebook/profil.txt,w,%s) {
        write ebook/profil.txt $nick $+ $chr(124) $+ Isim: $+ $3 $+ $chr(124)
        msg $nick İsminiz: $3 olarak eklendi.
        return
      }
      write -l $+ %:s ebook/profil.txt $puttok(%:s,Isim: $+ $3 $+ ,2,124)
      msg $nick İsminiz: $3 olarak degistirildi.
    }
    if $2 = yas {
      if !$regex($3,/^[0-9]/) { msg $nick Yasiniz rakamlardan olusmak zorundadir! | return }
      if !$3 { msg $nick Lutfen bir yas belirt! | return }
      var %:s $read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ |*)
      if !$read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ *) {
        msg $nick Lutfen once !ayarlar isim ISIM yapip isim bilgilerinizi doldurun.
        return
      }
      elseif !$read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ * $+ Yas: $+ *) {
        write -l $+ %:s ebook/profil.txt %:s $+ Yas: $+ $3 $+ $chr(124)
        msg $nick Yasiniz: $3 olarak eklendi.
        return
      }
      write -l $+ %:s ebook/profil.txt $puttok(%:s,Yas: $+ $3 $+ ,3,124)
      msg $nick Yasiniz: $3 olarak degistirildi.
    }
    if $2 = Memleket {
      if !$3 { msg $nick Lutfen bir memleket belirt! | return }
      var %:s $read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ |*)
      if !$read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ * $+ Yas: $+ *) {
        msg $nick Lutfen once isim bilgilerinizi ve yas bilgilerinizi doldurun.
        return
      }
      elseif !$read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ * $+ Memleket: $+ *) {
        write -l $+ %:s ebook/profil.txt %:s $+ Memleket: $+ $3 $+ $chr(124)
        msg $nick Memleketiniz: $3 olarak eklendi.
        return
      }
      write -l $+ %:s ebook/profil.txt $puttok(%:s,Memleket: $+ $3 $+ ,4,124)
      msg $nick Memleketiniz: $3 olarak degistirildi.
    }
    if $2 = burc {
      if !$3 { msg $nick Lutfen bir burc belirt! | return }
      var %:s $read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ |*)
      if !$read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ * $+ Memleket: $+ *) {
        msg $nick Lutfen once isim bilgilerinizi yas bilgilerinizi ve memleket bilgilerinizi doldurun.
        return
      }
      elseif !$read(ebook/profil.txt,w,$hget(giris,$hfind(giris,$nick)) $+ * $+ Burc: $+ *) {
        write -l $+ %:s ebook/profil.txt %:s $+ Burc: $+ $3 $+ $chr(124)
        msg $nick Burcunuz: $3 olarak eklendi.
        return
      }
      write -l $+ %:s ebook/profil.txt $puttok(%:s,Burc: $+ $3 $+ ,5,124)
      msg $nick Burcunuz: $3 olarak degistirildi.
    }
    if $2 = sifre {
      if !$3 || !$4 { msg $nick Yetersiz parametre lutfen tum bilgileri giriniz, !sifre eskisifre yenisifre | return }
      if $hget(ebook,$hget(giris,$hfind(giris,$nick))) != $3 { msg $nick Eski sifrenizi yanlis girdiniz!  | return }
      hadd ebook $hget(giris,$hfind(giris,$nick)) $4
      msg $nick Sifreniz $4 olarak degistirilmistir.
    }
  }
}
raw 352:*: { 
  if $6 = %kayitlimi {
    if r isin $7 {
      if $read(ebook/hesapvar.txt,w,%kayitlimi) { msg %kayitlimi 1,8Daha önce bir hesap oluşturmuşsunuz 11,2 %kayitlimi $+ ,1,8 lütfen önceki hesabınızı sonlandırınız. | return }
      write ebook/hesapvar.txt %kayitlimi
      msg %kayitlimi 1,8 Nickiniz onay sırasına alınmıştır, yönetim tarafından onaylandıktan sonra kullanabilirsiniz. 
      msg %kayitlimi 1,8 Multi üyelik durumunda üyeliğiniz askıya alınacak ve bir daha onay verilmeyecektir.
      msg %kayitlimi 1,8 Kayitlara geçen ip adresiniz: 11,2 $4
      msg %kayitlimi 1,8 Kayıt numaranız: 11,2 %sira
      inc %sira
      write ebook/onaylanacak.txt $+(%multip,$chr(11),%epass,$chr(11),$4)
      msg #E-book@ 1,8# Nick Kayıt İsteği #
      msg #E-book@ 1,8# Kullanıcı adı: 11,1 %multip
      msg #E-book@ 1,8# IP Adresi: 11,1 $4
      msg #E-book@ 1,8# Onay numarası: 11,1 $lines(ebook/onaylanacak.txt)
    }
    else { msg %kayitlimi 1,8 Nickiniz kayıtlı değildir %kayitlimi $+ , 11,2 Ebook 1,8 yalnızca kayıtlı nickler içindir. }
  }
}

on *:rawmode:#: {
  if $regex($1,/\+[hoaq]/) && !$regex($chan,/(opers|operhelp|adwords|opershobet)/) && $hfind(ebook,$2,0) != 0 {
    if $hfind(iliski,$nick,0) > 0 { msg $chan [İliski] ~ $2 ~ 1,8 $2 Nickinin, $hget(iliski,$2) ile ilişkisi var <3. ~ }
    if $lines(ebook/durum/ $+ $2 $+ .txt) > 0 { msg $chan [Durum] ~ $2 ~ 1,8 $read(ebook/durum/ $+ $2 $+ .txt,$lines(ebook/durum/ $+ $2 $+ .txt)) ~ }
  }
}

on *:text:*:#e-book@: {
  if $regex($1,/[!.&-]onay/Si) {
    if !$istok(%yetkililer,$nick,32) { msg $chan Siz bu kanalda yetkili değilsiniz. | return }
    if $2 = liste {
      var %s $lines(ebook/onaylanacak.txt)
      while (%s) { 
        msg $chan -
        msg #E-book@ 1,8# Nick Kayıt İsteği #
        msg #E-book@ 1,8# Kullanıcı adı: 11,1 $gettok($read(ebook/onaylanacak.txt,%s),1,11)
        msg #E-book@ 1,8# IP Adresi: 11,1 $gettok($read(ebook/onaylanacak.txt,%s),3,11)
        msg #E-book@ 1,8# Onay numarası: 11,1 $readn
        msg $chan -
        dec %s
      }
    }
    if $2 = kabul {
      if !$3 { msg $chan 1,8 Bir onay numarası giriniz. | return } 
      if $lines(ebook/onaylanacak.txt) = 0  { msg $chan 1,8 Onay listesi boş. | return }
      if $3 > $lines(ebook/onaylanacak.txt) { msg $chan Böyle bir onay numarası yok. | return }
      hadd ebook $gettok($read(ebook/onaylanacak.txt,$3),1,11) $gettok($read(ebook/onaylanacak.txt,$2),1,11)
      msg $chan 1,8 $gettok($read(ebook/onaylanacak.txt,$3),1,11) nicki onaylandı. Onaylayan: $nick
      write -l $+ $read(ebook/onaylanacak.txt,$3) ebook/onaylanacak.txt
    }
  }
}
on *:start: {
  if !$isdir(ebook) { mkdir ebook }
  if !$isdir(ebook/arkadas) { mkdir ebook/arkadas }
  if !$isdir(ebook/bildirim) { mkdir ebook/bildirim }
  if !$isdir(ebook/durum) { mkdir ebook/durum }
  if !$isdir(ebook/engel) { mkdir ebook/engel }
  if !$isdir(ebook/mesaj) { mkdir ebook/mesaj }
  hmake ebook
  hmake giris
  hmake iliski
  hmake istek
  hmake iliskiistek
  hload ebook ebook/ebook.s
  hload iliski ebook/iliski.s
  hload istek ebook/istek.s
  hload ebook/iliskiistek.s 
  .timer 0 15 hsave ebook ebook/ebook.s $(|) hsave iliski ebook/iliski.s $(|) hsave istek ebook/istek.s $(|) hsave iliskiistek ebook/iliskiistek.s
}
on *:snotice:*client exit*: {
  if $hfind(giris,$6,0) = 1 { hdel giris $6 }
}