Computer Science Canada

Intellivision Games on Turing? - Astrosmash!
Author:  jamonathin [ Thu May 26, 2005 9:35 am ]
Post subject:  Intellivision Games on Turing? - Astrosmash!
I was bored one day and was playing my "Intellivision Lives!" game for PS2, and I got addicted to Astrosmash!. I tried recreating it using only turing, no imported images, and it's fairly well done, not exact like the original, but pretty close.

Here it is:

Left / Right - Arrow Keys to Move
Up Arrow Key to Teleport
Down Arrow Key for Auto-Shoot
Author:  zomg [ Thu May 26, 2005 11:00 am ]
Post subject: 
its fun Smile nice job with being able to shoot and move at the same time
Author:  Flikerator [ Thu May 26, 2005 12:59 pm ]
Post subject: 
To shoot and move at the same time all you need to do is use Input.KeyDown instead of Getch :p

Very well done game, especially for no imported images Razz
Author:  jamonathin [ Thu May 26, 2005 1:25 pm ]
Post subject: 
I think he ment delay's with the shooting Thinking.
Author:  Token [ Thu May 26, 2005 1:58 pm ]
Post subject: 
nice game, but its spelt peak not peek.
Author:  jamonathin [ Fri May 27, 2005 7:58 am ]
Post subject: 
Meh, most compsci students suck at english anyways Razz
Author:  RaPsCaLLioN [ Fri May 27, 2005 10:19 am ]
Post subject: 
I've never played Intellivision games before and am not familiar with Astromash. But I've noticed a couple things;

-I'll die for no reason.

-And my score goes down for no reason.

Why does this happen?
Author:  Carino [ Fri May 27, 2005 10:35 am ]
Post subject: 
RaPsCaLLioN wrote:
I've never played Intellivision games before and am not familiar with Astromash. But I've noticed a couple things;

-I'll die for no reason.

-And my score goes down for no reason.

Why does this happen?


You can't let any of the satellites hit the ground or you die right away. So thats why you are probably dying for no reason. And everytime an asteriod hits the ground you lose points.I have this game on my cell Razz
Author:  Cervantes [ Fri May 27, 2005 5:06 pm ]
Post subject: 
Um.. I think you need to work on your collision detection a bit. It seems somewhat off at times. Also, the shooting is messed up. I press the space bar, but only some of the time the shot actually occurs. Is this some sort of reloading feature? Laughing
In any case, some explanation would be good.
Author:  Token [ Fri May 27, 2005 5:17 pm ]
Post subject: 
jamonathin wrote:
Meh, most compsci students suck at english anyways Razz


yah really, i'm actually quite a horrible speller myself Laughing, it just stood out to me.
Author:  Naveg [ Fri May 27, 2005 11:38 pm ]
Post subject: 
jamonathin wrote:
Meh, most compsci students suck at english anyways Razz


nah...i wouldnt say that
Author:  MysticVegeta [ Sun May 29, 2005 12:28 am ]
Post subject: 
Cool game except sometimes when i hit the "asteroids" or "boxes", i die. lol. I dont know how that happens Rolling Eyes
Author:  jamonathin [ Sun May 29, 2005 7:56 pm ]
Post subject: 
Cervantes wrote:
Um.. I think you need to work on your collision detection a bit. It seems somewhat off at times. Also, the shooting is messed up. I press the space bar, but only some of the time the shot actually occurs. Is this some sort of reloading feature? Laughing
In any case, some explanation would be good.


For my collision, I was trying something new (or at elast something that I thought would work)

this is what I have for collision detection
code:

for i : 1 .. upper (laserx)
        if laserg (i) = 1 then
            lasery (i) += 9
            Draw.ThickLine (laserx (i), lasery (i), laserx (i), lasery (i) + 20, 5, white)
            for w : 1 .. upper (a)
                if a (w).alive > 0 then
                    for q : 0 .. 20
                        if lasery (i) + q >= a (w).y1 and lasery (i) + q <= a (w).y1 + 10 and laserx (i) >= a (w).x1 and laserx (i) <= a (w).x1 + 10 and a (w).size = 2 then
                            var hold : int := a (w).alive
                            a (w).alive := 0
                            if hold = 1 then
                                new_asteroid (w)
                            end if
                            laserg (i) := 0
                            score += 50
                            bonus += 2
                        elsif lasery (i) + q >= a (w).y1 and lasery (i) + q <= a (w).y1 + 20 and laserx (i) >= a (w).x1 and laserx (i) <= a (w).x1 + 30 and a (w).size = 1 then
                            bonus += 1
                            a (w).alive := 0
                            laserg (i) := 0
                            score += 25
                            for something : -1 .. 1 by 2
                                new a, upper (a) + 1
                                a (upper (a)).size := 2
                                a (upper (a)).dir := something
                                a (upper (a)).speed := a (w).speed
                                a (upper (a)).x1 := a (w).x1 + 10
                                a (upper (a)).y1 := a (w).y1
                                a (upper (a)).alive := 2
                                a (upper (a)).clr := a (w).clr
                            end for
                            new_asteroid (w)
                        end if
                        exit
                    end for
                end if
            end for
            %Bombs
            for b : 1 .. 3
                if gobomb (b) = 1 then
                    for t : 0 .. 20
                        if laserx (i) >= bombx (b) and laserx (i) <= bombx (b) + (bombsize (b) * 2) and lasery (i) + t >= bomby (b) and lasery (i) + t <= bomby (b) + bombsize (b) then
                            gobomb (b) := 0
                            bomby (b) := maxy + 7
                            bonus += 1
                            laserg (i) := 0
                            score += bombsize (b) * 10
                        end if
                    end for
                end if
            end for
            %Homing Missile
            for h : 0 .. 20
                if laserx (i) >= hx - 2 and laserx (i) <= hx + 2 and lasery (i) + h >= hy - 2 and lasery (i) + h <= hy + 2 then
                    gohome := 0
                    bonus += 1
                    score += 225
                    hy := maxy + 77
                end if
            end for
            if lasery (i) > maxy then
                laserg (i) := 0
            end if
        end if
    end for

Basically what I have going on is the laser moves up by 9 pixels, because the size of the small asteroid is 10, and anything larger would skip right by the asteroid. What the for q: 0 .. 20 is for is it checks every vertical pixel on the laser to see if it hits anywhere on the asteroid. Now that I think of it, the problem probabily is, the laser is 5 pixels wide, and I never check the width of the laser, I'm always checking the center. That's probabily what's going wrong, Razz

For the space bar thing. I probabily should have tested that lol. I always just figured it worked right, and so whenever I tested everything else, I just used the autoshoot. So i've never run into this problem, but here's all i have for that section, I have no idea whats wrong.
code:
if key (' ') and laserc = 0 or autoshoot and laserc = 0 then %If spacebar is pressed or auto shoot is on
        for i : 1 .. upper (laserx) %checking all lasers
            if laserg (i) = 0 and laserc = 0 then
                laserg (i) := 1 %Tells program this laser is in use
                laserx (i) := x + 10
                lasery (i) := 50 + Pic.Height (man)
                %sound(300,1)
                laserc := 1
                exit %exit for loop
            end if
        end for
    end if
    refresh %Drawing Everything/lasers
    if laserc >= 0 then %Just a delay between lasers
        laserc += 1
        if laserc >= 15 then %Which is a delay of (15 * delay(10)) = delay(150)
            laserc := 0
        end if
    end if

I cant really figure it out, it anyone does, thats cool, let me know, but if not, thats ok, I'm pretty much done with this game.

Quote:
Cool game except sometimes when i hit the "asteroids" or "boxes", i die. lol. I dont know how that happens

I've never run into that problem. By any chance did you hit a box when one of those white things hit the ground?

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy