A Bit of Sounds

From MikroTik Wiki
Jump to: navigation, search

Part One: SQUAWK

The scripts below are based on SQUAWK program (C) 1987 Merlin R. Null.

SQUAWK Chang

 :for j from=1 to=4 step=1 do={
   :for i from=2000 to=50 step=-400 do={
     :beep frequency=$i length=11ms;
     :delay 11ms;
   }
   :for i from=800 to=2000 step=400 do={
     :beep frequency=$i length=11ms;
     :delay 11ms;
   }
 }

SQUAWK Coo

 :for i from=0 to=150 step=10 do={
   :beep frequency=(1295 - i) length=22ms;
   :delay 22ms;
   :beep frequency=(1095 + i) length=22ms;
   :delay 22ms;
 }

SQUAWK Oh!

 :for i from=800 to=2000 step=100 do={
   :beep frequency=$i length=11ms;
   :delay 11ms;
 }
 :for i from=2000 to=50 step=-100 do={
   :beep frequency=$i length=11ms;
   :delay 11ms;
 }

SQUAWK Phone 1

 :for i from=1 to=10 step=1 do={
   :beep frequency=1195 length=22ms;
   :delay 22ms;
   :beep frequency=2571 length=22ms;
   :delay 22ms;
 }

SQUAWK Siren

 :for i from=1 to=3 step=1 do={
   :beep frequency=550 length=494ms;
   :delay 494ms;
   :beep frequency=400 length=494ms;
   :delay 494ms;
 }

SQUAWK Space 1

 :for i from=1000 to=40 step=-20 do={
   :beep frequency=$i length=11ms;
   :delay 11ms;
 }

SQUAWK Space 2

 :for i from=10000 to=500 step=-500 do={
   :beep frequency=$i length=11ms;
   :delay 11ms;
 }

Phone Call

 :for i from=1 to=10 do={
   /system script run "SQUAWK Phone 1";
   :delay 400ms;
   /system script run "SQUAWK Phone 1";
   :delay 2000ms;
 }

Part Two: Adams

The scripts below are based on the code from Lee Adams' book "Grafik, Animation, Simulation fur Personalcomputer" (ISBN 3890905722, Markt&Technik, 1989).

Adams Fanfare

 :for t from=1200 to=350 step=-50 do={
   :beep frequency=$t length=33ms;
   :delay 33ms;
 }

Adams Larm

 :for t1 from=1 to=10 step=1 do={
   :for t2 from=300 to=1800 step=40 do={
     :beep frequency=$t2 length=11ms;
     :delay 11ms;
   }
 }

Adams Maschinengewehr

 :for t from=1 to=20 step=1 do={
   :beep frequency=40 length=33ms;
   :delay 33ms;
   :delay 55ms;
 }

Adams Telefone

 :for t1 from=1 to=4 step=1 do={
   :for t2 from=1 to=25 step=1 do={
     :beep frequency=540 length=33ms;
     :delay 33ms;
     :beep frequency=650 length=27ms;
     :delay 27ms;
   }
   :delay 2000ms;
 }

Adams Tonarkade

 :for t1 from=1 to=8 step=1 do={
     :for t2 from=600 to=750 step=8 do={
     :beep frequency=$t2 length=11ms;
     :delay 11ms;
   }
 }

Adams Tonarkade 2

 :for t from=1250 to=600 step=-8 do={
   :beep frequency=$t length=11ms;
   :delay 11ms;
 }

Part Three: Miklavcic

The scripts below are based on the code from http://snipplr.com/view/9220/simple-tic-tac-toe/

Miklavcic Sad

 :beep frequency=784 length=500ms;
 :delay 500ms;
 
 :beep frequency=738 length=500ms;
 :delay 500ms;
 
 :beep frequency=684 length=500ms;
 :delay 500ms;
 
 :beep frequency=644 length=1000ms;
 :delay 1000ms;

Miklavcic Victory

 :beep frequency=523 length=200ms;
 :delay 1000ms;
 
 :beep frequency=523 length=200ms;
 :delay 1000ms;
 
 :beep frequency=523 length=200ms;
 :delay 1000ms;
 
 :beep frequency=659 length=700ms;
 :delay 700ms;
 
 :beep frequency=784 length=500ms;
 :delay 500ms;
 
 :beep frequency=523 length=200ms;
 :delay 1000ms;
 
 :beep frequency=523 length=200ms;
 :delay 1000ms;
 
 :beep frequency=523 length=200ms;
 :delay 1000ms;
 
 :beep frequency=659 length=700ms;
 :delay 700ms;
 
 :beep frequency=784 length=500ms;
 :delay 800ms;
 
 :beep frequency=784 length=400ms;
 :delay 400ms;
 
 :beep frequency=884 length=200ms;
 :delay 200ms;
 
 :beep frequency=784 length=200ms;
 :delay 200ms;
 
 :beep frequency=687 length=200ms;
 :delay 200ms;
 
 :beep frequency=659 length=200ms;
 :delay 200ms;
 
 :beep frequency=579 length=200ms;
 :delay 200ms;
 
 :beep frequency=519 length=400ms;
 :delay 400ms;

Part Z: Assorted Sounds

Sound 1

 :beep frequency=600 length=165ms;
 :delay 165ms;
 
 :beep frequency=50 length=83ms;
 :delay 83ms;
 
 :beep frequency=600 length=165ms;
 :delay 165ms;
 
 :beep frequency=50 length=83ms;
 :delay 83ms;
 
 :beep frequency=650 length=165ms;
 :delay 165ms;
 
 :beep frequency=600 length=165ms;
 :delay 165ms;
 
 :beep frequency=50 length=83ms;
 :delay 83ms;
 
 :beep frequency=600 length=165ms;
 :delay 165ms;
 
 :beep frequency=700 length=275ms;
 :delay 275ms;
 
 :beep frequency=800 length=275ms;
 :delay 275ms;
 
 :beep frequency=900 length=110ms;
 :delay 110ms;


Music

Super Mario Theme, polyphonic version.