Keskustelu: Koodit: QB: Räiskintäpeli

' Räiskintäpeli by JJKulmo.

CLS

mode = 13
valikko:
SCREEN mode
pelaaja = 1
pykl = 5
pyk = 5
pka = 9
pkal = 2
pko = 10
pkol = 2
hk = 60
hs = 103
hsk = 165
vih = 1
s = 0
w = 165
sm = 0
DIM vih AS STRING
DIM sniper AS STRING
DIM mies AS STRING
DIM mies2 AS STRING
DIM logo AS STRING
'grafiikat
vih = "ta0c6ul2d2r2lc8dlr2dl3dur4dul2d3c7f2h2ld2"
sniper = "c8r6c6fc7erulhl3c12u1ldr2c7ud2l3dur8c2r3dr2c6dlc2l3ul"
mies = "ta0c12ur2d2lugrdc2l2dr4uc8r2l2dc2l4gdr2ul2d2c6f2dc8r "
mies2 = "ta0c12ul2d2rufldc2r2dl4uc8l2r2dc2r4fdl2ur2d2c6g2dc8l "
logo = "ta0c4u2dr2ud2rc2rc4u2d2r2u2d2rc2rc4u2f2ru2rc2rc4r2ld2rc2r4c4u3rld2rrc2rc4ur2d2l2r2rc2rc4u3rfgfr"
DO
CIRCLE (200, 100), 0, 0
DRAW logo
COLOR 9
LOCATE 14, 20: PRINT "mr.Stupidhead"

COLOR 14
LOCATE 14, 2: PRINT "4 AlOita peli "
COLOR 2
LOCATE 10, 3: PRINT "3 Tarina       "
COLOR 8
LOCATE 2, 3: PRINT "1 Lopetus"
COLOR 5: LOCATE 5, 6: PRINT "2 kontrollit"

SELECT CASE INKEY$
CASE "1"
CLS
LOCATE 10, 10: PRINT "Pelaaaaa uudestaaaaannn!! (joskus)"
DO: LOOP WHILE INKEY$ = ""
END
CASE "2"
CLS
GOSUB kontrols
CASE "3"
CLS
LOCATE 12, 1: PRINT "Pelin tarkoitus on tuhota kaupunkia terrorisoiva"
LOCATE , 1: PRINT "ääliö nimeltä Mörkö. Mörkö hakkaa, ryöstää, haukkuu"
LOCATE , 1: PRINT "uhkailee ja riehuu. "
DO: LOOP WHILE INKEY$ = ""
CLS
CASE "4"
EXIT DO
END SELECT
LOOP
piirra:
CLS
LINE (1, 1)-(319, 40), 1, BF
LINE (1, 171)-(319, 200), 8, BF
LINE (319, 40)-(160, 171), 7, B
LINE (319, 160)-(160, 171), 7, B
LINE (319, 162)-(160, 171), 7, B
LINE (319, 164)-(160, 171), 7, B
LINE (319, 166)-(160, 171), 7, B
LINE (319, 168)-(160, 171), 7, B
LOCATE 7, 22: PRINT "#m- Nakkitalo -m#"
COLOR 4: LOCATE 14, 4: PRINT "Metro"
LINE (20, 100)-(100, 180), 4, B
LINE -(120, 160), 4
LINE -(120, 90), 4
LINE -(60, 90), 4
LINE -(20, 100), 4
IF sm = 1 THEN DRAW "ta10"
IF sm = 2 THEN DRAW "ta-10"
CIRCLE (159, 40), 0, 0: DRAW sniper
CIRCLE (166, 150), 0:  DRAW mies2
CIRCLE (hs, hsk), 0: DRAW vih
CIRCLE (sija, w), 0: DRAW mies
IF s = 1 THEN RETURN

