Amiga Dunyasi - Sayi 02 (Temmuz 1990).pdf - Retro Dergi

LABİRENT
Bu ayki BASIC programımız bir fare
labirenti oluşturan basit bir oyun. Programı
yazıp kaydettikten sonra çalıştırın.
Oyunun başında size labirentin yatay
ve düşey boyutları soruluyor. Bunları
yanıtladıktan sonra oyunu oynamaya
başlayabilirsiniz. Amacınız en kısa yoldan
labirentin çıkışını bulmak. Eğer
kaybolursanız 'BAKIŞ' seçeneğiyle labirentin
tamamını üstten görebilirsiniz.
Başarılar.
AMIGA DÜNYASI DERGİSİ *6-1990*
AMIGA DÜNYASI 92
SCREEN 1,840,200.3,2
WINDOW 2,,,0,1
WINDOW 3,"LABİRENT!",(0,0)-(410,186),0, 1
PALETTE 4..2,.2,.2
COLOR 1,4
CLS
WIND0W OUTPUT 2
Yc1 = 10
yc2 - 15
x = 515: y = 94 ‘Sol yon okunun baslangici
COLOR 3
LINE (x,y)-STEP(-30,0) ‘sol yon okunun çizimi
LINE -STEP(0,-3)
LINE -STEP(-10,5)
LINE -STEP(lO,5)
LINE -STEP(0,-3)
LINE -STEP(30,0)
LINE -STEP(0,-4)
PAINT STEP(-2,2),3
LINE (x+15,y)-STEP(30,0)
LINE -STEP(0,-3)
LINE -STEP(10,5)
LINE -STEP(-10,5)
LINE -STEP(0,-3)
LINE -STEP(-30,Û)
LINE -STEP(0,-4)
PAINT STEP(2,2),3
LOCATE yc1
PRINT PTAB(x-8)"HAREKET";
LOCATE yc2
PRINT PTAB(x-8)"BAKIS" ;
WINDOW OUTPUT 3