Author Topic: Race Car Game (Read 15684 times)

Pete · « **Reply #15 on:** July 15, 2019, 11:36:41 pm »

You could, but what I meant was edit the original, and add a second code box for the newer version, as exampled below. It's just easier for people visiting to find everything about the code in the first place they look. Often, threads extend multiple pages. People seldom search all pages to find code, especially when they see the first post contains code. Just a thought. I won't thing any less of you if you don't do it my way. Wow, is that a backhanded non-compliment or what??? :D Anyway, seriously, that car game rocks!

- Pete

============================

Description of original version stays here.

Code: QB64: [Select]

 
' Original version code remains here.

Description of version 2 gets edited in here.

Code: QB64: [Select]

 
' Version 2 code goes here.

bplus · « **Reply #16 on:** July 16, 2019, 12:12:56 am »

Quote from: Pete on July 15, 2019, 10:30:29 pm

Do me a favor. When you go to post it, post it by editing the original post, but don't overwrite the original code. Name this new one something like version 2, and post it in another code box, below the first version. Just include some comments above the new version code box, which explains the additions to your newer version. Sound good?

Pete

I like to see how game evolves, so posting over original or even under it sucks if you are following the code and it's modifications along the way.

I really hate it when the original code disappears. It makes the rest of the thread disjointed and in congruent, specially for someone new to the thread!

So do me a favor and don't post new mods over the original.

This code is too short to worry about taking up a bunch of room.

If you had a bunch of attached files that goes with the code, that's a different story but then you post the attached in a .zip probably at the start of the thread.

This forum has a method of highlighting your best post that is above the first post and points directly to it for all those who wish to cut to the chase!

Pete · « **Reply #17 on:** July 16, 2019, 12:17:21 am »

Don't listen to BPlus. "He's" still transitioning. Why just last year, "his" avatar was wearing a skirt!!!

Pete

bplus · « **Reply #18 on:** July 16, 2019, 12:20:20 am »

Quote from: Pete on July 16, 2019, 12:17:21 am

Don't listen to BPlus. "He's" still transitioning. Why just last year, "his" avatar was wearing a skirt!!!

Pete

Hey Pete,

If you can't make a reasonable argument just smear the person you are disagreeing with.

Pete · « **Reply #19 on:** July 16, 2019, 01:17:24 am »

Well, if the shoe fits... especially if it matches the skirt!

Kidding aside, my main concern was not to lose the original post. I often just update my original code. I do that because I don't consider it to be a new version, just a work in progress; but Ken's situation got me thinking about organizing multiple versions. So now, if I had a finished work, I would preserve it, and post the newer version in a new code box, inside the original post. That's because I favor keeping the code first, and discussion about the code in the subsequent posts. I also don't believe too many people searching for code want to read complete threads. If I did believe that, I would post the new version in the next available reply space, but I don't, so I won't. Anyway, it's really not a big deal one way or the other. Just a matter of personal preference.

Pete

SMcNeill · « **Reply #20 on:** July 16, 2019, 01:23:30 am »

Quote

.... Kidding aside, my main concern was not to lose the original post.

You can’t.

If you click “view edits of post”, you can see where things have changed... Even compare changes.

My suggestion: Just post new versions as you go, and mark the latest with the “Best Answer” option so folks can be certain to be as up to date as possible.

SierraKen · « **Reply #21 on:** July 16, 2019, 12:08:17 pm »

LOL guys. Well, like I said earlier, I will just leave the first one since you all seem to want that. And edit the first post saying to scroll down to the better one, because people wanting to learn the code should actually, at least, skim through all the posts to pickup tidbits here and there. If you just have code right in front of you, it only helps for people that know what the commands actually mean.
Last night I actually stayed up until midnight programming trying to make the Top Ten list for my game. I am ALMOST there, I just have to fix one annoying problem, so HOPEFULLY sometime today I will post version 2. Oh and I was wrong earlier, I don't use APPEND, I just read the old one and use that info to make a new one.

SierraKen · « **Reply #22 on:** July 16, 2019, 01:54:11 pm »

Here it is!!! Added features on Version 2 are: oil slicks (which if you aren't turning, they randomly slide the car toward the edge of the street), acceleration and deceleration, speed indicator, passed up cars indicator, score change that times it by passed up cars at the end, outside buildings, Top Ten Racers score sheet, and other minor adjustments.
That score sheet was a tricky bug lol. You can see how I did it at the end of the program code. Feel free to use any of this code in your own programs as always. Some of the last minute changes I made was also making the score not less than 1, so when it times it by the cars you pass at the end, it actually helps and not gets worse LOL. I also made the other car able to drive to the edge of the road in case you just decided to sit there all day at the edge not getting points except racking up the amount of cars you passed. So you can't do that anymore. Tell me what you think of the game, and also the Top Ten score sheet. I tried to be fair on the scores it comes with on it although we may never pass up #1 Electro Joe, but we might! None of you might see #10 Jalopy Jay because he will be pushed off the board pretty fast. You can always look at the text file in Notepad before you start playing if you wish to see the score sheet. It will be attached to this post. Well, enough talk, here it is, one of my favorite games I've made! :) Have fun!

(Note: This is Version 2, Version 3 is below on this same forum topic and page with some enhancements.)

Code: QB64: [Select]

'I've wanted to make this game since I was a kid when I owned a little hand-held race car game where you steered the little wheel"
'to avoid the other cars. That toy broke when I was a kid so I've wanted a similar one on the computer. :)
'Enjoy!
'
'Version 2 was made on July 16, 2019 by Ken G.
'Freeware only.
'
'Added features on Version 2 are: oil slicks, acceleration and deceleration, speed indicator, passed up cars indicator,
'score change that times it by passed up cars at the end, outside buildings, Top Ten Racers score sheet, and other minor adjustments.
 
_TITLE "RACE CAR"
_SCREENMOVE _MIDDLE
SCREEN _NEWIMAGE(640, 480, 32)
begin:
CLS
PRINT "                             R  A  C  E    C  A  R"
PRINT
PRINT "                                       V. 2"
PRINT: PRINT: PRINT
PRINT "                                    By Ken  G."
PRINT: PRINT: PRINT
PRINT "                    Use your arrow keys to steer your car"
PRINT "                    around the other cars and go as far as you"
PRINT "                    can without hitting them, as well as the round"
PRINT "                    oil slicks."
PRINT
PRINT "                    Press the up and down arrow keys to move"
PRINT "                    faster or slower and also to stop turning."
PRINT
PRINT
PRINT "                    You get 5 cars."
PRINT "                    Every time you hit a street edge, you"
PRINT "                    lose 200 points."
PRINT "                    Every time you hit an oil slick your car"
PRINT "                    moves a random direction."
PRINT "                    Every time you hit another car you lose a car."
PRINT
PRINT
INPUT "                    Press Enter to play!", a$
CLS
 
DIM name$(50), score(50), nm$(50), scc(50)
LINE (0, 240)-(640, 240), _RGB32(127, 255, 127)
tim = .02
rc = 5
x = 320
y = 250: yy = 450
cx = 350: cy = 420
u = 1
sc = 0
one = 0
collision = 0
collision2 = 0
o = 0
other = 0
sct = 0
go:
_DELAY tim
_LIMIT 200
a$ = INKEY$
IF a$ = CHR$(27) THEN END
IF a$ = CHR$(0) + CHR$(72) THEN
    u = 1
    d = 0
    r = 0
    L = 0
    tim = tim - .004
    IF tim < .008 THEN tim = .008
END IF
IF a$ = CHR$(0) + CHR$(80) THEN
    u = 0
    d = 1
    r = 0
    L = 0
    tim = tim + .004
    IF tim > .02 THEN tim = .02
END IF
 
IF a$ = CHR$(0) + CHR$(77) THEN r = 1: L = 0
IF a$ = CHR$(0) + CHR$(75) THEN L = 1: r = 0
 
IF u = 1 THEN
    GOSUB linesmoving:
END IF
 
IF d = 1 THEN
    GOSUB linesmoving:
END IF
 
IF r = 1 THEN
    ocx = cx: ocy = cy
    GOSUB erasecar:
    cx = cx + 2
    'Check street edge.
    IF cx > 570 THEN
        cx = 550
        SOUND 800, .25
        sc = sc - 200
    END IF
    GOSUB drawcar:
END IF
 
 
IF L = 1 THEN
    ocx = cx: ocy = cy
    GOSUB erasecar:
    cx = cx - 2
    'Check street edge.
    IF cx < 40 THEN
        cx = 60
        SOUND 800, .25
        sc = sc - 200
    END IF
    GOSUB drawcar:
END IF
'Street Sides
LINE (320, 240)-(0, 480), _RGB32(127, 255, 127)
LINE (320, 240)-(640, 480), _RGB32(127, 255, 127)
GOSUB drawcar:
 
'Other Car
RANDOMIZE TIMER
oc = INT(RND * 1000) + 1
IF oc > 980 AND occ = 0 THEN
    occ = 1
    RANDOMIZE TIMER
    oxx2 = (RND * 16) - 8
    oyyy = 250
    oxxx = 305
END IF
IF occ = 1 THEN
    oldoyyy = oyyy
    oldoxxx = oxxx
    oyyy = oyyy + 5
    oxxx = oxxx + oxx2
    LINE (oldoxxx, oldoyyy)-(oldoxxx + 30, oldoyyy + 30), _RGB32(0, 0, 0), BF
    CIRCLE (oldoxxx, oldoyyy + 5), 5, _RGB32(0, 0, 0)
    CIRCLE (oldoxxx + 30, oldoyyy + 5), 5, _RGB32(0, 0, 0)
    CIRCLE (oldoxxx + 30, oldoyyy + 25), 5, _RGB32(0, 0, 0)
    CIRCLE (oldoxxx, oldoyyy + 25), 5, _RGB32(0, 0, 0)
 
    LINE (oxxx, oyyy)-(oxxx + 30, oyyy + 30), _RGB32(127, 249, 127), BF
    CIRCLE (oxxx, oyyy + 5), 5, _RGB32(127, 227, 127)
    CIRCLE (oxxx + 30, oyyy + 5), 5, _RGB32(127, 227, 127)
    CIRCLE (oxxx + 30, oyyy + 25), 5, _RGB32(127, 227, 127)
    CIRCLE (oxxx, oyyy + 25), 5, _RGB32(127, 227, 127)
 
    IF oyyy > 640 THEN
        occ = 0
        LINE (oxxx, oyyy)-(oxxx + 20, oyyy + 20), _RGB32(0, 0, 0), BF
        CIRCLE (oldoxxx, oldoyyy + 5), 5, _RGB32(0, 0, 0)
        CIRCLE (oldoxxx + 30, oldoyyy + 5), 5, _RGB32(0, 0, 0)
        CIRCLE (oldoxxx + 30, oldoyyy + 25), 5, _RGB32(0, 0, 0)
        CIRCLE (oldoxxx, oldoyyy + 25), 5, _RGB32(0, 0, 0)
        IF collision = 0 THEN
            other = other + 1
            LOCATE 1, 20: PRINT "Passed Up Cars:"; other
        END IF
        oyyy = 250
        oxxx = 320
        collision = 0
        GOTO nex:
    END IF
