« previous next »
Pages: [1]   Go Down

Author Topic: Preliminary AstroSmash 64 sneak peak.  (Read 3716 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
Preliminary AstroSmash 64 sneak peak.
« on: November 10, 2018, 08:51:46 pm »
Give it a try, a sort of sneak peak of my Astrosmash clone, AstroSmash 64.
Still have a long way to go. Bombs don't kill you if they hit the ground yet, Tracker and SpaceShips don't show up yet, and the speed is way off. but you up levels, gain extra lives, and get scoring so it is playable. the collision is a little off between asterOIDs and the player ship.
Have not integrated the font with the game yet so you still need the font as a second file, hoping to fix that eventually
If you want sound, you will just have to make your own at the moment too, don't worry you wont look too silly. :)
 
Code: QB64: [Select]
  1. TYPE oids
  2.  Xpos AS SINGLE
  3.  Ypos AS SINGLE
  4.  Angle AS SINGLE
  5.  Speed AS SINGLE
  6.  Rotation AS _BYTE
  7.  Colr AS _BYTE
  8.  Kind AS _BYTE
  10.  Tracking AS _BYTE 'tells whether its a tracker and which direction its moving
  11.  CollideColr AS _BYTE
  13.  
  14. TYPE Gamedata
  15.  level AS _BYTE
  16.  Score AS LONG
  18.  OidCount AS _BYTE
  19.  BlastCount AS _BYTE
  20.  Count AS INTEGER
  21.  Movement AS _BYTE 'How fast player moves
  22.  ShotSpeed AS _BYTE 'how fast player shots move
  23.  GameOver AS _BYTE 'has player lost all lives
  24.  CurrentBG AS _BYTE 'current background color
  26.  
  27. TYPE Explosions
  28.  Xpos AS INTEGER
  29.  Ypos AS INTEGER
  30.  Frame AS _BYTE
  32.  
  33. TYPE Player
  34.  Xpos AS INTEGER
  35.  Ypos AS INTEGER
  36.  ShotCount AS _BYTE
  38.  
  39. 'Load sprites--------------------------------
  40. DATA 311,16,16,16,56,124,238,254,68,16,84,56,108,56,124,254,170,76,124,118,174,252,127,90,48,118,255,122,47,15,60,126,44,104,252,124,62,122,222,252,56,124,126,126,55,63,250,239,102,32,120,236,254,120,95,47,58,124,127,253,218,110,126,58,16,12,60,126,118,127,255,250,60,124,126,111,255,254,126,108,32,24,24,60,36,36,60,24,24,0,6,30,36,36,120,96,0,0,0,60,231,231,60,0,0,0,96,120,36,36,30,6,0,0,0,36,24,24,36,0,0,0,66,60,36,36,60,66,0,0,60,102,90,90,102,60,0,60,0,153,165,165,153,0,60,66,153,36,66,66,36,153,66,153,66,0,129,129,0,66,153,0,0,0,16,16,124,16,16,0,0,0,16,56,124,56,16,0,0,0,56,124,124,124,56,0,0,0,16,56,124,56,16,16,16,16,16,16,16,16,56,56,124,108,238,254,254,68,68,128,128,64,64,64,32,112,112,60,108,110,126,120,32,32,32,128,128,64,64,48,48,62,62,23,23,28,28,24,24,8,8,0,0,128,192,108,127,63,22,22,28,28,28,8,8,8,0,0,0,0,2,7,15,30,250,250,30,15,7,2,0,0,0,0,0,24,60,60,24,0,0,60,126,255,213,255,60,0,0,24,90,255,171,126,153,0,0,153,90,255,171,126,90,0,0,0,0,84,42,84,42,0
  41. READ Count%
  42. DIM SHARED Sprites(Count%) AS _UNSIGNED _BYTE
  43. FOR i% = 0 TO Count% - 1
  44.  READ Sprites(i%)
  45. NEXT i%
  46. '********************************************
  47. 'Load Main & Title screens
  48. MainScreen:
  49. DATA 205,0,487,15,1,0,194,15,1,0,12,15,1,0,115,15,1,0,106,15,1,0,275,15,1,0,71,15,1,0,174,15,1,0,480,15,1,0,39,15,1,0,455,15,1,0,123,15,2,0,786,15,1,0,32,15,1,0,18,15,1,0,7,15,1,0,367,15,2,0,30,15,2,0,14,15,2,0,775,15,1,0,31,15,1,0,1170,15,1,0,195,15,1,0,36,15,1,0,354,15,2,0,591,15,1,0,162,15,1,0,7,15,1,0,20,15,1,0,39,15,1,0,394,15,1,0,31,15,1,0,294,15,1,0,317,15,1,0,151,15,1,0,110,15,1,0,347,15,1,0,83,15,2,0,257,15,1,0,365,15,1,0,42,15,1,0,192,15,1,0,103,15,1,0,31,15,1,0,135,15,1,0,138,15,2,0,305,15,1,0,1063,5,4,0,160,5,4,0,149,5,3,0,8,5,3,0,143,5,3,0,14,5,3,0,129,5,2,0,7,5,2,0,20,5,3,0,14,5,1,0,39,5,2,0,67,5,3,0,2,5,3,0,29,5,3,0,8,5,3,0,37,5,3,0,2,5,3,0,34,5,4,0,23,5,3,0,8,5,3,0,29,5,3,0,2,5,3,0,4,5,2,0,31,5,3,0,8,5,3,0,29,5,2,0,4,5,2,0,10,5,4,0,6,5,1,0,14,5,1,0,31,5,2,0,9,5,2,0,10,5,4,0,12,5,3,0,14,5,3,0,12,5,4,0,8,5,2,0,8,5,2,0,5,5,3,0,4,5,3,0,63,5,2,0,5,5,3,0,4,5,3,0,6,5,3,0,20,5,3,0,6,5,3,0,4,5,3,0,3,5,2,0,12,5,5,0,10,5,3,0,62,5,5,0,10,5,6,0,26,5,6,0,10,5,3,0,960,5,320,0,1600
  50. TitleScreen:
  51. DATA 129,4,1617,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,13136
  52.  
  53. SCREEN _NEWIMAGE(640, 480, 32)
  55.  
  56. DIM SHARED Layer(12) AS LONG, Colors(16) AS _UNSIGNED LONG, FFX(1) AS LONG
  57. DIM SHARED G AS Gamedata, O(15) AS oids, E(15) AS Explosions, P AS Player
  58. DIM SHARED s(8) AS Explosions
  59. G.Count = Count%
  60. 'Color CONSTs
  61. CONST Black = 0, Blue = 1, Red = 2, Tanc = 3, Olive = 4, DkGreen = 5
  62. CONST BGGreen = 6, Yellow = 7, Grey = 8, SkyBlue = 9, Orange = 10
  63. CONST Pink = 11, Purple = 12, FadeGreen = 13, Maroon = 14, White = 15
  64. 'Sprite CONSTs
  65. CONST NullShip = 0, Ship = 1, SmallA = 2, SmallB = 3, SmallC = 4, SmallD = 5
  66. CONST LargeA = 6, LargeB = 7, LargeC = 8, LargeD = 9, Bomb = 10, Tracker = 11
  67. CONST SpaceShip = 12, SmallE = 13, SmallF = 14, SmallG = 15, SmallH = 16
  68. CONST Blast = 17, SpaceShipShot = 18
  69. 'Zoom CONSTs
  70. CONST None = 0, H4 = 128, H2 = 64, H12 = 32, H14 = 16, V4 = 8, V2 = 4
  71. CONST V12 = 2, V14 = 1, HF = 512, VF = 256
  72. '4-x4, 2-x2, 12-x1/2, 14-x1/4, HF-Flip Horizontal, VF-Flip Vertical
  73. 'Layer CONSTs
  74. CONST SPRITE = 1, TITLE = 3, BGPLATE = 2, TEMP = 6, COLLIDE = 7, BGCOLOR = 8
  75. CONST TRUE = -1, FALSE = NOT TRUE
  76. 'Game Scores CONSTs
  77. CONST SmallOid = 20
  78. CONST LargeOid = 10
  79. CONST LargeBomb = 40
  80. CONST SmallBomb = 80
  81. CONST Seeker = 100
  82. CONST Aliens = 150
  83. CONST AlienShot = 75
  84.  
  85. Layer(0) = _DISPLAY
  86. Layer(SPRITE) = _NEWIMAGE(640, 400, 13)
  87. Layer(BGPLATE) = _NEWIMAGE(640, 480, 32)
  88. Layer(TITLE) = _NEWIMAGE(640, 480, 32)
  89. Layer(4) = _NEWIMAGE(640, 480, 32) 'Sprite draw layer
  90. Layer(5) = _NEWIMAGE(640, 480, 32) 'Composite layer
  91. Layer(TEMP) = _NEWIMAGE(64, 64, 32) 'temp sprite layer for transparency
  92. Layer(COLLIDE) = _NEWIMAGE(640, 480, 32) 'collision shadow layer
  93. Layer(BGCOLOR) = _NEWIMAGE(640, 480, 32) 'background color
  94.  
  95. FFX(1) = _LOADFONT("PixelIntv.ttf", 40, "monospace")
  96. IF FFX(1) THEN _FONT FFX(1), Layer(4)
  97. IF FFX(1) THEN _FONT FFX(1), Layer(TITLE)
  100.  
  101.  
  102. Colors(0) = _RGB32(0, 0, 0) '       Black
  103. Colors(1) = _RGB32(0, 45, 255) '    Blue
  104. Colors(2) = _RGB32(255, 61, 16) '   Red
  105. Colors(3) = _RGB32(201, 207, 171) ' Tan
  106. Colors(4) = _RGB32(84, 110, 0) '    Olive Green
  107. Colors(5) = _RGB32(56, 107, 63) '   DkGreen
  108. Colors(6) = _RGB32(0, 167, 86) '    BGGreen
  109. Colors(7) = _RGB32(250, 234, 80) '  Yellow
  110. Colors(8) = _RGB32(189, 172, 200) ' Purpleish Grey
  111. Colors(9) = _RGB32(36, 184, 255) '  Sky Blue
  112. Colors(10) = _RGB32(255, 180, 31) ' Orange
  113. Colors(11) = _RGB32(255, 78, 87) '  Pinkish
  114. Colors(12) = _RGB32(164, 150, 255) 'Purplish
  115. Colors(13) = _RGB32(117, 204, 128) 'Faded Green
  116. Colors(14) = _RGB32(181, 26, 88) '  Maroon
  117. Colors(15) = _RGB32(255, 255, 255) 'White
  118.  
  119. 'color test
  120. 'FOR i% = 0 TO 15
  121. ' LINE (0 + (i% * 31), 0)-STEP(32, 256), Colors(i%), BF
  122. 'NEXT i%
  123. 'END
  124. '----------
  125. 'draw sprites
  126. DrawSpriteSheet Layer(1)
  127. RESTORE MainScreen
  128. DrawScreen BGPLATE
  129. RESTORE TitleScreen
  130. DrawScreen TITLE
  131. 'IF _FILEEXISTS("debugshot.txt") THEN KILL "debugshot.txt"
  132. 'OPEN "debugshot.txt" FOR OUTPUT AS #2
  133.  
  134. 'main
  135. TitleScreen
  137. ON TIMER(t&, .125) AnimOids
  138. 'start data
  139. G.Movement = 4
  140. G.ShotSpeed = 8
  141. G.Lives = 4
  142. G.level = 1
  143. P.Xpos = 300
  144. P.Ypos = 321
  145. G.Score = 0
  146. _CLEARCOLOR Colors(Black), Layer(BGPLATE)
  147. ChangeBGColor Black
  148. G.OidCount = 5
  149. FOR i%% = 0 TO G.OidCount - 1
  150.  Makeoid i%%
  151. NEXT i%%
  152.  
  153. TIMER(t&) ON 'timer animates bombs, trackers, SpaceShip and explosions
  154.  
  156.  KBD& = _KEYHIT
  157.  SELECT CASE KBD&
  158.   CASE 27
  159.    Exitflag%% = TRUE
  161.  
  162.  Controls 'keypress routine
  163.  
  164.  FOR i%% = 0 TO G.OidCount - 1
  165.   Moveoid i%% 'move the asteroids(aka Oids)
  166.  NEXT i%%
  167.  IF Exitflag%% THEN
  168.   _PUTIMAGE (0, 0), Layer(COLLIDE), Layer(0)
  169.   END
  171.  
  172.  ClearLayer COLLIDE
  173.  
  174.  IF NOT G.GameOver THEN
  175.   BackGroundColor
  176.   'Back Ground Plate
  177.   _PUTIMAGE (0, 0), Layer(BGCOLOR), Layer(5)
  178.   _PUTIMAGE (0, 0), Layer(BGPLATE), Layer(5)
  179.   'draw Oids
  180.   FOR i%% = 0 TO G.OidCount - 1
  181.    PlaceSprite O(i%%).Xpos, O(i%%).Ypos, O(i%%).Kind, O(i%%).Zoom, O(i%%).Colr, O(i%%).Rotation
  182.    PlaceSpriteShadow O(i%%).Xpos, O(i%%).Ypos, O(i%%).Kind, O(i%%).Zoom, O(i%%).CollideColr, O(i%%).Rotation
  183.   NEXT i%%
  184.   'draw explosion if any
  185.   IF G.BlastCount THEN
  186.    FOR i%% = 0 TO G.BlastCount - 1
  187.     PlaceSprite E(i%%).Xpos, E(i%%).Ypos, Blast, None, Red, E(i%%).Frame
  188.     PlaceSpriteShadow E(i%%).Xpos, E(i%%).Ypos, Blast, None, 126, E(i%%).Frame
  189.    NEXT i%%
  190.   END IF
  191.   'draw player
  192.   PlaceSprite P.Xpos, P.Ypos, Ship, None, White, 0
  193.   PlaceSpriteShadow P.Xpos, P.Ypos, Ship, None, 127, 0
  194.   'draw players shot
  195.   IF P.ShotCount THEN
  196.    FOR i%% = 0 TO P.ShotCount - 1
  197.     MovePlayerShot i%%
  198.     DrawPlayerShot i%%
  199.    NEXT i%%
  200.   END IF
  201.   DisplayStats
  202.   _CLEARCOLOR _RGB32(0, 0, 0), Layer(4)
  203.   _PUTIMAGE (0, 0), Layer(4), Layer(5) 'combine sprites and BG Plate
  204.   _PUTIMAGE (0, 0), Layer(5), Layer(0) 'Move to display
  205.   ClearLayer 4
  207.   Exitflag%% = TRUE
  209.  _LIMIT 60
  210. LOOP UNTIL Exitflag%%
  213.  
  214. SUB AnimBlast
  215.  FOR I%% = 0 TO G.BlastCount - 1
  216.   E(I%%).Frame = E(I%%).Frame + 1
  217.   IF E(I%%).Frame = 6 THEN
  218.    FOR j%% = I%% TO G.BlastCount
  219.     SWAP E(j%%), E(j%% + 1)
  220.    NEXT j%%
  221.    E(j%%).Frame = 1
  222.    E(j%%).Xpos = 1
  223.    E(j%%).Ypos = 1
  224.    G.BlastCount = G.BlastCount - 1
  225.   END IF
  226.  NEXT I%%
  228.  
  229. SUB AnimOids
  230.  FOR I%% = 0 TO G.OidCount - 1
  231.   O(I%%).Rotation = O(I%%).Rotation + 1
  232.   IF O(I%%).Rotation = 5 THEN O(I%%).Rotation = 1
  233.  NEXT I%%
  234.  IF G.BlastCount THEN AnimBlast 'go ahead and animate explosions if any.
  236.  
  237. SUB ClearLayer (id%%)
  238.  old& = _DEST
  239.  _DEST Layer(id%%)
  240.  CLS
  241.  _DEST old&
  243.  
  244. SUB Controls
  245.  STATIC SlowFlag%%, CoastFlag%%, ShotLock%%, BombLock%%
  246.  
  247.  ' IF _KEYDOWN(18432) THEN P.SpeedY = P.SpeedY + .25: CoastFlag%% = FALSE
  248.  ' IF _KEYDOWN(20480) THEN P.SpeedY = P.SpeedY - .25: CoastFlag%% = FALSE
  249.  
  250.  IF _KEYDOWN(19200) THEN P.Xpos = P.Xpos - G.Movement
  251.  IF P.Xpos <= 8 THEN P.Xpos = 8
  252.  IF _KEYDOWN(19712) THEN P.Xpos = P.Xpos + G.Movement
  253.  IF P.Xpos >= 600 THEN P.Xpos = 600
  254.  
  255.  
  257.   IF NOT ShotLock%% AND P.ShotCount <= 2 THEN
  258.    'shoot blaster
  259.    MakeShot P.ShotCount
  260.    P.ShotCount = P.ShotCount + 1
  261.    ShotLock%% = TRUE 'must release key to shoot again
  262.   END IF
  264.   ShotLock%% = FALSE
  266.  
  268.   IF NOT BombLock%% THEN
  269.    'drop bomb
  270.    BombLock%% = TRUE 'must release key to shoot again
  271.   END IF
  273.   BombLock%% = FALSE
  276.  
  277. SUB DisplayStats
  278.  'displays Score, Level, Extra Lives
  279.  level$ = LTRIM$(STR$(G.level)) + "x"
  280.  Score$ = LTRIM$(STR$(G.Score))
  281.  _PRINTSTRING (546, 357), level$, Layer(4) 'level
  282.  _PRINTSTRING (287 - (LEN(Score$) * _FONTWIDTH(FFX(1))), 357), Score$, Layer(4) 'score
  283.  IF G.Lives <= 7 THEN
  284.   FOR i%% = 0 TO G.Lives - 1
  285.    PlaceSprite 316 + (i%% * 33), 360, Ship, None, BGGreen, 0
  286.   NEXT i%%
  288.   Lives$ = "x" + LTRIM$(STR$(G.Lives))
  289.   PlaceSprite 316, 360, Ship, None, BGGreen, 0
  290.   _DEST Layer(4)
  291.   COLOR Colors(BGGreen)
  292.   _PRINTSTRING (354, 361), Lives$, Layer(4) 'level
  293.   COLOR Colors(White)
  294.   _DEST Layer(0)
  297.  
  298. SUB DrawPlayerShot (id~%%)
  299.  _DEST Layer(4)
  300.  LINE (s(id~%%).Xpos, s(id~%%).Ypos)-STEP(8, 32), Colors(White), BF
  301.  _DEST Layer(0)
  303.  
  304. SUB DrawScreen (id&)
  305.  READ count%
  306.  l2& = _NEWIMAGE(160, 100, 32)
  307.  _DEST l2&
  308.  x% = -1: y% = 0
  309.  FOR i% = 0 TO count% - 1
  310.   READ colr%%
  311.   READ Numbr%
  312.   FOR j% = 1 TO Numbr%
  313.    PSET (x%, y%), Colors(colr%%)
  314.    x% = x% + 1
  315.    IF x% = 160 THEN x% = 0: y% = y% + 1
  316.   NEXT j%
  317.  NEXT i%
  319.  _PUTIMAGE (0, 0)-(639, 399), l2&, Layer(id&)
  322.  
  323. SUB DrawSpriteSheet (id&)
  324.  old& = _DEST
  325.  _DEST id&
  326.  FOR j% = 0 TO G.Count
  327.   FOR i%% = 7 TO 0 STEP -1
  328.    IF Sprites(j%) AND (2 ^ i%%) THEN LINE ((i%% * 4) + xx%, y% + yy%)-STEP(3, 3), 31, BF ELSE nul = 1 'PRINT "1"; ELSE PRINT "0";
  329.   NEXT i%%
  330.   y% = y% + 4
  331.   IF y% = 32 THEN y% = 0: xx% = xx% + 33
  332.   IF xx% = 330 THEN xx% = 0: yy% = yy% + 33
  333.  NEXT j%
  334.  _DEST old&
  336.  
  337. SUB ExplodePlayer
  338.  DIM PieceX(5), PieceY(5)
  339.  ChangeBGColor Red
  340.  FOR i%% = 1 TO 5
  341.   PieceX(i%%) = P.Xpos
  342.   PieceY(i%%) = P.Ypos
  343.  NEXT i%%
  344.  FOR j%% = 0 TO 48
  345.   FOR i%% = 1 TO 5
  346.    PlaceSprite PieceX(i%%), PieceY(i%%), SmallC, V12, White, 0
  347.    SELECT CASE i%%
  348.     CASE 1
  349.      PieceX(i%%) = PieceX(i%%) - 3
  350.     CASE 2
  351.      PieceX(i%%) = PieceX(i%%) + 3
  352.     CASE 3
  353.      PieceX(i%%) = PieceX(i%%) - 2
  354.      PieceY(i%%) = PieceY(i%%) - 2
  355.     CASE 4
  356.      PieceX(i%%) = PieceX(i%%) + 2
  357.      PieceY(i%%) = PieceY(i%%) - 2
  358.     CASE 5
  359.      PieceY(i%%) = PieceY(i%%) - 4
  360.    END SELECT
  361.   NEXT i%%
  362.   _PUTIMAGE (0, 0), Layer(BGCOLOR), Layer(5)
  363.   _PUTIMAGE (0, 0), Layer(BGPLATE), Layer(5)
  364.   _CLEARCOLOR _RGB32(0, 0, 0), Layer(4)
  365.   _PUTIMAGE (0, 0), Layer(4), Layer(5) 'combine sprites and BG Plate
  366.   _PUTIMAGE (0, 0), Layer(5), Layer(0) 'Move to display
  367.   _DELAY .05
  368.   ClearLayer 4
  369.  NEXT j%%
  370.  ChangeBGColor G.CurrentBG
  372.  
  373. SUB GroundCollide (id~%%)
  374.  'when things hit the ground layer
  375.  'lose points or DIE!
  376.  SELECT CASE O(id~%%).Kind
  377.   CASE SmallA TO SmallD
  378.    G.Score = G.Score - (SmallOid * G.level \ 2)
  379.   CASE LargeA TO LargeD
  380.    G.Score = G.Score - (LargeOid * G.level \ 2)
  381.   CASE Bomb
  382.    IF O(id~%%).Zoom = H2 + V2 THEN G.Score = G.Score - (LargeBomb * G.level \ 2)
  383.    IF O(id~%%).Zoom = None THEN G.Score = G.Score - (SmallBomb * G.level \ 2)
  384.    '   KillPlayer
  385.   CASE Tracker 'special
  386.    'changes direction to target player
  387.    'may need special routine for them.
  389.  
  391.  
  392. SUB KillPlayer
  393.  G.Lives = G.Lives - 1
  394.  ExplodePlayer
  395.  P.ShotCount = 0
  396.  P.Xpos = 300
  397.  G.Score = G.Score - (100 * G.level)
  398.  IF G.Lives = 0 THEN G.GameOver = TRUE
  400.  
  401. SUB MakeBlast (id~%%, Oid~%%)
  402.  'center explostions for large Oids and large bombs
  403.  IF O(Oid~%%).Kind >= LargeA AND O(Oid~%%).Kind <= LargeD THEN
  404.   E(id~%%).Xpos = O(Oid~%%).Xpos + 8
  405.   E(id~%%).Ypos = O(Oid~%%).Ypos - 8
  406.  ELSEIF O(Oid~%%).Kind = Bomb AND O(Oid~%%).Zoom = H2 + V2 THEN
  407.   E(id~%%).Xpos = O(Oid~%%).Xpos + 8
  408.   E(id~%%).Ypos = O(Oid~%%).Ypos - 8
  410.   E(id~%%).Xpos = O(Oid~%%).Xpos
  411.   E(id~%%).Ypos = O(Oid~%%).Ypos
  413.  E(id~%%).Frame = 1
  415.  
  416. SUB Makeoid (id~%%)
  417.  STATIC CollisionColor%%
  418.  
  419.  O(id~%%).Xpos = INT(RND * 600) + 20
  420.  O(id~%%).Ypos = INT(RND * 64) - 96
  421.  
  422.  O(id~%%).Angle = RND * _PI
  423.  O(id~%%).Angle = O(id~%%).Angle
  424.  
  425.  O(id~%%).Rotation = 1
  426.  O(id~%%).Kind = INT(RND * 9) + 2
  427.  O(id~%%).Speed = RND * (2 * G.level) + .1
  428.  O(id~%%).Colr = INT(RND * 5) + 6
  429.  CollisionColor%% = CollisionColor%% + 1
  430.  O(id~%%).CollideColr = CollisionColor%%
  431.  IF CollisionColor%% >= 64 THEN CollisionColor%% = 1
  432.  'set size of object
  433.  SELECT CASE O(id~%%).Kind
  434.   CASE 2 TO 5
  435.    O(id~%%).Zoom = V12
  436.   CASE 6 TO 9
  437.    O(id~%%).Zoom = V12 + H2
  438.   CASE 10 'make bombs big or small
  439.    IF INT(RND * 2) THEN O(id~%%).Zoom = H2 + V2 ELSE O(id~%%).Zoom = None
  440.    O(id~%%).Colr = White
  441.   CASE 11
  442.    O(id~%%).Zoom = None
  443.    O(id~%%).Colr = White
  445.  'randomly flip object around
  446.  IF O(id~%%).Kind >= 2 AND O(id~%%).Kind <= 9 THEN
  447.   IF INT(RND * 1) THEN O(id~%%).Zoom = O(id~%%).Zoom + HF
  448.   IF INT(RND * 1) THEN O(id~%%).Zoom = O(id~%%).Zoom + VF
  451.  
  452. SUB MakeShot (id~%%)
  453.  s(id~%%).Xpos = P.Xpos + 12
  454.  s(id~%%).Ypos = 320
  456.  
  457. SUB MovePlayerShot (id~%%)
  458.  s(id~%%).Ypos = s(id~%%).Ypos - G.ShotSpeed
  459.  IF s(id~%%).Ypos > 0 THEN Hit%% = ShotCollision%%(id~%%) ELSE Hit%% = -1
  460.  IF Hit%% > -1 THEN
  461.   s(id~%%).Ypos = -32 'move shot for removal
  462.   ScoreShot Hit%% 'incress score
  463.   MakeBlast G.BlastCount, Hit%%
  464.   G.BlastCount = G.BlastCount + 1 'add a new blast
  465.   Makeoid Hit%% 'replace the oid with a new one
  467.  IF s(id~%%).Ypos < -16 THEN
  468.   P.ShotCount = P.ShotCount - 1
  469.   FOR i%% = id~%% TO P.ShotCount
  470.    SWAP s(i%%), s(i%% + 1)
  471.   NEXT i%%
  472.   s(i%% - 1).Xpos = -10: s(i%% - 1).Ypos = 0
  475.  
  476. SUB Moveoid (id~%%)
  477.  O(id~%%).Xpos = O(id~%%).Xpos + O(id~%%).Speed * COS(O(id~%%).Angle)
  478.  O(id~%%).Ypos = O(id~%%).Ypos + O(id~%%).Speed '*sin(o(id~%%).angle)
  479.  IF O(id~%%).Ypos > 335 THEN GroundCollide id~%%: Makeoid id~%%
  480.  hit%% = OidCollide(id~%%)
  481.  IF hit%% = TRUE THEN
  482.   ScoreShot id~%%
  483.   MakeBlast G.BlastCount, id~%%
  484.   G.BlastCount = G.BlastCount + 1 'add a new blast
  485.   Makeoid id~%%
  486.  ELSEIF hit%% = -2 THEN
  487.   KillPlayer
  488.   Makeoid id~%%
  490.  IF O(id~%%).Xpos > 640 OR O(id~%%).Xpos < -16 THEN Makeoid id~%%
  492.  
  493. SUB PlaceSprite (x%, y%, ID%%, Zoom~%, C%%, Frame%%)
  494.  SpriteColor Colors(C%%)
  495.  EX% = 30: EY% = 30 'base size
  496.  
  497.  IF (ID%% < LargeA) OR (ID%% > LargeD) THEN
  498.   IF Zoom~% > None THEN
  499.    'Flipping Options
  500.    IF Zoom~% AND 512 THEN EX% = -EX% 'flip Horizontal
  501.    IF Zoom~% AND 256 THEN EY% = -EY% 'Flip Vertical
  502.  
  503.    'Scaling options
  504.    IF Zoom~% AND 128 THEN EX% = EX% * 4 + 0 ' Horizontal x4
  505.    IF Zoom~% AND 64 THEN EX% = EX% * 2 + 0 '  Horizontal x2
  506.    IF Zoom~% AND 32 THEN EX% = EX% * .5 + 0 ' Horizontal 1/2
  507.    IF Zoom~% AND 16 THEN EX% = EX% * .25 + 0 'Horizontal 1/4
  508.    IF Zoom~% AND 8 THEN EY% = EY% * 4 + 0 '   Vertical x4
  509.    IF Zoom~% AND 4 THEN EY% = EY% * 2 + 0 '   Vertical x2
  510.    IF Zoom~% AND 2 THEN EY% = EY% * .5 + 0 '  Vertical 1/2
  511.    IF Zoom~% AND 1 THEN EY% = EY% * .25 + 0 ' Vertical 1/4
  512.   END IF
  514.  
  515.  SELECT CASE ID%%
  516.   CASE NullShip 'the ship used for Meteor!
  517.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (0, 0)-STEP(31, 31)
  518.   CASE Ship 'the ship Used for AstroSmash
  519.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (33, 0)-STEP(31, 31)
  520.   CASE SmallA
  521.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (198, 0)-STEP(31, 31)
  522.   CASE SmallB
  523.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (264, 0)-STEP(31, 31)
  524.   CASE SmallC
  525.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (66, 0)-STEP(31, 31)
  526.   CASE SmallD
  527.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (132, 0)-STEP(31, 31)
  528.   CASE SmallE
  529.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (165, 0)-STEP(31, 31)
  530.   CASE SmallF
  531.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (99, 0)-STEP(31, 31)
  532.   CASE SmallG
  533.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (297, 0)-STEP(31, 31)
  534.   CASE SmallH
  535.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (231, 0)-STEP(31, 31)
  536.   CASE LargeA
  537.    IF Zoom~% AND VF THEN
  538.     PlaceSprite x%, y%, SmallD, Zoom~%, C%%, Frame%%
  539.     PlaceSprite x%, y% - 16, SmallE, Zoom~%, C%%, Frame%%
  540.    ELSE
  541.     PlaceSprite x%, y% - 16, SmallD, Zoom~%, C%%, Frame%%
  542.     PlaceSprite x%, y%, SmallE, Zoom~%, C%%, Frame%%
  543.    END IF
  544.   CASE LargeB
  545.    IF Zoom~% AND VF THEN
  546.     PlaceSprite x%, y%, SmallC, Zoom~%, C%%, Frame%%
  547.     PlaceSprite x%, y% - 16, SmallF, Zoom~%, C%%, Frame%%
  548.    ELSE
  549.     PlaceSprite x%, y% - 16, SmallC, Zoom~%, C%%, Frame%%
  550.     PlaceSprite x%, y%, SmallF, Zoom~%, C%%, Frame%%
  551.    END IF
  552.   CASE LargeC
  553.    IF Zoom~% AND VF THEN
  554.     PlaceSprite x%, y%, SmallB, Zoom~%, C%%, Frame%%
  555.     PlaceSprite x%, y% - 16, SmallG, Zoom~%, C%%, Frame%%
  556.    ELSE
  557.     PlaceSprite x%, y% - 16, SmallB, Zoom~%, C%%, Frame%%
  558.     PlaceSprite x%, y%, SmallG, Zoom~%, C%%, Frame%%
  559.    END IF
  560.   CASE LargeD
  561.    IF Zoom~% AND VF THEN
  562.     PlaceSprite x%, y%, SmallA, Zoom~%, C%%, Frame%%
  563.     PlaceSprite x%, y% - 16, SmallH, Zoom~%, C%%, Frame%%
  564.    ELSE
  565.     PlaceSprite x%, y% - 16, SmallA, Zoom~%, C%%, Frame%%
  566.     PlaceSprite x%, y%, SmallH, Zoom~%, C%%, Frame%%
  567.    END IF
  568.   CASE Bomb
  569.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (0 + ((Frame%% - 1) * 33), 33)-STEP(31, 31)
  570.   CASE Tracker
  571.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (0 + ((Frame%% - 1) * 33), 66)-STEP(31, 31)
  572.   CASE SpaceShip
  573.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), ((165 + (Frame%% - 1) * 33), 99)-STEP(31, 31)
  574.   CASE Blast
  575.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (132 + (Frame%% - 1) * 33, 33)-STEP(31, 31)
  577.  _CLEARCOLOR Colors(Black), Layer(TEMP)
  578.  _PUTIMAGE (x%, y%), Layer(TEMP), Layer(4)
  579.  SpriteColor Colors(White)
  580.  ClearLayer TEMP
  582.  
  583. SUB PlaceSpriteShadow (x%, y%, ID%%, Zoom~%, C%%, Frame%%)
  584.  SpriteColor _RGB32(C%%, C%%, C%%)
  585.  EX% = 30: EY% = 30 'base size
  586.  
  587.  IF (ID%% < LargeA) OR (ID%% > LargeD) THEN
  588.   IF Zoom~% > None THEN
  589.    'Flipping Options
  590.    IF Zoom~% AND 512 THEN EX% = -EX% 'flip Horizontal
  591.    IF Zoom~% AND 256 THEN EY% = -EY% 'Flip Vertical
  592.  
  593.    'Scaling options
  594.    IF Zoom~% AND 128 THEN EX% = EX% * 4 + 0 ' Horizontal x4
  595.    IF Zoom~% AND 64 THEN EX% = EX% * 2 + 0 '  Horizontal x2
  596.    IF Zoom~% AND 32 THEN EX% = EX% * .5 + 0 ' Horizontal 1/2
  597.    IF Zoom~% AND 16 THEN EX% = EX% * .25 + 0 'Horizontal 1/4
  598.    IF Zoom~% AND 8 THEN EY% = EY% * 4 + 0 '   Vertical x4
  599.    IF Zoom~% AND 4 THEN EY% = EY% * 2 + 0 '   Vertical x2
  600.    IF Zoom~% AND 2 THEN EY% = EY% * .5 + 0 '  Vertical 1/2
  601.    IF Zoom~% AND 1 THEN EY% = EY% * .25 + 0 ' Vertical 1/4
  602.   END IF
  604.  
  605.  SELECT CASE ID%%
  606.   CASE NullShip 'the ship used for Meteor!
  607.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (0, 0)-STEP(31, 31)
  608.   CASE Ship 'the ship Used for AstroSmash
  609.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (33, 0)-STEP(31, 31)
  610.   CASE SmallA
  611.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (198, 0)-STEP(31, 31)
  612.   CASE SmallB
  613.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (264, 0)-STEP(31, 31)
  614.   CASE SmallC
  615.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (66, 0)-STEP(31, 31)
  616.   CASE SmallD
  617.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (132, 0)-STEP(31, 31)
  618.   CASE SmallE
  619.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (165, 0)-STEP(31, 31)
  620.   CASE SmallF
  621.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (99, 0)-STEP(31, 31)
  622.   CASE SmallG
  623.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (297, 0)-STEP(31, 31)
  624.   CASE SmallH
  625.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (231, 0)-STEP(31, 31)
  626.   CASE LargeA
  627.    IF Zoom~% AND VF THEN
  628.     PlaceSpriteShadow x%, y%, SmallD, Zoom~%, C%%, Frame%%
  629.     PlaceSpriteShadow x%, y% - 16, SmallE, Zoom~%, C%%, Frame%%
  630.    ELSE
  631.     PlaceSpriteShadow x%, y% - 16, SmallD, Zoom~%, C%%, Frame%%
  632.     PlaceSpriteShadow x%, y%, SmallE, Zoom~%, C%%, Frame%%
  633.    END IF
  634.   CASE LargeB
  635.    IF Zoom~% AND VF THEN
  636.     PlaceSpriteShadow x%, y%, SmallC, Zoom~%, C%%, Frame%%
  637.     PlaceSpriteShadow x%, y% - 16, SmallF, Zoom~%, C%%, Frame%%
  638.    ELSE
  639.     PlaceSpriteShadow x%, y% - 16, SmallC, Zoom~%, C%%, Frame%%
  640.     PlaceSpriteShadow x%, y%, SmallF, Zoom~%, C%%, Frame%%
  641.    END IF
  642.   CASE LargeC
  643.    IF Zoom~% AND VF THEN
  644.     PlaceSpriteShadow x%, y%, SmallB, Zoom~%, C%%, Frame%%
  645.     PlaceSpriteShadow x%, y% - 16, SmallG, Zoom~%, C%%, Frame%%
  646.    ELSE
  647.     PlaceSpriteShadow x%, y% - 16, SmallB, Zoom~%, C%%, Frame%%
  648.     PlaceSpriteShadow x%, y%, SmallG, Zoom~%, C%%, Frame%%
  649.    END IF
  650.   CASE LargeD
  651.    IF Zoom~% AND VF THEN
  652.     PlaceSpriteShadow x%, y%, SmallA, Zoom~%, C%%, Frame%%
  653.     PlaceSpriteShadow x%, y% - 16, SmallH, Zoom~%, C%%, Frame%%
  654.    ELSE
  655.     PlaceSpriteShadow x%, y% - 16, SmallA, Zoom~%, C%%, Frame%%
  656.     PlaceSpriteShadow x%, y%, SmallH, Zoom~%, C%%, Frame%%
  657.    END IF
  658.   CASE Bomb
  659.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (0 + ((Frame%% - 1) * 33), 33)-STEP(31, 31)
  660.   CASE Tracker
  661.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (0 + ((Frame%% - 1) * 33), 66)-STEP(31, 31)
  662.   CASE SpaceShip
  663.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), ((165 + (Frame%% - 1) * 33), 99)-STEP(31, 31)
  664.   CASE Blast
  665.    _PUTIMAGE (0, 0)-STEP(EX%, EY%), Layer(SPRITE), Layer(TEMP), (132 + (Frame%% - 1) * 33, 33)-STEP(31, 31)
  667.  _CLEARCOLOR Colors(Black), Layer(TEMP)
  668.  _PUTIMAGE (x%, y%), Layer(TEMP), Layer(COLLIDE)
  669.  SpriteColor Colors(White)
  670.  ClearLayer TEMP
  672.  
  673. SUB ScoreShot (id~%%)
  674.  STATIC Highest AS _UNSIGNED LONG, last AS LONG
  675.  SELECT CASE O(id~%%).Kind
  676.   CASE SmallA TO SmallD
  677.    G.Score = G.Score + (SmallOid * G.level)
  678.   CASE LargeA TO LargeD
  679.    G.Score = G.Score + (LargeOid * G.level)
  680.   CASE Bomb
  681.    IF O(id~%%).Zoom = H2 + V2 THEN G.Score = G.Score + (LargeBomb * G.level)
  682.    IF O(id~%%).Zoom = None THEN G.Score = G.Score + (SmallBomb * G.level)
  683.   CASE Tracker
  684.    G.Score = G.Score + (Seeker * G.level)
  685.   CASE SpaceShip
  686.    G.Score = G.Score + (Aliens * G.level)
  687.   CASE SpaceShipShot
  688.    G.Score = G.Score + (AlienShot * G.level)
  690.  IF G.Score > Highest THEN Highest = G.Score
  691.  IF INT(Highest / 1000) > last THEN last = INT(Highest / 1000): G.Lives = G.Lives + 1
  693.  
  694. FUNCTION ShotCollision%% (id~%%)
  695.  result%% = TRUE
  696.  _SOURCE Layer(COLLIDE)
  697.  FOR i%% = 0 TO 32 STEP 2
  698.   test~& = POINT(s(id~%%).Xpos + 4, s(id~%%).Ypos + i%%) 'check collision layer for color
  699.   IF test~& <> Colors(Black) THEN i%% = 33
  700.  NEXT i%%
  701.  _SOURCE Layer(0)
  702.  IF test~& <> Colors(Black) THEN 'non black hit something
  703.   FOR i%% = 0 TO G.OidCount - 1 'find which oid was hit
  704.    IF test~& = _RGB32(O(i%%).CollideColr, O(i%%).CollideColr, O(i%%).CollideColr) THEN result%% = i%%
  705.   NEXT i%%
  707.  ShotCollision%% = result%%
  709.  
  710. SUB SpriteColor (id~&)
  711.  old& = _DEST
  712.  _DEST Layer(SPRITE)
  713.  _PALETTECOLOR 31, id~&
  714.  _DEST old&
  716.  
  717. SUB TitleScreen
  718.  _DEST Layer(TITLE)
  719.  _PRINTSTRING (32, 104), "Mattel Electronics"
  720.  _PRINTSTRING (196, 144), "Presents"
  721.  _PRINTSTRING (132, 232), "ASTROSMASH!"
  722.  _PRINTSTRING (36, 329), "Copr @ 1981 Mattel"
  723.  LINE (0, 400)-(639, 479), Colors(Olive), BF
  724.  _PRINTSTRING (50, 392), "Clone 2018 Cobalt"
  725.  _DEST Layer(0)
  726.  _PUTIMAGE (0, 0), Layer(TITLE), Layer(0)
  727.  DO: _DELAY .05: LOOP WHILE INKEY$ = ""
  729.  CLS
  731.  
  732. SUB ChangeBGColor (id%%)
  733.  old& = _DEST
  734.  _DEST Layer(BGCOLOR)
  735.  LINE (0, 0)-(639, 399), Colors(id%%), BF
  736.  _DEST old&
  738.  
  739. FUNCTION OidCollide%% (id~%%)
  740.  result%% = FALSE
  741.  _SOURCE Layer(COLLIDE)
  742.  FOR y% = O(id~%%).Ypos TO O(id~%%).Ypos + 32 STEP 4
  743.   FOR x% = O(id~%%).Xpos TO O(id~%%).Xpos + 32 STEP 4
  744.    SELECT CASE O(id~%%).Kind
  745.     CASE SmallA TO SmallD
  746.      test~& = POINT(x%, y%)
  747.     CASE LargeA TO LargeD
  748.      test~& = POINT(x%, y%)
  749.     CASE Bomb
  750.     CASE Tracker
  751.      '     IF test~& <> Colors(Black) THEN x% = O(id~%%).Xpos + 33: y% = O(id~%%).Ypos + 33: result%% = TRUE
  752.    END SELECT
  753.    IF test~& = _RGB32(126, 126, 126) THEN x% = O(id~%%).Xpos + 33: y% = O(id~%%).Ypos + 33: result%% = TRUE
  754.    IF test~& = _RGB32(127, 127, 127) THEN x% = O(id~%%).Xpos + 33: y% = O(id~%%).Ypos + 33: result%% = TRUE - 1 '-2
  755.   NEXT x%
  756.  NEXT y%
  757.  _SOURCE Layer(0)
  758.  OidCollide%% = result%%
  760.  
  761. SUB BackGroundColor ()
  762.  STATIC oldscore AS _UNSIGNED LONG
  763.  IF G.Score >= oldscore + 1000 OR G.Score < oldscore THEN 'only bother if
  764.   IF oldcolor = 0 THEN oldcolor = Colors(id%%) 'happens on first run
  765.   SELECT CASE G.Score
  766.    CASE IS < 1000
  767.     ChangeBGColor Black
  768.     G.level = 1
  769.     G.CurrentBG = Black
  770.    CASE 1000 TO 4999
  771.     ChangeBGColor Blue
  772.     G.level = 2
  773.     G.CurrentBG = Blue
  774.    CASE 5000 TO 19999
  775.     ChangeBGColor Maroon
  776.     G.level = 3
  777.     G.CurrentBG = Maroon
  778.    CASE 20000 TO 49999
  779.     ChangeBGColor SkyBlue
  780.     G.level = 4
  781.     G.CurrentBG = SkyBlue
  782.    CASE 50000 TO 99999
  783.     ChangeBGColor Grey
  784.     G.level = 5
  785.     G.CurrentBG = Grey
  786.    CASE IS >= 100000
  787.     ChangeBGColor Black
  788.     G.level = 6
  789.     G.CurrentBG = Black
  791.   oldscore = INT(G.Score / 1000) * 1000 'remove values from 1 to 999
  793.  ' _DEST Layer(BGCOLOR)
  794.  ' LOCATE 26, 1: PRINT oldscore; G.BlastCount
  795.  ' _DEST Layer(0)
  797.  

LEFT and RIGHT arrow keys move your ship, while SPACE shoots, you must release the button to shoot again. teleporting is not in place yet.
I am trying something different with this one, using LIMIT instead of DELAY, and due to this its very CPU hungry, (55-75% cycle use on my machine, as opposed to 5-8% using DELAY) so you might watch having much of anything else running at the same time.
Everything should run, the only dependency is the TTF below. and having a more recent copy of QB64.
* PixelIntv.ttf (Filesize: 19.43 KB, Downloads: 203)
Logged
Granted after becoming radioactive I only have a half-life!

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Preliminary AstroSmash 64 sneak peak.
« Reply #1 on: November 10, 2018, 10:03:43 pm »
Very 'retro'. Nice 'simple' game but I still got killed off... Brilliant!!
Logged
Logic is the beginning of wisdom.
Pages: [1]   Go Up
« previous next »