AMİGA SALATASI

Amiga Dünyası sayı 5, Ekim 1990 · sayfa 61, 62

BETTER DEAD THAN ALIEN Oyunun kademelerinden bazılarının şifreleri: 5. SOPRANO 16. WHIMSICLE 25. QUARANTINE Oyun sırasında ELV yazarsanız; F2 - Çoklu ateş F3 - Otomatik ateş F4 - Zırh füzeleri F5 - Yaratıkları dondurma F6 - Nötron bombası F7 - Yalancı gemi F8 - Kalkan F9 - Kademe atlama F10 - Ekstra güç çubukları

* BARBARIAN II Oyunu oynamakta zorluk çeken okuyucularımız için joystick kontrollerini veriyoruz:

(Sağa bakarken) JOYSTICK DÜĞMESİ BASILI DEĞİL: YUKARI-KOŞMA, SOL-GERİ ADIM, SAĞ-İLERİ ADIM, SOL AŞAĞI veya SAĞ AŞAĞI-KAPIDAN GİRME, AŞAĞI-ÖBÜR YÖNE DÖNME

JOYSTICK DÜĞMESİ BASILI: YUKARI-YUKARIDAN VURUŞ VE-YA KOŞARKEN ATLAMA, SOL-UÇARAK VURMA, SAĞ-TEKME, AŞAĞI - AŞAĞIDAN VURUŞ. * F29 Hava kuvvetlerine yazılırken COLONEL rütbesini seçin ve adınızı THE DIDY MEN olarak girin. Sonra hiçbir görev seçmeden ACCEPT MISSION (5) yapın. Bu işlemlerden sonra görev ve silah seçip oyuna başladığınızda ENTER tuşu ile otomatik olarak yere inebilirsiniz.

* BEACH VALLEY: Oyun sırasında "DADDY BRACEY" yazın. Artık her <F1> tuşuna bastığınızda bir sonraki kademeye geçebilirsiniz.

* DOGS OF WAR: Oyunun başında "TIMBO" yazarsanız ve oyun sırasında <F5> tuşuna basarsanız, vurulmazlık özelliğine sahip olursunuz.

* DOMINATOR: Puan tablosuna isim olarak "SHAFT" sözcüğünü yazarsanız, oyunda sonsuz hak elde edersiniz.

* INDIANA JONES - THE LAST CRUSADE:

Ana oyun ekranında "JIEHOVA" yazın. Artık oyun sırasında <L> tuşu ile bir sonraki kademeye, <2> ile de bir önceki kademeye geçebilirsiniz. Önceki bölümlerde bir eşya unuttuğunuzda bunu almanız artık sorun olmayacaktır.

* HAWKEYE: Oyunu pause ederek <DEL> tuşuna basarsanız, oyun sırasında ölseniz bile, oyun bir sonraki kademeden devam edecektir.

* ROBOCOP: Oyunu pause edin ve klavye yardımıyla aşağıdaki cümleyi girin. Artık sonsuz kalkanınız olacaktır. "BEST KEPT SECRET"

* STREET FIGHTER: Ana ekranda "STREET CHEAT" kelimelerini girin. Oyun sırasında <HELP> tuşuna her basışınızda, bir sonraki kademeye geçebilirsiniz.

* BARBARIAN II: Aşağıdaki programı Amiga BASIC'te yazın, diskete kaydedin. Daha sonra Barbarian II disketini takın ve programı çalıştırın.

REM ***** Program : Cem GENCER ***** 
kontrol = 0 : sonsuz = 262242& 
FOR n=sonsuz TO 262402& STEP 2 
READ a$ : a=VA
DATA 0226,4eae,fd9c,2d40,022a,2c56,2c56,2c56 
DATA 2c56,2c56,2c56,47fa,0062,220b,4eae,ff6a 
DATA  e588,2040,217c,43f8,0400,016c,217c,7070 
DATA  e348,0170,303c,02c0,26d8,51 c8,fffc,21 fc 
DATA 00fc,00d2,0020,46fc,2700,2c78,0004,2d7c 
DATA  0004,0100,fe3a,4e75,0004,00e2,0000,0000 
DATA  4afc,0004,00e2,0004,00fc,0121,00f6,0000 
DATA  0000,0000,0000,0004,00cc,4446,303a,5255 
DATA
 4e00

* Commodore 64'ten Amiga'ya geçenler 64'ün ünlü yanıp sönen kursorunu hatırlayacaklardır. Bu yanıp sönme sayesinde kursorun ekranın neresinde olduğunu anında anlayabilirsiniz. Fakat Amiga'da yazı dolu bir ekranda kursoru bulmak, bir hayli zor. Aşağıdaki ufak assembler program sayesinde, kursor aynen 64'teki gibi yanıp sönecektir. Programı SEKA Assembler ile yazdıktan sonra <wo> komutunu kullanarak diskete 'Kursor' ismiyle kaydedin ve gerektiğinde de CLI'dan <RUN Kursor> ile programı çalıştırın. Programı disket yüklenirken otomatik olarak çağırmak için ise <s> directory'sindeki startup-sequence dosyasını herhangi bir text editör ile yükleyin ve ilk satırdan önce bir satır açarak <RUN Kursor> komutunu bu boş satıra yazın.

Programın çalışabilmesi için disketin ya <c> ya da ana directory'sinde RUN komutunun mevcut olması şart. Eğer yoksa, bu komutu da WorkBench disketinizden COPY komutunu kullanarak kopyalayınız.

: ********************************************* 
; *        Yanıp sönen kursor       * 
; 
ER  ®1990* 
* Yazan       :CemGENC
; * Çalıştırmak için: RUN kursor     *
move.l    $4.w,a6    ; ExecBase 
lea.l        gfx(pc),a1  ; "graphics.lıbrary" 
jsr 
-408(a6)    ; Openlib() 
move.l   50(a6),a0   ; Copper-listesi adresi 
clr.l 
di 
; <d1>i sil 
move.w   I8(a0),dl ; Kursor rengini sakla 
Döngü: 
move.w 6(a0),18(a0); Zemin rengı-> Kursor 
bsr.s   Bekle 
move.w d1,l8(a0)  ; Eski kurs
or rengi 
bsr.s   Bekl 
e
bra.s   Döngü        ;başa dön 
L("&h"+a$) 
kontrol=kontrol+a 
Bekle: 
POKEW n,a 
move.l #$18000,d7 :sayaç 
NEXT n 
Beklemedöngüsü: 
IF kontrol<>550905& THEN PRINT 
sub.l      «$1,d7      ; bir eksilt 
cmp.l      #0,d7       ; d7=0 oldu mu? 
"Data satırlarında hata var!!! " : END 
CALL sonsuz 
bne.s Beklemedöngüsü; Hayır => devam et 
DATA 4df8,00e0,2cfc,33fc,4e71,2cfc,0002,ef9 
rts 
; Evet => programa dön 
DATA 2cf c,4ef8,0400,2c78,0004,2d7c,0004,00da 
Gfx:
dc.b "graphics.library',O