First Spear Posted July 6, 2019 Share Posted July 6, 2019 (edited) Experimenting with some new stuff to produce Inty music a little better in IntyBASIC. Here is something that should resemble the ditty from Pooyan. REM 2019-07-06T04:07:51Z REM Pooyan 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 , "Pooyan" Print At 141 Color 5 , "Restart: Top side" Print At 161 Color 6 , "Exit: Bottom side" ecsCheck = peek($4000) Poke $4000 , ecsCheck + 1 If Peek($4000) = ecsCheck + 1 then Print At 101 Color 4 , "PSG+ECS" Else PlayLoop: Wait If Cont.B0 Then Wait : Play Off : Wait : Play Pooyan 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 Pooyan: Data 6 Music - , - , - , - Music - , - , - , - Music G6X , - , G6Z , - Music A6 , G6Y , A6 , - Music B6 , A6 , B6 , - Music C6 , B6 , C6 , - Music S , C6 , S , - Music G6 , S , G6 , - Music S , G6 , S , - Music E6 , S , E6 , - Music S , E6 , S , - Music C6 , S , C6 , - Music S , C6 , S , - Music A6 , S , A6 , - Music S , A6 , S , - Music S , S , S , - Music S , S , S , - Music S , S , S , - Music S , S , S , - Music B6 , S , B6 , - Music A6 , B6 , A6 , - Music G6 , A6 , G6 , - Music S , G6 , S , - Music F6 , S , F6 , - Music S , F6 , S , - Music E6 , S , E6 , - Music S , E6 , S , - Music D6 , S , D6 , - Music S , D6 , S , - Music C6 , S , C6 , - Music S , C6 , S , - Music C6 , S , S , - Music S , S , S , - Music S , S , S , - Music Stop [/spolier] Edited July 6, 2019 by First Spear Quote Link to comment Share on other sites More sharing options...
Zendocon Posted July 29, 2019 Share Posted July 29, 2019 I tried running this code. I finally heard the tune when I prefaced the line "Play Pooyan" with "Play Full" and "Play Volume 10". Perhaps it's because I'm using IntyBASIC v1.4.1. I had to make two corrections. IntyBASIC overlooked the fact you used "Else" instead of "End If", but as1600 threw an exception. Also, in the music data, the first instance of "C6" in each of the music channels should be "C7". Note C on the scale is where the octave number increases. So far, so good. I like your ECS auto-detection code, although in IntyBASIC v1.4.1, you now only need ECS.AVAILABLE. 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.