END IF
nex:
 
'Detect Collision
IF cx > oxxx - 10 AND cx < oxxx + 40 AND cy > oyyy - 5 AND cy < oyyy + 35 THEN
    SOUND 800, .25
    IF collision = 0 THEN rc = rc - 1
    IF rc = 0 THEN GOTO done:
    collision = 1
END IF
 
 
'Oil Slick
RANDOMIZE TIMER
oil = INT(RND * 100) + 1
IF oil > 90 AND oil2 = 0 THEN
    oil2 = 1
    RANDOMIZE TIMER
    oilx2 = (RND * 12) - 6
    oilyyy = 250
    oilxxx = 305
END IF
IF oil2 = 1 THEN
    oldoilyyy = oilyyy
    oldoilxxx = oilxxx
    oilyyy = oilyyy + 5
    oilxxx = oilxxx + oilx2
    o = o + 1
    IF o = 1 THEN GOTO oil:
    CIRCLE (oldoilxxx, oldoilyyy + 25), 20, _RGB32(0, 0, 0)
    oil:
    CIRCLE (oilxxx, oilyyy + 25), 20, _RGB32(127, 227, 127)
    IF oilyyy > 640 THEN
        CIRCLE (oldoilxxx, oldoilyyy + 25), 20, _RGB32(0, 0, 0)
        oilyyy = 250
        oilxxx = 330
        collision2 = 0
        o = 0
        oil2 = 0
        GOTO nex2:
    END IF
END IF
 
nex2:
 
'Detect Collision With Oil Slick
IF cx > oilxxx - 5 AND cx < oilxxx + 35 AND cy > oilyyy - 5 AND cy < oilyyy + 35 THEN
    SOUND 800, .25
    IF collision2 = 0 THEN
        RANDOMIZE TIMER
        skid = INT(RND * 100) + 1
        IF skid > 50 THEN r = 1: L = 0
        IF skid <= 50 THEN L = 1: r = 0
        SOUND 900, .25
    END IF
    collision2 = 1
END IF
 
'Buildings
RANDOMIZE TIMER
b = INT(RND * 100) + 1
IF b > 80 AND b2 = 0 THEN
    b2 = 1
    RANDOMIZE TIMER
    bx2 = (RND * 4) - 2
    IF bx2 > 0 THEN
        RANDOMIZE TIMER
        bxxx = INT(RND * 200) + 370
        bx3 = 10
    END IF
    IF bx2 <= 0 THEN
        RANDOMIZE TIMER
        bxxx = INT(RND * 150) + 10
        bx3 = -10
    END IF
    RANDOMIZE TIMER
    bsz = INT(RND * 30) + 10
    RANDOMIZE TIMER
    bsz2 = INT(RND * 30) + 10
    byyy = 255
END IF
IF b2 = 1 THEN
    oldbyyy = byyy
    oldbxxx = bxxx
    byyy = byyy + 5
    bxxx = bxxx + bx3
    ob = ob + 1
    IF ob = 1 THEN GOTO building:
    'old erase
    LINE (oldbxxx, oldbyyy)-(oldbxxx + bsz, oldbyyy + bsz2), _RGB32(0, 0, 0), B
    building:
    'new
    LINE (bxxx, byyy)-(bxxx + bsz, byyy + bsz2), _RGB32(127, 227, 127), B
    IF byyy > 640 THEN
        'old erase again
        LINE (oldbxxx, oldbyyy)-(oldbxxx + bsz, oldbyyy + bsz2), _RGB32(0, 0, 0), B
        byyy = 250
        'bxxx = 330
        ob = 0
        b2 = 0
        GOTO nex3:
    END IF
END IF
 
nex3:
 
RANDOMIZE TIMER
bb = INT(RND * 100) + 1
IF bb > 80 AND bb2 = 0 THEN
    bb2 = 1
    RANDOMIZE TIMER
    bbx2 = (RND * 4) - 2
    IF bbx2 > 0 THEN
        RANDOMIZE TIMER
        bbxxx = INT(RND * 200) + 350
        bbx3 = 10
    END IF
    IF bbx2 <= 0 THEN
        RANDOMIZE TIMER
        bbxxx = INT(RND * 150) + 10
        bbx3 = -10
    END IF
    RANDOMIZE TIMER
    bbsz = INT(RND * 30) + 10
    RANDOMIZE TIMER
    bbsz2 = INT(RND * 30) + 10
    bbyyy = 255
END IF
IF bb2 = 1 THEN
    oldbbyyy = bbyyy
    oldbbxxx = bbxxx
    bbyyy = bbyyy + 5
    bbxxx = bbxxx + bbx3
    obb = obb + 1
    IF obb = 1 THEN GOTO building:
    'old erase
    LINE (oldbbxxx, oldbbyyy)-(oldbbxxx + bbsz, oldbbyyy + bbsz2), _RGB32(0, 0, 0), B
    building2:
    'new
    LINE (bbxxx, bbyyy)-(bbxxx + bbsz, bbyyy + bbsz2), _RGB32(127, 227, 127), B
    IF bbyyy > 640 THEN
        'old erase again
        LINE (oldbbxxx, oldbbyyy)-(oldbbxxx + bbsz, oldbbyyy + bbsz2), _RGB32(0, 0, 0), B
        bbyyy = 250
        'bbxxx = 330
        obb = 0
        bb2 = 0
        GOTO nex4:
    END IF
