IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Durum/Arkadaşlık/İlişki Sistemi (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/733808-durum-arkadaslik-iliski-sistemi.html)

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

!Bugün öğleden sonra hastalık nedeniyle evde yatmamdan ötürü can sıkıntısından uğraştığım bir sistem.
Genel itibariyle özellikleri:

Kayıt ve kayıt onay sistemi,
Giriş sistemi,
Durum ekle/sil/listele sistemi
Bildirim sistemi
Arkadaş ekle/sil/listele sistemi
İlişki ekle/sil sistemi
Özel mesaj at/oku/sil sistemi
İnfo sistemi
Kullanıcı engelleme sistemi
Profil bilgilerinin değişmesi sistemi
Greet tarzı durum ve ilişki çıkması
Şifre değişim sistemi

Bazı eksik noktaları var elbet, ben kendimce bir şeyler yapmaya çalıştım.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

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 }

}

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Eline sağlık kardeşim süper çalışma olmuş.

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

Alıntı:

Goemon Nickli Üyeden Alıntı (Mesaj 1041746141)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Eline sağlık kardeşim süper çalışma olmuş.

teşekkür ederim dostum, ben bu konuyu 2 gün önce açtım sanıyordum, meğerse yeni onaylanmış. ne diyelim. ayrıca, unuttuğum bi yer olmuş
on *:start: { eventine hadd -m iliskiistek ebook/iliskiistek.s ve timer'a hsave iliskiistek ebook/iliskiistek.s eklersiniz arkadaşlar.

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

Eline sağLık ilişki durumu Göz Önünde Olmuş güzel Çalışma Başarıların Devamını Dilerim ..

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

Tebrikler çok iyi görünüyor. Hatta çok güzel hareketler bunlar..
geliştirmekten vazgeçme.

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

Söylediğin bölümleri ekledim fakat, timer da art arda komut kullanıldığında ayırıcı karakter kullanırken direkt olarak | bu şekilde işe yaramadığı için $(|) evaluate etmen gerekiyor. iki iş olmasın diye o kısmı da düzenledim.

Kategoride moderasyon yapacak kimse olmadığı ve benimde zaman sıkıntım olduğu için konularınız biraz geç onaylanabilir Bilginize.

Güzel çalışma, arge ye devam..

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

Çok güzel bir paylaşım, ilişki durumunu deşifre etmek istemeyenler için yararsız gibi görünsede; örf ve adetlerimize uygun olmuş ,) Tebrik ederim Enes.

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

Alıntı:

SuLh Nickli Üyeden Alıntı (Mesaj 1041746150)

eline saglık çok guzel olmuş Txt ekleseydin iyiydi :P tek tek renklendirmek zorunda kalıyoruz kopy ederken

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

güzel olmuş ellerinize sağlık

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

+1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Başarılar ellerine sağlık..

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

Teşekkür ederim arkadaşlar, tekrar incelediğimde yaptığım bazı hatalar ve eksikleri, unuttuğum şeyleri gördüm. Boş bi zamanımda bunlar için kafa yoracağım, yeni özellikler ekleyip geliştirmeye çalışacağım.

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Gayet başarılı bir kodlama olmuş görülmemiş birşeye imza atmışsın eline sağlık kardeşim :)

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

Koddaki bir takım hatalar giderilmiş, renk kodu çıkmadığı için eklenti eklenmiştir. İlerleyen günlerde, duvar beğenisi, şarkı paylaşımı ve anlık dinlenmesi, profil fotosu eklentisi eklenecek ve bildirim, profil bilgileri kısmı geliştirilecektir, botun socket halini de umarım boş bi zaman diliminde yazacağım.

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

Alıntı:

SuLh Nickli Üyeden Alıntı (Mesaj 1041747288)

deneye deneye çok fikir çıkacak gibi (:

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

emeğine sağlık ilişki durumu ciddi çekici olmuş =)

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam Eline Sağlık Yeni Deneme Fırsatım Oldu Lakin Onaylama Yapamıyorum ßi Turlü

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

E-book@ kanalında onaylama yapacaksın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bir de şimdi farkettim,

Kod:

hadd ebook $gettok($read(ebook/onaylanacak.txt,$3),1,11) $gettok($read(ebook/onaylanacak.txt,$2),1,11)

kısmında tokenlarda hata yapmışım,

ikinci gettok, yani

Kod:

$gettok($read(ebook/onaylanacak.txt,$2),1,11)

şunun

Kod:

$gettok($read(ebook/onaylanacak.txt,$3),2,11)

şeklinde değişmesi gerek. Yoksa şifreyi yanlış onaylar

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

