Visual Basicdeki oyun denemem. Labirent 1.0

26-09-2019, 03:55:05

#1
TRJotun

Açık Profil bilgileri

Özel Mesaj Gönder

TRJotun tarafından gönderilen tüm mesajları bul

TRJotun'ı arkadaş olarak ekle
Arkadaşlar visual basicle yaptıgım basit bir gorsel oyun. Kodlarını veriyorum fakat oyunun calışan halini kodlarıyla birlikte vbprogramlama.tr.cx adresinden indirebilirsiniz. Yorumlarınızı bekliyorum. Hepinize iyi calışmalar.

MODULE1

' Dışarıdaki wav dosyalarını calmak:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

FORM

Dim tablo(1 To 20, 1 To 20) As Integer 'ekran değişkenleri atanıyor
Dim konum(1 To 3) As Integer 'adamı yurutmek icin değişkenler atanoyor
Dim canekran(1 To 1, 1 To 3) As Integer 'can değişkenleri atanıyor
Dim cankonum(1 To 2) As Integer 'can azaltma değişkenleri atanıyor
Dim yon As String 'adamın yon değişkeni atanıyor
Dim engel1 As Integer, engel2(1 To 2) As Integer, engel3 As Integer, engel4 As Integer
Dim engel5 As Integer, engel6 As Integer, engel7 As Integer, engel8 As Integer
Dim engel9 As Integer, engel10 As Integer, engel11 As Integer, engel12 As Integer
Dim engel13 As Integer, engel14 As Integer, engel15 As Integer, engel16 As Integer
Dim engel17 As Integer, engel18 As Integer, engel19 As Integer, engel20 As Integer
Dim engel21 As Integer, engel22 As Integer, engel23 As Integer, engel24 As Integer
Dim engel25 As Integer, engel26 As Integer 'canavar değişkenleri atanıyor
Function sil()
'gectiğin yerleri sil:
ekran.PaintPicture resim1.Picture, konum(1), konum(2)
tablo(konum(1), konum(2)) = 0
End Function
Function kal()
'onune duvar gelince olduğun yerde kal:
ekran.PaintPicture resim3.Picture, konum(1), konum(2)
End Function
Function ekranitemizle()
'ekranı boşalt
For i = 1 To 20
For j = 1 To 20
tablo(i, j) = 0
ekran.PaintPicture resim1.Picture, i, j
Next j
Next i
End Function
Function can()
'can azaltma fonksiyonu
If canekran(cankonum(1), cankonum(2)) = 8 Then 'eğer can ekranında 3 can varsa
canekrani.PaintPicture can2.Picture, cankonum(1), cankonum(2) '2 cana duşur
canekran(cankonum(1), cankonum(2)) = 9
sndPlaySound App.Path & "/s3.wav", 2 'canın gitti uyarısını cal
ElseIf canekran(cankonum(1), cankonum(2)) = 9 Then 'can ekranında 2 can varsa
canekrani.PaintPicture can1.Picture, cankonum(1), cankonum(2) '1 cana duşur
canekran(cankonum(1), cankonum(2)) = 10
sndPlaySound App.Path & "/s3.wav", 2
ElseIf canekran(cankonum(1), cankonum(2)) = 10 Then 'can ekranında 1 can varsa
canekrani.PaintPicture sıfırcan.Picture, cankonum(1), cankonum(2)
Timer1.Enabled = False
Timer2.Enabled = False
sndPlaySound App.Path & "/s3.wav", 2
MsgBox "Maalesef kapıya ulaşamadınız!", vbInformation, "Oyun Bitti"
End
End If
End Function
Private Sub ekran_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then 'F2 ye basılınca
Timer1.Enabled = True
Timer2.Enabled = False
'butun satır ve sutunlar hazırlanıyor:
For i = 1 To 20
For j = 1 To 20
tablo(i, j) = 0
ekran.PaintPicture resim1.Picture, i, j
Next j
Next i
'duvarlar oluşturuluyor:
For i = 1 To 20
tablo(1, i) = 1
ekran.PaintPicture resim2.Picture, 1, i
tablo(i, 1) = 1
ekran.PaintPicture resim2.Picture, i, 1
tablo(20, i) = 1
ekran.PaintPicture resim2.Picture, 20, i
tablo(i, 20) = 1
ekran.PaintPicture resim2.Picture, i, 20
Next
ekran.PaintPicture kapi1.Picture, 1, 11
tablo(1, 11) = 4
ekran.PaintPicture kapi2.Picture, 20, 11
tablo(20, 11) = 5
'yurutulecek adam oluşturuluyor:
konum(1) = 2
konum(2) = 11
ekran.PaintPicture resim3.Picture, konum(1), konum(2)
tablo(konum(1), konum(2)) = 2
'can ekranı oluşturuluyor:
cankonum(1) = 1
cankonum(2) = 1
canekrani.PaintPicture can3.Picture, cankonum(1), cankonum(2)
canekran(cankonum(1), cankonum(2)) = 8
'2. satır duvarları oluşturuluyor:
ekran.PaintPicture resim2.Picture, 12, 2
tablo(12, 2) = 1
ekran.PaintPicture resim2.Picture, 14, 2
tablo(14, 2) = 1
'3. satır duvarları oluşturuluyor:
For i = 3 To 5
tablo(i, 3) = 1
ekran.PaintPicture resim2.Picture, i, 3
Next
For i = 16 To 18
tablo(i, 3) = 1
ekran.PaintPicture resim2.Picture, i, 3
Next
For i = 9 To 10
tablo(i, 3) = 1
ekran.PaintPicture resim2.Picture, i, 3
Next
ekran.PaintPicture resim2.Picture, 7, 3
ekran.PaintPicture resim2.Picture, 12, 3
ekran.PaintPicture resim2.Picture, 14, 3
'4. satır duvarları oluşturuluyor:
ekran.PaintPicture resim2.Picture, 7, 4
ekran.PaintPicture resim2.Picture, 14, 4
ekran.PaintPicture resim2.Picture, 18, 4
tablo(7, 3) = 1
tablo(12, 3) = 1
tablo(14, 3) = 1
tablo(7, 4) = 1
tablo(14, 4) = 1
tablo(18, 4) = 1
'5. satır duvarları oluşturuluyor:
For i = 3 To 7
tablo(i, 5) = 1
ekran.PaintPicture resim2.Picture, i, 5
Next
For i = 9 To 11
tablo(i, 5) = 1
ekran.PaintPicture resim2.Picture, i, 5
Next
ekran.PaintPicture resim2.Picture, 16, 5
tablo(16, 5) = 1
'6. satır duvarları oluşturuluyor:
ekran.PaintPicture resim2.Picture, 7, 6
ekran.PaintPicture resim2.Picture, 14, 6
ekran.PaintPicture resim2.Picture, 16, 6
ekran.PaintPicture resim2.Picture, 18, 6
tablo(7, 6) = 1
tablo(14, 6) = 1
tablo(16, 6) = 1
tablo(18, 6) = 1
'7. satır duvarları oluşturuluyor:
For i = 2 To 4
tablo(i, 7) = 1
ekran.PaintPicture resim2.Picture, i, 7
Next
For i = 6 To 8
tablo(i, 7) = 1
ekran.PaintPicture resim2.Picture, i, 7
Next
For i = 10 To 13
tablo(i, 7) = 1
ekran.PaintPicture resim2.Picture, i, 7
Next
ekran.PaintPicture resim2.Picture, 18, 7
tablo(18, 7) = 1
'8. satır duvarları oluşturuluyor:
For i = 15 To 18
tablo(i, 8) = 1
ekran.PaintPicture resim2.Picture, i, 8
Next
ekran.PaintPicture resim2.Picture, 8, 8
tablo(8, 8) = 1
'9. satır duvarları oluşturuluyor:
For i = 5 To 11
tablo(i, 9) = 1
ekran.PaintPicture resim2.Picture, i, 9
Next
For i = 3 To 13 Step 10
tablo(i, 9) = 1
ekran.PaintPicture resim2.Picture, i, 9
Next
'10. satır duvarları oluşturuluyor:
For i = 3 To 10 Step 7
tablo(i, 10) = 1
ekran.PaintPicture resim2.Picture, i, 10
Next
For i = 15 To 16
tablo(i, 10) = 1
ekran.PaintPicture resim2.Picture, i, 10
Next
For i = 13 To 18 Step 5
tablo(i, 10) = 1
ekran.PaintPicture resim2.Picture, i, 10
Next
'11. satır duvarları oluşturuluyor:
For i = 3 To 6
tablo(i, 11) = 1
ekran.PaintPicture resim2.Picture, i, 11
Next
For i = 8 To 10 Step 2
tablo(i, 11) = 1
ekran.PaintPicture resim2.Picture, i, 11
Next
For i = 12 To 13
tablo(i, 11) = 1
ekran.PaintPicture resim2.Picture, i, 11
Next
For i = 16 To 18 Step 2
tablo(i, 11) = 1
ekran.PaintPicture resim2.Picture, i, 11
Next
'12. satır duvarları oluşturuluyor:
For i = 3 To 8 Step 5
tablo(i, 12) = 1
ekran.PaintPicture resim2.Picture, i, 12
Next
For i = 13 To 14
tablo(i, 12) = 1
ekran.PaintPicture resim2.Picture, i, 12
Next
For i = 16 To 16
tablo(i, 12) = 1
ekran.PaintPicture resim2.Picture, i, 12
Next
'13. satır duvarlarıoluşturuluyor:
For i = 3 To 13 Step 10
tablo(i, 13) = 1
ekran.PaintPicture resim2.Picture, i, 13
Next
For i = 5 To 6
tablo(i, 13) = 1
ekran.PaintPicture resim2.Picture, i, 13
Next
For i = 8 To 11
tablo(i, 13) = 1
ekran.PaintPicture resim2.Picture, i, 13
Next
For i = 18 To 19
tablo(i, 13) = 1
ekran.PaintPicture resim2.Picture, i, 13
Next
ekran.PaintPicture resim2.Picture, 16, 13
tablo(16, 13) = 1
'14. satır duvarları oluşturuluyor:
For i = 6 To 11 Step 5
tablo(i, 14) = 1
ekran.PaintPicture resim2.Picture, i, 14
Next
For i = 13 To 13
tablo(i, 14) = 1
ekran.PaintPicture resim2.Picture, i, 14
Next
For i = 15 To 16
tablo(i, 14) = 1
ekran.PaintPicture resim2.Picture, i, 14
Next
'15. satır duvarları oluşturuluyor:
For i = 2 To 4
tablo(i, 15) = 1
ekran.PaintPicture resim2.Picture, i, 15
Next
For i = 6 To 9 Step 3
tablo(i, 15) = 1
ekran.PaintPicture resim2.Picture, i, 15
Next
For i = 11 To 18 Step 7
tablo(i, 15) = 1
ekran.PaintPicture resim2.Picture, i, 15
Next
'16. satır duvarları oluşturuluyor:
For i = 6 To 9
tablo(i, 16) = 1
ekran.PaintPicture resim2.Picture, i, 16
Next
For i = 11 To 16
tablo(i, 16) = 1
ekran.PaintPicture resim2.Picture, i, 16
Next
For i = 18 To 18
tablo(i, 16) = 1
ekran.PaintPicture resim2.Picture, i, 16
Next
'17. satır duvarları oluşturuluyor:
For i = 5 To 6
tablo(i, 17) = 1
ekran.PaintPicture resim2.Picture, i, 17
Next
For i = 3 To 16 Step 13
tablo(i, 17) = 1
ekran.PaintPicture resim2.Picture, i, 17
Next
'18. satır duvarları oluşturuluyor:
For i = 3 To 8 Step 5
tablo(i, 18) = 1
ekran.PaintPicture resim2.Picture, i, 18
Next
For i = 5 To 6
tablo(i, 18) = 1
ekran.PaintPicture resim2.Picture, i, 18
Next
For i = 10 To 16 Step 6
tablo(i, 18) = 1
ekran.PaintPicture resim2.Picture, i, 18
Next
For i = 12 To 14
tablo(i, 18) = 1
ekran.PaintPicture resim2.Picture, i, 18
Next
For i = 18 To 19
tablo(i, 18) = 1
ekran.PaintPicture resim2.Picture, i, 18
Next
'19. satır duvarları oluşturuluyor:
For i = 8 To 10 Step 2
tablo(i, 19) = 1
ekran.PaintPicture resim2.Picture, i, 19
Next
'canavarlar yerleştiriliyor:
ekran.PaintPicture engel.Picture, engel1, 8
tablo(engel1, 8) = 6
ekran.PaintPicture engel.Picture, engel2(1), engel2(2)
tablo(engel2(1), engel2(2)) = 6
ekran.PaintPicture engel.Picture, engel3, 14
tablo(engel3, 14) = 6
ekran.PaintPicture engel.Picture, 7, engel4
tablo(7, engel4) = 6
ekran.PaintPicture engel.Picture, engel5, 16
tablo(engel5, 16) = 6
ekran.PaintPicture engel.Picture, 9, engel6
tablo(9, engel6) = 6
ekran.PaintPicture engel.Picture, engel7, 6
tablo(engel7, 6) = 6
ekran.PaintPicture engel.Picture, engel8, 17
tablo(engel8, 17) = 6
ekran.PaintPicture engel.Picture, engel9, 19
tablo(engel9, 19) = 6
ekran.PaintPicture engel.Picture, engel10, 19
tablo(engel10, 19) = 6
ekran.PaintPicture engel.Picture, 17, engel11
tablo(17, engel11) = 6
ekran.PaintPicture engel.Picture, engel12, 15
tablo(engel12, 15) = 6
ekran.PaintPicture engel.Picture, 17, engel13
tablo(17, engel13) = 6
ekran.PaintPicture engel.Picture, engel14, 12
tablo(engel14, 12) = 6
ekran.PaintPicture engel.Picture, engel15, 8
tablo(engel15, 8) = 6
ekran.PaintPicture engel.Picture, 2, engel16
tablo(2, engel16) = 6
ekran.PaintPicture engel.Picture, 15, engel17
tablo(15, engel17) = 6
ekran.PaintPicture engel.Picture, 6, engel18
tablo(6, engel18) = 6
ekran.PaintPicture engel.Picture, engel19, 2
tablo(engel19, 2) = 6
ekran.PaintPicture engel.Picture, 8, engel20
tablo(8, engel20) = 6
ekran.PaintPicture engel.Picture, engel21, 4
tablo(engel21, 4) = 6
ekran.PaintPicture engel.Picture, engel22, 5
tablo(engel22, 5) = 6
ekran.PaintPicture engel.Picture, engel23, 4
tablo(engel23, 4) = 6
ekran.PaintPicture engel.Picture, 19, engel24
tablo(19, engel24) = 6
ekran.PaintPicture engel.Picture, 19, engel25
tablo(19, engel25) = 6
ekran.PaintPicture engel.Picture, engel26, 9
tablo(engel26, 9) = 6
'yemler yerleştiriliyor:
ekran.PaintPicture yem.Picture, 5, 12
tablo(5, 12) = 7
ekran.PaintPicture yem.Picture, 5, 15
tablo(5, 15) = 7
ekran.PaintPicture yem.Picture, 2, 18
tablo(2, 18) = 7
ekran.PaintPicture yem.Picture, 7, 15
tablo(7, 15) = 7
ekran.PaintPicture yem.Picture, 7, 8
tablo(7, 8) = 7
ekran.PaintPicture yem.Picture, 2, 6
tablo(2, 6) = 7
ekran.PaintPicture yem.Picture, 4, 10
tablo(4, 10) = 7
ekran.PaintPicture yem.Picture, 7, 18
tablo(7, 18) = 7
ekran.PaintPicture yem.Picture, 12, 19
tablo(12, 19) = 7
ekran.PaintPicture yem.Picture, 15, 17
tablo(15, 17) = 7
ekran.PaintPicture yem.Picture, 19, 19
tablo(19, 19) = 7
ekran.PaintPicture yem.Picture, 19, 16
tablo(19, 16) = 7
ekran.PaintPicture yem.Picture, 17, 15
tablo(17, 15) = 7
ekran.PaintPicture yem.Picture, 12, 14
tablo(12, 14) = 7
ekran.PaintPicture yem.Picture, 9, 11
tablo(9, 11) = 7
ekran.PaintPicture yem.Picture, 11, 11
tablo(11, 11) = 7
ekran.PaintPicture yem.Picture, 9, 4
tablo(9, 4) = 7
ekran.PaintPicture yem.Picture, 4, 2
tablo(4, 2) = 7
ekran.PaintPicture yem.Picture, 4, 4
tablo(4, 4) = 7
ekran.PaintPicture yem.Picture, 10, 6
tablo(10, 6) = 7
ekran.PaintPicture yem.Picture, 13, 2
tablo(13, 2) = 7
ekran.PaintPicture yem.Picture, 15, 2
tablo(15, 2) = 7
ekran.PaintPicture yem.Picture, 18, 5
tablo(18, 5) = 7
ekran.PaintPicture yem.Picture, 17, 7
tablo(17, 7) = 7
ekran.PaintPicture yem.Picture, 17, 10
tablo(17, 10) = 7
ekran.PaintPicture yem.Picture, 19, 12
tablo(19, 12) = 7
ekran.PaintPicture yem.Picture, 14, 8
tablo(14, 8) = 7
End If
If KeyCode = vbKeyRight Then yon = "d" 'sağ tuşuna basılırsa adamın yonu doğu
If KeyCode = vbKeyLeft Then yon = "b" 'sol tuşuna basılırsa adamın yonu batı
If KeyCode = vbKeyUp Then yon = "k" 'yukarı tuşuna baslırsa adamın yonu kuzey
If KeyCode = vbKeyDown Then yon = "g" 'aşağı tuşuna basılırsa adamın yonu guney
Select Case yon
Case "d": 'yon doğu ise
If tablo(konum(1) + 1, konum(2)) = 0 Then 'onun boşsa
ekran.PaintPicture resim3.Picture, konum(1) + 1, konum(2) 'bi on kareye atla
tablo(konum(1) + 1, konum(2)) = 2
sil 'gectiğin yeri sil
konum(1) = konum(1) + 1 'yeni konumun
konum(2) = konum(2)
ElseIf tablo(konum(1) + 1, konum(2)) = 1 Then 'onunde duvar varsa
kal 'olduğun yerde kal
ElseIf tablo(konum(1) + 1, konum(2)) = 7 Then 'onunde yem varsa
ekran.PaintPicture resim3.Picture, konum(1) + 1, konum(2) 'yemi al
ekran.PaintPicture resim1.Picture, konum(1), konum(2)
tablo(konum(1) + 1, konum(2)) = 2
tablo(konum(1), konum(2)) = 0
konum(1) = konum(1) + 1 'yeni konumun
konum(2) = konum(2)
sndPlaySound App.Path & "/yem.wav", 2 'yemi aldın uyarısı cal
ElseIf tablo(konum(1) + 1, konum(2)) = 5 Then 'onunde ikinci kapı varsa
For i = 1 To 20
For j = 1 To 20
If tablo(i, j) = 7 Then 'ekranda yem varsa
MsgBox "Butun yemleri toplamalısınız", vbExclamation, "Labirent 1.0"
GoTo 3
End If 'yoksa devam et
Next j
Next i
sndPlaySound App.Path & "/sevinc.wav", 2 'kazandınız uyarısı cal
ekranitemizle
Timer1.Enabled = False
Timer2.Enabled = False
MsgBox "Başardınız tebrikler.", vbInformation, "Kazandınız"
End
3: ElseIf tablo(konum(1) + 1, konum(2)) = 6 Then 'onunde canavar varsa
can 'canı kontrol et
End If
Case "b": 'yon batı ise...........
If tablo(konum(1) - 1, konum(2)) = 0 Then
ekran.PaintPicture resim3.Picture, konum(1) - 1, konum(2)
tablo(konum(1) - 1, konum(2)) = 2
sil
konum(1) = konum(1) - 1
konum(2) = konum(2)
ElseIf tablo(konum(1) - 1, konum(2)) = 1 And tablo(konum(1) - 1, konum(2)) = 4 Then
kal
ElseIf tablo(konum(1) - 1, konum(2)) = 7 Then
ekran.PaintPicture resim3.Picture, konum(1) - 1, konum(2)
ekran.PaintPicture resim1.Picture, konum(1), konum(2)
tablo(konum(1) - 1, konum(2)) = 2
tablo(konum(1), konum(2)) = 0
konum(1) = konum(1) - 1
konum(2) = konum(2)
sndPlaySound App.Path & "/yem.wav", 2
ElseIf tablo(konum(1) - 1, konum(2)) = 6 Then
can
End If
Case "k":
If tablo(konum(1), konum(2) - 1) = 0 Then
ekran.PaintPicture resim3.Picture, konum(1), konum(2) - 1
tablo(konum(1), konum(2) - 1) = 2
sil
konum(1) = konum(1)
konum(2) = konum(2) - 1
ElseIf tablo(konum(1), konum(2) - 1) = 1 Then
kal
ElseIf tablo(konum(1), konum(2) - 1) = 7 Then
ekran.PaintPicture resim3.Picture, konum(1), konum(2) - 1
ekran.PaintPicture resim1.Picture, konum(1), konum(2)
tablo(konum(1), konum(2) - 1) = 2
tablo(konum(1), konum(2)) = 0
konum(1) = konum(1)
konum(2) = konum(2) - 1
sndPlaySound App.Path & "/yem.wav", 2
ElseIf tablo(konum(1), konum(2) - 1) = 6 Then
can
End If
Case "g":
If tablo(konum(1), konum(2) + 1) = 0 Then
ekran.PaintPicture resim3.Picture, konum(1), konum(2) + 1
tablo(konum(1), konum(2) + 1) = 2
sil
konum(1) = konum(1)
konum(2) = konum(2) + 1
ElseIf tablo(konum(1), konum(2) + 1) = 1 Then
kal
ElseIf tablo(konum(1), konum(2) + 1) = 7 Then
ekran.PaintPicture resim3.Picture, konum(1), konum(2) + 1
ekran.PaintPicture resim1.Picture, konum(1), konum(2)
tablo(konum(1), konum(2) + 1) = 2
tablo(konum(1), konum(2)) = 0
konum(1) = konum(1)
konum(2) = konum(2) + 1
sndPlaySound App.Path & "/yem.wav", 2
ElseIf tablo(konum(1), konum(2) + 1) = 6 Then
can
End If

