| Xadd1 | 18 Haziran 2023 08:36 |
Servislerin Durumunu Bildiren Tcl
Kod:
# 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."
Kırmızı ile gösterdiğim kısımları kendinize göre düzenleyebilirsiniz.Servislerin online yada offline olduğunu bildirir. En altta gösterdiğim PRIVMSG özele mesajı yollar. NOTICE yaparsanız kanala yansıtır. | 