| Xadd1 | 15 Haziran 2023 10:21 |
Her bi Kanala Ayrı Ayrı Karsilama.Tcl Mesajları
Kod:
#################################
## greeting.tcl by kazoo ######
##
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
david@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]flabit.net ######
#################################
# For the channel greeting..
# You will need to set greeting.txt
# To your greeting in your eggdrop directory
# Only if your greetvar is set to 0
##############################
########## Variables #########
##############################
# Once these are set and have loaded once, You will have to
# Comment all of these out to make the set command work
#
#
# Karşılamanın greeting.txt dosyasından okunmasını istiyorsanız, bunu 0 olarak ayarlayın
# Değişkenden okumasını istiyosanız,Bunu 1 olarak ayarlayın
set greetvar 1
# Burasi Ana Kanal Mesajı olarak belirleyin
set greeting "Hoşgeldiniz Sohbet Kanalina!"
# Buraya Ana Kanal ismini yazın
# * for all
set greetchan "#Sohbet"
# Repeat for the following 9.
# 0 olarak ayarladıysanız boş bırakın
set greeting2 "Hoşgeldiniz!"
set greetchan2 "#Kanal ismi"
set greeting3 "Hoşgeldiniz!"
set greetchan3 "#Kanal ismi"
set greeting4 "Hoşgeldiniz!"
set greetchan4 "#kanal ismi"
set greeting5 "Hoşgeldiniz!"
set greetchan5 "#kanal ismi"
set greeting6 "Hoşgeldiniz!"
set greetchan6 "#kanal ismi"
set greeting7 "Hoşgeldiniz!"
set greetchan7 "#kanal ismi"
set greeting8 "Hoşgeldiniz!"
set greetchan8 "#kanal ismi"
set greeting9 "Hoşgeldiniz!"
set greetchan9 "#kanal ismi"
set greeting10 "Hoşgeldiniz!"
set greetchan10 "#kanal ismi"
# Have fun!
############
## SCRIPT ##
############
bind join - * proc:greet
proc proc:greet {nick mask hand chan} {
global greetchan
global greetvar
global greeting
global greetchan2
global greeting2
global greetchan3
global greeting3
global greetchan4
global greeting4
global greetchan5
global greeting5
global greetchan6
global greeting6
global greetchan7
global greeting7
global greetchan8
global greeting8
global greetchan9
global greeting9
global greetchan10
global greeting10
if {[string match -nocase "$greetchan" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting.txt" 0] [join [lrange "cat greeting.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting"
}
}
if {[string match -nocase "$greetchan2" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting2.txt" 0] [join [lrange "cat greeting2.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting2"
}
}
if {[string match -nocase "$greetchan3" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting3.txt" 0] [join [lrange "cat greeting3.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting3"
}
}
if {[string match -nocase "$greetchan4" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting4.txt" 0] [join [lrange "cat greeting4.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting4"
}
}
if {[string match -nocase "$greetchan5" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting5.txt" 0] [join [lrange "cat greeting5.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting5"
}
}
if {[string match -nocase "$greetchan6" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting6.txt" 0] [join [lrange "cat greeting6.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting6"
}
}
if {[string match -nocase "$greetchan7" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting7.txt" 0] [join [lrange "cat greeting7.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting7"
}
}
if {[string match -nocase "$greetchan8" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting8.txt" 0] [join [lrange "cat greeting8.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting8"
}
}
if {[string match -nocase "$greetchan9" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting9.txt" 0] [join [lrange "cat greeting9.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting9"
}
}
if {[string match -nocase "$greetchan10" $chan]} {
if {[string match -nocase "0" $greetvar]} {
regsub -all "\t" [split [exec [lindex "cat greeting10.txt" 0] [join [lrange "cat greeting10.txt" 1 end]]] \n] " " results
foreach line $results { puthelp "Notice $nick :$line" }
}
if {[string match -nocase "1" $greetvar]} {
putquick "Notice $nick :$greeting10"
}
}
}
bind pub n|f set cmd:setgreet
proc cmd:setgreet {nick host hand chan text} {
global greetchan
global greetvar
global greeting
global greetchan2
global greeting2
global greetchan3
global greeting3
global greetchan4
global greeting4
global greetchan5
global greeting5
global greetchan6
global greeting6
global greetchan7
global greeting7
global greetchan8
global greeting8
global greetchan9
global greeting9
global greetchan10
global greeting10
if {[string match -nocase "greeting" $text"]} {
if {[string match -nocase "$greetchan" $chan]} {
set $greeting "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan2" $chan]} {
set $greeting2 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan3" $chan]} {
set $greeting3 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan4" $chan]} {
set $greeting4 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan5" $chan]} {
set $greeting5 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan6" $chan]} {
set $greeting6 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan7" $chan]} {
set $greeting7 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan8" $chan]} {
set $greeting8 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan9" $chan]} {
set $greeting9 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
if {[string match -nocase "$greetchan10" $chan]} {
set $greeting10 "$text"
putserv "Notice $nick :Greeting for $chan set to $text"
}
}
}
putlog "greeting.tcl by kazoo (david@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]flabit.net) - LOADED!!"
Eggdrop Scripts Klasörünün içerisinde greetvar dosyası açmanız ve bu dosyası içerisine Kırmızı ile belirttiğim txt uzantı isimlerini yazmanız olucak. her bi txt isminde açtıktan sonra içerilerine karşılama mesajlarını eklemeniz yeterli olucaktır.
Not: Alıntıdır. | 