Sample Background animation in battle screen for up coming game.

[Cobalt]

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%%
58. END SUB
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%%
80. END SUB
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)
86. END SUB
87.  
88. SUB ChangeFrame
89.  STATIC Flap%%
90.  IF Flap%% THEN
91.   BatFrame%% = BatFrame%% - 1
92.  ELSE
93.   BatFrame%% = BatFrame%% + 1
94.  END IF
95.  IF BatFrame%% = 3 THEN Flap%% = TRUE
96.  IF BatFrame%% = 0 THEN Flap%% = FALSE
97. END SUB
98.  
99. SUB MFI_Loader (FN$)
100.  DIM Size(128) AS LONG, FOffset(128) AS LONG
101.  OPEN FN$ FOR BINARY AS #1
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"
116. END SUB
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)
126. END FUNCTION
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")
136. END FUNCTION
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")
146. END FUNCTION
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.

[SMcNeill]

Can you use the same flapping sound from Terry's flappy bird clone?

[Cobalt]

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.

[SierraKen]

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!

[Cobalt]

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.

[SierraKen]

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.

[Ashish]

Amazing, Cool Animation and nice background music.
Looking forward to your game! :)

[Pete]

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

[johnno56]

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!!