PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/genfast.lzh/DEMO_08.PAK/KULKA2.DA_

Text File | 1996-02-08 | 2KB | 127 lines

; Animowana kulka - aplikacja przykladowa
; Wykonanie: Piotr W.-Rakowski, 1996
; Wersja 1.0

[1!]
@ClrScr;
@Reset;
@ShowScreen;
; WyÆåczamy menu standardowe - zdefiniujemy wÆasne.
@DisableStatusBar;
@UpArea(20,20,620,410,4);
@DownArea(29,29,611,401,7);
@DownArea(80,420,380,470,7);
@SetPosition(100,430);
@FastWrite('ANIMACJA KULKI wersja 1.0');
@SetPosition(100,450);
@FastWrite('Program utworzony GENFASTEM w. 2.0');
; WÆasne klawisze menu:
@DrawButton(20,420,70,470,7,200,'koniec.rbm','');
; - wyj₧cie z programu,
@DrawButton(390,420,440,470,7,20,'kulka1.rbm','');
@DrawButton(450,420,500,470,7,21,'kulka2.rbm','');
@DrawButton(510,420,560,470,7,22,'kulka3.rbm','');
@DrawButton(570,420,620,470,7,23,'kulka4.rbm','');
; - klawisze zmiany kierunku ruchu kulki.
; Miejsce, od którego bædzie wy₧wietlana kulka:
@A:=50
@B:=50
; Zdefiniowanie kierunku ruchu kulki:
@K:=2
; Procedura wywoÆywana cyklicznie - ruch kulki.
@DefIdleProc(6);

[100]
@CheckEvents;

[2]
; kierunek pierwszy
@A:=%A+2
@B:=%B+2
@IF (%B >= 370) Then GoSub:7
@IF (%A >=580) Then GoSub:9
@Goto:100

[3]
; kierunek drugi
@A:=%A+2
@B:=%B-2
@IF (%A >= 580) Then GoSub:8
@IF (%B <= 30) Then GoSub:10
@Goto:100

[4]
; kierunek trzeci
@A:=%A-2
@B:=%B-2
@IF (%B <= 30) Then GoSub:9
@IF (%A <= 30) Then GoSub:7
@Goto:100

[5]
; kierunek czwarty
@A:=%A-2
@B:=%B+2
@IF (%A <= 30) Then GoSub:10
@IF (%B >= 370) Then GoSub:8
@Goto:100

[6]
@SetPosition(%A,%B);
;Pierwotnie w tym miejscu byÆa nastæpujåca linia:
;@Picture('Kulka.pcx') - kulka czarna; teraz zamieniono jå na kolorowå:
@Picture('Kulka2.pcx');
;Kulka zostala zamieniona na postac wektorowa '.CGV'
;W tym miejscu moºna jå wy₧wietlaì jako:
;@Picture('Kulka.cgv');

; Warto₧ì opóªnienia jest równa warto₧ci czasu trwania
; dªwiæku obijania siæ kulki o bandæ.
@Delay(20);

;Odkasuj liniæ poniºej je₧li zmienisz wielko₧ì kulki:
;@Clear(%A,%B,%A+30,%B+30);
@Goto:%K

; procedury 7-10 to zmiany kierunku ruchu kulki
[7]
@K:=3
@Sound(100,20);
@Return;

[8]
@K:=4
@Sound(100,20);
@Return;

[9]
@K:=5
@Sound(100,20);
@Return;

[10]
@K:=2
@Sound(100,20);
@Return;

[20]
@GoSub:10
@GoTo:6

[21]
@GoSub:7
@GoTo:6

[22]
@GoSub:8
@GoTo:6

[23]
@GoSub:9
@GoTo:6

[200]
; wywoÆanie programu nakÆadkowego - typu "shell"
@ReplaceProgram('shell.dat',1);
; KONIEC