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
miks tää ei toimi
vituttaa...
1
236
Vastaukset
- kysymys sulle
Paljonkos maksat?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
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 kol2624341Stefu haikailee
Julkaisi stooreissa kuvan vickestä. Sitten Martinasta treenaamassa Hangossa ulkona. Hmm.2653538Harmi 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 ku1591861Oi! 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/viihde251734Lavrov 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,2991457Ketä Sofia fanit veikkaatte seuraavaksi lompakoksi?
Kenestä Sofia höynäyttää itselleen seuraavan lompakon?133989Suomi24 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 pe18896Voiko 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 vuo235869en 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ä va115862