Variable i

[I Karma I]

I've been studying Fakawi's Goblin Scheduler, and on it...
procedure PlayerStats;

var Active: string;
var i, temp: Integer;
begin
if Players[CurrentPlayer].Active=True then
Active:='True'
else
Active:='False';
WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
Writeln (' Name : '+ Players[CurrentPlayer].Name);
Writeln (' Number : '+inttostr(CurrentPlayer));
Writeln (' Active : '+ Active);
if ( Players[CurrentPlayer].Worked > 0 ) then
Writeln (' Worked : '+ inttostr(Players[CurrentPlayer].Worked));
Writeln (' Location : '+ Players[CurrentPlayer].loc);
Temp:=(GetSystemTime div 1000);
Temp := Temp - StartTime;
if ( playtime < temp ) then
Writeln (' Time Left : '+ IntToStr ( Temp - PlayTime / 60 ) + ' min[s].');
WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');

for I := 0 to HowManyPlayers - 1 do
begin
if Players[i].Active=True then Active:='T' else Active:='F';
WriteLn ( ' ' + Inttostr ( I) + ' : ' + Players[i].Name + ' = ' + Active
+'. - Lvl : '
+' '+inttostr(Players[i].level[1])
+' '+inttostr(Players[i].level[2])
+' '+inttostr(Players[i].level[3])+
+' '+inttostr(Players[i].level[5])+
+' '+inttostr(Players[i].level[8])+'. '
+'W : '+IntToStr(Players[i].Worked)+' min. '
+'K : '+ IntToStr(Players[i].Killed)+' Goblins. '
+'L: '+Players[i].loc);
end

See how i is declared and used in that procedure, and in this one:
procedure FTWaitD ( Time : Integer );
var T, I : integer;
begin
try

T := (Time div 1000)+1;
for I := 1 to T do
begin
Wait ( 250 );
FindTalk;
end

except

begin
Wait ( Time );
FindTalk;
end;

end;

Can you use i multiple times after its been ended?

Also, btw, whats the "div" mean in the 2nd ScarScript?

[Hey321]

divided i think.

[I Karma I]

What ya mean?

[Bam Bam]

"div" or "/" are the SCAR equivalents to division.

The Variable "i" like any variable can be declared once globally and once within each procedure or function

[I Karma I]

Ok, thank you.

[Boreas]

When i(or any variable) is declared in a procedure or function like

procedure blahblah;
var i:integer;
begin
repeat
writeln('stuff');
i:=i+1;
until i=4;
end;

i is 'loaded' at the begin, and 'forgotten' at the end, every time the procedure is called. Every time the procedure is called, booleans start as false, integers as 0, and strings as ''.



program New;
{comment line 6 and leave line 8 uncommented and you should get
123123. comment line 8 and uncomment line 6 and you should get
123456, because global i is 'remembered'}
// comment
//var i:integer; // this line
procedure countto3; // or
var i:integer; // that line
begin
i:=i+1;
writeln(inttostr(i));
i:=i+1;
writeln(inttostr(i));
i:=i+1;
writeln(inttostr(i));

end;

//////EDIT FORGOT THIS PART LOL

begin
countto3;
countto3;
end.



This also means that multiple procedures can use a variable locally without affecting each other. This is why SRL uses local variables more than globals when possible.

[I Karma I]

Ohhhh ok thx mate that explained alot :)