Karşılama Tcl - Sayfa 4 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

MesqeN · 25 Şubat 2014, 12:59

Sanquin Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Renkli yazmasi icin ne yapmamiz gerekiyor peki? Renk kodu koyunca calismiyor, duz yazilida sorun yok.

renklendir..

normal txt de itdgin ctrl + k ile renk verblirsin. veya

\00305 \007 veya 00507 gibi ctrl + k sistemi ile aynıır

1 siyah 2 lacivert 3 eşil 4 kırmızı sadece \00 gibi düşün..

Sanquin · 25 Şubat 2014, 18:10

Birsey anlamadim desem ayip olurmu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) ben normalde mirc den crt + k seklide renklendiriyordum, peki ekteki dosyayinin ilk renklendirmis oldugum satirini sizin dediginiz sekilde yaparmisiniz rica etsem bakayim bende o sekilde cozerim belki olayi[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kutluhan · 26 Şubat 2014, 14:37

Mircten ctrl + k yaptığında çıkan rengi kopyalayıp txt içerisinde renklendirmek istediğin yere yapıştırırsan sorun çözülecektir.Veyada eklemiş olduğum txt dosyasını değiştirip kullanabilirsin.

MySelf · 04 Ocak 2015, 13:02

Merhabalar;

Arkadaşlar bu Sahip.tcl karşılama olayını çözemedim Eggdrop içerisin de Scripts de Sahip.tcl mevcut onun içerisine bu kodları aynen kopyalıyorum

set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen
set sahip4 XoXo
set sahip5 AriS
set sahip6 deep_blue
set sahip7 endemik
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4 sahip5 sahip6 sahip7
if { $nick == $sahip } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden MySelf Şu anda onLine.YakışıkLıLıkta Başa BeLa Kardeşim:Pp"
} elseif { $nick == $sahip2 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden Ozgur Şu anda onLine.AbiLerin_abisi"
} elseif { $nick == $sahip3 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden SenBen Şu anda onLine.Karizma Desen onda
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
} elseif { $nick == $sahip4 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden XoXo Şu anda onLine.aiLemizin BirtaneSi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
} elseif { $nick == $sahip5 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden AriS Şu anda onLine.I Love you Baby
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
} elseif { $nick == $sahip6 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden deep_blue Şu anda onLine.I Love you Baby
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
} elseif { $nick == $sahip7 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden endemik Şu anda onLine.AnneLerin_anneSi"
} elseif {
putserv "PRIVMSG $chan :$nick Hos geldiniz aLemin KraLLarı Set By ...."
}
}

Ardından Koruma.Conf içerisin de Score sahip.tcl ekli telnetten koruma.conf u çıkarıp yeniden kanala alıyorum Yukarıda ki belirtilen Rumuzlar giriş yapınca bir karşılama olmuyor Nerede eksik yapıyorum çözemedim.. Bilgi paylaşımı olursa sevinirim Teşekkürler..

No_FeaR · 04 Ocak 2015, 13:11

Merhabalar ;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set sahip No_FeaR
set sahip2 NİCK2 
set sahip3 NİCK3 

bind join - * karsilama 
proc karsilama { nick uhost hand chan } { 
  global sahip sahip2 sahip3 
  if {$nick==$sahip} {  
     putserv "PRIVMSG $nick :Hosgeldiniz."  

  } elseif {$nick==$sahip2} {  
    putserv "PRIVMSG $nick :Niye Geldin ? :-)"  

  } elseif {$nick==$sahip3} {  
    putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı.. .)"  

  ;bu mesaj listede ismi olamayn kullanicilara gonderilecektir.. 
  } else { 
    putserv "PRIVMSG $nick :$nick Hosgeldiniz. Keyifli sohbetler." 
  } 

}

Denendi Çalışıyor.
Bu tcl, kanala giriş yapan user'i, ve belirlediginiz, oper'leri karşılar.
Örnek Olarak ; Botun.Conf'un İçersine Greet.TCL Diyerekten Eklersin. Daha Sonra da Sunucudan Çıkartıp Tekrardan Sokarsın.

source scripts/userinfo.tcl Bunun Altına Ekleyebilirsin,
source scripts/greet.tcl Olarak...

Daha Sonra Telnetten, kill -9 Pidno Olarak Killeyip Tekrardan Sokarsın. Olası ki bi Hata Alırsan /.eggdrop -nm bot.Conf Olarak Siteye Tekrar Yolla. Yine Hata Alırsan Buraya Paylaş Burdan Yine Yardımcı Oluruz.

Ek Olarakta Bunları Deneyebilirsin, Hepsi Denendi Çalışıyor. Kendine Göre Ekleme/Silme Yapabilirsin. Hoşça Forumlar.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set sahip No_FeaR set sahip2 GFB set sahip3 Doktor bind join - * karsilama proc karsilama { nick uhost hand chan } { global sahip sahip2 sahip3 if {$nick==$sahip} { putserv "PRIVMSG $chan :10 IRC.Sunucu.Com Teknik Admini, Kanala Giriş Yaptı." putserv "NOTICE $chan :10 IRC.Sunucu.Com Teknik Admini, Kanala Giriş Yaptı." } elseif {$nick==$sahip2} { putserv "PRIVMSG $chan :ROOT Admin KANALA Giris Yaptı." } elseif {$nick==$sahip3} { putserv "PRIVMSG $chan :Fear Founderi Kanala Giris Yaptı." putserv "NOTICE $chan :Fear Founderi Kanala Giris Yaptı." ;bu mesaj listede ismi olamayn kullanicilara gonderilecektir.. } else { putserv "PRIVMSG $nick :$nick #Fear Kanalına Hos Geldiniz." } }

