miks tää ei toimi

vituttaa...

en saa toimiin tätä vaikka minkä tekisin.
voi olla että tää on pelkkää virhettä täynnä mutta osaako joku korjata virheet tästä?

Dim vastaus As String
Dim pNIMI As String
Dim tpmViesti As String

GoTo ALKURUUTU

'-------------------------------------------------------------------------------
ALKURUUTU:
Color 7, 0
Vaihtoehtoja = 2
Cls
Print "Tämä on tekstipeli."
Print "jotain tekstiä"
Print
PRINT 1. Jatka..
Print 2#; Lopeta
If Vaihtoehtoja Then
INPUT "?", vastaus
numero = Val(vastaus)
If numero Vaihtoehtoja Then GoTo ALKURUUTU
Select Case numero
Case 1
GoTo Ruutu2
Case 2
End
End Select
Else
SLEEP
GoTo ALKURUUTU
End If
'-------------------------------------------------------------------------------
Ruutu2:
Color 7, 0
Vaihtoehtoja = 0
Cls
Print "Peli alkoi. Pistä tähän ensimmäiset vaihtoehdot."
Print
If Vaihtoehtoja Then
INPUT "?", vastaus
numero = Val(vastaus)
If numero Vaihtoehtoja Then GoTo Ruutu2
Select Case numero
End Select
Else
SLEEP
GoTo Ruutu2
End If
End 'Lopeta peli, jos jostain syystä ajauduttiin tänne ilman lupaa...
'-------------------------------------------------------------------------------
' PELIMOOTTORIN ERIKOISTOIMINNOT:
'-------------------------------------------------------------------------------

tpmNaytaViesti:

LOCATE 10 - 2, 4
Print Chr$(218) String$(72, 196) Chr$(191)
LOCATE 10 - 1, 4
Print Chr$(179) String$(72, 32) Chr$(179)
LOCATE 10 - 1, 6: Print "Viesti: (paina jotain...)"
LOCATE 10, 4
Print Chr$(195) String$(72, 196) Chr$(180)
LOCATE 10 1, 4
Print Chr$(179) String$(72, 32) Chr$(179)
LOCATE 10 2, 4
Print Chr$(179) String$(72, 32) Chr$(179)
LOCATE 10 3, 4
Print Chr$(179) String$(72, 32) Chr$(179)
LOCATE 10 4, 4
Print Chr$(179) String$(72, 32) Chr$(179)
LOCATE 10 5, 4
Print Chr$(179) String$(72, 32) Chr$(179)
LOCATE 10 6, 4
Print Chr$(179) String$(72, 32) Chr$(179)
LOCATE 10 7, 4
Print Chr$(192) String$(72, 196) Chr$(217)

LOCATE 10 3, 40 - Len(tpmViesti) / 2
Print tpmViesti

SLEEP

Return

'-------------------------------------------------------------------------------

tpmTallennaPeli:

Open "Save.gam" For Output As #1

Close #1

Return

'-------------------------------------------------------------------------------

tpmLataaPeli:

Open "Save.gam" For Input As #1

Close #1

Return

'-------------------------------------------------------------------------------

tpmNaytaTavarat

Print "Tama ominaisuus ei ole viela valmis."

Return

1

236

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kysymys sulle

      Paljonkos maksat?

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Ukrainan ulkoministeri: Moskova aistii tappion Ukrainassa

      Dmytro Kuleban mukaan Venäjä yrittää puheillaan pelotella länsimaita. Ukrainan ulkoministerin Dmytro Kuleban mukaan Venäjän esittämät varoitukset kol
      NATO
      262
      4341
    2. Stefu haikailee

      Julkaisi stooreissa kuvan vickestä. Sitten Martinasta treenaamassa Hangossa ulkona. Hmm.
      Kotimaiset julkkisjuorut
      265
      3538
    3. Harmi mies ettet arvostanut

      Minua tarpeeksi. Myöhemmin kaikki olisi palkittu ja olisin antanut sinulle aitoa rakkautta. Tämä sattuu mutta yritän ajatella, että ehkä se rakkaus ku
      Ikävä
      159
      1861
    4. Oi! Legandaarinen Vesa-Matti "Vesku" Loiri, 77, poseeraa kahdessa eri kuvassa - Some riemastui!

      Vesa-Matti "Vesku" Loiri on kyllä legenda jo eläessään. Hienoa nähdä, että virtaa piisaa. Voimia, iloa ja eloa, Vesku! https://www.suomi24.fi/viihde
      Suomalaiset julkkikset
      25
      1734
    5. Lavrov väläyttelee WW3:sta

      Venäjän ulkoministeri Sergei Lavrov varoittaa, että kolmannen maailmansodan uhka on todellinen. Lavrov sanoi venäläiselle uutistoimisto Interfaxille,
      Maailman menoa
      299
      1457
    6. Ketä Sofia fanit veikkaatte seuraavaksi lompakoksi?

      Kenestä Sofia höynäyttää itselleen seuraavan lompakon?
      Kotimaiset julkkisjuorut
      133
      989
    7. Suomi24 kysely: ihmisten kuplautumista ei pääosin koeta vakavaksi ongelmaksi

      “Kuplautumista on mahdotonta estää. Ihmiset ovat aina viihtyneet samankaltaiset arvot ja maailmankatsomuksen jakavassa seurassa ja muodostaneet sen pe
      Suomi24 Blogi ★
      18
      896
    8. Voiko hyvää omatuntoa ostaa?

      Olen tässä nyt muutaman päivän paininut erään rahaan liittyvän pulman kanssa. Kerron ensin vähän taustaa ... Eli erosin 15 vuoden parisuhteesta 9 vuo
      Sinkut
      235
      869
    9. en vaan saa häntä pois

      Mielestäni pyörimästä. Onko kellekään toiselle käynyt näin? Ihastuin pakkomielteisesti noin vuosi sitten erääseen naiseen. Ei vaan katoa mielestä va
      Ikävä
      115
      862
    Aihe