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

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

; Animacja numer 1 - animowanie map bitowych
; Wykonanie Piotr W.-Rakowski, 1996

[1!]
@ClrScr;
@Reset;
@DefKeyboardHandler(300);
@ShowScreen;
@DisableStatusBar;
@DownArea(80,420,620,468,7);
@SetPosition(100,430);
@FastWrite('Animacja przykladowa numer 1.');
@SetPosition(100,450);
@FastWrite('Jednoczesna animacja kilkoma obiektami.');
@DrawButton(20,420,70,470,7,200,'koniec.rbm','');
; Stale ekranowe
@A:=50;
@B:=50;
; Opóªnienie czasowe
@D:=0;
; Procedura wykonywana cyklicznie
@DefIdleProc(2);

[2]
@SetPosition(%A,%B);
@Picture('C1.pcx');
@SetPosition(%A+400,%B);
@Picture('C3.pcx');
@SetPosition(%A,%B+200);
@Picture('C5.pcx');
@SetPosition(%A+400,%B+200);
@Picture('C2.pcx');
@Delay(%D);

@SetPosition(%A,%B);
@Picture('C2.pcx');
@SetPosition(%A+400,%B);
@Picture('C4.pcx');
@SetPosition(%A,%B+200);
@Picture('C6.pcx');
@SetPosition(%A+400,%B+200);
@Picture('C3.pcx');
@Delay(%D);

@SetPosition(%A,%B);
@Picture('C3.pcx');
@SetPosition(%A+400,%B);
@Picture('C5.pcx');
@SetPosition(%A,%B+200);
@Picture('C1.pcx');
@SetPosition(%A+400,%B+200);
@Picture('C4.pcx');
@Delay(%D);

@SetPosition(%A,%B);
@Picture('C4.pcx');
@SetPosition(%A+400,%B);
@Picture('C6.pcx');
@SetPosition(%A,%B+200);
@Picture('C2.pcx');
@SetPosition(%A+400,%B+200);
@Picture('C5.pcx');
@Delay(%D);

@SetPosition(%A,%B);
@Picture('C5.pcx');
@SetPosition(%A+400,%B);
@Picture('C1.pcx');
@SetPosition(%A,%B+200);
@Picture('C3.pcx');
@SetPosition(%A+400,%B+200);
@Picture('C6.pcx');
@Delay(%D);

@SetPosition(%A,%B);
@Picture('C6.pcx');
@SetPosition(%A+400,%B);
@Picture('C2.pcx');
@SetPosition(%A,%B+200);
@Picture('C4.pcx');
@SetPosition(%A+400,%B+200);
@Picture('C1.pcx');
@Delay(%D);

@GoTo:100;

[100]
@CheckEvents;

[200]
@ReplaceProgram('shell.dat',1);

[300]
@IF (%Z = $011B) then goto:200;
@CheckEvents;