63 lines
1,011 B
ObjectPascal
63 lines
1,011 B
ObjectPascal
Unit Present;
|
|
Interface
|
|
Procedure Thunder;
|
|
implementation
|
|
|
|
Uses
|
|
CRT,DOS,LIBUses,GraphVGA;
|
|
Var
|
|
P1,P2 : Imageinfo;
|
|
|
|
Procedure Strike(J,I : Byte);
|
|
Var
|
|
C : Byte;
|
|
begin
|
|
Move(P1.Picture^,Ptr($A000,0)^,64000);
|
|
SetRGB(P1.Palette);
|
|
for C:=0 to J do
|
|
WaitVbl;
|
|
Move(P2.Picture^,Ptr($A000,0)^,64000);
|
|
SetRGB(P1.Palette);
|
|
For C:=0 to I do
|
|
WaitVbl;
|
|
End;
|
|
|
|
|
|
Procedure Thunder;
|
|
Var
|
|
P,C : Word;
|
|
Begin
|
|
P := 0;
|
|
loadImage(Thunder_Ligh,P1);
|
|
LoadImage(Thunder_Dark,P2);
|
|
P := 0;
|
|
While (P <= 15) do
|
|
Begin
|
|
putImage(P2,2);
|
|
For c:=0 to 5 do
|
|
waitvbl;
|
|
Strike(Random(5),Random(50));
|
|
inc(p);
|
|
End;
|
|
FreeImage(p1);
|
|
FreeImage(P2);
|
|
LoadImage(Thunder_Logo,P1);
|
|
LoadImage(Thunder_Ldrk,P2);
|
|
P := 0;
|
|
While (P <= 9) do
|
|
Begin
|
|
putImage(P2,2);
|
|
For c:=0 to 5 do
|
|
waitvbl;
|
|
Strike(Random(5),Random(50));
|
|
inc(p);
|
|
End;
|
|
FreeImage(P1);
|
|
FreeImage(P2);
|
|
End;
|
|
|
|
|
|
End.
|
|
|
|
|
|
|