nades script

[avti]

Im trying to do simple auto regenerating nade script.
it comes through compilator, but it don't add any nades.
any ideas?

Code: [Select]

Procedure AddNades(ID: byte);
begin
for ID := 1 to 32 do begin
if (GetPlayerStat(ID,'Alive')=true) and (GetPlayerStat(ID,'Grenades')<9) then begin
GiveBonus(ID,4);
end;
end;
end;


[Falcon`]

is that procedure called anywhere?

[jrgp]

Why the hell are you defining the ID variable in the procedure argument rather than in the body of it? Look here to see how it's done properly: http://math.uww.edu/~harrisb/courses/cs171/procs_01.htm

[TheOne]

If you want the regeneration script to be auto-triggered, best call it in AppOnIdle.

About the var, choose one way from these two:

Code: [Select]

procedure AddNades(ID: byte);
begin
if ... then GiveBonus(ID, 4);
end;

procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
for i := 1 to 32 do
AddNades(i);
end;

or the same without the parameter, just one AddNades();-call, and the declaration of ID in the var-section of your AddNades-procedure.

[avti]

Now it work's. Thanks a lot.