Keskustelu: Koodit: QB: Pieni RPG-peli

Pkettu [17.01.2003 09:40:26]

Tämmöinen joskus väsätty peli joka on keskeneräinen. Koodi on melkoista soopaa eikä ole tullut kirjoitettua edes kommentteja. :(

Kartta.Huone1:
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,4,0,1,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,1
DATA 1,1,0,1,1,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,0,1,1,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,1
DATA 1,0,2,0,1,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,3,1,1,1,1
Kartta.Huone2:
DATA 1,1,1,1,1,1,1,3a,1,1,1,1,1,1,1
DATA 1,4,0,4,1,0,0,7,0,0,1,4,0,4,1
DATA 1,0,0,0,1,0,0,7,0,0,1,0,0,0,1
DATA 1,2a,0,2,1,0,0,7,0,0,1,2,0,2,1
DATA 1,1,3b,1,1,0,0,7,0,0,1,1,3b,1,1
DATA 1,0,0,0,0,0,0,7,0,0,0,0,0,0,1
DATA 1,1,3b,1,1,0,0,7,0,0,1,1,3b,1,1
DATA 1,0,0,0,1,0,5,5,5,0,1,0,0,0,1
DATA 1,2,4,2b,1,0,0,6,0,0,1,2c,4,2,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Kartta.Huone3:
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,1,1,1,1,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,0,0,0,0,0,0,0,0,1,0,1
DATA 1,0,1,0,1,1,1,1,1,1,1,0,1,0,1
DATA 1,0,1,0,1,2,2,2,2,2,1,0,1,0,1
DATA 1,0,1,0,1,2,0,0,0,2,1,0,1,0,1
DATA 1,0,1,1,1,1,1,3b,1,1,1,1,1,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,3c,1,1,1,1

Kartta.ulkona:
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,1,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,3a,0,0,0,0,0,2,2,2,1,1,0,0,1,1,1,1,2,2,2,2,2,2,2,2,1,1,1,1
DATA 1,0,4,0,0,0,1,2,2,2,2,2,2,2,0,0,1,0,2,0,2,0,2,2,1,2,2,2,2,1,1
DATA 1,0,4,0,0,2,1,0,0,2,2,2,2,2,0,0,1,2,0,0,4,0,0,0,0,0,0,0,0,1,1
DATA 1,0,4,4,4,4,4,4,4,0,2,2,2,1,0,0,1,2,0,0,4,4,4,4,4,4,0,0,0,1,1
DATA 1,0,4,0,0,0,0,0,4,0,0,0,0,0,2,0,1,0,0,0,4,0,0,0,0,0,0,0,1,1,1
DATA 1,1,4,0,0,0,0,0,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,0,0,0,0,2,1,1,1
DATA 1,1,4,0,0,0,0,0,4,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1
DATA 1,1,4,1,0,0,0,0,4,0,0,0,0,0,2,2,1,2,0,0,0,0,0,0,0,0,0,1,1,1,1
DATA 1,0,4,2,2,2,1,1,3c,2,0,1,0,0,2,2,1,1,2,2,2,2,1,1,1,1,1,1,1,1,1
DATA 1,2,3b,0,0,0,1,1,2,2,1,1,1,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Kuva.Matto:
DATA 041,042,041,041,041,042,041,041,041,041
DATA 041,041,042,041,041,041,041,041,042,041
DATA 042,041,041,041,042,041,042,041,041,041
DATA 041,041,041,041,041,041,041,041,041,042
DATA 041,042,041,042,041,042,041,042,041,041
DATA 041,041,041,041,041,041,041,041,042,041
DATA 041,042,041,041,042,041,041,041,041,041
DATA 041,041,041,041,041,041,042,041,041,041
DATA 041,042,041,041,041,041,041,041,041,041
DATA 041,041,041,041,042,041,041,041,042,041
Kuva.Tiski:
DATA 115,115,115,115,115,115,115,115,115,115
DATA 030,030,030,030,030,030,030,030,030,030
DATA 029,029,029,029,029,029,029,029,029,029
DATA 029,029,029,029,029,029,029,029,029,029
DATA 029,029,029,029,029,029,029,029,029,029
DATA 029,029,029,029,029,029,029,029,029,029
DATA 029,029,029,029,029,029,029,029,029,029
DATA 029,029,029,029,029,029,029,029,029,029
DATA 027,027,027,027,027,027,027,027,027,027
DATA 115,115,115,115,115,115,115,115,115,115
Kuva.Sanky:
DATA 115,008,008,008,008,008,008,008,008,115
DATA 115,115,030,029,030,030,031,030,115,115
DATA 115,115,030,029,030,030,031,030,115,115
DATA 115,115,025,028,028,028,028,029,115,115
DATA 115,115,025,028,028,028,028,029,115,115
DATA 115,115,025,028,028,028,028,029,115,115
DATA 115,115,025,028,028,028,028,029,115,115
DATA 115,115,025,028,028,028,028,029,115,115
DATA 185,185,025,028,028,028,028,029,185,185
DATA 115,008,008,008,008,008,008,008,008,115
Kuva.Tie:
DATA 231,231,231,231,231,115,231,231,231,231
DATA 115,231,231,231,231,231,231,231,231,231
DATA 231,231,115,231,231,231,231,231,115,231
DATA 231,231,231,231,231,231,231,231,231,231
DATA 231,231,231,231,231,115,231,231,231,231
DATA 231,231,231,231,231,231,231,231,231,231
DATA 115,231,231,231,231,231,231,231,115,231
DATA 231,231,231,231,115,231,231,231,231,231
DATA 231,231,231,231,231,231,231,231,231,231
DATA 115,231,231,231,231,231,231,115,231,231
Kuva.Puu:
DATA 120,120,120,046,046,046,046,120,120,120
DATA 120,120,046,046,046,046,046,046,120,120
DATA 120,120,046,046,046,046,046,046,120,120
DATA 120,120,046,046,046,046,046,046,120,120
DATA 120,120,120,046,046,046,046,120,120,120
DATA 120,120,120,120,000,031,120,120,120,120
DATA 120,120,120,120,031,000,120,120,120,120
DATA 120,120,120,120,000,031,120,120,120,120
DATA 120,120,120,120,031,031,120,120,120,120
DATA 120,120,120,120,120,120,120,120,120,120
Kuva.Ruoho:
DATA 118,118,122,122,122,122,118,122,122,122
DATA 118,118,122,118,122,122,118,118,118,122
DATA 122,118,122,118,122,118,122,118,122,122
DATA 122,122,122,118,122,118,122,118,122,122
DATA 122,118,122,122,118,122,118,118,122,122
DATA 122,118,122,122,122,122,118,122,118,122
DATA 122,122,122,118,122,118,122,118,118,122
DATA 122,118,122,118,122,118,118,122,118,122
DATA 122,118,122,118,122,118,122,122,118,122
DATA 122,122,118,122,118,118,122,118,122,118
Kuva.Talo:
DATA 120,120,120,027,027,027,027,120,120,120
DATA 120,120,027,039,039,039,039,027,120,120
DATA 120,027,039,039,039,039,039,039,027,120
DATA 027,039,039,039,039,039,039,039,039,027
DATA 120,039,039,053,053,053,053,039,039,120
DATA 120,039,039,053,053,053,053,039,039,120
DATA 120,039,039,053,053,053,053,039,039,120
DATA 120,039,039,039,039,039,039,039,039,120
DATA 120,039,039,039,039,039,039,039,039,120
DATA 120,120,120,120,120,120,120,120,120,120
Kuva.Ukko:
DATA 000,000,000,000,043,043,043,000,000,000
DATA 000,000,000,000,043,043,043,000,000,000
DATA 000,000,000,000,000,043,000,000,000,000
DATA 000,000,000,041,041,041,041,041,000,000
DATA 000,000,041,000,041,041,041,000,041,000
DATA 000,000,043,000,041,041,041,000,043,000
DATA 000,000,000,000,032,032,032,000,000,000
DATA 000,000,000,000,032,000,032,000,000,000
DATA 000,000,000,000,032,000,032,000,000,000
DATA 000,000,000,031,031,000,031,031,000,000
Kuva.Seina:
DATA 025,024,025,024,025,025,025,025,025,024
DATA 023,023,025,023,023,023,023,025,023,023
DATA 023,023,025,023,023,023,023,025,023,023
DATA 025,025,025,025,025,025,025,025,025,025
DATA 023,023,023,023,025,023,023,023,023,025
DATA 023,023,023,023,025,023,023,023,023,025
DATA 025,024,025,025,025,024,024,025,025,025
DATA 023,023,025,023,023,023,023,025,023,023
DATA 023,023,025,023,023,023,023,025,023,023
DATA 024,025,025,025,025,025,024,025,025,024
Kuva.Ovi:
DATA 000,138,138,138,138,138,138,138,138,000
DATA 138,138,137,137,137,137,137,137,138,138
DATA 138,137,137,137,137,137,137,137,137,138
DATA 138,137,137,137,137,137,137,137,137,138
DATA 138,137,137,137,137,137,137,137,137,138
DATA 138,044,044,137,137,137,137,137,137,138
DATA 138,137,137,137,137,137,137,137,137,138
DATA 138,137,137,137,137,137,137,137,137,138
DATA 138,137,137,137,137,137,137,137,137,138
DATA 138,138,138,138,138,138,138,138,138,138
Kuva.Vesi:
DATA 055,055,054,055,055,055,055,055,055,055
DATA 055,054,055,054,055,055,055,055,055,055
DATA 054,055,055,055,054,055,055,055,055,055
DATA 055,055,055,055,055,055,055,054,055,055
DATA 055,055,055,055,055,055,054,055,054,055
DATA 055,055,055,055,055,054,055,055,055,054
DATA 055,055,054,055,055,055,055,055,055,055
DATA 055,054,055,054,055,055,055,055,055,055
DATA 054,055,055,055,054,032,055,055,055,055
DATA 055,055,055,055,055,055,055,055,055,055
Kuva.Pelto:
DATA 049,049,049,049,049,049,049,049,049,049
DATA 049,045,049,049,049,045,049,049,049,045
DATA 049,045,049,045,049,045,049,045,049,045
DATA 049,049,049,045,049,049,049,045,049,049
DATA 049,045,049,049,049,045,049,049,049,045
DATA 049,045,049,045,049,045,049,045,049,045
DATA 049,049,049,045,049,049,049,045,049,049
DATA 049,045,049,049,049,045,049,049,049,045
DATA 049,045,049,045,049,045,049,045,049,045
DATA 049,049,049,045,049,049,049,045,049,049
Kuva.Arkku:
DATA 115,115,185,185,185,185,115,115,185,115
DATA 115,115,185,115,115,185,115,115,185,115
DATA 115,115,183,183,183,183,183,183,183,115
DATA 115,115,183,008,008,008,008,008,183,115
DATA 115,115,183,183,183,014,183,183,183,115
DATA 115,115,183,008,008,008,008,008,183,115
DATA 115,115,183,008,008,008,008,008,183,115
DATA 115,115,183,183,183,183,183,183,183,115
DATA 185,185,185,115,115,185,115,115,185,185
DATA 115,115,185,115,115,185,115,115,185,115
Kuva.Lattia:
DATA 115,115,185,185,185,185,115,115,185,115
DATA 115,115,185,115,115,185,115,115,185,115
DATA 115,115,185,115,115,185,115,115,185,115
DATA 115,115,185,115,115,185,115,115,185,115
DATA 115,115,185,115,115,185,115,115,185,115
DATA 115,115,185,115,115,185,185,185,185,115
DATA 115,115,185,115,115,185,115,115,185,115
DATA 115,115,185,115,115,185,115,115,185,115
DATA 185,185,185,115,115,185,115,115,185,185
DATA 115,115,185,115,115,185,115,115,185,115
CLS
SCREEN 13
DIM Kuva3(10 * 10)
RESTORE Kuva.Ukko
FOR y2 = 1 TO 20 STEP 2
FOR x2 = 1 TO 20 STEP 2
READ d$
PSET (x2, y2), VAL(d$)
DRAW "u1r1d1"
NEXT
NEXT
GET (1, 1)-(20, 20), Kuva3
CLS
FOR xcolor = 16 TO 31
COLOR xcolor
LOCATE 11, 13
SOUND 20000, 1
PRINT "PKETTU ESITTŽŽ:"
NEXT xcolor
FOR xcolor = 31 TO 16 STEP -1
COLOR xcolor
LOCATE 11, 13
SOUND 20000, 1
PRINT "PKETTU ESITTŽŽ:"
NEXT xcolor
FOR xcolor = 16 TO 31
COLOR xcolor
LOCATE 11, 2
SOUND 20000, 1
PRINT "The Pienempi Suuri Pieni Seikkailu"
NEXT xcolor
COLOR 15
PUT (0, 60), Kuva3
DO UNTIL xex = 284
xex2 = xex
xex = xex + 4
PUT (xex, 60), Kuva3
PUT (xex2, 60), Kuva3
SOUND 20000, 1
LOOP
PAINT (1, 1)
PAINT (1, 1), 0
LOCATE 11, 37
PRINT "II"
LOCATE 11, 2
PRINT "The Pienempi Suuri Pieni Seikkailu"
PUT (284, 60), Kuva3
SLEEP
lat:
CLS
PRINT "LADATAAN KUVIA..."
x = 21
y = 20
enu = 100
puukko = 1
miekka = 0
kilpi = 0
vasara = 0
talot = 1
DIM Matto(10 * 10)
RESTORE Kuva.Matto
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Matto
DIM Tiski(10 * 10)
RESTORE Kuva.Tiski
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Tiski
DIM Puu(10 * 10)
RESTORE Kuva.Puu
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Puu
DIM Sanky(10 * 10)
RESTORE Kuva.Sanky
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Sanky
DIM Ruoho(10 * 10)
RESTORE Kuva.Ruoho
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Ruoho
DIM talo(10 * 10)
RESTORE Kuva.Talo
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), talo
DIM Lattia(10 * 10)
RESTORE Kuva.Lattia
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Lattia
DIM Tie(10 * 10)
RESTORE Kuva.Tie
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Tie
DIM Pelto(10 * 10)
RESTORE Kuva.Pelto
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Pelto
DIM arkku(10 * 10)
RESTORE Kuva.Arkku
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), arkku
DIM Vesi(10 * 10)
RESTORE Kuva.Vesi
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Vesi
DIM Ovi(10 * 10)
RESTORE Kuva.Ovi
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Ovi
DIM Seina(10 * 10)
RESTORE Kuva.Seina
FOR y3 = 1 TO 10
FOR x3 = 1 TO 10
READ d$
PSET (x3, y3), VAL(d$)
NEXT
NEXT
GET (1, 1)-(10, 10), Seina
DIM Kuva(10 * 10)
RESTORE Kuva.Ukko
FOR y2 = 1 TO 10
FOR x2 = 1 TO 10
READ d2$
PSET (x2, y2), VAL(d2$)
NEXT
NEXT
GET (1, 1)-(10, 10), Kuva
DIM Kuva2(10 * 10)
RESTORE Kuva.Ukko
FOR y2 = 1 TO 10
FOR x2 = 1 TO 10
READ d2$
IF d2$ = "041" THEN d2$ = "1"
IF d2$ = "032" THEN d2$ = "27"
PSET (x2, y2), VAL(d2$)
NEXT
NEXT
GET (1, 1)-(10, 10), Kuva2
PRINT "VALMIS!"
CLS
VIEW (1, 1)-(319, 199)
COLOR 15
talo1:
FOR kjeh = 1 TO 550 STEP 2
PSET (kjeh, 0), 0
DRAW "g200"
NEXT
DO
RANDOMIZE TIMER
VIEW PRINT 18 TO 24
COLOR 7
PSET (0, 153)
DRAW "r120u20l120d20r120"
LOCATE 18, 2
PRINT "Rahat  :"; raha
LOCATE 19, 2
PRINT "Energia:"; enu
PSET (0, 153)
DRAW "r318d40l318u40"
LOCATE 21, 2
IF talot = 1 THEN RESTORE Kartta.Huone1
IF talot = 2 THEN RESTORE Kartta.Huone2
IF talot = 3 THEN RESTORE Kartta.Huone3
FOR x2 = 1 TO 100 STEP 10
FOR y2 = 1 TO 150 STEP 10
READ d$
xhi = x
yhi = y
'Kuvat
IF d$ = "0" THEN PUT (y2, x2), Lattia, PSET
IF d$ = "1" THEN PUT (y2, x2), Seina, PSET
IF d$ = "2" THEN PUT (y2, x2), arkku, PSET
IF d$ = "2a" THEN PUT (y2, x2), arkku, PSET
IF d$ = "2b" THEN PUT (y2, x2), arkku, PSET
IF d$ = "2c" THEN PUT (y2, x2), arkku, PSET
IF d$ = "3" THEN PUT (y2, x2), Ovi, PSET
IF d$ = "3a" THEN PUT (y2, x2), Ovi, PSET
IF d$ = "3b" THEN PUT (y2, x2), Ovi, PSET
IF d$ = "3c" THEN PUT (y2, x2), Ovi, PSET
IF d$ = "4" THEN PUT (y2, x2), Sanky, PSET
IF d$ = "5" THEN PUT (y2, x2), Tiski, PSET
IF d$ = "6" THEN PUT (y2, x2), Kuva2, PSET
IF d$ = "7" THEN PUT (y2, x2), Matto, PSET
'Ominaisuudet
IF y2 = y + 1 AND x2 = x AND d$ = "1" THEN x = xh: y = yh
IF y2 = y + 1 AND x2 = x AND d$ = "5" THEN x = xh: y = yh
IF talot = 1 THEN IF y2 = y + 1 AND x2 = x AND d$ = "2" AND arkku = 0 THEN PRINT "Arkussa oli 100 kultaa!": raha = raha + 100: arkku = 1
IF talot = 1 AND y2 = y + 1 AND x2 = x AND d$ = "3" THEN x = 31: y = 20: GOTO ulos2
IF talot = 2 AND y2 = y + 1 AND x2 = x AND d$ = "3a" THEN x = 101: y = 20: GOTO ulos2
IF talot = 3 AND y2 = y + 1 AND x2 = x AND d$ = "3a" THEN x = 101: y = 20: GOTO ulos2
IF talot = 3 AND y2 = y + 1 AND x2 = x AND d$ = "3c" THEN x = 91: y = 80: GOTO ulos2
IF talot = 2 AND y2 = y + 1 AND x2 = x AND d$ = "2a" AND arkku2 = 0 THEN arkku2 = arrku2 + 1: PRINT "Arkussa oli 60 kultaa": raha = raha + 60
IF avain = 0 AND y2 = y + 1 AND x2 = x AND d$ = "3b" THEN PRINT "Ovi on lukossa!": x = xh: y = yh
IF talot = 2 AND y2 = y + 1 AND x2 = x AND d$ = "2b" AND arkku3 = 0 THEN arkku3 = arrku3 + 1: PRINT "Arkussa oli 100 kultaa": raha = raha + 100
IF talot = 2 AND y2 = y + 1 AND x2 = x AND d$ = "2c" AND arkku4 = 0 THEN arkku4 = arrku4 + 1: PRINT "Arkussa oli 50 kultaa": raha = raha + 50
IF y2 = y + 1 AND x2 = x AND d$ = "4" THEN x = x + 10: PRINT "Nukut Tunnin!": IF enu < 100 THEN enu = enu + 1
NEXT
NEXT
PUT (y + 1, x), Kuva, PSET
xh = x
yh = y
vr$ = INPUT$(1)
IF vr$ = "s" THEN x = x + 10
IF vr$ = "d" THEN y = y + 10
IF vr$ = "w" THEN x = x - 10
IF vr$ = "a" THEN y = y - 10
IF vr$ = "t" THEN PRINT "Sinulla on:                    ": IF puukko = 1 THEN PRINT " Puukko": IF miekka = 0 THEN PRINT " Miekka": IF kilpi = 0 THEN PRINT " Kilpi"
IF vr$ = "p" THEN PRINT
IF vr$ = "q" THEN END
LOOP
ulos2:
CLS
DO
taprnd = INT(RND * 25)
IF taprnd = 0 THEN paikka = 1: GOTO tappelu
VIEW PRINT 18 TO 24
COLOR 7
PSET (0, 153)
DRAW "r120u20l120d20r120"
LOCATE 18, 2
PRINT "Rahat  :"; raha
LOCATE 19, 2
PRINT "Energia:"; enu
PSET (0, 153)
DRAW "r318d40l318u40"
LOCATE 21, 2
RESTORE Kartta.ulkona
FOR x2 = 1 TO 130 STEP 10
FOR y2 = 1 TO 310 STEP 10
IF x = 310 THEN PRINT "jee"
READ d$
'Kuvat
IF d$ = "0" THEN PUT (y2, x2), Ruoho, PSET
IF d$ = "1" THEN PUT (y2, x2), Vesi, PSET
IF d$ = "2" THEN PUT (y2, x2), Puu, PSET
IF d$ = "3a" THEN PUT (y2, x2), talo, PSET
IF d$ = "3b" THEN PUT (y2, x2), talo, PSET
IF d$ = "3c" THEN PUT (y2, x2), talo, PSET
IF d$ = "4" THEN PUT (y2, x2), Tie, PSET
'Ominaisuudet
IF y2 = y + 1 AND x2 = x AND d$ = "0" THEN vahan = vahan + 2
IF y2 = y + 1 AND x2 = x AND d$ = "1" THEN x = xh: y = yh: PRINT "Et osaa uida"
IF y2 = y + 1 AND x2 = x AND d$ = "2" THEN vahan = vahan + 4
IF y2 = y + 1 AND x2 = x AND d$ = "3a" THEN talot = 1: x = 81: y = 100: GOTO talo1
IF y2 = y + 1 AND x2 = x AND d$ = "3b" THEN talot = 2: x = 11: y = 70: GOTO talo1
IF y2 = y + 1 AND x2 = x AND d$ = "3c" THEN talot = 3: x = 81: y = 100: GOTO talo1
IF y2 = y + 1 AND x2 = x AND d$ = "4" THEN vahan = vahan + .5
NEXT
NEXT
IF vahan > 35 THEN enu = enu - 1: vahan = 0
PUT (y + 1, x), Kuva, PSET
xh = x
yh = y
vr$ = INPUT$(1)
IF vr$ = "s" THEN x = x + 10
IF vr$ = "d" THEN y = y + 10
IF vr$ = "w" THEN x = x - 10
IF vr$ = "a" THEN y = y - 10
'IF vr$ = "t" THEN PRINT "Sinulla on:                    ": IF puukko = 1 THEN PRINT " Puukko": IF miekka = 0 THEN PRINT " Miekka": IF kilpi = 0 THEN PRINT " Kilpi"
IF vr$ = "p" THEN PRINT
IF vr$ = "q" THEN END
LOOP
tappelu:
COLOR 15
tapv = INT(RND * 3)
IF tapv = 0 THEN vihn$ = "™rkki": vihvoima = 20
IF tapv = 1 THEN vihn$ = "Menninkäinen": vihvoima = 15
IF tapv = 2 THEN vihn$ = "Karhu": vihvoima = 30
venu = 100
FOR kjeh = 1 TO 550 STEP 2
PSET (kjeh, 0), 0
DRAW "g200"
NEXT
VIEW PRINT 5 TO 25
VIEW (30, 30)-(290, 170), 0, 1
tapsssa1:
IF enu < 0 THEN GOTO loppu
IF venu < 0 AND paikka = 1 THEN PRINT "Voitit!": SLEEP: CLS : raha = raha + (INT(RND * 10) + 1): VIEW (1, 1)-(319, 199): vasara = INT(RND * 2): IF vasara = 0 THEN miekka = INT(RND * 4): GOTO ulos2
IF vihv = 1 THEN GOTO vihvo
GOTO omavo
vihvo:
LOCATE 21, 8
vihl = INT(RND * 4)
IF vihl = 1 THEN PRINT "Vihollinen löi huti          ": vihv = 0: SLEEP 1: GOTO omavo
osuvih = INT(RND * vihvoima)
PRINT "Vihollinen osui, Menetit"; osuvih; "!"
enu = enu - osuvih
vihv = 0
LOCATE 19, 7
SLEEP 1
omavo:
LOCATE 5, 7
PRINT "Tappelu: Sinä vs."; vihn$
PSET (0, 12), 1
DRAW "r260"
PSET (0, 125), 1
DRAW "r260"
LOCATE 7, 7
PRINT "Sinun vuorosi"
LOCATE 9, 7
PRINT "Energiasi:"; enu
LOCATE 11, 8
PRINT "Lyö (N)yrkillä    TEHO 20"
LOCATE , 8
IF puukko = 1 THEN PRINT "Lyö (P)uukolla    TEHO 30"
LOCATE , 8
IF miekka = 1 THEN PRINT "Lyö (M)iekalla    TEHO 40"
LOCATE , 8
IF vasara = 1 THEN PRINT "Lyö (V)asaralla   TEHO 25"
LOCATE , 8
PRINT "(K)arkuun"
LOCATE 17, 7
COLOR 4
PRINT "Vihollisen energiat:"; venu
COLOR 15
LOCATE 19, 7
IF enu = 0 THEN GOTO loppu
INPUT "", tapps$
IF tapps$ = "n" THEN GOTO nyrkkil
IF tapps$ = "p" AND puukko = 1 THEN GOTO puukkol
IF tapps$ = "m" AND miekka = 1 THEN GOTO miekkal
IF tapps$ = "v" AND vasara = 1 THEN GOTO vasaral
IF tapps$ = "k" AND paikka = 1 THEN CLS : VIEW (1, 1)-(319, 199): GOTO ulos2
GOTO tapsssa1
nyrkkil:
nyrkkil = INT(RND * 10)
LOCATE 21, 8
IF nyrkkil > 7 THEN PRINT "Löit Huti!                  ": vihv = 1: SLEEP 1: GOTO tapsssa1
LOCATE 21, 8
osuman = INT(RND * 20)
PRINT "Osui, vahinkoa tuli "; osuman; "!    "
venu = venu - osuman
vihv = 1
SLEEP
GOTO tapsssa1
puukkol:
puukkol = INT(RND * 13)
LOCATE 21, 8
IF puukkol > 7 THEN PRINT "Löit Huti!                  ": vihv = 1: SLEEP 1: GOTO tapsssa1
LOCATE 21, 8
osuman = INT(RND * 30)
PRINT "Osui, vahinkoa tuli "; osuman; "!    "
venu = venu - osuman
vihv = 1
SLEEP
GOTO tapsssa1
miekkal:
miekkal = INT(RND * 50)
LOCATE 21, 8
IF miekkal > 7 THEN PRINT "Löit Huti!                  ": vihv = 1: SLEEP 1: GOTO tapsssa1
LOCATE 21, 8
osuman = INT(RND * 40)
PRINT "Osui, vahinkoa tuli "; osuman; "!    "
venu = venu - osuman
vihv = 1
SLEEP
GOTO tapsssa1
vasaral:
vasaral = INT(RND * 8)
LOCATE 21, 8
IF vasaral > 7 THEN PRINT "Löit Huti!                  ": vihv = 1: SLEEP 1: GOTO tapsssa1
LOCATE 21, 8
osuman = INT(RND * 20)
PRINT "Osui, vahinkoa tuli "; osuman; "!    "
venu = venu - osuman
vihv = 1
SLEEP
GOTO tapsssa1
loppu:
FOR kjeh = 1 TO 550 STEP 2
PSET (kjeh, 0), 0
DRAW "g200"
NEXT
LOCATE 15, 17
COLOR 4
PRINT "Kuolit!"
SLEEP
END

