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

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

; Animacja numer 4 - animowana mapa bitowa poruszana myszka
; Wykonanie Piotr W.-Rakowski, 1996

[1!]
@ClrScr;
@Reset;
@ShowScreen;
@DisableStatusBar;
@DownArea(80,420,560,468,7);
@SetPosition(100,430);
@FastWrite('Animacja przykladowa numer 4');
@SetPosition(100,450);
@FastWrite('Poruszaj myszka. Zobacz co dzieje sie na ekranie?');
@DrawButton(570,420,620,468,7,300,'kulka.rbm','');
@DrawButton(20,420,70,468,7,900,'koniec.rbm','');
; Stale ekranowe
@GoSub:200
@D:=50
@E:=1
; Procedura wykonywana cyklicznie
@DefIdleProc(2);

[2]
@IF (%E = 1) Then Begin
;@SetPosition(%A+15,%B);
@SetPosition(%A,%B)
@Picture('C1.pcx');
@Sound(%A,%D);
;@SetPosition(%A+10,%B);
@Picture('C2.pcx');
@Sound(%A,%D);
;@SetPosition(%A,%B+1);
@Picture('C3.pcx');
@Sound(%A,%D);
;@Clear(%A-10,%B-10,%A+100,%B+120);
;@SetPosition(%A+20,%B+2);
@Picture('C4.pcx');
@Sound(%A,%D);
;@SetPosition(%A+20,%B+1);
@Picture('C5.pcx');
@Sound(%A,%D);
;@SetPosition(%A+3,%B+2);
@Picture('C6.pcx');
@Sound(%A,%D);
@Clear(%A-10,%B-10,%A+100,%B+130);
@End;
@IF (%E = 2) Then Begin
@SetPosition(%A,%B);
@Sound(150,%D);
@Picture('bug1.pcx');
@Sound(100,%D);
@Picture('bug2.pcx');
@Sound(150,%D);
@Picture('bug3.pcx');
@Sound(200,%D);
@Clear(%A-10,%B-10,%A+100,%B+100);
@End;
@GoSub:200;
@GoTo:100;

[100]
@CheckEvents;

[200]
@GetMousePosition;
@A:=%X
@B:=%Y
@IF (%A <=10) Then Begin
@A:=10
@End;
@IF (%A >=530) Then Begin
@A:=530
@End;
@IF (%B <=10) Then Begin
@B:=10
@End;
@IF (%B >= 280) Then Begin
@B:=280
@End;
@Return;

[300]
; Procedura typu 'przeÆåcznik'
@IF (%E = 1) Then Begin
@E:=2
@GoTo:100
@End;
@IF (%E = 2) Then Begin
@E:=1
@GoTo:100
@End;


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