A bit of sounds

RouterOS Scripting
1

These scripts 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;
}
2

These are pretty cool. Gonna set-up the phone call now to fool my family.

3

Now, from Lee Adams book “Grafik, Animation, Simulation fur Personalcomputer” (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;
}
4

Good One,
Why dont you Post the Topic in Wiki. will get FREE OS License.

5

I just did it: http://wiki.mikrotik.com/wiki/A_Bit_of_Sounds