arcatan [18.01.2003 08:02:53]

On aika leveä, eikä ole hyvä tapa pitää kaikkea dataa DATA-lauseessa. GOTOkin on pahasta. Muuten ihan OK...

Katsoin aluksi että RGB-peli, häh, mutta sehän onkin rgp-peli ;)

progo [18.01.2003 11:42:19]

Tiedostoihin olis voinut tunkea tuon kaiken.. ja Goton käyttöä olisi voinut vähennellä :)

progo [18.01.2003 12:03:45]

add: mielenkiintoinen peli, mutta mitkä ovatkaan näppäimet?-) Ja miten ovia saa auki, onko muita maailmoja kuin saari?

snakari [18.01.2003 17:50:29]

ihan kiva hommahan tuo on, mutta onnistuu varmasti järkevämminkin.

KimmoKM [18.01.2003 18:41:08]

Ihan kiva peli, viimeistelyä tarvitaan kuitenkin paljon esim. avaimia ei ole löytynyt mistään. Näppäimet voisi olla nuolinäppäimet tai numeronäppäimet, ja kuvat voisi olla omina tiedostoinaan. Lisäksi GOTOa käytetään liian paljon.

KimmoKM [18.01.2003 18:43:57]

Add: Pkettuhan kirjoittikin, että peli on keskeneräinen.

