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

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

- - Karşılama Tcl (https://www.ircforumlari.net/tcl-scriptler/28441-karsilama-tcl.html)

Cevap: Karşılama Tcl

boLe sorun aLdım yardımcı oLur musunuz

Cevap: Karşılama Tcl

Yok mu yardim edecek biriLeri arkadaşLar

Cevap: Karşılama Tcl

kullandığın kodlarıda verirsen daha rahat bulabiliriz hatayı..

Cevap: Karşılama Tcl

Kod:



set sahip SHaNS

set sahip2 sessizkral

set sahip3 Sefir

set sahip4 By_GoLGe

set sahip5 _Braynn

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 SHaNS Şu anda onLine.YakışıkLıLıkta Başa BeLa Kardeşim:Pp" 
 

} elseif {$nick==$sahip2} { 

putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden sessizkral Şu anda onLine.AbiLerin_abisi"

} elseif {$nick==$sahip3} { 

putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden Sefir Şu anda onLine.Karizma Desen onda :)" 

} elseif {$nick==$sahip4} {

putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden By_GoLGe Şu anda onLine.aiLemizin BirtaneSi:)"
 

} elseif {$nick==$sahip5} {

putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden _Braynn Ş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 :)"

if {$nick==$sahip7} { 

putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden endemik Şu anda onLine.AnneLerin_anneSi"

;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..

} else {

putserv "PRIVMSG $chan :$nick Hos geldiniz aLemin KraLLarı Set By ...."

}
 

}

Cevap: Karşılama Tcl

sabahtan beri bekLiyorum ve yapamadım degistiriyorum gene hata verdi Bi bu tcl ile kanala girş yaptıgımızda ozeLeme yoksa koruma botu kanaLda yazacak bu yazdıkLarımı

Cevap: Karşılama Tcl

Kod:

set sahip SHaNS

set sahip2 sessizkral

set sahip3 Sefir

set sahip4 By_GoLGe

set sahip5 _Braynn

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 SHaNS Şu anda onLine.YakışıkLıLıkta Başa BeLa Kardeşim:Pp" 

} elseif { $nick == $sahip2 } { 

putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden sessizkral Şu anda onLine.AbiLerin_abisi"

} elseif { $nick == $sahip3 } { 

putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden Sefir Şu anda onLine.Karizma Desen onda :)" 

} elseif { $nick == $sahip4 } {

putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden By_GoLGe Şu anda onLine.aiLemizin BirtaneSi:)"

} elseif { $nick == $sahip5 } {

putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden _Braynn Ş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"

} else {

putserv "PRIVMSG $chan :$nick Hos geldiniz aLemin KraLLarı Set By ...."

}

}

Bu şekilde bir dene.

Cevap: Karşılama Tcl

Kod:

if {$nick==$sahip7} {

satırının başına } else eklenmesi unutulmuş

Cevap: Karşılama Tcl

Evet insan goremiyor BazeN arkadaşLar eLinize sagLık yardımLarınız için teşekkur ederim.

Cevap: Karşılama Tcl

Bunu nasıl Kuruyoruz Anlatsanız arkadaşlar...

Cevap: Karşılama Tcl

Alıntı:

Gonen Nickli Üyeden Alıntı (Mesaj 802440)

Bunu nasıl Kuruyoruz Anlatsanız arkadaşlar...

BuCaLI arkadaşımızın verdiği son şekli alıp bir karsilama.tcl oluşturup
tcl yi kendimize göre düzenleyip eggdrop/scripts içine atıyorus daha sonra
conf dosyamıza tcl yi ekleyip çalıştırıyoruz