Author Topic: Race Car Game (Read 15682 times)

Pete · « **Reply #30 on:** July 16, 2019, 07:06:51 pm »

I played it once. I really like the bonus "extra" car. Oil slicks still don't kick in at higher speeds, but work great at more moderate speeds. I like the ore realistic speeds in version 3.

I noticed Atari Pole position has both the curbs and center divider moving. Activision Enduro has no center divider, only the curbs move. Neither have oil slicks, which makes me think I must have been playing some game at an arcade to have experienced that, oh well...

Here is my maiden voyage score...

Pete

SierraKen · « **Reply #31 on:** July 16, 2019, 07:36:03 pm »

GREAT JOB! I noticed that the oil slicks do slow it down, but not as much as it would going slower with the car. That's because I use a smaller _DELAY number when the car is going faster. The main loop of the program goes faster when the car goes faster. There's nothing I can really do to help that except make the _DELAY longer and the game slower but I don't want to do that. lol I also tried making the car skid off the road when you hit an oil slick, maybe I should add that back in? It does get annoying though since sometimes I keep hitting the oil slicks. I think I'm just going to leave it as it is regarding the oil slicks.

Pete · « **Reply #32 on:** July 16, 2019, 09:46:53 pm »

Ken, about RANDOMIZE TIMER. You only have to use it once in the program. That will save you some steps in future endeavors.

Edit: Removed copy of program with modified code to communicate a modification in oil slick effects.

Pete

SierraKen · « **Reply #33 on:** July 16, 2019, 09:59:52 pm »

I just got 761049 by driving slower, beating Electro Joe like you did..... Wow your version does work better! The reason I added collision2 is because I thought it would be too much for the computer, but I guess it doesn't. Is that the only change you did? Removing the 1 IF/THEN line? I like this version better than mine lol. Thank you! This will go on my website soon.

SierraKen · « **Reply #34 on:** July 16, 2019, 10:12:00 pm »

I deleted all the lines that had collision2 on it and it seems to run great! Thanks again! Here is the updated version. I don't know all lines you changed, but here is mine:

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
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
        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
    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
 
'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
        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
        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
 
 

Pete · « **Reply #35 on:** July 16, 2019, 10:37:57 pm »

I tweaked the delay and added a timer. I also increased the collision parameters for the oil slicks. The effect is to kill the speed by 3x wen you hit an oil slick, but over 3/4 of a second, it progressively adds speed, until it's back to the original speed it was traveling at, before it hit the skids!

Anyway, I'll keep it up for now.

The lines changed are roughly...

IF cx > oilxxx - 25 AND cx < oilxxx + 35 AND cy > oilyyy - 25 AND cy < oilyyy + 35 THEN ' Changed collisions parameters.

I moved...

IF tim < .008 THEN tim = .008 ' Moved to under Go: It needed to be encountered sooner to offset faster speeds oil slicks reducing the delay below zero. I know, I estimated pretty good, but I didn't want to spend the extra time for exact math.

I removed this block if statement: IF collision2 = 0 THEN ... END IF

I added: IF z1 = 0 THEN oldtim = tim: tim = tim * 3: z1 = TIMER ' This line saves the old delay, starts a timer, and decreases speed by 3x.

Finally, I added this before the GOTO Go line...

IF z1 THEN
IF ABS(z1 - TIMER) >= .75 THEN ' This event is triggered after .75 seconds after an oil slick collision.
tim = oldtim
z1 = 0
ELSE
tim = tim - .0005 ' This progressively lets the car speed back up, simulating the skid effect.
END IF
END IF

Anyway, I hope that helps. Sorry for the initial lack of explanation. I love to code, but I never used to comment my own code, either.

Pete

SierraKen · « **Reply #36 on:** July 16, 2019, 10:59:43 pm »

