Community discussions

MikroTik App
 
IanH
just joined
Topic Author
Posts: 1
Joined: Thu May 15, 2008 5:24 am

Super Mario Theme

Thu May 15, 2008 5:38 am

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:
 
QpoX
Member
Member
Posts: 385
Joined: Mon Mar 24, 2008 7:42 pm
Location: Lemvig, Denmark

Re: Super Mario Theme

Thu May 15, 2008 10:44 am

ROFL!
That's nice work...
 
fosben
Frequent Visitor
Frequent Visitor
Posts: 81
Joined: Thu Dec 14, 2006 4:50 pm

Re: Super Mario Theme

Thu May 15, 2008 2:51 pm

very nice :D

Maybe Ill use that in a loop for customers who dont pay on time 8)
 
Ente
just joined
Posts: 19
Joined: Thu Jan 31, 2008 9:19 pm
Location: Rockford, IL USA
Contact:

Re: Super Mario Theme

Fri May 16, 2008 12:36 am

Haha! Awesome Ian.

I just tried it out on a RB192 at the MuM. 8)
 
adm1329
just joined
Posts: 8
Joined: Mon May 19, 2008 10:05 pm

Re: Super Mario Theme

Tue May 20, 2008 4:29 am

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:
 
User avatar
normis
MikroTik Support
MikroTik Support
Posts: 26291
Joined: Fri May 28, 2004 11:04 am
Location: Riga, Latvia

Re: Super Mario Theme

Thu May 22, 2008 11:03 am

Thanks, good work! :)
 
csickles
Forum Guru
Forum Guru
Posts: 1255
Joined: Fri May 28, 2004 8:46 pm
Location: Phoenix, AZ
Contact:

Re: Super Mario Theme

Fri May 23, 2008 10:40 pm

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..
 
JSchreyer
just joined
Posts: 4
Joined: Mon Mar 15, 2010 10:58 pm

Re: Super Mario Theme

Thu Jun 17, 2010 10:45 pm

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
 
jryanhill
newbie
Posts: 36
Joined: Wed Aug 03, 2011 7:20 pm

Re: Super Mario Theme

Tue Nov 08, 2011 12:15 am

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)
 
jandafields
Forum Guru
Forum Guru
Posts: 1515
Joined: Mon Sep 19, 2005 6:12 pm

Re: Super Mario Theme

Tue Nov 08, 2011 1:30 am

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!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
Netsplite
just joined
Posts: 8
Joined: Mon Dec 13, 2010 3:13 pm

Re: Super Mario Theme

Wed Nov 09, 2011 7:57 pm

Nice work :) , gonna use this at my boot music.
 
User avatar
TealFrog
just joined
Posts: 23
Joined: Sun Oct 02, 2011 11:56 am

Re: Super Mario Theme

Sun Nov 13, 2011 7:13 am

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
}
 
jandafields
Forum Guru
Forum Guru
Posts: 1515
Joined: Mon Sep 19, 2005 6:12 pm

Re: Super Mario Theme

Sun Nov 13, 2011 9:40 am

That is GREAT!!! I bet the MT engineers never envisioned this type of script abuse!!!! :) :)
 
User avatar
sadeghrafie
Long time Member
Long time Member
Posts: 514
Joined: Sat Nov 14, 2009 11:28 am
Location: Bushehr, IRAN

Re: Super Mario Theme

Sun Nov 13, 2011 1:57 pm

So, Who can make some lady gaga music with MT? :D
 
jryanhill
newbie
Posts: 36
Joined: Wed Aug 03, 2011 7:20 pm

Re: Super Mario Theme

Sun Nov 13, 2011 3:12 pm

Give me a song request, and you got it.
 
User avatar
sadeghrafie
Long time Member
Long time Member
Posts: 514
Joined: Sat Nov 14, 2009 11:28 am
Location: Bushehr, IRAN

Re: Super Mario Theme

Sun Nov 13, 2011 4:55 pm

Give me a song request, and you got it.
start with "lady gaga you and i"
 
ALIEN360
just joined
Posts: 4
Joined: Thu Dec 08, 2011 2:39 pm
Location: Sofia, Bulgaria