END IF
nex4:
 
LOCATE 3, 1: PRINT "Speed: "; INT(2 / tim)
LOCATE 3, 13: PRINT "mph"
IF sc < 1 THEN sc = 1
LOCATE 1, 1: PRINT "Score: "; sc
sc = sc + 1
 
LOCATE 1, 73: PRINT "Cars:"; rc
 
 
GOTO go:
 
linesmoving:
oy = y
y = y + 5
IF y > 640 THEN y = 250
IF y < 240 THEN y = 640
LINE (x, oy)-(x, oy + 10), _RGB32(0, 0, 0)
LINE (x, y)-(x, y + 10), _RGB32(127, 255, 127)
oyy = yy
yy = yy + 5
IF yy > 640 THEN yy = 250
IF yy < 240 THEN yy = 640
LINE (x, oyy)-(x, oyy + 10), _RGB32(0, 0, 0)
LINE (x, yy)-(x, yy + 10), _RGB32(127, 255, 127)
RETURN
 
 
drawcar:
'Car
LINE (cx, cy)-(cx + 30, cy + 30), _RGB32(127, 227, 127), BF
LINE (cx + 5, cy - 5)-(cx + 25, cy), _RGB32(127, 227, 127), BF
CIRCLE (cx, cy + 5), 5, _RGB32(127, 227, 127)
CIRCLE (cx + 30, cy + 5), 5, _RGB32(127, 227, 127)
CIRCLE (cx + 30, cy + 25), 5, _RGB32(127, 227, 127)
CIRCLE (cx, cy + 25), 5, _RGB32(127, 227, 127)
RETURN
 
erasecar:
LINE (ocx, ocy)-(ocx + 30, ocy + 30), _RGB32(0, 0, 0), BF
LINE (ocx + 5, ocy - 5)-(ocx + 25, ocy), _RGB32(0, 0, 0), BF
CIRCLE (ocx, ocy + 5), 5, _RGB32(0, 0, 0)
CIRCLE (ocx + 30, ocy + 5), 5, _RGB32(0, 0, 0)
CIRCLE (ocx + 30, ocy + 25), 5, _RGB32(0, 0, 0)
CIRCLE (ocx, ocy + 25), 5, _RGB32(0, 0, 0)
RETURN
 
done:
LOCATE 10, 30: PRINT "G A M E    O V E R"
LOCATE 1, 1: PRINT "Score: "; sc
scc = sc * other
LOCATE 14, 1: PRINT sc; " x "; other; " Passed Up Cars = Total Score: "; scc
LOCATE 1, 73: PRINT "Cars:"; rc
LOCATE 20, 1: INPUT "Press Enter to see Top Ten list.", topten$
CLS
 
'Top Ten Racers
OPEN "toptenracers.txt" FOR INPUT AS #1
FOR n = 1 TO 10
    IF EOF(1) THEN GOTO nex5:
    INPUT #1, name$(n)
    INPUT #1, score(n)
    IF scc > score(n) AND sct = 0 THEN
        nn = n
        PRINT "You have made the Top Ten!"
        typename:
        INPUT "Type your name here (25 letters and spaces maximum.):", nm$(nn)
        IF LEN(nm$(nn)) > 25 THEN
            PRINT "Name too long, try again."
            GOTO typename:
        END IF
        sccc(nn) = scc
        sct = 1
    END IF
    IF n = 10 AND sct = 0 THEN CLOSE #1: GOTO nex7:
NEXT n
CLOSE #1
nex5:
CLOSE #1
OPEN "toptenracers.txt" FOR OUTPUT AS #1
FOR n = 1 TO nn
    IF n <> nn THEN PRINT #1, name$(n): PRINT #1, score(n)
    IF n = nn THEN
        PRINT #1, nm$(n)
        PRINT #1, sccc(n)
    END IF
NEXT n
nex6:
FOR n = nn TO 10
    PRINT #1, name$(n): PRINT #1, score(n)
NEXT n
 
CLOSE #1
nex7:
CLS
PRINT: PRINT: PRINT
PRINT "                            T O P    T E N     R A C E R S"
PRINT: PRINT: PRINT
OPEN "toptenracers.txt" FOR INPUT AS #1
FOR n = 1 TO 10
    IF EOF(1) THEN GOTO nex8:
    INPUT #1, name$(n)
    INPUT #1, score(n)
    PRINT "             "; n; ". "; name$(n); score(n)
NEXT n
nex8:
CLOSE #1
FOR n = 1 TO 10
    nm$(n) = ""
    score(n) = 0
    name$(n) = ""
    sccc(n) = 0
NEXT n
 
LOCATE 23, 1
INPUT "Would you like to play again? (Yes/No)", ag$
IF ag$ = "y" OR ag$ = "Y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "yeS" THEN GOTO begin:
END
 
 

Petr · « **Reply #23 on:** July 16, 2019, 02:20:29 pm »

Nice upgrade, SierraKen.

Pete · « **Reply #24 on:** July 16, 2019, 02:30:40 pm »

EDIT: Part of post removed due to me not seeing the attached top ten file, which needed to be downloaded.

I find the center divider to be more of a distraction in this version. The oil slicks seldom do anything, especially at high speeds, where they should be near deadly. Take a look at the ellipse drawing routines on the forum. It would help the 3-D effect of the oil slicks.

Pete

SierraKen · « **Reply #25 on:** July 16, 2019, 03:21:13 pm »

Pete, the Top Ten file was created, it was attached to my post with the code. But thank you anyways. Yeah, I might update the oil slicks, but they do take effect at any speed if you aren't going left or right, besides changing a direction if the randomness tells it to. As for the middle lines, I'm keeping them there to show the speed of the car better. I think I need a little break before I tackle it again though, I can't do more coding today from programming so much last night and this morning.

Thanks Petr, I tried my best. Of course it could be better like Pete says. So there might be a Version 3 sometime in the future. I'll post it here if I decide to do it.

SierraKen · « **Reply #26 on:** July 16, 2019, 03:43:08 pm »

I'm also playing around with the idea of having the other car slow down the faster you go and actually "move". Because technically they don't even move at all, it's only you that moves so far. But I did it that way because that's exactly how the handheld toy I had in the 80's was, the other cars went the same speed as the track did when you moved.

Actually I just tried it, it's more complicating than I thought.

Pete · « **Reply #27 on:** July 16, 2019, 04:19:17 pm »

Ah, my apologies. I downloaded the text, tried it again, and it works as advertised. I tested 4 spots in the top 10, and all new entries printed to the correct positions. Great job!

If by any chance you wanted to hard code that initial top 10 list into the app, you could do something like this. Now, people like me won't miss the download file...

After CLS, add this, and place the DATA anywhere.

Code: QB64: [Select]

IF _FILEEXISTS("toptenracers.txt") THEN
ELSE
    OPEN "toptenracers.txt" FOR OUTPUT AS #1
    RESTORE toptendata
    DO
        READ toptenname$, toptenscore!
        IF toptenname$ = "EOF" THEN EXIT DO
        PRINT #1, toptenname$
        PRINT #1, toptenscore!
    LOOP
    CLOSE #1
END IF
 
toptendata:
DATA Electro Joe,500000
DATA Flying Felice,450000
DATA Speedy Spencer,400000
DATA Super Sam,350000
DATA Ralph Runner,300000
DATA Suzy Swift,275000
DATA Quick Ken,250000
DATA Tiger Tessa,225000
DATA Brisk Bob,200000
DATA Jalopy Jay,175000
DATA EOF,0
 

Anyway, I'll edit my previous post, as it is not relevant...

BTW - I recall Pole Position, or some such game, slowed the car down if it hit an oil slick, besides spinning it. That decreased the potential score. Oh, and if you insist of keeping the top speed of 249 mph, you might want to think about adding a parachute.

Pete

SierraKen · « **Reply #28 on:** July 16, 2019, 05:18:55 pm »

Wow thanks Pete! I just added it to the code for Version 3. Earlier I also made the oil slick look much better using a few other circles inside of it. Right now I'm figuring out a way to make the oil slick do more to the car, as you said earlier. :) LOL parachute. Yeah I might change the speed some too, starting off at 100 mph and going to 249 seems a bit intense. That's cool about the oil slick, I didn't think about slowing it down, I just might try that.

SierraKen · « **Reply #29 on:** July 16, 2019, 06:44:34 pm »

For Version 3 I slowed it down to 75 mph to 187 mph and added how the oil slick slows the car down. The speed of the game is still the same, just the speed numbers are different. I also added Pete's code to automatically generate a Top Ten list when one is missing, or when someone wants to reset it by deleting the toptenracers.txt file. Plus I added how you get an extra car every 3,000 points to make the game last a bit longer. Oh, and I adjusted the timing of the oil slicks coming out, it's a tiny bit less but almost the same as before. Plus I made the oil slick look better. Here is Version 3:

(Note: Updated version is on next page.)

Code: QB64: [Select]

'I've wanted to make this game since I was a kid when I owned a little hand-held race car game where you steered the little wheel"
'to avoid the other cars. That toy broke when I was a kid so I've wanted a similar one on the computer. :)
'Enjoy!
'
'Version 3 was made on July 16, 2019 by Ken G.
'Freeware only.
'
'Thanks to the QB64.org forum guys for the help!
_TITLE "RACE CAR"
_SCREENMOVE _MIDDLE
SCREEN _NEWIMAGE(640, 480, 32)
begin:
CLS
PRINT "                              R  A  C  E    C  A  R"
PRINT
PRINT "                                       V. 3"
PRINT: PRINT
PRINT "                                    By Ken  G."
PRINT: PRINT
PRINT "                    Use your arrow keys to steer your car"
PRINT "                    around the other cars and go as far as you"
PRINT "                    can without hitting them, as well as the round"
PRINT "                    oil slicks. You get an extra car every 3000 points."
PRINT
PRINT "                    Press the up and down arrow keys to move"
PRINT "                    faster or slower and also to stop turning."
PRINT
PRINT "                    You get 5 cars."
PRINT "                    Every time you hit a street edge, you"
PRINT "                    lose 200 points."
PRINT "                    Every time you hit an oil slick your car"
PRINT "                    moves a random direction."
PRINT "                    Every time you hit another car you lose a car."
PRINT
PRINT "                    To reset the Top Ten score sheet, delete the file"
PRINT "                    named toptenracers.txt and play a full game."
PRINT
INPUT "                    Press Enter to play!", a$
CLS
 
