[Answered] AppOnIdle bug?

[DorkeyDear]

Code: [Select]

type
  PInfo = record
    Alive: boolean;
  end;

var
  Player: array[1..32] of PInfo;

procedure AppOnIdle(Ticks: integer);
var
  i: byte;
begin
  for i := 1 to NumPlayers do if Player[i].Alive <> GetPlayerStat(i,'Alive') then Player[i].Alive := GetPlayerStat(i,'Alive');
  if Player[i].Alive = true then Command('/say Player[' + InttoStr(i) + '].Alive = true') else Command('/say Player[' + InttoStr(i) + '].Alive = false');
end;
It seems to... not work?

[urraka]

The for only includes the first if because you are not using begin..end. Also, there is no need for the first if, you can do it this way:

Code: [Select]

type
  PInfo = record
    Alive: boolean;
  end;

var
  Player: array[1..32] of PInfo;

procedure AppOnIdle(Ticks: integer);
var
  i: byte;
begin
  for i := 1 to NumPlayers do
  begin
    Player[i].Alive := GetPlayerStat(i,'Alive');
    if Player[i].Alive = true then
      Command('/say Player[' + InttoStr(i) + '].Alive = true')
    else Command('/say Player[' + InttoStr(i) + '].Alive = false');
  end;
end;

If you write all the code in one line it gets confusing, you know.
And also i think i read somewhere that you can't rely on NumPlayers. You should use 32 instead.

[EnEsCe]

Haha fool, stop blaming the engine for your own coding errors.

[DorkeyDear]

Haha fool, stop blaming the engine for your own coding errors.

Uhh, dude? C'mon... Its a QUESTION... basically, is it my fault, or is it the engines? if mine, how do i fix? if engines, then how should i do it / will it be fixed in the future.
Could you please at the least not be so rude and help me out by spotting what it is? I already asked somebody else if there was my error and they said no.

[EnEsCe]

Read the post prior to my last.... He hits the nail spot-on.

[DorkeyDear]

LMFAO, I missed that post.
Sorry about that.
*becomes embarrassed*