Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on September 06, 2019, 12:17:08 pm

Title: Peek at my Super Mario clone
Post by: Cobalt on September 06, 2019, 12:17:08 pm
Early in production, you can see how Mario moves, I still need to add the slide frame to his animation but I think I have the 'feel' correct. and you can run through the first level(aka World 1-1) but you will notice he is floating, I tweeked the background and haven't adjusted its Y position yet. But I do know about it and will probably fix it right after posting this. Been having a hard time getting into my programing grove and thought I might just try and force myself to do something little(like posting a sample). those few weeks of being stuck on my arse not able to do much(or anything) really took it out of me even though I tried to stay as active, programing wise, as I could.

but anyway here is a sample peek at my Mario clone (NES version):
Left and Right arrows to move(just like in the real game it will scroll right but not left)

preliminary jumping is now active, jump as high as you like by holding down the space bar(until I add the limit check anyway)

and ESC to quit, although reaching the pole will quit too. and do not worry, there is no collision checking or gravity(obviously) yet.
like I said 'very' early in production. Hoping to get Mario jumping soon
Code: QB64: [Select]
  1. TYPE PlayerData
  3.  Yloc AS INTEGER
  4.  Score AS _UNSIGNED LONG
  6.  Facing AS _BYTE
  7.  Action AS INTEGER 'bit flags for action: walking R\L, Running R\L, Jumping, Crouching, Spitting Fireball
  8.  '                  0 W/R, 1 W/L, 2 R/R, 3 R/L, 4 Jmp, 5 Crch, 6 SptFB, 7 mvng R pressing L
  9.  '                  8 mvng L pressing R, 9 mvng R Crch, 10 mvng L Crch, 11 Mvng R Jmping, 12 Mvng L Jmping
  10.  '                  will require _SETBIT, _READBIT, and _TOGGLEBIT
  12.  
  13. TYPE GameData
  14.  Player1Level AS _BYTE
  15.  Player2level AS _BYTE
  16.  TimeLeft AS _UNSIGNED _BYTE
  17.  GlobalX AS _UNSIGNED INTEGER
  18.  Movement AS SINGLE
  19.  Jump AS _BYTE
  21. TYPE MapData
  22.  Sprite AS _BYTE
  23.  typ AS _BYTE
  25. TYPE TileData
  28.  Sprite AS _BYTE
  29.  Typ AS _BYTE
  30.  Special AS _BYTE 'how long a multicoin block is active, also doubles as warp location ID
  32. TYPE EnemyData
  35.  Sprite AS _BYTE
  36.  Typ AS _BYTE
  38.  
  39. 's = s0 + v * t + 1 / 2 * a*t^2
  40.  
  41. CONST TRUE = -1, FALSE = 0, Decel = INT(.75 * 4 / (28) * 10000) / 10000
  42. CONST Right = 19712, Left = 19200, Up = 18432, Down = 20480, A_button = 32, B_Button = 13, Start_Button = 65
  43. CONST Air = 0, Blocking = 1, Coin = 2, PowerUP = 3, Star = 4, MultiCoin = 5, Breakable = 6, Vine = 7
  44. CONST Warp = 8, XtraLife = 9
  45. CONST Still = 0, Walk_right = 1, Run_Right = 2, Walk_left = 3, Run_Left = 4, Crouch = 5, Jump = 6
  46.  
  47. CONST MaxMovement = 4, Max_Jump_Height = 140, Gravity = .125, InitalJump = 4
  48.  
  49. SCREEN _NEWIMAGE(640, 480, 32)
  50. DIM SHARED Player(1) AS PlayerData, G AS GameData
  51. DIM SHARED Blocks(14, 240) AS MapData, Tiles(1600) AS TileData, Pipes(16) AS TileData
  52. DIM SHARED Enemys(32) AS EnemyData
  53. DIM MovementFlag AS _BYTE
  54. DIM SHARED Layer(8) AS LONG, Level AS LONG, Mario AS LONG
  55.  
  56. INIT
  57.  
  58. Layer(0) = _DISPLAY
  59. Layer(1) = _NEWIMAGE(640, 480, 32)
  60.  
  61. Build_Premap_Background Layer(2), Layer(4), 1
  62. Build_Premap_Blocks Layer(3), Layer(4), 1
  63. 'OPEN "Level1_1.dat" FOR BINARY AS #1
  64. 'PUT #1, , Blocks()
  65. 'PUT #1, , Tiles()
  66. 'PUT #1, , Pipes()
  67. 'PUT #1, , Enemys()
  68. 'CLOSE #1
  69. 'move prebuild map to full final
  70. _PUTIMAGE (0, 0)-STEP(7679, 479), Layer(4), Level, (0, 0)-STEP(3839, 239)
  71.  
  72. 'FOR i% = 0 TO 3088 STEP 4
  73. '_PUTIMAGE (64, 0)-STEP(511, 447), Level, Layer(1), (0 + i% * 2, 16)-STEP(511, 447)
  74. '_PUTIMAGE (64, 0)-STEP(512, 448), Layer(5), Layer(1), (0 + i%, 8)-STEP(255, 223)
  75. '_PUTIMAGE , Layer(1), Layer(0)
  76. '_DELAY .05
  77. 'LOCATE 1, 1: PRINT i%
  78. 'IF INKEY$ = CHR$(27) THEN i% = 4000
  79. 'NEXT i%
  80.  
  81. 'END
  82. ExitFlag%% = FALSE
  83. G.Movement = 1
  85.  Movement_Logic Player(0).Xloc, Player(0).Yloc, LastDirection%%
  86.  
  87.  IF _KEYHIT = 27 THEN ExitFlag%% = TRUE
  88.  IF G.GlobalX >= 6070 THEN ExitFlag%% = TRUE
  89.  
  90.  Display_Current_Level_Section Level, Layer(1), G.GlobalX
  91.  IF G.Jump THEN Action%% = Jump ELSE Action%% = LastDirection%%
  92.  Display_Mario_Action Mario, Layer(1), Player(0).Xloc, Player(0).Yloc, Action%%, small
  93.  
  94.  _PUTIMAGE , Layer(1), Layer(0)
  95.  LOCATE 1, 1: PRINT Player(0).Xloc
  96.  PRINT Player(0).Yloc
  97.  PRINT G.GlobalX
  98.  PRINT G.Movement
  99.  PRINT G.Jump
  100.  
  101.  _DELAY .0167
  102. LOOP UNTIL ExitFlag%%
  103.  
  104. SUB Display_Current_Level_Section (From&, Where&, Xoff~%)
  105.  _PUTIMAGE (64, 0), From&, Where&, (0 + Xoff~%, 16)-STEP(511, 447)
  107.  
  108. SUB Display_Mario_Action (From&, Where&, Xoff%, Yoff%, Action%%, Size%%)
  109.  STATIC Frame AS _BYTE, SubFrame AS _BYTE, LastDirection AS _BYTE
  110.  
  111.  SELECT CASE Action%%
  112.   CASE Walk_right
  113.    _PUTIMAGE (64 + Xoff%, 368), From&, Where&, (2 + (Frame * 34), 2)-STEP(31, 31)
  114.    SubFrame = SubFrame + 1
  115.    IF SubFrame = 6 THEN Frame = Frame + 1: SubFrame = 0
  116.    IF Frame = 4 THEN Frame = 1
  117.   CASE Walk_left
  118.    _PUTIMAGE (64 + Xoff% + 31, 368)-STEP(-31, 31), From&, Where&, (2 + (Frame * 34), 2)-STEP(31, 31)
  119.    SubFrame = SubFrame + 1
  120.    IF SubFrame = 6 THEN Frame = Frame + 1: SubFrame = 0
  121.    IF Frame = 4 THEN Frame = 1
  122.   CASE Jump 'jumping
  123.    IF Action%% = M_left THEN
  124.     _PUTIMAGE (64 + Xoff% + 31, 368 - Yoff%)-STEP(-31, 31), From&, Where&, (2 + (5 * 34), 2)-STEP(31, 31)
  125.    ELSE
  126.     _PUTIMAGE (64 + Xoff%, 368 - Yoff%), From&, Where&, (2 + (5 * 34), 2)-STEP(31, 31)
  127.    END IF
  128.   CASE Run_Right
  129.    _PUTIMAGE (64 + Xoff%, 368), From&, Where&, (2 + (Frame * 34), 2)-STEP(31, 31)
  130.    SubFrame = SubFrame + 1
  131.    IF SubFrame = 4 THEN Frame = Frame + 1: SubFrame = 0
  132.    IF Frame = 4 THEN Frame = 1
  133.   CASE Run_Left
  134.    _PUTIMAGE (64 + Xoff% + 31, 368)-STEP(-31, 31), From&, Where&, (2 + (Frame * 34), 2)-STEP(31, 31)
  135.    SubFrame = SubFrame + 1
  136.    IF SubFrame = 4 THEN Frame = Frame + 1: SubFrame = 0
  137.    IF Frame = 4 THEN Frame = 1
  138.   CASE Still
  139.    IF LastDirection THEN DX%% = -31: SX%% = 31 ELSE DX%% = 31: SX%% = 0
  140.    _PUTIMAGE (64 + Xoff% + SX%%, 368)-STEP(DX%%, 31), From&, Where&, (2, 2)-STEP(31, 31)
  141.    Frame = 1: SubFrame = 0
  144.  
  145. SUB Movement_Logic (Xloc~%, Yloc%, Action%%)
  146.  STATIC Height AS INTEGER, Velocity AS SINGLE
  147.  IF _KEYDOWN(Right) THEN G.Movement = G.Movement + .1: Action%% = Walk_right
  148.  IF _KEYDOWN(Left) THEN G.Movement = G.Movement - .1: Action%% = Walk_left
  149.  IF _KEYDOWN(A_button) THEN G.Jump = TRUE: Velocity = InitalJump
  150.  
  151.  IF (NOT _KEYDOWN(Right)) AND (NOT _KEYDOWN(Left)) THEN
  152.   IF G.Movement > 0.2 THEN
  153.    G.Movement = G.Movement - .1
  154.   ELSEIF G.Movement < -0.2 THEN
  155.    G.Movement = G.Movement + .1
  156.   ELSE
  157.    G.Movement = 0: Action%% = Still
  158.   END IF
  160.  
  161.  LOCATE 10, 1: PRINT Height
  162.  PRINT Velocity
  163.  IF G.Movement > MaxMovement THEN G.Movement = MaxMovement
  164.  IF G.Movement < (-MaxMovement) THEN G.Movement = (-MaxMovement)
  165.  Xloc~% = Xloc~% + G.Movement
  166.  Yloc% = Height
  167.  
  168.  IF G.Jump THEN
  169.   Height = Height + Velocity
  170.   Jump_Frame = Jump_Frame + 1
  171.   Velocity = Mushroom_Drag(Velocity, Jump_Frame)
  173.  IF Height < 0 THEN G.Jump = 0: Jump_Frame = 0: Height = 0
  174.  
  175.  IF Xloc~% < 4 THEN Xloc~% = 4: G.Movement = 0
  176.  IF Xloc~% > 256 THEN Xloc~% = 256: G.GlobalX = G.GlobalX + G.Movement
  178.  
  179. SUB Build_Premap_Background (From&, Where&, level%%)
  180.  FOR i%% = 0 TO 4
  181.   _PUTIMAGE (768 * i%%, 0), From&, Where&
  182.  NEXT i%%
  184. ',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  185.  
  186. SUB Build_Premap_Blocks (From&, Where&, level%%)
  187.  'level 1, non passable\non breakable blocks
  188.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  189.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  190.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  191.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  192.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  193.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,,,,,,,,,4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  194.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,,,,,,,,,4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  195.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,2,,,,,,,,,4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  196.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,2,2,,,,,,,,,4,,,,,13,13,13,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  197.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,,2,,,,,,,,,,,2,2,,,2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,2,2,2,,,,,,,,,4,,,,,14,15,16,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  198.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,,,2,2,,,,,,,,,2,2,2,,,2,2,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,2,2,2,2,,,,,,,,,4,,,,13,17,17,17,13,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  199.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,,,2,2,2,,,,,,,2,2,2,2,,,2,2,2,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,2,2,2,2,2,,,,,,,,,4,,,,6,6,18,6,6,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  200.  DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,2,2,2,,,2,2,2,2,,,,,2,2,2,2,2,,,2,2,2,2,,,,,,,,,,,,,,,,,,,,,,,2,2,2,2,2,2,2,2,2,,,,,,,,,2,,,,6,6,19,6,6,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  201.  DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,19,19,1,1,1,1,1,1,1,1,1,1,1,1,1,1,19,19,19,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,19,19,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  202.  DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,19,19,1,1,1,1,1,1,1,1,1,1,1,1,1,1,19,19,19,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,19,19,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  203.  FOR j%% = 0 TO 14
  204.   FOR I~%% = 0 TO 239
  205.    READ Blocks(j%%, I~%%).Sprite
  206.    IF Blocks(j%%, I~%%).Sprite <> 0 THEN Blocks(j%%, I~%%).typ = Blocking
  207.    Draw_Block Blocks(j%%, I~%%).Sprite, I~%% * 16, j%% * 16, 16, From&, Where&
  208.   NEXT I~%%
  209.  NEXT j%%
  210.  'level 1, Breakable\coin blocks as X,Y, sprite id, typ(2-coin block,3-shrum\flower,4-star,5-multicoin,6-breakable,7-vine,9-Xtralife)
  211.  DATA 44,17,9,8,2,21,9,5,6,22,9,8,3,23,9,5,6,24,9,8,2,25,9,5,6,23,5,8,2,65,9,0,9,77,9,5,6,78,9,8,3,79,9,5,6,80,5,5,6,81,5,5,6,82,5,5,6,83,5,5,6,84,5,5,6,85,5,5,6,86,5,5,6,87,5,5,6
  212.  DATA 90,5,5,6,91,5,5,6,92,5,5,6,93,5,8,2,93,9,5,5,99,9,5,6,100,9,8,4,105,9,8,2,108,9,8,2,111,9,8,2,108,5,8,3,117,9,5,6,120,5,5,6,121,5,5,6,122,5,5,6,127,5,5,6
  213.  DATA 128,5,8,2,129,5,8,2,130,5,5,6,128,9,5,6,129,9,5,6,168,9,5,6,169,9,5,6,170,9,8,2,171,9,5,6
  214.  READ TileCount%
  215.  FOR I% = 0 TO TileCount% - 1
  216.   READ Tiles(I%).Xloc
  217.   Tiles(I%).Xloc = Tiles(I%).Xloc - 1
  218.   READ Tiles(I%).Yloc
  219.   READ Tiles(I%).Sprite
  220.   READ Tiles(I%).Typ
  221.   Draw_Block Tiles(I%).Sprite, Tiles(I%).Xloc * 16, Tiles(I%).Yloc * 16, 16, From&, Where&
  222.  NEXT I%
  223.  
  224.  'level 1 pipe location and height as X,Y,H,Warp? 1st-#of
  225.  DATA 6,28,12,1,0,38,12,2,0,46,12,3,0,57,12,3,8,163,12,1,0,179,12,1,0
  226.  READ PipeCount%
  227.  FOR I% = 0 TO PipeCount% - 1
  228.   READ Pipes(I%).Xloc
  229.   READ Pipes(I%).Yloc
  230.   READ Pipes(I%).Sprite 'used for height in pipes
  231.   READ Pipes(I%).Typ
  232.   Draw_Pipe Pipes(I%).Sprite, Pipes(I%).Xloc, Pipes(I%).Yloc, From&, Where&
  233.  NEXT I%
  234.  
  235.  'level 1 enemy location and type X,Y,type,heading
  236.  DATA 17,352,192,1,1,640,192,1,1,816,192,1,1,840,192,1,1,1264,64,1,1,1296,64,1,1,1536,192,1,1,1560,192,1,1
  237.  DATA 1696,186,2,1,1824,192,1,1,1848,192,1,1,1984,192,1,1,2008,192,1,1,2048,192,1,1,2072,192,1,1
  238.  DATA 2784,192,1,1,2808,192,1,1
  239.  READ EnemyCount%
  240.  FOR I% = 0 TO EnemyCount% - 1
  241.   READ Enemys(I%).Xloc
  242.   READ Enemys(I%).Yloc
  243.   READ Enemys(I%).Sprite '
  244.   READ Enemys(I%).Typ 'used for facing direction
  245.   Draw_Enemy Enemys(I%).Sprite, Enemys(I%).Xloc, Enemys(I%).Yloc, From&, Layer(5) ' Where&
  246.  NEXT I%
  247.  
  249.  
  250. SUB Draw_Block (id%%, Xoff~%, Yoff~%, Ysize%%, From&, Where&)
  251.  _PUTIMAGE (Xoff~%, Yoff~%), From&, Where&, (0 + (16 * id%%), 0)-STEP(15, Ysize%% - 1)
  253.  
  254. SUB Draw_Pipe (Siz~%%, Xoff~%, Yoff~%, From&, Where&)
  255.  FOR I% = 0 TO Siz~%% - 1
  256.   Draw_Block 22, Xoff~% * 16, (Yoff~% - I%) * 16, 16, From&, Where&
  257.   Draw_Block 23, (Xoff~% + 1) * 16, (Yoff~% - I%) * 16, 16, From&, Where&
  258.   Blocks(Yoff~%, Xoff~% - I%).Sprite = 22: Blocks(Yoff~%, Xoff~% - I%).typ = Blocking
  259.   Blocks(Yoff~% + 1, Xoff~% - I%).Sprite = 23: Blocks(Yoff~% + 1, Xoff~% - I%).typ = Blocking
  260.  NEXT I%
  261.  Draw_Block 20, Xoff~% * 16, (Yoff~% - I%) * 16, 16, From&, Where&
  262.  Draw_Block 21, (Xoff~% + 1) * 16, (Yoff~% - I%) * 16, 16, From&, Where&
  263.  Blocks(Yoff~%, Xoff~% - I%).Sprite = 20: Blocks(Yoff~%, Xoff~% - I%).typ = Blocking
  264.  Blocks(Yoff~% + 1, Xoff~% - I%).Sprite = 21: Blocks(Yoff~% + 1, Xoff~% - I%).typ = Blocking
  266.  
  267. SUB Draw_Enemy (id%%, Xoff~%, Yoff~%, From&, Where&)
  268.  SELECT CASE id%%
  269.   CASE 1 'goomba
  270.    Sprite%% = 24: Siz%% = 16
  271.   CASE 2 'koopa
  272.    Sprite%% = 27: Siz%% = 24
  274.  Draw_Block Sprite%%, Xoff~%, Yoff~%, Siz%%, From&, Where&
  276.  
  277. FUNCTION Mushroom_Drag (valu!, frame%%)
  278.  Result! = valu! - Decel * frame%%
  279.  Mushroom_Drag = Result!
  281.  
  282. SUB INIT
  283.  DIM Size(64) AS LONG, FOffset&(64)
  284.  OPEN "Marios.gfx" FOR BINARY AS #1
  285.  GET #1, , c~%% 'number of records
  286.  FOR w% = 1 TO c~%%
  287.   GET #1, , FOffset&(w%)
  288.   GET #1, , Size(w%)
  289.   FOffset&(w%) = FOffset&(w%) + 1
  291.  
  292.  Level = _NEWIMAGE(7680, 480, 32) 'map full build '_LOADIMAGE("level1blur.bmp", 32)
  293.  Mario = LoadGFX(FOffset&(1), Size(1)) '_LOADIMAGE("mariofullnoblur.bmp", 32)
  294.  Layer(2) = LoadGFX(FOffset&(2), Size(2)) '_LOADIMAGE("levelbackground.bmp", 32)
  295.  Layer(3) = LoadGFX(FOffset&(3), Size(3)) '_LOADIMAGE("tilebase.bmp", 32)
  296.  Layer(4) = _NEWIMAGE(3840, 240, 32) 'map prebuild
  297.  Layer(5) = _NEWIMAGE(3840, 240, 32) 'sprite layer
  298.  
  299.  _CLEARCOLOR _RGB32(255, 255, 255), Mario
  300.  _CLEARCOLOR _RGB32(0, 0, 0), Layer(3)
  301.  _CLEARCOLOR _RGB32(0, 0, 0), Layer(5)
  303.  
  304. FUNCTION LoadGFX& (Foff&, Size&)
  305.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  306.  OPEN "temp.dat" FOR BINARY AS #3
  307.  dat$ = SPACE$(Size&)
  308.  GET #1, Foff&, dat$
  309.  PUT #3, , dat$
  310.  CLOSE #3
  311.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  313.  
  314.  

And you will need the GFX resource file too.
Title: Re: Peek at my Super Mario clone
Post by: Petr on September 06, 2019, 03:10:38 pm
Hi Cobalt, It looks very nice.
Title: Re: Peek at my Super Mario clone
Post by: Qwerkey on September 08, 2019, 11:23:25 am
Cobalt, looking  fine so far.  When complete it would be a good one for the Samples Section?
Title: Re: Peek at my Super Mario clone
Post by: johnno56 on September 08, 2019, 11:29:39 pm
I get a "Bad record number" at line 308

All I did was copy/paste listing into IDE (saved in its own directory) and copied the gfx file into that directory.
Title: Re: Peek at my Super Mario clone
Post by: johnno56 on September 08, 2019, 11:39:02 pm
False alarm. Linux is EXCEEDINGLY case sensitive when it comes to variables and 'filenames'. Modified the graphics filename in "Sub INIT" and the program ran as it should.

The game is looking good so far.... Will you be retaining the "super jump"? I could use that to avoid all the bad guys... lol
Text Only | Text with Attachments