MySelf · 04 Ocak 2015, 13:32

Merhabalar;

Söylediğiniz şekilde ekledim fakat yine olmadı sanırım bir yerlerde eksik yapıyorum ... verdiğiniz kodu aynen alıp scriptte ki sahiptcl içerisine kopyaladım

set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $nick :Hosgeldiniz."

} elseif {$nick==$sahip2} {
putserv "PRIVMSG $nick :Niye Geldin ? :-)"

} elseif {$nick==$sahip3} {
putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı.. .)"

;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $nick :$nick Hosgeldiniz. Keyifli sohbetler."
}

}

Yukarıda ki gibi sonra Koruma.conf un içerisine sölediğiniz gibi
source scripts/userinfo.tcl Bunun Altına Ekleyebilirsin,
source scripts/greet.tcl Olarak...

ekledim Koruma botu sunucudan cıkarım tekrar sunucuya aldığım da denedim olmadı .. Teşekkürler..

No_FeaR · 04 Ocak 2015, 16:11

MySelf61 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhabalar;

Söylediğiniz şekilde ekledim fakat yine olmadı sanırım bir yerlerde eksik yapıyorum ... verdiğiniz kodu aynen alıp scriptte ki sahiptcl içerisine kopyaladım

set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $nick :Hosgeldiniz."

} elseif {$nick==$sahip2} {
putserv "PRIVMSG $nick :Niye Geldin ? :-)"

} elseif {$nick==$sahip3} {
putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı.. .)"

;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $nick :$nick Hosgeldiniz. Keyifli sohbetler."
}

}

Yukarıda ki gibi sonra Koruma.conf un içerisine sölediğiniz gibi
source scripts/userinfo.tcl Bunun Altına Ekleyebilirsin,
source scripts/greet.tcl Olarak...

ekledim Koruma botu sunucudan cıkarım tekrar sunucuya aldığım da denedim olmadı .. Teşekkürler..

Merhabalar, Sunucu Adını ve Bilgilerinizi PM İle İletirmisiniz Yardımcı Olayım.

SeckiN · 04 Ocak 2015, 20:10

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tcl'yi ftp'ne attıktan sonra sunucunda /rehash komutu uygulayıp conf dosyasını tekrar aktif et.

saywhat · 04 Ocak 2015, 20:48

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

aynı kişiye ait birden çok nick var ise örnek :

myself - yourself - himself { putserv "....
şeklinde ,aralarına boşluk tire boşluk koyarak çoğaltabilirsiniz.büyük-küçük harf uyumu aranmaz.

belli bir kanalda çalışsın diğerlerinde çalışmasın! isteniyorsa bind satırını:
bind join - "#kanal-adı *!*@*" karsilama

şeklinde düzenleyip sadece #kanal-adı kanalında çalışması sağlanabilir.

not : bu arada ; sadece noktalı virgül ile yorum tcl'de hata attırır. # yada ;# şeklinde olmalıdır....
tcl kod satırı yanına yorum eklenecekse :
if {$somevar eq $othervar} { ;# bu şekilde kod satırı ile aynı satırda yorum yazılabilir.
# bu şekilde boş satır başına yorum yazılabilir.

No_FeaR · 04 Ocak 2015, 22:44

saywhat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

aynı kişiye ait birden çok nick var ise örnek :

myself - yourself - himself { putserv "....
şeklinde ,aralarına boşluk tire boşluk koyarak çoğaltabilirsiniz.büyük-küçük harf uyumu aranmaz.

belli bir kanalda çalışsın diğerlerinde çalışmasın! isteniyorsa bind satırını:
bind join - "#kanal-adı *!*@*" karsilama

şeklinde düzenleyip sadece #kanal-adı kanalında çalışması sağlanabilir.

not : bu arada ; sadece noktalı virgül ile yorum tcl'de hata attırır. # yada ;# şeklinde olmalıdır....
tcl kod satırı yanına yorum eklenecekse :
if {$somevar eq $othervar} { ;# bu şekilde kod satırı ile aynı satırda yorum yazılabilir.
# bu şekilde boş satır başına yorum yazılabilir.

Bu Adam Başka Arkadaş, Ellerine Sağlık Ustad : )

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
karşılama tcl	Shiniori	TCL Scriptler	2	14 Ağustos 2013 23:08
Gül'e jet karşılama	PassioN	Haber Arşivi	0	17 Nisan 2012 20:03
Dj KaRŞıLaMa	Goemon	mIRC Scripting Sorunları	3	29 Ocak 2009 19:12
Bot KarşıLama	kaya43	mIRC Scripting Sorunları	3	26 Ekim 2007 16:52

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.