Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on July 07, 2020, 12:42:44 pm

Title: Sample Background animation in battle screen for up coming game.
Post by: Cobalt on July 07, 2020, 12:42:44 pm
Looking for input on what any of you guys think about the Look and Sound of the battle screen for the project I have started on,

 Phantasy Star 64

With thee obligatory '64' tacked on the end cause that is how I roll!

Still a long way to go but what do you guy think of the look and sound? not a  true clone of the original look but just trying to spice my version up, a wee lil' bit, lassy.

think I still need to find a mild flapping  sound effect for these creatures, what do you think?

Code: QB64: [Select]
  1. 'Battle Mechanics Animation Department Ver .001
  2. 'DATE 7/7/20
  3. 'Beta Screening at QB64-Con 2020 XD
  4.  
  5. SCREEN _NEWIMAGE(640, 480, 32)
  6. DIM SHARED Mix&, BeachBattleLayer&, SeaBattleLayer&, WingedEye&, BatFrame%%
  7. DIM SHARED Battle&, Ambi&
  8. CONST TRUE = -1, FALSE = NOT TRUE
  9. Mix& = _NEWIMAGE(640, 480, 32)
  10.  
  11. MFI_Loader "BattleSample.MFI"
  12. _CLEARCOLOR _RGB32(128), WingedEye&
  13. BatTime& = _FREETIMER
  14. ON TIMER(BatTime&, .125) ChangeFrame
  15.  
  16. _SNDVOL Ambi&, .2 'back ground ambience volume
  17. _SNDVOL Battle&, .75 'battle music volume
  18. _SNDSETPOS Battle&, 15 'jump here at start of battle
  19. _SNDLOOP Ambi&
  20. _SNDLOOP Battle&
  21. _DELAY .75 'lets make sure everything is loaded and going first
  22. TIMER(BatTime&) ON 'LOOK MOM IT MOVES BY ITSELF!
  23.  
  24. 'change the REMed out line to see each type of water battle background screen animation
  25. ' SeaBattleBackground
  26. BeachBattleBackground
  27.  
  28. _SNDSTOP Ambi&
  29. _SNDSTOP Battle&
  30. TIMER(BatTime&) OFF
  31.  
  32. SUB BeachBattleBackground
  33.  Frame%% = 0
  34.  Wavein%% = -1
  35.  Waveout%% = 0
  36.  DO
  37.   _PUTIMAGE (64, 48)-STEP(511, 279), BeachBattleLayer&, Mix&, (0, 0)-STEP(255, 139)
  38.   _PUTIMAGE (64, 328)-STEP(511, 95), BeachBattleLayer&, Mix&, (0, 144 + (48 * Frame%%))-STEP(255, 47)
  39.   Display_Bat
  40.  
  41.   IF Count%% < 15 THEN 'each frame of animation stays for 16 frames of time
  42.    Count%% = Count%% + 1
  43.   ELSE
  44.    Count%% = 0
  45.    IF Wavein%% THEN
  46.     IF Frame%% < 6 THEN Frame%% = Frame%% + 1 ELSE Wavein%% = 0: Waveout%% = -1
  47.    END IF
  48.    IF Waveout%% THEN
  49.     IF Frame%% > 0 THEN Frame%% = Frame%% - 1 ELSE Wavein%% = -1: Waveout%% = 0
  50.    END IF
  51.   END IF
  52.  
  53.   _PUTIMAGE , Mix&, _DISPLAY
  54.   LOCATE 1, 1: PRINT "ESC to end"
  55.   _LIMIT 60
  56.   IF INKEY$ = CHR$(27) THEN ExitFlag%% = -1
  57.  LOOP UNTIL ExitFlag%%
  59.  
  60.  
  61. SUB SeaBattleBackground
  62.  '-----------------------------Sea Battle Background Animation-----------------------------
  63.  Frame%% = 0
  64.  DO
  65.   _PUTIMAGE (64, 48)-STEP(511, 207), SeaBattleLayer&, Mix&, (0, 0)-STEP(255, 103)
  66.   _PUTIMAGE (64, 256)-STEP(511, 175), SeaBattleLayer&, Mix&, (0, 104 + (88 * Frame%%))-STEP(255, 87)
  67.   Display_Bat
  68.   IF Count%% < 11 THEN 'each frame of animation stays for 12 frames of time
  69.    Count%% = Count%% + 1
  70.   ELSE
  71.    Count%% = 0
  72.    IF Frame%% < 8 THEN Frame%% = Frame%% + 1 ELSE Frame%% = 0
  73.   END IF
  74.  
  75.   _PUTIMAGE , Mix&, _DISPLAY
  76.   LOCATE 1, 1: PRINT "ESC to end"
  77.   _LIMIT 60
  78.   IF INKEY$ = CHR$(27) THEN ExitFlag%% = -1
  79.  LOOP UNTIL ExitFlag%%
  81.  
  82. SUB Display_Bat
  83.  _PUTIMAGE (272 + INT(RND * 1) - 0, 170 + INT(RND * 1) - 0)-STEP(115, 117), WingedEye&, Mix&, (0 + 59 * BatFrame%%, 0)-STEP(57, 64)
  84.  _PUTIMAGE (202 + INT(RND * 1) - 0, 200 + INT(RND * 1) - 0)-STEP(115, 117), WingedEye&, Mix&, (0 + 59 * BatFrame%%, 0)-STEP(57, 64)
  85.  _PUTIMAGE (322 + INT(RND * 1) - 0, 190 + INT(RND * 1) - 0)-STEP(115, 117), WingedEye&, Mix&, (0 + 59 * BatFrame%%, 0)-STEP(57, 64)
  87.  
  88. SUB ChangeFrame
  89.  STATIC Flap%%
  90.  IF Flap%% THEN
  91.   BatFrame%% = BatFrame%% - 1
  93.   BatFrame%% = BatFrame%% + 1
  95.  IF BatFrame%% = 3 THEN Flap%% = TRUE
  96.  IF BatFrame%% = 0 THEN Flap%% = FALSE
  98.  
  99. SUB MFI_Loader (FN$)
  100.  DIM Size(128) AS LONG, FOffset(128) AS LONG
  102.  GET #1, , c~%% 'retrieve number of files
  103.  FOR I~%% = 1 TO c~%%
  104.   GET #1, , FOffset(I~%%)
  105.   GET #1, , Size(I~%%)
  106.   FOffset&(I~%%) = FOffset&(I~%%) + 1
  107.  NEXT I~%%
  108.  WingedEye& = LoadGFX(FOffset(1), Size(1)) 'winged eye monster sprite sheet sample
  109.  BeachBattleLayer& = LoadGFX(FOffset(2), Size(2)) 'beach battle background animation sheet
  110.  SeaBattleLayer& = LoadGFX(FOffset(3), Size(3)) 'Sea battle background animation sheet
  111.  
  112.  Battle& = LoadSFX(FOffset(4), Size(4)) 'Battle Theme
  113.  Ambi& = LoadSFX(FOffset(5), Size(5)) 'Ocean wave ambience
  114.  CLOSE #1
  115.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  117.  
  118. FUNCTION LoadGFX& (Foff&, Size&)
  119.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  120.  OPEN "temp.dat" FOR BINARY AS #3
  121.  dat$ = SPACE$(Size&)
  122.  GET #1, Foff&, dat$
  123.  PUT #3, , dat$
  124.  CLOSE #3
  125.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  127.  
  128. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
  129.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  130.  OPEN "temp.dat" FOR BINARY AS #3
  131.  dat$ = SPACE$(Size&)
  132.  GET #1, Foff&, dat$
  133.  PUT #3, , dat$
  134.  CLOSE #3
  135.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
  137.  
  138. FUNCTION LoadSFX& (Foff&, Size&)
  139.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  140.  OPEN "temp.dat" FOR BINARY AS #3
  141.  dat$ = SPACE$(Size&)
  142.  GET #1, Foff&, dat$
  143.  PUT #3, , dat$
  144.  CLOSE #3
  145.  LoadSFX& = _SNDOPEN("temp.dat")
  147.  

