#################################
## 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!!"