#
#		Mikrotik  酷炫拽霸天_ROS_小苹果版
#		Version 1.9 1月19号 2017
#		测试环境与设备 GNS3 Putty Winbox RB951
#		此脚本发于“RouterOS 技术实验室”QQ群 群号：71773725
#		仅供学习参考使用，请勿它用！
#			by: 雷神琦   qq: 56001672
#
#		使用说明:	sLedType参数是Led灯配合类型（暂时只支持三种类型，1为循环闪烁，2为来回闪烁，3为根据音频闪烁）
#						sLeds参数是Mikrotik LED灯数如(led1,led2,led3,led4,led5总共5个灯)为兼容有线RB故没有使用WIFI灯
#						本脚本只能用在正版RB上，CCR、CRS灯太多按理来说是要修改后才可以使用。X86机器只能另外下载纯音乐版LED没法控制。
#
#		特此感谢群大神的指导:	浙江-希望 某大神 老婆大人
#
#		PS:在运行脚本前要先用以下命令：
#		1：/system leds> disable numbers=0,1,2,3,4,5
#		2：/system leds> add leds=led1 type=off disabled=no
#			不玩了可以用以下命令来还原RB上 LED灯
#		1：/system leds disable numbers=6  
#		2：/system leds enable  numbers=0,1,2,3,4,5
#
local yy [toarray "880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,659,115ms,135ms,1046,345ms,405ms,988,230ms,270ms,880,230ms,270ms,659,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,880,460ms,540ms,784,230ms,270ms,880,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,115ms,135ms,1175,345ms,405ms,1318,230ms,270ms,1175,230ms,270ms,784,230ms,270ms,880,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,784,230ms,270ms,880,230ms,270ms,784,230ms,270ms,784,115ms,135ms,880,115ms,135ms,1046,230ms,270ms,1175,230ms,270ms,1568,230ms,270ms,1397,230ms,270ms,1318,230ms,270ms,1046,460ms,540ms,659,230ms,270ms,784,230ms,270ms,880,230ms,540ms,784,230ms,270ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1760,115ms,135ms,1175,345ms,405ms,1046,230ms,270ms,880,230ms,270ms,659,230ms,270ms,784,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1568,230ms,270ms,880,460ms,540ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,880,110ms,130ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,415,110ms,130ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,784,110ms,270ms,880,1040ms,1080ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,880,110ms,130ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,415,110ms,130ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,784,110ms,270ms,880,130ms,130ms,880,770ms,810ms,880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1046,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,500ms,540ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,880,230ms,270ms,784,230ms,270ms,880,230ms,270ms,784,230ms,270ms,880,920ms,1080ms,880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1046,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,920ms,1080ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1175,230ms,270ms,880,920ms,1080ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,1175,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,988,460ms,540ms,1046,460ms,540ms,1046,230ms,270ms,988,230ms,270ms,880,460ms,540ms,988,230ms,270ms,1046,230ms,270ms,1175,460ms,540ms,784,460ms,540ms,1760,230ms,270ms,1568,230ms,270ms,1318,460ms,540ms,1318,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1175,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1568,230ms,270ms,1568,460ms,540ms,1568,230ms,270ms,1568,230ms,270ms,1568,230ms,270ms,1568,230ms,270ms,1568,460ms,540ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1175,230ms,270ms,880,920ms,1080ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,1175,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,988,460ms,540ms,1046,460ms,540ms,1046,230ms,270ms,988,230ms,270ms,880,460ms,540ms,988,230ms,270ms,1046,230ms,270ms,1175,460ms,540ms,784,460ms,540ms,1760,230ms,270ms,1568,230ms,270ms,1318,460ms,540ms,1318,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1175,230ms,270ms,1318,230ms,270ms,1175,460ms,540ms,1568,460ms,540ms,880,460ms,540ms,1760,230ms,270ms,1046,230ms,270ms,880,1080ms,1080ms,880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,659,115ms,135ms,1046,345ms,405ms,988,230ms,270ms,880,230ms,270ms,659,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,880,460ms,540ms,784,230ms,270ms,880,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,115ms,135ms,1175,345ms,405ms,1318,230ms,270ms,1175,230ms,270ms,784,230ms,270ms,880,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,784,230ms,270ms,880,230ms,270ms,784,230ms,270ms,784,115ms,135ms,880,115ms,135ms,1046,230ms,270ms,1175,230ms,270ms,1568,230ms,270ms,1397,230ms,270ms,1318,230ms,270ms,1046,460ms,540ms,659,230ms,270ms,784,230ms,270ms,880,230ms,540ms,784,230ms,270ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1760,115ms,135ms,1175,345ms,405ms,1046,230ms,270ms,880,230ms,270ms,659,230ms,270ms,784,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1568,230ms,270ms,880,460ms,540ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,880,110ms,130ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,415,110ms,130ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,784,110ms,270ms,880,1040ms,1080ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,880,110ms,130ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,230ms,270ms,1046,110ms,130ms,415,110ms,130ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,784,110ms,270ms,880,130ms,130ms,880,770ms,810ms,880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1046,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,500ms,540ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,880,230ms,270ms,784,230ms,270ms,880,230ms,270ms,784,230ms,270ms,880,920ms,1080ms,880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1046,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,230ms,270ms,880,230ms,270ms,988,920ms,1080ms,784,230ms,270ms,784,230ms,270ms,784,230ms,270ms,880,230ms,270ms,988,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,988,230ms,270ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1175,230ms,270ms,880,920ms,1080ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,1175,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,988,460ms,540ms,1046,460ms,540ms,1046,230ms,270ms,988,230ms,270ms,880,460ms,540ms,988,230ms,270ms,1046,230ms,270ms,1175,460ms,540ms,784,460ms,540ms,1760,230ms,270ms,1568,230ms,270ms,1318,460ms,540ms,1318,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1175,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1568,230ms,270ms,1568,460ms,540ms,1568,230ms,270ms,1568,230ms,270ms,1568,230ms,270ms,1568,230ms,270ms,1568,460ms,540ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1175,230ms,270ms,880,920ms,1080ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,1175,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,988,460ms,540ms,1046,460ms,540ms,1046,230ms,270ms,988,230ms,270ms,880,460ms,540ms,988,230ms,270ms,1046,230ms,270ms,1175,460ms,540ms,784,460ms,540ms,1760,230ms,270ms,1568,230ms,270ms,1318,460ms,540ms,1318,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1175,230ms,270ms,1318,230ms,270ms,1175,460ms,540ms,1568,460ms,540ms,880,460ms,540ms,1760,230ms,270ms,1046,230ms,270ms,880,1080ms,1080ms,1318,230ms,270ms,1760,115ms,135ms,1760,115ms,135ms,1568,230ms,270ms,1760,230ms,270ms,1568,230ms,270ms,1760,230ms,270ms,1046,230ms,270ms,1760,230ms,270ms,1318,230ms,270ms,1760,115ms,135ms,1760,115ms,135ms,1568,230ms,270ms,1760,230ms,270ms,1046,230ms,270ms,1976,230ms,270ms,1568,230ms,270ms,1760,230ms,270ms,1318,230ms,270ms,1760,115ms,135ms,1760,115ms,135ms,1568,230ms,270ms,1760,230ms,270ms,1568,230ms,270ms,1760,230ms,270ms,1046,230ms,270ms,1760,230ms,270ms,1318,230ms,270ms,1760,115ms,135ms,1760,115ms,135ms,1568,230ms,270ms,1760,230ms,270ms,1046,230ms,270ms,1976,230ms,270ms,1568,230ms,270ms,1760,230ms,270ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1175,230ms,270ms,880,920ms,1080ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,1175,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,988,460ms,540ms,1046,460ms,540ms,1046,230ms,270ms,988,230ms,270ms,880,460ms,540ms,988,230ms,270ms,1046,230ms,270ms,1175,460ms,540ms,784,460ms,540ms,1760,230ms,270ms,1568,230ms,270ms,1318,460ms,540ms,1318,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1175,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1318,230ms,270ms,1175,230ms,270ms,1568,230ms,270ms,1568,460ms,540ms,1568,230ms,270ms,1568,230ms,270ms,1568,230ms,270ms,1568,230ms,270ms,1568,460ms,540ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,880,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,230ms,270ms,1175,230ms,270ms,880,920ms,1080ms,1318,460ms,540ms,1046,460ms,540ms,1175,460ms,540ms,1175,460ms,540ms,1568,230ms,270ms,1318,230ms,270ms,988,460ms,540ms,1046,460ms,540ms,1046,230ms,270ms,988,230ms,270ms,880,460ms,540ms,988,230ms,270ms,1046,230ms,270ms,1175,460ms,540ms,784,460ms,540ms,1760,230ms,270ms,1568,230ms,270ms,1318,460ms,540ms,1318,460ms,540ms,1318,230ms,270ms,1175,230ms,270ms,1046,460ms,540ms,1175,230ms,270ms,1318,230ms,270ms,1175,460ms,540ms,1568,460ms,540ms,880,460ms,540ms,1760,230ms,270ms,1046,230ms,270ms,880,1080ms,1080ms"]