Re: Super Mario Theme

Tue Dec 27, 2011 3:30 pm

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 :)
Last edited by ALIEN360 on Tue Dec 27, 2011 4:00 pm, edited 1 time in total.
 
User avatar
normis
MikroTik Support
MikroTik Support
Posts: 26291
Joined: Fri May 28, 2004 11:04 am
Location: Riga, Latvia

Re: Super Mario Theme

Tue Dec 27, 2011 3:34 pm

Great!!! :) Could be slightly faster, but still ok
 
ProCon
Frequent Visitor
Frequent Visitor
Posts: 97
Joined: Sat Sep 18, 2010 9:08 pm

Re: Super Mario Theme

Thu Dec 29, 2011 4:43 pm

This is absolutely amazing. A+
 
mitnik
just joined
Posts: 1
Joined: Tue Jul 30, 2013 2:53 pm

Re: Super Mario Theme

Tue Jul 30, 2013 2:56 pm

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;
 
User avatar
IngensNetworks
just joined
Posts: 5
Joined: Fri Nov 15, 2013 9:06 pm
Location: Barcelona
Contact:

Re: Super Mario Theme

Fri Nov 22, 2013 11:13 am

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!
 
User avatar
midolinho
just joined
Posts: 4
Joined: Wed Dec 11, 2013 11:09 am
Location: Pancevo
Contact:

Re: Super Mario Theme

Wed Dec 11, 2013 12:46 pm

Great job, i can wait to set some RB Orchestra

Server room is never gonna be same again

thx again
Juninho
 
jryanhill
newbie
Posts: 36
Joined: Wed Aug 03, 2011 7:20 pm

Re: Super Mario Theme

Thu Dec 12, 2013 7:12 pm

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;
 
jryanhill
newbie
Posts: 36
Joined: Wed Aug 03, 2011 7:20 pm

Re: Super Mario Theme

Thu Dec 12, 2013 7:15 pm

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;
 
amee
just joined
Posts: 16
Joined: Mon Apr 17, 2006 3:44 pm

Re: Super Mario Theme

Fri Jan 31, 2014 5:19 am

How about sweet child o' mine gun roses. It's cool for mikrotik stratup.
 
vrikkidel
just joined
Posts: 2
Joined: Wed Sep 02, 2015 5:01 pm

Re: Super Mario Theme

Thu Sep 10, 2015 4:42 pm

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
 
jryanhill
newbie
Posts: 36
Joined: Wed Aug 03, 2011 7:20 pm

Re: Super Mario Theme

Tue Sep 15, 2015 12:43 am

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;
 
User avatar
ploquets
Member Candidate
Member Candidate
Posts: 162
Joined: Tue Nov 17, 2015 12:49 pm
Location: Uruguaiana, RS, Brazil
Contact:

Re: Super Mario Theme

Thu Jul 07, 2016 5:50 pm

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;
 
agfjpcs
newbie
Posts: 27
Joined: Mon Jul 04, 2016 6:36 am

Re: Super Mario Theme

Thu Nov 10, 2016 6:12 am

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
 
jryanhill
newbie
Posts: 36
Joined: Wed Aug 03, 2011 7:20 pm

Re: Super Mario Theme

Thu Nov 10, 2016 4:51 pm

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.
 
User avatar
grin
just joined
Posts: 16
Joined: Thu Nov 24, 2011 3:33 am
Location: Hungary

Re: Super Mario Theme

Tue Mar 28, 2017 7:56 pm

I don't want to disturb, but... here's my opinion about monophony:
https://wiki.mikrotik.com/wiki/Super_Mario_Theme_grin

enjoy. :)
 
Zero3K
just joined
Posts: 17
Joined: Sat Apr 22, 2017 11:25 pm
Location: Louisville, KY, USA

Re: Super Mario Theme

Mon May 15, 2017 6:24 am

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.
 
User avatar
grin
just joined
Posts: 16
Joined: Thu Nov 24, 2011 3:33 am
Location: Hungary

Re: Super Mario Theme

Mon May 15, 2017 12:17 pm

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.
 
Zero3K
just joined
Posts: 17
Joined: Sat Apr 22, 2017 11:25 pm
Location: Louisville, KY, USA

Re: Super Mario Theme

Mon May 15, 2017 9:40 pm

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.
You do not have the required permissions to view the files attached to this post.
 
User avatar
docmarius
Forum Guru
Forum Guru
Posts: 1222
Joined: Sat Nov 06, 2010 12:04 pm
Location: Timisoara, Romania
Contact:

Re: Super Mario Theme

Tue May 16, 2017 11:52 am

Make router racks great again :lol:
 
User avatar
nichky
Forum Guru
Forum Guru
Posts: 1275
Joined: Tue Jun 23, 2015 2:35 pm

Re: Super Mario Theme

Tue May 16, 2017 1:13 pm

That's nice work...

well done :)
 
s100
just joined
Posts: 2
Joined: Thu Jun 15, 2017 1:03 am

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

Thu Jun 15, 2017 1:36 am

hi whet is the right command to launch a beep from new terminal emulator at router board 912 please , help me :? :?
 
Lukasz032
just joined
Posts: 6
Joined: Tue Apr 29, 2014 4:31 pm

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

Wed Sep 13, 2017 5:01 am

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 :)
 
User avatar
grin
just joined
Posts: 16
Joined: Thu Nov 24, 2011 3:33 am
Location: Hungary

Re: Super Mario Theme

Sat Jul 28, 2018 10:58 am

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)
 
User avatar
Karas
just joined
Posts: 8
Joined: Sat Apr 21, 2012 2:53 am
Location: Port Elizabeth, South Africa

Re: Super Mario Theme

Fri May 03, 2019 10:32 am

Dont suppose anyone has, or can do, the X-Files theme?
 
User avatar
noyo
Member Candidate
Member Candidate
Posts: 116
Joined: Sat Jan 28, 2012 12:25 am
Location: Mazury - Poland
Contact:

Re: Super Mario Theme

Tue Sep 17, 2019 7:59 pm

Does anyone have "Mariah Carey - All I Want For Christmas Is You" on mikrotik?
 
adamkoks
just joined
Posts: 1
Joined: Fri Feb 26, 2021 8:21 pm

Re: Super Mario Theme

Fri Feb 26, 2021 8:28 pm

Call on me
:beep frequency=783 length=175ms;
:delay 200ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=1046 length=1175ms;
:delay 1400ms;
:beep frequency=988 length=225ms;
:delay 250ms;
:beep frequency=988 length=225ms;
:delay 250ms;
:delay 100ms;
:beep frequency=1046 length=175ms;
:delay 500ms;

:beep frequency=783 length=175ms;
:delay 200ms;
:beep frequency=880 length=175ms;
:delay 200ms;
:beep frequency=1046 length=1175ms;
:delay 1400ms;
:beep frequency=988 length=225ms;
:delay 250ms;
:beep frequency=988 length=225ms;
:delay 250ms;
:delay 100ms;
:beep frequency=1046 length=675ms;
:delay 700ms;
 
User avatar
Jotne
Forum Guru
Forum Guru
Posts: 3279
Joined: Sat Dec 24, 2016 11:17 am
Location: Magrathean

Re: Super Mario Theme

Sat Dec 25, 2021 10:20 pm

Jingle Bells based on data posted by ALIEN360 and format by Eworm
:local Beeps {
	{ 659; 150 }; 300; { 659; 150 }; 300; { 659; 500 }; 600;
	{ 659; 150 }; 300; { 659; 150 }; 300; { 659; 500 }; 600;
	{ 659; 150 }; 300; { 783; 150 }; 300; { 523; 400 }; 500;
	{ 587;  75 }; 100; { 659; 950 };1200; { 698; 150 }; 300;
	{ 698; 150 }; 300; { 698; 400 }; 500; { 698;  75 }; 100;
	{ 698; 150 }; 300; { 659; 150 }; 300; { 659; 250 }; 300;
	{ 659;  75 }; 150; { 659;  75 }; 150; { 659; 150 }; 300;
	{ 587; 150 }; 300; { 587; 150 }; 300; { 659; 150 }; 300;
	{ 587; 450 }; 600; { 783; 450 }; 600; { 659; 150 }; 300;
	{ 659; 150 }; 300; { 659; 500 }; 600; { 659; 150 }; 300;
	{ 659; 150 }; 300; { 659; 500 }; 600; { 659; 150 }; 300;
	{ 783; 150 }; 300; { 523; 400 }; 500; { 587;  75 }; 100;
	{ 659; 950 };1200; { 698; 150 }; 300; { 698; 150 }; 300;
	{ 698; 400 }; 500; { 698;  75 }; 100; { 698; 150 }; 300;
	{ 659; 150 }; 300; { 659; 250 }; 300; { 659;  75 }; 150;
	{ 659;  75 }; 150; { 783; 150 }; 300; { 783; 150 }; 300;
	{ 698; 150 }; 300; { 587; 150 }; 300; { 523; 750 };1200;
}

:foreach Beep in=$Beeps do={
	:if ([ :len $Beep ] = 2) do={
		:beep frequency=($Beep->0) length=(($Beep->1) . "ms")
	} else={
		:delay ($Beep . "ms")
	}
}
Last edited by Jotne on Sun Dec 26, 2021 3:49 pm, edited 2 times in total.
 
sid5632
Long time Member
Long time Member
Posts: 552
Joined: Fri Feb 17, 2017 6:05 pm

Re: Super Mario Theme

Sat Dec 25, 2021 10:41 pm

Much improved version (I found the original very stilted):
{
:local Beeps {
	{ 659; 150 }; 300; { 659; 150 }; 300; { 659; 500 }; 600;
	{ 659; 150 }; 300; { 659; 150 }; 300; { 659; 500 }; 600;
	{ 659; 150 }; 300; { 783; 150 }; 300; { 523; 400 }; 500; { 587; 75 }; 100; { 659; 950 }; 1200;
	{ 698; 150 }; 300; { 698; 150 }; 300; { 698; 400 }; 500; { 698; 75 }; 100;
	{ 698; 150 }; 300; { 659; 150 }; 300; { 659; 250 }; 300; { 659; 75 }; 150; { 659; 75 }; 150;
	{ 659; 150 }; 300; { 587; 150 }; 300; { 587; 150 }; 300; { 659; 150 }; 300; { 587; 450 }; 600; { 783; 450 }; 600;
	{ 659; 150 }; 300; { 659; 150 }; 300; { 659; 500 }; 600;
	{ 659; 150 }; 300; { 659; 150 }; 300; { 659; 500 }; 600;
	{ 659; 150 }; 300; { 783; 150 }; 300; { 523; 400 }; 500; { 587; 75 }; 100; { 659; 950 }; 1200;
	{ 698; 150 }; 300; { 698; 150 }; 300; { 698; 400 }; 500; { 698; 75 }; 100;
	{ 698; 150 }; 300; { 659; 150 }; 300; { 659; 250 }; 300; { 659; 75 }; 150; { 659; 75 }; 150;
	{ 783; 150 }; 300; { 783; 150 }; 300; { 698; 150 }; 300; { 587; 150 }; 300; { 523; 750 }; 1200;
}

:foreach Beep in=$Beeps do={
	:if ([ :len $Beep ] = 2) do={
		:beep frequency=($Beep->0) length=(($Beep->1) . "ms")
	} else={
		:delay ($Beep . "ms")
	}
}
}
 
User avatar
Jotne
Forum Guru
Forum Guru
Posts: 3279
Joined: Sat Dec 24, 2016 11:17 am
Location: Magrathean

Re: Super Mario Theme

Sat Dec 25, 2021 11:01 pm

Isn't this just the same, but just with more wrapped lines?
 
sid5632
Long time Member
Long time Member
Posts: 552
Joined: Fri Feb 17, 2017 6:05 pm

Re: Super Mario Theme

Sun Dec 26, 2021 1:09 pm

No.
Have you actually tried listening to it?
 
User avatar
Jotne
Forum Guru
Forum Guru
Posts: 3279
Joined: Sat Dec 24, 2016 11:17 am
Location: Magrathean

