Sayfa 16

Tekrar Merhaba ! Yeniden Amos Pro ile karşınızdayım. Bu aydan itibaren daha profesyonel çalışmaya başlıyoruz, haberiniz olsun. Artık Amos Pro köşesinde komut açıklamak veya ufak efektler vermek yerine işe yaramaya çalışan programlar vereceğim. Yalnız programlar sizin yardımınızla gelişecek, yani sizden programda kullanmak için fikir ve rutinler bekliyorum. Yeri geldiğinde yine önemli gördüğüm bazı konuları ve komutları açıklayacağım. Örneğin; Bob, Dualplayfield gibi. Ama bu açıklamalar komut açıklaması halinde değil, ufak programlar içinde olacak. Ağırlık, başta belirttiğim gibi programcılıkta olacak. Sizden her konuda rutin ve fikir bekliyorum. Herhangi bir konuda yazdığınız programları bana gönderebilirsiniz. Dergide yayınlanacaktır. Bu aya kadar hiç kimse hiçbirşey göndermediğinden herhangi birşey yayınlayamadım. Bu ay ise inanılmaz birşey oldu ve bir okurdan program geldi. Yazının sonunda programı bulabilirsiniz. Demo efektleri ile ilgilenenlerin ilginç bulacaklarından eminim. M. Devrim Erdem'e programı için teşekkürler. Sanırım ilerideki sayılarda da ona ait rutinleri yazılarımda bulacaksınız.

Ve şimdi biraz haber; Amos Pro, Kickstart V3.0 makinalarda çalişmıyor. Şu anda çalışabilen tek Amos versiyonu, Amos 1.35. AGA'yı desteklediği söylenmekte, ama pek inanmayın. Çünkü, hala 1008'e 1008'lik ekran sınırı inatla korunmakta(!). Yeni blitter' ne kadar iyi kullandığı ise tartışılır Yazdığınız programlar tabi ki daha hızlı çalışıyor. Ama 3.0 makinaların en ufak modeli A1200'de bile 68020 olduğu düşünülürse bu hız makinanın getirdiği bir üstünlükmüş gibi geliyor. Amos 1.35'in ise panik içinde çıkarılmış bir versiyon olup olmadığı sorusu insanın aklına takılıyor. Hala Amos 1.30 kullananlar için bu versiyon ek bir özellik getirmekte, artık Noise Tracker modüllerini direkt Amos Bank'ı olarak alıp çalabilmesi. Yazımın içinde bu komutların kısa açıklamalarını bulabilirsiniz. İkinci haber ise bir oyunla ilgili. Türkiye'de Amos ile bir oyun daha yapıldı. UMUT TARLALARI. Uzun zamandan beri çalışmaları süren oyun geçen aydan itibaren satışa sunuldu. Tanıtımını bu sayıda bulabilirsiniz, kendilerine başarılar dilerim.

Haberler bitti. Şimdi ilk olarak Noise Tracker komutları ve ardından bu ay başlayan programımız. Track Load "Modül ismi",bank no Modülü verilen banka yükler. Track Play bank no. Verilen bank no'daki modülü çalar. Track Stop Müziği durdurur. Evet heyecanla beklediğiniz bölüme geldik. Bu ayki program ve açıklaması. Açıklamaya geçmeden belirteyim verdiğim program henüz tamamlanmış durumda değil. Başta da belirttiğim gibi programı beraber geliştireceğiz. (Eğer birşeyler göndermeye niyetlenirseniz). Program IFF resimler üzerinde çeşitli efektler yapmaya yarıyor. Bu sayıda verdiğim kısım ise sadece ikon kontrol ve bazı ikonların işlevlerinden ibaret. Ekran efektleri henüz hazır değil. Ne tip efekt yapacağıma da henüz karar vermedim, önerilerinizi bekliyorum. Program içinde daha önceden açıklamadığım bazı komutlar var. Bunların kısaca açıklamasını vermek istiyorum.

XMouse , YMouse : Mouse pointer'ının X ve Y pozisyonlarını öğrenmekte kullanılır. XScreen , YScreen : Program içinde bu komutların kullanımı Xscreen(Xmouse) şeklinde. Bu kullanım sayesinde Mouse pointer'ının ekran üzerindeki X pozisyonunu öğrenebilirsiniz. Limit Mouse X1,Y1 to X2,Y2

Mouse pointer'ının verilen koordinatlar dışına çıkmamasını sağlar. Parametre vermeden kullanırsanız. Mouse ekran boyundaki alanda sınırlanır Text X,Y, "YAZI" basar.

: Verilen ekran koordinatlarına verilen yazıyı

Bu aylık bu kadar gelecek aya sizlerden gelen önerilere ve rutinlere yer vermek isterim. Bu yüzden bana yazın veya dergiyi arayın. Kendi yaptıklarınızdan bahsedin. Varsa örnekler gönderin. Sadece oyun oynayan insanlar olmadığınızı kanıtlayan birşeyler yapın. Görüşmek üzere.

TOLGA KAHRAMAN

'* Efekt 1.00 - Amiğa Dergisi 1993 *

Dim IKONT(10,2),İKONB(10,2),IKONTEX$ (10) Dim İKONCOL (10) Global İKONB () , İKONTEX$ () Global IKONCOL () , IKONSAY INITPROG MAIN

Procedure MAIN Limit Mouse 128,243 To 448,308 Do If Mouse Key-l MX—X Screen(X Mouse) BASILAN-0 For To IKONSAY If MX>-IKONT(K,1) If MX<-IKONB(K,1) BASILAN—K Exit End If End If Next If BASILAN>O SHADEBOX(IKONT(K,1),İIKONT(K,2), '© İKONBİK,1), İKONTEX$(K), IKONCOL(K) | If BASILAN-2 Limit Mouse Limit Moüse 128,243 To 448,308 Screen To Front 0 : Screen O İKONB(K,1),IKONB(K,2),True, Ve IKONTEX$ (K) , (K) |

: MY-Y Sereen(Y Mouse)

and MY>-IKONT(K,2) and MY<-—IKONB(K,2)

End If İf BASILAN-3 Limit Mouse SAVIFF Limit Mouse 128,243 To 448,308 Sereen To Front O : Sereen O SHADEBOX(IKONT(K,İ),İKONT(K,2), '© IKONB(K,1),IKONB(K,2),True, 8 İKONTEX$ (K) , IKONCOL (K) | End I1f If BASILAN-7 Fade 5 Exit End if End If End If Loop End Proc

Procedure INITPROG Degree Screen Open Screen Display Palette ie O; O, Or

NOT: Program dökümünde kullanılan işareti sütunlarımızın darlığı yüzünden kesilen satırları belirtmektedir. Lütfen bu karakteri gördüğünüz satırda devam edin ve sonuna kadar return veya enter tuşlarına basmayın.