Tags:    delphi
Som du kan se har jeg sat kassen i sin egen matrix og flyttet den lidt. Prøv nu at kompile. Hvis du går rundt omkring den, er det ret tydeligt at den bliver shaded af vores lyskilde.


Shaded (Ikke Textured)


Ikke shaded


Shaded

Selv om overbevisende grafik i et spil gør meget, er det i lige vel intet, hvis man ikke kan bruge den til noget. Det vil virke knap så overbevisende, hvis man kunne gå igennem alt geometri i et spil som Doom og Quake. Det vi leder efter er en kollisions detektor, der kan fortælle os om vi kollidere mod et geomteri eller ej! Hvis vi foreksempel vil lave en kollisions detektor på vores væg, vil det være nemmest, hvis vi forestillede os at mellem vores position og væggen befandt sig en usynlig trekant. Udfra trekantens areal vil vi så kunne bestemme om vi er tæt eller langt fra væggen. Jeg har prøvet at illustere det neden under.



Som du kan se er den røde trekant vores usynlige kollisions trekant. Hvis arealet på denne er nul, betyder det, at vi er kollideret mod væggen. Så lad os lave en funktion der kan beregne vores kollision.

function Kollision(Kollision_X1, Kollision_Z1, Kollision_X2, Kollision_Z2, Position_X, Position_Z : Single) : Boolean;
var
  S, A, B, C : Single;
begin
  Result := False;

  //Udregner afstanden mellem de forskellige punkter
  A := Sqrt(Power(Kollision_X1-Kollision_X2,2)+Power(Kollision_Z1-Kollision_Z2,2));
  B := Sqrt(Power(Kollision_X2-Position_X,2)+Power(Kollision_Z2-Position_Z,2));
  C := Sqrt(Power(Position_X-Kollision_X1,2)+Power(Position_Z-Kollision_Z1,2));

  //Beregner trekantens halve omkreds
  S := (A+B+C)/2;

  //Beregner arealet af trekanten
  S := Sqrt(S*(S-A)*(S-B)*(S-C));

  //Præcisere vores kollision ved at formindske vores areal
  S := S * 0.015;

  //Hvis vi er gået forbi væggen skal det ikke anses som en kollidering
  if ((B > A) or (C > A)) and (Round(S) = 0)then
  Result := True;

  //Først afrunder vi vores formindsket areal til nærmeste hele tal med funktionen Round!
  //Hvis vores afrundet areal er mindre eller større end nul returnere vi en True,
  //ellers er vi kollideret mod væggen og returnere en False
  if Round(S) <> 0 then
  Result := True;
end;

Funktionen returnere en True, hvis ikke vi er kollideret og en False, hvis vi er kollideret mod væggen. I vores Idle procedure kan vi derfor lade funktionen bestemme om vi må bevæge os eller ej.

var
  FPS, I : Integer;
  Jump, MoveForward, MoveBackward : Boolean;
procedure TForm1.Idle(Sender : TObject; var Done : Boolean);
var
  P : TPoint;
begin
  Done := False;

  if Jump then
  begin
    if Translation.Y > -1 then
    Translation.Y := Translation.Y-0.1
    else
      Jump := False;
  end
  else
    if Translation.Y < 0 then
    Translation.Y := Translation.Y+0.1;

  GetCursorPos(P);
  //Beregener
  P.X := (Left+(Width div 2))-P.X;
  P.Y := (Top+(Height div 2))-P.Y;
  Rotation.Y := Rotation.Y-(P.X*0.1);
  Rotation.X := Rotation.X-(P.Y*0.1);
  SetCursorPos(Left+(Width div 2),Top+(Height div 2));

  //Væg kollision
  if Kollision(-50,-48,+50,-48,-Translation.X,-Translation.Z) then
  begin
    //Gå frem
    if MoveForward then
    begin
      Translation.X := Translation.X-(Sin(DegToRad(Rotation.Y))*0.5);
      Translation.Z := Translation.Z+(Cos(DegToRad(Rotation.Y))*0.5);
    end;
    //Gå tilbage
    if MoveBackward then
    begin
      Translation.X := Translation.X+(Sin(DegToRad(Rotation.Y))*0.5);
      Translation.Z := Translation.Z-(Cos(DegToRad(Rotation.Y))*0.5);
    end;
  end;

  FormPaint(nil);
  Caption := IntToStr(FPS);
  Inc(I);
end;

Som du kan se har vi sat et minus tegn foran vores positions X og Z (Translation). Årsagen er at, i den første artikel lod vi alt geometrien flytte sig omkring os, så det så ud som at vi bevægede os. Det betyder at hvis vi skal sammenligne vores position med restens af vores geomtri, bliver vi nødt til at tage hensyn til det! Yderligere har vi defineret vores kollisions trekant 2 units væk fra væggen (ind mod gulvet). Dette er gjort for at sikre os at væggen vil blive inde i vores frustum (som er defineret 2 units væk fra vores viewport i FormResize proceduren) når vi er kollidert mod den. Prøv at kompile og afprøv det for dig selv. Du vil opdage, at når du er kollideret mod væggen, vil du ikke kunne bevæge dig væk fra væggen igen. Dette er fordi at vi faktisk befinder os inde i væggen (kollisions området). For at undgå dette, kan vi hele tiden "simulere" et skridt foran os og lave en kollision beregnelse ud fra den. Det vil resultere i, at inden vi tager et nye skridt, allerede ved om vi vil kollidere eller ej.

var
  FPS, I : Integer;
  Jump, MoveForward, MoveBackward : Boolean;
procedure TForm1.Idle(Sender : TObject; var Done : Boolean);
var
  P : TPoint;
  X, Z : Single;
begin
  Done := False;

  if Jump then
  begin
    if Translation.Y > -1 then
    Translation.Y := Translation.Y-0.1
    else
      Jump := False;
  end
  else
    if Translation.Y < 0 then
    Translation.Y := Translation.Y+0.1;

  GetCursorPos(P);
  //Beregener
  P.X := (Left+(Width div 2))-P.X;
  P.Y := (Top+(Height div 2))-P.Y;
  Rotation.Y := Rotation.Y-(P.X*0.1);
  Rotation.X := Rotation.X-(P.Y*0.1);
  SetCursorPos(Left+(Width div 2),Top+(Height div 2));

  //Simulere et skridt fremad
  if MoveForward then
  begin
    X := Translation.X-(Sin(DegToRad(Rotation.Y))*0.5);
    Z := Translation.Z+(Cos(DegToRad(Rotation.Y))*0.5);
  end
  else
    //Simulere et skridt tilbage
    if MoveBackward then
    begin
      X := Translation.X+(Sin(DegToRad(Rotation.Y))*0.5);
      Z := Translation.Z-(Cos(DegToRad(Rotation.Y))*0.5);
    end
    else
      //Står stille
      begin
        X := Translation.X;
        Z := Translation.Z;
      end;


  //Væg kollision
  if Kollision(-50,-48,+50,-48,-X,-Z) then
  begin
    Translation.X := X;
    Translation.Z := Z;
  end;

  FormPaint(nil);
  Caption := IntToStr(FPS);
  Inc(I);
end;

Hvad synes du om denne artikel? Giv din mening til kende ved at stemme via pilene til venstre og/eller lægge en kommentar herunder.

Del også gerne artiklen med dine Facebook venner:  

Karma barometer (30 dage)

IT jobs | Kontakt | Om Udvikleren.dk | Om karma | IT nyheds arkiv | Annoncering

X