End Select
End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2 'monitor ekranını ortala
ekran.Scale (1, 1)-(21, 21) 'ekranı 20 ye 20(ekran değişkenleri) lik karelere bol
engel1 = 2
engel2(1) = 4
engel2(2) = 12
engel3 = 7
engel4 = 10
engel5 = 2
engel6 = 19
engel7 = 6
engel8 = 10
engel9 = 14
engel10 = 2
engel11 = 19
engel12 = 12
engel13 = 12
engel14 = 12
engel15 = 11
engel16 = 2
engel17 = 11
engel18 = 2
engel19 = 9
engel20 = 4
engel21 = 11
engel22 = 12
engel23 = 15
engel24 = 2
engel25 = 8
engel26 = 16
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
'canavarların doğu ve kuzeye hareket etmeleri(engel)
'1.engel
If tablo(engel1 + 1, 8) = 0 Then 'onun boşsa
ekran.PaintPicture engel.Picture, engel1 + 1, 8 'bi sonraki kareye gec
tablo(engel1 + 1, 8) = 6
ekran.PaintPicture resim1.Picture, engel1, 8 'gectiğin yeri temizle
tablo(engel1, 8) = 0
engel1 = engel1 + 1 'yeni konumun
ElseIf tablo(engel1 + 1, 8) = 1 Then 'onunde duvar varsa
Timer1.Enabled = False 'doğu ve kuzey hareketini durdur
Timer2.Enabled = True 'batı ve guney hareketine gec
ElseIf tablo(engel1 + 1, 8) = 2 Then 'onunde adam varsa
can 'can kontrolu yap
End If
If tablo(engel2(1), engel2(2) + 1) = 0 Then '2.engel
ekran.PaintPicture engel.Picture, engel2(1), engel2(2) + 1
tablo(engel2(1), engel2(2) + 1) = 6
ekran.PaintPicture resim1.Picture, engel2(1), engel2(2)
tablo(engel2(1), engel2(2)) = 0
engel2(2) = engel2(2) + 1
ElseIf tablo(engel2(1), engel2(2) + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel2(1), engel2(2) + 1) = 2 Then
can
End If
If tablo(engel3 + 1, 14) = 0 Then '3.engel
ekran.PaintPicture engel.Picture, engel3 + 1, 14
tablo(engel3 + 1, 14) = 6
ekran.PaintPicture resim1.Picture, engel3, 14
tablo(engel3, 14) = 0
engel3 = engel3 + 1
ElseIf tablo(engel3 + 1, 14) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel3 + 1, 14) = 2 Then
can
End If
If tablo(7, engel4 + 1) = 0 Then '4.engel
ekran.PaintPicture engel.Picture, 7, engel4 + 1
tablo(7, engel4 + 1) = 6
ekran.PaintPicture resim1.Picture, 7, engel4
tablo(7, engel4) = 0
engel4 = engel4 + 1
ElseIf tablo(7, engel4 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(7, engel4 + 1) = 2 Then
can
End If
If tablo(engel5 + 1, 16) = 0 Then '5.engel
ekran.PaintPicture engel.Picture, engel5 + 1, 16
tablo(engel5 + 1, 16) = 6
ekran.PaintPicture resim1.Picture, engel5, 16
tablo(engel5, 16) = 0
engel5 = engel5 + 1
ElseIf tablo(engel5 + 1, 16) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel5 + 1, 16) = 2 Then
can
End If
If tablo(9, engel6 + 1) = 0 Then '6.engel
ekran.PaintPicture engel.Picture, 9, engel6 + 1
tablo(9, engel6 + 1) = 6
ekran.PaintPicture resim1.Picture, 9, engel6
tablo(9, engel6) = 0
engel6 = engel6 + 1
ElseIf tablo(9, engel6 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(9, engel6 + 1) = 2 Then
can
End If
If tablo(engel7 + 1, 6) = 0 Then '7.engel
ekran.PaintPicture engel.Picture, engel7 + 1, 6
tablo(engel7 + 1, 6) = 6
ekran.PaintPicture resim1.Picture, engel7, 6
tablo(engel7, 6) = 0
engel7 = engel7 + 1
ElseIf tablo(engel7 + 1, 6) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel7 + 1, 6) = 2 Then
can
End If
If tablo(engel8 + 1, 17) = 0 Then '8.engel
ekran.PaintPicture engel.Picture, engel8 + 1, 17
tablo(engel8 + 1, 17) = 6
ekran.PaintPicture resim1.Picture, engel8, 17
tablo(engel8, 17) = 0
engel8 = engel8 + 1
ElseIf tablo(engel8 + 1, 17) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel8 + 1, 17) = 2 Then
can
End If
If tablo(engel9 + 1, 19) = 0 Then '9.engel
ekran.PaintPicture engel.Picture, engel9 + 1, 19
tablo(engel9 + 1, 19) = 6
ekran.PaintPicture resim1.Picture, engel9, 19
tablo(engel9, 19) = 0
engel9 = engel9 + 1
ElseIf tablo(engel9 + 1, 19) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel9 + 1, 19) = 2 Then
can
End If
If tablo(engel10 + 1, 19) = 0 Then '10.engel
ekran.PaintPicture engel.Picture, engel10 + 1, 19
tablo(engel10 + 1, 19) = 6
ekran.PaintPicture resim1.Picture, engel10, 19
tablo(engel10, 19) = 0
engel10 = engel10 + 1
ElseIf tablo(engel10 + 1, 19) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel10 + 1, 19) = 2 Then
can
End If
If tablo(17, engel11 + 1) = 0 Then '11.engel
ekran.PaintPicture engel.Picture, 17, engel11 + 1
tablo(17, engel11 + 1) = 6
ekran.PaintPicture resim1.Picture, 17, engel11
tablo(17, engel11) = 0
engel11 = engel11 + 1
ElseIf tablo(17, engel11 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(17, engel11 + 1) = 2 Then
can
End If
If tablo(engel12 + 1, 15) = 0 Then '12.engel
ekran.PaintPicture engel.Picture, engel12 + 1, 15
tablo(engel12 + 1, 15) = 6
ekran.PaintPicture resim1.Picture, engel12, 15
tablo(engel12, 15) = 0
engel12 = engel12 + 1
ElseIf tablo(engel12 + 1, 15) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel12 + 1, 15) = 2 Then
can
End If
If tablo(17, engel13 + 1) = 0 Then '13.engel
ekran.PaintPicture engel.Picture, 17, engel13 + 1
tablo(17, engel13 + 1) = 6
ekran.PaintPicture resim1.Picture, 17, engel13
tablo(17, engel13) = 0
engel13 = engel13 + 1
ElseIf tablo(17, engel13 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(17, engel13 + 1) = 2 Then
can
End If
If tablo(engel14 + 1, 12) = 0 Then '14.engel
ekran.PaintPicture engel.Picture, engel14 + 1, 12
tablo(engel14 + 1, 12) = 6
ekran.PaintPicture resim1.Picture, engel14, 12
tablo(engel14, 12) = 0
engel14 = engel14 + 1
ElseIf tablo(engel14 + 1, 12) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel14 + 1, 12) = 2 Then
can
End If
If tablo(engel15 + 1, 8) = 0 Then '15.engel
ekran.PaintPicture engel.Picture, engel15 + 1, 8
tablo(engel15 + 1, 8) = 6
ekran.PaintPicture resim1.Picture, engel15, 8
tablo(engel15, 8) = 0
engel15 = engel15 + 1
ElseIf tablo(engel15 + 1, 8) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel15 + 1, 8) = 2 Then
can
End If
If tablo(2, engel16 + 1) = 0 Then '16.engel
ekran.PaintPicture engel.Picture, 2, engel16 + 1
tablo(2, engel16 + 1) = 6
ekran.PaintPicture resim1.Picture, 2, engel16
tablo(2, engel16) = 0
engel16 = engel16 + 1
ElseIf tablo(2, engel16 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(2, engel16 + 1) = 2 Then
can
End If
If tablo(15, engel17 + 1) = 0 Then '17.engel
ekran.PaintPicture engel.Picture, 15, engel17 + 1
tablo(15, engel17 + 1) = 6
ekran.PaintPicture resim1.Picture, 15, engel17
tablo(15, engel17) = 0
engel17 = engel17 + 1
ElseIf tablo(15, engel17 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(15, engel17 + 1) = 2 Then
can
End If
If tablo(6, engel18 + 1) = 0 Then '18.engel
ekran.PaintPicture engel.Picture, 6, engel18 + 1
tablo(6, engel18 + 1) = 6
ekran.PaintPicture resim1.Picture, 6, engel18
tablo(6, engel18) = 0
engel18 = engel18 + 1
ElseIf tablo(6, engel18 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(6, engel18 + 1) = 2 Then
can
End If
If tablo(engel19 + 1, 2) = 0 Then '19.engel
ekran.PaintPicture engel.Picture, engel19 + 1, 2
tablo(engel19 + 1, 2) = 6
ekran.PaintPicture resim1.Picture, engel19, 2
tablo(engel19, 2) = 0
engel19 = engel19 + 1
ElseIf tablo(engel19 + 1, 2) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel19 + 1, 2) = 2 Then
can
End If
If tablo(8, engel20 + 1) = 0 Then '20.engel
ekran.PaintPicture engel.Picture, 8, engel20 + 1
tablo(8, engel20 + 1) = 6
ekran.PaintPicture resim1.Picture, 8, engel20
tablo(8, engel20) = 0
engel20 = engel20 + 1
ElseIf tablo(8, engel20 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(8, engel20 + 1) = 2 Then
can
End If
If tablo(engel21 + 1, 4) = 0 Then '21.engel
ekran.PaintPicture engel.Picture, engel21 + 1, 4
tablo(engel21 + 1, 4) = 6
ekran.PaintPicture resim1.Picture, engel21, 4
tablo(engel21, 4) = 0
engel21 = engel21 + 1
ElseIf tablo(engel21 + 1, 4) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel21 + 1, 4) = 2 Then
can
End If
If tablo(engel22 + 1, 5) = 0 Then '22.engel
ekran.PaintPicture engel.Picture, engel22 + 1, 5
tablo(engel22 + 1, 5) = 6
ekran.PaintPicture resim1.Picture, engel22, 5
tablo(engel22, 5) = 0
engel22 = engel22 + 1
ElseIf tablo(engel22 + 1, 5) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel22 + 1, 5) = 2 Then
can
End If
If tablo(engel23 + 1, 4) = 0 Then '23.engel
ekran.PaintPicture engel.Picture, engel23 + 1, 4
tablo(engel23 + 1, 4) = 6
ekran.PaintPicture resim1.Picture, engel23, 4
tablo(engel23, 4) = 0
engel23 = engel23 + 1
ElseIf tablo(engel23 + 1, 4) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel23 + 1, 4) = 2 Then
can
End If
If tablo(19, engel24 + 1) = 0 Then '24.engel
ekran.PaintPicture engel.Picture, 19, engel24 + 1
tablo(19, engel24 + 1) = 6
ekran.PaintPicture resim1.Picture, 19, engel24
tablo(19, engel24) = 0
engel24 = engel24 + 1
ElseIf tablo(19, engel24 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(19, engel24 + 1) = 2 Then
can
End If
If tablo(19, engel25 + 1) = 0 Then '25.engel
ekran.PaintPicture engel.Picture, 19, engel25 + 1
tablo(19, engel25 + 1) = 6
ekran.PaintPicture resim1.Picture, 19, engel25
tablo(19, engel25) = 0
engel25 = engel25 + 1
ElseIf tablo(19, engel25 + 1) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(19, engel25 + 1) = 2 Then
can
End If
If tablo(engel26 + 1, 9) = 0 Then '26.engel
ekran.PaintPicture engel.Picture, engel26 + 1, 9
tablo(engel26 + 1, 9) = 6
ekran.PaintPicture resim1.Picture, engel26, 9
tablo(engel26, 9) = 0
engel26 = engel26 + 1
ElseIf tablo(engel26 + 1, 9) = 1 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElseIf tablo(engel26 + 1, 9) = 2 Then
can
End If
End Sub
Private Sub Timer2_Timer()
'canavarların batı ve guneye hareket etmeleri....
If tablo(engel1 - 1, 8) = 0 Then '1. engel
ekran.PaintPicture engel.Picture, engel1 - 1, 8
tablo(engel1 - 1, 8) = 6
ekran.PaintPicture resim1.Picture, engel1, 8
tablo(engel1, 8) = 0
engel1 = engel1 - 1
ElseIf tablo(engel1 - 1, 8) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel1 - 1, 8) = 2 Then
can
End If
If tablo(engel2(1), engel2(2) - 1) = 0 Then '2. engel
ekran.PaintPicture engel.Picture, engel2(1), engel2(2) - 1
tablo(engel2(1), engel2(2) - 1) = 6
ekran.PaintPicture resim1.Picture, engel2(1), engel2(2)
tablo(engel2(1), engel2(2)) = 0
engel2(2) = engel2(2) - 1
ElseIf tablo(engel2(1), engel2(2) - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel2(1), engel2(2) - 1) = 2 Then
can
End If
If tablo(engel3 - 1, 14) = 0 Then '3. engel
ekran.PaintPicture engel.Picture, engel3 - 1, 14
tablo(engel3 - 1, 14) = 6
ekran.PaintPicture resim1.Picture, engel3, 14
tablo(engel3, 14) = 0
engel3 = engel3 - 1
ElseIf tablo(engel3 - 1, 14) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel3 - 1, 14) = 2 Then
can
End If
If tablo(7, engel4 - 1) = 0 Then '4. engel
ekran.PaintPicture engel.Picture, 7, engel4 - 1
tablo(7, engel4 - 1) = 6
ekran.PaintPicture resim1.Picture, 7, engel4
tablo(7, engel4) = 0
engel4 = engel4 - 1
ElseIf tablo(7, engel4 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(7, engel4 - 1) = 2 Then
can
End If
If tablo(engel5 - 1, 16) = 0 Then '5. engel
ekran.PaintPicture engel.Picture, engel5 - 1, 16
tablo(engel5 - 1, 16) = 6
ekran.PaintPicture resim1.Picture, engel5, 16
tablo(engel5, 16) = 0
engel5 = engel5 - 1
ElseIf tablo(engel5 - 1, 16) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel5 - 1, 16) = 2 Then
can
End If
If tablo(9, engel6 - 1) = 0 Then '6. engel
ekran.PaintPicture engel.Picture, 9, engel6 - 1
tablo(9, engel6 - 1) = 6
ekran.PaintPicture resim1.Picture, 9, engel6
tablo(9, engel6) = 0
engel6 = engel6 - 1
ElseIf tablo(9, engel6 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(9, engel6 - 1) = 2 Then
can
End If
If tablo(engel7 - 1, 6) = 0 Then '7. engel
ekran.PaintPicture engel.Picture, engel7 - 1, 6
tablo(engel7 - 1, 6) = 6
ekran.PaintPicture resim1.Picture, engel7, 6
tablo(engel7, 6) = 0
engel7 = engel7 - 1
ElseIf tablo(engel7 - 1, 6) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel7 - 1, 6) = 2 Then
can
End If
If tablo(engel8 - 1, 17) = 0 Then '8. engel
ekran.PaintPicture engel.Picture, engel8 - 1, 17
tablo(engel8 - 1, 17) = 6
ekran.PaintPicture resim1.Picture, engel8, 17
tablo(engel8, 17) = 0
engel8 = engel8 - 1
ElseIf tablo(engel8 - 1, 17) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel8 - 1, 17) = 2 Then
can
End If
If tablo(engel9 - 1, 19) = 0 Then '9. engel
ekran.PaintPicture engel.Picture, engel9 - 1, 19
tablo(engel9 - 1, 19) = 6
ekran.PaintPicture resim1.Picture, engel9, 19
tablo(engel9, 19) = 0
engel9 = engel9 - 1
ElseIf tablo(engel9 - 1, 19) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel9 - 1, 19) = 2 Then
can
End If
If tablo(engel10 - 1, 19) = 0 Then '10. engel
ekran.PaintPicture engel.Picture, engel10 - 1, 19
tablo(engel10 - 1, 19) = 6
ekran.PaintPicture resim1.Picture, engel10, 19
tablo(engel10, 19) = 0
engel10 = engel10 - 1
ElseIf tablo(engel10 - 1, 19) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel10 - 1, 19) = 2 Then
can
End If
If tablo(17, engel11 - 1) = 0 Then '11. engel
ekran.PaintPicture engel.Picture, 17, engel11 - 1
tablo(17, engel11 - 1) = 6
ekran.PaintPicture resim1.Picture, 17, engel11
tablo(17, engel11) = 0
engel11 = engel11 - 1
ElseIf tablo(17, engel11 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(17, engel11 - 1) = 2 Then
can
End If
If tablo(engel12 - 1, 15) = 0 Then '12. engel
ekran.PaintPicture engel.Picture, engel12 - 1, 15
tablo(engel12 - 1, 15) = 6
ekran.PaintPicture resim1.Picture, engel12, 15
tablo(engel12, 15) = 0
engel12 = engel12 - 1
ElseIf tablo(engel12 - 1, 15) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel12 - 1, 15) = 2 Then
can
End If
If tablo(17, engel13 - 1) = 0 Then '13. engel
ekran.PaintPicture engel.Picture, 17, engel13 - 1
tablo(17, engel13 - 1) = 6
ekran.PaintPicture resim1.Picture, 17, engel13
tablo(17, engel13) = 0
engel13 = engel13 - 1
ElseIf tablo(17, engel13 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(17, engel13 - 1) = 2 Then
can
End If
If tablo(engel14 - 1, 12) = 0 Then '14. engel
ekran.PaintPicture engel.Picture, engel14 - 1, 12
tablo(engel14 - 1, 12) = 6
ekran.PaintPicture resim1.Picture, engel14, 12
tablo(engel14, 12) = 0
engel14 = engel14 - 1
ElseIf tablo(engel14 - 1, 12) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel14 - 1, 12) = 2 Then
can
End If
If tablo(engel15 - 1, 8) = 0 Then '15. engel
ekran.PaintPicture engel.Picture, engel15 - 1, 8
tablo(engel15 - 1, 8) = 6
ekran.PaintPicture resim1.Picture, engel15, 8
tablo(engel15, 8) = 0
engel15 = engel15 - 1
ElseIf tablo(engel15 - 1, 8) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel15 - 1, 8) = 2 Then
can
End If
If tablo(2, engel16 - 1) = 0 Then '16. engel
ekran.PaintPicture engel.Picture, 2, engel16 - 1
tablo(2, engel16 - 1) = 6
ekran.PaintPicture resim1.Picture, 2, engel16
tablo(2, engel16) = 0
engel16 = engel16 - 1
ElseIf tablo(2, engel16 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(2, engel16 - 1) = 2 Then
can
End If
If tablo(15, engel17 - 1) = 0 Then '17. engel
ekran.PaintPicture engel.Picture, 15, engel17 - 1
tablo(15, engel17 - 1) = 6
ekran.PaintPicture resim1.Picture, 15, engel17
tablo(15, engel17) = 0
engel17 = engel17 - 1
ElseIf tablo(15, engel17 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(15, engel17 - 1) = 2 Then
can
End If
If tablo(6, engel18 - 1) = 0 Then '18. engel
ekran.PaintPicture engel.Picture, 6, engel18 - 1
tablo(6, engel18 - 1) = 6
ekran.PaintPicture resim1.Picture, 6, engel18
tablo(6, engel18) = 0
engel18 = engel18 - 1
ElseIf tablo(6, engel18 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(6, engel18 - 1) = 2 Then
can
End If
If tablo(engel19 - 1, 2) = 0 Then '19. engel
ekran.PaintPicture engel.Picture, engel19 - 1, 2
tablo(engel19 - 1, 2) = 6
ekran.PaintPicture resim1.Picture, engel19, 2
tablo(engel19, 2) = 0
engel19 = engel19 - 1
ElseIf tablo(engel19 - 1, 2) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel19 - 1, 2) = 2 Then
can
End If
If tablo(8, engel20 - 1) = 0 Then '20. engel
ekran.PaintPicture engel.Picture, 8, engel20 - 1
tablo(8, engel20 - 1) = 6
ekran.PaintPicture resim1.Picture, 8, engel20
tablo(8, engel20) = 0
engel20 = engel20 - 1
ElseIf tablo(8, engel20 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(8, engel20 - 1) = 2 Then
can
End If
If tablo(engel21 - 1, 4) = 0 Then '21. engel
ekran.PaintPicture engel.Picture, engel21 - 1, 4
tablo(engel21 - 1, 4) = 6
ekran.PaintPicture resim1.Picture, engel21, 4
tablo(engel21, 4) = 0
engel21 = engel21 - 1
ElseIf tablo(engel21 - 1, 4) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel21 - 1, 4) = 2 Then
can
End If
If tablo(engel22 - 1, 5) = 0 Then '22. engel
ekran.PaintPicture engel.Picture, engel22 - 1, 5
tablo(engel22 - 1, 5) = 6
ekran.PaintPicture resim1.Picture, engel22, 5
tablo(engel22, 5) = 0
engel22 = engel22 - 1
ElseIf tablo(engel22 - 1, 5) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel22 - 1, 5) = 2 Then
can
End If
If tablo(engel23 - 1, 4) = 0 Then '23. engel
ekran.PaintPicture engel.Picture, engel23 - 1, 4
tablo(engel23 - 1, 4) = 6
ekran.PaintPicture resim1.Picture, engel23, 4
tablo(engel23, 4) = 0
engel23 = engel23 - 1
ElseIf tablo(engel23 - 1, 4) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel23 - 1, 4) = 2 Then
can
End If
If tablo(19, engel24 - 1) = 0 Then '24. engel
ekran.PaintPicture engel.Picture, 19, engel24 - 1
tablo(19, engel24 - 1) = 6
ekran.PaintPicture resim1.Picture, 19, engel24
tablo(19, engel24) = 0
engel24 = engel24 - 1
ElseIf tablo(19, engel24 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(19, engel24 - 1) = 2 Then
can
End If
If tablo(19, engel25 - 1) = 0 Then '25. engel
ekran.PaintPicture engel.Picture, 19, engel25 - 1
tablo(19, engel25 - 1) = 6
ekran.PaintPicture resim1.Picture, 19, engel25
tablo(19, engel25) = 0
engel25 = engel25 - 1
ElseIf tablo(19, engel25 - 1) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(19, engel25 - 1) = 2 Then
can
End If
If tablo(engel26 - 1, 9) = 0 Then '26. engel
ekran.PaintPicture engel.Picture, engel26 - 1, 9
tablo(engel26 - 1, 9) = 6
ekran.PaintPicture resim1.Picture, engel26, 9
tablo(engel26, 9) = 0
engel26 = engel26 - 1
ElseIf tablo(engel26 - 1, 9) = 1 Then
Timer1.Enabled = True
Timer2.Enabled = False
ElseIf tablo(engel26 - 1, 9) = 2 Then
can
End If
End Sub

__________________