Cevap: Karşılama Tcl
 

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

Cevap: Karşılama Tcl
 

Birsey anlamadim desem ayip olurmu :)) 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...]

Cevap: Karşılama Tcl
 

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.

Cevap: Karşılama Tcl
 

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 :)"
} elseif { $nick == $sahip4 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden XoXo Şu anda onLine.aiLemizin BirtaneSi:)"
} elseif { $nick == $sahip5 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden AriS Şu anda onLine.I Love you Baby :)"
} elseif { $nick == $sahip6 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden deep_blue Şu anda onLine.I Love you Baby :)"
} 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..

Cevap: Karşılama Tcl
 

Merhabalar ;



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:

---

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

---

Cevap: Karşılama Tcl
 

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

Cevap: Karşılama Tcl
 

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

Cevap: Karşılama Tcl
 

@[Ü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.

Cevap: Karşılama Tcl
 

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

Cevap: Karşılama Tcl
 

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