DIM name$(50), score(50), nm$(50), scc(50)
LINE (0, 240)-(640, 240), _RGB32(127, 255, 127)
tim = .02
t2 = 0
rc = 5
x = 320
y = 250: yy = 450
cx = 350: cy = 420
u = 1
sc = 0
one = 0
collision = 0
collision2 = 0
o = 0
other = 0
sct = 0
go:
_DELAY tim
_LIMIT 200
a$ = INKEY$
IF a$ = CHR$(27) THEN END
IF a$ = CHR$(0) + CHR$(72) THEN
    u = 1
    d = 0
    r = 0
    L = 0
    tim = tim - .002
    IF tim < .008 THEN tim = .008
END IF
IF a$ = CHR$(0) + CHR$(80) THEN
    u = 0
    d = 1
    r = 0
    L = 0
    tim = tim + .002
    IF tim > .02 THEN tim = .02
END IF
 
IF a$ = CHR$(0) + CHR$(77) THEN r = 1: L = 0
IF a$ = CHR$(0) + CHR$(75) THEN L = 1: r = 0
 
IF u = 1 THEN
    GOSUB linesmoving:
END IF
 
IF d = 1 THEN
    GOSUB linesmoving:
END IF
 
IF r = 1 THEN
    ocx = cx: ocy = cy
    GOSUB erasecar:
    cx = cx + 2
    'Check street edge.
    IF cx > 570 THEN
        cx = 550
        SOUND 800, .25
        sc = sc - 200
    END IF
    GOSUB drawcar:
END IF
 
 
IF L = 1 THEN
    ocx = cx: ocy = cy
    GOSUB erasecar:
    cx = cx - 2
    'Check street edge.
    IF cx < 40 THEN
        cx = 60
        SOUND 800, .25
        sc = sc - 200
    END IF
    GOSUB drawcar:
END IF
'Street Sides
LINE (320, 240)-(0, 480), _RGB32(127, 255, 127)
LINE (320, 240)-(640, 480), _RGB32(127, 255, 127)
GOSUB drawcar:
 
'Other Car
RANDOMIZE TIMER
oc = INT(RND * 1000) + 1
IF oc > 980 AND occ = 0 THEN
    occ = 1
    RANDOMIZE TIMER
    oxx2 = (RND * 16) - 8
    oyyy = 250
    oxxx = 305
END IF
IF occ = 1 THEN
    oldoyyy = oyyy
    oldoxxx = oxxx
    oyyy = oyyy + 5
    oxxx = oxxx + oxx2
    LINE (oldoxxx, oldoyyy)-(oldoxxx + 30, oldoyyy + 30), _RGB32(0, 0, 0), BF
    CIRCLE (oldoxxx, oldoyyy + 5), 5, _RGB32(0, 0, 0)
    CIRCLE (oldoxxx + 30, oldoyyy + 5), 5, _RGB32(0, 0, 0)
    CIRCLE (oldoxxx + 30, oldoyyy + 25), 5, _RGB32(0, 0, 0)
    CIRCLE (oldoxxx, oldoyyy + 25), 5, _RGB32(0, 0, 0)
 
    LINE (oxxx, oyyy)-(oxxx + 30, oyyy + 30), _RGB32(127, 249, 127), BF
    CIRCLE (oxxx, oyyy + 5), 5, _RGB32(127, 227, 127)
    CIRCLE (oxxx + 30, oyyy + 5), 5, _RGB32(127, 227, 127)
    CIRCLE (oxxx + 30, oyyy + 25), 5, _RGB32(127, 227, 127)
    CIRCLE (oxxx, oyyy + 25), 5, _RGB32(127, 227, 127)
 
    IF oyyy > 640 THEN
        occ = 0
        LINE (oxxx, oyyy)-(oxxx + 20, oyyy + 20), _RGB32(0, 0, 0), BF
        CIRCLE (oldoxxx, oldoyyy + 5), 5, _RGB32(0, 0, 0)
        CIRCLE (oldoxxx + 30, oldoyyy + 5), 5, _RGB32(0, 0, 0)
        CIRCLE (oldoxxx + 30, oldoyyy + 25), 5, _RGB32(0, 0, 0)
        CIRCLE (oldoxxx, oldoyyy + 25), 5, _RGB32(0, 0, 0)
        IF collision = 0 THEN
            other = other + 1
            LOCATE 1, 20: PRINT "Passed Up Cars:"; other
        END IF
        oyyy = 250
        oxxx = 320
        collision = 0
        GOTO nex:
    END IF
END IF
nex:
 
'Detect Collision
IF cx > oxxx - 10 AND cx < oxxx + 40 AND cy > oyyy - 5 AND cy < oyyy + 35 THEN
    SOUND 800, .25
    IF collision = 0 THEN rc = rc - 1
    IF rc = 0 THEN GOTO done:
    collision = 1
END IF
 
 
'Oil Slick
RANDOMIZE TIMER
oil = INT(RND * 100) + 1
IF oil > 98 AND oil2 = 0 THEN
    oil2 = 1
    RANDOMIZE TIMER
    oilx2 = (RND * 12) - 6
    oilyyy = 250
    oilxxx = 305
END IF
IF oil2 = 1 THEN
    oldoilyyy = oilyyy
    oldoilxxx = oilxxx
    oilyyy = oilyyy + 5
    oilxxx = oilxxx + oilx2
    o = o + 1
    IF o = 1 THEN GOTO oil:
    FOR ooo = 1 TO 25 STEP 5
        CIRCLE (oldoilxxx, oldoilyyy + 25), ooo, _RGB32(0, 0, 0)
    NEXT ooo
    oil:
    FOR ooo = 1 TO 25 STEP 5
        CIRCLE (oilxxx, oilyyy + 25), ooo, _RGB32(127, 227, 127)
    NEXT ooo
    IF oilyyy > 640 THEN
        FOR ooo = 1 TO 25 STEP 5
            CIRCLE (oldoilxxx, oldoilyyy + 25), ooo, _RGB32(0, 0, 0)
        NEXT ooo
        oilyyy = 250
        oilxxx = 330
        collision2 = 0
        o = 0
        oil2 = 0
        GOTO nex2:
    END IF
