<!--QuoteBegin-Spike+May 31 2005, 15:05--><div class='quotetop'>QUOTE(Spike @ May 31 2005, 15:05)</div><div class='quotemain'><!--QuoteEBegin-->Завязать с Циркон с PowerPro и фубаром таки удумал -)
Если получится, то с тебя статья )))
[right][snapback]176139[/snapback][/right]
<!--QuoteEnd--></div><!--QuoteEEnd-->
Да тут на статью не набралось <!--emo&:)-->[img]style_emoticons/<#EMO_DIR#>/smile.gif[/img]<!--endemo--> Обошёлся без поверпро - но TCL это нет слов... я за 30 минут, что это писал, возненавидел его <!--emo&:)-->[img]style_emoticons/<#EMO_DIR#>/smile.gif[/img]<!--endemo-->
Подправьте имя файла с трекнеймом в скрипте (если кто-то ещё и будет пользоваться <!--emo&:)-->[img]style_emoticons/<#EMO_DIR#>/smile.gif[/img]<!--endemo--> )
Код даю прям сюда, потому что мало <!--emo&:)-->[img]style_emoticons/<#EMO_DIR#>/smile.gif[/img]<!--endemo-->
- Код: выделить все
#XiRCON Autoload Script
#Created by Sh0Ck_filE especially for FileForum.RU users
#01.06.2005
#beta1
#---------------------------------------------------------------------------
global lasttime
set lasttime 0
on timer {
set newtime [file atime "c:\\nowplaying.txt"]
if {[expr {$newtime > $lasttime}]} {
set nowplayingfile [open "c:\\nowplaying.txt"]
gets $nowplayingfile currsong
close $nowplayingfile
say "/me слушает: $currsong"
set lasttime $newtime
}
complete
}
#---------------------------------------------------------------------------
<!--coloro:red--><span style="color:red"><!--/coloro-->"Для того чтобы быть человеком, надо им какое-то время не быть."<!--colorc--></span><!--/colorc--> ©<a href="http://zhurnal.lib.ru/b/brigadir_j_a/" target="_blank">Ю. А. Бригадир.</a>
<a href="http://counter.li.org/cgi-bin/runscript/display-person.cgi?user=437143" target="_blank">Registered Linux user #437143</a>.