Amiga Dunyasi - Sayi 14 (Temmuz 1991).pdf - Retro Dergi

çarpışan objenin hareketi kesilir.
Her iki yönergede de obje-no belirtilmemişse, işlem o an aktif
çıktı penceresindeki tüm objeler için yapılır.
OBJECT.VX
OBJECT.VY KOMUTLARI:
Kullanım Şekli:
KOMUT FORM ATI - FONKSİYON FORM ATI -
OBJECT.VX obje-noM DEĞER=OBJECT.VX(obje-no)
OBJECT.VY obje-noM DEĞER=OBJECT.VY (obje-no)
Bu iki yönerge, objenin x ve y eksenlerinde hareket hızını tanımlamak
için kullanılır. OBJECT.VX ile obje-no ile belirtilen
objenin yatay eksendeki; OBJECT.VY ile dikey eksendeki hareket
hızı tanımlanır, hız değeri pozitif olduğunda hareket yukarıdan
aşağıya ve sola doğru olur. Ters istikametlerde hareket için
hız değeri negatif sayı ile verilmelidir.
hız, saniyede geçilecek pixel sayısı olarak verilir. Objenin hareket
başlangıcı, OBJECT.START yönergesi ile belirtilen yerdir.
Fonksiyon formatında kullanıldığında, yönergeler obje-no ile
belirtilen objenin x ve y yönlerinde o anki hız değerlerini verirler.
Bu değerleri zaman zaman değerleri değiştirmek veya hesaplamalar
için kullanabilirsiniz.
OBJECT.X
OBJECT.Y KOMUTLARI:
Kullanım Şekli:
KOMUT FORMATI -
FONKSİYON FORMATI-
OBJECT.X obje-no,x-koordinatı DEĞER=OBJECT.X(obje-no)
OBJECT.Y obje-no,y-koordinatı DEĞER= OBJECT.Y(obje-no)
Bu yönergeler objenin çıktı penceresindeki yerleşimini tanımlamak
ya da obje hareketinin başlangıç ve bitiş noktalarını tanımlamak
için kullanılır. Objenin x-koordinatı ile y-koordinatı pencerenin
sol üst köşesinden hesaplanır ve -32768 ile 32767 sınırları
arasında bir sayı olarak girilir. Objenin OBJECT.ON komutunu
görene kadar görüntülenmeyeceğini hatırlayın.
Fonksiyon olarak kullanıldığında objenin yerleşimini verirler. Bu
bilgilerle obje ile yapmak istediklerinizi gerçekleştirebilirsiniz.
Evet... OBJECT yönergelerimiz burada bitti. Şimdi söz verdiğimiz
gibi, tüm bu komut ve fonksiyonlarla yapılmış iki örnek
verelim. İlk örneğimizin adı Yo-Yo. Yazın ve deneyin:
WINDOW 1,"Yo-Yo", (0,0)-(631,184),20
DIM alien$(114)
RESTORE AlienShapeData
FOR n=l TO 114
READ a:alien$=alien$+CHR$(a)
NEXT
OBJECTSHAPE l,alien$
OBJECT.X 1,300:OBJECT.Y 1,10
OBJECT.ON :OBJECT.START
WHILE MOUSE(0)=0
OBJECT. AY 1,10
WHILE OBJECT.VY( 1 )< 100:WEND
OBJ ECT. AY 1,-10
WHILE OBJECT.VY( 1 )>-100:WEND
WEND
OBJECTSTOP:OBJECTCLOSE
AlienShapeData:
DATA 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 2, 0, 0, 0, 26
DATA 0, 0, 0, 11, 0,24, 0, 3
DATA 0, 0, 0,127,128, 0, 1,255
DATA 224, 0, 7,255,248, 0,31,255
DATA 254, 0,248,225,199,192,248,225
DATA 199,192,255,255,255,192, 12,127
DATA 140, 0, 12,127,140, 0,252, 0
DATA 15,192.252, 0, 15,192, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 7,30
DATA 56, 0, 7, 30, 56, 0, 0, 0
DATA 0, 0, 0,127,128, 0, 0,127
DATA 128, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0
Programı çalıştırdığınızda, DATA yönergeleri ile basit bir obje
yaratılıyor ve yaratık ekranda yukarıdan aşağıya doğru saniyede
10 pixel olmak üzere hareket etmeye başlıyor. Programı durdurmak
için sol mouse »usunu kliklemeniz yeterli.
ikinci örneğimiz, obje çarpışmaları ile ilgili. Program, 5 obje
yaratıyor ve siz bunlardan birini mouse yardımıyla ekranda oynatabiliyorsunuz.
Bu oynatma esnasında ortaya çıkan çarpışmalar,
ekranın üst satırındaki mesajla bildiriliyor, programı inceleyin:
SCREEN 1,320,200,3,1
WINDOW 2,"Obje Çarpışma Demosu",(0,0)-(311,I85),20,1
WIDTH 40
PALETTE 0,0,.45,0: PALETTE 1,.9,.9,.9
PALETTE 2,0,0,0:PALETTE 3,.9,.48,.I5
ON BREAK GOSUB Cikis:BREAK ON
ON COLLISION GOSUB Carpisma:COLLISION ON
DIM alien$( 114):RESTORE ObjeSekilData
FOR n=l TO 114
READ a:alien$=alien$+CHR$(a)
NEXT n
OBJECTSHAPE l,alien$
OBJECTSHAPE 2,1 :OBJECT.SHAPE 3,1
OBJECT.SH APE 4,1 :OBJECT.SHAPE 5,1
OBJECT.PLANES 2,5:OBJECTPLANES 3,6
OBJECT.PLANES 4,7:OBJECT.PLANES 5,6,1
OBJECT.HIT 1,2,5 'diğer yaratık ve kenarlar ile çarpışma.
OBJECTHIT 2,4,2 'obje hareket ederek diğerleri ile çarpışır.
OBJECT.HIT 3,4,2
OBJECT.HIT 4,4,2
OBJECT.HIT 5,4,2
FOR n=2 TO 5
OBJECT.X n.n*50-40:OBJECT.Y n,n* 12+20
NEXT n
OBJECT.ON l,2,3,4,5:OBJECT.START:LOCATE 19,5
PRINT "«Cikis için mouse'u klikleyin»"
WHILE MOUSE(0)=0 'ana döngü'
OBJECT.X l,MOUSE(l)-l2:OBJECTY l,MOUSE(2)-l 1
WEND
WHILE MOUSE(0)0:WEND
Cikis:
OBJECT.CLOSE:WINDOW CLOSE 2
SCREEN CLOSE 1:END
Carpisma:
objectID=COLLISION(0)
collisionID=COLLISION(objectID)
LOCATE 1,1 :PRINT SPACE$(2()):PRINT SPACE$(20)
LOCATE LLPRINT "obje #";objectID
IF collisionID=-1 THEN PRINT "ust kenara carpti."
IF collisionID=-2 THEN PRINT "sol kenara carpti."
IF collisionID=-3 THEN PRINT "alt kenara carpti."
IF collisionID=-4 THEN PRINT "sag kenara carpti."
IF collisionID=-5 THEN PRINT "obje #";coliisionID
OBJECT.START:COLLISION ON
RETURN
ObjeSekilData:
DATA 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 2, 0, 0, 0, 26
DATA 0, 0, 0, 11, 0,24, 0, 3
DATA 0, 0, 0,127,128, 0, 1,255
DATA 224, 0, 7,255,248, 0,31,255
DATA 254, 0,248,225,199,192,248,225
DATA 199,192,255,255,255,192, 12,127
DATA 140, 0, 12,127,140, 0,252, 0
DATA 15,192,252, 0, 15,192, 0, 0
DATA 0, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0, 0, 0, 0, 0, 7, 30
DATA 56, 0, 7, 30, 56, 0, 0, 0
DATA 0, 0, 0,127,128, 0, 0,127
DATA 128, 0, 0, 0, 0, 0, 0, 0
DATA 0, 0
Bu ayki Basic tanıtımını OBJECT komutlarına verdiğimiz örneklerle
tamamladık. Gelecek ay bu köşede buluşmak dileğiyle,
hoşçakalın...
AMIGA DÜNYASİ 45