我也来添加
:set f "349,330,262,262,196,262,392,349,330,294,262,247,220,262,294,330,294,220,294,440,349,330,294,262,262,247,247,262,294,262,196,196,196,175,165,175,196,165,165,165,165,330,294,262,262,220,349,349,220,349,349,220,262,294,0,196,330,330,330,330,294,330,196,330,196,294,294,294,262,262,247,165,220,220,349,349,349,330,349,349,349,330,349,220,262,294,25,196,330,330,330,330,294,330,196,330,196,294,294,294,262,262,247,165,220,220,349,349,349,330,349,349,349,330,349,220,262,294,330,294,294,196,196,196,175,165,175,196,165,165,165,165,330,294,262,262,220,349,349,220,349,349,349,330,294,262,262,25,196,294,262,262";:set d "3s,1s,4s,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,2s,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,2s,4s,750ms,250ms,250ms,250ms,250ms,250ms,2s,500ms,250ms,250ms,250ms,500ms,250ms,1s,500ms,500ms,500ms,500ms,1s,500ms,500ms,500ms,500ms,2s,1s,250ms,250ms,250ms,250ms,250ms,250ms,250ms,500ms,1750ms,250ms,250ms,250ms,250ms,250ms,250ms,250ms,500ms,1750ms,250ms,250ms,250ms,250ms,250ms,750ms,250ms,250ms,250ms,500ms,500ms,500ms,3s,750ms,250ms,250ms,250ms,250ms,250ms,250ms,250ms,500ms,1750ms,250ms,250ms,250ms,250ms,250ms,250ms,250ms,500ms,1750ms,250ms,250ms,250ms,250ms,250ms,750ms,250ms,250ms,250ms,500ms,500ms,500ms,500ms,250ms,250ms,3s,750ms,250ms,250ms,250ms,250ms,250ms,2s,500ms,250ms,250ms,250ms,500ms,250ms,1s,500ms,500ms,500ms,500ms,1s,500ms,500ms,500ms,500ms,250ms,250ms,2s,750ms,250ms,250ms,250ms,3s";:set i 0 ; :while ($i<166) do={:beep freq=([:pick $f $i ($i+1)]*2) len=[:pick $d $i ($i+1)];:delay [:pick $d $i ($i+1)];:set i ($i+1)} |