when I attach the code as a file it always adds a TXT to the end, so moved it to a code box for now.
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: SMcNeill on July 07, 2020, 01:50:34 pm
Can you use the same flapping sound from Terry's flappy bird clone?
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: Cobalt on July 07, 2020, 02:23:38 pm
I don't know.  Its a bit fast like a smaller bird, and whether or not I could tweak it to be slower and sound 'bigger' on todays computers I'm not sure. I had some great software on Win98 that I would say "Absolutely I can" but with Audacity I'm not sure If I can pull it off as well or as easily.
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: SierraKen on July 07, 2020, 02:29:25 pm
Great animation! Very "80's computer game" feel to it. Except the music of course, which makes it even better. Both you and Dav are pretty good artists!
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: Cobalt on July 07, 2020, 02:35:17 pm
Quote from: SierraKen on July 07, 2020, 02:29:25 pm
Great animation! Very "80's computer game" feel to it. Except the music of course, which makes it even better. Both you and Dav are pretty good artists!

Thank you, BUT
Let me set the record straight as I do not deserve that credit, those are the graphics from the original game for the SEGA Master System.  I don't want any confusion to that.

I don't want people to think I am someone who would steal others work and claim it as my own.  The code is mine, but the graphics are not, the music I actually paid for to use in my projects, and the ambient stuff I found somewhere with that  creative commons use thingy.
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: SierraKen on July 07, 2020, 03:11:26 pm
Ahhh OK thanks, I thought those flying things looked familiar. I had the Sega Master System back in my teenage years. lol Still a good job putting it all together though.
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: Ashish on July 08, 2020, 12:31:26 am
Amazing, Cool Animation and nice background music.
Looking forward to your game! :)
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: Pete on July 08, 2020, 02:50:52 am
I could record you the sound my comb-over makes, on a windy day, if that would help. It's a flapping sound similar to Trump's, but lower pitched, because he's three inches taller.

Pete
Title: Re: Sample Background animation in battle screen for up coming game.
Post by: johnno56 on July 08, 2020, 03:08:52 am
Just tried it out on my Linux machine. Ran 'out of the box'. No errors. No filename renames. It worked!

My opinion: Reminiscent of mid-late 80's. Cool... A little creepy but cool... What? Flying eyeballs 'not' creepy? lol Very nicely done!!
Text Only | Text with Attachments