SuLh Gerçekden yine güzel iş çıkarmışsın başarılarının devamnı dilerim.

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam Teşekkürler E-Book@ kanalına evet numaralar bir geriden geliyodu :)
kabul numara
olarak kabul edilecek heralde denedim hiç bi kıpırtı olmadı
gettok değiştirip tekrar deniyceğim durumu bildiririm Teşekkürler İlgin icin ...

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

Onay yapamadım
!onay numara şeklinde yazıyorum kanalda yetkilim fakat
Siz bu kanalda yetkili değilsiniz.
uyarısını alıyorum

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

Alıntı:

PeNDoR Nickli Üyeden Alıntı (Mesaj 1041760288)

Onay yapamadım
!onay numara şeklinde yazıyorum kanalda yetkilim fakat
Siz bu kanalda yetkili değilsiniz.
uyarısını alıyorum

if !$istok(%yetkililer,$nick,32) { msg $chan Siz bu kanalda yetkili değilsiniz. | return }

en altta, şöyle bir sorgu var. botun bulunduğu scriptte, %yetkililer değişkeni içine komutu kullanabilecek kişileri yerleştirin.

şu aralar müsait olamıyorum, olduğumda bu kodu geliştirip düzenleyeceğim.

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Emeğine SağLık Bu Güzel Sistemi Düzenleyip Geliştirmeni Umuyorum iyi Çalısmalar.

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

Maalesef girdiğiniz şifre yanlış, şifrenizi unuttuysanız #E-book kanalından yardım alabilirsiniz.

böyle bir hata alınıyor şifreleri nereye kayıt ediyor giriş bir türlü yapılamıyor

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

Alıntı:

helloweenfs Nickli Üyeden Alıntı (Mesaj 1041942035)

Maalesef girdiğiniz şifre yanlış, şifrenizi unuttuysanız #E-book kanalından yardım alabilirsiniz.

böyle bir hata alınıyor şifreleri nereye kayıt ediyor giriş bir türlü yapılamıyor

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Burda aldığınız hatayla ilgili bilgi verilmiş

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

pckopat, o verdiğin linkteki hatayi düzelttim fakat yine kabul etmiyor
Maalesef girdiğiniz şifre yanlış, şifrenizi unuttuysanız #E-book kanalından yardım alabilirsiniz.
Bu şekilde bir hata aliyoruz birde farklı bir nick ile isim girdikten sonra yaşımızı belirleyemiyoruz isminizi tekrar girin diye uyari veriyor

[12:08] <helloween> !ayarlar isim Fikret
[12:08] <K9> İsminiz: Fikret olarak eklendi.
[12:08] <helloween> !ayarlar yas 37
[12:08] <K9> Lutfen once !ayarlar isim ISIM yapip isim bilgilerinizi doldurun.

sanırım ufak bir hata var gibi

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

Alıntı:

helloweenfs Nickli Üyeden Alıntı (Mesaj 1041942120)

Eklenti olarak ekledim bu şekilde dener misin

kayıt ve giriş şeklini değiştirdim.

bir kaç değişiklik daha yaptım hepsini denemedim gerçi o yüzden sorun olursa konu altında bilgi verirsin.

Denemeden önce ebook klasörünü sil eklentideki dosyayı ekle mirc i tekrar başlat

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

pckopat, Şimdi Oldu Çok Teşekkür Ederim son olarak bu komutlari sadece botun özelindemi kullanabiliyoruz mesela !info nick diyerek yani #E-book@ kanalında sadece onay işlemlerinimi yapabiliyoruz komutların hepsini bu kanalda yapamıyoruz sanyorum sadece özele mahsusmu

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:14 -->-> Daha önceki mesaj 15:56 --

şöyle bir sıkıntıda oldu sunucuda farklı nick ile aynı host kullanılınca sanıyorum ayarlardan isim yaş memleket burc ayalanınca kendi pcimdeki isimimin yaş memleket burc vs silinebiliyor bunuda ebook klasöründeki profil dosyasından yazarak düzenleyince o şekilde olabildi.

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İlk soruna cevap vereyim doğru işlemler özelde yapılıyor. Mantıken öyle olması daha sağlıklı yani kanal genelinde kayit yapılsa herkes şifreyi görecek. Sadece onayların o kanalda verilmesi daha iyi. Diğer konuya gelecek olursak detaylı denemedim dışardayım eve gittiğimde daha detaylı inceler bilgi veririm.

Edit: Güncel hali ek'tedir.

Onaylama şeklini nick olarak değiştim. Yani onay vermek için

!onay kabul nick

olacak şekilde ayarladım.

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

ben bunun kurulumunu bota yapamadım yaa yardımcı olabilecek varmı acaba özelden nicki ekliyorum ama kanala onay bilgisi gitmiyor ve onay numarasıda vermiyor anlayamadım sorunun ne oldunu

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

