ozmoz
Kayıt: Jul 16, 2005 Mesajlar: 37
|
Tarih: Sat Dec 10, 2005 2:29 pm Mesaj konusu: Bana sıkça sorulan soruların cevapları |
|
|
rem koşan objenin atak yapması ve sıçraması:
rem objeleri yükleyiniz
rem bu program Dark Basic 1,3,3 te yazılmıştır ama tüm sürümlerde
rem denedim çalıştı
rem oyun burda başlıyor
load object "kos.x",1
y#=3
rem 1 numaralı obje kos.x olarak belirlendi
bas:
if say>132 then say=0
rem bu şekilde belirlenmezse obje hareket etmez
if say=0 then play object 1
say=say+1
if mouseclick()=1 and dur=0 then load object "saldir.x" ,1:say=131:dur=1
rem farenin sağ tuşuna basıldığında 1 numaralı objemiz saldır.x oluyor
if dur=0 and sayac=1 then load object "kos.x" ,1:say=131
if dur=1 then inc y#,0.01
rem bu komut sıçramayı sağlıyor
if y#>4 and sayac=0 then y#=3 :dur=0:sayac=1
rem burda yere iniyor ve tekrar koşuyor
position object 1,0,y#,-15
goto bas |
|