Page 1 of 1

Super Mario Theme

Posted: Thu May 15, 2008 5:38 am
by IanH
A few people from my training class, including normis 8), wanted me to post the Super Mario theme I was working on during my stay for the Essentials training (I did pay attention, mind you ;)), so here it is. It's a bit rough since it is off my memory instead of calculating the actual frequencies for the notes, so I will find those later. It's up on the wiki here:

http://wiki.mikrotik.com/wiki/Super_Mario_Theme

In the future, I'm going to be working on accurate frequencies with all of the popular Super Mario music so you all can show off your MikroTiks with the awesome beep scripts! :lol:

Re: Super Mario Theme

Posted: Thu May 15, 2008 10:44 am
by QpoX
ROFL!
That's nice work...

Re: Super Mario Theme

Posted: Thu May 15, 2008 2:51 pm
by fosben
very nice :D

Maybe Ill use that in a loop for customers who dont pay on time 8)

Re: Super Mario Theme

Posted: Fri May 16, 2008 12:36 am
by Ente
Haha! Awesome Ian.

I just tried it out on a RB192 at the MuM. 8)

Re: Super Mario Theme

Posted: Tue May 20, 2008 4:29 am
by adm1329
very nice :D

Maybe Ill use that in a loop for customers who dont pay on time 8)

Or maybe program Taps and play that when you cut off their access. :lol:

Re: Super Mario Theme

Posted: Thu May 22, 2008 11:03 am
by normis
Thanks, good work! :)

Re: Super Mario Theme

Posted: Fri May 23, 2008 10:40 pm
by csickles
This is cool, but Just wrong !!!

I have set it up a a job to run often, just to tweek off the other admins...

Great work..

Re: Super Mario Theme

Posted: Thu Jun 17, 2010 10:45 pm
by JSchreyer
lol very very nice. I just joked my boss telling him that there was something wrong with the router making strange noises. He totally fell for it =P

I recomend you www.vgmusic.com to get the midis
I didn't find any app for converting midi notes to hz. I also don't know the midi format specification but i did find this to make the conversion.


Note in Hz = (440*2^(Note You Want/12))


assuming that you're tuned in 440hz
to have an array of notes you can use


float midi[127];
int a = 440;
for (int x = 0; x < 127; ++x)
{
midi[x] = (a / 32) * (2 ^ ((x - 9) / 12));
}



if you have more spare time make a midi to hz conversion tool =P

greetings
Jeronimo

Re: Super Mario Theme

Posted: Tue Nov 08, 2011 12:15 am
by jryanhill
So this is the closest forum post for creating music for Mikrotiks, so I decided to add to this a bit. I've made some music of my own after seeing the Mario theme. Thus far, I've made (not all, but recognizable parts of) Crazy Train, Dust In the Wind, Final Countdown, Mexican Hat Dance, Party in the USA, and the Price is Right theme. I've created an Excel spreadsheet to help make the scripts, but for now, here's Crazy Train:


:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:delay 1200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:delay 400ms;
:beep frequency=330 length=175ms;
:delay 200ms;
:beep frequency=330 length=175ms;
:delay 200ms;
:delay 400ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:delay 1200ms;


:beep frequency=587 length=175ms;
:delay 200ms;
:beep frequency=587 length=175ms;
:delay 200ms;
:delay 400ms;
:beep frequency=330 length=175ms;
:delay 200ms;
:beep frequency=330 length=175ms;
:delay 200ms;
:delay 400ms;


:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=587 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=415 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=415 length=175ms;
:delay 200ms;
:beep frequency=330 length=175ms;
:delay 200ms;

:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=587 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=415 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=415 length=175ms;
:delay 200ms;
:beep frequency=330 length=175ms;
:delay 200ms;

:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=587 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=415 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=415 length=175ms;
:delay 200ms;
:beep frequency=330 length=175ms;
:delay 200ms;

:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=587 length=175ms;
:delay 200ms;
:beep frequency=370 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;

:beep frequency=587 length=775ms;
:delay 800ms;
:beep frequency=330 length=775ms;
:delay 800ms;



#----------------------------------------



:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=784 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=740 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=659 length=575ms;
:delay 600ms;
:beep frequency=392 length=75ms;
:delay 100ms;
:beep frequency=415 length=75ms;
:delay 100ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=784 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=740 length=175ms;
:delay 200ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=440 length=75ms;
:delay 100ms;
:beep frequency=659 length=575ms;
:delay 600ms;
:beep frequency=440 length=375ms;
:delay 400ms;



# -------------------------------------------------

#run crazytrain1

:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=554 length=575ms;
:delay 600ms;
:delay 800ms;
:delay 600ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=440 length=175ms;
:delay 200ms;
:beep frequency=440 length=375ms;
:delay 400ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=554 length=375ms;
:delay 400ms;
:delay 2400ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=740 length=375ms;
:delay 400ms;
:beep frequency=659 length=575ms;
:delay 600ms;
:delay 600ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=740 length=175ms;
:delay 200ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=587 length=375ms;
:delay 400ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=587 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=440 length=775ms;
:delay 800ms;
:delay 1600ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=554 length=575ms;
:delay 600ms;
:delay 800ms;
:delay 600ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=440 length=375ms;
:delay 400ms;
:beep frequency=440 length=375ms;
:delay 400ms;
:beep frequency=494 length=175ms;
:delay 200ms;
:beep frequency=554 length=375ms;
:delay 400ms;
:delay 800ms;
:delay 800ms;
:delay 600ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=740 length=175ms;
:delay 200ms;
:beep frequency=659 length=375ms;
:delay 400ms;
:delay 800ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=740 length=175ms;
:delay 200ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=587 length=375ms;
:delay 400ms;
:beep frequency=659 length=175ms;
:delay 200ms;
:beep frequency=587 length=175ms;
:delay 200ms;
:beep frequency=554 length=175ms;
:delay 200ms;
:beep frequency=440 length=775ms;
:delay 800ms;



(PS. It'd be cool to make a music sticky under the scripting forum)

Re: Super Mario Theme

Posted: Tue Nov 08, 2011 1:30 am
by jandafields
A few people from my training class, including normis 8), wanted me to post the Super Mario theme I was working on during my stay for the Essentials training (I did pay attention, mind you ;)), so here it is. It's a bit rough since it is off my memory instead of calculating the actual frequencies for the notes, so I will find those later. It's up on the wiki here:

http://wiki.mikrotik.com/wiki/Super_Mario_Theme

In the future, I'm going to be working on accurate frequencies with all of the popular Super Mario music so you all can show off your MikroTiks with the awesome beep scripts! :lol:
VERY NICE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Re: Super Mario Theme

Posted: Wed Nov 09, 2011 7:57 pm
by Netsplite
Nice work :) , gonna use this at my boot music.

Re: Super Mario Theme

Posted: Sun Nov 13, 2011 7:13 am
by TealFrog
Kudos to those who did the song conversions! I shortened the Crazy Train script a bit by putting the beep frequency/length and delay values into an array. I actually wrote another version that did some substitution on the values (simple compression), but it only decreased the script by about six additional lines.

I was curious about automating the conversion process as mentioned in one of the previous posts. I wrote a perl program to convert the above Crazy Train ROS script into the script below. It might be easier to use a text file for a source for an automated conversion to a ROS script. Since I tend not to like to reinvent the wheel, I found the following link and a program that might prove useful...