Alıntı:

shey Nickli Üyeden Alıntı (Mesaj 1041970977)

ben bunun kurulumunu bota yapamadım yaa yardımcı olabilecek varmı acaba özelden nicki ekliyorum ama kanala onay bilgisi gitmiyor ve onay numarasıda vermiyor anlayamadım sorunun ne oldunu

kod sorunsuz çalışıyor yeni sayfaya eklemenizi öneririm

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

[21:22] <KapriSLim> 4,8E-book sistem botu komutları:
[21:22] <KapriSLim> 1,8Kayıt olmak için: !kayıt Sifre 11,2( Kayıt Ebook yönetim onayı gerektirir. )
[21:22] <KapriSLim> 1,8Giriş yapmak için: !giris Sifre 11,2( Giriş yapmadan herhangi bir parametre kullanamazsınız. )
[21:22] <KapriSLim> 1,8Çıkış yapmak için: !cikis 11,2 ( Çıkış yapar ve tüm giriş bilgileriniz temizlenir. )
[21:22] <KapriSLim> 1,8Durum eklemek için: !durum ekle DURUM
[21:22] <KapriSLim> 1,8Durum silmek için: !durum sil DURUMNO 11,2( Listeledikten sonra durum numaralarını görebilirsiniz. )
[21:22] <KapriSLim> 1,8Durum listelemek için: !durum listele
[21:22] <KapriSLim> 1,8Bildirimleri okumak için: !bildirimlerim 11,2( Okuduktan sonra silinir. )
[21:22] <KapriSLim> 1,8Arkadas eklemek için: !arkadas ekle Nick 11,2( Karşı tarafın onayını gerektirir. )
[21:22] <KapriSLim> 1,8Arkadaş silmek için: !arkadas sil Nick 11,2( Direk olarak arkadaş listenizden silinir. )
[21:22] <KapriSLim> 1,8Arkadaş listelemek için: !arkadas listele 11,2( Mevcut arkadaş listenizi verir. )
[21:22] <KapriSLim> 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. )
[21:22] <KapriSLim> 1,8İlişki silmek için: !iliski sil Nick 11,2( Direk olarak ilişkinizi siler. )
[21:22] <KapriSLim> 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. )
[21:22] <KapriSLim> 1,8Mesajları okumak için: !mesaj oku 11,2( Mesajlarınızı listeler. )
[21:22] <KapriSLim> 1,8Mesajları temizlemek için: !mesaj temizle 11,2( Mesajlarınızı temizler. )
[21:22] <KapriSLim> 1,8Bir kullanıcı bilgilerini görmek için: !info NİCK
[21:22] <KapriSLim> 1,8Bir kullanıcı engellemek için: !engelle Nick 11,2( Size mesaj gönderemez, arkadaşlık isteğinde bulunamaz, bilgilerinizi göremez. )
[21:22] <KapriSLim> 1,8Ayarlar ve şifre değişimi için: !ayarlar 11,2 ( Profil ve şifre ayarlarınızı buradan yapabilirsiniz. )
[21:22] <KapriSLim> 1,8 Sistemin detaylı bilgisi için: !bilgi
[21:22] <IRCStaR> !kayıt 99041112
[21:22] <KapriSLim> 1,8 Nickiniz onay sırasına alınmıştır, yönetim tarafından onaylandıktan sonra kullanabilirsiniz.
[21:22] <KapriSLim> 1,8 Multi üyelik durumunda üyeliğiniz askıya alınacak ve bir daha onay verilmeyecektir.
[21:22] <KapriSLim> 1,8 Kayitlara geçen ip adresiniz: 11,2 88.230.111.127
[21:23] <IRCStaR> !giRiS 99041112
[21:23] <KapriSLim> 1,8 Böyle bir kullanıcı adı maalesef yok, bir hesap oluşturmak ister misiniz?

kanala bilgi yollamıyor neden ben bunu anlamadım YouMyCure

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

Alıntı:

shey Nickli Üyeden Alıntı (Mesaj 1041971247)

Güncel hali aşağıdaki posttadır. Ek'teki dosyayı botun bulunduğu klasöre çıkartıp (Bot açıkken //run $mircdir yazıp entera basarsan exe dosyasının bulunduğu yeri açar.) sonra Alt+r basıp sonrasında Editor sayfası açıkken Ctrl+L dosya türü kısmını All Files seçip "durumiliski" dosyasını seçip tamam diyip sonrasında scripti kapatıp açacaksın. Onay mesajları #e-book@ kanalında gösteriliyor. Botu o kanala sokman gerek onay mesajlarını görebilmen için.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

Alıntı:

pckopat Nickli Üyeden Alıntı (Mesaj 1041971270)

çok teşekkür ederim oldu sonunda