Do you remember the first video game you programmed?
Do you remember the first video game you programmed?
I'm not for sure if I do. —hartnell
Do you remember the first video game you programmed?
Forum
» The Community / General Discussion
» Do you remember the first video game you programmed?
I can remember the first time I ever wrote a program on a computer, lol. :D
10 Print "Hello"
20 Goto 10
RunI was about 11 years old and wrote it on the Schools BBC microcomputer.
:) About the same here, but is that a game?
—hartnell
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. :)
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…
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)
WendObviously, it never came out how I planned. :P
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 Too1 :)
—hartnell
Footnotes
1. Yes, that's a play on the number 2. Because the crew of the ship from 1 is obviously dead, someone else is going to have to be SOL in Space too (also) for there to be a sequel. Then again, given how this game plays, I might name it REALLY SOL in Space.
Re: Do you remember the first video game you programmed?
Anonymous (85.157.185.x) 18 Oct 2007 17:19
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
Unfold
Re: Do you remember the first video game you programmed? by Anonymous (85.157.185.x), 18 Oct 2007 17:19
Anonymous (85.157.185.x), 18 Oct 2007 17:19
/forum/t-22713/do-you-remember-the-first-video-game-you-programmed#post-