Well I'm glad that works better for you. I think every computer is slightly different on things and I like the way my code is right now, so I'm not going to go dig into this deeper. But I appreciate you trying to help. Your IF/THEN collision2 stuff really makes the game sound better. To me, programming is like an art form and the more of other people's stuff I add to it, the less I feel it's mine. Except of course for 1 or 2 lines which I can understand how to do. But adding other stuff that I haven't really done before I really can't do it. This is like my little creation. lol Of course comments and suggestions are always welcome. :)

SierraKen · « **Reply #37 on:** July 17, 2019, 12:11:32 am »

I got the game on my website now. I thanked "the guys at the QB64.org forum" again on the page for helping me with this. You can see all my programs and games here:
http://www.kensprograms.com/

The Race Car game is at the bottom.

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

I do miss the joystick and paddle controllers. I made a mouse version with mouse wheel accelerator. It's not as good as a joystick, but I'm just not a fan of the keyboard for games. I got used to the center divider. Without the curbs moving, like in Activision Enduro, yes, you need that for the speed effect. It just took me awhile to get the missiles from Space Invaders out of my head. Go figure.

Great Game!

Pete

Petr · « **Reply #39 on:** July 17, 2019, 02:06:18 am »

Hi. The joystick is supported in QB64 (I never tried it because I don't have one), it should be STRIG statement for activating read joystick envents and STRIG function to handle the joystick buttons.

johnno56 · « **Reply #40 on:** July 17, 2019, 12:26:40 pm »

Cool game. Much better than the original version. Nicely done!

Unfortunately, my poor driving skills, prevented me from getting onto the high score table... lol

SierraKen · « **Reply #41 on:** July 17, 2019, 12:36:49 pm »

Thanks Johno :).

That's awesome about the joystick control, I might still have one somewhere to use. Are they USB ones or the old Com Port?

Pete · « **Reply #42 on:** July 17, 2019, 01:44:32 pm »

Hi Petr,

Yes, I'm aware of those QB64 statements, but like you, I'm stickless, or maybe it's joyless. Wait, either way, that didn't come out right.

To all,

Kidding aside, I'm have so much fun with this. I made some modifications, which include using the right and left mouse buttons to accelerate and brake. That works better than the mouse wheel, as it has more of a pedal feel. Moving the mouse right to left steers the car. Steering and acceleration / deceleration can be done at the same time.

As most of you know, I don't do graphics, but I was one of the four people in on that tool box project for ellipse fill. I decided to study the code, and found it wasn't difficult at all to substitute solid filled dark grey ellipses for the oil slick circles. I also tweaked some delays to smooth out the modifications, and I think the end product came out pretty well.

I'd love to post the project as modified, but maybe if I can get Ken's permission, I'd post it on the QBasic Forum. That would prevent muddying up Ken's project here. I also removed the code I posted yesterday, for the same reason. I just wanted to communicate what I was doing, and not hijack the project. It's a lot easier to show it than say it, that's for sure. Anyway, this is one of the few graphics projects that sparked my interest.

Pete

Petr · « **Reply #43 on:** July 17, 2019, 02:01:16 pm »

Hi Pete. I hope SierraKen gives you permission, I'd like to try it :-D

SierraKen · « **Reply #44 on:** July 17, 2019, 02:07:42 pm »

Pete, you didn't have to delete your stuff. But sure, go ahead and post it anywhere you wish, but please keep my name somewhere on it as well, like on the top of the code you can put this:
'Original game design by Ken G., modified with permission by Pete.
Or something like that. You really don't even need the "with permission" part. And I apologize if I came across too stern with yesterday's post, I just wanted to say something about it. But, just like the reason why I put the codes on my website, is to teach people and let them go at it. :) But see, I just wanted the ORIGINAL one mostly by me anyway. :) After that, they are all out there in the wild. LOL I probably should say that in my Terms of Use page on my website, it says that if people ever want to sell my code for themselves, please don't use more than half of the code. But that is only for selling of course. To see my Terms of Use page, go to the very bottom of my website to the link, or go directly to it here: http://www.kensprograms.com/terms.html

News: