eRATication Mark II

[Cobalt]

A first release of eRATication Mark II!
Modifications:
Splash Screen
Title screen
Menu with following options:
  Play game
  High Scores
  Options(volume controls, not finished yet)
  Help pages
  Quit
Audio SFX & BGM

There are still somethings that need finishing, but its playable and can track high scores.

[bplus]

Hi Cobalt

Love the music and sound effects and how you have modified the game!

Append: Ha! I thought you had downloaded the Naalaa version and included it but apparently the rar folder extracted right into the Naalaa one. The versions coexist peacefully enough. :D

[Cobalt]

with any luck when(if) .NET comes back up I'll be able to find a way to keep the high scores online so everybody can see how others are doing at it.  Trying to decide just how far to go with the rat explosions too, I want to do something kinda showy but keep it basic too. I'll have to dig up some of my old fireworks programs. maybe I can find the old ABC resource, have a copy of it somewhere.

[bplus]

with any luck when(if) .NET comes back up I'll be able to find a way to keep the high scores online so everybody can see how others are doing at it.  Trying to decide just how far to go with the rat explosions too, I want to do something kinda showy but keep it basic too. I'll have to dig up some of my old fireworks programs. maybe I can find the old ABC resource, have a copy of it somewhere.

Here is something I dug up:

Code: QB64: [Select]

1. _TITLE "le bombe"
2. 'QB64 X 64 version 1.2 20180228/86  from git b301f92
3.  
4. '2018-07-28 translated from
5. 'bomb.bas for SmallBASIC 0.12.2 [B+=MGA] 2016-05-09
6. 'from explosion study
7.  
8. CONST xmax = 800
9. CONST ymax = 600
10. SCREEN _NEWIMAGE(xmax, ymax, 32)
11. _SCREENMOVE 360, 60
12. CONST max_particles = 1000
13. CONST gravity = .25
14. CONST air_resistance = .95
15. TYPE particle
16.     x AS SINGLE
17.     y AS SINGLE
18.     dx AS SINGLE
19.     dy AS SINGLE
20.     size AS SINGLE
21.     kolor AS LONG
22.     tf AS INTEGER
23. END TYPE
24. DIM SHARED dots(max_particles) AS particle
25.  
26. 'main
27. WHILE NOT _KEYDOWN(27)
28.     FOR i = 1 TO 100
29.         NewDot i
30.     NEXT
31.     rounds = 100
32.     FOR i = 12 TO 0 STEP -1
33.         IF _KEYDOWN(27) THEN END
34.         CLS
35.         DrawSky
36.         DrawGround
37.         DrawBomb
38.         DrawFuse i
39.         _DISPLAY
40.         IF i = 0 THEN _DELAY RND * 3 ELSE _DELAY .100
41.     NEXT
42.     LINE (0, 0)-(xmax, ymax), _RGB32(255, 255, 255), BF
43.     _DISPLAY
44.     _DELAY .02
45.     FOR loop_count = 0 TO 150
46.         IF _KEYDOWN(27) THEN END
47.         DrawSky
48.         DrawGround
49.         IF loop_count < 4 THEN
50.             COLOR _RGB(64 - 8 * loop_count, 40 - 4 * loop_count, 32 - 4 * loop_count)
51.             IF loop_count < 8 THEN fcirc xmax / 2, ymax / 2, 30 * (1 - loop_count * .25)
52.         END IF
53.         FOR i = 1 TO rounds
54.             dots(i).x = dots(i).x + dots(i).dx
55.             dots(i).y = dots(i).y + dots(i).dy
56.             IF RND < .2 AND rounds > 10 AND dots(i).y > ymax / 2 THEN dots(i).dx = 0: dots(i).dy = 0
57.             dots(i).dx = dots(i).dx * air_resistance
58.             IF dots(i).dy <> 0 THEN dots(i).dy = air_resistance * dots(i).dy + .4 'air resistance and gravity
59.             IF dots(i).tf THEN
60.                 LINE (dots(i).x, dots(i).y)-STEP(dots(i).size, dots(i).size), dots(i).kolor, BF
61.             ELSE
62.                 COLOR dots(i).kolor
63.                 fcirc dots(i).x, dots(i).y, dots(i).size / 2
64.             END IF
65.         NEXT
66.         IF rounds < max_particles THEN
67.             FOR i = 1 TO 100
68.                 NewDot (rounds + i)
69.             NEXT
70.             rounds = rounds + 100
71.         END IF
72.         COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 255)
73.         LOCATE 1, 1: PRINT loop_count
74.         _DISPLAY
75.         _LIMIT 60
76.     NEXT
77. WEND
78.  
79. SUB NewDot (i)
80.     angle = _PI(RND * 2)
81.     dots(i).x = xmax / 2 + RND * 30 * COS(angle)
82.     dots(i).y = ymax / 2 + RND * 30 * SIN(angle)
83.     r = RND 'STxAxTIC recommended for rounder spreads
84.     dots(i).dx = r * 45 * COS(angle)
85.     dots(i).dy = r * 45 * SIN(angle)
86.     dots(i).size = RND * 7
87.     dots(i).kolor = _RGB32(10 + RND * 100, 5 + RND * 50, 3 + RND * 25)
88.     dots(i).tf = (RND * 2) \ 1
89. END SUB
90.  
91. SUB DrawSky
92.     FOR i = 0 TO ymax / 2
93.         LINE (0, i)-STEP(xmax, 0), _RGB32(0, 0, 95 * i \ (ymax / 2) + 160)
94.     NEXT
95. END SUB
96.  
97. SUB DrawBomb
98.     cx = xmax / 2: cy = ymax / 2 - 70: radius = 10
99.     FOR i = 60 TO 0 STEP -1 'main body
100.         COLOR _RGB32(240 - 4 * i, 180 - 3 * i, 120 - 2 * i)
101.         fcirc cx, ymax / 2, i
102.     NEXT
103.  
104.     FOR angle = 0 TO 180 'fuse shaft
105.         rad_angle = _D2R(angle)
106.         x1 = cx + radius * COS(rad_angle)
107.         y1 = cy + radius * .25 * SIN(rad_angle)
108.         LINE (x1, y1)-STEP(0, 20), _RGB32(127 + 127 * COS(rad_angle), 127 + 127 * COS(rad_angle), 127 + 127 * COS(rad_angle))
109.     NEXT
110.     COLOR _RGB32(0, 0, 0)
111.     fEllipse cx, cy, radius, .25 * radius
112. END SUB
113.  
114. SUB DrawFuse (length)
115.     cx = xmax / 2: cy = ymax / 2 - 70
116.     IF length <= 0 THEN EXIT SUB
117.     COLOR _RGB32(255, 255, 0)
118.     LINE (cx, cy - (5 + 2 * length))-STEP(2, 5), , BF
119.     fcirc cx, cy - (1 + 2 * length), 2
120.     rn = (RND * 5) \ 1 + 3
121.     FOR i = 1 TO rn
122.         rad_angle = _PI(RND) + _PI
123.         x1 = cx + 7 * COS(rad_angle): x2 = cx + 14 * COS(rad_angle)
124.         y1 = cy - (1 + 2 * length) + 9 * SIN(rad_angle): y2 = cy - (1 + 2 * length) + (RND * 13 + 9) * SIN(rad_angle)
125.         LINE (x1, y1)-(x2, y2), _RGB32(255, 255, 255)
126.     NEXT
127.     FOR i = 1 TO length
128.         rad_angle = _PI(RND * 2)
129.         x1 = 3 * COS(rad_angle)
130.         y1 = 3 * .25 * SIN(rad_angle)
131.         LINE (cx, cy - 2 * i)-STEP(x1, y1), _RGB32(RND * 65 + 190, RND * 65 + 190, RND * 20 + 235), BF
132.     NEXT
133. END SUB
134.  
135. SUB DrawGround
136.     FOR i = ymax / 2 TO ymax
137.         LINE (0, i)-STEP(xmax, 0), _RGB32(0, 160 - 96 * (i - ymax / 2) \ (ymax / 2), 0)
138.     NEXT
139. END SUB
140.  
141. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
142.     DIM subRadius AS LONG, RadiusError AS LONG
143.     DIM X AS LONG, Y AS LONG
144.  
145.     subRadius = ABS(R)
146.     RadiusError = -subRadius
147.     X = subRadius
148.     Y = 0
149.  
150.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
151.  
152.     ' Draw the middle span here so we don't draw it twice in the main loop,
153.     ' which would be a problem with blending turned on.
154.     LINE (CX - X, CY)-(CX + X, CY), , BF
155.  
156.     WHILE X > Y
157.         RadiusError = RadiusError + Y * 2 + 1
158.         IF RadiusError >= 0 THEN
159.             IF X <> Y + 1 THEN
160.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
161.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
162.             END IF
163.             X = X - 1
164.             RadiusError = RadiusError - X * 2
165.         END IF
166.         Y = Y + 1
167.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
168.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
169.     WEND
170. END SUB
171.  
172. SUB fEllipse (CX AS LONG, CY AS LONG, xRadius AS LONG, yRadius AS LONG)
173.     DIM scale AS SINGLE, x AS LONG, y AS LONG
174.     scale = yRadius / xRadius
175.     LINE (CX, CY - yRadius)-(CX, CY + yRadius), , BF
176.     FOR x = 1 TO xRadius
177.         y = scale * SQR(xRadius * xRadius - x * x)
178.         LINE (CX + x, CY - y)-(CX + x, CY + y), , BF
179.         LINE (CX - x, CY - y)-(CX - x, CY + y), , BF
180.     NEXT
181. END SUB
182.  
183.  

[Cobalt]

Build 15 of eRATication Mark II
 upgraded rat 'splats' (some monitors may look a bit purpleish in color???)
 upgraded player explosion!
 now play using the standard shooter or as a wedge of cheese!(hard code constant:CONST ShooterStyle)
 now contains credits screen!

code has been broken down into functions and stored as include files to shrink main file and for ease of modifying individual components. While this is not a problem on Windows machines, I'm not sure how Linux or Mac will respond due to the functions being stored in a separate directory. Final release will be reintegrated to a single file to avoid these possible issues.

[bplus]

Hi Cobalt,

Coming along nicely! Nice explosion of shooter into hologram fragments of shooter!

I guess I could have quite doing cheese with first fix of holes but I made some mighty fine cheese this morning and considered having the rats race over a whole floor of it.

[Cobalt]

Thanks Bplus,

I'll probably tweak it some at a later date. maybe make it a 2 layer deal, make the cheese with some black holes then putimage that over a triangle of the darker color so the holes can cut the side of the cheese too. need to find a way to add the 'rounded' back for the shooter, like it was cut from a cheese wheel. simply enough to use a circle but it has to be a bigger circle than the shooter which means you have to erase the unneeded part before drawing the shooter, at the angle of the shooter. probably with two triangles but just seems like a large amount of work for such a small change.

Once I load the cheese palette the explosion of the shooter should look even better. I really need to get the options menu worked out so the volume levels can be adjusted.
Though if Galleon doesn't bring the R\O copy of .net forum back up I'm not sure what I'll do about the high scores list. I could probably figure out a way but it would be simpler and faster just to find Steves code from his Double Up game there.

[bplus]

A cheese wedge from a round cake, this can be done thanks to my planet sphere practice with [banned user]'s space thing.

Besides the 2nd shooter wedge I had designed wasn't going to work for detecting collisions, you need shooter's x, y in center of shooter.

[bplus]

Hi Cobalt,

Cheese wedge ready when you are:
https://www.qb64.org/forum/index.php?topic=386.0
see 'fixed' reply

I also made it so shooterX, and shooterY is in center of wedge for easy collision detection as in original codes.

The drawShooter code is allot smaller without all the checking and extra drawing and the cheese drawing is self-contained sub just  need to DIM share a cheese& handle. It might also be used for explosion particles by cutting (_MAPTRIANGLE 's) from it.

[Cobalt]

Well here it is, the final beta release of eRATication Mark II. (until .NET comes back up or .ORG gets a copy of the forum anyway)
Everything is there to some extent, the high score list is the only thing that needs extensive finishing.
There is some tweaking to be done here and there and some cosmetic issues that really don't affect game play but I may still attack and destroy for the actual alpha release.

The Options screen now works and allows adjustment of the sound levels for the Background Music, Rat sound FX and shooter Sound FX. Also allows you to choose between the original shooter or the Cheesey shooter! The Option menu is controlled with the mouse, exit by clicking DONE or pressing enter. To abort changes press ESC.

The shot collision is still a bit glitchy and hitting the smaller rats can be a pain sometimes, this will be an ongoing adjustment but, the game is still playable.

High Score Names will only show 12 letters at the moment(though it says up to 16) this will be adjusted\fixed\up graded or what-not once I can get an online High Scores list running.

There is now a copy of the BAS that is 'in-line' and does not include the functions from a separate directory, for those OSs that don't have the same directory structure as Windows.

there may be various minor upgrades and\or changes as thing go along, but for now enjoy it, find bugs, have fun.