;Programızın Başlığı ve Çıkış Sorusu
AppTitle " Blitz3d'de 2 Boyutlu Çalışma 1 - Kutu ve Hareketledirme","Bu Dersten Çıkmak İstiyorum"

; Şimdi Direct3D Çalıştırıyoruz.
Graphics3D 640,480,32,2

; İki Misli Tamponlama Yapıyoruz.
SetBuffer BackBuffer()

; Kutumuzda Kullanacağımız Değişkenleri Ayarlıyoruz.
kutu1_x = -20 ; Negatif Kullanmamızın Nedeni Ekranda Görünmesin Diye.
kutu1_y = 240

While Not KeyHit(1) ;Eğer Esc Tuşuna basınca Çıkmamıza yarar.
Cls ; Sürekli Ekranı Temizle Nedenide Önceki Ekranı Silerek Bize Yeni Görüntüyü Hazılamak.
Color 255, 255, 255 ;Altaki Kutumuzu Beyaz Boyadık
Rect kutu1_x,kutu1_y,20,20,1 ; Kutumu Ekrana Çizdirdik.
Color 255, 0, 0 ;Altaki Kutumuzu Kırmıza Boyadık
Rect kutu2_x,kutu2_y,30,30,0 ; Kutumu Ekrana Çizdirdik.İçi Boş

Flip ; Ekrana görüntü süreklini verir.
kutu1_x = kutu1_x + 1 ; Değeri Yükselterek Kutu Götürüyoruz Hareket +x Yönünde 1 değerini 2 yaptığımızda hızlanacaktır.
If kutu1_x = 640 Then kutu1_x=-20 ; Kutumuzun x=640 yani ekrana dışına gelince başa geri gön.

If KeyDown( 205 )=True Then kutu2_x=kutu2_x+2 ;İçi Boş Kutumuzu Sağ Hareketi İçin Sağ Tuşa Basmayı Ayarladık
If KeyDown( 203 )=True Then kutu2_x=kutu2_x-2 ;İçi Boş Kutumuzu Sol Hareketi İçin Sol Tuşa Basmayı Ayarladık
If KeyDown( 208 )=True Then kutu2_y=kutu2_y+2 ;İçi Boş Kutumuzu Yukarı Hareketi İçin Yukarı Tuşa Basmayı Ayarladık
If KeyDown( 200 )=True Then kutu2_y=kutu2_y-2 ;İçi Boş Kutumuzu Aşağı Hareketi İçin Aşağı Tuşa Basmayı Ayarladık


Wend ;While Döngümüz Başa Döndürmek İçin.
EndGraphics ;Artık Direct3D yi Kapatıyoruz ve Hafızayı Boşaltıyoruz
End ;While Döngüsünden Çıkınca Programı Kapatmak İçin .

;Can ÜRÜK - malihsen - Balıkesir