DO
SELECT CASE INKEY$
CASE CHR$(27)
GOTO valikko
END SELECT
LOCATE 10, 10: PRINT pelaaja
CIRCLE (hs - 1, hsk + 7), 60 - hk, 4, , , .1
PAINT (hs - 1, hsk + 7), 4
IF hk <= 1 THEN PLAY "o3l64gfcdgfcefgcdegfcdegfco0ccdceecedc": LOCATE 10, 10: PRINT "TUhosit Mörön!!!": DO: LOOP WHILE INKEY$ = "": SLEEP 2: GOTO valikko

SELECT CASE pelaaja

CASE 1
SELECT CASE INKEY$
CASE " "

IF pyk >= 0 THEN
CIRCLE (159, 40), 1, 14
PLAY "o1l64gcd"
CIRCLE (159, 40), 1, 0
IF sm = 1 THEN
hk = hk - .5
CIRCLE (hs, hsk + 1), 1, 4
pyk = pyk - 1
END IF
ELSE
PLAY "c64"
END IF

CASE "w"
sm = 1
GOSUB piirra
CASE "q"
IF pykl >= 0 THEN
pykl = pykl - 1
pyk = pyk + 10
END IF
sm = 2
GOSUB piirra
CASE CHR$(13)
IF pelaaja = 3 THEN

pelaaja = 1
ELSE pelaaja = pelaaja + 1
END IF
END SELECT
CASE 2
CIRCLE (sija + 50, hsk), 1, 2
CIRCLE (sija + 50, hsk), 0, 14

SELECT CASE INKEY$
CASE " "
IF pka >= 0 THEN
CIRCLE (sija + 6, w + 2), 0, 14
PLAY "o1l32gc"
CIRCLE (sija + 6, w + 2), 0, 0

CIRCLE (sija + 50, hsk), 0, 4
IF sija + 51 = hs THEN hk = hk - 1
IF sija + 52 = hs THEN hk = hk - 1
IF sija + 50 = hs THEN hk = hk - 1
pka = pka - 1
ELSE
PLAY "c64"
END IF
CASE "q"
IF pkal >= 0 THEN
pkal = pkal - 1
pka = pka + 10
END IF

GOSUB piirra

CASE "d"
s = 1
GOSUB piirra
sija = sija + 1
CASE "a"
s = 1
GOSUB piirra
sija = sija - 1
CASE "w"
IF w >= 165 THEN w = w - 1
GOSUB piirra
CASE "s"
w = w + 1
GOSUB piirra
CASE CHR$(13)
IF pelaaja = 3 THEN
pelaaja = 1
ELSE pelaaja = pelaaja + 1
END IF
END SELECT

CASE 3

SELECT CASE INKEY$
CASE "q"
IF pkol >= 0 THEN
pkol = pkol - 1
pko = pko + 10
END IF
GOSUB piirra

CASE CHR$(13)
IF pelaaja = 3 THEN
pelaaja = 1
ELSE pelaaja = pelaaja + 1
END IF
CASE " "
IF pko >= 0 THEN
CIRCLE (160, 152), 0, 14
PLAY "o1l64cgf"
CIRCLE (160, 152), 0, 7
CIRCLE (hs, hsk), 0, 4
hk = hk - .5
pko = pko - 1
ELSE
PLAY "o1c64"
END IF
END SELECT
END SELECT
LOOP
kontrols:
CLS
LOCATE 1, 2: PRINT "Esc Lopettaa pelin|Enter vaihtaa pelaajaa"
COLOR 8
LOCATE 3, 1: PRINT "pelaaja 1"
COLOR 1: PRINT "q:lataa w:ampuma-asento  space:ammu"
COLOR 8: LOCATE , 1: PRINT "pelaaja 2"
COLOR 1: PRINT "w:ylös s:alas d:oikealle a: vasemmalle"
PRINT "space:ammu q:lataa"
COLOR 8: LOCATE , 1: PRINT "pelaaja 3"
COLOR 1: PRINT "q:lataa space:ammu "
DO: LOOP WHILE INKEY$ = ""
CLS
RETURN