Gå til innhold

Hva er ditt først spilte spill i år 2008?


Anbefalte innlegg

Videoannonse
Annonse

Det første spillet jeg spillte i 2008 har vel egentlig ikke noe navn. Det er en slags klone av Pong, bare at det er kun for en spiller, og har ingen AI.

Men hvis dere er interesert så kan dere godt prøve det. Alt dere trenger er en compiler som støtter QBasic.

 

GANE.txt

 

SCREEN 7, 0, 1, 0
x = 50: y = 50
x2 = 130: y2 = 150
pspeed = 5
xadj = 1: yadj = 1
delay = 1
DO
press$ = INKEY$
LINE (0, 0)-(320, 200), 0, BF
CIRCLE (x, y), 7
PAINT (x, y), 4, 15
LINE (x2, y2)-(x2 + 30, y2 + 7), 1, BF
LINE (x2, y2)-(x2 + 30, y2 + 7), 8, B
LOCATE 1, 1: PRINT score
PCOPY 1, 0
IF y <= 20 THEN yadj = 1
IF y >= 180 THEN yadj = -1
IF x >= 300 THEN xadj = -1
IF x <= 20 THEN xadj = 1

IF press$ = "," AND x2 > 1 THEN x2 = x2 - pspeed
IF press$ = "." AND x2 < 290 THEN x2 = x2 + pspeed
x = x + xadj
y = y + yadj
IF y > y2 - 7 AND y2 < y2 + 2 AND x < x2 + 30 AND x > x2 THEN
yadj = -1: score = score + 1
END IF

IF y > y2 + 10 THEN
FOR i = 1 TO 100
PRINT "GAME OVER!!"
PCOPY 1, 0
NEXT
END
END IF
FOR i = 1 TO delay: NEXT
LOOP UNTIL press$ = "q"

 

Edit: Bare så det er sagt; Det er ikke jeg som har laget det. Fant det på http://www.qbasicnews.com/

Endret av Dj_eLmO
Lenke til kommentar
Gjest
Dette emnet er stengt for flere svar.
×
×
  • Opprett ny...