http://www.fourmilab.ch/webtools/midicsv/

The link includes a link for Windows command line programs to export/import a MIDI file to and from a comma-separated value (CSV) text file. The Windows program versions appear to be Unix based variants. I'm playing with the programs to see if it might be able to be used in conjunction with an automated program or process to convert a MIDI file into a ROS script. I have to admit using my Tik router to play music is kind of fun, but probably not all that useful. :D
:local song "370,175,200,370,175,3400,440,175,200,440,175,600,330,175,200, \
             330,175,600,370,175,200,370,175,1400,587,175,200,587,175,600, \
             330,175,200,330,175,600,370,175,200,370,175,200,554,175,200,  \
             370,175,200,587,175,200,370,175,200,554,175,200,370,175,200,  \
             494,175,200,440,175,200,415,175,200,440,175,200,494,175,200,  \
             440,175,200,415,175,200,330,175,200,370,175,200,370,175,200,  \
             554,175,200,370,175,200,587,175,200,370,175,200,554,175,200,  \
             370,175,200,494,175,200,440,175,200,415,175,200,440,175,200,  \
             494,175,200,440,175,200,415,175,200,330,175,200,370,175,200,  \
             370,175,200,554,175,200,370,175,200,587,175,200,370,175,200,  \
             554,175,200,370,175,200,494,175,200,440,175,200,415,175,200,  \
             440,175,200,494,175,200,440,175,200,415,175,200,330,175,200,  \
             370,175,200,370,175,200,554,175,200,370,175,200,587,175,200,  \
             370,175,200,554,175,200,494,175,200,587,775,800,330,775,800,  \
             440,175,200,440,75,100,440,75,100,880,175,200,440,75,100,440, \
             75,100,440,75,100,440,75,100,784,175,200,440,75,100,440,75,   \
             100,440,75,100,440,75,100,740,175,200,440,75,100,440,75,100,  \
             440,75,100,440,75,100,659,575,600,392,75,100,415,75,100,440,  \
             175,200,440,175,200,440,75,100,440,75,100,880,175,200,440,75, \
             100,440,75,100,440,75,100,440,75,100,784,175,200,440,75,100,  \
             440,75,100,440,75,100,440,75,100,740,175,200,440,75,100,440,  \
             75,100,440,75,100,440,75,100,659,575,600,440,375,400,659,175, \
             200,554,575,2000,554,175,200,494,175,200,440,175,200,440,175, \
             200,440,375,400,494,175,200,554,375,2800,880,175,200,880,175, \
             200,880,175,200,740,375,400,659,575,1200,659,175,200,740,175, \
             200,659,175,200,659,175,200,587,375,400,659,175,200,587,175,  \
             200,554,175,200,440,775,2400,659,175,200,554,575,2000,494,    \
             175,200,494,175,200,440,375,400,440,375,400,494,175,200,554,  \
             375,2600,880,175,200,880,175,200,880,175,200,880,175,200,740, \
             175,200,659,375,1200,659,175,200,659,175,200,740,175,200,659, \
             175,200,659,175,200,587,375,400,659,175,200,587,175,200,554,  \
             175,200,440,775,800"
:set song [ :toarray $song ]
:for i from=0 to=( [ :len $song ] - 3) step=3 do={
    :local freq [ :tonum [ :pick $song $i ] ]
    :local length ( [ :tostr [ :pick $song ( $i + 1 ) ] ] . "ms" )
    :local pause ( [ :tostr [ :pick $song ( $i + 2 ) ] ] . "ms" )
    :put ":beep frequency=$freq length=$length"
    :beep frequency=$freq length=$length
    :put ":delay $pause"
    :delay $pause
}

Re: Super Mario Theme

Posted: Sun Nov 13, 2011 9:40 am
by jandafields
That is GREAT!!! I bet the MT engineers never envisioned this type of script abuse!!!! :) :)

Re: Super Mario Theme

Posted: Sun Nov 13, 2011 1:57 pm
by sadeghrafie
So, Who can make some lady gaga music with MT? :D

Re: Super Mario Theme

Posted: Sun Nov 13, 2011 3:12 pm
by jryanhill
Give me a song request, and you got it.

Re: Super Mario Theme

Posted: Sun Nov 13, 2011 4:55 pm
by sadeghrafie
Give me a song request, and you got it.
start with "lady gaga you and i"

Re: Super Mario Theme

Posted: Tue Dec 27, 2011 3:30 pm
by ALIEN360
It's Christmas time, so colleague of mine decide to compose Jingle bells :D
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 600ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 600ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=783 length=150ms
:delay 300ms;
:beep frequency=523 length=150ms
:delay 300ms;
:beep frequency=587 length=150ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 750ms;
:beep frequency=698 length=150ms
:delay 300ms;
:beep frequency=698 length=150ms
:delay 300ms;
:beep frequency=698 length=300ms
:delay 450ms;
:beep frequency=698 length=225ms
:delay 150ms;
:beep frequency=698 length=150ms
:delay 300ms;
:beep frequency=659 length=225ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 525ms;
:beep frequency=659 length=225ms
:delay 125ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=587 length=150ms
:delay 300ms;
:beep frequency=587 length=150ms
:delay 300ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=587 length=750ms
:delay 675ms;
:beep frequency=783 length=525ms
:delay 750ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 600ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 600ms;
:beep frequency=659 length=150ms
:delay 300ms;
:beep frequency=783 length=150ms
:delay 300ms;
:beep frequency=523 length=150ms
:delay 300ms;
:beep frequency=587 length=150ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 750ms;
:beep frequency=698 length=150ms
:delay 300ms;
:beep frequency=698 length=150ms
:delay 300ms;
:beep frequency=698 length=300ms
:delay 450ms;
:beep frequency=698 length=225ms
:delay 150ms;
:beep frequency=698 length=150ms
:delay 300ms;
:beep frequency=659 length=225ms
:delay 300ms;
:beep frequency=659 length=300ms
:delay 525ms;
:beep frequency=659 length=150ms
:delay 125ms;
:beep frequency=783 length=150ms
:delay 300ms;
:beep frequency=783 length=150ms
:delay 300ms;
:beep frequency=698 length=150ms
:delay 300ms;
:beep frequency=587 length=150ms
:delay 300ms;
:beep frequency=523 length=375ms
:delay 300ms;
it must be ok now :)

Re: Super Mario Theme

Posted: Tue Dec 27, 2011 3:34 pm
by normis
Great!!! :) Could be slightly faster, but still ok

Re: Super Mario Theme

Posted: Thu Dec 29, 2011 4:43 pm
by ProCon
This is absolutely amazing. A+

Re: Super Mario Theme

