- Joined
- Mar 14, 2010
- Messages
- 5,363
- Reaction score
- 1,343
download link please? o.o
download link
Download the SVN.
Join our community of MMO enthusiasts and game developers! By registering, you'll gain access to discussions on the latest developments in MMO server files and collaborate with like-minded individuals. Join us today and unlock the potential of MMO server development!
Join Today!download link please? o.o
download link
function TFootholdTree.FindBelow(const Pos: TPoint; var FH: TFoothold): TPoint;
var
F: TFoothold;
X, Y: Integer;
First: Boolean;
MaxY: Double;
CMax: Double;
NewPos: TPoint;
begin
First := True;
X := Pos.X;
Y := Pos.Y;
for F in FFootholds do
if((X >= F.X1) and (X <= F.X2)) or((X>=F.X2)and (X <= F.X1)) then
begin
if(First) then
begin
if(F.X1 = F.X2) then
Continue;
MaxY := (F.Y1 - F.Y2 ) / (F.X1 - F.X2 )*(X - F.X1) + F.Y1 ;
FH := F;
if(MaxY >= Y) then
First := False;
end
else
begin
if(F.X1 = F.X2)then
Continue;
CMax := (F.Y1 - F.Y2) / (F.X1 - F.X2) * (X - F.X1) + F.Y1 ;
if(CMax < MaxY) and (CMax >= Y) then
begin
FH := F;
MaxY := CMax;
end;
end;
end;
if(not First) then
begin
NewPos.X := X;
NewPos.Y := Trunc(MaxY);
Exit(NewPos);
end;
end;
I cause this project is dead?