First Spear Posted March 17, 2017 Share Posted March 17, 2017 (edited) Mode 0,1,0,1,0WaitBorder 1,0Scroll 4,4,0For borderNew=0 to 200 Step 20 : Poke $200+borderNew, $2000: Poke $213+borderNew, $2000 : Next borderNewWaitWaitPrint At 21 Color 7 , "Thin Ice Theme"Print At 141 Color 5 , "Restart: Top side"Print At 161 Color 6 , "Exit: Bottom side"ecsCheck = peek($4000)Poke $4000 , ecsCheck + 1If Peek($4000) = ecsCheck + 1 thenPrint At 81 Color 4 , "(PSG+ECS) "ElsePrint At 81 Color 4 , "(PSG only)"End IfWaitPlay FullWaitPlay ThinIceThemeWaitGoto PlayLoopPlayLoop:WaitIf Cont.B0 Then Wait : Play Off : Wait : Play ThinIceThemeIf Cont.B1 Then Goto ExitThisIf Cont.B2 Then Goto ExitThisWaitGoto PlayLoopExitThis:WaitPrint At 213 Color (Rand and 7) , "Bye."For spinWait = 0 to 5WaitNextPlay OffThinIceTheme:Data 6Music E2 , E2Music - , -Music - , -Music - , -Music - , -Music - , -Music G5 , C4Music S , SMusic E5 , E4Music F5 , SMusic G5 , G3Music S , SMusic A5 , E4Music S , SMusic C6 , C4Music S , SMusic A5 , E4Music S , SMusic G5 , G3Music S , SMusic A5 , E4Music S , SMusic B5 , B3Music S , SMusic G5 , F4Music S , SMusic D5 , G3Music S , SMusic E5 , F4Music S , SMusic G5 , B3Music S , SMusic S , F4Music S , SMusic S , G3Music S , SMusic G5 , F4Music A5 , -Music B5 , B3Music S , SMusic S , F4Music S , SMusic C6 , G3Music S , SMusic D6 , F4Music S , SMusic C6 , B3Music S , SMusic B5 , F4Music S , SMusic C6 , G3Music S , SMusic B5 , F4Music S , SMusic S , C4Music S , SMusic E5 , E4Music S , SMusic D5# , G3Music S , SMusic E5 , E4Music S , SMusic G5 , C4Music S , SMusic S , E4Music S , SMusic S , G3Music S , SMusic G5 , E4Music A5 , -Music C6 , C4Music S , SMusic G5 , E4Music S , SMusic E6 , G3Music S , SMusic C6 , E4Music S , SMusic G5 , C4Music S , SMusic F5# , E4Music S , SMusic F5 , G3Music S , SMusic E5 , E4Music S , SMusic S , B3Music S , SMusic S , F4Music S , SMusic D5 , G3Music S , SMusic E5 , F4Music S , SMusic G5 , B3Music S , SMusic S , F4Music S , SMusic S , G3Music S , SMusic G5 , F4Music A5 , -Music B5 , B3Music S , SMusic S , F4Music S , SMusic C6 , G3Music S , SMusic D6 , F4Music S , SMusic C6 , B3Music S , SMusic B5 , F4Music S , SMusic A5 , G3Music S , SMusic B5 , F4Music S , SMusic C6 , C4Music S , SMusic S , E4Music S , SMusic S , G3Music S , SMusic S , E4Music S , SMusic S , C4Music S , SMusic S , E4Music S , SMusic S , G3Music S , SMusic S , E4Music - , SMusic - , SMusic - , SMusic - , SMusic - , SMusic - , SMusic - , SMusic - , SMusic - , SMusic - , SMusic Repeat Actually I don't think this is all that rough. The song is pretty short and 2 voices.Enjoy. songproto-thinicetheme.bas songproto-thinicetheme.rom Thanks. Edited March 17, 2017 by First Spear Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.