END IF
 
nex2:
 
'Detect Collision With Oil Slick
IF cx > oilxxx - 5 AND cx < oilxxx + 35 AND cy > oilyyy - 5 AND cy < oilyyy + 35 THEN
    SOUND 800, .25
    IF collision2 = 0 THEN
        RANDOMIZE TIMER
        skid = INT(RND * 100) + 1
        IF skid > 50 THEN r = 1: L = 0
        IF skid <= 50 THEN L = 1: r = 0
        tim = .02
        SOUND 900, .25
    END IF
    collision2 = 1
END IF
 
'Buildings
RANDOMIZE TIMER
b = INT(RND * 100) + 1
IF b > 80 AND b2 = 0 THEN
    b2 = 1
    RANDOMIZE TIMER
    bx2 = (RND * 4) - 2
    IF bx2 > 0 THEN
        RANDOMIZE TIMER
        bxxx = INT(RND * 200) + 370
        bx3 = 10
    END IF
    IF bx2 <= 0 THEN
        RANDOMIZE TIMER
        bxxx = INT(RND * 150) + 10
        bx3 = -10
    END IF
    RANDOMIZE TIMER
    bsz = INT(RND * 30) + 10
    RANDOMIZE TIMER
    bsz2 = INT(RND * 30) + 10
    byyy = 255
END IF
IF b2 = 1 THEN
    oldbyyy = byyy
    oldbxxx = bxxx
    byyy = byyy + 5
    bxxx = bxxx + bx3
    ob = ob + 1
    IF ob = 1 THEN GOTO building:
    'old erase
    LINE (oldbxxx, oldbyyy)-(oldbxxx + bsz, oldbyyy + bsz2), _RGB32(0, 0, 0), B
    building:
    'new
    LINE (bxxx, byyy)-(bxxx + bsz, byyy + bsz2), _RGB32(127, 227, 127), B
    IF byyy > 640 THEN
        'old erase again
        LINE (oldbxxx, oldbyyy)-(oldbxxx + bsz, oldbyyy + bsz2), _RGB32(0, 0, 0), B
        byyy = 250
        'bxxx = 330
        ob = 0
        b2 = 0
        GOTO nex3:
    END IF
END IF
 
nex3:
 
RANDOMIZE TIMER
bb = INT(RND * 100) + 1
IF bb > 80 AND bb2 = 0 THEN
    bb2 = 1
    RANDOMIZE TIMER
    bbx2 = (RND * 4) - 2
    IF bbx2 > 0 THEN
        RANDOMIZE TIMER
        bbxxx = INT(RND * 200) + 350
        bbx3 = 10
    END IF
    IF bbx2 <= 0 THEN
        RANDOMIZE TIMER
        bbxxx = INT(RND * 150) + 10
        bbx3 = -10
    END IF
    RANDOMIZE TIMER
    bbsz = INT(RND * 30) + 10
    RANDOMIZE TIMER
    bbsz2 = INT(RND * 30) + 10
    bbyyy = 255
END IF
IF bb2 = 1 THEN
    oldbbyyy = bbyyy
    oldbbxxx = bbxxx
    bbyyy = bbyyy + 5
    bbxxx = bbxxx + bbx3
    obb = obb + 1
    IF obb = 1 THEN GOTO building:
    'old erase
    LINE (oldbbxxx, oldbbyyy)-(oldbbxxx + bbsz, oldbbyyy + bbsz2), _RGB32(0, 0, 0), B
    building2:
    'new
    LINE (bbxxx, bbyyy)-(bbxxx + bbsz, bbyyy + bbsz2), _RGB32(127, 227, 127), B
    IF bbyyy > 640 THEN
        'old erase again
        LINE (oldbbxxx, oldbbyyy)-(oldbbxxx + bbsz, oldbbyyy + bbsz2), _RGB32(0, 0, 0), B
        bbyyy = 250
        'bbxxx = 330
        obb = 0
        bb2 = 0
        GOTO nex4:
    END IF
END IF
nex4:
 
'Extra Car
IF sc / 3000 = INT(sc / 3000) AND sc / 3000 <> 0 THEN
    rc = rc + 1
    LOCATE 15, 35: PRINT "EXTRA CAR!"
    SOUND 400, 2
    SOUND 400, 2
    SOUND 400, 2
    t2 = 1
END IF
IF t2 > 500 THEN
    LOCATE 15, 35: PRINT "          "
    t2 = 0
END IF
IF t2 > 0 THEN t2 = t2 + 1
 
'Speed Indicator
LOCATE 3, 1: PRINT "Speed: "; INT(1.5 / tim)
LOCATE 3, 13: PRINT "mph"
'Score
IF sc < 1 THEN sc = 1
LOCATE 1, 1: PRINT "Score: "; sc
sc = sc + 1
'Cars You Have Leftover
LOCATE 1, 73: PRINT "Cars:"; rc
 
 
GOTO go:
 