local sLedType 3;
local sLeds 5;

local sMod do={ return ($1-($1/$2)*$2) };
local fPercent do={ return ((($1-$3)*$4)/($2-$3)) };
local getLeds do={ /system leds set leds="led$1" type=on numbers=6 disabled=no };
local getLedsbyBeep do={ :local sTmpStr ""; :local ii 1; :local sSnum $1; if ($sSnum <= 0) do={ set $sSnum 1; };
	do { if ($ii > 1) do={ set $sTmpStr "$sTmpStr," }; set $sTmpStr ($sTmpStr . "led$ii"); set $ii ($ii+1); } while ( $ii<=$sSnum );
	/system leds set leds=$sTmpStr type=on numbers=6 disabled=no };
local sbeep do={ beep length=$2 frequency=$1; delay $3 };

local yLen [len $yy]; :local sLen 0;
if ([$sMod $yLen 3] != 0) do={ :log warning "Input frequency data errors!!! Input data length: $yLen"; :error "Input frequency data errors!!! Input data length: $yLen" };
log info "Start Beep And Leds"
local fMin 0; :local fMax 0;
set sLen 0; while ($sLen < $yLen) do={ :local fTmp 0; set $fTmp [pick $yy $sLen];
	if ($fTmp > $fMax or $fMax = 0) do={ set $fMax $fTmp };
	if ($fTmp < $fMin or $fMin = 0) do={ set $fMin $fTmp };
	set $sLen ($sLen+3) };
