# name: downgreet.tcl      date: 18.06.2023
# desc.: Servislerin Durumunu gösterir.

# Karşılama Yapılacak Kanal ismi.
set channels { #Sohbet }

# Hangi Hizmetin olmaldığını gösterir (Örneğin. NickServ, ChanServ)
# (veya başka bir hizmet ismi)
set servicesname "NickServ"

# Bot için bilgi mesajını ayarlayın.

set info_line "DuYuRu!..Servislerimiz Şu anda Kapalıdır.Bu Mesaj Bilgilendirme Amaçlıdır."

## Bundan sonrasını ben hallederim.

set greeting "off"

bind raw - 601 services_offline
bind raw - 605 services_offline
bind raw - 604 services_online
bind raw - 600 services_online

bind join - * a_join
bind evnt - init-server addwatch

proc addwatch { type } {
global servicesname
putserv "watch +$servicesname"
}

proc a_join { nick uhost hand chan } {
    global channels greeting info_line
    if {$greeting == "on"} {
    
    foreach channel $channels {
        if {$chan == $channel} {
        putserv "PRIVMSG $nick :$info_line"
        }
    }
    }
}


proc services_offline { from keyword args } {
global greeting
putlog "Enabling greeting"
set greeting "on"
}

proc services_online { from keyword args } {
global greeting
putlog "Disabling greeting"
set greeting "off"
}

putlog "DownGreet by sixsix, enabling watch.. (for $servicesname)"
putserv "watch +$servicesname"
putlog "downgreet.tcl loaded."