Gwaur [18.01.2003 20:40:40]

Kimmo, sanoppas millä muulla se tekis ku gotolla ne! Ihan kiva peli, mutta noi viholliste taitaa olla mahdottomia, ainaki kuusi kertaa yritin ja kaikissa hävisin. Ja sitten ton ukon kuvan vois yrittää laittaa läpinäkyväksi.

mikeful [18.01.2003 21:09:14]

Olisiko otettu Qb4All-sivuilta?
Aika samanlainen oli.
Ihan mukava, mutta vaikea.

KimmoKM [18.01.2003 21:19:51]

saasta:
Esim. joku huone voitaisiin laittaa omaan SUBiin. Lisäksi joissakin
IF joku=joku
Tehdään jotain
END IF
kin kävisi, eikä tarvitsisi laittaa GOTOa.

KimmoKM [18.01.2003 21:19:56]

saasta:
Esim. joku huone voitaisiin laittaa omaan SUBiin. Lisäksi joissakin
IF joku=joku
Tehdään jotain
END IF
kin kävisi, eikä tarvitsisi laittaa GOTOa.

anomizer [18.01.2003 23:22:34]

nice

pushpabon [19.01.2003 10:51:52]

Minulla on tuollainem tile*tile scrollingi rpg...tosin en sitä nyt ole paljookaan väsäillyt :/

