56 lines
942 B
ObjectPascal
56 lines
942 B
ObjectPascal
Program DEMO;
|
|
Uses
|
|
{ PASDVT }
|
|
CRT,DOS,GRAPHVGA,LibUses,Intro2,Present,Moon,lens,voxel,Fire;
|
|
{Var
|
|
P : imageInfo; }
|
|
Begin
|
|
|
|
{ IF NOT VT_Init THEN BEGIN { Init DEMOVT }
|
|
{ WriteLn('Missing Player !'); { check if DEMOVT a-ok }
|
|
{ HALT(1);
|
|
END;
|
|
VT_AutoOn;
|
|
Vt_SyncStart;}
|
|
CheckBreak := False;
|
|
InitGraph(VGA);
|
|
DirectVideo(False);
|
|
{ DirectVideo(True);}
|
|
OpenLib('TOTAL.OTL');
|
|
|
|
{ SEGMENT : INTRO }
|
|
introAsm;
|
|
|
|
{ SEGMENT : TITLE }
|
|
Thunder;
|
|
|
|
{ SEGMENT : MOON }
|
|
InitMoon;
|
|
BouffeLaLune;
|
|
CloseMoon;
|
|
|
|
{ SEGMENT : LENS }
|
|
InitLens;
|
|
LensPath;
|
|
CloseLens;
|
|
|
|
{ SEGMENT : VOXEL }
|
|
InitVoxel;
|
|
FolowPath;
|
|
CloseVoxel;
|
|
|
|
{ SEGMENT : MOON 2 }
|
|
InitMoon;
|
|
ClearDevice(0);
|
|
GerbeLaLune;
|
|
CloseMoon;
|
|
delay(100);
|
|
FadeOut(0,$FF,1);
|
|
|
|
{ SEGMENT : Close & Grettings }
|
|
Greetings;
|
|
|
|
{ END }
|
|
CloseGraph;
|
|
CloseLib;
|
|
End.
|