log info "Min frequency : $fMin"
log info "Max frequency : $fMax"
local iNum 0; :local tmpfh "+"; :local saNum 0; :local tmpNum 0;
set sLen 0; while ($sLen < $yLen) do={
	:local sSs ""; :local sFr ""; :local sDe "";
	set $sFr [pick $yy $sLen]; set $sLen ($sLen+1);
	set $sSs [pick $yy $sLen]; set $sLen ($sLen+1);
	set $sDe [pick $yy $sLen]; set $sLen ($sLen+1);
	if ($sLedType = 1) do={ $getLeds ([$sMod $iNum $sLeds]+1); set $iNum ($iNum+1) };
	if ($sLedType = 2) do={
		if ($iNum = $sLeds) do={ set tmpfh "-" }; if ($iNum = 1) do={ set tmpfh "+" };
		if ($tmpfh = "-") do={ set $iNum ($iNum-1) } else={ set $iNum ($iNum+1) };
		$getLeds $iNum };
	if ($sLedType = 3) do={ set $tmpNum [$fPercent $sFr $fMax $fMin $sLeds];
		if ($tmpNum > $saNum and $saNum <= $sLeds) do={ set $saNum ($saNum+1) } else={ set $saNum ($saNum-1) }; $getLedsbyBeep $saNum; };
	$sbeep $sFr $sSs $sDe };
/system leds set leds=led1 type=on numbers=6 disabled=no;
/system leds set leds=led1 type=off numbers=6 disabled=no;
log info "End Beep And Leds"