Durum/Arkadaşlık/İlişki Sistemi
Toplam 1 Eklenti bulunuyor. !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 }
}
|
