aksdb
/
CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

🐛 Fix moving of items freeing the item in the process
continuous-integration/drone/push Build is passing Details

This commit is contained in:
Andreas Schneider 2022-10-16 17:27:18 +02:00
parent 9638bb3fe2
commit 955edf8a77
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Server/ULandscape.pas
View File

@ -824,9 +824,10 @@ begin
deletePacket := TDeleteStaticPacket.Create(staticItem); deletePacket := TDeleteStaticPacket.Create(staticItem);
movePacket := TMoveStaticPacket.Create(staticItem, newX, newY); movePacket := TMoveStaticPacket.Create(staticItem, newX, newY);
statics.FreeObjects := False;
i := statics.IndexOf(staticItem); i := statics.IndexOf(staticItem);
statics[i] := nil;
statics.Delete(i); statics.Delete(i);
statics.FreeObjects := True;
statics := targetBlock.Cells[(newY mod 8) * 8 + newX mod 8]; statics := targetBlock.Cells[(newY mod 8) * 8 + newX mod 8];
statics.Add(staticItem); statics.Add(staticItem);