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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Yardımınızı Bekliyorum (https://www.ircforumlari.net/tcl-scriptler/1029923-yardiminizi-bekliyorum.html)

Yardımınızı Bekliyorum

!time yazdığınız zaman Zamanı Gösteriyor ama türkçe olarak değilde ingilizce olarak. Bunu Nasıl türkçe olarak gösterebiliriz.

Örneğin Sunucuda Şunu yazıyor

17:52 Sunday, March 03, 2024

Sunday ve March kısımlarını Pazar ve Mart olarak nasıl türkleştirebilirim.

Güzel bi tcl detaylı zamanı gösteriyor , Türkçeleştirebilirsek herkesin işine yarayabilir.

Kod:

##################################

### ShellTime.tcl              ###

### Version 1.6                ###

### By Wcc                     ###

### wcc@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]monkeys.org        ###

### [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ###

### EFnet #|DAWG|Tcl           ###

##################################
 

############################################################################

### Copyright © 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ###

############################################################################
 

#############################################################

## This script shows users the time on the eggdrop's shell. #

#############################################################
 

##############

## COMMANDS ##

######################################################

## DCC ## .time    (Can be changed)                    ##    

######### Displays the time on the eggdrop's shell. ##

######################################################

## PUB ## !time (Can be changed)                    ##

######### Displays the time on the eggdrop's shell. ##

######################################################
 

##########################################################

## Just load the script, edit the settings, and rehash. ##

##########################################################
 

##########################################################

# Set the flag required for viewing the shell time here. #

##########################################################
 

set shelltime_setting(flag) "-|-"
 

########################################################

# Set the dcc command for viewing the shell time here. #

########################################################
 

set shelltime_setting(cmd) "time"
 

########################################################

# Set the pub command for viewing the shell time here. #

########################################################
 

set shelltime_setting(pubcmd) "!time"
 

#######################################################################

# Set the clock format here. See below for a list of format settings. #

# ------------------------------------------------------------------- #

#                                                                     #

# %% - Insert a %.                                                    #

# %a - Abbreviated weekday name (Mon, Tue, etc.).                     #

# %A - Full weekday name (Monday, Tuesday, etc.).                     #

# %b - Abbreviated month name (Jan, Feb, etc.).                       #

# %B - Full month name.                                               #

# %c - Locale specific date and time.                                 #

# %d - Day of month (01 - 31).                                        #

# %H - Hour in 24-hour format (00 - 23).                              #

# %I - Hour in 12-hour format (00 - 12).                              #

# %j - Day of year (001 - 366).                                       #

# %m - Month number (01 - 12).                                        #

# %M - Minute (00 - 59).                                              #

# %p - AM/PM indicator.                                               #

# %S - Seconds (00 - 59).                                             #

# %U - Week of year (00 - 52), Sunday is the first day of the week.   #

# %w - Weekday number (Sunday = 0).                                   #

# %W - Week of year (00 - 52), Monday is the first day of the week.   #

# %x - Locale specific date format.                                   #

# %X - Locale specific time format.                                   #

# %y - Year without century (00 - 99).                                #

# %Y - Year with century (e.g. 1990)                                  #

# %Z - Time zone name.                                                #

# Supported on some systems only:                                     #

# %D - Date as %m/%d/%y.                                              #

# %e - Day of month (1 - 31), no leading zeros.                       #

# %h - Abbreviated month name.                                        #

# %n - Insert a newline.                                              #

# %r - Time as %I:%M:%S %p.                                           #

# %R - Time as %H:%M.                                                 #

# %t - Insert a tab.                                                  #

# %T - Time as %H:%M:%S.                                              #

#######################################################################
 

set shelltime_setting(format) "%I:%M:%S %p %A, %B %d, %Y"
 

###################################

# Enable use of bold in DCC chat? #

###################################
 

set shelltime_setting(bold) 1
 

#############################################

# Prefix "SHELLTIME:" in DCC chat messages? #

#############################################
 

set shelltime_setting(SHELLTIME:) 1
 

####################

# Code begins here #

####################
 

if {$numversion < 1060800} { putlog "\002SHELLTIME:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.8 or later." }

if {[info tclversion] < 8.2} { putlog "\002SHELLTIME:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }
 

bind dcc $shelltime_setting(flag) $shelltime_setting(cmd) shelltime_dcc

bind pub $shelltime_setting(flag) $shelltime_setting(pubcmd) shelltime_pub
 

proc shelltime_dopre {} {

    global shelltime_setting

    if {!$shelltime_setting(SHELLTIME:)} { return "" }

    if {!$shelltime_setting(bold)} { return "SHELLTIME: " }

    return "\002SHELLTIME:\002 "

}

proc shelltime_dcc {hand idx text} {

    global shelltime_setting

    putdcc $idx "[shelltime_dopre][clock format [clock seconds] -format $shelltime_setting(format)]"

}

proc shelltime_pub {nick uhost hand chan text} {

    global shelltime_setting

    puthelp "PRIVMSG $chan :[clock format [clock seconds] -format $shelltime_setting(format)]"

}

putlog "\002SHELLTIME:\002 ShellTime.tcl 1.6 by Wcc is loaded."

Cevap: Yardımınızı Bekliyorum

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] neredesin ? :gulucuk:

Umarım yardımcı olacak arkadaşlar bu konuda yardımcı olurlar

Cevap: Yardımınızı Bekliyorum

Alıntı:

Xadd1 Nickli Üyeden Alıntı (Mesaj 1042878397)

Kod:

##################################

### ShellTime.tcl              ###

### Version 1.6                ###

### By Wcc                     ###

### wcc@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]monkeys.org        ###

### [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ###

### EFnet #|DAWG|Tcl           ###

##################################
 

############################################################################

### Copyright © 2000 - 2002 |DAWG| Scripting Group. All rights reserved. ###

############################################################################
 

#############################################################

## This script shows users the time on the eggdrop's shell. #

#############################################################
 

##############

## COMMANDS ##

######################################################

## DCC ## .time    (Can be changed)                    ##    

######### Displays the time on the eggdrop's shell. ##

######################################################

## PUB ## !time (Can be changed)                    ##

######### Displays the time on the eggdrop's shell. ##

######################################################
 

##########################################################

## Just load the script, edit the settings, and rehash. ##

##########################################################
 

##########################################################

# Set the flag required for viewing the shell time here. #

##########################################################
 

set shelltime_setting(flag) "-|-"
 

########################################################

# Set the dcc command for viewing the shell time here. #

########################################################
 

set shelltime_setting(cmd) "time"
 

########################################################

# Set the pub command for viewing the shell time here. #

########################################################
 

set shelltime_setting(pubcmd) "!time"
 

#######################################################################

# Set the clock format here. See below for a list of format settings. #

# ------------------------------------------------------------------- #

#                                                                     #

# %% - Insert a %.                                                    #

# %a - Abbreviated weekday name (Mon, Tue, etc.).                     #

# %A - Full weekday name (Monday, Tuesday, etc.).                     #

# %b - Abbreviated month name (Jan, Feb, etc.).                       #

# %B - Full month name.                                               #

# %c - Locale specific date and time.                                 #

# %d - Day of month (01 - 31).                                        #

# %H - Hour in 24-hour format (00 - 23).                              #

# %I - Hour in 12-hour format (00 - 12).                              #

# %j - Day of year (001 - 366).                                       #

# %m - Month number (01 - 12).                                        #

# %M - Minute (00 - 59).                                              #

# %p - AM/PM indicator.                                               #

# %S - Seconds (00 - 59).                                             #

# %U - Week of year (00 - 52), Sunday is the first day of the week.   #

# %w - Weekday number (Sunday = 0).                                   #

# %W - Week of year (00 - 52), Monday is the first day of the week.   #

# %x - Locale specific date format.                                   #

# %X - Locale specific time format.                                   #

# %y - Year without century (00 - 99).                                #

# %Y - Year with century (e.g. 1990)                                  #

# %Z - Time zone name.                                                #

# Supported on some systems only:                                     #

# %D - Date as %m/%d/%y.                                              #

# %e - Day of month (1 - 31), no leading zeros.                       #

# %h - Abbreviated month name.                                        #

# %n - Insert a newline.                                              #

# %r - Time as %I:%M:%S %p.                                           #

# %R - Time as %H:%M.                                                 #

# %t - Insert a tab.                                                  #

# %T - Time as %H:%M:%S.                                              #

#######################################################################
 

set shelltime_setting(format) "%I:%M:%S %p %A, %B %d, %Y"
 

###################################

# Enable use of bold in DCC chat? #

###################################
 

set shelltime_setting(bold) 1
 

#############################################

# Prefix "SHELLTIME:" in DCC chat messages? #

#############################################
 

set shelltime_setting(SHELLTIME:) 1
 

####################

# Code begins here #

####################
 

if {$numversion < 1060800} { putlog "\002SHELLTIME:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.8 or later." }

if {[info tclversion] < 8.2} { putlog "\002SHELLTIME:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }
 

bind dcc $shelltime_setting(flag) $shelltime_setting(cmd) shelltime_dcc

bind pub $shelltime_setting(flag) $shelltime_setting(pubcmd) shelltime_pub
 

proc shelltime_dopre {} {

    global shelltime_setting

    if {!$shelltime_setting(SHELLTIME:)} { return "" }

    if {!$shelltime_setting(bold)} { return "SHELLTIME: " }

    return "\002SHELLTIME:\002 "

}

proc shelltime_dcc {hand idx text} {

    global shelltime_setting

    putdcc $idx "[shelltime_dopre][clock format [clock seconds] -format $shelltime_setting(format)]"

}

proc shelltime_pub {nick uhost hand chan text} {

    global shelltime_setting

    puthelp "PRIVMSG $chan :[clock format [clock seconds] -format $shelltime_setting(format)]"

}

putlog "\002SHELLTIME:\002 ShellTime.tcl 1.6 by Wcc is loaded."

Bu bölümü

Kod:

proc shelltime_pub {nick uhost hand chan text} {

    global shelltime_setting

    puthelp "PRIVMSG $chan :[clock format [clock seconds] -format $shelltime_setting(format)]"

}

Bununla, değiştir.

Sunucu dili zaman damgasını belirlediğinden, replace etmek gerekir, saatler vb. "hr." "dk." gibi dönüşler de aynı sekilde cevirilebilir.

tahminim çalışır heralde :) denemek lazım.

Kod:


 

proc shelltime_pub {nick uhost hand chan text} {

    global shelltime_setting

    set aylar {

        Ocak Subat Mart Nisan Mayis Haziran Temmuz Agustos Eylul Ekim Kasim Aralik

    }

    set gunler {

        Pazar Pazartesi Sali Carsamba Persembe Cuma Cumartesi

    }

    set tarih_cevir [clock format [clock seconds] -format "%H:%M [lindex $gunler [clock format [clock seconds] -format %w]], [lindex $aylar[clock format [clock seconds] -format %m]] [clock format [clock seconds] -format %d], [clock format [clock seconds] -format %Y]"]
 

    puthelp "PRIVMSG $chan :$tarih_cevir"

}

Cevap: Yardımınızı Bekliyorum

Tcl Clock Komutunda -locale
Opsiyonuyla İstenen Dilde Çıktı Alınabilir!
>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Ay / Gün Adlarını Ayrıca Çevirmeye Gerek Kalmaz...
-locale tr_TR Çıktıyı Türkçe Vermesini Sağlar!

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ayrıca tcllib Cron Paketiyle ;
İstenen Frekansta/Aralıkta (Saniye Bazında)
İstenen Komut/Prosedür Çalıştırılabilir.
>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

package require cron
 

::cron::every Saat [expr {60*15}] {putserv "privmsg #Kanal :[clock format [clock seconds] -format "%d-%B-%Y %A %H:%M:%S" -timezone :Europe/Istanbul -locale tr_TR]"}

::cron::every ;# Cron Paketii Komutu
Saat ;# Prosedüre Atadığımız İsim ,
Dilenirse Bu Atanmış İsim Kullanılarak
İşletilen Cron Durdurulabilir!
::cron::cancel Saat ;# Atadığımız Prosedür İsmiyle İptal!
[expr {60*15}] ;# Cron Frekansı/Aralığı
Saniye Cinsinde Olduğundan,
İstenen Aralık, 15 Dakikaysa 900
Yada Bu Şekilde Yazılabilir...