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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Kayıt sistemli bot [login] (https://www.ircforumlari.net/mirc-scripting-sorunlari/2930-kayit-sistemli-bot-login.html)

Amigo 16 Nisan 2006 19:38

Yanıt: Kayıt sistemli bot [login]
 
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

ReaLTurK 14 Haziran 2006 14:33

Yanıt: Kayıt sistemli bot [login]
 
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..

diEfoRyoU 14 Haziran 2006 21:53

Yanıt: Kayıt sistemli bot [login]
 
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.

ReaLTurK 15 Haziran 2006 10:46

Yanıt: Kayıt sistemli bot [login]
 
Son Birşey Daha .. Özür Dileyerekten

Kod:


on *:text:*:#istanbul:{
if ($read(registered.txt,s,$nick)) { inc -e $+(%,$nick) 1 }
}
on *:text:*:?:{
if ($1 == !puan) { msg $nick $($+(%,$nick),2) puanınız bulunmaktadır. }
}

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 ?

KutsaL 16 Haziran 2006 09:08

Yanıt: Kayıt sistemli bot [login]
 
Alıntı:

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 ?

djiNn 16 Haziran 2006 11:27

Yanıt: Kayıt sistemli bot [login]
 
Alıntı:

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..

ReaLTurK 17 Haziran 2006 12:18

Yanıt: Kayıt sistemli bot [login]
 
Soruma Cvp Alamadım Arkadaslar Ne oLur ßırazcık destekcı Olun :( Son Sorum Zaten bu Konu Hakkında :((

MaeLStrOm 17 Haziran 2006 13:24

Yanıt: Kayıt sistemli bot [login]
 
/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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:41.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net