Jump to content
Sign in to follow this  
First Spear

IntyBASIC Rough Song: Frenetic Bonus

Recommended Posts

A little something produced about 20 minutes ago. Free for anyone to take+use for whatever project they have. I thought it sounds like something that might show after a level/board is cleared, or maybe on a loop (modified slightly from this) when time is running low in a clock-based game. Enjoy.

 

image.thumb.png.9bfe638fed4cd6f89c1fcc4d86a67cef.png

 

songproto-BonusFrenetic1.bin

songproto-BonusFrenetic1.cfg

songproto-BonusFrenetic1.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 , "Frenetic" 
Print At  41 Color 7 , "Bonus" 
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 Simple
Wait : Wait
Goto PlayLoop
 
 
PlayLoop:
     Wait
     If Cont.B0 Then Wait : Play Off : Wait : Play MusicInit : Play FrenBonus
     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 5


		Music      - ,  -   
		Music      - ,  -   
		Music      - ,  -   
		Music      - ,  -   
		Music Stop

FrenBonus:
Data 5


  		Music      G3#X  ,  -           
  		Music      S     ,  -           
  		Music      F3#   ,  -           
  		Music      F3#   ,  C3#W        
  		Music      G3#   ,  B2X         
  		Music      S     ,  S           
  		Music      F3#   ,  C3W         
  		Music      F3#   ,  -           
  		Music      G3#   ,  -           
  		Music      S     ,  -           
  		Music      F3#   ,  C3#         
  		Music      F3#   ,  -           
  		Music      A3#   ,  B2          
  		Music      S     ,  S           
  		Music      F3#   ,  C3#         
  		Music      F3#   ,  -           
  		Music      G3#   ,  -           
  		Music      S     ,  -           
  		Music      F3#   ,  -           
  		Music      F3#   ,  C3#         
  		Music      G3#   ,  B2          
  		Music      C3#   ,  S           
  		Music      F3#   ,  C3#         
  		Music      F3#   ,  G3#         
  		Music      D3    ,  S           
  		Music      -     ,  S           
  		Music      F3#   ,  D3          
  		Music      F3#   ,  A3W         
  		Music      A3    ,  -           
  		Music      -     ,  -           
  		Music      G3    ,  -           
		Music      S    ,  -   
		Music      S    ,  -   
		Music      S    ,  -   
		Music      S    ,  -   

Music Repeat

 

 

(Yes, I'm back, kind-of)

 

 

 

  • Like 1

Share this post


Link to post
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...