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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Tcl Kodlama Teknikleri ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/31680-tcl-kodlama-teknikleri.html)

Tcl Kodlama Teknikleri ?

S.a Öncelikle ;

Arkadaşlar Şöyle birşey aklıma Geldi işini bilen yada Tcl ile uğraşan arkadaşlar Lütfen bu konuya sizler katkıda bulununuz!..

TCL Kodlama tekniklerini anlatma imkanı varmı

Ornek : kanala nasıl yazı yazar
Ornek : Özele nasıl yazı yazar
Ornek : Bota start emri
Ornek : Bota Dur emri
Ornek : Bota ! Uygulama emirleri

üstteki komutların kodları nelerdir ve daha nicesi ben bi kaç örnek verdim
şimdiden paylaşım yapacak arkadaşlara Teşekkür ederim ..

Cevap: Tcl Kodlama Teknikleri ?

bu konu arşivde mi kaldı arkadaşlar paylaşım yapacak varsa iyi olur bizlerde bilgilenelim yardımlarınızı bekliyoruz...

Cevap: Tcl Kodlama Teknikleri ?

Alıntı:

BaRoN Nickli Üyeden Alıntı

ßazi TC'Lerli inceleyerek kodlarına göz atarak bunları ztn görebilirsiniz. örnek bir oyun botu Trivia.TCL

Cevap: Tcl Kodlama Teknikleri ?

Alıntı:

vLkn Nickli Üyeden Alıntı

ßazi TC'Lerli inceleyerek kodlarına göz atarak bunları ztn görebilirsiniz. örnek bir oyun botu Trivia.TCL

Ornek kod buraya yazmalısın bence kod istiyoruz o ornek bu ornek istemiyoruz sanırım anlatmak istediğim anlaşılmadı vLkn ..

Cevap: Tcl Kodlama Teknikleri ?

Socket ile siteye bağlanmak için;

Kod:

 

puts -nonewline $socket "GET /wire/World/$partline HTTP/1.1\n"

puts -nonewline $socket "Connection: Keep-Alive\n"

puts -nonewline $socket "Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puts -nonewline $socket "Pragma: no-cache\n\n"

Nicke mesaj göndermek için;

Kod:

 

puthelp "PRIVMSG $nick : test test test"

Kanala girene mesaj;

Kod:

 

bind pub - selam msg_selam

proc join_selam {nick uhost handle chan} {

if {$chan == "#kanal"} { 

putserv "NOTICE $nick :$nick selam"

putserv "NOTICE $nick :$nick selam"

}

return 1

}

botun özeline ircforumlari yazdıktan sonra gelecek mesaj

Kod:

 

bind pub - ircforumlari pub_ircforumlari

bind msgm - altug msg_altug

bind msgm - karaali msg_karaali

bind msgm - ircforum msg_ircforum

 

proc msg_ircforumlari { nick uhost handle text } {

putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:"

putserv "PRIVMSG $nick :1.) altug yazin"

putserv "PRIVMSG $nick :2.) karaali yazin"

putserv "PRIVMSG $nick :3.) ircforum yazin" }

 

proc msg_altug { nick uhost handle text } {

putserv "PRIVMSG $nick :altug yazdiniz"

}

proc msg_karaali { nick uhost handle text } {

putserv "PRIVMSG $nick :karaali yazdiniz"

}

proc msg_ircforum { nick uhost handle text } {

putserv "PRIVMSG $nick :ircforum yazdiniz"

}

inşallah işine yarar :)

Cevap: Tcl Kodlama Teknikleri ?

Yaramazmı gadam mutlak yarayacak bak sen ne güzel anlamış paylaşımda yapmışsın böyle devam etse ne güzel olur diğer arkadaşlarda ..

Cevap: Tcl Kodlama Teknikleri ?

Botun buludugu tum kanallarda calismasini istediginiz bir komut dizesi yapmak icin
ornek !denem komudu icin 1 kac eylem gerceklestirelim

Kullanimi:

PHP- Kodu:

   bind pub - <komut> <protokol>

