Tetris song Beep

[xan]

expandcollapse popup

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

[AZJIO]

xan

You can use a number of musical notes.

'?do=embed' frameborder='0' data-embedContent>>

[xan]

Cool, I'll try, thanks