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

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

- - Anlatan Tcl Script Lazım Yardım pls (https://www.ircforumlari.net/eggdrop-neostats-bnc/43039-anlatan-tcl-script-lazim-yardim-pls.html)

Anlatan Tcl Script Lazım Yardım pls

!basla Bakara 10sn

Sonra bot Her 10 saniyede bir yazı atacak

Örnek:

!basla

96-ALAK:
1 - Yaratan Rabbinin adiyla oku!
2 - O, insani bir alekadan (embriyodan) yaratti.
3 - Oku! Rabbin sonsuz kerem sahibidir.
4 - O Rab ki kalemle yazmayi ögretti.
5 - Insana bilmedigi seyleri ögretti.
6 - Hayir! Dogrusu (kâfir) insan azginlik eder.
7 - Kendisinin muhtaç olmadigini zannettigi için.
8 - Muhakkak ki dönüs mutlaka Rabbinedir.
9 - 10 - Namaz kildigi zaman, bir kulu engelleyeni gördün mü?
11 - Gördün mü (ne dersin?), ya o (kul) dogru yolda olur,
12 - Veya kötülüklerden sakinmayi emrederse?
13 - Gördün mü, ya bu (adam, hakki) yalanlar, yüzçevirirse,
14 - O adam, Allah'in kendini gördügünü hiç bilmiyor mu?
15 - 16 - Hayir, hayir! Eger o, bu davranisindan vazgeçmezse, and olsun ki biz, onu perçeminden, o günahkâr ve yalanci perçeminden tutup cehenneme sürükleriz.
17 - O zaman o taraftarlarini yardima çagirsin.
18 - Biz de Zebanileri çagiracagiz.

Her satırı 10 sn de yazacak bir tcl bulabilirmiyiz yardımcı olurmusunuz
şimdiden Teşekkürler...

Cevap: Anlatan Tcl Script Lazım Yardım pls

Bir tane helper yada helpop tcl sini bulursun düzenlenmis olan. Ordaki yazilara yazmak istediklerini yazarsin(editlersin). Böylece istemis oldugun tcl'i kendin yapmis olursun.

Zaman araligi icin ise, forumda ufak bir arama ile görebilirsin. Sen önce kendin bir ugras et, yapamazsan yada yapamadigin yerlerde biz yardimci oluruz.

Cevap: Anlatan Tcl Script Lazım Yardım pls

Sizin dediğiniz gibi bir TCL daha önce BuCaLI tarafınca hazırlandı.

Kod:

## Okutulacak dosya 

set db "scripts/sohbet.txt" 
 

## Dokunma.! 

set wait "1" 
 

## Başladıktan sonra kanala kaç saniye arayla yazacak? 

set gecikme_zamani "15" 
 

## Burdan sonrasına dokunma 
 

bind pub - !sohbet sohbet:basla 
 

proc sohbet:basla { n u h c a } { 

global db wait gecikme_zamani 

set file [open $db r] 

set listfile [split [subst -nocommands [read $file]] "\n"] 

    foreach i $listfile { 

    set wait [expr $wait + $gecikme_zamani] 

    utimer $wait [list putserv "privmsg $c $i"] 

    } 

close $file 

} 
 

putlog "Dosya yüklendi.. Coded By BuCaLI"

Cevap: Anlatan Tcl Script Lazım Yardım pls

tcl Botun komutları örnek: !basla alak

96-ALAK:
1 - Yaratan Rabbinin adiyla oku!
2 - O, insani bir alekadan (embriyodan) yaratti.
3 - Oku! Rabbin sonsuz kerem sahibidir.
4 - O Rab ki kalemle yazmayi ögretti.
5 - Insana bilmedigi seyleri ögretti.
6 - Hayir! Dogrusu (kâfir) insan azginlik eder.
7 - Kendisinin muhtaç olmadigini zannettigi için.
8 - Muhakkak ki dönüs mutlaka Rabbinedir.
9 - 10 - Namaz kildigi zaman, bir kulu engelleyeni gördün mü?
11 - Gördün mü (ne dersin?), ya o (kul) dogru yolda olur,
12 - Veya kötülüklerden sakinmayi emrederse?
13 - Gördün mü, ya bu (adam, hakki) yalanlar, yüzçevirirse,
14 - O adam, Allah'in kendini gördügünü hiç bilmiyor mu?
15 - 16 - Hayir, hayir! Eger o, bu davranisindan vazgeçmezse, and olsun ki biz, onu perçeminden, o günahkâr ve yalanci perçeminden tutup cehenneme sürükleriz.
17 - O zaman o taraftarlarini yardima çagirsin.
18 - Biz de Zebanileri çagiracagiz.

Sohbet bitiminde botun mesajı :
Sohbet'imiz burada bitmiştir iştirak ettiğiniz için Teşekkür ederiz...

tcl Botun komutları örnek: !kuran alak 5

5 - Insana bilmedigi seyleri ögretti.

tcl Botun komutları örnek: !Dur
botun mesajı :
Sohbet'imiz [nick] Tarafından Durduruldu.

tcl Botun komutları örnek: !bekle
botun mesajı : Sohbet'imiz beklemeya alınmıştır.

tcl Botun komutları örnek: !devam
botun mesajı : Sohbet'imiz kaldığı yerden Devam Etmektedir.

bu şekilde yapabilirmiyiz kardeşlerim inş. göstereceğiniz ilgiden ötürü çok teşekkür ederim.

Cevap: Anlatan Tcl Script Lazım Yardım pls

Yukarıdaki kodları kullanarak düşündüğünüz gibi düzenleyebilirsiniz.
En azından yapmaya çalışın'ki zorlandığınız yerlerde biz yardımcı olalım.