Jump to content
Sign in to follow this  
xan

Tetris song Beep

Recommended Posts

xan

HotKeySet("{space}", "Go")

$go = 0

While 1
   if $go Then
Beep(493.8833,500);B
Beep(65,13)
Beep(369.9944,250);F#
Beep(65,13)
Beep(391.9954,250);G
Beep(65,13)
Beep(440,500) ;A
Beep(65,13)
Beep(391.9954,250);G
Beep(65,13)
Beep(369.9944,250);F#
Beep(65,13)
Beep(65,13)
Beep(329.6276,550) ;E
Beep(65,13)
Beep(329.6276,250) ;E
Beep(65,13)
Beep(391.9954,250);G
Beep(493.8833,550);B
Beep(440,250) ;A
Beep(391.9954,250);G
Beep(369.9944,550);F#
Beep(369.9944,250);F#
Beep(391.9954,250);G
Beep(440,500) ;A
Beep(493.8833,500);B
Beep(391.9954,500);G
Beep(329.6276,700) ;E
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(65,13)
Sleep(50)
Beep(440,500) ;A
Beep(440,300) ;A
Beep(523.2511,250);D8
Beep(659.2551,500);E8
Beep(587.3295,250);D8
Beep(523.2511,250);C8
Beep(493.8833,500);B
Beep(493.8833,250);B
Beep(391.9954,250);G
Beep(493.8833,500);B
Beep(440,300);A
Beep(391.9954,250);G
Beep(369.9944,500);F#
Beep(369.9944,250);F#
Beep(391.9954,250);G
Beep(440,500);A
Beep(493.8833,500);B
Beep(391.9954,500);G
Beep(329.6276,600);E
Sleep(1000)
$go -= 1
EndIf
WEnd

Func Go()
  If Not $go Then
    $go=2
    Sleep(900)
    Else
        Exit
    EndIf
EndFunc

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.