Bu sayfadaki yazılar
Sayfanın metni
Sayfa 49
Evet... Myth'in ikinci bölümüne hoşgeldiniz. Umarım hepiniz 600 obol kazanmışsınızdır. Ne kadar zorlandığınızı tahmin edebiliyorum. Siz yine de sonunun ne olduğunu biliyordunuz. Ben her 100 obol'da bir şimdi bitecek, şimdi bitecek diye beynimi yiyiyordum. Hele 500 Obol'a geldiğimde büyük hayal kırıklığına uğradım.
Oyunun ikinci bölümünün tam çözümüne geçmeden önce geçen ay dizgi hataları yüzünden yanlış çıkmış bazı komutları belirtmek istiyorum;
İlki oyuna başladığımız kapının doğusundaki bahçedeki kamışı almak için verilen komut GET REED yerine GET FEED olarak çıkmış.
İkinci hata ise kuzuyu öldürmek için verilen komut. JUMP TO LAMP yazılması gerekirken JUMP TO TREE olarak yazılmış. Bu hataları düzelttikten sonra oyunun ikinci bölümüne geçebiliriz.
Şimdi yapmamız gereken şey aldığımız anahtarları karşıya geçirmek. Ama bunu yapmak hiç de kolay değil. Zaten oyunun en zor bilmecesi bu. Anahtarları nasıl karşıya geçireceğimiz, anahtarları aldığımız dolaptaki notta yazıyordu. İlk önce DROP ALL KEYS komutunu vererek bütün anahtarları bırakın. Ve eksiksiz olarak aşağıdaki komutları yazmaya başlayın.
TAKE LARGE GOLD KEY, TAKE LAR- GE BRONZE KEY, NORTH, WAIT {Ferry iskeleye yanaşana kadar), NORTH, WAIT (Ferry karşıya geçene kadar), NORTH,
DROP LARGE GOLD KEY, SOUTH (Ferry'e geri dönelim), WAIT, SOUTH (İskeleye geri döndük)
GET LARGE SILVER KEY, NORTH, WAIT, NORTH, DROP LARGE SILVER KEY, SOUTH, WAIT, SOUTH
DROP LARGE BRONZE KEY, GET SMALL GOLD KEY, GET SMALL BRONZE KEY, NORTH, WAIT, NORTH, DROP SMALL BRONZE KEY, GET LAR- GE GOLD KEY, SOUTH, WAIT, SOUTH
DROP LARGE GOLD KEY, GET SMALL SILVER KEY NORTH, WAIT, NORTH, DROP SMALL GOLD KEY, DROP SMALL SILVER KEY, TAKE LARGE SILVER KEY, SOUTH, WAIT, SOUTH
GET LARGE BRONZE KEY, NORTH, WAIT, NORTH, DROP LARGE BRONZE KEY, SOUTH, WAIT, SOUTH
TAKE LARGE GOLD KEY, NORTH, WAIT, NORTH
Evet anahtarları karşıya sağ salim geçirdik. Bence burada kaldığınız yeri diskete kaydedin ve bu arada da arkanıza yaslanıp biraz dinlenin.
Şimdi yolun 2/3'ünü tamamlamış sayılırız. TAKE ALL KEYS ile karşıya geçirdiğimiz bütün anahtarları alalım. NORTH, NORTH, NORTH, WEST komutlarını verdikten sonra GET HAT ile şapkayı alıp WEST ile geri dönün. NORTH komutunu vererek sarayın kapısının önüne gelelim.
Kapı açmak bütün adventure oyunlarının klasik bilmecesidir. Bu kapı da tahmin edebileceğiniz gibi açık değil. Ve aldığımız onca anahtarın hiçbirisi açmıyor. O zaman biz de etrafı araştıralım. WEST komutu ile batıya gittiğimizde burada bir ip ve havada uçuşan avcı kuşlar dikkatimizi çekiyor. İpi
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 48
Box XS2,YS2 To X2,Y2 Box XS2,YS2 To X2,Y2 Until Mouse Click=l DX2=Abs(XS2-X2) DY2=Abs(YS2-Y2) Zoom 0,XS1,YS1,XS1+DX1,YS1,DY1 To 1 ,XS2,YS2,XS2+DX2,YS2+DY2 Repeat For 1=0 To 1 Screen To Front I Wait 50 Next I Until Mouse Click=l
Şu ana kadar bir sürü ekran komutu gördük. Fakat bunların hiçbiri, ekran renklerine direkt olarak kumanda etmiyordu. Gelin şimdi AMOS dünyamızı biraz daha renklendirelim ve ekran renklerinin ayarlanmasına geçelim.
Daha önce 'colour' komutunu görmüştük. Şimdi ilk olarak daha kuvvetli bir komut olan 'palette' komutunu göreceğiz. Bunu sizi bir sürü satırı tekrarlamak zahmetinden kurtaracak olan 'Default palette' ve 'Get palette' komutları izleyecek.
KOMUT: Palette KULLANILIŞ: palette renk listesi 'colour' komutu, teker teker renkleri ayarlamak için kullanılıyordu, 'palette' ise, bir ekranda kullanılan renklerin hepsini veya bir kısmını tek bir seferde ayarlamak içindir. Aşağıdaki örnek satırlarda bunu daha iyi anlayabilirsiniz:
Palette $ABC,$FFF,$B08 ilk üç rengi set eder. Palette $AAA,$BCC,$007,$011 ise '0,1,5' ve '7' numaralı renkleri değiştirir. Diğerleri aynı kalır.
KOMUT: Default palette KULLANILIŞ: Default palette renk listesi Eğer birden fazla ekran açacaksanız ve bunların hepsinin aynı renklere sahip olmalarını arzu ediyorsanız, bunu 'default palette' komutu ile gerçekleştirebilirsiniz. Kullanımı az önceki gibidir. Farkı fiyatı değildir, yaptığı iştir. Bu komutu kullandıktan sonra açacağınız bütün ekranlar aynı renklere sahip olur.
KOMUT: Get palette KULLANILIŞ: Get palette n[,maske] Bu komut sayesinde bir ekranın renklerini diğer bir ekranda da kullanabilirsiniz. İsteğe bağlı olarak tanımlayabileceğiniz bir maske ile renklerin sadece bir kısmını almak mümkündür. İleride bununla ilgili daha fazla bilgi vereceğim. Konuyla ilgili örnek vermiyorum, çünkü daha evvel yazdığım programların hemen hemen hepsinde kullandığım bir komut. Hiçbir sorun çıkarmayacağından eminim.
Artık ekranların renklerini istediğimiz gibi ayarlayabiliyoruz. Ama daha bitmedi. Bunlar sadece normal komutlar. Daha sırada Deluxe Paint'in 'cycle' efektlerinden tutun da, çok az rastlanan özel renk değiştirme komutlarına kadar bir sürü komutlarımız var.
Aşağıda bunlardan biriyle ilgili bir örnek veriyorum. Bu programa AMOS disketlerimin 'Manual' directory'sinde rastladım. Fakat ya bendeki program bozuktu ya da program hazırlanırken bazı eksiklikler yapılmıştı ki, program pek iyi bir sonuç vermiyordu. Bunun üzerine gerekli değişiklikleri yaptım. Açıklamasını yine gelecek ay vereceğim.
ÖRNEK PROGRAM 4:
Rem******************************************* Rem******************************************* Rem**** **** Rem**** AMIGA DÜNYASI **** Rem**** AMOS APPEAR DEMO **** Rem**** **** Rem**** Modified by Burak OZDEMIR **** Rem**** **** Rem**** using AMOS **** Rem**** **** Rem**** AMOS Copyright 1990 **** Rem**** **** Rem**** Mandarin Software **** Rem**** **** Rem******************************************* Rem******************************************* Screen Open 1,320,200,32,Lowres Load Iff "df0:resim" If Screen Width>600 Then REZ=Hires Else REZ=Lowres Screen Open 0.Screen Width,Screen Height,Screen Colour,REZ Screen Open 2,320,50,2,Lowres Screen Display 2„250„50 Screen Open 3,320,10,2,Lowres Screen Display 3„40„ 10 Screen 3 : Colour 1 ,$0: Curs Off: Cls: Locate 0,0: Centre "Appear" Set Rainbow 0,1,16;'(1,2,16)","( 1,2,16)", "(1,2,16)" : Rainbow 0,0,36,10 Screen 0 : Screen To Front 0 : Get Palette(1): Screen To Front 2 Screen To Front 3 Flash Off Rem Main loop Do Screen 2 : Input "effekt ";E If E>0 Cls : Screen 0 : Cls Appear 1 To 0,E End If Loop
Gelecek sayıya kadar hoşçakalın. Daha yeni komutlar ve programlarla buluşmak üzere...