Another 'my code is optimized?' thread.
Posted: 25.06.2016 7:39
Hello, its me again 
with another question 
What i plan with this script is drop 1 item for each tile around the character, using max distance allowed (2). 5x5, 25 tiles.
I feel it's taking a bit long to drop all 25, anything i can do to make it faster?
The server i play theres no delay to drop itens into ground.
with another question What i plan with this script is drop 1 item for each tile around the character, using max distance allowed (2). 5x5, 25 tiles.
I feel it's taking a bit long to drop all 25, anything i can do to make it faster?
The server i play theres no delay to drop itens into ground.
Code: Select all
Procedure drop;
var x, y, myx, myy, myz : Integer;
begin
myx := GetX(self);
myy := GetY(self);
myz := GetZ(self);
DropDelay := 0;
for x := -2 to 2 do
begin
for y := -2 to 2 do
begin
FindType($1EBB,Backpack);
MoveItem(FindItem,1,ground,myx+x,myy+y,myz);
end;
end;
end;
begin
drop;
end.