Keskustelu: Koodit: VB6: Tekstipeli

Dim KeyAski As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyAski = KeyCode - 48
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
KeyAski = -1
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
KeyAski = -1
Form1.Caption = "Tekstipeli"
Me.BackColor = RGB(0, 0, 0)
Me.ForeColor = RGB(255, 255, 255)
End Sub

Private Sub Form_Resize()
Do Until KeyAski = 1 Or KeyAski = 2
Cls
at 30, 2
Print "Tekstipeli"
at 2, 3
Print ""
Print "Tässä huonossa pelissä tavoitteenasi on ajaa HUMALASSA kotiin. Matkan"
Print "varrella on valppaita poliiseja, jalankulkijoita ja muita tientuhlaa-"
Print "jia, jotka pirauttavat poliisille. Haluatko pelata?"
Print ""
Print "1. Kyllä"
Print "2. En ikinä!"
DoEvents
Loop
If KeyAski = 1 Then
GoTo Alotus:
Else
GoTo Lopetus:
End If
Lopetus:
KeyAski = -1
Do While KeyAski = -1
Cls
at 2, 2
Me.FontSize = 10
Print "Paina mitä tahansa näppäintä poistuaksesi."
Me.FontSize = 12
Print ""
Print "Made by KingOfTheWorld"
DoEvents
Loop
End
Alotus:
KeyAski = -1
Do Until KeyAski = 1 Or KeyAski = 2 Or KeyAski = 3 Or KeyAski = 4
Cls
at 2, 2
Print "Olet lähdössä, ja kotisi on koillisessa. Minne lähdet?"
Print ""
Print "1. Kaakkoon"
Print "2. Lounaaseen"
Print "3. Luoteeseen"
Print "4. KOILLISEEN!!!"
DoEvents
Loop
If KeyAski = 4 Then GoTo KytätPistiRautoihin:
If KeyAski = 3 Then GoTo MinneNyt:
If KeyAski = 2 Then GoTo MinneNyt:
If KeyAski = 1 Then GoTo MinneNytKaks:
MinneNytKaks:
KeyAski = -1
Do Until KeyAski = 1 Or KeyAski = 2
Cls
Print "Entä nyt?"
Print ""
Print "1. Pohjoiseen (koti on siellä)"
Print "2. Etelään"
DoEvents
Loop
If KeyAski = 2 Then GoTo KytätPistiRautoihin:
KeyAski = -1
Do While KeyAski = -1
Cls
Me.FontSize = 10
Print "Läpäisit pelin!!!"
Print ""
Me.FontSize = 8
Print "Paina mitä tahansa näppäintä jatkaaksesi"
DoEvents
Loop
GoTo Lopetus:
MinneNyt:
KeyAski = -1
Do Until KeyAski > 0 And KeyAski < 5
Cls
Print "Entä nyt?"
Print ""
Print "1. Koilliseen"
Print "2. Kaakkoon"
Print "3. Lounaaseen"
Print "4. Luoteeseen"
DoEvents
Loop
GoTo KytätPistiRautoihin:
KytätPistiRautoihin:
KeyAski = -1
Do While KeyAski = -1
Cls
at 2, 2
Print "Poliisit laittoivat sinut rautoihin."
DoEvents
Loop
GoTo Lopetus:
End Sub
Sub at(x, y) 'psionin komento jolla siirretään tekstikursori, kopsattu hirsipuusta.

    CurrentX = TextWidth(" ") * (x - 1)
    CurrentY = TextHeight(" ") * (y - 1)

End Sub