Kayıt: Apr 17, 2004 Mesajlar: 328 Nereden: Balıkesir
Tarih: Tue Dec 06, 2005 12:58 pm Mesaj konusu:
Şimdide Duvarlı hali
Kod:
Global Izopar
Global boyut
Dim Okbil(20,20)
Dim Okbild(20,20)
yerx=-800
yery=+400
Graphics 800,600,32,2
SetBuffer BackBuffer()
Haritadatadosyasi$="haritay.txt"
dosya=ReadFile(Haritadatadosyasi$)
sayi=ReadLine(dosya)
CloseFile dosya
boyut=sayi/2
Izopar=LoadImage("yol.png")
Izopar2=LoadImage("toprak.png")
Izopar5=LoadImage("duvart2.png")
Izopar6=LoadImage("duvart1.png")
;Eğer İzometik çizgi bırakma için genişlikler +2 koyabilsiniz eğer İstermesiniz Kaldırınız.
genislik=ImageWidth (Izopar)+2
yükseklik=ImageHeight(Izopar)+2
genislikyar=genislik/2
yükseklikyar=yükseklik/2
Haritadatadosyasi$="haritay.txt"
dosya=ReadFile(Haritadatadosyasi$)
sayi=ReadLine(dosya)
For y=1 To sayi/2
For b=1 To sayi/2
Okbil(y,b)=ReadLine(dosya)
Text 0+b*9,10*(y),""+Okbil(y,b)
Next
Next
CloseFile dosya
Haritadatadosyasid$="haritad.txt"
dosyad=ReadFile(Haritadatadosyasid$)
sayid=ReadLine(dosyad)
For y=1 To sayid/2
For b=1 To sayid/2
Okbild(y,b)=ReadLine(dosyad)
Text 0+b*9,10*(y),""+Okbild(y,b)
Next
Next
CloseFile dosyad
While Not KeyHit(1)
Cls ; Ekran Temizleme
If MouseX()>700 Then
yerx=yerx-10-(MouseX()-700)/4
End If
If MouseX()<100 Then
yerx=yerx+10-(MouseX()-100)/4
End If
If MouseY()<100 Then
yery=yery+5-(MouseY()-100)/4
End If
If MouseY()>500 Then
yery=yery-5-(MouseY()-500)/4
End If
If KeyDown(203)=1
yerx=yerx+10
End If
If KeyDown(205)=1
yerx=yerx-10
End If
If KeyDown(200)=1
yery=yery+5
End If
If KeyDown(208)=1
yery=yery-5
End If
For a=1 To boyut
For n=1 To boyut
If Okbil(a,n)=1 Then
DrawImage Izopar,(yerx+(genislikyar)*a)+genislikyar*n,yery+(yükseklikyar)*a-(yükseklikyar)*n
End If
If Okbil(a,n)=2 Then
DrawImage Izopar2,(yerx+(genislikyar)*a)+genislikyar*n,yery+(yükseklikyar)*a-(yükseklikyar)*n
End If
Next
Next
For a=1 To boyut
For n=1 To boyut
;DuvarTuğla
If Okbild(a,n)=1 Then
DrawImage Izopar5,(yerx+(genislikyar)*a)+(genislikyar)*(n),yery+(yükseklikyar)*a-(yükseklikyar)*(n+2)
End If
If Okbild(a,n)=2 Then
DrawImage Izopar5,(yerx+(genislikyar)*a)+(genislikyar)*(n),yery+(yükseklikyar)*a-(yükseklikyar)*(n+2)
DrawImage Izopar6,(yerx+(genislikyar)*a)+(genislikyar)*(n),yery+(yükseklikyar)*a-(yükseklikyar)*(n+1)
End If
If Okbild(a,n)=3 Then
DrawImage Izopar5,(yerx+(genislikyar)*a)+(genislikyar)*(n),yery+(yükseklikyar)*a-(yükseklikyar)*(n+2)
DrawImage Izopar6,(yerx+(genislikyar)*a)+(genislikyar)*(n+1),yery+(yükseklikyar)*a-(yükseklikyar)*(n+2)
End If
If Okbild(a,n)=5 Then
DrawImage Izopar5,(yerx+(genislikyar)*a)+(genislikyar)*(n+1),yery+(yükseklikyar)*a-(yükseklikyar)*(n+1)
End If
If Okbild(a,n)=6 Then
DrawImage Izopar6,(yerx+(genislikyar)*a)+(genislikyar)*(n),yery+(yükseklikyar)*a-(yükseklikyar)*(n+1)
End If
If Okbild(a,n)=7 Then
DrawImage Izopar6,(yerx+(genislikyar)*a)+(genislikyar)*(n+1),yery+(yükseklikyar)*a-(yükseklikyar)*(n+2)
DrawImage Izopar5,(yerx+(genislikyar)*a)+(genislikyar)*(n+1),yery+(yükseklikyar)*a-(yükseklikyar)*(n+1)
End If
If Okbild(a,n)=8 Then
DrawImage Izopar6,(yerx+(genislikyar)*a)+(genislikyar)*(n+1),yery+(yükseklikyar)*a-(yükseklikyar)*(n+2)
End If
If Okbild(a,n)=9 Then
DrawImage Izopar6,(yerx+(genislikyar)*a)+(genislikyar)*(n),yery+(yükseklikyar)*a-(yükseklikyar)*(n+1)
DrawImage Izopar5,(yerx+(genislikyar)*a)+(genislikyar)*(n+1),yery+(yükseklikyar)*a-(yükseklikyar)*(n+1)
End If
Next
Next
For y=1 To sayi/2
For b=1 To sayi/2
Text 10+b*9,20+10*(y),""+Okbil(y,b)
Next
Next
For y=1 To sayi/2
For b=1 To sayi/2
Text 200+b*9,20+10*(y),""+Okbild(y,b)
Next
Next
Text 0,0,"Oyunyapimi.org -2005 - Malihsen - Can ÜRÜK - 2D Izomerik Harita Çalışması"
Text 10,20,"Yer Yüzeyleri Kod Düzeni"
Text 200,20,"Duvarlarım Kod Düzeni"
Text 0,550,"Yer X: "+yerx+" Yer Y: "+yery
Bu arada soracaktım lafı açıldı hemen sorayım. Ne oldu unutulmuş savaşlar? Dağıtımcı mı bulamadınız? (En son bitmişti diye hatırlıyorumda). Ya bari çok eskimeden piyasaya sürebilin şu oyunu. Açıkcası 1 müşteriniz var en azından .
Ve Khognar'ı ispiyonlaman iyi oldu; ilgilenen, ihtiyaç duyan ona koşar artık .
Ehehe o oyun ne yazık ki güzel bir tecrübe olarak geride kaldı! Çağın gerisinde kaldığını düşündük vs. ayrıca tam çıkarmayı düşünürken Marjinal diye bir firma şevkimizi kırdı... olsun Khognar oyun programlamada ben de oyun tasarlama ve grafiklerde çok tecrübe kazandım iyi bir dostluk kurduk ve birbirimize karşı sorumluluk hissettiğimizden hiç pes etmedik! Oyun geliştirme sürecinin tüm aşamalarından geçtik... Satsak satardık belki ama... (Yasal aşamaları da çok iyi öğrendik) En azından kendisiyle kesin bir projeye daha girişcez ama ne kadar zaman sonra bilmiyorum... Ayrıca seslendirme için kurduğum seslendirme ekibiyle stüdyo dayken hayatımın en komik anlarını yaşadım... demiri kızgın ateşe sokma sesi için tavada yağ kızarttık sonra da patates yapıp yedik Sizlere tavsiyem güzel olur mu satar mı diye düşüncelere girmeden ciddi bir şekilde bir oyun yapmanız ve bu tecrübeyi edinmeniz!
Bu forumda yeni konular açamazsınız Bu forumdaki mesajlara cevap veremezsiniz Bu forumdaki mesajlarınızı değiştiremezsiniz Bu forumdaki mesajlarınızı silemezsiniz Bu forumdaki anketlerde oy kullanamazsınız
SSS
Arama
Kullanıcı Grupları
Profil
Login
.
Sizlere tavsiyem güzel olur mu satar mı diye düşüncelere girmeden ciddi bir şekilde bir oyun yapmanız ve bu tecrübeyi edinmeniz!