Форум о ботах Eggdrop/Windrop

[ssd]

Доброй ночи. Не могли бы вы написать скрипт. Скрипт будет выдавать время на канал каждый час и дату в формате
"День(понедельник-воскресенье) час(00-23) ", а в часы(6,13,18,00) выдавал так же, но дописывал еще:
6=Доброго утро.
13=Удачного дня.
18=Приятного вечера.
00=Сладкой ночи.
Заранее большое спасибо.

[Stefan]

nice idea ;]

[tvrsh]

За основу взял скрип из этой темы http://forum.eggdrop.org.ru/index.php?showtopic=3127

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

setudef flag annontimea
setudef flag nopubontimea
setudef flag usecolors

bind pub - "!киевское" ontimea:pub
bind time - "* * * * *" show:smth

proc show:smth {minute hour day month year} {
   foreach chan [channels] {
       if {[channel get $chan annontimea]} {
           ontimea:pub "Timer" "" "" $chan ""
       }
   }

   return
}

proc ontimea:moskow { arg } {
set t [expr {$arg + 2}]

set t   [string map \
           [list \
               "24" "00" "25" "01" \
               "26" "02" "27" "03" \
               "28" "04" "29" "05" \
               "30" "06" "31" "07" \
           ] \
       $t]

return $t
}

proc ontimea:pub { nick uhand handle chan arg } {
global onchanel ontimeaid onnick

if { [channel get $chan nopubontimea] } { return }

putlog "pub:online \[$nick : $chan\] $arg"

set onchanel $chan
set onnick $nick
set ontimeaid 0
#############################"70.84.194.244"
#############################"69.46.28.93"
if {[catch {set idx [connect "atomictime.net" 1313]}]} {
putlog "pub:online \[$nick : $chan\] $arg (error connect to www.atomictime.net)"
putquick "PRIVMSG $chan :\002$nick:\002 Немогу соединиться с \002www.atomictime.net\002..."
return
}

control $idx "ontimea:telnet $chan"

proc ontimea:telnet { chan idx text } {
global onchanel ontimeaid onnick

set utime $text
set monthday [clock format [unixtime] -format "%d"]
set monthnr [clock format [unixtime] -format "%m"]
set year [clock format [unixtime] -format "%Y"]
set weekday [clock format [unixtime] -format "%A"]
regsub -all -- {Monday} $weekday {Понедельник} weekday
regsub -all -- {Tuesday} $weekday {Вторник} weekday
regsub -all -- {Wednesday} $weekday {Среда} weekday
regsub -all -- {Thursday} $weekday {Четверг} weekday
regsub -all -- {Friday} $weekday {Пятница} weekday
regsub -all -- {Saturday} $weekday {Суббота} weekday
regsub -all -- {Sunday} $weekday {Воскресенье} weekday

if { $ontimeaid == 0 } {
if { ![channel get $chan usecolors] } {
#putquick "PRIVMSG $onchanel :\002$onnick:\002 Точное Киевское время: $monthday.$monthnr.$year г. ($weekday) - [ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1]:[lindex [split [lindex $utime 3] :] 2]"
putquick "PRIVMSG $onchanel :$monthday - [ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1]"
if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "06:00"} {
    putquick "PRIVMSG $onchanel :Доброе утро \002$onchanel\002"
}
if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "13:00"} {
    putquick "PRIVMSG $onchanel :Доброго дня \002$onchanel\002"
}
if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "18:00"} {
    putquick "PRIVMSG $onchanel :Приятного вечера \002$onchanel\002"
}
if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "00:00"} {
    putquick "PRIVMSG $onchanel :Сладкой ночи \002$onchanel\002"
}
} else {
#putquick "PRIVMSG $onchanel :\002$onnick:\002 \00302Точное \00312Киевское \00302время: \00305$monthday.$monthnr.$year г. \00306($weekday)\00305 - \00304[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1]:[lindex [split [lindex $utime 3] :] 2]"
putquick "PRIVMSG $onchanel :$monthday - [ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1]"

if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "06:00"} {
    putquick "PRIVMSG $onchanel :\00312Доброе утро \00302\002$onchanel\002"
}
if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "13:00"} {
    putquick "PRIVMSG $onchanel :\00312Доброго дня \00302\002$onchanel\002"
}
if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "18:00"} {
    putquick "PRIVMSG $onchanel :\00312Приятного вечера \00302\002$onchanel\002"
}
if {[ontimea:moskow [lindex [split [lindex $utime 3] :] 0]]:[lindex [split [lindex $utime 3] :] 1] == "00:00"} {
    putquick "PRIVMSG $onchanel :\00312Сладкой ночи \00302\002$onchanel\002"
}
}
set ontimeaid 1
} else {
return
}
}
}
putlog "OnLine time v.2.0.0 by ^o_o^ and improved by mrBuG (mrBuG@eggdrop.org.ru)"

Попробуй, работает или нет.

[UnInViTeD]

А как сделать что бы показывал время в 2х городах типо Киевсоке и Московское ?

[tvrsh]

А как сделать что бы показывал время в 2х городах типо Киевсоке и Московское ?

Можно. Этот скрипт работает или нет? Мне некогда тестировать его.

[UnInViTeD]

Работает. И как сделать что бы он писал время в двух городах ?

[tvrsh]

Вот: viewtopic.php?p=1099#p1099
Как заказывал.

[UnInViTeD]

Спс Но все таки хотелось бы что бы + к выводу локального времени выводилось московское, желательно с сайта как в этом скрипте.

[ssd]

tvrsh, спасибо.