miks tää ei toimi

vituttaa... kirjoitti:

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

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä