Hi Guys i have a little bug in my battle list... i see in to much sites peoples saying this atributes:
Code:
StepCreatures = $B0;
MaxCreatures = 255;
adrStart = $94C008;
But when my battle list pass to 255 my battlelist don't read more peoples in my screen...
ok... i put 1299 on max creatures... but when pass more than 1299.. my battlelist stop read...
Code:
procedure Updateworld;
var
i: integer;
aux: string;
Creature:TCreature;
begin
for i := 0 to MaxCreatures - 1 do
begin
BattleList[i].isVisible := ReadInteger(Start + (i * StepCreatures)+ DistanceIsVisible);
BattleList[i].iType := ReadByte(Start + (i * StepCreatures)+ DistanceType);
BattleList[i].Name := ReadString(Start + (i * StepCreatures)+ DistanceName);
BattleList[i].HPBar := ReadInteger(Start + (i * StepCreatures) +(DistanceHPBar));
BattleList[i].Id := ReadInteger(Start + (i * StepCreatures)+ DistanceId);
BattleList[i].Z := ReadInteger(Start + (i * StepCreatures)+ DistanceZ);
end;
end;
If i play more than 30min and battle list full my functions use battlelist ex: Sio friend... stop work...
but battlelist can't be > 1300
what i can do for reset my values...
i test alot things but ever pass 1300 stop read.