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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Karşılama tcl tarzı tcl (https://www.ircforumlari.net/tcl-scriptler/550111-karsilama-tcl-tarzi-tcl.html)

Karşılama tcl tarzı tcl

Merhaba herkese;

İnternette bulunan pek cok tcl yi denedim fakat istedigimi bulamadım.Reklam amaçlı kullanıcam bu scripti.
Kullandıgım scriptlerin hepsinde belli sure sonra pm atmamaya baslıyor.Arka arkaya 2defa girince ilk girdigimde atıyor 2cide atmıyor.

Her girildiginde kanala istisnasız o pmyi atmalı.
3-4 cumleyi atıcak.3-4 cumle arasından rastgele atmayacak.

Bu sorunlardan arındırılmıs bir tcl varsa yazarmısınız buraya.

Teşekkürler simdiden

Cevap: Karşılama tcl tarzı tcl

Alıntı:

inciwes Nickli Üyeden Alıntı (Mesaj 1041349512)

################################################## ##############
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] IRCD SheLL & Web Hosting & Radyo Hosting #
# TcL By PrenS #
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #
################################################## ##############

proc join_greet {nick uhost handle channel } {
putserv "privmsg $nick :2Merhaba 4 $nick 13"
putserv "privmsg $nick :6Sana sunucumuz hakkında birascık bilgi vercem"
putserv "privmsg $nick :4Oyun da kapışalım ;) 2#Oyun << 5gerçi senin için pek iyi oyuncu demiyolar ama neyse.:P"
putserv "privmsg $nick :2Radyoda var unutma sakınnnnnnDinLemek için 4#Radyo << 5Radyomuzu Acıp ßeni KırmıcandanEminim :)."
putserv "privmsg $nick :2Web Sitemizide Ziyaret EdebiLirsiniz"
putserv "privmsg $nick :10 Bol bol sohbet etmeyi hiç unutmaaaa !"
putserv "privmsg $nick :5 Daha bitmediiiiiiiii :P"
putserv "privmsg $nick :2Güzel sözler duymak istiyorsan #Sohbet Kanalında 3!soz 2yaz"
putserv "privmsg $nick :2Sohbet Kanalında !soz5 komutunu 6 kulanarak bütün herseyin tadını çıkarabilirsin :)"
putserv "privmsg $nick :7Umarım yeteri kadar tanıtabilmişimdir. 6Iyi eğlenceler , hoş sohbetler ... "
putserv "privmsg $nick :5ŞimdiLik ßye - 13Görüşmek üzere Mjuks :) "
putserv "privmsg $nick :2SizLere en güzel, en seviyeli sohbet ortamı dileriz. " }
bind join - * join_greet

Cevap: Karşılama tcl tarzı tcl

Kod:

############################################################################################## 

# Basari Hosting Internet Hizmetleri - Dürüstlük simgemizdir. Önce güven!                    # 

# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#0000BB">proc join_greet {nick uhost handle channel } {  

 putserv "privmsg $nick :4M2erhaba 3 $nick " 

 putserv "privmsg $nick :14irc.alanadi.com 4s2ohbet 4s2unucusuna 4h2oşgeldiniz." 

 putserv "privmsg $nick :4S2unucu 4k2urallarına4 v2e 4g2örev 4d2ağılımına 14/motd 4y2azarak 4u2laşabilirsiniz." 

 putserv "privmsg $nick :4S2unucu4 y2ardım 4k2analımız14: 7#Help 14~&~ 4G2enel 4s2ohbet 4k2analımız14: 7#Sohbet 14~&~ 4O2yun 4k2analımız14: 7#Oyun 14~&~ 4R2adyo 4k2analımız14: 7#Radyo 14'4d2ur." 

 putserv "privmsg $nick :4W2eb 4c2hat 4a2dresimiz14: 3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#0000BB">putserv "privmsg $nick :4D2ilek4 v2e 4ş2ikayetlerinizi, 7admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]di.net 4a2dresine 4e14-2mail4 y2oluyla 4i2letebilirsininiz." 

 putserv "privmsg $nick :3S6izlere 3e7n 3g4üzel14, 3e7n 3s2eviyeli 3s10ohbet 3o13rtamı 3d12ileriz.3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14~&~ 3irc.alanadi.com"  

 putserv "PRIVMSG $nick :4 B2asari 4H2osting 4I2nternet 4H2izmetleri 4- 3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#0000BB">putserv "NOTICE  $nick : 0,4Ş0,2iir 0,4b0,2otumuzdan 0,4g0,2üzel 0,4s0,2öz 0,4o0,2kumak 0,4i0,2sterseniz 0,4l0,2ütfen 0,4g0,2enel 0,4s0,2ohbet 0,4k0,2analımızda0,3 !soz 0,4y0,2azınız."   
 } 
 bind join - * join_greet

Alıp Bunu Düzenleyip Kullabilirsin Kardeşim..

bunu karsilama.tcl olarak scripts klasörüne kaydet eggdrop conf dosyasına

source scripts/karsilama.tcl

bunu ekle .. sonra telnet login olup sunucuya sokabilirsin