Re: Jingle Bells

Wed Nov 09, 2022 7:28 pm

Shorten version of Jingle Bells. (posted by sid5632)
# Jingle Bells
:local song "
659,150,300,	659,150,300,	659,500,600,	659,150,300,	659,150,300,	659,500,600,
659,150,300,	783,150,300,	523,400,500,	587,75,100,	659,950,1200,	698,150,300,
698,150,300,	698,400,500,	698,75,100,	698,150,300,	659,150,300,	659,250,300,
659,75,150,	659,75,150,	659,150,300,	587,150,300,	587,150,300,	659,150,300,
587,450,600,	783,450,600,	659,150,300,	659,150,300,	659,500,600,	659,150,300,
659,150,300,	659,500,600,	659,150,300,	783,150,300,	523,400,500,	587,75,100,
659,950,1200,	698,150,300,	698,150,300,	698,400,500,	698,75,100,	698,150,300,
659,150,300, 	659,250,300,	659,75,150,	659,75,150,	783,150,300,	783,150,300,
698,150,300, 	587,150,300,	523,750,1200
"
:set song [:toarray $song]
:for i from=0 to=([:len $song] - 3) step=3 do={
    :beep frequency=[:tonum [:pick $song $i]] length=([:tostr [:pick $song ($i + 1)]]."ms")
    :delay ([:tostr [:pick $song ($i + 2)]]."ms")
}
 
User avatar
rextended
Forum Guru
Forum Guru
Posts: 11967
Joined: Tue Feb 25, 2014 12:49 pm
Location: Italy
Contact:

Re: Super Mario Theme

Thu Nov 10, 2022 11:14 am

Revised...
# Jingle Bells
:local song [:toarray "
     659, 150, 300,   659, 150, 300,   659, 500, 600,   659, 150, 300,   659, 150, 300,   659, 500, 600,   659, 150, 300,
     783, 150, 300,   523, 400, 500,   587,  75, 100,   659, 950,1200,   698, 150, 300,   698, 150, 300,   698, 400, 500,
     698,  75, 100,   698, 150, 300,   659, 150, 300,   659, 250, 300,   659,  75, 150,   659,  75, 150,   659, 150, 300,
     587, 150, 300,   587, 150, 300,   659, 150, 300,   587, 450, 600,   783, 450, 600,   659, 150, 300,   659, 150, 300,
     659, 500, 600,   659, 150, 300,   659, 150, 300,   659, 500, 600,   659, 150, 300,   783, 150, 300,   523, 400, 500,
     587,  75, 100,   659, 950,1200,   698, 150, 300,   698, 150, 300,   698, 400, 500,   698,  75, 100,   698, 150, 300,
     659, 150, 300,   659, 250, 300,   659,  75, 150,   659,  75, 150,   783, 150, 300,   783, 150, 300,   698, 150, 300,
     587, 150, 300,   523, 750,1200"]
# last delay must be immediately followed by "
:for i from=0 to=([:len $song] - 3) step=3 do={
    :beep frequency=[:tonum [:pick $song $i]] length="$[:tonum [:pick $song ($i + 1)]]ms"
    :delay "$[:tonum [:pick $song ($i + 2)]]ms"
}
Last edited by rextended on Thu Nov 10, 2022 11:32 am, edited 1 time in total.
 
pe1chl
Forum Guru
Forum Guru
Posts: 10185
Joined: Mon Jun 08, 2015 12:09 pm

Re: Super Mario Theme

Thu Nov 10, 2022 11:21 am

Unfortunately :beep (or the hardware required for it) is mostly a thing of the past...
 
User avatar
rextended
Forum Guru
Forum Guru
Posts: 11967
Joined: Tue Feb 25, 2014 12:49 pm
Location: Italy
Contact:

Re: Super Mario Theme

Thu Nov 10, 2022 11:25 am

Unfortunately :beep (or the hardware required for it) is mostly a thing of the past...
😢😢😢

Who is online

Users browsing this forum: Google [Bot], totpbi, UkRainUa and 18 guests