xan Posted April 13, 2014 Share Posted April 13, 2014 expandcollapse popupHotKeySet("{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 Link to comment Share on other sites More sharing options...
AZJIO Posted April 14, 2014 Share Posted April 14, 2014 xan You can use a number of musical notes. '?do=embed' frameborder='0' data-embedContent>> My other projects or all Link to comment Share on other sites More sharing options...
xan Posted April 15, 2014 Author Share Posted April 15, 2014 Cool, I'll try, thanks Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now