Şu tclyi yapamadım - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Xadd1 · 15 Mart 2024, 14:32

Aşağıdaki tcl de bind time kısmını aktif ettiğimde pub_jam olan yer 2 dakika da bir söylüyor.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

bind time - "00 *" pub_jam
bind time - "30 *" pub_jam
#bind time - "*2 *" pub_jam
bind pub - !date pub_tjam

##### contoh "#chansatu #chandua #chantiga"
##### biarkan kosong untuk semua channel
set chanjam ""
#####
# 1 WIB
# 2 WITA
# 3 WIT
set varTzone "2"

if {$varTzone == 1} {
    set curTzone "Asia/Jakarta"
    set varIndi "WIB"
} {
    if {$varTzone == 2} {
        set curTzone "Asia/Makassar"
        set varIndi "WITA"
    } {
        if {$varTzone == 3} {
            set curTzone "Asia/Tokyo"
            set varIndi "WIT"
        } {
            putlog "TIMEZONE SALAH"
            die
        }
    }
}

proc serandomjoke {} {
    set cukale [lindex "04 07 03 02 05 06" [rand 6]]
    return "\003$cukale"
}

proc pub_jam {min h d m y} {
    global chanjam curTzone varIndi
    set myjfor "%A %I:%M\003%p \x1d$varIndi\x1d %A"
    set warnabaru [serandomjoke]
    set jam [clock format [clock seconds] -timezone :$curTzone -format $myjfor]
    set jamtes [clock format [clock seconds] -timezone :$curTzone -format %I:%M%p]
    set newjam $jam
    regsub -all {0} $newjam "\uff10" newjam
    regsub -all {1} $newjam "\uff11" newjam
    regsub -all {2} $newjam "\uff12" newjam
    regsub -all {3} $newjam "\uff13" newjam
    regsub -all {4} $newjam "\uff14" newjam
    regsub -all {5} $newjam "\uff15" newjam
    regsub -all {6} $newjam "\uff16" newjam
    regsub -all {7} $newjam "\uff17" newjam
    regsub -all {8} $newjam "\uff18" newjam
    regsub -all {9} $newjam "\uff19" newjam
    regsub -all {PM} $newjam "\u1d3e\u1d39" newjam
    regsub -all {AM} $newjam "\u1d2c\u1d39" newjam
    regsub -all {Sunday} $newjam "\00304\u1d50\u2071\u207f\u1d4d\u1d4d\u1d58\003$warnabaru" newjam
    regsub -all {Monday} $newjam "\00303\u02e2\u1d49\u207f\u2071\u207f\003$warnabaru" newjam
    regsub -all {Tuesday} $newjam "\00303\u02e2\u1d49\u02e1\u1d43\u02e2\u1d43\003$warnabaru" newjam
    regsub -all {Wednesday} $newjam "\00303\u02b3\u1d43\u1d47\u1d58\003$warnabaru" newjam
    regsub -all {Thursday} $newjam "\00303\u1d4f\u1d43\u1d50\u2071\u02e2\003$warnabaru" newjam
    regsub -all {Friday} $newjam "\00303\u02b2\u1d58\u1d50\u1d43\u1d57\003$warnabaru" newjam
    regsub -all {Saturday} $newjam "\00303\u02e2\u1d43\u1d47\u1d57\u1d58\003$warnabaru" newjam
    #putserv "PRIVMSG #zz :$jampost 1"
    foreach chan [channels] {
        if {$chanjam == ""} {
            putserv "PRIVMSG $chan :\003$warnabaru\[\00301$newjam\003$warnabaru\]\00301"
            if {$jamtes == "12:00AM"} {
                list [sohari $chan]
            }
        }
        if {$chanjam != ""} {
            if {[lsearch -exact [string tolower $chanjam] [string tolower $chan]] != -1} {
                putserv "PRIVMSG $chan :\003$warnabaru\[\00301$newjam\003$warnabaru\]\00301"
                if {$jamtes == "12:00AM"} {
                    list [sohari $chan]
                }
            }
        }
    }
}

proc sohari {chan} {
    global curTzone
    set jam1 "Sekarang sudah hari [clock format [clock seconds] -timezone :$curTzone -format %A]"
    regsub -all {Sunday} $jam1 "\00304Minggu\003" jam1
    regsub -all {Monday} $jam1 "\00303Senin\003" jam1
    regsub -all {Tuesday} $jam1 "\00303Selasa\003" jam1
    regsub -all {Wednesday} $jam1 "\00303Rabu\003" jam1
    regsub -all {Thursday} $jam1 "\00303Kamis\003" jam1
    regsub -all {Friday} $jam1 "\00303Jumat\003" jam1
    regsub -all {Saturday} $jam1 "\00303Sabtu\003" jam1
    putserv "PRIVMSG $chan :$jam1"
}

proc pub_tjam {nick host hand chan text} {
    global curTzone varIndi
    set varjfor "%A, %I:%M %p $varIndi. %d %B %Y"
    #set varjfor "%I:%M %p"
    set varJam1 [clock format [clock seconds] -timezone :$curTzone -format $varjfor]
    regsub -all {Sunday} $varJam1 "\00304Minggu\003" varJam1
    regsub -all {Monday} $varJam1 "\00303Senin\003" varJam1
    regsub -all {Tuesday} $varJam1 "\00303Selasa\003" varJam1
    regsub -all {Wednesday} $varJam1 "\00303Rabu\003" varJam1
    regsub -all {Thursday} $varJam1 "\00303Kamis\003" varJam1
    regsub -all {Friday} $varJam1 "\00303Jumat\003" varJam1
    regsub -all {Saturday} $varJam1 "\00303Sabtu\003" varJam1
    regsub -all {January} $varJam1 "\00305Januari\003" varJam1
    regsub -all {February} $varJam1 "\00313Februari\003" varJam1
    regsub -all {March} $varJam1 "\00302Maret\003" varJam1
    regsub -all {April} $varJam1 "\00310April\003" varJam1
    regsub -all {May} $varJam1 "\00314Mei\003" varJam1
    regsub -all {June} $varJam1 "\00308Juni\003" varJam1
    regsub -all {July} $varJam1 "\00307Juli\003" varJam1
    regsub -all {August} $varJam1 "\00311Agustus\003" varJam1
    regsub -all {September} $varJam1 "\00304September\003" varJam1
    regsub -all {October} $varJam1 "\00309Oktober\003" varJam1
    regsub -all {November} $varJam1 "\00313November\003" varJam1
    regsub -all {December} $varJam1 "\00303Desember\003" varJam1
    putserv "PRIVMSG $chan :$varJam1"
}

putlog "clock.tcl"

Ama benim yapmak istediğim tcl deki şu kısmı

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc pub_tjam {nick host hand chan text} {
    global curTzone varIndi
    set varjfor "%A, %I:%M %p $varIndi. %d %B %Y"
    #set varjfor "%I:%M %p"
    set varJam1 [clock format [clock seconds] -timezone :$curTzone -format $varjfor]
    regsub -all {Sunday} $varJam1 "\00304Minggu\003" varJam1
    regsub -all {Monday} $varJam1 "\00303Senin\003" varJam1
    regsub -all {Tuesday} $varJam1 "\00303Selasa\003" varJam1
    regsub -all {Wednesday} $varJam1 "\00303Rabu\003" varJam1
    regsub -all {Thursday} $varJam1 "\00303Kamis\003" varJam1
    regsub -all {Friday} $varJam1 "\00303Jumat\003" varJam1
    regsub -all {Saturday} $varJam1 "\00303Sabtu\003" varJam1
    regsub -all {January} $varJam1 "\00305Januari\003" varJam1
    regsub -all {February} $varJam1 "\00313Februari\003" varJam1
    regsub -all {March} $varJam1 "\00302Maret\003" varJam1
    regsub -all {April} $varJam1 "\00310April\003" varJam1
    regsub -all {May} $varJam1 "\00314Mei\003" varJam1
    regsub -all {June} $varJam1 "\00308Juni\003" varJam1
    regsub -all {July} $varJam1 "\00307Juli\003" varJam1
    regsub -all {August} $varJam1 "\00311Agustus\003" varJam1
    regsub -all {September} $varJam1 "\00304September\003" varJam1
    regsub -all {October} $varJam1 "\00309Oktober\003" varJam1
    regsub -all {November} $varJam1 "\00313November\003" varJam1
    regsub -all {December} $varJam1 "\00303Desember\003" varJam1
    putserv "PRIVMSG $chan :$varJam1"
}

