🐛 Fix moving of items freeing the item in the process
continuous-integration/drone/push Build is passing
Details
continuous-integration/drone/push Build is passing
Details
This commit is contained in:
parent
9638bb3fe2
commit
955edf8a77
|
@ -824,9 +824,10 @@ begin
|
|||
deletePacket := TDeleteStaticPacket.Create(staticItem);
|
||||
movePacket := TMoveStaticPacket.Create(staticItem, newX, newY);
|
||||
|
||||
statics.FreeObjects := False;
|
||||
i := statics.IndexOf(staticItem);
|
||||
statics[i] := nil;
|
||||
statics.Delete(i);
|
||||
statics.FreeObjects := True;
|
||||
|
||||
statics := targetBlock.Cells[(newY mod 8) * 8 + newX mod 8];
|
||||
statics.Add(staticItem);
|
||||
|
|
Loading…
Reference in New Issue