Opasarkisto: Peliohjelmointi Visual Basicilla: Osa 3 - Kokonaisuus ja viimeistely

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   'näppäinpainalluksiin reagoidaan vain silloin kun
   'peli on käynnissä
   If Kaynnissa Then
       'jos käyttäjä painaa...
       Select Case KeyCode
           '...vasemmalle...
           Case vbKeyLeft ' = 37
               '...yritetään liikkua vasemmalle
               Liiku PalloX - 1, PalloY
           '...ylös...
           Case vbKeyUp ' = 38
               '...yritetään liikkua ylös
               Liiku PalloX, PalloY - 1
           '...oikealle...
           Case vbKeyRight ' = 39
               '...yritetään liikkua oikealle
               Liiku PalloX + 1, PalloY
           '...alas...
           Case vbKeyDown ' = 40
               '...yritetään liikkua alas
               Liiku PalloX, PalloY + 1
       End Select
   End If
End Sub

Sub Liiku(x As Integer, y As Integer)
   'jos siirto-muuttujan arvoksi tulee tosi, on aika
   'siirtyä seuraavalle tasolle
   Dim siirto As Boolean

   'jos uusi paikka ei ole pelitason ulkopuolella, voidaan jatkaa
   If x >= 0 And y >= 0 And x <= 9 And y <= 9 Then
       'jos uusi paikka ei ole seinä, voidaan jatkaa
       If Taso(x, y) <> SEINA Then
           'jos uusi paikka on tason loppu...
           If Taso(x, y) = LOPPU Then
               '...tarkistetaan, onko kaikki jalokivet kerätty...
               If Jalokivet = 0 Then
                   '...jolloin voidaan siirtyä seuraavalle tasolle
                   siirto = True
               Else
                   '...muussa tapauksessa soitetaan esteääni...
                   SoitaAani "este"
                   '...ja poistutaan aliohjelmasta
                   Exit Sub
               End If
           'jos uusi paikka on joku neljästä lukosta...
           ElseIf Taso(x, y) >= LUKKOP And Taso(x, y) <= LUKKOK Then
               '...tarkistetaan onko samanväristä avainta käytössä
               '(avainpalikan tunnus on aina neljä pienempi kuin
               'lukkopalikan)...
               If Avaimet(Taso(x, y) - 4) > 0 Then
                   '...ja vähennetään senväristen avainten määrää yhdellä
                   Avaimet(Taso(x, y) - 4) = Avaimet(Taso(x, y) - 4) - 1
               Else
                   '...muussa tapauksessa soitetaan esteääni...
                   SoitaAani "este"
                   '...ja poistutaan aliohjelmasta
                   Exit Sub
               End If
           'jos taas uusi paikka on joku avaimista...
           ElseIf Taso(x, y) >= AVAINP And Taso(x, y) <= AVAINK Then
               '...soitetaan asiaankuuluva ääni...
               SoitaAani "avain"
               '...ja lisätään senväristen avainten määrää yhdellä
               Avaimet(Taso(x, y)) = Avaimet(Taso(x, y)) + 1
           'ja jos uusi paikka on jalokivi...
           ElseIf Taso(x, y) = JALOKIVI Then
               '...soitetaan jalokiviääni...
               SoitaAani "jalokivi"
               '...vähennetään puuttuvien jalokivien määrää yhdellä...
               Jalokivet = Jalokivet - 1
               '...ja päivitetään ikkunan ylälaidan tiedot
               NaytaTiedot
           End If
           'päivitetään taulukkoon pallon uusi paikka...
           Taso(x, y) = PALLO
           '...ja vanhan paikka muuttuu käytäväksi
           Taso(PalloX, PalloY) = KAYTAVA
           'vastaavasti piirretään pallo uuteen paikkaan...
           PiirraKuva PALLO, 1 + x, 1 + y
           '...ja vanhaan paikkaan käytäväpala
           PiirraKuva KAYTAVA, 1 + PalloX, 1 + PalloY
           'laitetaan pallon uudet koordinaatit talteen
           PalloX = x
           PalloY = y
       End If
   End If

   'jos täytyy siirtyä uudelle tasolle...
   If siirto Then
       '...soitetaan siitä muistuttava ääni
       SoitaAani "loppu"
       'jos hakemistosta löytyy seuraavaa tasoa vastaava tiedosto...
       If TiedostoOlemassa(App.Path & "\" & NTaso + 1 & ".tas") Then
           '...kasvatetaan tasomuuttujaa yhdellä...
           NTaso = NTaso + 1
           '...ladataan taso...
           LataaTaso NTaso
           '...ja näytetään se
           PiirraTaso
       Else
           'muussa tapauksessa näytetään lopetusilmoitus...
           MsgBox "Peli päättyi - selvitit kaikki tasot!"
           '...pysäytetään ajastin...
           jakija.Timer1.Interval = 0
           '...ja pelikään ei enää ole käynnissä
           Kaynnissa = False
       End If
   End If
End Sub

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Const SND_ASYNC = &H1

Sub SoitaAani(nimi As String)
   'tähän muuttujaan tallennetaan funktion palautusarvo,
   'jolla ei kylläkään tee tässä tapauksessa mitään
   Dim a As Long
   'ensimmäinen parametri on soitettavan tiedoston nimi,
   'toinen on soittotapa (SND_ASYNC tarkoittaa, että
   'ääni soi taustalla keskeyttämättä ohjelmaa)
   a = sndPlaySound(App.Path & "\" & nimi & ".wav", SND_ASYNC)
End Sub

Private Sub Timer1_Timer()
   'vähennetään aikaa yhdellä
   Aika = Aika - 1
   'päivitetään yläpalkin tiedot
   NaytaTiedot
   'jos aika on nolla...
   If Aika = 0 Then
       '...pysäytetään ajastin...
       Timer1.Interval = 0
       '...lopetetaan peli...
       Kaynnissa = False
       '...ja näytetään ilmoitus ajan loppumisesta
       MsgBox "Peli päättyi - aika loppui!"
   End If
End Sub

'aliohjelma Uusi-valikkokohdan painamiselle
Private Sub mUusi_Click()
   'aloitetaan uusi peli
   UusiPeli
End Sub

'aliohjelma Tekijätiedot-valikkokohdan painamiselle
Private Sub mTekijaT_Click()
   'näytetään pelin nimi ja tekijä viesti-ikkunassa
   'vbCrLf eli Chr(13) + Chr(10) tarkoittaa rivinvaihtoa
   MsgBox "Jalokivijahti" & vbCrLf & "© Antti Laaksonen 2003"
End Sub

'aliohjelma Sulje-valikkokohdan painamiselle
Private Sub mSulje_Click()
   'suljetaan ohjelma
   End
End Sub