Bu kısmı 10 dk bir kanala söyletmeyi başaramadım. Bu konuda yardımcı olursanız sevinirim.

CoCoRiCo · 16 Mart 2024, 00:47

bu kısmı

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 bind time - "00 *" pub_jam
 bind time - "30 *" pub_jam
#bind time - "*2 *" pub_jam

bu şekilde değiştir dene.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

bind time - "00,10,20,30,40,50 *" pub_jam

Xadd1 · 16 Mart 2024, 10:34

Bu kısmı 10 dk bir kanala yansıtmasını yapamadım.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

proc pub_tjam {nick host hand chan text} {
global curTzone varIndi     
set varjfor "%A, %I:%M %p $varIndi. %d %B %Y"     
#set varjfor "%I:%M %p"     
set varJam1 [clock format [clock seconds] -timezone :$curTzone -format $varjfor]    
regsub -all {Sunday} $varJam1 "\00304Minggu\003" varJam1     
regsub -all {Monday} $varJam1 "\00303Senin\003" varJam1     
regsub -all {Tuesday} $varJam1 "\00303Selasa\003" varJam1     
regsub -all {Wednesday} $varJam1 "\00303Rabu\003" varJam1     
regsub -all {Thursday} $varJam1 "\00303Kamis\003" varJam1     
regsub -all {Friday} $varJam1 "\00303Jumat\003" varJam1     
regsub -all {Saturday} $varJam1 "\00303Sabtu\003" varJam1     
regsub -all {January} $varJam1 "\00305Januari\003" varJam1    
regsub -all {February} $varJam1 "\00313Februari\003" varJam1    
regsub -all {March} $varJam1 "\00302Maret\003" varJam1    
regsub -all {April} $varJam1 "\00310April\003" varJam1     
regsub -all {May} $varJam1 "\00314Mei\003" varJam1     
regsub -all {June} $varJam1 "\00308Juni\003" varJam1     
regsub -all {July} $varJam1 "\00307Juli\003" varJam1     
regsub -all {August} $varJam1 "\00311Agustus\003" varJam1     
regsub -all {September} $varJam1 "\00304September\003" varJam1     
regsub -all {October} $varJam1 "\00309Oktober\003" varJam1     
 regsub -all {November} $varJam1 "\00313November\003" varJam1     regsub -all {December} $varJam1 "\00303Desember\003" varJam1     putserv "PRIVMSG $chan :$varJam1" 
}

Xadd1 · 20 Mart 2024, 01:55

Konu çözüldü. Kilitlenebilir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Betül Demir - Yapamadım	Lcia	A, B, C, Ç	0	29 Eylül 2014 15:14
#Log Kanalı Kurulumu Yapamadım :S	darkshades1	Unreal IRCd	5	15 Nisan 2011 19:50
!muafekle Yapamadım..	kup{a}pazl	mIRC Scripting Sorunları	7	06 Ocak 2010 03:08
Toolbars ı yapamadım	böcek	mIRC Scripting Sorunları	2	15 Ağustos 2007 14:09
Ya TcL botu bağlantısını yapamadım	SaCiT	Eggdrop, NeoStats, BNC	3	29 Haziran 2006 09:39

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.