kuinka tehdään tekstiseikkailu

mä tarkoytin semmosia seikkailuja kuten pelastakaa sotamis masa, erkki ja vaikka mitä muita

muutki vastatkaa tähän

kumiankka kirjoitti:

mä tarkoytin semmosia seikkailuja kuten pelastakaa sotamis masa, erkki ja vaikka mitä muita

muutki vastatkaa tähän

alku:
PRINT "Olet metsässä, edessäsi on mahtava kelo."
$vastaus = INPUT "Mitä teet?"
IF $vastaus = "jatka eteenpäin" THEN
PRINT "Päätät uhkarohkeasti jatkaa eteenpäin sinua kalvavasta pelosta huolimatta."
GOTO huone2
ELSE IF $vastaus = "palaa takaisin" THEN
PRINT "Päätit palata kotiin, ehkäpä se oli viisas ratkaisu - olet ainakin elossa. Mutta sinun osaltasi peli loppui siihen."
GOTO loppu
ELSE
PRINT "Jäit seisomaan hämmentyneenä ja karhu tulee ja raatelee sinut hengiltä."
GOGO loppu
END IF
loppu:
PRINT "Peli loppu"
$vastaus = INPUT "Haluatko pelata uuden pelin?"
IF $vastaus = "kyllä" THEN
GOTO alku
ELSE:
PRINT "Näkemiin!"
QUIT
END IF

koodaaja kirjoitti:

alku:
PRINT "Olet metsässä, edessäsi on mahtava kelo."
$vastaus = INPUT "Mitä teet?"
IF $vastaus = "jatka eteenpäin" THEN
PRINT "Päätät uhkarohkeasti jatkaa eteenpäin sinua kalvavasta pelosta huolimatta."
GOTO huone2
ELSE IF $vastaus = "palaa takaisin" THEN
PRINT "Päätit palata kotiin, ehkäpä se oli viisas ratkaisu - olet ainakin elossa. Mutta sinun osaltasi peli loppui siihen."
GOTO loppu
ELSE
PRINT "Jäit seisomaan hämmentyneenä ja karhu tulee ja raatelee sinut hengiltä."
GOGO loppu
END IF
loppu:
PRINT "Peli loppu"
$vastaus = INPUT "Haluatko pelata uuden pelin?"
IF $vastaus = "kyllä" THEN
GOTO alku
ELSE:
PRINT "Näkemiin!"
QUIT
END IF

Tuo oli ilmeisesti basicille.
Ja täällä lisää siitä ja vähän muusta: http://mbnet.fi/lanahard/ohjelmointi.html
Ohjelmointiputkassa on myös suht. hyvin: http://www.ohjelmointiputka.net