Скрипты для Trackinfo Panel

Список разделов Аудиоплеер foobar2000 Секреты foobar2000

Описание: Кнопочки, конфиги, секреты, советы.

Сообщение #1 DruiD » 03.05.2006, 13:59

Предлагаю в этой теме делиться конфигами для плагина Trackinfo Panel
Выкладываем код и по возможности скриншот (рекомендую http://imageshack.us)
DruiD M
Автор темы, Мастер
Аватара
Возраст: 29
Откуда: Зеленоград
Репутация: 5
С нами: 10 лет 8 месяцев

Сообщение #2 DruiD » 03.05.2006, 14:08

Скрипт прогрессбара


Код: Выделить всё
//прогресс бар
$puts(prcol,072C3F)
$puts(prcol2,28CAFF)

//длина пб
$puts(proglen,40)
$puts(progchar,●)
//код пб

$puts(progress,
$if(%isplaying%,
$puts(pos,$div($mul(%playback_time_seconds%,100),%length_seconds%))
$puts(pr1,$div($mul($get(pos),$get(proglen)),100))
$puts(pr2,$sub($get(proglen),$get(pr1)))
,
//если трэк не проигрывается то устанавливаю по центру
$puts(pr1,$div($get(proglen),2))
$puts(pr2,$div($get(proglen),2)))

$transition($pad(,$get(pr1),$get(progchar)),$get(prcol),$get(prcol2))
$transition($pad(,$get(pr2),$get(progchar)),$get(prcol2),$get(prcol))
$char(10))

// собственно вывод
$get(progress)

Изображение
Последний раз редактировалось Elzor 03.05.2006, 15:09, всего редактировалось 1 раз.
DruiD M
Автор темы, Мастер
Аватара
Возраст: 29
Откуда: Зеленоград
Репутация: 5
С нами: 10 лет 8 месяцев

Сообщение #3 Lite » 04.05.2006, 02:13

Слегка модифицированный прогрессбар DruiD`a

Код: Выделить всё
// Original code by DruiD
// Modded by Lite

//прогресс бар         background:$rgb(64 , 0 , 0)

$puts(prcol,$rgb(60 , 44 , 7))
$puts(prcol2,$rgb(255 , 201 , 40))
$puts(prcol3,$rgb(255 , 212 , 85))
$puts(prcol4,$rgb(255 , 223 , 128))
$puts(prcol5,$rgb(255 , 234 , 170))
$puts(prcol6,$rgb(255 , 244 , 213))

//длина пб
$puts(proglen,40)
$puts(progchar,•)
//код пб

$puts(progress,
$if(%isplaying%,
$puts(pos,$div($mul(%playback_time_seconds%,100),%length_seconds%))
$puts(pr1,$div($mul($get(pos),$get(proglen)),100))
$puts(pr2,$sub($get(proglen),$get(pr1)))
,
//если трэк не проигрывается то устанавливаю по центру
$puts(pr1,$div($get(proglen),2))
$puts(pr2,$div($get(proglen),2)))

$transition($pad(,$get(pr1),$get(progchar)),$get(prcol),
$if($strcmp($mod(%_time_elapsed_seconds%,8),0),$get(prcol2),
$if($strcmp($mod(%_time_elapsed_seconds%,8),1),$get(prcol3),
$if($strcmp($mod(%_time_elapsed_seconds%,8),2),$get(prcol4),
$if($strcmp($mod(%_time_elapsed_seconds%,8),3),$get(prcol5),
$if($strcmp($mod(%_time_elapsed_seconds%,8),4),$get(prcol6),
$if($strcmp($mod(%_time_elapsed_seconds%,8),5),$get(prcol5),
$if($strcmp($mod(%_time_elapsed_seconds%,8),6),$get(prcol4),
$if($strcmp($mod(%_time_elapsed_seconds%,8),7),$get(prcol3),$get(prcol2))))))))))
$transition($pad(,$get(pr2),$get(progchar)),
$if($strcmp($mod(%_time_elapsed_seconds%,8),0),$get(prcol2),
$if($strcmp($mod(%_time_elapsed_seconds%,8),1),$get(prcol3),
$if($strcmp($mod(%_time_elapsed_seconds%,8),2),$get(prcol4),
$if($strcmp($mod(%_time_elapsed_seconds%,8),3),$get(prcol5),
$if($strcmp($mod(%_time_elapsed_seconds%,8),4),$get(prcol6),
$if($strcmp($mod(%_time_elapsed_seconds%,8),5),$get(prcol5),
$if($strcmp($mod(%_time_elapsed_seconds%,8),6),$get(prcol4),
$if($strcmp($mod(%_time_elapsed_seconds%,8),7),$get(prcol3),$get(prcol2))))))))),$get(prcol))
$char(10))

// собственно вывод
$get(progress)
Lite M
Бывалый
Аватара
Возраст: 41
Откуда: С-Петербург
Репутация: 0
С нами: 10 лет 8 месяцев

Сообщение #4 Warchief » 04.05.2006, 19:46

Ребята, а есть у кого-нибудь скрипт Trackinfo Panel с вертикальным прогресбаром?
Warchief
Новичок
Репутация: 0
С нами: 10 лет 8 месяцев

Сообщение #5 Elzor » 04.05.2006, 19:55

Не видел такого но не думаю что будет собо сложно написать. Завтра на работе попробую свой переделать, и запощу. А тебе зачем?
Люди не знают, что лисы умеют лазить по деревьям, если очень сильно захотят. Вот белки - те знают.
(с) П.Бигл
Elzor M
Мастер
Аватара
Возраст: 35
Откуда: г. Орск
Репутация: 1
С нами: 10 лет 8 месяцев

Сообщение #6 DruiD » 04.05.2006, 20:12

Головная боль с внедрением подобного прогрессбара в имеющийся скрипт будет долгой :)
Можно поступить проще:
Берешь любой прогрессбар
вставляешь на отдельную панель
ширину у панели делаешь в один символ
Включаешь опцию переноса wrap
и имеешь вертикальный прогрессбар
и для красоты поставь edge style = none

зы. Вот на гидрогене говорили о html+tagz panel. вот это было бы весело :)

ззы. в моем? для того чтобы каждый символ переносился на новую нужно заменить последнюю строку заменить на

// собственно вывод
$replace($get(progress),$get(progchar),$get(progchar) )

или

// собственно вывод
$replace($get(progress),$get(progchar),$get(progchar)$char(10))
Последний раз редактировалось DruiD 04.05.2006, 21:11, всего редактировалось 1 раз.
DruiD M
Автор темы, Мастер
Аватара
Возраст: 29
Откуда: Зеленоград
Репутация: 5
С нами: 10 лет 8 месяцев

Сообщение #7 STALK.ER » 05.05.2006, 11:12

DruiD

А не подскажешь как сделать для Track Info, чтобы прогресс бар выглядел как на кортинке
/index.php?topic=19.0
который находиться в status bar'е этой сборки....э
а то я вчера вечером битых два часа провозился но результат меня не удовлетворил....
может что нибудь подскажешь, я думаю многим будет интересно....
STALK.ER
Гость

Сообщение #8 DruiD » 05.05.2006, 11:26

STALK.ER писал(а):А не подскажешь как сделать для Track Info, чтобы прогресс бар выглядел как на кортинке
А Граундер не делится?

вот. путем модификации моего первоначального
Код: Выделить всё
//прогресс бар
$puts(prcol,$rgb(11,221,0))
$puts(prcol2,$rgb(44,255,32))
$puts(prcol3,$rgb(0,19,151))
$puts(prcol4,$rgb(60,84,255))

//длина пб
$puts(proglen,40)
$puts(progchar,█)
//код пб

$puts(progress,
$if(%isplaying%,
$puts(pos,$div($mul(%playback_time_seconds%,100),%length_seconds%))
$puts(pr1,$div($mul($get(pos),$get(proglen)),100))
$puts(pr2,$sub($get(proglen),$get(pr1)))
,
//если трэк не проигрывается то устанавливаю по центру
$puts(pr1,$div($get(proglen),2))
$puts(pr2,$div($get(proglen),2)))

$transition($pad(,$get(pr1),$get(progchar)),$get(prcol),$get(prcol2))
$transition($pad(,$get(pr2),$get(progchar)),$get(prcol3),$get(prcol4))
$char(10))

// собственно вывод
$get(progress)
DruiD M
Автор темы, Мастер
Аватара
Возраст: 29
Откуда: Зеленоград
Репутация: 5
С нами: 10 лет 8 месяцев

Сообщение #9 STALK.ER » 05.05.2006, 14:33

DruiD писал(а):
STALK.ER писал(а):А не подскажешь как сделать для Track Info, чтобы прогресс бар выглядел как на кортинке
А Граундер не делится?

вот. путем модификации моего первоначального
Код: Выделить всё
//прогресс бар
$puts(prcol,$rgb(11,221,0))
$puts(prcol2,$rgb(44,255,32))
$puts(prcol3,$rgb(0,19,151))
$puts(prcol4,$rgb(60,84,255))

//длина пб
$puts(proglen,40)
$puts(progchar,█)
//код пб

$puts(progress,
$if(%isplaying%,
$puts(pos,$div($mul(%playback_time_seconds%,100),%length_seconds%))
$puts(pr1,$div($mul($get(pos),$get(proglen)),100))
$puts(pr2,$sub($get(proglen),$get(pr1)))
,
//если трэк не проигрывается то устанавливаю по центру
$puts(pr1,$div($get(proglen),2))
$puts(pr2,$div($get(proglen),2)))

$transition($pad(,$get(pr1),$get(progchar)),$get(prcol),$get(prcol2))
$transition($pad(,$get(pr2),$get(progchar)),$get(prcol3),$get(prcol4))
$char(10))

// собственно вывод
$get(progress)

О громное спасибо.....
Я как раз вчера такой значёк подбирал....
STALK.ER
Гость

TIP-Script v.0.3

Сообщение #10 mgz » 06.05.2006, 01:30

[img width=150 height=62]http://www.winamp2rus.narod.ru/images/v3_03.png[/img]
Тут описания и полные скриншоты...
Скрипт забираем тут.
Есть пара обязательных условий:
- шрифт Lucida Console; размер на скрине 8pt;
- минимальный размер панели 200 (в свойствах панели).
Всего 4 настройки:
Код: Выделить всё
// -Ширина панели в символах (путём тыка)
$puts(panelWidth,67)
//
// Цвет всех символов, образующих рамку
$puts(lineColor,$rgb(230,230,255))
//
// Цвет текста
$puts(textColor,$rgb(0,0,0))
//
// Поле отображает размер файла в МБ, если его сковнертировать в РСМ-формат (например для составления Аудио-проекта в Nero)
// 1 - show; 0 - hide
$puts(viewPCM,1)
Последний раз редактировалось mgz 06.05.2006, 02:04, всего редактировалось 1 раз.
RME HDSP 9632 > DynAudio BM5A II / Audio-Technica ATH-AD900
mgz M
Гуру
Аватара
Возраст: 37
Откуда: Украина, Киев
Репутация: 57
С нами: 10 лет 8 месяцев

Сообщение #11 Zalexi » 06.05.2006, 02:24

Я тут сделал сборную солянку. Благодарности 2 Spike, Dr.Death и еще многим.
[img width=99 height=150]http://img148.imageshack.us/img148/614/trackinfo0hl.th.jpg[/img]

Условия:
- шрифт Microsoft Sans Serif bold 8pt;
- Backgroundcolor - черный.

Внутри скрипта наворочено много  *NO*, кто хочет, может поизвращаться. Много дополнительных параметров я убрал, чтобы их вернуть - в начале строки уберите двойную косую линию "//".

Код: Выделить всё
//Цветовая схема: 0 = Vista, 1 = Blue & White v1, 2 = Blue & White v2
$puts(color_scheme,0)

//% сжатия файла в сравнении с wav
$puts(compression,$left($muldiv(%__bitrate%,10000,1411),$sub($len($muldiv(%__bitrate%,10000,1411)),2))'.'$right($muldiv(%__bitrate%,10000,1411),2))

//размер файла в килобайтах
$puts(filesize,$ifgreater($div(%filesize%,1024),999,$left($div(%filesize%,1024),$sub($len($div(%filesize%,1024)),3))' '$right($div(%filesize%,1024),3),$div(%filesize%,1024)))

//% воспроизведения
$puts(played,$max(0,$left($muldiv(%playback_time_seconds%,1000,%length_seconds%),$sub($len($muldiv(%playback_time_seconds%,1000,%length_seconds%)),1)))'.'$right($muldiv(%playback_time_seconds%,1000,%length_seconds%),1))

//время последнего воспроизведения
$puts(last_played,$substr(%last_played%,9,10)'.'$substr(%last_played%,6,7)'.'$substr(%last_played%,1,4)' '$right(%last_played%,8))

//Vista
$if($strcmp(0,$get(color_scheme)),
$puts(t1,$rgb(148,204,72))
$puts(t2,D7B997)
$puts(t3,$rgb(240,240,240))
$puts(t4,$rgb(128,128,128))
$puts(bg,$rgb(46,48,63))
$puts(c_t1a,FF8855|FF8855)
$puts(c_t1b,FFBB99|FFBB99)
$puts(c_t2a,FF8855|FF8855)
$puts(c_t2b,FFDDDD|FFDDDD)
$puts(c_3,AA6644|AA6644)
$puts(c_t4a,00ff00|00ff00)
$puts(c_t4b,ff00ff|ff00ff)
$puts(c_t4c,00ffff|00ffff)
$puts(c_t4d,2222ff|2222ff)
$puts(c_t4e,ffff00|ffff00)
$puts(c_t4f,ff8080|ff8080)
$puts(c_t4g,c080ff|c080ff)
$puts(spacer,$get(c_3)'-------------------------------------------------------------'$char(10)),

//Blue & White v1
$if($strcmp(1,$get(color_scheme)),
$puts(t1,$rgb(0,128,192))
$puts(t2,$rgb(128,128,128))
$puts(t3,$rgb(0,0,0))
$puts(bg,$rgb(255,255,255)),

//Blue & White v2
$if($strcmp(2,$get(color_scheme)),
$puts(t1,$rgb(0,102,153))
$puts(t2,$rgb(93,93,93))
$puts(t3,$rgb(0,0,0))
$puts(bg,$rgb(239,239,239))
)))

//разделители
$puts(hr,$transition($repeat(–,35),$get(t1),$get(bg))$char(10))

//$get(t1)Mode: $get(t3)%_trackinfo_mode%$char(10)

$if(%_trackinfo_notrack%,$char(10)$get(t3)'Тиша навкруги...',

//$get(hr)
//$get(t1)'Song Info:'$char(10)
//$get(hr)
//$get(t2)'Исполнитель: '$get(t3)$if3(%artist%,'...')$char(10)
$get(t4)'Исполнитель: '$get(c_t4b)$meta(artist)$char(10)
//$get(t2)'Название: '$get(t3)$if3(%title%,'...')$char(10)
$get(t4)'Название: '$get(c_t4a)$replace($meta(title),'(',$get(c_3)'(',')',')'$get(c_t1b))$get(c_3)[' ('$meta(title_extra)')']$char(10)
//$get(t2)'Альбом: '$get(t3)$if3(%album%,'...')$char(10)
$get(t4)'Альбом: '$get(c_t1b)$replace($meta(album),'(',$get(c_3)'(',')',')'$get(c_t1b),'[',$get(c_3)'[',']',']'$get(c_t1b))FFFFFF|FFFFFF[' disc '$meta(disc)][' '''$meta(discname)'']$char(10)
//$get(t2)'Трэк: '$get(t3)$if3($num(%tracknumber%,1),'...')$char(10)
//$get(t2)'Год: '$get(t3)$if3(%date%,'...')$char(10)
//$get(t2)'Жанр: '$get(t3)$if3(%genre%,'...')$char(10)
//$get(t2)'Комментарии: '$get(t3)$if3(%comment%,'...')$char(10)

$get(spacer)

// codec
$get(c_t1a)'Кодек: '00B3FF|00B3FF$upper($ext(%_path%))
// musepack profile
0073DD|0073DD$if(%__mpc_profile%,' '%__mpc_profile%$get(c_3)' @ ') 
// bitrate with coloring
$puts(WHITE,FFFFFF|FFFFFF)
$puts(RED,0000FF|0000FF)
$puts(GREY,969696|969696)
$puts(GREEN,008000|008000)
$puts(LGREEN,00FF88|00FF88)
$puts(YELLOW,0fB9FF|0fB9FF)
//$puts(BLUE,ff0000|ff0000)
$puts(BLUE,ff6600|000000)
$puts(BLACK,000000|000000)
$puts(WHITE,FFFFFF|FFFFFF)
$puts(REDORANG,fb04f4|fb04f4)
//bitrate stuff
$if2($greater(0,$info(bitrate_dynamic)),$get(RED))
$if2($greater(129,$info(bitrate_dynamic)),$get(YELLOW))
$if2($greater(161,$info(bitrate_dynamic)),$get(GREY))
$if2($greater(192,$info(bitrate_dynamic)),$get(LGREEN))
$if2($greater(256,$info(bitrate_dynamic)),$get(BLUE))
$if2($greater(320,$info(bitrate_dynamic)),$get(REDORANG))
$if2(%__bitrate_dynamic%,$padcut_right([ %__bitrate_dynamic%]%__bitrate%,4))
F3EAE0$get(c_3)' kbps'

// channels
$puts(channels,$if(%__mp3_stereo_mode%,$get(spacer)$caps2([%__mp3_stereo_mode%]),

$if(%__channels%,
$get(spacer)$ifgreater(%__channels%,2,%__channels%,$ifgreater(%__channels%,1,Stereo,Mono)))

))

// extrainfo
[' '00B3FF|00B3FF%__extrainfo%][' '0073DD|0073DD$pad_right(%__mp3_stereo_mode%,2)]$char(10)


// LAME (needs modified "foo_input_std.dll")
$if($or(%__lame_profile%,%__lame_version%),
$get(c_t1a)'LAME: '$get(c_t1b)
$if(%__lame_profile%,'-'%__lame_profile%)
$if(%__lame_version%,' ('%__lame_version%')')
$char(10)
)

$get(spacer)

//$get(hr)
//$get(t1)'Tech Info:'$char(10)
//$get(hr)
$get(t2)'Кодек: '$get(t3)%codec%$char(10)
//$get(t2)'Битрейт: '$get(t3)$if(%__extrainfo%,'VBR ')%__bitrate_dynamic%$get(t2)' Kbit/s'$char(10)
$get(t2)'Частота: '$get(t3)%samplerate%$get(t2)' Hz'$char(10)
$get(t2)'Каналы: '$get(t3)$caps(%channels%)$char(10)
$get(t2)'Track Gain: '$get(t3)$if3($replace(%__replaygain_track_gain%,' ',$get(t2)' '),'RG Not Applied')$char(10)
$get(t2)'Album Gain: '$get(t3)$if3($replace(%__replaygain_album_gain%,' ',$get(t2)' '),'RG Not Applied')$char(10)
$get(t2)'Сжатие: '$get(c_t4g)$get(compression)$get(t2)' %'$char(10)
//$get(t2)'Размер: '$get(c_t4f)$if3($get(filesize),'...')$get(t2)' Kb'$char(10)

//$get(hr)
//$get(t1)'Playing Info:'$char(10)
//$get(hr)

$get(spacer)

//$get(t2)'Звучала: '$get(t3)$if3(%play_counter%,'...')$char(10)
//$get(t2)'Последнее звучание: '$get(t3)$if(%last_played%,$get(last_played),'...')$char(10)

D7B997Эта песня проиграна F3EAE0%play_counter% D7B997раз'(а)'. $char(10)
D7B997Последний раз проигрывалась: F3EAE0$left($meta(PLAY_DATE),2)'.'$substr($meta(PLAY_DATE),3,4)'.20'$right($meta(PLAY_DATE),2)D7B997
 в F3EAE0$left($meta(PLAY_TIME),2)':'$substr($meta(PLAY_TIME),3,4)':'$right($meta(PLAY_TIME),2) $char(10)

$get(t2)'Время общее: '$get(c_t4c)$if3(%length%,'...')$char(10)
$get(t2)'Время текущее: '$get(c_t4a)$if3('+'%playback_time%,'...')$char(10)
$get(t2)'Время оставшееся: '$get(c_t4d)$if3('-'%playback_time_remaining%,'...')$char(10)
$if(%_time_total%,$get(t2)'Проиграно: '$get(c_t4e)
$get(played)$get(t2)' %'))$char(10)

$puts(theme,1)

// progressbar config
$puts(progress_char,█)
$puts(progress_length,37x)$char(10)

$if($strcmp($get(theme),1),
$puts(progress_color1,$rgb(164,235,12))
$puts(progress_color2,$rgb(54,106,179))
)


// PREPARE COLOR-STRINGS
// =========================================
$puts(progress_color1a,$blend($get(progress_color1),000000,1,4.5))
$puts(progress_color2a,$blend($get(progress_color2),000000,1,5.7))
// progressbar
$puts(progressbar,
$if(%_length_seconds%,

$puts(progress,$muldiv(%_time_elapsed_seconds%,$get(progress_length),%_length_seconds%))
$transition($repeat($get(progress_char),$get(progress)),$get(progress_color1a),$get(progress_color1))
$transition($repeat($get(progress_char),$sub($get(progress_length),$get(progress))),$get(progress_color2a),$get(progress_color2))c0c0c0
$pad_right($muldiv(%_time_elapsed_seconds%,100,%_length_seconds%),3)'%'
,streaming...
)
)

$get(progressbar)
Последний раз редактировалось Zalexi 06.05.2006, 02:26, всего редактировалось 1 раз.
Zalexi M
Новичок
Возраст: 47
Откуда: Spain
Репутация: 0
С нами: 10 лет 8 месяцев

Сообщение #12 STALK.ER » 06.05.2006, 11:34

Zalexi

А как этот прогресс бар сместить немного влево на 1-у букву....??????
STALK.ER
Гость

Сообщение #13 kzz » 06.05.2006, 11:45

2STALK.ER
Уменьшить Horizontal padding?
kzz M
Бывалый
Репутация: 0
С нами: 10 лет 8 месяцев

Сообщение #14 STALK.ER » 06.05.2006, 13:32

kzz

да спасибо, не туда тыркнул первый раз.....
STALK.ER
Гость

Сообщение #15 Russell777 » 02.06.2006, 15:57

Если кто желает то вот моя фича показывает степень сжатости файла и его качество
Чем больше сжатие тем длинее полоска.Чем хуже качество тем краснее чем лучше тем зеленее
Белый-Lossless (без потери качества)

Код: Выделить всё
 $puts(precent,$sub(100,$div($mul(100,$info(bitrate)),1411)))
 $char(10)
$rgb(250,250,250)
$if($not($or($stricmp(%codec%,'pcm'))$stricmp(%codec%,'CDDA')),

$puts(qwerty,$div($mul(250,$sub(91,$get(precent))),35))
$puts(qwert,$add($get(qwerty),155))
$rgb()$repeat($char(171),4)
$transition($repeat($char(171),$mul($sub($get(precent),67),1)),$rgb(0,250,0),$rgb($sub(250,$get(qwerty)),$get(qwert),0))

$puts(show,$sub(1000,$muldiv(1000,$info(bitrate),1411)))
$puts(rest,$substr($get(show),3,3))
$substr($get(show),1,2)
$if($greater($get(rest),0),'.'$get(rest),)'%',


$rgb()'Uncompressed media')





[img width=150 height=106]http://img224.imageshack.us/img224/7224/foo9dy.th.png[/img]

[img width=150 height=106]http://img46.imageshack.us/img46/961/goo3tr.th.png[/img]

использован шрифт franklin gothic medium так что если у вас получится не очень красиво
то поменяйте шрифт или $char(171) на то что вам подходит.
Последний раз редактировалось Russell777 02.06.2006, 17:05, всего редактировалось 1 раз.
I extremely hate piracy but I love all free of charge.
Изображение
Russell777 M
Мастер
Возраст: 36
Откуда: Беер Шева
Репутация: 3
С нами: 10 лет 7 месяцев

Сообщение #16 Alex Jade » 14.06.2006, 01:41

Warchief писал(а):Ребята, а есть у кого-нибудь скрипт Trackinfo Panel с вертикальным прогресбаром?
В Trackinfo проблемно а в OSD все работает:
▲$char(10)$progress(%playback_time_seconds%,%_length_seconds%,20,█$char(10),$char(32)$char(10))▼
Последний раз редактировалось Alex Jade 14.06.2006, 01:52, всего редактировалось 1 раз.
Изображение Изображение
Alex Jade M
Бывалый
Возраст: 32
Откуда: Мурманск
Репутация: 2
С нами: 10 лет 8 месяцев

Сообщение #17 Lite » 14.06.2006, 20:06

Простейший вертикальный прогрессбар

Изображение

Код: Выделить всё
// Progress Bar Config
$puts(color1,$rgb(227 , 122 , 76,  227 , 122 , 76))
$puts(color2,$rgb(170 , 134 , 98, 170 , 134 , 98))
$puts(progbarchar,-$char(10))
$puts(proglen,45)
$puts(sec1,$div(%_time_total_seconds%,$get(proglen)))
$puts(sec2,$mul($get(sec1),2))
$puts(sec3,$mul($get(sec1),3))
$puts(sec4,$mul($get(sec1),4))
$puts(sec5,$mul($get(sec1),5))
$puts(sec6,$mul($get(sec1),6))
$puts(sec7,$mul($get(sec1),7))
$puts(sec8,$mul($get(sec1),8))
$puts(sec9,$mul($get(sec1),9))
$puts(sec10,$mul($get(sec1),10))
$puts(sec11,$mul($get(sec1),11))
$puts(sec12,$mul($get(sec1),12))
$puts(sec13,$mul($get(sec1),13))
$puts(sec14,$mul($get(sec1),14))
$puts(sec15,$mul($get(sec1),15))
$puts(sec16,$mul($get(sec1),16))
$puts(sec17,$mul($get(sec1),17))
$puts(sec18,$mul($get(sec1),18))
$puts(sec19,$mul($get(sec1),19))
$puts(sec20,$mul($get(sec1),20))
$puts(sec21,$mul($get(sec1),21))
$puts(sec22,$mul($get(sec1),22))
$puts(sec23,$mul($get(sec1),23))
$puts(sec24,$mul($get(sec1),24))
$puts(sec25,$mul($get(sec1),25))
$puts(sec26,$mul($get(sec1),26))
$puts(sec27,$mul($get(sec1),27))
$puts(sec28,$mul($get(sec1),28))
$puts(sec29,$mul($get(sec1),29))
$puts(sec30,$mul($get(sec1),30))
$puts(sec31,$mul($get(sec1),31))
$puts(sec32,$mul($get(sec1),32))
$puts(sec33,$mul($get(sec1),33))
$puts(sec34,$mul($get(sec1),34))
$puts(sec35,$mul($get(sec1),35))
$puts(sec36,$mul($get(sec1),36))
$puts(sec37,$mul($get(sec1),37))
$puts(sec38,$mul($get(sec1),38))
$puts(sec39,$mul($get(sec1),39))
$puts(sec40,$mul($get(sec1),40))
$puts(sec41,$mul($get(sec1),41))
$puts(sec42,$mul($get(sec1),42))
$puts(sec43,$mul($get(sec1),43))
$puts(sec44,$mul($get(sec1),44))
$puts(sec45,$mul($get(sec1),45))

$ifgreater(%_time_elapsed_seconds%,1,$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec1),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec2),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec3),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec4),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec5),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec6),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec7),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec8),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec9),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec10),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec11),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec12),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec13),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec14),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec15),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec16),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec17),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec18),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec19),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec20),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec21),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec22),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec23),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec24),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec25),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec26),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec27),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec28),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec29),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec30),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec31),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec32),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec33),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec34),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec35),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec36),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec37),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec38),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec39),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec40),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec41),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec42),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec43),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec44),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
$ifgreater(%_time_elapsed_seconds%,$get(sec45),$get(color1)$get(progbarchar),$get(color2)$get(progbarchar))
Lite M
Бывалый
Аватара
Возраст: 41
Откуда: С-Петербург
Репутация: 0
С нами: 10 лет 8 месяцев

Сообщение #18 Russell777 » 14.06.2006, 20:44

Можно чуть короче:
Код: Выделить всё
$puts(percent,$muldiv(%_time_elapsed_seconds%,100,%_time_total_seconds%))
$puts(length,15)
$puts(progress,$muldiv($get(length),$get(percent),100))
$repeat($rgb(100,100,0)$char(9606)$char(10),$sub($get(length),$get(progress)))
$repeat($rgb(250,250,0)$char(9606)$char(10),$get(progress))

Изображение

Mishail: сжал картинку.
Последний раз редактировалось Mishail 15.06.2006, 12:25, всего редактировалось 1 раз.
I extremely hate piracy but I love all free of charge.
Изображение
Russell777 M
Мастер
Возраст: 36
Откуда: Беер Шева
Репутация: 3
С нами: 10 лет 7 месяцев

Сообщение #19 Lite » 14.06.2006, 20:58

2Russell777
Твой решает!  :)
Lite M
Бывалый
Аватара
Возраст: 41
Откуда: С-Петербург
Репутация: 0
С нами: 10 лет 8 месяцев

Сообщение #20 Kildor » 15.06.2006, 06:44

Russell777:
вы кроме bmp других форматов не знаете??? или считаете что у всех анлим???
Последний раз редактировалось Sp1ke 19.06.2006, 11:01, всего редактировалось 1 раз.
Kildor M
Бывалый
Возраст: 33
Откуда: Новосибирск
Репутация: 0
С нами: 10 лет 8 месяцев

След.

Вернуться в Секреты foobar2000