Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on May 12, 2021, 02:55:46 pm

Title: Its Been A While! But here, Try This!!
Post by: Cobalt on May 12, 2021, 02:55:46 pm
Walk the world of Palma!
What more can be said? Explore the over-world with out boundaries!
No collision checking in this version so walk where you want.
Marvel at the amazing animation!
Drool over the lush 16 color palette!
And be left Wanting More!

Seriously though, give it a try. What do you think? Its been a while since I have posted anything so wanted to give you guys something.

Controls:
Arrow keys move character.
ESC key quits.

And as always don't forget to download the resource file attached.
and Subscribe, Like, Share and Comment below! XD (all my kingdom for few smilies!)
Code: QB64: [Select]
  1. 'World of Palma; Exploration demo
  2. '5/12/2021
  3. 'Collision checking OFF version
  4. 'Cobalt
  5. TYPE WorldTiles
  7.  Is_Walkable AS _BYTE
  8.  Is_Animated AS _BYTE
  9.  Encounter_Group AS _BYTE 'what types of creature encounters possible
  10.  Is_Village AS _BYTE
  11.  Is_Cave AS _BYTE 'Covers all Cave-like locations
  13. TYPE PlayerTemp
  14.  Wx AS INTEGER
  15.  Wy AS INTEGER
  16.  Tx AS _BYTE
  17.  Ty AS _BYTE
  18.  Fr AS _BYTE
  20.  
  21. SCREEN _NEWIMAGE(640, 480, 32)
  22. DIM SHARED Map(128, 96) AS WorldTiles, P AS PlayerTemp
  23. DIM SHARED char&, MapAni&, TileX2&, Temp&, frame%, FPSC%, g.facing AS _BYTE, g.moving AS _BYTE
  24. DIM SHARED Conv&, AlisAnim(4) AS _BYTE
  25. DIM SHARED AnimationOrder(3, 8) '8 frames for sync between Waves\marsh and Shore animations
  26. Temp& = _NEWIMAGE(640, 480, 32)
  27.  
  28. MFI_Loader "PS_Overworld_test.MFI"
  29.  
  30. _CLEARCOLOR _RGB32(62), char&
  31. 'place the conveyor system in corect world location
  32. CONST Conveyor_1_Pos_X = 32 * 73
  33. CONST Conveyor_1_Pos_Y = 32 * 46 + 8
  34. CONST Conveyor_2_Pos_X = 32 * 70 + 8
  35. CONST Conveyor_2_Pos_Y = 32 * 49
  36. CONST Conveyor_Frame_Speed = 2
  37. '--------------------------------------------------
  38. DATA 0,1,2,3,4,4,1,0: 'shore animation order
  39. FOR i%% = 0 TO 7
  40.  READ AnimationOrder(1, i%%)
  41. NEXT i%%
  42. DATA 0,1,2,1: 'animation frame order
  43. FOR i%% = 0 TO 3
  44.  READ AlisAnim(i%%)
  45. NEXT i%%
  46.  
  47. CONST TRUE = -1, FALSE = NOT TRUE
  48. CONST Default_Key_Right = 19712, Default_Key_Left = 19200, Default_Key_Up = 18432, Default_Key_Down = 20480
  49. CONST Default_A_Button = 32, Default_B_Button = 13, Default_Start_Button = 65, Default_Select_Button = 66
  50. CONST down = 0, up = 1, right = 2, left = 3
  52.  
  54. ON TIMER(T2!, 1) FPS
  55.  
  56. TIMER(T2!) ON
  57. Mapx% = 60
  58. Mapy% = 40
  59. P.Wx = 70
  60. P.Wy = 45
  62.  Map_Loader_tiled_Base P.Wx, P.Wy, P.Tx, P.Ty 'Mapx%, Mapy%, Playrx%, Playry%
  63.  _PRINTSTRING (0, 0), STR$(FPSC%), Temp&
  64.  _PRINTSTRING (48, 0), STR$(P.Wx), Temp&
  65.  _PRINTSTRING (96, 0), STR$(P.Wy), Temp&
  66.  Place_Alis
  67.  _PUTIMAGE , Temp&, _DISPLAY
  68.  frame% = frame% + 1
  69.  '-----------------Controls------------------
  70.  IF _KEYDOWN(Default_Key_Up) AND (NOT g.moving) THEN g.facing = up: g.moving = TRUE
  71.  IF _KEYDOWN(Default_Key_Left) AND (NOT g.moving) THEN g.facing = left: g.moving = TRUE
  72.  IF _KEYDOWN(Default_Key_Right) AND (NOT g.moving) THEN g.facing = right: g.moving = TRUE
  73.  IF _KEYDOWN(Default_Key_Down) AND (NOT g.moving) THEN g.facing = down: g.moving = TRUE
  74.  IF _KEYDOWN(27) THEN exitflag%% = -1
  75.  '--------------------------------------------
  76.  '----------------Movement--------------------
  77.  IF g.moving THEN
  78.   SELECT CASE g.facing
  79.    CASE up
  80.     P.Ty = P.Ty + 2
  81.     IF (ABS(P.Ty) MOD 32) = 0 THEN g.moving = FALSE: P.Wy = P.Wy - 1: P.Ty = 0
  82.     IF NOT _KEYDOWN(Default_Key_Up) THEN Ft%% = 0: P.Fr = 0 ELSE g.moving = TRUE
  83.    CASE down
  84.     P.Ty = P.Ty - 2
  85.     IF (P.Ty MOD 32) = 0 THEN g.moving = FALSE: P.Wy = P.Wy + 1: P.Ty = 0
  86.     IF NOT _KEYDOWN(Default_Key_Down) THEN Ft%% = 0: P.Fr = 0 ELSE g.moving = TRUE
  87.    CASE left
  88.     P.Tx = P.Tx + 2
  89.     IF (ABS(P.Tx) MOD 32) = 0 THEN g.moving = FALSE: P.Wx = P.Wx - 1: P.Tx = 0
  90.     IF NOT _KEYDOWN(Default_Key_Left) THEN Ft%% = 0: P.Fr = 0 ELSE g.moving = TRUE
  91.    CASE right
  92.     P.Tx = P.Tx - 2
  93.     IF (P.Tx MOD 32) = 0 THEN g.moving = FALSE: P.Wx = P.Wx + 1: P.Tx = 0
  94.     IF NOT _KEYDOWN(Default_Key_Right) THEN Ft%% = 0: P.Fr = 0 ELSE g.moving = TRUE
  97.  IF g.moving THEN Ft%% = Ft%% + 1
  98.  IF Ft%% = 8 THEN P.Fr = P.Fr + 1: Ft%% = 0
  99.  IF P.Fr = 4 THEN P.Fr = 0
  100.  'Correct for map wrap
  101.  IF P.Wx = 128 THEN P.Wx = 0
  102.  IF P.Wx = -1 THEN P.Wx = 127
  103.  IF P.Wy = 96 THEN P.Wy = 0
  104.  IF P.Wy = -1 THEN P.Wy = 95
  105.  '--------------------
  106.  
  107.  _LIMIT 60
  108. LOOP UNTIL exitflag%%
  109. TIMER(T2!) OFF
  110.  
  111.  
  112.  
  113. SUB Map_Loader_tiled_Base (X1%, Y1%, Sx%, Sy%)
  114.  STATIC SubFrame(3) AS _BYTE, MainFrame(3) AS _BYTE, Triggered%%
  115.  FOR x% = -1 TO 20
  116.   FOR y% = -1 TO 15
  117.    mx% = X1% + x%
  118.    my% = Y1% + y%
  119.    '------Adjust for map wrap around------
  120.    IF mx% < 0 THEN mx% = 128 + mx% 'use addition cause mx% is a negative
  121.    IF mx% > 127 THEN mx% = mx% - 128
  122.    IF my% < 0 THEN my% = 96 + my% 'use addition cause my% is a negative
  123.    IF my% > 95 THEN my% = my% - 96
  124.    '--------------------------------------
  125.    'main map tiles
  126.    _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), TileX2&, Temp&, (0 + Map(mx%, my%).Id * 34, 0)-STEP(31, 31)
  127.    'animated map tiles
  128.    IF Map(mx%, my%).Is_Animated THEN
  129.     SELECT CASE Map(mx%, my%).Id
  130.      CASE 1 TO 4 'waves
  131.       _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), MapAni&, Temp&, (544 + MainFrame(1) * 34, 0)-STEP(31, 31)
  132.      CASE 21 TO 25 'marsh
  133.       _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), MapAni&, Temp&, (544 + (Map(mx%, my%).Id - 21) * 34, 34 + MainFrame(1) * 34)-STEP(31, 31)
  134.      CASE 5 TO 20 'shore
  135.       _PUTIMAGE (Sx% + x% * 32, Sy% + y% * 32)-STEP(31, 31), MapAni&, Temp&, ((Map(mx%, my%).Id - 5) * 34, AnimationOrder(1, MainFrame(2)) * 34)-STEP(31, 31)
  136.     END SELECT
  137.    END IF
  138.   NEXT y%
  139.  NEXT x%
  140.  'Horizontal conveyor
  141.  _PUTIMAGE (Sx% + Conveyor_1_Pos_X - (X1% * 32), Sy% + Conveyor_1_Pos_Y - (Y1% * 32)), Conv&, Temp&, (0, 0 + (MainFrame(0) * 34))-STEP(255, 31)
  142.  'vertical conveyor
  143.  _PUTIMAGE (Sx% + Conveyor_2_Pos_X - (X1% * 32), Sy% + Conveyor_2_Pos_Y - (Y1% * 32)), Conv&, Temp&, (257 + (MainFrame(0) * 34), 0)-STEP(31, 223)
  144.  FOR i%% = 0 TO 2
  145.   SubFrame(i%%) = SubFrame(i%%) + 1
  146.   IF SubFrame(0) = 5 + Conveyor_Frame_Speed THEN MainFrame(0) = MainFrame(0) + Conveyor_Frame_Speed: SubFrame(0) = 0
  147.   IF SubFrame(1) = 16 THEN MainFrame(1) = MainFrame(1) + 1: SubFrame(1) = 0
  148.   IF SubFrame(2) = 24 THEN MainFrame(2) = MainFrame(2) + 1: SubFrame(2) = 0
  149.  NEXT i%%
  150.  IF MainFrame(0) = 8 THEN MainFrame(0) = 0
  151.  IF MainFrame(1) = 4 THEN MainFrame(1) = 0
  152.  IF MainFrame(2) = 8 THEN MainFrame(2) = 0
  154.  
  155. SUB FPS
  156.  ' STATIC LastCount%
  157.  FPSC% = frame%
  158.  frame% = 0
  160.  
  161. SUB Place_Alis
  162.  IF NOT g.moving THEN
  163.   _PUTIMAGE (290, 210)-STEP(31, 45), char&, Temp&, (0 + 17 * g.facing, 120)-STEP(15, 22)
  165.   _PUTIMAGE (290, 210)-STEP(31, 45), char&, Temp&, (68 + 51 * g.facing + AlisAnim(P.Fr) * 17, 120)-STEP(15, 22)
  168.  
  169. SUB MFI_Loader (FN$)
  170.  DIM Size(128) AS LONG, FOffset(128) AS LONG
  172.  GET #1, , c~%% 'retrieve number of files
  173.  FOR I~%% = 1 TO c~%%
  174.   GET #1, , FOffset(I~%%)
  175.   GET #1, , Size(I~%%)
  176.   FOffset&(I~%%) = FOffset&(I~%%) + 1
  177.  NEXT I~%%
  178.  
  179.  TileX2& = LoadGFX(FOffset(1), Size(1)) ' _LOADIMAGE("gfx\maps\PalmaTiles2x2.bmp", 32) '_NEWIMAGE(640, 480, 32)
  180.  Conv& = LoadGFX(FOffset(2), Size(2)) '_LOADIMAGE("gfx\maps\conveyoranim.bmp", 32) 'Conveyor
  181.  MapAni& = LoadGFX(FOffset(3), Size(3)) '_LOADIMAGE("gfx\maps\mapanimation.bmp", 32) 'Water, shore, and marsh frames
  182.  char& = LoadGFX(FOffset(4), Size(4)) '_LOADIMAGE("gfx\CharacterSheetC.png", 32) '
  183.  LoadData FOffset(5), Size(5)
  184.  CLOSE #1
  185.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  187.  
  188. SUB LoadData (Foff&, Size&)
  189.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  190.  OPEN "temp.dat" FOR BINARY AS #3
  191.  dat$ = SPACE$(Size&)
  192.  GET #1, Foff&, dat$
  193.  PUT #3, , dat$
  194.  CLOSE #3
  195.  
  196.  F1 = FREEFILE
  197.  OPEN "temp.dat" FOR BINARY AS #F1
  198.  ' OPEN "PhantasyStarPalma2.Dat" FOR BINARY AS #1
  199.  GET #F1, , Map()
  200.  ' CLOSE
  201.  CLOSE #F1
  202.  
  204.  
  205. REM '$include:'MFI_Loader2.bi'
  206.  
  207. FUNCTION LoadGFX& (Foff&, Size&)
  208.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  209.  OPEN "temp.dat" FOR BINARY AS #3
  210.  dat$ = SPACE$(Size&)
  211.  GET #1, Foff&, dat$
  212.  PUT #3, , dat$
  213.  CLOSE #3
  214.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  216.  
  217. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
  218.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  219.  OPEN "temp.dat" FOR BINARY AS #3
  220.  dat$ = SPACE$(Size&)
  221.  GET #1, Foff&, dat$
  222.  PUT #3, , dat$
  223.  CLOSE #3
  224.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
  226.  
  227. FUNCTION LoadSFX& (Foff&, Size&)
  228.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  229.  OPEN "temp.dat" FOR BINARY AS #3
  230.  dat$ = SPACE$(Size&)
  231.  GET #1, Foff&, dat$
  232.  PUT #3, , dat$
  233.  CLOSE #3
  234.  LoadSFX& = _SNDOPEN("temp.dat")
  236.  
Title: Re: Its Been A While! But here, Try This!!
Post by: bplus on May 12, 2021, 03:30:12 pm
Hey nice 143 KB code does allot!

Hey she can walk on water!
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

I like how waves are hitting shore line, nice effect.
Title: Re: Its Been A While! But here, Try This!!
Post by: justsomeguy on May 12, 2021, 03:50:35 pm
Very cool! Nice variety of tiles and cool animations. Looking forward to your progress.
Title: Re: Its Been A While! But here, Try This!!
Post by: johnno56 on May 12, 2021, 03:56:57 pm
Cool demo... No problems on my Linux machine. Question: What exactly does the ".MFI" file do?
Title: Re: Its Been A While! But here, Try This!!
Post by: Cobalt on May 12, 2021, 04:50:42 pm
Quote from: johnno56 on May 12, 2021, 03:56:57 pm
Cool demo... No problems on my Linux machine. Question: What exactly does the ".MFI" file do?
Thank you,

A MFI file stores all the resources; Images, sounds, data, ect.
Its kind-of my own proprietary file packing format, though its super simple and based off of other formats that do pretty much the exact same thing. It was used a lot in video games in the 80s and 90s.
Found its easier than attaching lots of little files. And not everybody likes zips\rars\ or 7z files for what ever reason.
Title: Re: Its Been A While! But here, Try This!!
Post by: Cobalt on May 12, 2021, 04:54:01 pm
Quote from: bplus on May 12, 2021, 03:30:12 pm
Hey nice 143 KB code does allot!

Hey she can walk on water!
 


I like how waves are hitting shore line, nice effect.
Thank you!

Especially when the actual code that does everything is 8k, and 1/4 of that is the MFI_Loader code.
Considering the "Monster" Dragon Warrior turned out to be, this should be really compact. Maybe a Middle aged dog can still learn new tricks after all?
Title: Re: Its Been A While! But here, Try This!!
Post by: Dav on May 12, 2021, 10:15:02 pm
Looks like a great start.  Giving it a whirl now.   Yeah, I also like the water edge animation.  Adventure games are one of my weaknesses.  Kudos to you rolling your own single resource file format. 

- Dav
Title: Re: Its Been A While! But here, Try This!!
Post by: Ashish on May 13, 2021, 04:36:16 am
Amazing! The graphics are very pleasing to my eyes. :D :)
Text Only | Text with Attachments