Çevrimdışı

on *:join:#aLanya:{ set %loginnick $nick | set %loginchan $chan | checklogin %loginnick }
alias checklogin {
if ($read(registered1.txt,s,%loginnick) = EVET) {
msg #aLanya %loginnick [Welcome Messages]: %loginnick #aLanya kanalına hosgeldiniz.
msg #aLanya %loginnick Siz kayıtlı kullanıcımız #aLanya kanalında farkı ßir sohbeti bizimle yaşayın. | msg %loginnick Lütfen !Login Şifreniz  Yaparak Login oLunuz. }
else { whois %loginnick | .enable #catchraw | unset %loginnick | %loginchan }
}
#catchraw on
raw 307:*:{
if (%sifregonder != true) {
msg #aLanya [Welcome Messages]: $2 #aLanya kanalına hosgeldiniz.
checkreg $2
}
elseif (%sifregonder = true) { msg $2 Şifreniz: $read(bot-registered.txt,s,$2) }
if (!$read(registered.txt,s,$2)) { write registered.txt $2 EVET }
}
raw 318:*:{
if (%sifregonder != true) {
}
elseif (%sifregonder = true) { unset %sifregonder }
}
#catchraw end
alias checkreg {
if ($read(bot-registered.txt,s,$2)) { msg $1 Bu Nick Sisteme kayıtlı ßir Nicktir, Lütfen !Login olunuz. }
else {
msg $1 Her E-KoLay kuLLanıcımıza #aLanya kanaLinda + ( Voice ) oLabiLme Şansı. ßu UyguLama Sadece kayıtLı NickLer Icindir.
msg $1 NasıLmı? ßenim özeLime kayıt oLunuz.
msg $1 Kayıt oLmak Icin Lütfen ÖzeLime !Register Şifre Yazınız.
msg $1 Önemli Not; Kendi kayıtLı Nickinizin Şifresini Yazmayın!
msg $1 Örnektir. !register 12345
}
}
on *:text:*:?:{
if ($1 = !register) {
if ($read(registered.txt,s,$nick) = EVET) {
if ($read(bot-registered.txt,s,$nick)) { msg $nick Bu Nick Zaten kayıtLı! }
else { if $2 { write bot-registered.txt $nick $2 | write registered1.txt $nick EVET | msg $nick Sisteme kayıt oLdunuz. Şifreniz:  $2   } | msg $nick $nick Lütfen !Login Şifreniz  Yaparak Login oLunuz. | elseif !$2 { msg $nick Lütfen Şifrenizide Giriniz. } }
}
elseif ($read(registered.txt,s,$nick) != EVET) { msg $nick Nickinizin Nickserv'de kayıtLı oLması Gerekmektedir, ßot Nickinizin kayıtLı oLmadığını Tespit Etti, Eğer KayıtLıysa Lütfen KanaLdan Çıkıp, Tekrar Giriniz. }
}
if ($1 = !login) {
if ($read(registered.txt,s,$nick) = EVET) {
if ($read(bot-registered.txt,s,$nick)) {
if !$2 { msg $nick Lütfen Şifrenizide Giriniz. } | elseif $2 { if ($read(bot-registered.txt,s,$nick) = $2) { msg $nick ( $nick ): Login OLdunuz. Aramıza Hoş GeLdin. | mode #aLanya +v $nick } | elseif ($read(bot-registered.txt,s,$nick) != $2) { msg $nick Yanlış Şifre!! } }
}
elseif !$read(bot-registered.txt,s,$nick) { msg $nick Nickiniz kayıtLı DeğiL, kaydetmek Için !register Şifre yazınız. }
}
elseif ($read(registered.txt,s,$nick) != EVET) { msg $nick Nickinizin nickserv'de kayıtlı oLması Gerekmektedir, Eğer kayıtLı ise Lütfen kanaldan çıkıp Tekrar Girin. }
}
if ($1 = !unregister) {
if ($read(registered1.txt,s,$nick) = EVET) {
if ($read(bot-registered.txt,s,$nick)) {
write $+(-ds,$nick) registered.txt $nick
write $+(-ds,$nick) registered1.txt $nick
write $+(-ds,$nick) bot-registered.txt $nick
msg $nick Nickiniz kaydı ßaşarı iLe SiLinmiştir.
}
else { if $2 { msg $nick Sisteme kayıtlı Değil. } }
}
elseif ($read(registered.txt,s,$nick) != EVET) { msg $nick Nickinizin Nickserv'de KayıtLı oLması Gerekmektedir, ßot Nickinizin kayıtLı oLmadığını Tespit Etti, Eğer KayıtLıysa Lütfen KanaLdan Çıkıp, Tekrar Giriniz. } }
}
on *:text:!şifre:#:{
if ($read(registered1.txt,s,$nick) = EVET) {
if (!$read(bot-registered.txt,s,$nick)) { msg $nick Bu nickin sisteme kayıtlı olmadığı tespit edildi! }
else {
whois $nick | set %sifregonder true | .enable #catchraw }
}
else { msg $nick Nickinizin Nickserv'de kayıtLı oLmadığı Tespit EdiLdi, Eğer KayıtLı ise Lütfen kanaLdan Çıkıp Tekrar Giriniz. }
}
alias gvoice { if $1 { var %a = $comchan($1,0) | while %a { if ($me isop $comchan($1,%a)) { dec %a } } }


SUAN BENDE CALİSİYOR. TAM ISTEDIGIN GIBI

 

Çevrimdışı

Hazırcı Olma Gibi Bir niyetim Yok . Ama Mesajı Sıldıgınızden Bu Yana Ugrasıyorum Olmadı .. Tekrar Anlatayım Baska ArkadasLar yardımCı oLabıLırLer beLkı ..

Botun Ozellıgı Olan Kanala ve özele yaptığı Karşılamayı Bazı NickLere ve Kanal Operatörlerine Yapmasın.. Yani

Type: Her E-Kolay Kullanıcımıza İstanbul kanalında operatör olabilme şansı. Bu uygulama sadece kayıtlı nickler icindir
Type: Nasılmı? benim özelime kayıt olunuz
Type: Kayıt olmak icin lutfen özelime !Register Şifre Yazınız.
Type: Önemli Not; Kendi kayıtlı nickinizin sifresini yazmayın!
Type: Örnektir. !register 12345

Bu Karşılama Özeline Gitmeyecek

nick [Welcome Messages]: İstanbul Kanalına Hosgeldiniz.
nick Siz kayıtlı kullanıcımız #istanbul kanalın'da farkı ve sohbeti bizimle yaşayın

Bu Karşılama Kanala Yansımayacak ..

Lütfen Uğraştım Ama Code yazma Yeteneğim Zayıf Oldugundan Beceremedım .. diEfoRyoU Dediğin Gibi Uğraştım Ama Olmuyor Bir Türlü Yapamıyorum .. YardımLarınızı Bekliyorum..

 

Çevrimdışı

on *:join:#aLanya:{ if !$istok(ali veli amca dayi hasan nusret abdul,$nick,32) { set %loginnick $nick | set %loginchan $chan | checklogin %loginnick } }

Kırmızı ile belirttiğim nickleri kendine göre editlemelisin.
Bu kodu yukardaki kodun en başındaki kısmı silip, onun yerine yapıştırmalısın.
Umarım anlatabilmişimdir.

__________________
TurkSohbet.NET | #XPass

 

Çevrimdışı

Son Birşey Daha .. Özür Dileyerekten


Not: Code MaeLStrOm a Aittir ..

Bu Codede Registered.txt de Bulunup Kanalda Sohbet Edip Puan Kazananlar Variables Kısmına "%ReaLTurK Puan" Şeklinde Yansıyor.. Bunu Puan.txt Diye bir Dosyaya Editleyip Ordan Ozelıne "!puan" Yazıldıgında Okutma Imkanımız Varmı Acaba ?

 

Çevrimdışı

diEfoRyoU Nickli Üyeden Alıntı

on *:join:#aLanya:{ if !$istok(ali veli amca dayi hasan nusret abdul,$nick,32) { set %loginnick $nick | set %loginchan $chan | checklogin %loginnick } } Kırmızı ile belirttiğim nickleri kendine göre editlemelisin. Bu kodu yukardaki kodun en başındaki kısmı silip, onun yerine yapıştırmalısın. Umarım anlatabilmişimdir.

Peki diEfoRyoU Bunu Bir .txt den Okutmaya Çalıştım Senin Kodundan yola cıkarak


on *:join:#aLanya:{ if !$istok($read(karsilama.txt),$nick,32) { set %loginnick $nick | set %loginchan $chan | checklogin %loginnick } }


Elimden bu geLdi bunu denedım Ama Sadece Ilk satırdakını Okuyor .. Yani Nıcklerı Alt Alt a Yazdıgımda Sadece 1. Sıradakını DahıL edıyor bunun Bir Çözümü var mı Acaba ?

 

Çevrimdışı

KutsaL Nickli Üyeden Alıntı

Peki diEfoRyoU Bunu Bir .txt den Okutmaya Çalıştım Senin Kodundan yola cıkarak on *:join:#aLanya:{ if !$istok($read(karsilama.txt),$nick,32) { set %loginnick $nick | set %loginchan $chan | checklogin %loginnick } } Elimden bu geLdi bunu denedım Ama Sadece Ilk satırdakını Okuyor .. Yani Nıcklerı Alt Alt a Yazdıgımda Sadece 1. Sıradakını DahıL edıyor bunun Bir Çözümü var mı Acaba ?

on *:join:#aLanya:{ if (!$read(karsilama.txt,w,$nick) { set %loginnick $nick | set %loginchan $chan | checklogin %loginnick } }

yaparsan Sorun Cozulecektir..

 

Çevrimdışı

Soruma Cvp Alamadım Arkadaslar Ne oLur ßırazcık destekcı Olun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Son Sorum Zaten bu Konu Hakkında
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(

 

Çevrimdışı

/help /write yazdığında yardımcı olacak bilgiler cıkacaktır.Uğraşarak yapabilirsin sanırım ama bence kodun kendi haliyle kalması daha uygun olur txt ye tekrar tekrar yazdırmaktansa cunku gereksiz kasmaya hiç gerek yok.