Keskustelu: Koodit: QB: Tekstipeliesimerkki

'Tekstipeliesimerkki by viles

Cls
Print "Tekstiseikkailu"
Print "Paina jotain näppäintä"
SLEEP
GoTo valikko

valikko:
Cls
Print "Tervetuloa pelaamaan"
Print ""
Print "1.Aloita peli"
Print "2.Ohjeet"
Print "3.Tekijä"
Print "4.Lopeta"
INPUT alku$
If (alku$ = "1") Then
GOTO chap1
End If
If (alku$ = "2") Then
GoTo ohjeet
End If
If (alku$ = "3") Then
GoTo tekija
End If
If (alku$ = "4") Then
End
Else
GoTo valikko
End If

ohjeet:
Cls
Print "Noh, koitat päästä pelin läpi, annat numeroita ja painat enteriä :)"
Print "Paina jotain!"
SLEEP
GoTo valikko

tekija:
Cls
Print "Tänne tekijän tiedot!"
Print "Paina jotain!"
SLEEP
GoTo valikko

'Sitte peli :)
chap1:
Cls
Print "Olet katolla ja tehtäväsi on tulla turvallisesti alas ja ulos"
Print "Olet hieman juovuksissa"
Print ""
Print "1.Hyppää"
Print "2.Mene kattoluukusta"
Print "3.Mene savupiipusta"
Print "4.Odota kunnes joku huomaa sinut"
INPUT chap.1v$
IF (chap.1v$ = "1") THEN
GOTO chap1d
End If
IF (chap.1v$ = "2") THEN
GOTO chap2
End If
IF (chap.1v$ = "3") THEN
GOTO chap1d2
End If
IF (chap.1v$ = "4") THEN
GOTO chap1d3
Else
GOTO chap1
End If

chap1d:
Cls
Print "Hulluko olet?"
Print "Kuolit kun putosit"
Print "Paina jotain"
SLEEP
GoTo valikko

chap1d2:
Cls
Print "Etkö pönttö nähnyt, että sieltä tuprusi savua?"
Print "Kuolema"
Print "Paina jotain"
SLEEP
GoTo valikko

chap1d2:
Cls
Print "Osama Bin Laden käveli ohitse ja ampui sinut!"
Print "Paina jotain"
SLEEP
GoTo valikko

chap2:
Cls
Print "Hyvä hienoa osasit ulos :)"
Print "Tästä voitkin jatkaa itse"
SLEEP
GoTo valikko