Posted: Tue Jul 30, 2013 2:56 pm
by mitnik
Super Mario Underworld Theme:
:beep frequency=262 length=200ms;
:delay 200ms;
:beep frequency=523 length=200ms;
:delay 200ms;
:beep frequency=220 length=200ms;
:delay 200ms;
:beep frequency=440 length=200ms;
:delay 200ms;
:beep frequency=233 length=200ms;
:delay 200ms;
:beep frequency=466 length=200ms;
:delay 200ms;
:delay 1200ms;
:beep frequency=262 length=200ms;
:delay 200ms;
:beep frequency=523 length=200ms;
:delay 200ms;
:beep frequency=220 length=200ms;
:delay 200ms;
:beep frequency=440 length=200ms;
:delay 200ms;
:beep frequency=233 length=200ms;
:delay 200ms;
:beep frequency=466 length=200ms;
:delay 200ms;
:delay 1200ms;
:beep frequency=175 length=200ms;
:delay 200ms;
:beep frequency=349 length=200ms;
:delay 200ms;
:beep frequency=147 length=200ms;
:delay 200ms;
:beep frequency=294 length=200ms;
:delay 200ms;
:beep frequency=156 length=200ms;
:delay 200ms;
:beep frequency=311 length=200ms;
:delay 200ms;
:delay 1200ms;
:beep frequency=175 length=200ms;
:delay 200ms;
:beep frequency=349 length=200ms;
:delay 200ms;
:beep frequency=147 length=200ms;
:delay 200ms;
:beep frequency=294 length=200ms;
:delay 200ms;
:beep frequency=156 length=200ms;
:delay 200ms;
:beep frequency=311 length=200ms;
:delay 200ms;
:delay 800ms;
:beep frequency=311 length=133ms;
:delay 133ms;
:beep frequency=294 length=133ms;
:delay 133ms;
:beep frequency=277 length=133ms;
:delay 133ms;
:beep frequency=262 length=200ms;
:delay 200ms;
:delay 200ms;
:beep frequency=311 length=200ms;
:delay 200ms;
:delay 200ms;
:beep frequency=294 length=200ms;
:delay 200ms;
:delay 200ms;
:beep frequency=208 length=200ms;
:delay 200ms;
:delay 200ms;
:beep frequency=196 length=200ms;
:delay 200ms;
:delay 200ms;
:beep frequency=277 length=200ms;
:delay 200ms;
:delay 200ms;
:beep frequency=262 length=133ms;
:delay 133ms;
:beep frequency=370 length=133ms;
:delay 133ms;
:beep frequency=349 length=133ms;
:delay 133ms;
:beep frequency=330 length=133ms;
:delay 133ms;
:beep frequency=466 length=133ms;
:delay 133ms;
:beep frequency=440 length=133ms;
:delay 133ms;
:beep frequency=415 length=133ms;
:delay 133ms;
:delay 133ms;
:beep frequency=311 length=133ms;
:delay 133ms;
:delay 133ms;
:beep frequency=247 length=133ms;
:delay 133ms;
:delay 133ms;
:beep frequency=233 length=133ms;
:delay 133ms;
:delay 133ms;
:beep frequency=220 length=133ms;
:delay 133ms;
:delay 133ms;
:beep frequency=208 length=133ms;
:delay 133ms;
:delay 133ms;

Re: Super Mario Theme

Posted: Fri Nov 22, 2013 11:13 am
by IngensNetworks
One more song... Maybe a exclusive place for musics would be funny...

We've used musics for diferent states on our ROUTERS and is very funny, and for customers too. They understand FAST something could be wrong or good...

Next song is about...

A long time ago, in a galaxy far, far away...

Lord Vader was the ONE!!!!

:lol:


:beep frequency=500 length=500ms;
:delay 500ms;

:beep frequency=500 length=500ms;
:delay 500ms;

:beep frequency=500 length=500ms;
:delay 500ms;

:beep frequency=400 length=500ms;
:delay 400ms;

:beep frequency=600 length=200ms;
:delay 100ms;

:beep frequency=500 length=500ms;
:delay 500ms;

:beep frequency=400 length=500ms;
:delay 400ms;

:beep frequency=600 length=200ms;
:delay 100ms;

:beep frequency=500 length=500ms;
:delay 1000ms;



:beep frequency=750 length=500ms;
:delay 500ms;

:beep frequency=750 length=500ms;
:delay 500ms;

:beep frequency=750 length=500ms;
:delay 500ms;

:beep frequency=810 length=500ms;
:delay 400ms;

:beep frequency=600 length=200ms;
:delay 100ms;

:beep frequency=470 length=500ms;
:delay 500ms;

:beep frequency=400 length=500ms;
:delay 400ms;

:beep frequency=600 length=200ms;
:delay 100ms;

:beep frequency=500 length=500ms;
:delay 1000ms;



Enjoy it!

Re: Super Mario Theme

Posted: Wed Dec 11, 2013 12:46 pm
by midolinho
Great job, i can wait to set some RB Orchestra

Server room is never gonna be same again

thx again
Juninho

Re: Super Mario Theme

Posted: Thu Dec 12, 2013 7:12 pm
by jryanhill
Sorry to Sadeghrafie for never getting that Lady Gaga song done. However, a few months back, it was requested to make the Jurassic Park Theme... so here you go:

:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=1775ms;
:delay 1800ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=1775ms;
:delay 1800ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=875ms;
:delay 900ms;
:beep frequency=523 length=275ms;
:delay 300ms;
:beep frequency=523 length=875ms;
:delay 900ms;
:beep frequency=622 length=275ms;
:delay 300ms;
:beep frequency=622 length=1775ms;
:delay 1800ms;
:beep frequency=587 length=275ms;
:delay 300ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=523 length=875ms;
:delay 900ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=349 length=575ms;
:delay 600ms;
:beep frequency=587 length=275ms;
:delay 300ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=523 length=1775ms;
:delay 1800ms;
:beep frequency=698 length=275ms;
:delay 300ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=622 length=875ms;
:delay 900ms;
:beep frequency=587 length=275ms;
:delay 300ms;
:beep frequency=587 length=875ms;
:delay 900ms;
:beep frequency=523 length=275ms;
:delay 300ms;
:beep frequency=523 length=3575ms;
:delay 3600ms;
:delay 600ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=575ms;
:delay 600ms;
:beep frequency=349 length=575ms;
:delay 600ms;
:beep frequency=311 length=575ms;
:delay 600ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=575ms;
:delay 600ms;
:beep frequency=349 length=575ms;
:delay 600ms;
:beep frequency=311 length=575ms;
:delay 600ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=875ms;
:delay 900ms;
:beep frequency=349 length=575ms;
:delay 600ms;
:beep frequency=466 length=575ms;
:delay 600ms;
:beep frequency=415 length=1775ms;
:delay 1800ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=575ms;
:delay 600ms;
:beep frequency=349 length=575ms;
:delay 600ms;
:beep frequency=311 length=575ms;
:delay 600ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=575ms;
:delay 600ms;
:beep frequency=349 length=575ms;
:delay 600ms;
:beep frequency=311 length=575ms;
:delay 600ms;
:beep frequency=466 length=275ms;
:delay 300ms;
:beep frequency=440 length=275ms;
:delay 300ms;
:beep frequency=466 length=4175ms;
:delay 4200ms;

Re: Super Mario Theme

Posted: Thu Dec 12, 2013 7:15 pm
by jryanhill
Oh, and here is one of my favorite songs to play for people:

:delay 1000ms;
:beep frequency=523 length=100ms;
:delay 100ms;
:beep frequency=587 length=100ms;
:delay 100ms;
:beep frequency=698 length=100ms;
:delay 100ms;
:beep frequency=587 length=100ms;
:delay 100ms;
:beep frequency=880 length=275ms;
:delay 300ms;
:beep frequency=880 length=300ms;
:delay 300ms;
:beep frequency=784 length=700ms;
:delay 700ms;
:beep frequency=523 length=100ms;
:delay 100ms;
:beep frequency=587 length=100ms;
:delay 100ms;
:beep frequency=698 length=100ms;
:delay 100ms;
:beep frequency=587 length=100ms;
:delay 100ms;
:beep frequency=784 length=275ms;
:delay 300ms;
:beep frequency=784 length=300ms;
:delay 300ms;
:beep frequency=698 length=300ms;
:delay 300ms;
:beep frequency=659 length=100ms;
:delay 100ms;
:beep frequency=587 length=300ms;
:delay 300ms;


:beep frequency=523 length=100ms;
:delay 100ms;
:beep frequency=587 length=100ms;
:delay 100ms;
:beep frequency=698 length=100ms;
:delay 100ms;
:beep frequency=587 length=100ms;
:delay 100ms;
:beep frequency=698 length=400ms;
:delay 400ms;
:beep frequency=784 length=200ms;
:delay 200ms;
:beep frequency=659 length=300ms;
:delay 300ms;
:beep frequency=587 length=100ms;
:delay 100ms;
:beep frequency=523 length=475ms;
:delay 500ms;
:beep frequency=523 length=200ms;
:delay 200ms;
:beep frequency=784 length=400ms;
:delay 400ms;
:beep frequency=698 length=800ms;
:delay 800ms;

Re: Super Mario Theme

Posted: Fri Jan 31, 2014 5:19 am
by amee
How about sweet child o' mine gun roses. It's cool for mikrotik stratup.

Re: Super Mario Theme

Posted: Thu Sep 10, 2015 4:42 pm
by vrikkidel
Can we get this post up and running again? Got high site techs asking me the whole day to play tunes on the radios so they can find them.

Would like to play different kinds of songs for them :D :D

Re: Super Mario Theme

Posted: Tue Sep 15, 2015 12:43 am
by jryanhill
I haven't made any new songs in quite a while, but here's Final Countdown that I made a few years ago:


:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=784 length=100ms;
:delay 100ms;
:beep frequency=880 length=400ms;
:delay 400ms;
:beep frequency=587 length=800ms;
:delay 400ms;

:delay 600ms;

:beep frequency=932 length=100ms;
:delay 100ms;
:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=932 length=200ms;
:delay 200ms;
:beep frequency=880 length=200ms;
:delay 200ms;
:beep frequency=784 length=800ms;
:delay 400ms;

:delay 600ms;

:beep frequency=932 length=100ms;
:delay 100ms;
:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=932 length=400ms;
:delay 400ms;
:beep frequency=587 length=800ms;
:delay 400ms;

:delay 600ms;

:beep frequency=784 length=100ms;
:delay 100ms;
:beep frequency=698 length=100ms;
:delay 100ms;
:beep frequency=784 length=200ms;
:delay 200ms;
:beep frequency=698 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=784 length=200ms;
:delay 200ms;
:beep frequency=698 length=300ms;
:delay 300ms;
:beep frequency=659 length=100ms;
:delay 100ms;
:beep frequency=587 length=200ms;
:delay 200ms;
:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=784 length=100ms;
:delay 100ms;
:beep frequency=880 length=400ms;
:delay 400ms;
:beep frequency=587 length=800ms;
:delay 400ms;

:delay 600ms;

:beep frequency=932 length=100ms;
:delay 100ms;
:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=932 length=200ms;
:delay 200ms;
:beep frequency=880 length=200ms;
:delay 200ms;
:beep frequency=784 length=800ms;
:delay 400ms;

:delay 600ms;

:beep frequency=932 length=100ms;
:delay 100ms;
:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=932 length=400ms;
:delay 400ms;
:beep frequency=587 length=800ms;
:delay 400ms;

:delay 600ms;

:beep frequency=784 length=100ms;
:delay 100ms;
:beep frequency=698 length=100ms;
:delay 100ms;
:beep frequency=784 length=200ms;
:delay 200ms;
:beep frequency=698 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=784 length=200ms;
:delay 200ms;
:beep frequency=698 length=600ms;
:delay 600ms;
:beep frequency=659 length=100ms;
:delay 100ms;
:beep frequency=698 length=100ms;
:delay 100ms;
:beep frequency=784 length=600ms;
:delay 600ms;
:beep frequency=698 length=100ms;
:delay 100ms;
:beep frequency=784 length=100ms;
:delay 100ms;
:beep frequency=880 length=200ms;
:delay 200ms;
:beep frequency=784 length=200ms;
:delay 200ms;
:beep frequency=698 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=587 length=400ms;
:delay 400ms;
:beep frequency=932 length=400ms;
:delay 400ms;
:beep frequency=880 length=1200ms;
:delay 1200ms;
:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=932 length=100ms;
:delay 100ms;
:beep frequency=880 length=100ms;
:delay 100ms;
:beep frequency=784 length=100ms;
:delay 100ms;
:beep frequency=880 length=1600ms;
:delay 1600ms;
:beep frequency=1175 length=400ms;

Re: Super Mario Theme

Posted: Thu Jul 07, 2016 5:50 pm
by ploquets
Beethoven - Für Elise

:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=622 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=622 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=494 length=200ms;
:delay 200ms;
:beep frequency=587 length=200ms;
:delay 200ms;
:beep frequency=523 length=200ms;
:delay 200ms;
:beep frequency=440 length=200ms;
:delay 250ms;
:beep frequency=262 length=200ms;
:delay 200ms;
:beep frequency=330 length=200ms;
:delay 200ms;
:beep frequency=440 length=200ms;
:delay 200ms;
:beep frequency=494 length=200ms;
:delay 250ms;
:beep frequency=330 length=200ms;
:delay 200ms;
:beep frequency=415 length=200ms;
:delay 200ms;
:beep frequency=494 length=200ms;
:delay 200ms;
:beep frequency=523 length=200ms;
:delay 250ms;
:beep frequency=330 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=622 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=622 length=200ms;
:delay 200ms;
:beep frequency=659 length=200ms;
:delay 200ms;
:beep frequency=494 length=200ms;
:delay 200ms;
:beep frequency=587 length=200ms;
:delay 200ms;
:beep frequency=523 length=200ms;
:delay 200ms;
:beep frequency=440 length=200ms;
:delay 250ms;
:beep frequency=262 length=200ms;
:delay 200ms;
:beep frequency=330 length=200ms;
:delay 200ms;
:beep frequency=440 length=200ms;
:delay 200ms;
:beep frequency=494 length=200ms;
:delay 250ms;
:beep frequency=330 length=200ms;
:delay 200ms;
:beep frequency=523 length=200ms;
:delay 200ms;
:beep frequency=494 length=200ms;
:delay 250ms;
:beep frequency=440 length=500ms;
:delay 250ms;

Re: Super Mario Theme

Posted: Thu Nov 10, 2016 6:12 am
by agfjpcs
Anyone know if its possible to get a dialup noise through the MikroTik speaker?
Might be appropriate for those who go over their quota or don't pay their bills :D

Re: Super Mario Theme

Posted: Thu Nov 10, 2016 4:51 pm
by jryanhill
It wouldn't sound quite like the dial up noise, since the speaker can only play single tones, where as the dialing and several other aspects of the dial up noise require dual tones. I can't really think of a way to make it play the static sound.

Re: Super Mario Theme

Posted: Tue Mar 28, 2017 7:56 pm
by grin
I don't want to disturb, but... here's my opinion about monophony:
https://wiki.mikrotik.com/wiki/Super_Mario_Theme_grin

enjoy. :)

Re: Super Mario Theme

Posted: Mon May 15, 2017 6:24 am
by Zero3K
Could someone make scripts that play Fate of the Fairies, Ancient Makes, Silver Will, Challenger Invited, and The Merciless Savior (they are all themes from the Legend of Heroes: Trails in the Sky First Chapter and Legend of Heroes: Trails in the Sky Second Chapter). Thanks in advance.

Re: Super Mario Theme

Posted: Mon May 15, 2017 12:17 pm
by grin
Could someone make scripts that play Fate of the Fairies, Ancient Makes, Silver Will, Challenger Invited, and The Merciless Savior (they are all themes from the Legend of Heroes: Trails in the Sky First Chapter and Legend of Heroes: Trails in the Sky Second Chapter). Thanks in advance.
If you offer a (pointer to a) MID(i) file I may try to convert them. In theory any midi file with no more than 3 main voices may be okay, and percussion isn't converted [could be simulated and I couldn't care less]. Complex midi files require more fiddling and I am not supposed to spend too much time, but I can check.

Re: Super Mario Theme

Posted: Mon May 15, 2017 9:40 pm
by Zero3K
Could someone make scripts that play Fate of the Fairies, Ancient Makes, Silver Will, Challenger Invited, and The Merciless Savior (they are all themes from the Legend of Heroes: Trails in the Sky First Chapter and Legend of Heroes: Trails in the Sky Second Chapter). Thanks in advance.
If you offer a (pointer to a) MID(i) file I may try to convert them. In theory any midi file with no more than 3 main voices may be okay, and percussion isn't converted [could be simulated and I couldn't care less]. Complex midi files require more fiddling and I am not supposed to spend too much time, but I can check.
I only found two of the BGMs in question as MIDI files They are attached as a zip file.

Re: Super Mario Theme

Posted: Tue May 16, 2017 11:52 am
by docmarius
Make router racks great again :lol:

Re: Super Mario Theme

Posted: Tue May 16, 2017 1:13 pm
by nichky
That's nice work...

well done :)

Re: 912UAG-2HPnD dont work MiniPCI + Wifi

Posted: Thu Jun 15, 2017 1:36 am
by s100
hi whet is the right command to launch a beep from new terminal emulator at router board 912 please , help me :? :?

Re: 912UAG-2HPnD dont work MiniPCI + Wifi

Posted: Wed Sep 13, 2017 5:01 am
by Lukasz032
whet is the right command to launch a beep from new terminal emulator at router board 912
It's still :beep :) (just remember about the colon before beep).

Some my adaptations:

Star Wars Imperial March (longer version):
:local E4 329;
:local F4 349;
:local G4 392;
:local A4 440;
:local B4 478;
:local H4 497;
:local C5 508;
:local CIS5 539;
:local D5 580;
:local DIS5 620;
:local E5 650;
:local F5 695;
:local FIS5 723;
:local G5 760;
:local AS5 850;
:local A5 880;

:local ONE "200ms";
:local DBL "400ms";
:local DBLD "500ms";
:local TRI "600ms";

:beep f=$A4 l=$DBLD; :delay $TRI;
:beep f=$A4 l=$ONE; :delay $ONE;
:beep f=$A4 l=$ONE; :delay $ONE;
:beep f=$A4 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
:beep f=$E4 l=$DBL; :delay $DBL;
:beep f=$C5 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
:beep f=$E4 l=$DBL; :delay $DBL;
:beep f=$C5 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
:delay $TRI;
:beep f=$E5 l=$DBLD; :delay $TRI;
:beep f=$E5 l=$ONE; :delay $ONE;
:beep f=$E5 l=$ONE; :delay $ONE;
:beep f=$E5 l=$ONE; :delay $ONE;
:beep f=$E5 l=$DBLD; :delay $TRI;
:beep f=$F5 l=$DBL; :delay $DBL;
:beep f=$C5 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
:beep f=$E4 l=$DBL; :delay $DBL;
:beep f=$C5 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
:delay $TRI;
:beep f=$A5 l=$TRI; :delay $TRI;
:delay $DBL;
:beep f=$A4 l=$ONE; :delay $ONE;
:beep f=$A5 l=$TRI; :delay $TRI;
:beep f=$AS5 l=$DBL; :delay $DBL;
:beep f=$G5 l=$ONE; :delay $ONE;
:beep f=$FIS5 l=$ONE; :delay $ONE;
:beep f=$F5 l=$ONE; :delay $ONE;
:beep f=$FIS5 l=$ONE; :delay $ONE;
:delay $DBL;
:beep f=$B4 l=$ONE; :delay $ONE;
:beep f=$DIS5 l=$TRI; :delay $TRI;
:beep f=$D5 l=$DBL; :delay $DBL;
:beep f=$CIS5 l=$ONE; :delay $ONE;
:beep f=$C5 l=$ONE; :delay $ONE;
:beep f=$H4 l=$ONE; :delay $ONE;
:beep f=$C5 l=$ONE; :delay $ONE;
:delay $DBL;
:beep f=$E4 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
:beep f=$E4 l=$DBL; :delay $DBL;
:beep f=$C5 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
:beep f=$E4 l=$DBL; :delay $DBL;
:beep f=$C5 l=$ONE; :delay $ONE;
:beep f=$A4 l=$DBLD; :delay $TRI;
Akcent - Przekorny los - main theme (it's a Polish disco song):
:local A3 220;
:local H3 246;
:local C4 258;
:local D4 293;
:local E4 329;
:local F4 349;
:local G4 392;
:local A4 440;
:local H4 497;
:local C5 508;
:local D5 580;
:local E5 650;
:local F5 695;

:local FN "250ms";
:local HN "125ms";
:local DN "500ms";
:local NN "75ms";
:local HND "187ms";
:local FND "375ms";
:local FNMD "330ms";

:for a from=1 to=2 do={
:beep f=$C5 l=$HND; :delay $FN;
:beep f=$H4 l=$HND; :delay $FN;
:beep f=$G4 l=$HND; :delay $FN;
:beep f=$A4 l=$FN; :delay $DN;
:beep f=$E4 l=$FN; :delay $DN;
:beep f=$A4 l=$HN; :delay $FN;
:beep f=$E4 l=$HN; :delay $HN;
:beep f=$A4 l=$HN; :delay $FN;
:beep f=$A4 l=$HN; :delay $HN;
:beep f=$C5 l=$HN; :delay $FN;
:beep f=$D5 l=$FN; :delay $DN;
:beep f=$A4 l=$FN; :delay $DN;
:beep f=$D5 l=$HN; :delay $FN;
:beep f=$A4 l=$HN; :delay $HN;
:beep f=$D5 l=$HN; :delay $FN;
:beep f=$D5 l=$HN; :delay $HN;
:beep f=$F5 l=$HN; :delay $FN;
:beep f=$E5 l=$FN; :delay $DN;
:beep f=$H4 l=$FN; :delay $DN;
:beep f=$E5 l=$HN; :delay $FN;
:beep f=$H4 l=$HN; :delay $HN;
:beep f=$E5 l=$HN; :delay $FN;
:beep f=$E5 l=$HN; :delay $HN;
:beep f=$H4 l=$HN; :delay $FN;
:beep f=$A4 l=$HND; :delay $FN;
:beep f=$A4 l=$HND; :delay $FN;
:beep f=$E4 l=$HN; :delay $FN;
:beep f=$G4 l=$HN; :delay $HN;
:beep f=$A4 l=$HND; :delay $FND;
}
Tuned for RB433 buzzer, if it's out of tune on your device, you can adjust notes pitch on first section :)

Re: Super Mario Theme

Posted: Sat Jul 28, 2018 10:58 am
by grin
Oh wow. Seems Normis deleted the file from the wiki. :-o

Maybe here it'll stay online.
##
### (c)Peter 'grin' Gervai, 2017
##
##  CC_BY-SA-4.0 / GPLv3+
##

:local chan1 "880,2,0,1,880,2,0,4,880,2,0,4,698,2,0,1,880,2,0,4,1047,2,0,22,698,2,0,7,523,2,0,7,440,2,0,7,587,2,0,4,659,2,0,4,622,2,0,1,587,2,0,4,523,2,0,2,880,2,0,2,1047,2,0,2,1175,2,0,4,932,2,0,1,1047,2,0,4,880,2,0,4,698,2,0,1,784,2,0,1,659,2,0,7,698,2,0,7,523,2,0,7,440,2,0,7,587,2,0,4,659,2,0,4,622,2,0,1,587,2,0,4,523,2,0,2,880,2,0,2,1047,2,0,2,1175,2,0,4,932,2,0,1,1047,2,0,4,880,2,0,4,698,2,0,1,784,2,0,1,659,2,0,13,1047,2,0,1,988,2,0,1,932,2,0,1,831,2,0,4,880,2,0,4,554,2,0,1,587,2,0,1,698,2,0,4,587,2,0,1,698,2,0,1,784,2,0,7,1047,2,0,1,988,2,0,1,932,2,0,1,831,2,0,4,880,2,0,4,1397,2,0,4,1397,2,0,1,1397,2,0,16,1047,2,0,1,988,2,0,1,932,2,0,1,831,2,0,4,880,2,0,4,554,2,0,1,587,2,0,1,698,2,0,4,587,2,0,1,698,2,0,1,784,2,0,7,831,2,0,7,784,2,0,7,698,2,0,28,1047,2,0,1,988,2,0,1,932,2,0,1,831,2,0,4,880,2,0,4,554,2,0,1,587,2,0,1,698,2,0,4,587,2,0,1,698,2,0,1,784,2,0,7,1047,2,0,1,988,2,0,1,932,2,0,1,831,2,0,4,880,2,0,4,1397,2,0,4,1397,2,0,1,1397,2,0,16,1047,2,0,1,988,2,0,1,932,2,0,1,831,2,0,4,880,2,0,4,554,2,0,1,587,2,0,1,698,2,0,4,587,2,0,1,698,2,0,1,784,2,0,7,831,2,0,7,784,2,0,7,698,2,0,22,698,2,0,1,698,2,0,4,698,2,0,4,698,2,0,1,784,2,0,4,880,2,0,1,698,2,0,4,587,2,0,1,523,2,0,10,698,2,0,1,698,2,0,4,698,2,0,4,698,2,0,1,784,2,0,1,880,2,0,25,698,2,0,1,698,2,0,4,698,2,0,4,698,2,0,1,784,2,0,4,880,2,0,1,698,2,0,4,587,2,0,1,523,2,0,10,880,2,0,1,880,2,0,4,880,2,0,4,698,2,0,1,880,2,0,4,1047,2,0,22,698,2,0,7,523,2,0,7,440,2,0,7,587,2,0,4,659,2,0,4,622,2,0,1,587,2,0,4,523,2,0,2,880,2,0,2,1047,2,0,2,1175,2,0,4,932,2,0,1,1047,2,0,4,880,2,0,4,698,2,0,1,784,2,0,1,659,2,0,7,698,2,0,7,523,2,0,7,440,2,0,7,587,2,0,4,659,2,0,4,622,2,0,1,587,2,0,4,523,2,0,2,880,2,0,2,1047,2,0,2,1175,2,0,4,932,2,0,1,1047,2,0,4,880,2,0,4,698,2,0,1,784,2,0,1,659,2,0,7,880,2,0,1,698,2,0,4,523,2,0,7,554,2,0,4,587,2,0,1,932,2,0,4,932,2,0,1,587,2,0,10,659,2,0,2,1175,2,0,2,1175,2,0,2,1175,2,0,2,1047,2,0,2,932,2,0,2,880,2,0,1,698,2,0,4,587,2,0,1,523,2,0,10,880,2,0,1,698,2,0,4,523,2,0,7,554,2,0,4,587,2,0,1,932,2,0,4,932,2,0,1,587,2,0,10,659,2,0,1,932,2,0,4,932,2,0,1,932,2,0,2,880,2,0,2,784,2,0,2,698,2,0,22,880,2,0,1,698,2,0,4,523,2,0,7,554,2,0,4,587,2,0,1,932,2,0,4,932,2,0,1,587,2,0,10,659,2,0,2,1175,2,0,2,1175,2,0,2,1175,2,0,2,1047,2,0,2,932,2,0,2,880,2,0,1,698,2,0,4,587,2,0,1,523,2,0,10,880,2,0,1,698,2,0,4,523,2,0,7,554,2,0,4,587,2,0,1,932,2,0,4,932,2,0,1,587,2,0,10,659,2,0,1,932,2,0,4,932,2,0,1,932,2,0,2,880,2,0,2,784,2,0,2,698,2,0,22,698,2,0,1,698,2,0,4,698,2,0,4,698,2,0,1,784,2,0,4,880,2,0,1,698,2,0,4,587,2,0,1,523,2,0,10,698,2,0,1,698,2,0,4,698,2,0,4,698,2,0,1,784,2,0,1,880,2,0,25,698,2,0,1,698,2,0,4,698,2,0,4,698,2,0,1,784,2,0,4,880,2,0,1,698,2,0,4,587,2,0,1,523,2,0,10,880,2,0,1,880,2,0,4,880,2,0,4,698,2,0,1,880,2,0,4,1047,2,0,22,880,2,0,1,698,2,0,4,523,2,0,7,554,2,0,4,587,2,0,1,932,2,0,4,932,2,0,1,587,2,0,10,659,2,0,2,1175,2,0,2,1175,2,0,2,1175,2,0,2,1047,2,0,2,932,2,0,2,880,2,0,1,698,2,0,4,587,2,0,1,523,2,0,10,880,2,0,1,698,2,0,4,523,2,0,7,554,2,0,4,587,2,0,1,932,2,0,4,932,2,0,1,587,2,0,10,659,2,0,1,932,2,0,4,932,2,0,1,932,2,0,2,880,2,0,2,784,2,0,2,698,2,"
:local chan2 "494,2,0,1,494,2,0,4,494,2,0,4,494,2,0,1,494,2,0,4,659,2,0,10,523,2,0,10,440,2,0,7,349,2,0,7,262,2,0,7,349,2,0,4,392,2,0,4,370,2,0,1,349,2,0,4,349,2,0,2,523,2,0,2,659,2,0,2,698,2,0,4,587,2,0,1,659,2,0,4,587,2,0,4,440,2,0,1,466,2,0,1,392,2,0,7,440,2,0,7,349,2,0,7,262,2,0,7,349,2,0,4,392,2,0,4,370,2,0,1,349,2,0,4,349,2,0,2,523,2,0,2,659,2,0,2,698,2,0,4,587,2,0,1,659,2,0,4,587,2,0,4,440,2,0,1,466,2,0,1,392,2,0,13,880,2,0,1,831,2,0,1,784,2,0,1,659,2,0,4,698,2,0,4,440,2,0,1,466,2,0,1,523,2,0,4,349,2,0,1,440,2,0,1,466,2,0,7,880,2,0,1,831,2,0,1,784,2,0,1,659,2,0,4,698,2,0,4,932,2,0,4,932,2,0,1,932,2,0,16,880,2,0,1,831,2,0,1,784,2,0,1,659,2,0,4,698,2,0,4,440,2,0,1,466,2,0,1,523,2,0,4,349,2,0,1,440,2,0,1,466,2,0,7,554,2,0,7,466,2,0,7,440,2,0,28,880,2,0,1,831,2,0,1,784,2,0,1,659,2,0,4,698,2,0,4,440,2,0,1,466,2,0,1,523,2,0,4,349,2,0,1,440,2,0,1,466,2,0,7,880,2,0,1,831,2,0,1,784,2,0,1,659,2,0,4,698,2,0,4,932,2,0,4,932,2,0,1,932,2,0,16,880,2,0,1,831,2,0,1,784,2,0,1,659,2,0,4,698,2,0,4,440,2,0,1,466,2,0,1,523,2,0,4,349,2,0,1,440,2,0,1,466,2,0,7,554,2,0,7,466,2,0,7,440,2,0,22,554,2,0,1,554,2,0,4,554,2,0,4,554,2,0,1,622,2,0,4,523,2,0,1,440,2,0,4,440,2,0,1,349,2,0,10,554,2,0,1,554,2,0,4,554,2,0,4,554,2,0,1,622,2,0,1,523,2,0,25,554,2,0,1,554,2,0,4,554,2,0,4,554,2,0,1,622,2,0,4,523,2,0,1,440,2,0,4,440,2,0,1,349,2,0,10,494,2,0,1,494,2,0,4,494,2,0,4,494,2,0,1,494,2,0,4,659,2,0,10,523,2,0,10,440,2,0,7,349,2,0,7,262,2,0,7,349,2,0,4,392,2,0,4,370,2,0,1,349,2,0,4,349,2,0,2,523,2,0,2,659,2,0,2,698,2,0,4,587,2,0,1,659,2,0,4,587,2,0,4,440,2,0,1,466,2,0,1,392,2,0,7,440,2,0,7,349,2,0,7,262,2,0,7,349,2,0,4,392,2,0,4,370,2,0,1,349,2,0,4,349,2,0,2,523,2,0,2,659,2,0,2,698,2,0,4,587,2,0,1,659,2,0,4,587,2,0,4,440,2,0,1,466,2,0,1,392,2,0,7,698,2,0,1,587,2,0,4,440,2,0,7,440,2,0,4,466,2,0,1,698,2,0,4,698,2,0,1,466,2,0,10,523,2,0,2,932,2,0,2,932,2,0,2,932,2,0,2,880,2,0,2,784,2,0,2,698,2,0,1,587,2,0,4,466,2,0,1,440,2,0,10,698,2,0,1,587,2,0,4,440,2,0,7,440,2,0,4,466,2,0,1,698,2,0,4,698,2,0,1,466,2,0,10,523,2,0,1,784,2,0,4,784,2,0,1,784,2,0,2,698,2,0,2,659,2,0,2,523,2,0,1,440,2,0,4,440,2,0,1,349,2,0,10,698,2,0,1,587,2,0,4,440,2,0,7,440,2,0,4,466,2,0,1,698,2,0,4,698,2,0,1,466,2,0,10,523,2,0,2,932,2,0,2,932,2,0,2,932,2,0,2,880,2,0,2,784,2,0,2,698,2,0,1,587,2,0,4,466,2,0,1,440,2,0,10,698,2,0,1,587,2,0,4,440,2,0,7,440,2,0,4,466,2,0,1,698,2,0,4,698,2,0,1,466,2,0,10,523,2,0,1,784,2,0,4,784,2,0,1,784,2,0,2,698,2,0,2,659,2,0,2,523,2,0,1,440,2,0,4,440,2,0,1,349,2,0,10,554,2,0,1,554,2,0,4,554,2,0,4,554,2,0,1,622,2,0,4,523,2,0,1,440,2,0,4,440,2,0,1,349,2,0,10,554,2,0,1,554,2,0,4,554,2,0,4,554,2,0,1,622,2,0,1,523,2,0,25,554,2,0,1,554,2,0,4,554,2,0,4,554,2,0,1,622,2,0,4,523,2,0,1,440,2,0,4,440,2,0,1,349,2,0,10,494,2,0,1,494,2,0,4,494,2,0,4,494,2,0,1,494,2,0,4,659,2,0,10,523,2,0,10,698,2,0,1,587,2,0,4,440,2,0,7,440,2,0,4,466,2,0,1,698,2,0,4,698,2,0,1,466,2,0,10,523,2,0,2,932,2,0,2,932,2,0,2,932,2,0,2,880,2,0,2,784,2,0,2,698,2,0,1,587,2,0,4,466,2,0,1,440,2,0,10,698,2,0,1,587,2,0,4,440,2,0,7,440,2,0,4,466,2,0,1,698,2,0,4,698,2,0,1,466,2,0,10,523,2,0,1,784,2,0,4,784,2,0,1,784,2,0,2,698,2,0,2,659,2,0,2,523,2,0,1,440,2,0,4,440,2,0,1,349,2,"
:local chan3 "196,2,0,1,196,2,0,4,196,2,0,4,196,2,0,1,196,2,0,4,523,2,0,10,262,2,0,10,262,2,0,7,220,2,0,7,175,2,0,7,233,2,0,4,262,2,0,4,247,2,0,1,233,2,0,4,220,2,0,2,349,2,0,2,440,2,0,2,466,2,0,4,392,2,0,1,440,2,0,4,349,2,0,4,294,2,0,1,330,2,0,1,262,2,0,7,262,2,0,7,220,2,0,7,175,2,0,7,233,2,0,4,262,2,0,4,247,2,0,1,233,2,0,4,220,2,0,2,349,2,0,2,440,2,0,2,466,2,0,4,392,2,0,1,440,2,0,4,349,2,0,4,294,2,0,1,330,2,0,1,262,2,0,7,175,2,0,7,262,2,0,7,349,2,0,4,233,2,0,7,349,2,0,1,349,2,0,4,233,2,0,4,175,2,0,7,220,2,0,7,262,2,0,1,349,2,0,4,1047,2,0,4,1047,2,0,1,1047,2,0,4,262,2,0,4,175,2,0,7,262,2,0,7,349,2,0,4,233,2,0,7,349,2,0,1,349,2,0,4,233,2,0,4,175,2,0,4,277,2,0,7,311,2,0,7,349,2,0,7,262,2,0,1,262,2,0,4,175,2,0,4,175,2,0,7,262,2,0,7,349,2,0,4,233,2,0,7,349,2,0,1,349,2,0,4,233,2,0,4,175,2,0,7,220,2,0,7,262,2,0,1,349,2,0,4,1047,2,0,4,1047,2,0,1,1047,2,0,4,262,2,0,4,175,2,0,7,262,2,0,7,349,2,0,4,233,2,0,7,349,2,0,1,349,2,0,4,233,2,0,4,175,2,0,4,277,2,0,7,311,2,0,7,349,2,0,7,262,2,0,1,262,2,0,4,175,2,0,4,139,2,0,7,208,2,0,7,277,2,0,4,262,2,0,7,175,2,0,7,131,2,0,4,139,2,0,7,208,2,0,7,277,2,0,4,262,2,0,7,175,2,0,7,131,2,0,4,139,2,0,7,208,2,0,7,277,2,0,4,262,2,0,7,175,2,0,7,131,2,0,4,196,2,0,1,196,2,0,4,196,2,0,4,196,2,0,1,196,2,0,4,523,2,0,10,262,2,0,10,262,2,0,7,220,2,0,7,175,2,0,7,233,2,0,4,262,2,0,4,247,2,0,1,233,2,0,4,220,2,0,2,349,2,0,2,440,2,0,2,466,2,0,4,392,2,0,1,440,2,0,4,349,2,0,4,294,2,0,1,330,2,0,1,262,2,0,7,262,2,0,7,220,2,0,7,175,2,0,7,233,2,0,4,262,2,0,4,247,2,0,1,233,2,0,4,220,2,0,2,349,2,0,2,440,2,0,2,466,2,0,4,392,2,0,1,440,2,0,4,349,2,0,4,294,2,0,1,330,2,0,1,262,2,0,7,175,2,0,7,247,2,0,1,262,2,0,4,349,2,0,4,233,2,0,4,233,2,0,4,349,2,0,1,349,2,0,1,233,2,0,4,196,2,0,7,233,2,0,1,262,2,0,4,330,2,0,4,262,2,0,4,262,2,0,4,349,2,0,1,349,2,0,1,262,2,0,4,175,2,0,7,247,2,0,1,262,2,0,4,349,2,0,4,233,2,0,4,233,2,0,4,349,2,0,1,349,2,0,1,233,2,0,4,262,2,0,1,262,2,0,4,262,2,0,1,262,2,0,2,294,2,0,2,330,2,0,2,349,2,0,4,262,2,0,4,175,2,0,10,175,2,0,7,247,2,0,1,262,2,0,4,349,2,0,4,233,2,0,4,233,2,0,4,349,2,0,1,349,2,0,1,233,2,0,4,196,2,0,7,233,2,0,1,262,2,0,4,330,2,0,4,262,2,0,4,262,2,0,4,349,2,0,1,349,2,0,1,262,2,0,4,175,2,0,7,247,2,0,1,262,2,0,4,349,2,0,4,233,2,0,4,233,2,0,4,349,2,0,1,349,2,0,1,233,2,0,4,262,2,0,1,262,2,0,4,262,2,0,1,262,2,0,2,294,2,0,2,330,2,0,2,349,2,0,4,262,2,0,4,175,2,0,10,139,2,0,7,208,2,0,7,277,2,0,4,262,2,0,7,175,2,0,7,131,2,0,4,139,2,0,7,208,2,0,7,277,2,0,4,262,2,0,7,175,2,0,7,131,2,0,4,139,2,0,7,208,2,0,7,277,2,0,4,262,2,0,7,175,2,0,7,131,2,0,4,196,2,0,1,196,2,0,4,196,2,0,4,196,2,0,1,196,2,0,4,523,2,0,10,262,2,0,10,175,2,0,7,247,2,0,1,262,2,0,4,349,2,0,4,233,2,0,4,233,2,0,4,349,2,0,1,349,2,0,1,233,2,0,4,196,2,0,7,233,2,0,1,262,2,0,4,330,2,0,4,262,2,0,4,262,2,0,4,349,2,0,1,349,2,0,1,262,2,0,4,175,2,0,7,247,2,0,1,262,2,0,4,349,2,0,4,233,2,0,4,233,2,0,4,349,2,0,1,349,2,0,1,233,2,0,4,262,2,0,1,262,2,0,4,262,2,0,1,262,2,0,2,294,2,0,2,330,2,0,2,349,2,0,4,262,2,0,4,175,2,"

# slot timespan (~20ms)
:local st 20
# speed (~500ms)
:local spd ( $st * 2 ) 

:local slotlen ($spd / $st / 3)
:local slottime ($st . "ms")

:local c1 [:toarray $chan1]
:local c2 [:toarray $chan2]
:local c3 [:toarray $chan3]

:local chan ({$c1},{$c2})
:set $chan [:put ($chan, {$c3})]

:local voice {0;0;0}

# slot left for a tune to go
:local sleft 
:set $sleft {0;0;0}
# position in a channel
:local cpointer 
# this should fucking zero it, why doesn't it
:set $cpointer {0;0;0}
# force it down into its throat
:for i from=0 to=2 do={
	:set ($cpointer->$i) 0
	:set ($sleft->$i) 0
	:put ("Cpointer $i = " . ($cpointer->$i))
}

:local running 1

:do {
	# prepare actual voice for every channel
	:for c from=0 to=2 do={
		:if ( ($sleft->$c) > 1 ) do={
			# same voice
			:set ($sleft->$c) (($sleft->$c) - 1)
#:put ( "keep c=$c s=" . ($sleft->$c))
		} else={
			# new voice
			#:put (">> c=$c p=" . ($cpointer->$c) ." v=" . ($chan->$c->($cpointer->$c)))
			:set ($voice->$c) ($chan->$c->($cpointer->$c))
			:set ($cpointer->$c) (($cpointer->$c)+1)
			#:put (">> c=$c p=" . ($cpointer->$c) ." s=" . ($chan->$c->($cpointer->$c)))
			:set ($sleft->$c) ($chan->$c->($cpointer->$c))
			:set ($cpointer->$c) (($cpointer->$c)+1)
			:if ( $cpointer->$c > [:len ($chan->$c)] ) do={ 
				:set $running 0
			}
		}
	}
	
	:for i from=0 to=$slotlen do={
		:for c from=0 to=2 do={
			:if ( ($voice->$c) > 0 ) do={
				:beep length=$slottime frequency=($voice->$c)
			}
			:delay $slottime
		}
	}
	#:set $running 0
} while=( $running = 1)

Re: Super Mario Theme

Posted: Fri May 03, 2019 10:32 am
by Karas
Dont suppose anyone has, or can do, the X-Files theme?

Re: Super Mario Theme

Posted: Tue Sep 17, 2019 7:59 pm
by noyo
Does anyone have "Mariah Carey - All I Want For Christmas Is You" on mikrotik?