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

[DruiD]

Предлагаю в этой теме делиться конфигами для плагина Trackinfo Panel
Выкладываем код и по возможности скриншот (рекомендую http://imageshack.us)

[DruiD]

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

Код: Выделить всё

//прогресс бар
$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)


[Lite]

Слегка модифицированный прогрессбар 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)

[Warchief]

Ребята, а есть у кого-нибудь скрипт Trackinfo Panel с вертикальным прогресбаром?

[Elzor]

Не видел такого но не думаю что будет собо сложно написать. Завтра на работе попробую свой переделать, и запощу. А тебе зачем?

[DruiD]

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

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

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

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

или

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

[STALK.ER]

DruiD

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

[DruiD]

А не подскажешь как сделать для 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]

А не подскажешь как сделать для 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)

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

[mgz]

[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)

[Zalexi]

Я тут сделал сборную солянку. Благодарности 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)

[STALK.ER]

Zalexi

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

[kzz]

2STALK.ER
Уменьшить Horizontal padding?

[STALK.ER]

kzz

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

[Russell777]

Если кто желает то вот моя фича показывает степень сжатости файла и его качество
Чем больше сжатие тем длинее полоска.Чем хуже качество тем краснее чем лучше тем зеленее
Белый-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) на то что вам подходит.

[Alex Jade]

Ребята, а есть у кого-нибудь скрипт Trackinfo Panel с вертикальным прогресбаром?

В Trackinfo проблемно а в OSD все работает:

▲$char(10)$progress(%playback_time_seconds%,%_length_seconds%,20,█$char(10),$char(32)$char(10))▼

[Lite]

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

Код: Выделить всё

// 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))

[Russell777]

Можно чуть короче:

Код: Выделить всё

$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: сжал картинку.

[Lite]

2Russell777
Твой решает!  :)

[Kildor]

Russell777:
вы кроме bmp других форматов не знаете??? или считаете что у всех анлим???