<komut> yerine !deneme yada istediginiz baska bir komut algilayici girebilirsiniz
<protokol> buraya da !deneme yada ne yazmissaniz yapilacak eylemleri uygulayan protokol komut satiri dizesinin adini girmeniz hereklidir

ornek:

PHP- Kodu:

   bind pub - !deneme mesaj_yaz

!deneme komudu icin mesaj_yaz adli 1 protokol oldugunu ve 1 kullanici kanala !deneme yazdiginda uygulanacak eylemi belirtir bunun icin protokol yazmak gerekecektir

Ornek protokol:

#protokol yaziyoruz

PHP- Kodu:

   proc mesaj_yaz {nick uhand host chan text} {
....
.....
.....uygulanaca komutlar
}

#ve protokol bitiyor

nick, uhand, host, chan, text ne anlama geliyor derseniz, bunlar eger kanal icinde kullanicilarin uygulayacagi ve ona duyarli bir eylem gerceklestirecekseniz zorunlu olarak kullanmaniz gereken degiskenlerdir
nick $nick seklinde getirilir ve !deneme komudunu uygulamis kisiyi temsil eder
uhost $uhost olarak getirilir ve komudu kullanan kisinin tam host bilgilerini getirir
host $host seklinde getirilir ve kullanicinin host bilgilerini getirir
chan $chan seklinde getirilir ve !deneme komudunun uygulandigi kanali temsil eder
text $text seklinde getirilir ve !deneme komudu yaninda yazilmis yazilari getirir (!deneme bu bir denemedir) yazdiklarinda bu bir denemedir yazisini getirecektir.

eger mesaj_yaz protokolumuz kisiye mesaj yada kanala mesaj yazacaksa mesaj gonderme protokolu olan PUTSERV,PUTQUICK yada PUTHELP kullanilabilir.

puthelp yavas mesaj yazma eylemi
putserv orta hizli mesaj yazma eylemi
putquick hizli mesaj yazma eylemi

buna gore !deneme komudu uygulamis kisiye mesaj yazalim

PHP- Kodu:

   bind pub - !deneme mesaj_yaz
#protokol yaziyoruz
proc mesaj_yaz {nick uhand host chan text} {
putquick "PRIVMSG $nick :!deneme komudunu $chan kanalinda kullandiniz"
}

yada !deneme komudu uygulandiginda uygulanan kanala 1 mesaj yazalim

PHP- Kodu:

   bind pub - !deneme mesaj_yaz
 
#protokol yaziyoruz
proc mesaj_yaz {nick uhand host chan text} {
putquick "PRIVMSG $chan :$nick !deneme komudu kullandi ve eylem olarak bu mesaj gonderiliyor."
}

gibi.

ozelde yazilacak 1 eyleme komut gelistirmek icinse

bind msgm - <komut> <protokol>

kanal icin uyguladigimiz olay burada da bu sekildedir.

iyi calismalar

Cevap: Tcl Kodlama Teknikleri ?

Devamını Bekliyoruz işini bilen Arkadaşlardan ..

Yanıt: Cevap: Tcl Kodlama Teknikleri ?

Alıntı:

AlwaysGooD Nickli Üyeden Alıntı

Kanala girene mesaj;

Kod:

 

bind pub - selam msg_selam

proc join_selam {nick uhost handle chan} {

if {$chan == "#kanal"} { 

putserv "NOTICE $nick :$nick selam"

putserv "NOTICE $nick :$nick selam"

}

return 1

}

Tesekkurler guzel anlatim. Ben bunlara arti olarak biraz if e deginmenizi istesem. Ornegin yukarida kanala girene msg demissiniz peki bunu kanala sadece xxxx nicki girince kanala msg gondersin seklinde yapabilirmiyiz ?

Yanıt: Tcl Kodlama Teknikleri ?

Yeni başlık açmaya gerek yok sanırım burdan sorabilirim ..

tcl scriptlerde okuttuğumuz herhangi bir değer (web sayfasından örneğin) üzerine nasıl ekleme yapabiliriz ? .. Toplama işlemi yani .. Okuduğu değerin üzerine sayı ekleyerek yansıtması ..

Kolay Gelsin