Do you remember the first video game you programmed?

Re: Do you remember the first video game you programmed?

Thu, 18 Oct 2007 17:19:52 +0000

First "real" game i ever made was back at mid-80's (i think :D). I programmed it with MSX-Basic, computer was Spectravideo 728.
It was simple horse betting game. You had $1000 at start and then you did bet for ten horse race. Only goal was to win as much money as possible.
Every horse has their factor based on their "average speed" of run. Naturally, lowest factor was not necessarely the winner.

E.K.Virtanen
www.ascii-world.com

Re: Do you remember the first video game you programmed?

Sat, 13 Oct 2007 01:26:56 +0000

Lol.

Re: Do you remember the first video game you programmed?

Fri, 12 Oct 2007 06:43:23 +0000

Wow, this is utterly cool. :) It's very similar to SOL in Space except — much better. :) In SOLiS you are fixed and it's just a reaction game. This is free-roaming with seeking enemies. You may have just inspired SOLiS Too¹ :)

—hartnell

Re: Do you remember the first video game you programmed?

Fri, 12 Oct 2007 05:41:40 +0000

This was actually my first non-tutorialled game, following the general principles I learned from Tom Mulgrew's tutorials.

dim playerx, playery, playerfacing, lives, score, bulletOnScreen dim bullety, bulletx, i, bulletdirection, g, j, alienOnScreen(100) dim alienx(100), alieny(100), rand(2), alienranded(100) j = 10 score = 0 lives = 3 playery = 16 playerx = 18 playerfacing = 10 bulletOnScreen = false rand(1) = rnd () % 4 + 1 rand(2) = rnd () % 2 + 1 for g = 1 to j alienOnScreen(g) = true next for g = 1 to j alienranded(g) = false next TextMode (TEXT_BUFFERED) while true if ScanKeyDown (VK_UP) and playery > 0 then playery = playery - 1 playerfacing = 10 endif if ScanKeyDown (VK_DOWN) and playery < 32 then playery = playery + 1 playerfacing = 20 endif if ScanKeyDown (VK_LEFT) and playerx > 0 then playerx = playerx - 1 playerfacing = 30 endif if ScanKeyDown (VK_RIGHT) and playerx < 37 then playerx = playerx + 1 playerfacing = 40 endif if ScanKeyDown (VK_SPACE) then bulletOnScreen = true bulletdirection = playerfacing if playerfacing = 10 then bullety = playery - 1 bulletx = playerx + 1 endif if playerfacing = 20 then bullety = playery + 1 bulletx = playerx + 1 endif if playerfacing = 30 then bullety = playery bulletx = playerx - 1 endif if playerfacing = 40 then bullety = playery bulletx = playerx + 3 endif endif cls color (255, 255, 255) locate 0, 0: print "Score: " + score locate 0, 30: print "Lives: " + lives color (255, 255, 255) locate playerx, playery: if playerfacing = 10 then print "<|>" else if playerfacing = 20 then print "<|>" endif if playerfacing = 30 then print "<->" endif if playerfacing = 40 then print "<->" endif endif for g = 1 to j if alienranded(g) = false then rand(1) = rnd () % 4 + 1 rand(2) = rnd () % 2 + 1 if rand(1) = 1 then alienx(g) = rnd () % 37 + 1 if rand(2) = 1 then alieny(g) = 0 endif if rand(2) = 2 then alieny(g) = 32 endif endif if rand(1) = 2 then alieny(g) = rnd () % 32 + 1 if rand(2) = 1 then alienx(g) = 0 endif if rand(2) = 2 then alienx(g) = 38 endif endif alienranded(g) = true endif next for g = 1 to j if alienx(g) > playerx + 1 then alienx(g) = alienx(g) - 1 endif if alienx(g) < playerx + 1 then alienx(g) = alienx(g) + 1 endif if alieny(g) > playery then alieny(g) = alieny(g) - 1 endif if alieny(g) < playery then alieny(g) = alieny(g) + 1 endif next for g = 1 to j if alienOnScreen(g) = true then locate alienx(g), alieny(g): print "O" endif next for g = 1 to j if bulletOnScreen = true and bulletx = alienx(g) and bullety = alieny(g) then alienOnScreen(g) = false score = score + 100 endif next if bulletOnScreen = true then if bulletdirection = 10 then for i = 1 to 0 + playery locate bulletx, bullety: print "|" bullety = bullety - 1 DrawText () next endif if bulletdirection = 20 then for i = 1 to 25 - playery locate bulletx, bullety: print "|" bullety = bullety + 1 DrawText () next endif if bulletdirection = 30 then for i = 1 to 0 + playerx locate bulletx, bullety: print "-" bulletx = bulletx - 1 DrawText () next endif if bulletdirection = 40 then for i = 1 to 39 - playerx locate bulletx, bullety: print "-" bulletx = bulletx + 1 DrawText () next endif if bullety < 0 or bullety > 25 or bulletx < 0 or bulletx > 39 then bulletOnScreen = false endif endif for g = 1 to j if alienx(g) = playerx + 1 and alieny(g) = playery then locate playerx, playery: print "///" locate playerx, playery: print "\\\" locate playerx, playery: print "///" locate playerx, playery: print "\\\" for g = 1 to j alienranded(g) = false next playery = 16: playerx = 18 lives = lives - 1 Sleep (100) endif next DrawText () Sleep (75) Wend

Obviously, it never came out how I planned. :P

Re: Do you remember the first video game you programmed?

Fri, 12 Oct 2007 01:28:46 +0000

I probably wrote my first actual game in the language that u9 mentioned, AMOS.

It was a simple game where you moved a square around a maze but I don't think it was very good. :)

Re: Do you remember the first video game you programmed?

Thu, 11 Oct 2007 20:23:45 +0000

It's difficult to remember, but probably it was done with AMOS basic back in the good old days. I have two candidates as i remember, either two helicopters, one on each side of the screen shooting at each other, or a "racing" game where the car was a pixel or two, and the track was drawn with lines. If i crossed the lines, the car was reset to the starting line… it was all very bad hehe…

Re: Do you remember the first video game you programmed?

Thu, 11 Oct 2007 16:45:18 +0000

:) About the same here, but is that a game?

—hartnell

Re: Do you remember the first video game you programmed?

Thu, 11 Oct 2007 16:42:45 +0000

I can remember the first time I ever wrote a program on a computer, lol. :D