« previous next »
Pages: [1]   Go Down

Author Topic: Space Dodger in "Attack of the Giant Killer Space Hamsters!"  (Read 3107 times)

0 Members and 1 Guest are viewing this topic.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Space Dodger in "Attack of the Giant Killer Space Hamsters!"
« on: November 14, 2020, 04:03:37 pm »
A UniKorn ProDucKions original form 1998!
Space Dodger Eps 1, "Attack of the Giant Killer Space Hamsters!"

Converting this game from QB45 with DirectQB to QB64, A slow process but its coming along. Original background MIDI track has been lost to time so still playing with samples to use. Have not converted clear to the Boss yet, and a few other features that I just need to pull out of the DQB code. A lot of little tweaks that could use to be cleaned up to make it better. So a brief demo of the simple side scroll space shooter.

Arrow keys to move\speed up\down
Space Bar shoots

Current max score you can reach... 2^32.

Code: QB64: [Select]
  1. 'Space Dodger Eps 1: "Attack of the Giant Killer Space Hamsters!"
  2. 'UniKorn ProDucKions 2020
  3. 'Demo release
  4.  
  5. 'ToDo list:
  6. 'Adds:
  7. '-Title Screen
  8. '-Main Menu
  9. '-High Score list
  10. '-Boss Fight
  11. '-Better SFX
  12. '-Cleaned up Death Animation screen
  13. '-Game Over Screen
  14. '-Power Up drops
  15. '-Variable Hamster targets
  16.  
  17. TYPE SpriteLocation
  18.  X AS SINGLE ' Start X
  19.  Y AS SINGLE ' Start Y
  20.  Sx AS SINGLE 'End X
  21.  Sy AS SINGLE 'End Y
  22.  Ox AS INTEGER 'Offset X
  23.  Oy AS INTEGER 'Offset Y
  25.  
  26. TYPE PlayerData
  27.  Shield AS _BYTE
  28.  Score AS _UNSIGNED LONG
  29.  Lives AS _BYTE
  30.  SpeedX AS SINGLE
  31.  SpeedY AS SINGLE
  32.  WeaponPowerup AS _BYTE
  33.  ShieldPowerup AS _BYTE
  35.  
  36. TYPE stardata
  39.  colr AS _BYTE
  40.  speed AS SINGLE
  42.  
  43. TYPE Gamedata
  44.  CurrentShot AS _BYTE
  45.  PlayerDeath AS _BYTE
  47.  
  48. SCREEN _NEWIMAGE(640, 420, 32)
  50. DIM SHARED Layer(8) AS LONG, SFX(16) AS LONG, BGM(8) AS LONG
  51. DIM SHARED LED(9) AS SpriteLocation, ShipExplode(16) AS SpriteLocation
  52. DIM SHARED P AS PlayerData, G AS Gamedata, Stars(150) AS stardata, Shot(10) AS SpriteLocation
  53. DIM SHARED H(25) AS SpriteLocation
  54.  
  55. 'LED display sprite locations
  56. DATA 0,28,10,28,20,28,30,28,40,28,50,28,60,28,70,28,80,28,90,28
  57. 'Ship Explostion sprite locations
  58. DATA 0,160,107,221,0,0: '    0
  59. DATA 108,160,215,221,0,0: '  1
  60. DATA 216,160,323,221,0,0: '  2
  61. DATA 324,158,429,223,0,-2: ' 3
  62. DATA 432,148,533,229,0,-12: '4
  63. DATA 0,252,107,349,0,-20: '  5
  64. DATA 108,242,209,357,0,-30: '6
  65. DATA 216,238,317,365,0,-34: '7
  66. DATA 324,230,425,369,0,-42: '8
  67. DATA 432,236,539,363,0,-36: '9
  68. DATA 0,380,107,517,0,-40: '  10
  69. DATA 108,370,213,533,0,-46: '11
  70. DATA 214,370,319,533,14,-46: '12
  71. DATA 320,370,425,533,20,-46: '13
  72. DATA 442,372,529,529,12,-46: '14
  73. DATA 552,418,625,483,16,-46: '15
  74. DATA 652,372,739,533,20,-46: '16
  75.  
  76. FOR i%% = 0 TO 9 'load LED display sprite locations
  77.  READ LED(i%%).X, LED(i%%).Y
  79. FOR i%% = 0 TO 16
  80.  READ ShipExplode(i%%).X, ShipExplode(i%%).Y, ShipExplode(i%%).Sx, ShipExplode(i%%).Sy, ShipExplode(i%%).Ox, ShipExplode(i%%).Oy
  81. NEXT i%%
  82.  
  83. Layer(0) = _DISPLAY
  84. Layer(1) = _NEWIMAGE(640, 400, 32)
  85. Layer(4) = _NEWIMAGE(640, 400, 32) 'temp bgplate
  86. Layer(5) = _NEWIMAGE(640, 400, 32) 'Collision layer
  87.  
  88. MFI_Loader "SpaceDog.MFI"
  89.  
  90. _PUTIMAGE , Layer(3), Layer(4)
  91. _CLEARCOLOR _RGB32(0), Layer(2)
  92. _CLEARCOLOR _RGB32(0), Layer(4)
  93.  
  94.  
  95.  
  96. _SNDVOL SFX(0), .2
  97. _SNDVOL SFX(1), .2
  98. _SNDVOL SFX(2), .2
  99. _SNDVOL SFX(3), .2
  100. _SNDVOL SFX(4), .3
  101. _SNDVOL BGM(0), .25
  102.  
  103. CONST MaxStars = 55
  104. CONST TRUE = -1, FALSE = NOT TRUE
  105. CONST max = 7, min = 1, Stars = 50, Maxshotsfired = 3, MaxHamsters = 10
  106. CONST ShotSpeed = 5
  107.  
  108. P.Shield = 100
  109. P.Score = 0
  110. P.Lives = 3
  111. G.CurrentShot = -1
  112. G.PlayerDeath = 0
  113. FOR i% = 0 TO MaxStars
  114.  MakeNewStar i%
  115. NEXT i%
  116. FOR i%% = 0 TO MaxHamsters
  117.  MakeHamster i%%
  118. NEXT i%%
  119.  
  120. _SNDLOOP BGM(0)
  121.  
  122.  
  123. _SOURCE Layer(5)
  124. _DEST Layer(1)
  126.  ExitFlag%% = Controls
  127.  StarField
  128.  DisplayPlayer
  129.  IF G.CurrentShot >= 0 THEN Process_Shots: Displayshots
  130.  Process_Hamsters: Make_Collision_Layer_Hamsters: DisplayHamsters
  131.  
  132.  IF NOT G.PlayerDeath THEN
  133.   _PUTIMAGE , Layer(4), Layer(1)
  134.   DisplayExtraLives
  135.   DisplayShieldLevel
  136.   DisplayScore
  137.   DisplayEngineFlame
  138.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
  139.   _LIMIT 60
  140.   LINE (0, 0)-STEP(639, 399), _RGB32(0), BF
  142.   _SNDVOL BGM(0), .01
  143.   _SNDSTOP SFX(1)
  144.   _SNDSTOP SFX(2)
  145.   _SNDPLAY SFX(3)
  146.   ExplodePlayer
  147.   FOR i%% = 0 TO MaxHamsters
  148.    MakeHamster i%%
  149.   NEXT i%%
  150.   P.Shield = 100
  151.   P.Lives = P.Lives - 1
  152.   IF P.Lives = -1 THEN ExitFlag%% = TRUE
  153.   _SNDVOL BGM(0), .3
  154.   G.PlayerDeath = FALSE
  155.   IF P.Lives = 0 THEN ExitFlag%% = TRUE
  157.  _PRINTSTRING (0, 400), STR$(G.CurrentShot), Layer(0)
  158. LOOP UNTIL ExitFlag%%
  159. _DEST Layer(0)
  160. _SOURCE Layer(0)
  161.  
  162. _SNDSTOP BGM(0)
  164. _PUTIMAGE , Layer(4), Layer(1)
  165. DisplayExtraLives
  166. DisplayScore
  167. _PUTIMAGE (0, 0), Layer(1), Layer(0)
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175. FUNCTION Controls%% ()
  176.  STATIC SlowFlag%%, CoastFlag%%, KeyLocked%% ', BombLock%%
  177.  Result%% = FALSE
  178.  
  180.   IF NOT KeyLocked%% THEN
  181.    IF G.CurrentShot < Maxshotsfired THEN
  182.     _SNDPLAY SFX(0)
  183.     G.CurrentShot = G.CurrentShot + 1
  184.     Makeshot G.CurrentShot
  185.    END IF
  186.    KeyLocked%% = TRUE
  187.   END IF
  189.   KeyLocked%% = FALSE
  191.  
  192.  IF _KEYDOWN(27) THEN Result%% = TRUE
  193.  '20480
  194.  IF _KEYDOWN(20480) THEN P.SpeedY = P.SpeedY + .25: CoastFlag%% = FALSE
  195.  IF P.SpeedY >= 5 THEN P.SpeedY = 5
  196.  
  197.  IF _KEYDOWN(19200) THEN P.SpeedX = P.SpeedX - .25: IF P.SpeedX > 1 THEN SlowFlag%% = FALSE
  198.  IF P.SpeedX < .5 THEN P.SpeedX = .5
  199.  IF _KEYDOWN(19712) THEN P.SpeedX = P.SpeedX + .25: SlowFlag%% = FALSE
  200.  IF P.SpeedX > max THEN P.SpeedX = max
  201.  
  202.  IF _KEYDOWN(18432) THEN P.SpeedY = P.SpeedY - .25: CoastFlag%% = FALSE
  203.  IF P.SpeedY <= -5 THEN P.SpeedY = -5
  204.  
  205.  IF NOT SlowFlag%% THEN
  206.   IF NOT _KEYDOWN(19712) THEN
  207.    P.SpeedX = P.SpeedX - .05: IF P.SpeedX < min THEN P.SpeedX = min: SlowFlag%% = TRUE
  208.   END IF
  210.  
  211.  IF NOT CoastFlag%% THEN 'allow coast up and down
  212.   IF NOT _KEYDOWN(18432) AND NOT _KEYDOWN(20480) THEN
  213.    IF P.SpeedY > 0 THEN
  214.     P.SpeedY = P.SpeedY - .05
  215.     IF P.SpeedY <= .2 THEN CoastFlag%% = TRUE: P.SpeedY = 0
  216.    ELSE
  217.     P.SpeedY = P.SpeedY + .05
  218.     IF P.SpeedY >= -.2 THEN CoastFlag%% = TRUE: P.SpeedY = 0
  219.    END IF
  220.   END IF
  222.  
  223.  
  224.  Controls = Result%%
  226.  
  227. FUNCTION Hamster_Collision%% (id%%)
  228.  '((x-h)/a)^2 + ((y-k)/b)^2 <= 1
  229.  'H,K -center x,y
  230.  'x,y -hamster point to check
  231.  'a,b Radius X, radius Y
  232.  
  233.  Result%% = 0
  234.  hit%% = 0
  235.  'hamster size 48x28, check 8 points
  236.  'hit%% = _RED32(POINT(H(id%%).X + 0, H(id%%).Y)) 'check for hit box
  237.  'IF hit%% THEN hit%% = _RED32(POINT(H(id%%).X + 0, H(id%%).Y + 7)) 'check for hit box
  238.  'IF hit%% THEN hit%% = _RED32(POINT(H(id%%).X + 0, H(id%%).Y + 14)) 'check for hit box
  239.  'IF hit%% THEN hit%% = _RED32(POINT(H(id%%).X + 10, H(id%%).Y + 21)) 'check for hit box
  240.  'IF hit%% THEN hit%% = _RED32(POINT(H(id%%).X + 10, H(id%%).Y + 28)) 'check for hit box
  241.  'IF hit%% THEN hit%% = _RED32(POINT(H(id%%).X + 48, H(id%%).Y)) 'check for hit box
  242.  'IF hit%% THEN hit%% = _RED32(POINT(H(id%%).X + 48, H(id%%).Y + 14)) 'check for hit box
  243.  'IF hit%% THEN hit%% = _RED32(POINT(H(id%%).X + 48, H(id%%).Y + 28)) 'check for hit box
  244.  ' test~& = POINT(H(id%%).X + 0, H(id%%).Y)
  245.  ' _PRINTSTRING (16, 16 + 16 * id%%), STR$(_RED32(test~&)), Layer(1)
  246.  ' _PRINTSTRING (0, 220 + 16 * id%%), STR$(H(id%%).X + 0) + STR$(H(id%%).Y), Layer(1)
  247.  'IF hit%% = 1 THEN Result%% = hit%%
  248.  IF (((H(id%%).X + 24) - 113) / 53) ^ 2 + (((H(id%%).Y + 14) - 200) / 30) ^ 2 <= 1 THEN Result%% = TRUE
  249.  Hamster_Collision = Result%%
  251.  
  252.  
  253. FUNCTION Shot_Collision%% (id%%)
  254.  Result%% = -1
  255.  hit%% = 0
  256.  'shot size 16x10, check 6 points
  257.  hit%% = _RED32(POINT(Shot(id%%).X + 16, Shot(id%%).Y)) 'check for hit box
  258.  IF hit%% < 10 THEN hit%% = _RED32(POINT(Shot(id%%).X + 16, Shot(id%%).Y + 5)) 'check for hit box
  259.  IF hit%% < 10 THEN hit%% = _RED32(POINT(Shot(id%%).X + 16, Shot(id%%).Y + 10)) 'check for hit box
  260.  IF hit%% < 10 THEN hit%% = _RED32(POINT(Shot(id%%).X + 12, Shot(id%%).Y)) 'check for hit box
  261.  IF hit%% < 10 THEN hit%% = _RED32(POINT(Shot(id%%).X + 12, Shot(id%%).Y + 5)) 'check for hit box
  262.  IF hit%% < 10 THEN hit%% = _RED32(POINT(Shot(id%%).X + 12, Shot(id%%).Y + 10)) 'check for hit box
  263.  IF hit%% >= 10 THEN Result%% = hit%% - 10 'which hamster was hit?
  264.  
  265.  Shot_Collision = Result%%
  267.  
  268.  
  269. SUB DisplayEngineFlame
  270.  STATIC frame%%
  271.  IF P.SpeedX < .75 THEN
  272.   SELECT CASE frame%%
  273.    CASE 0
  274.     _PUTIMAGE (40, 189), Layer(2), Layer(1), (0, 126)-STEP(19, 24)
  275.    CASE 1
  276.     _PUTIMAGE (42, 189), Layer(2), Layer(1), (20, 126)-STEP(17, 24)
  277.    CASE 2
  278.     _PUTIMAGE (46, 189), Layer(2), Layer(1), (38, 126)-STEP(13, 24)
  281.   SELECT CASE frame%%
  282.    CASE 0
  283.     _PUTIMAGE (15 - P.SpeedX, 190)-STEP(44 + P.SpeedX, 21), Layer(2), Layer(1), (0, 104)-STEP(52, 21)
  284.    CASE 1
  285.     _PUTIMAGE (15 - P.SpeedX, 190)-STEP(44 + P.SpeedX, 21), Layer(2), Layer(1), (54, 104)-STEP(52, 21)
  286.    CASE 2
  287.     _PUTIMAGE (15 - P.SpeedX, 190)-STEP(44 + P.SpeedX, 21), Layer(2), Layer(1), (108, 104)-STEP(52, 21)
  288.    CASE 3
  289.     _PUTIMAGE (15 - P.SpeedX, 211)-STEP(44 + P.SpeedX, -21), Layer(2), Layer(1), (0, 104)-STEP(52, 21)
  290.    CASE 4
  291.     _PUTIMAGE (15 - P.SpeedX, 211)-STEP(44 + P.SpeedX, -21), Layer(2), Layer(1), (54, 104)-STEP(52, 21)
  292.    CASE 5
  293.     _PUTIMAGE (15 - P.SpeedX, 211)-STEP(44 + P.SpeedX, -21), Layer(2), Layer(1), (108, 104)-STEP(52, 21)
  296.  frame%% = INT(RND * 6)
  298.  
  299. SUB DisplayLED (X%, Y%, D%)
  300.  _PUTIMAGE (X%, Y%)-STEP(7, 13), Layer(2), Layer(1), (LED(D%).X, LED(D%).Y)-STEP(7, 13)
  302.  
  303. SUB DisplayPlayer
  304.  _PUTIMAGE (60, 170), Layer(2), Layer(1), (0, 42)-STEP(106, 60)
  305.  _PUTIMAGE (60, 170), Layer(2), Layer(5), (124, 42)-STEP(106, 60) 'collision shadow
  307.  
  308. SUB DisplayShieldLevel
  309.  Shld$ = LTRIM$(STR$(P.Shield))
  310.  FOR I%% = 1 TO LEN(Shld$)
  311.   DisplayLED 444 - (LEN(Shld$) * 10) + 10 * I%%, 382, VAL(MID$(Shld$, I%%, 1))
  312.  NEXT I%%
  314.  
  315. SUB DisplayScore
  316.  Score$ = LTRIM$(STR$(P.Score))
  317.  FOR I%% = 1 TO LEN(Score$)
  318.   DisplayLED 614 - (LEN(Score$) * 10) + 10 * I%%, 382, VAL(MID$(Score$, I%%, 1))
  319.  NEXT I%%
  321.  
  322. SUB DisplayExtraLives
  323.  _PUTIMAGE (322, 381)-STEP(23, 15), Layer(2), Layer(1), (0, 42)-STEP(106, 60)
  324.  DisplayLED 348, 382, P.Lives
  326.  
  327. SUB Displayshots
  328.  FOR i%% = 0 TO G.CurrentShot
  329.   _PUTIMAGE (Shot(i%%).X, Shot(i%%).Y), Layer(2), Layer(1), (108, 68)-STEP(15, 9)
  330.  NEXT i%%
  332.  
  333. SUB DisplayHamsters
  334.  FOR i%% = 0 TO MaxHamsters
  335.   IF NOT H(i%%).Ox THEN 'check flag for hamster death
  336.    _PUTIMAGE (H(i%%).X, H(i%%).Y), Layer(2), Layer(1), (0, 0)-STEP(47, 27)
  337.   ELSE 'this hamster is dead
  338.    IF H(i%%).Oy < 80 THEN
  339.     _PUTIMAGE (H(i%%).X, H(i%%).Y), Layer(2), Layer(1), (0 + 48 * (H(i%%).Oy \ 10), 0)-STEP(47, 27)
  340.    ELSE
  341.     _PUTIMAGE (H(i%%).X + INT(RND * 8) - 4, H(i%%).Y + INT(RND * 8) - 4), Layer(2), Layer(1), (0 + 48 * 7, 0)-STEP(47, 27)
  342.    END IF
  343.   END IF
  344.  NEXT i%%
  346.  
  347. SUB Make_Collision_Layer_Hamsters
  348.  _DEST Layer(5) 'collision check layer
  349.  LINE (0, 0)-STEP(639, 399), _RGB32(0), BF 'clear collision layer
  350.  FOR i%% = 0 TO MaxHamsters
  351.   'only draw collision box of live hamsters
  352.   IF NOT H(i%%).Ox THEN LINE (H(i%%).X, H(i%%).Y)-STEP(47, 27), _RGB32(10 + i%%, 0, 0), BF 'collision box
  353.  NEXT i%%
  354.  _DEST Layer(1) 'back to mix layer
  356.  
  357. SUB ExplodePlayer
  358.  FOR i%% = 0 TO 16
  359.   LINE (0, 0)-STEP(639, 399), _RGB32(0), BF
  360.   _PUTIMAGE (0, 0), Layer(4), Layer(1)
  361.   _PUTIMAGE (50 + ShipExplode(i%%).Ox + i%% * 10, 160 + ShipExplode(i%%).Oy), Layer(2), Layer(1), (ShipExplode(i%%).X, ShipExplode(i%%).Y)-(ShipExplode(i%%).Sx, ShipExplode(i%%).Sy)
  362.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
  363.   _DELAY .35
  364.   IF INKEY$ = CHR$(27) THEN END
  365.  NEXT i%%
  366.  LINE (0, 0)-STEP(639, 399), _RGB32(0), BF
  367.  DO: _DELAY .01: LOOP WHILE _SNDPLAYING(SFX(3))
  368.  _SNDPLAY SFX(4)
  369.  FOR i% = 0 TO 320 STEP 5
  370.   _PUTIMAGE (0, 0), Layer(1), Layer(0)
  371.   _PUTIMAGE (50 + ShipExplode(16).Ox + 160, 160 + ShipExplode(16).Oy + i%), Layer(2), Layer(0), (ShipExplode(16).X, ShipExplode(16).Y)-(ShipExplode(16).Sx, ShipExplode(16).Sy)
  372.   _PUTIMAGE (0, 0), Layer(4), Layer(0)
  373.   _DELAY .1
  374.   IF INKEY$ = CHR$(27) THEN END
  375.  NEXT i%
  376.  P.SpeedX = 1: P.SpeedY = 0
  378.  
  379. SUB Process_Hamsters
  380.  FOR i%% = 0 TO MaxHamsters
  381.   H(i%%).X = H(i%%).X - H(i%%).Sx - P.SpeedX 'move hamsters
  382.   H(i%%).Y = H(i%%).Y - P.SpeedY
  383.  
  384.   IF Hamster_Collision(i%%) AND NOT H(i%%).Ox THEN 'does hamster hit player?
  385.    '   _DEST Layer(0)
  386.    _SNDPLAY SFX(1) 'impact
  387.    _SNDPLAY SFX(2) 'ouch
  388.    MakeHamster (i%%) 'replace hamster
  389.    P.Shield = P.Shield - 10 'damage shields
  390.    IF P.Shield = 0 THEN G.PlayerDeath = TRUE 'does player's ship explode?
  391.   END IF
  392.  
  393.   IF H(i%%).X < -48 THEN MakeHamster (i%%) 'hamster off screen
  394.   IF H(i%%).Y < -64 THEN 'transport hamster to other side of screen, to prevent sneeky way to HIGH score.
  395.    IF H(i%%).Ox THEN 'do not continue exploding hamster off screen
  396.     MakeHamster (i%%)
  397.    ELSE
  398.     H(i%%).Y = 440
  399.    END IF
  400.   END IF
  401.   IF H(i%%).Y > 464 THEN 'transport hamster to other side of screen, to prevent sneeky way to HIGH score.
  402.    IF H(i%%).Ox THEN 'do not continue exploding hamster off screen
  403.     MakeHamster (i%%)
  404.    ELSE
  405.     H(i%%).Y = -40
  406.    END IF
  407.   END IF
  408.  
  409.   IF H(i%%).Ox THEN 'has hamster been hit?
  410.    IF H(i%%).Oy = 120 THEN MakeHamster (i%%)
  411.    H(i%%).Oy = H(i%%).Oy + 1
  412.   END IF
  413.  NEXT i%%
  415.  
  416. SUB Process_Shots
  417.  FOR i%% = 0 TO G.CurrentShot
  418.   Shot(i%%).X = Shot(i%%).X + ShotSpeed + Shot(i%%).Sx
  419.   Shot(i%%).Y = Shot(i%%).Y - P.SpeedY / 2
  420.   IF Shot(i%%).X > 635 THEN 'drop shot
  421.    FOR j%% = i%% TO G.CurrentShot + 1
  422.     SWAP Shot(j%%), Shot(j%% + 1)
  423.    NEXT j%%
  424.    Shot(j%%).X = 0: Shot(j%%).Y = 0 'erase shot
  425.    Shot(j%%).Sx = 0: Shot(j%%).Sy = 0 'erase shot
  426.    G.CurrentShot = G.CurrentShot - 1 'reduce shot count
  427.   END IF
  428.   Check_hit%% = Shot_Collision(i%%)
  429.   IF Check_hit%% >= 0 THEN 'hamster has been shot
  430.    P.Score = P.Score + 25 * P.SpeedX
  431.  
  432.    H(Check_hit%%).Ox = TRUE 'set hamster death animation
  433.    H(Check_hit%%).Sx = 0
  434.    H(Check_hit%%).Oy = 0
  435.    FOR j%% = i%% TO G.CurrentShot + 1 'drop shot
  436.     SWAP Shot(j%%), Shot(j%% + 1)
  437.    NEXT j%%
  438.    Shot(j%%).X = 0: Shot(j%%).Y = 0 'erase shot
  439.    Shot(j%%).Sx = 0: Shot(j%%).Sy = 0 'erase shot
  440.    G.CurrentShot = G.CurrentShot - 1 'reduce shot count
  441.   END IF
  442.  NEXT i%%
  444.  
  445. FUNCTION FNR% (x%)
  446.  Result% = INT(RND * x%) + 1
  447.  FNR = Result%
  449.  
  450. SUB MakeNewStar (ID%)
  451.  Stars(ID%).x = FNR(639)
  452.  Stars(ID%).y = FNR(399)
  453.  Stars(ID%).colr = FNR(3) - 1
  454.  Stars(ID%).speed = FNR(INT(Stars(ID%).colr) / 10)
  456.  
  457. SUB Makeshot (ID%%)
  458.  Shot(ID%%).X = 145
  459.  Shot(ID%%).Y = 196
  460.  Shot(ID%%).Sx = P.SpeedX
  461.  Shot(ID%%).Sy = P.SpeedY
  463.  
  464. SUB MakeHamster (id%%)
  465.  H(id%%).X = 640 + FNR(92)
  466.  H(id%%).Y = FNR(480) - 40
  467.  H(id%%).Sx = FNR(3) 'hamster self speed
  468.  H(id%%).Ox = FALSE 'been shot flag
  469.  H(id%%).Oy = FALSE 'been shot animation frame
  471.  
  472. SUB StarField
  473.  FOR i% = 0 TO MaxStars
  474.   _PUTIMAGE (Stars(i%).x, Stars(i%).y), Layer(2), Layer(1), (100 + 6 * Stars(i%).colr, 28)-STEP(5, 5)
  475.  
  476.   Stars(i%).x = Stars(i%).x - Stars(i%).speed - P.SpeedX - ((8 - (Stars(i%).colr * 2)) / 10)
  477.   IF P.SpeedY THEN Stars(i%).y = Stars(i%).y + P.SpeedY
  478.  
  479.   IF Stars(i%).x <= 1 THEN
  480.    MakeNewStar i%
  481.    Stars(i%).x = 639
  482.   END IF
  483.   IF Stars(i%).x >= 640 THEN
  484.    MakeNewStar i%
  485.    Stars(i%).x = 2
  486.   END IF
  487.   IF Stars(i%).y <= 1 THEN
  488.    MakeNewStar i%
  489.    Stars(i%).y = 399
  490.   END IF
  491.   IF Stars(i%).y >= 400 THEN
  492.    MakeNewStar i%
  493.    Stars(i%).y = 2
  494.   END IF
  495.  NEXT i%
  497.  
  498. SUB MFI_Loader (FN$)
  499.  DIM Size(128) AS LONG, FOffset(128) AS LONG
  501.  GET #1, , c~%% 'retrieve number of files
  502.  FOR I~%% = 1 TO c~%%
  503.   GET #1, , FOffset(I~%%)
  504.   GET #1, , Size(I~%%)
  505.   FOffset&(I~%%) = FOffset&(I~%%) + 1
  506.  NEXT I~%%
  507.  
  508.  'Layer(2) = _LOADIMAGE("SpaceDodgerSpriteSheet.bmp", 32)
  509.  'Layer(3) = _LOADIMAGE("BGPlate.bmp", 32)
  510.  'SFX(0) = _SNDOPEN("gunshot.ogg")
  511.  'SFX(1) = _SNDOPEN("impactquick.ogg")
  512.  'SFX(2) = _SNDOPEN("ouch.ogg")
  513.  'SFX(3) = _SNDOPEN("PdiesMSTR.ogg")
  514.  'SFX(4) = _SNDOPEN("sqeek.ogg")
  515.  'BGM(0) = _SNDOPEN("BGM_Alt_LO.ogg")
  516.  
  517.  
  518.  Layer(2) = LoadGFX(FOffset(2), Size(2))
  519.  Layer(3) = LoadGFX(FOffset(1), Size(1))
  520.  
  521.  SFX(0) = LoadSFX(FOffset(7), Size(7))
  522.  SFX(1) = LoadSFX(FOffset(3), Size(3))
  523.  SFX(2) = LoadSFX(FOffset(6), Size(6))
  524.  SFX(3) = LoadSFX(FOffset(5), Size(5))
  525.  SFX(4) = LoadSFX(FOffset(4), Size(4))
  526.  
  527.  BGM(0) = LoadSFX(FOffset(8), Size(8))
  528.  CLOSE #1
  529.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  531.  
  532. FUNCTION LoadGFX& (Foff&, Size&)
  533.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  534.  OPEN "temp.dat" FOR BINARY AS #3
  535.  dat$ = SPACE$(Size&)
  536.  GET #1, Foff&, dat$
  537.  PUT #3, , dat$
  538.  CLOSE #3
  539.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
  541.  
  542. FUNCTION LoadFFX& (Foff&, Size&, Fize%%)
  543.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  544.  OPEN "temp.dat" FOR BINARY AS #3
  545.  dat$ = SPACE$(Size&)
  546.  GET #1, Foff&, dat$
  547.  PUT #3, , dat$
  548.  CLOSE #3
  549.  LoadFFX& = _LOADFONT("temp.dat", Fize%%, "monospace")
  551.  
  552. FUNCTION LoadSFX& (Foff&, Size&)
  553.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  554.  OPEN "temp.dat" FOR BINARY AS #3
  555.  dat$ = SPACE$(Size&)
  556.  GET #1, Foff&, dat$
  557.  PUT #3, , dat$
  558.  CLOSE #3
  559.  LoadSFX& = _SNDOPEN("temp.dat")
  561.  
* SpaceDog.MFI (Filesize: 693.58 KB, Downloads: 173)
Logged
Granted after becoming radioactive I only have a half-life!

FellippeHeitor

  • Guest
Re: Space Dodger in "Attack of the Giant Killer Space Hamsters!"
« Reply #1 on: November 14, 2020, 04:34:05 pm »
Whoa, that's some cool parallax effect, Cobalt!
Logged
Pages: [1]   Go Up
« previous next »