IntyBASIC Rough Song: EmergencySet1

[First Spear]

 

 

Code only this time. I thought this might be useful for a game maker to add a loop when there is some kind of emergency situation. Play with the octaves and instruments a bit, see if it fits your project. Free to use for anyone that wants.

 

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 , "EmergencySet1" 
Print At 141 Color 5  , "Restart: 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 Simple
Wait
Play EmergencySet1
Wait
Goto PlayLoop
 
 
PlayLoop:
     Wait
     If Cont.B0 Then Wait : Play Off : Wait : Play EmergencySet1
     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
 

EmergencySet1:
Data 6


  		Music      C3W   ,  F3#W 
  		Music      F3#   ,  S    
  		Music      -     ,  F4#  
  		Music      D3    ,  -    
  		Music      -     ,  F4#  
  		Music      F3#   ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  G4#  
  		Music      F4#   ,  -    
  		Music      -     ,  G4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      C3    ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  G4#  
  		Music      D3    ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      F3#   ,  -    
  		Music      -     ,  F4#  
  		Music      F3    ,  -    
  		Music      -     ,  G4#  
  		Music      F3#   ,  -    
  		Music      -     ,  F4#  
  		Music      F3#   ,  -    
  		Music      -     ,  F4#  
  		Music      C3    ,  -    
  		Music      -     ,  F4#  
  		Music      F3#   ,  -    
  		Music      -     ,  G4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      F3#   ,  -    
  		Music      -     ,  G4#  
  		Music      F3#   ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      C3    ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      F3#   ,  -    
  		Music      -     ,  F4#  
  		Music      G4#   ,  -    
  		Music      -     ,  F4#  
  		Music      F4#   ,  -    
  		Music      -     ,  F4#  
  		Music      D3    ,  -    
  		Music      -     ,  F3   
  		Music      D3    ,  -    
  		Music      -     ,  F4#  
  		Music      F3#   ,  -    
  		Music      -     ,  D3   

Music Repeat