First Spear Posted July 6, 2016 Share Posted July 6, 2016 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 , "LnC Level Start!"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 41 Color 4 , "(PSG+ECS) "ElsePrint At 41 Color 4 , "(PSG only)"End IfWaitPlay FullWaitPlay MyMusicWaitGoto PlayLoopPlayLoop:WaitIf Cont.B0 Then Wait : Play Off : Wait : Play MyMusicIf Cont.B1 Then Goto ExitThisIf Cont.B2 Then Goto ExitThisWaitGoto PlayLoopExitThis:WaitPrint At 217 Color (Rand and 7) , "Bye."For spinWait = 0 to 5WaitNextPlay OffMyMusic:Data 6Music D4#X , D2# , D4#Music D4# , S , D4#Music G4 , S , G4Music G4 , S , G4Music A4# , G2 , A4#Music A4# , S , A4#Music D5# , S , D5#Music D5# , S , D5#Music D5 , A2# , D5Music D5# , S , D5#Music D5 , S , D5Music C5 , S , C5Music A4# , G2 , A4#Music G4# , S , G4#Music G4 , S , G4Music F4 , S , F4Music D4# , D2# , D4#Music D4# , D2# , D4#Music G4 , G2 , G4Music G4 , G2 , G4Music A4# , A2# , A4#Music A4# , A2# , A4#Music D5# , D3# , D5#Music D5# , D3# , D5#Music F5 , F3 , F5Music S , S , SMusic - , S , SMusic - , S , SMusic - , S , SMusic - , S , SMusic - , S , SMusic - , S , SMusic - , S , SMusic - , S , SMusic - , S , SMusic - , - , SMusic - , - , SMusic - , - , SMusic Stop Enjoy. lncLevelStart.rom lncLevelStart.bas 1 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.