Код:
///BluewOrk RU v.230822
//
$set_ps_global(fs1,$div($add(%ps_width%,%ps_height%),130))
$set_ps_global(fs2,$div($add(%ps_width%,%ps_height%),100))
$set_ps_global(ue,$div(%ps_width%,130))
//$set_ps_global(ue,10)
$set_ps_global(ue2,$div(%ue%,2))
$set_ps_global(color0,20-30-40)
$set_ps_global(color2,40-60-80)
//$set_ps_global(color2,60-80-100)
$set_ps_global(color3,155-200-255)
$set_ps_global(bs,$mul(%ue%,3))
$set_ps_global(bs2,$mul(%ue2%,3))
$set_ps_global(pw0,$div(%ps_width%,3))
$set_ps_global(pwa,$mul(%pw0%,2))
$set_ps_global(pwb,$sub($mul(%pw0%,1),%bs%))
$set_ps_global(ph1,$sub(%ps_height%,$mul(%ue%,5)))
$set_ps_global(ph2,$sub(%ps_height%,$mul(%ue%,10)))
$set_ps_global(b_options1,fontcolor:%color2% brushcolor:%color3% pencolor:%color2%)
$set_ps_global(b_options2,fontcolor:%color3% brushcolor:%color2% pencolor:%color2%)
$set_ps_global(b_options11,fontcolor:%color0% brushcolor:%color3% pencolor:%color3%)
$set_ps_global(b_options22,fontcolor:%color3% brushcolor:%color2% pencolor:%color2%)
$set_ps_global(plps,$if(%isplaying%,$if(%ispaused%,,),))
//
$textbutton(0,0,1,1,,,COMMAND:Справка/О программе)
//
$fillrect(0,0,%ps_width%,%ps_height%,%color2%)
$fillrect(4,4,$sub(%ps_width%,8),$sub(%ps_height%,8),%color3%)
//
$font(FontAwesome,%fs1%)
$fillrect(0,0,%pwa%,%ph1%,%color3%)
$fillrect(4,4,$sub(%pwa%,4),$sub(%ph1%,4),%color2%)
$textbutton(%ue%,$sub(%ps_height%,$mul(%ue%,4)),%bs%,%bs%,,,COMMAND:Вид/Во весь экран,%b_options1%,%b_options2%)
$fillrect($sub(%ue%,2),$sub(%ps_height%,$add($mul(%ue%,4),2)),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($mul(%ue%,6),$sub(%ps_height%,$mul(%ue%,4)),%bs%,%bs%,,,PANELSHOW:a2:0;PANELSHOW:a3:0;PANELSHOW:b2:0;PANELSHOW:a1:1;PANELSHOW:b1:1;REFRESH,%b_options1%,%b_options2%)
$fillrect($sub($mul(%ue%,6),2),$sub(%ps_height%,$add($mul(%ue%,4),2)),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($mul(%ue%,10),$sub(%ps_height%,$mul(%ue%,4)),%bs%,%bs%,,,PANELSHOW:a1:0;PANELSHOW:a3:0;PANELSHOW:b1:0;PANELSHOW:a2:1;PANELSHOW:b2:1;REFRESH,%b_options1%,%b_options2%)
$fillrect($sub($mul(%ue%,10),2),$sub(%ps_height%,$add($mul(%ue%,4),2)),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($mul(%ue%,14),$sub(%ps_height%,$mul(%ue%,4)),%bs%,%bs%,,,PANELSHOW:a1:0;PANELSHOW:a2:0;PANELSHOW:b2:0;PANELSHOW:a3:1;PANELSHOW:b1:1;REFRESH,%b_options1%,%b_options2%)
$fillrect($sub($mul(%ue%,14),2),$sub(%ps_height%,$add($mul(%ue%,4),2)),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($mul(%ue%,20),$sub(%ps_height%,$mul(%ue%,4)),%bs%,%bs%,,,COMMAND:Воспроизведение/Предыдущий трек,%b_options1%,%b_options2%)
$fillrect($sub($mul(%ue%,20),2),$sub(%ps_height%,$add($mul(%ue%,4),2)),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($mul(%ue%,24),$sub(%ps_height%,$mul(%ue%,4)),%bs%,%bs%,%plps%,%plps%,COMMAND:Воспроизведение/Воспроизвести или приостановить,%b_options1%,%b_options2%)
$fillrect($sub($mul(%ue%,24),2),$sub(%ps_height%,$add($mul(%ue%,4),2)),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($mul(%ue%,28),$sub(%ps_height%,$mul(%ue%,4)),%bs%,%bs%,,,COMMAND:Воспроизведение/Следующий трек,%b_options1%,%b_options2%)
$fillrect($sub($mul(%ue%,28),2),$sub(%ps_height%,$add($mul(%ue%,4),2)),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($add(%pwa%,%ue%),%ue%,%bs%,%bs%,,,COMMAND:Вид/Показать основное меню,%b_options1%,%b_options2%)
$fillrect($sub($add(%pwa%,%ue%),2),$sub(%ue%,2),$add(%bs%,4),$add(%bs%,4),%color2%)
$textbutton($sub(%ps_width%,$add(%ue%,%bs%)),%ue%,%bs%,%bs%,,,COMMAND:Файл/Выход,%b_options1%,%b_options2%)
$fillrect($sub(%ps_width%,$add(%ue%,$add(%bs%,2))),$sub(%ue%,2),$add(%bs%,4),$add(%bs%,4),%color2%)
$movepanel_c(s,$mul(%ue%,32),$sub(%ps_height%,$mul(%ue%,4)),$sub(%ps_width%,$mul(%ue%,54)),%bs%)
$movepanel_c(v,$sub(%ps_width%,$mul(%ue%,21)),$sub(%ps_height%,$mul(%ue%,4)),$mul(%ue%,20),%bs%)
$movepanel_c(a1,%ue%,%ue%,$sub(%pwa%,%bs2%),$sub(%ph1%,%bs2%))
$movepanel_c(a2,%ue%,%ue%,$sub(%pwa%,%bs2%),$sub(%ph1%,%bs2%))
$movepanel_c(a3,%ue%,%ue%,$sub(%pwa%,%bs2%),$sub(%ph1%,%bs2%))
$movepanel_c(b1,$add(%pwa%,%ue%),$mul(%ue%,5),%pwb%,%ph2%)
$movepanel_c(b2,$add(%pwa%,%ue%),$mul(%ue%,5),%pwb%,%ph2%)
$movepanel_c(t,$add(%pwa%,$mul(%bs%,2)),%ue%,$mul(%bs%,10),%bs%)
