Keskustelu: Koodit: QB: Tekstiseikkailu 2

'Intro:
CLS 'Ruudun tyhjennys pelin alussa
BEEP 'Ääni efekti joka toimii joissakin tietokoneissa
COLOR 4 'Punaista tekstiä
PRINT "Tekstiseikkailu" 'Pelin nimi
COLOR 7 'Valkoista tekstiä
PRINT 'Printtaa tyhjän rivin
PRINT "(tehty with Lanahard tekstipeli tutoriaali)"
SLEEP 2 'Tovin viive
'Koodia selkeyttävä, mutta muuten turha tyhjä rivi
valikko:
CLS 'Ruudun tyhjennys
PRINT "Valikko:"
PRINT
PRINT "1. Peli <--Aloita peli"
PRINT "2. Ohje <--Lukase ohje"
PRINT "3. Pois <--Lopeta peli"
INPUT a
IF a = 1 THEN GOTO peli
IF a = 2 THEN GOTO ohje
IF a = 3 THEN GOTO pois ELSE GOTO valikko

peli:
CLS
PRINT "Heräät aamulla."
pelijatko:
PRINT "Mitä teet?"
PRINT
PRINT "1. Sapuskoin"
PRINT "2. Tapan itseni"
PRINT "3. Menen ulos"
INPUT a
IF a = 1 THEN GOTO k1
IF a = 2 THEN GOTO kuolo
IF a = 3 THEN GOTO k2

k1:
CLS
PRINT "Syöt puuroa..."
SLEEP 2
GOTO pelijatko

k2:
CLS
PRINT "Onneksi olkoon! Pääsit pelin läpi!"
GOTO pois

kuolo:
CLS
COLOR 4
PRINT "Et päässyt peliä vielä läpi."
COLOR 7
PRINT "-Parempi onni ensi kerralla!"
SLEEP 3
GOTO valikko

ohje:
PRINT "Jos et osaa pelata niin lue Lue mut.txt"
SLEEP '"Paina jotain nappia" tyyppinen paussi
GOTO valikko

pois:
PRINT
PRINT "Mene Tekstipeli nettiin:"
PRINT "http://koti.mbnet.fi/lanahard"
SLEEP 1
END 'Lopetus