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

Yanıt: Tcl Kodlama Teknikleri ?

expr komutuyla yaparsın bunu..
Bir kaç örnek vereyim:
expr 8 + 6
dersen eğer 14 sonucunu verir
expr 8 / 4
dersen eğer 2 sonucunu verecektir. Şimdi buradan devam ederek biraz daha gelişmiş örneklere geçelim
mesela $x diye bir değerimiz var elimizde ve bunu 5 olarak belirledik. Bir de $y var bunu da 3 olarak belirledik. buradan yola çıkarak:
expr $x + $y
8 sonucunu verecektir. Biraz daha geliştirelim
expr $x.$y + 4
ise bize 9.3 sonucunu verecektir. Devam ediyoruz.
bir de bu değerlere $z değerini ilave edelim ve bu da 2 olsun..
expr 3*[lrange "$x $y $z"]
dersek eğer, lrange (aralık) manasına gelir diyebiliriz, 3 tane değer ile 3ü çarpmamız söyleniyor burada ve dolayısıyla sonuç 9 olur. Devam edelim
expr $x - [expr $y + [expr $z - "1.1"]]
dediğimiz zaman ise, matematikteki içiçe parantez soruları gibidir bu, önce parantez içleri yapılır ve sonucun 1.1 olduğu görülür. Devam edelim;
mesela elimiz de bir $s değeri var ve biz onu her dönügün sonunda bir artırıp $x değeriyle toplamak istiyoruz ve sonucu her defasında yine $x olarak setlemsini isitiyoruz: işte sonuç:
set x [expr $x + [incr t $s]]

daha fazla örnek vermek çok fazla mümkün. Başka komutlarla ilgili de sorunuz olursa ve vaktim olursa bildiğim ölçü de cevaplamaya çalışırım.

Cevap: Tcl Kodlama Teknikleri ?

TeşşekürLer GüzeL Paylaşımlar..
BEn Biraz Yeniyim:);)

Cevap: Tcl Kodlama Teknikleri ?

bir fatnasti komutu istedim ilgiye bakarmısınız ya:) eyvallah saolsun

Cevap: Tcl Kodlama Teknikleri ?

gerçekten herkes çok güzel şeyler paylaşıyor bilen arkadaşlarımız bazı konuları paylaşmasında sakınca görmeyenleri tek tek tbr ediyorum... tşkler

Yanıt: Tcl Kodlama Teknikleri ?

selamin aleykum arkadaslar acaba eggdrop a nasil bir komut uygularsak ozeline gelip komut veren userin kayitli ve kayitsiz nick oldugunu anlayabilir.. cokdegerli ustadlarımızdan aCoustiC ve Nebiliyimben'den bu soruma karsı cevaplarını bekliyorum ii gunler..

Cevap: Tcl Kodlama Teknikleri ?

Alıntı:

nickmickyoq Nickli Üyeden Alıntı (Mesaj 275309)

bir fatnasti komutu istedim ilgiye bakarmısınız ya:) eyvallah saolsun

Harbiden Cok Fantastik Paylaşimlar Olmus :)

Cevap: Tcl Kodlama Teknikleri ?

Faydali olduğu için tekrar güncelleştirildi.