Dneska jsem ze střechy stáhl RB411AH s nafouknutýma kondíkama a v jeho útrobách našel tenhle můj starý skript... fotografie to není, tak snad to bude aspoň trochu vtipný :)
:global data (500,560,620,650,720,610,720,720,780,650,780,780,720,610,720,720,500,560,620,650,720,610,720,720,780,650,780,780,720,720,720,720)
:global len1 "110ms"
:global delay1 "120ms"
:global len2 "10ms"
:global delay2 "20ms"
:global count 1
:while ($count>0) do={
:foreach nota in $data do={ :beep length=$len1 frequency=$nota; :delay $delay1; :beep length=$len2 frequency=($nota-120); :delay $delay2 }
:set count ($count-1);
};
