|
Expert Programmer
Join Date: May 2005
Location: East Lansing, MI
Posts: 668
Rep Power: 4 
|
Quote:
|
Originally Posted by crazykid48x
I look back at my first game, guess the number, and laugh at how stupidly I coded it
|
i coded a boxing game in Qbasic when i was 14. here's some of it:
'*********************CONTROLS 2********************
D = INT(RND * RN)
RANDOMIZE TIMER
IF D = 1 THEN N = N + 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 10 THEN N = N + 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 99 THEN N = N + 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 98 THEN N = N + 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 2 THEN N = N - 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 3 THEN M = M + 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 33 THEN M = M + 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 4 THEN M = M - 25: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 40 THEN M = M - 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF D = 44 THEN M = M - 25: PAINT STEP(0, 0), 1: PAINT STEP(0, 0), 1: GOSUB BOXER2: PAINT STEP(0, 0), 1
IF A$ = CHR$(0) + ";" THEN GOSUB HELP
LOOP UNTIL A$ = CHR$(27)
GOSUB FIN
LINE (0, 0)-(600, 600), 1, BF
PAINT STEP(-5, 0), 1
CIRCLE (50 + X, 250 + Y), 13, 11
PAINT (50 + X, 250 + Y), 11, 11
LINE (45 + X, 260 + Y)-(55 + X, 290 + Y), 11, BF
LINE (55 + X, 290 + Y)-(90 + X, 283 + Y), 11, BF
CIRCLE (110 + X, 285 + Y), 20, 11
PAINT (110 + X, 285 + Y), 11, 11
LINE (109 + X, 269 + Y)-(111 + X, 260 + Y), 11, BF
CIRCLE (170 + X, 250 + Y), 13, 11
PAINT (170 + X, 250 + Y), 11, 11
LINE (130 + X, 290 + Y)-(165 + X, 283 + Y), 11, BF
LINE (165 + X, 290 + Y)-(175 + X, 260 + Y), 11, BF
LINE (0, 0)-(600, 600), 1, BF
LINE (40, 25)-(580, 340), 15, B
CIRCLE (570 + M, 70 + N), 13, 14
PAINT (570 + M, 70 + N), 14, 14
LINE (575 + M, 30 + N)-(535 + M, 23 + N), 14, BF
LINE (565 + M, 60 + N)-(575 + M, 30 + N), 14, BF
CIRCLE (515 + M, 25 + N), 20, 14
PAINT (515 + M, 25 + N), 14, 14
LINE (514 + M, 40 + N)-(516 + M, 50 + N), 14, BF
CIRCLE (460 + M, 70 + N), 13, 14
PAINT (460 + M, 70 + N), 14, 14
LINE (495 + M, 23 + N)-(465 + M, 30 + N), 14, BF
LINE (465 + M, 23 + N)-(455 + M, 60 + N), 14, BF
LINE (40, 25)-(580, 340), 15, B  no clue what it means !  |