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.