IntyBASIC Rough Song: Level Start 1

[First Spear]

A little something that sounds like it might fit to play at the start of a game level. Edit/use as you please, no strings attached.

Enjoy!

 

 

 

songproto-LevelStart1.cfg

songproto-LevelStart1.bin

songproto-LevelStart1.bas

    
Mode 0,1,0,1,0
Wait
Border 1,0
Scroll 4,4,0
For borderNew=0 to 200 Step 20 : Poke $200+borderNew, $2000: Poke $213+borderNew, $2000 : Next borderNew
Wait
Wait
Print At  21 Color 7 , "Level Start" 
Print At 141 Color 5  , "Start: Top side" 
Print At 161 Color 6  , "Exit: Bottom side" 
 
MusicPage = MusicPage 
ecsCheck = peek($4000)
Poke $4000 , ecsCheck + 1
If Peek($4000) = ecsCheck + 1 then
     Print At 101 Color 4 , "PSG+ECS" 
Else
     Print At 101 Color 4 , "PSG only" 
End If
Wait
Play Full
Wait :  Wait
Goto PlayLoop
 
 
PlayLoop:
     Wait
     If Cont.B0 Then Wait : Play Off : Wait : Play MusicInit : Wait : Wait : Wait : Play test1
     If Cont.B1 Then Goto ExitThis
     If Cont.B2 Then Goto ExitThis
     Wait
     Goto PlayLoop

ExitThis:
    Wait
    Print At 213 Color (Rand and 7) , "Bye." 
    For spinWait = 0 to 5
         Wait
    Next
    Play Off
    Goto ExitThis
 

 


MusicInit:
Data 6
Music      - ,  - , -
Music      - ,  - , -
Music      - ,  - , -
Music      - ,  - , -
Music Stop


test1:
Data 6

		Music      D5W   ,  B2W   ,  F3#W  
		Music      E5    ,  S     ,  -     
		Music      F3#   ,  A5#   ,  E5    
		Music      E5    ,  -     ,  S     
		Music      A5#   ,  D5    ,  B2    
		Music      -     ,  -     ,  S     
		Music      A5#   ,  F3#   ,  E5    
		Music      A3    ,  -     ,  -     
		Music      -     ,  F3#   ,  B2    
		Music      A3    ,  -     ,  S     
		Music      F3#   ,  A5#   ,  E5    
		Music      -     ,  -     ,  -     
		Music      A5#   ,  A3    ,  B2    
		Music      -     ,  S     ,  S     
		Music      F3#   ,  A5#   ,  E5    
		Music      -     ,  -     ,  -     
		Music      B2    ,  F3#   ,  A5#   
		Music      S     ,  -     ,  -     
		Music      F3#   ,  A5#   ,  E5    
		Music      -     ,  -     ,  -     
		Music      B2    ,  F3#   ,  A5#   
		Music      S     ,  -     ,  -     
		Music      F3#   ,  A5#   ,  E5    
		Music      A3    ,  -     ,  -     
		Music      B2    ,  D5    ,  A5#   
		Music      A3    ,  -     ,  -     
		Music      F3#   ,  E5    ,  A5#   
		Music      -     ,  -     ,  -     
		Music      A5#   ,  B2    ,  A3    
		Music      S     ,  S     ,  S     
		Music      S     ,  S     ,  S
		Music      S     ,  S     ,  S
		Music      S     ,  S     ,  S

Music Stop