SoftByteLabs.com

Code: Select all

Units := Feet;

Distance := 32.0;
Duration := 10.0;
StartAt  := 1.0;
EndAt    := Duration + StartAt;
py := Velocity(0, Distance, StartAt, EndAt);

Duration2 := 20.0;
StartAt2  := 5.0;
EndAt2    := Duration2 + StartAt2;
yaw(-90, StartAt2, EndAt2);

CamRotZ := -rz / 3.5;

Distance3 := 10.0;
Duration3 := 3.0;
StartAt3  := EndAt2;
EndAt3    := Duration3 + StartAt3;
if (sec >= EndAt2) and (sec <= EndAt3) then begin
  py := py - Velocity(0, Distance3, StartAt3, EndAt3);
  CamRotX := -py / 20;
end;

if sec > EndAt3 then
  py := 0;

CamPosY := py * 0.96;
  
Distance4 := 450.0;
Duration4 := 5.0;
StartAt4  := EndAt3 + 3.0;
EndAt4    := Duration4 + StartAt4;
cnt := 0.0;
if (sec >= StartAt4) then begin
  py := Velocity(0, Distance4, StartAt4, EndAt4);
  CamPosY := py / 1.3;
  if cnt < 10 then begin
    CamRotX := -0.03;
    CamRotZ := 0.05;
    cnt := cnt + 1;
  end;
end;

Duration5 := 5.0;
StartAt5  := EndAt4;
EndAt5    := Duration5 + StartAt5;
Pitch(20, StartAt5, EndAt5);
if (sec >= StartAt5) and (sec <= EndAt5) then 
  CamDirX := rx / 2.0;