Радуга TitleForm

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

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

Сообщение #1 Exciter » 17.05.2006, 07:37

:-[ Вот вам мой бесполезный, но красивый скрипт-радуга, может кому пригодится:
Код: Выделить всё
$puts(total,%_playlist_total%)
$puts(del,1530)
$ifgreater($get(del),$get(total),$puts(otn,$div($get(del),$get(total))),$puts(otn,$div($get(total),$get(del))))

$puts(play,%_playlist_number%)
$puts(a,0)
$puts(b,0)
$puts(c,0)
$ifgreater($get(del),$get(total), $puts(playkoef, $mul($get(play),$get(otn))),$puts(playkoef, $div($get(play),$get(otn))))
$puts(play, $get(playkoef))

$ifgreater(1529,$get(play),$puts(pl,$get(play)),)
$ifgreater($get(play),1529,$ifgreater($get(play),3059,,$puts(pl,$sub($get(play),1529))),)
$ifgreater($get(play),3059,$ifgreater($get(play),4589,,$puts(pl,$sub($get(play),3059))),)
$ifgreater($get(play),4589,$ifgreater($get(play),6119,,$puts(pl,$sub($get(play),4589))),)
$ifgreater($get(play),6119,$ifgreater($get(play),7649,,$puts(pl,$sub($get(play),6119))),)

$ifgreater($get(pl),254,,$puts(a,254)$puts(b,$get(pl)))
$ifgreater($get(pl),254,$ifgreater($get(pl),509,,$puts(b,255)$puts(a,$sub(510,$get(pl)))),)
$ifgreater($get(pl),509,$ifgreater($get(pl),764,,$puts(b,255)$puts(c,$sub($get(pl),510))),)
$ifgreater($get(pl),764,$ifgreater($get(pl),1019,,$puts(c,255)$puts(b,$sub(1020,$get(pl)))),)
$ifgreater($get(pl),1019,$ifgreater($get(pl),1274,,$puts(c,255)$puts(a,$sub($get(pl),1020))),)
$ifgreater($get(pl),1274,$ifgreater($get(pl),1529,,$puts(a,255)$puts(c,$sub(1529,$get(pl)))),)
$rgb($get(a),$get(b),$get(c))

//Битрейт
$repeat(0,$sub(3,$len(%__bitrate%)))
%__bitrate%kb
[' '%__extrainfo%]

[img width=30 height=400]http://s54.radikal.ru/i143/0909/51/8b1b0d9790cf.jpg[/img]

Скрипт раскрашивает элементы столбцов(в данном случае битрейт) по одному полному спектру(радуга), вне зависимости от кол-ва элементов в плейлисте. ;)
Последний раз редактировалось Exciter 22.09.2009, 21:30, всего редактировалось 1 раз.
Exciter
Автор темы
Откуда: Питер
Репутация: 0
С нами: 17 лет 10 месяцев

Сообщение #2 Ukko » 17.05.2006, 07:49

2Exciter

Если не сложно, выкладывай картинку работы скрипта к сообщению..

Так удобнее для остальных %)
Ukko M
Откуда: Удмуртия, г. Глазов
Репутация: 0
С нами: 17 лет 10 месяцев

Сообщение #3 Alex Jade » 29.05.2006, 21:08

Модифицированная "радуга":
Код: Выделить всё
$puts(total,%_playlist_total%)
$puts(del,1530)
$ifgreater($get(del),$get(total),$puts(otn,$div($get(del),$get(total))),$puts(otn,$div($get(total),$get(del))))

$puts(play,%_playlist_number%)
$puts(a,0)
$puts(b,0)
$puts(c,0)
$ifgreater($get(del),$get(total), $puts(playkoef, $mul($get(play),$get(otn))),$puts(playkoef, $div($get(play),$get(otn))))
$puts(play, $get(playkoef))

$ifgreater(1529,$get(play),$puts(pl,$get(play)),)
$ifgreater($get(play),1529,$ifgreater($get(play),3059,,$puts(pl,$sub($get(play),1529))),)
$ifgreater($get(play),3059,$ifgreater($get(play),4589,,$puts(pl,$sub($get(play),3059))),)
$ifgreater($get(play),4589,$ifgreater($get(play),6119,,$puts(pl,$sub($get(play),4589))),)
$ifgreater($get(play),6119,$ifgreater($get(play),7649,,$puts(pl,$sub($get(play),6119))),)

$ifgreater($get(pl),254,,$puts(a,254)$puts(b,$get(pl)))
$ifgreater($get(pl),254,$ifgreater($get(pl),509,,$puts(b,255)$puts(a,$sub(510,$get(pl)))),)
$ifgreater($get(pl),509,$ifgreater($get(pl),764,,$puts(b,255)$puts(c,$sub($get(pl),510))),)
$ifgreater($get(pl),764,$ifgreater($get(pl),1019,,$puts(c,255)$puts(b,$sub(1020,$get(pl)))),)
$ifgreater($get(pl),1019,$ifgreater($get(pl),1274,,$puts(c,255)$puts(a,$sub($get(pl),1020))),)
$ifgreater($get(pl),1274,$ifgreater($get(pl),1529,,$puts(a,255)$puts(c,$sub(1529,$get(pl)))),)
$rgb($get(a),$get(b),$get(c),$get(a),$get(b),$get(c))

//Битрейт
$repeat(0,$sub(3,$len(%__bitrate%)))
%__bitrate%kb
[' '%__extrainfo%]
Alex Jade M
Откуда: Мурманск
Репутация: 2
С нами: 17 лет 10 месяцев

Сообщение #4 Exciter » 30.05.2006, 08:38

На самом деле не такой уж и бесполезный скрипт. На задний фон выставил затемненный его аналог и теперь он немножко помогает ориентироваться в больших плейлистах...
Exciter
Автор темы
Откуда: Питер
Репутация: 0
С нами: 17 лет 10 месяцев


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