IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol
Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By CoCoRiCo

Yeni Konu aç Konu Kapatılmıştır
 
LinkBack Seçenekler Stil
Alt 15 Mart 2024, 14:32   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Şu tclyi yapamadım



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.

Konu SNOOPY tarafından (15 Mart 2024 Saat 17:57 ) değiştirilmiştir.
 

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet Mobil Chat
Alt 16 Mart 2024, 00:47   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şu tclyi yapamadım



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


__________________
2b|!2b=?
Konu CoCoRiCo tarafından (16 Mart 2024 Saat 00:48 ) değiştirilmiştir.
 

Alt 16 Mart 2024, 10:34   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şu tclyi yapamadım



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" 
}


Konu Xadd1 tarafından (16 Mart 2024 Saat 10:39 ) değiştirilmiştir. Sebep: Bu kısmı ustam
 

Alt 20 Mart 2024, 01:55   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şu tclyi yapamadım



Konu çözüldü. Kilitlenebilir.

 

Konu Kapatılmıştır

« önceki Konu | sonraki Konu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

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




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org 副業 https://www.newstrendline.com/