linesmoving:
oy = y
y = y + 5
IF y > 640 THEN y = 250
IF y < 240 THEN y = 640
LINE (x, oy)-(x, oy + 10), _RGB32(0, 0, 0)
LINE (x, y)-(x, y + 10), _RGB32(127, 255, 127)
oyy = yy
yy = yy + 5
IF yy > 640 THEN yy = 250
IF yy < 240 THEN yy = 640
LINE (x, oyy)-(x, oyy + 10), _RGB32(0, 0, 0)
LINE (x, yy)-(x, yy + 10), _RGB32(127, 255, 127)
RETURN
 
 
drawcar:
'Car
LINE (cx, cy)-(cx + 30, cy + 30), _RGB32(127, 227, 127), BF
LINE (cx + 5, cy - 5)-(cx + 25, cy), _RGB32(127, 227, 127), BF
CIRCLE (cx, cy + 5), 5, _RGB32(127, 227, 127)
CIRCLE (cx + 30, cy + 5), 5, _RGB32(127, 227, 127)
CIRCLE (cx + 30, cy + 25), 5, _RGB32(127, 227, 127)
CIRCLE (cx, cy + 25), 5, _RGB32(127, 227, 127)
RETURN
 
erasecar:
LINE (ocx, ocy)-(ocx + 30, ocy + 30), _RGB32(0, 0, 0), BF
LINE (ocx + 5, ocy - 5)-(ocx + 25, ocy), _RGB32(0, 0, 0), BF
CIRCLE (ocx, ocy + 5), 5, _RGB32(0, 0, 0)
CIRCLE (ocx + 30, ocy + 5), 5, _RGB32(0, 0, 0)
CIRCLE (ocx + 30, ocy + 25), 5, _RGB32(0, 0, 0)
CIRCLE (ocx, ocy + 25), 5, _RGB32(0, 0, 0)
RETURN
 
done:
LOCATE 10, 30: PRINT "G A M E    O V E R"
LOCATE 1, 1: PRINT "Score: "; sc
scc = sc * other
LOCATE 14, 1: PRINT sc; " x "; other; " Passed Up Cars = Total Score: "; scc
LOCATE 1, 73: PRINT "Cars:"; rc
LOCATE 20, 1: INPUT "Press Enter to see Top Ten list.", topten$
CLS
 
'Top Ten Racers
IF _FILEEXISTS("toptenracers.txt") THEN
ELSE
    OPEN "toptenracers.txt" FOR OUTPUT AS #1
    RESTORE toptendata
    DO
        READ toptenname$, toptenscore!
        IF toptenname$ = "EOF" THEN EXIT DO
        PRINT #1, toptenname$
        PRINT #1, toptenscore!
    LOOP
    CLOSE #1
END IF
 
OPEN "toptenracers.txt" FOR INPUT AS #1
FOR n = 1 TO 10
    IF EOF(1) THEN GOTO nex5:
    INPUT #1, name$(n)
    INPUT #1, score(n)
    IF scc > score(n) AND sct = 0 THEN
        nn = n
        PRINT "You have made the Top Ten!"
        typename:
        INPUT "Type your name here (25 letters and spaces maximum.):", nm$(nn)
        IF LEN(nm$(nn)) > 25 THEN
            PRINT "Name too long, try again."
            GOTO typename:
        END IF
        sccc(nn) = scc
        sct = 1
    END IF
    IF n = 10 AND sct = 0 THEN CLOSE #1: GOTO nex7:
NEXT n
CLOSE #1
nex5:
CLOSE #1
OPEN "toptenracers.txt" FOR OUTPUT AS #1
FOR n = 1 TO nn
    IF n <> nn THEN PRINT #1, name$(n): PRINT #1, score(n)
    IF n = nn THEN
        PRINT #1, nm$(n)
        PRINT #1, sccc(n)
    END IF
NEXT n
nex6:
FOR n = nn TO 10
    PRINT #1, name$(n): PRINT #1, score(n)
NEXT n
 
CLOSE #1
nex7:
CLS
PRINT: PRINT: PRINT
PRINT "                            T O P    T E N     R A C E R S"
PRINT: PRINT: PRINT
OPEN "toptenracers.txt" FOR INPUT AS #1
FOR n = 1 TO 10
    IF EOF(1) THEN GOTO nex8:
    INPUT #1, name$(n)
    INPUT #1, score(n)
    PRINT "             "; n; ". "; name$(n); score(n)
NEXT n
nex8:
CLOSE #1
FOR n = 1 TO 10
    nm$(n) = ""
    score(n) = 0
    name$(n) = ""
    sccc(n) = 0
NEXT n
 
LOCATE 23, 1
INPUT "Would you like to play again? (Yes/No)", ag$
IF ag$ = "y" OR ag$ = "Y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "yeS" THEN GOTO begin:
END
 
toptendata:
DATA Electro Joe,500000
DATA Flying Felice,450000
DATA Speedy Spencer,400000
DATA Super Sam,350000
DATA Ralph Runner,300000
DATA Suzy Swift,275000
DATA Quick Ken,250000
DATA Tiger Tessa,225000
DATA Brisk Bob,200000
DATA Jalopy Jay,175000
DATA EOF,0
 
 

News:

Author Topic: Race Car Game (Read 15684 times)

Pete

Re: Race Car Game

bplus

Re: Race Car Game

Pete

Re: Race Car Game

bplus

Re: Race Car Game

Pete

Re: Race Car Game

SMcNeill

Re: Race Car Game

SierraKen

Re: Race Car Game

SierraKen

Re: Race Car Game

Petr

Re: Race Car Game

Pete

Re: Race Car Game

SierraKen

Re: Race Car Game

SierraKen

Re: Race Car Game

Pete

Re: Race Car Game

SierraKen

Re: Race Car Game

SierraKen

Re: Race Car Game