PC World Komputer 1996 May/PCW596.iso/polskie/eduk/genfast/demo_08.pak/SHELL.DA_

INI File | 1996-02-08 | 2KB | 98 lines

[1!]
@HideScreen;
@ClrScr;
@Reset;
@DisableStatusBar;
@SetColors(3,15);
@Bar(0,0,639,479);
@DownArea(50,20,590,380,7);
@LoadFont('MODERNBL.RSF');
@SetColors(15,15);
@SetPosition(202,342);
ANIMACJE
@SetColors(0,15);
@SetPosition(200,340);
ANIMACJE
@UpArea(190,150,447,330,3);
@DownArea(217,175,420,303,15);
@DownArea(130,393,530,475,15);
@SetPosition(140,400);
@FastWrite('Zestaw programów przykÆadowych, wygenerowanych');
@SetPosition(140,420);
@FastWrite('przy uºyciu procedur jæzyka EasyGEN, generatora');
@SetPosition(140,440);
@FastWrite('aplikacji edukacyjnych GENFAST w wersji 2.01.');
@SetPosition(140,460);
@FastWrite('Wykonanie Piotr W.- Rakowski, 1996 r.');
; Klawisze poszczególnych animacji
@DrawButton(85,50,155,120,7,11,'kulkad.rbm','');
@DrawButton(85,130,155,200,7,12,'kulkac.rbm','');
@DrawButton(85,210,155,280,7,13,'kulkaa.rbm','');
@DrawButton(85,290,155,360,7,14,'kulkab.rbm','');
@DrawButton(485,50,555,120,7,15,'anima4.rbm','');
@DrawButton(485,130,555,200,7,16,'anima5.rbm','');
@DrawButton(485,210,555,280,7,17,'armata.rbm','');
@DrawButton(485,290,555,360,7,800,'koniec.rbm','');
@DrawButton(185,50,255,120,7,19,'anima1.rbm','');
@DrawButton(285,50,355,120,7,20,'anima2.rbm','');
@DrawButton(385,50,455,120,7,21,'anima3.rbm','');
@ShowScreen;
; Animacja w srodku ekranu
@DefIdleProc(6);
; Opoznienie wyswietlania rysunków
@D:=50

[6]
@Delay(%D);
@SetPosition(269-50,177);
@Picture('cz01.pcx');
@Delay(%D);
@Picture('cz02.pcx');
@Delay(%D);
@Picture('cz03.pcx');
@Delay(%D);
@Picture('cz04.pcx');
@Delay(%D);
@Picture('cz05.pcx');
@GoTo:100

[100]
@CheckEvents;

[11]
@ReplaceProgram('kulka31.dat',1);

[12]
@ReplaceProgram('kulka3.dat',1);

[13]
@ReplaceProgram('kulka21.dat',1);

[14]
@ReplaceProgram('kulka2.dat',1);

[15]
@ReplaceProgram('anima4.dat',1);

[16]
@ReplaceProgram('anima5.dat',1);

[17]
;@ReplaceProgram('anima6.dat',1);
@MessageBox('ANIMACJE wersja 1.0','Opcja niedostæpna !')
@GoTo:6

[19]
@ReplaceProgram('anima1.dat',1);

[20]
@ReplaceProgram('anima2.dat',1);

[21]
@ReplaceProgram('anima3.dat',1);

[800]
@MessageBox('ANIMACJE wersja 1.0','Do zobaczenia !!!')
@ClrScr;
@Reset;