[转帖]新手试发帖子
北京欢迎你A:
:set f "659,784,659,578,659,578,659,659,578,440,523,659,578,578,523,440,523,578,659,784,578,659,880,784,392,578,523";:set d "500ms,500ms,500ms,500ms,500ms,500ms,1s,750ms,250ms,500ms,500ms,500ms,1500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,1500ms";:set i 0 ;:while ($i<27) do={:beep len=[:pick $d $i ($i+1)] freq=([:pick $f $i ($i+1)]);:delay [:pick $d $i ($i+1)];:set i ($i+1)}
B:
:set f "578,523,440,523,578,659,784,578,659,880,784,784,659,578,659,578,523,784,880,659,440,659,578,578,523";:set d "500ms,1500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,2s,500ms,500ms,500ms,500ms,750ms,250ms,1s,500ms,500ms,500ms,500ms,1500ms";:set i 0 ;:while ($i<25) do={:beep len=[:pick $d $i ($i+1)] freq=([:pick $f $i ($i+1)]);:delay [:pick $d $i ($i+1)];:set i ($i+1)}
C:
:set f "659,784,1046,784,880,784,880,784,659,659,784,784,659,784,880,1046,1175,1046,784,659,578,784,659,659,659,784,1046,784,880,1046,1175,1046,784,659,784,1046,880,659,578,659,880,1318,1175,1175,1046";:set d "500ms,500ms,500ms,500ms,1500ms,500ms,500ms,500ms,500ms,500ms,500ms,1500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,500ms,1s,500ms,2s,500ms,500ms,500ms,500ms,1500ms,500ms,750ms,250ms,500ms,500ms,500ms,500ms,1500ms,500ms,500ms,500ms,500ms,500ms,1500ms,500ms,3500ms";:set i 0 ;:while ($i<45) do={:beep len=[:pick $d $i ($i+1)] freq=([:pick $f $i ($i+1)]);:delay [:pick $d $i ($i+1)];:set i ($i+1)}
整合整首：
:set f "A,A,B,A,B,C,A,B,C,C,B,C,A,B,C,C,C,C";:set d "16,16,16,16,16,32,16,16,32,32,16,16,16,16,32,32,32,32";:set i 0 ;:while ($i<18) do={/system script run ([:pick $f $i ($i+1)]);:delay ([:pick $d $i ($i+1)]);:set i ($i+1)}
页:
[1]