Eggdrop Karantina Geç TCL Botu

[Technic]

Merhaba IRCMerkezi.Com üyeleri,

Bilindiği gibi UnrealIRCd sunucularında karantina kanallarından global kanallara geçiş konusunda bazı zorluklar yaşanabiliyor. Özellikle botların sunuculardan düşmesi durumunda bu geçiş işlemi manuel olarak gerçekleştirilmelidir. İşte tam da bu noktada Unreal modülü olan igs.c'nin sağladığı geç komutunu kullanmak isteyen fakat bunu tcl botla entegre etmekte zorlanan arkadaşlarımız için bir çözüm önerimiz var.

Aşağıda paylaştığımız Eggdrop tcl botu ile karantina kanalına giren kullanıcıları belirlediğiniz bir süre (varsayılan olarak 10 saniye) sonra global kanallara otomatik olarak geçirebilirsiniz. Böylece sunucunuzun daha geniş bir sohbet ortamında olmasını sağlayabilirsiniz.

##########################################################
# Onjoin.tcl 0.2 by Banned@abv.bg  by Banned             #
#                    -Technic-                           #
# Güncelleme - BilgiShell.Com Bilisim Teknolojileri      #
##########################################################
set onjoin_msg {
 {
  "7+ $nick + 2Sohbet Platformuna Hoşgeldiniz. Güvenlik Taramasına Alındınız. Şimdi Kanallara Alınacaksınız => 4IRCMerkezi.Com "
 }
}

set onjoin_chans "#Karantina"

bind join - * join_onjoin

putlog "Onjoin.tcl 0.2 by Banned loaded"

proc join_onjoin {nick uhost hand chan} {
    global onjoin_msg onjoin_chans botnick
    if {(([lsearch -exact [string tolower $onjoin_chans] [string tolower $chan]] != -1) || ($onjoin_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
        set onjoin_temp [lindex $onjoin_msg [rand [llength $onjoin_msg]]]
        foreach msgline $onjoin_temp {
            putserv "PRIVMSG $chan [subst $msgline]"
        }

        # /gec komutunu uygula
        after 10000 [list putserv "gec $nick"]
    }
}