Tätä en kokeillut vielä, mutta kokeilen juuri.

InvalidCo [30.03.2003 19:41:54]

Minunkin mielestä noi DATA 0101010010101, DATA 0101010010101, DATA 0101010010101 etc.-käskyt olisi voinut tunkee tiedostoon, mut sillonhan sen lataaminen täältä olis ollut paljon vaikeempaa ku eihän täältä sellasii zippi-versioita vinkeistä saa.

comi [19.11.2003 19:32:31]

no jaa. Ainakin toi onnistu toimimaan toisin ku ne mun
vanhat yritykset. Ja DATA-piirtäminen on aika hidasta
että siitä aplodit ahkeruudelle.
Ihan mukava kevyt rope.

GorkkiusSuuri [29.12.2004 22:48:24]

lainaus:

Katsoin aluksi että RGB-peli, häh, mutta sehän onkin rgp-peli ;)

Eli mitä?

moptim [03.07.2006 21:12:31]

saisko binäärit

polsystem [23.10.2006 15:24:59]

Ihan kivalta peliltä vaikuttaa.
GOTOn käyttö on pahasta mutta pelihän on sentään keskeneräinen.

Dude [26.09.2007 17:57:23]

ihan hyvä pelin alaku mutta sekava sorsa. olis voinu sisentää ja käyttää SUBeja. tais olla kova vaiva vääntää kaikki DATAt.

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät