Print Page - eRATication Mark II

Active Forums => Programs => Topic started by: Cobalt on July 27, 2018, 02:00:54 am

Title: eRATication Mark II
Post by: Cobalt on July 27, 2018, 02:00:54 am

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.

Title: Re: eRATication Mark II
Post by: bplus on July 27, 2018, 10:41:18 am

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

Title: Re: eRATication Mark II
Post by: Cobalt on July 28, 2018, 11:48:28 am

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.

Title: Re: eRATication Mark II
Post by: bplus on July 28, 2018, 03:24:23 pm

Quote from: Cobalt on July 28, 2018, 11:48:28 am

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]

_TITLE "le bombe"
'QB64 X 64 version 1.2 20180228/86  from git b301f92
 
'2018-07-28 translated from
'bomb.bas for SmallBASIC 0.12.2 [B+=MGA] 2016-05-09
'from explosion study
 
CONST xmax = 800
CONST ymax = 600
SCREEN _NEWIMAGE(xmax, ymax, 32)
_SCREENMOVE 360, 60
CONST max_particles = 1000
CONST gravity = .25
CONST air_resistance = .95
TYPE particle
    x AS SINGLE
    y AS SINGLE
    dx AS SINGLE
    dy AS SINGLE
    size AS SINGLE
    kolor AS LONG
    tf AS INTEGER
END TYPE
DIM SHARED dots(max_particles) AS particle
 
'main
WHILE NOT _KEYDOWN(27)
    FOR i = 1 TO 100
        NewDot i
    NEXT
    rounds = 100
    FOR i = 12 TO 0 STEP -1
        IF _KEYDOWN(27) THEN END
        CLS
        DrawSky
        DrawGround
        DrawBomb
        DrawFuse i
        _DISPLAY
        IF i = 0 THEN _DELAY RND * 3 ELSE _DELAY .100
    NEXT
    LINE (0, 0)-(xmax, ymax), _RGB32(255, 255, 255), BF
    _DISPLAY
    _DELAY .02
    FOR loop_count = 0 TO 150
        IF _KEYDOWN(27) THEN END
        DrawSky
        DrawGround
        IF loop_count < 4 THEN
            COLOR _RGB(64 - 8 * loop_count, 40 - 4 * loop_count, 32 - 4 * loop_count)
            IF loop_count < 8 THEN fcirc xmax / 2, ymax / 2, 30 * (1 - loop_count * .25)
        END IF
        FOR i = 1 TO rounds
            dots(i).x = dots(i).x + dots(i).dx
            dots(i).y = dots(i).y + dots(i).dy
            IF RND < .2 AND rounds > 10 AND dots(i).y > ymax / 2 THEN dots(i).dx = 0: dots(i).dy = 0
            dots(i).dx = dots(i).dx * air_resistance
            IF dots(i).dy <> 0 THEN dots(i).dy = air_resistance * dots(i).dy + .4 'air resistance and gravity
            IF dots(i).tf THEN
                LINE (dots(i).x, dots(i).y)-STEP(dots(i).size, dots(i).size), dots(i).kolor, BF
            ELSE
                COLOR dots(i).kolor
                fcirc dots(i).x, dots(i).y, dots(i).size / 2
            END IF
        NEXT
        IF rounds < max_particles THEN
            FOR i = 1 TO 100
                NewDot (rounds + i)
            NEXT
            rounds = rounds + 100
        END IF
        COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 255)
        LOCATE 1, 1: PRINT loop_count
        _DISPLAY
        _LIMIT 60
    NEXT
WEND
 
SUB NewDot (i)
    angle = _PI(RND * 2)
    dots(i).x = xmax / 2 + RND * 30 * COS(angle)
    dots(i).y = ymax / 2 + RND * 30 * SIN(angle)
    r = RND 'STxAxTIC recommended for rounder spreads
    dots(i).dx = r * 45 * COS(angle)
    dots(i).dy = r * 45 * SIN(angle)
    dots(i).size = RND * 7
    dots(i).kolor = _RGB32(10 + RND * 100, 5 + RND * 50, 3 + RND * 25)
    dots(i).tf = (RND * 2) \ 1
END SUB
 
SUB DrawSky
    FOR i = 0 TO ymax / 2
        LINE (0, i)-STEP(xmax, 0), _RGB32(0, 0, 95 * i \ (ymax / 2) + 160)
    NEXT
END SUB
 
SUB DrawBomb
    cx = xmax / 2: cy = ymax / 2 - 70: radius = 10
    FOR i = 60 TO 0 STEP -1 'main body
        COLOR _RGB32(240 - 4 * i, 180 - 3 * i, 120 - 2 * i)
        fcirc cx, ymax / 2, i
    NEXT
 
    FOR angle = 0 TO 180 'fuse shaft
        rad_angle = _D2R(angle)
        x1 = cx + radius * COS(rad_angle)
        y1 = cy + radius * .25 * SIN(rad_angle)
        LINE (x1, y1)-STEP(0, 20), _RGB32(127 + 127 * COS(rad_angle), 127 + 127 * COS(rad_angle), 127 + 127 * COS(rad_angle))
    NEXT
    COLOR _RGB32(0, 0, 0)
    fEllipse cx, cy, radius, .25 * radius
END SUB
 
SUB DrawFuse (length)
    cx = xmax / 2: cy = ymax / 2 - 70
    IF length <= 0 THEN EXIT SUB
    COLOR _RGB32(255, 255, 0)
    LINE (cx, cy - (5 + 2 * length))-STEP(2, 5), , BF
    fcirc cx, cy - (1 + 2 * length), 2
    rn = (RND * 5) \ 1 + 3
    FOR i = 1 TO rn
        rad_angle = _PI(RND) + _PI
        x1 = cx + 7 * COS(rad_angle): x2 = cx + 14 * COS(rad_angle)
        y1 = cy - (1 + 2 * length) + 9 * SIN(rad_angle): y2 = cy - (1 + 2 * length) + (RND * 13 + 9) * SIN(rad_angle)
        LINE (x1, y1)-(x2, y2), _RGB32(255, 255, 255)
    NEXT
    FOR i = 1 TO length
        rad_angle = _PI(RND * 2)
        x1 = 3 * COS(rad_angle)
        y1 = 3 * .25 * SIN(rad_angle)
        LINE (cx, cy - 2 * i)-STEP(x1, y1), _RGB32(RND * 65 + 190, RND * 65 + 190, RND * 20 + 235), BF
    NEXT
END SUB
 
SUB DrawGround
    FOR i = ymax / 2 TO ymax
        LINE (0, i)-STEP(xmax, 0), _RGB32(0, 160 - 96 * (i - ymax / 2) \ (ymax / 2), 0)
    NEXT
END SUB
 
SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
    DIM subRadius AS LONG, RadiusError AS LONG
    DIM X AS LONG, Y AS LONG
 
    subRadius = ABS(R)
    RadiusError = -subRadius
    X = subRadius
    Y = 0
 
    IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
 
    ' Draw the middle span here so we don't draw it twice in the main loop,
    ' which would be a problem with blending turned on.
    LINE (CX - X, CY)-(CX + X, CY), , BF
 
    WHILE X > Y
        RadiusError = RadiusError + Y * 2 + 1
        IF RadiusError >= 0 THEN
            IF X <> Y + 1 THEN
                LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
                LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
            END IF
            X = X - 1
            RadiusError = RadiusError - X * 2
        END IF
        Y = Y + 1
        LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
        LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
    WEND
END SUB
 
SUB fEllipse (CX AS LONG, CY AS LONG, xRadius AS LONG, yRadius AS LONG)
    DIM scale AS SINGLE, x AS LONG, y AS LONG
    scale = yRadius / xRadius
    LINE (CX, CY - yRadius)-(CX, CY + yRadius), , BF
    FOR x = 1 TO xRadius
        y = scale * SQR(xRadius * xRadius - x * x)
        LINE (CX + x, CY - y)-(CX + x, CY + y), , BF
        LINE (CX - x, CY - y)-(CX - x, CY + y), , BF
    NEXT
END SUB
 
 

Title: Re: eRATication Mark II
Post by: Cobalt on August 01, 2018, 01:15:57 pm

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.

Title: Re: eRATication Mark II
Post by: bplus on August 01, 2018, 01:55:29 pm

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.

Title: Re: eRATication Mark II
Post by: Cobalt on August 01, 2018, 06:25:31 pm

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.

Title: Re: eRATication Mark II
Post by: bplus on August 02, 2018, 10:23:41 am

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.

Title: Re: eRATication Mark II
Post by: bplus on August 03, 2018, 09:57:37 am

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.

Title: Re: eRATication Mark II
Post by: Cobalt on August 04, 2018, 05:34:47 pm

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.

Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on July 27, 2018, 02:00:54 am