I have no idea why thos comes :/
SCAR Code:procedure PlayerStats;
var
Active: string;
var
i: Integer;
begin
cst := getsystemTime;
srt := (cst - sst) / 1000;
tih := srt / 3600;
tim := (srt / 60) - tih * 60;
tis := srt - tim * 60 - tih * 3600;
awt := wet - wst
writeln('**********************************************');
writeln('Name : '+Players[CurrentPlayer].Name);
writeln('Number : '+inttostr(CurrentPlayer));
Writeln('Worked : ' + inttostr(tih) + ' Hours ' + inttostr(tim) + ' Minutes ' + inttostr(tis) + ' Seconds.');
writeln('Banked : '+inttostr(Players[CurrentPlayer]
Writeln('Fail Bank : ' + IntToStr(FailedBank) + ' Times. ');
LINE 100 <-----
Writeln('Picking : ' + inttostr((Done * 28 / (srt / 60)) * 60) + ' Flax In a Hour. ');
if Players[CurrentPlayer].Active=True then
Active:='True'
else
Active:='False';
writeln('Active : '+Active);
writeln('Location : '+Players[CurrentPlayer].loc);
writeln('**********************************************');
for i:=0 to HowManyPlayers-1 do
begin
if Players[i].Active=True then
Active:='True'
else
Active:='False';
writeln((inttostr(i))+' : '+Players[i
].name+' = '+Active+'. - Lvl : '+inttostr
(Players[i].Level[15])+
'. - B :'+inttostr(Players[i]
.Banked)+' Times.'+
' - : '+IntToStr(Players[i]
.Worked)+' mins.'+' - Loc: '+
Players[i].loc);
end
writeln('**********************************************'
);
end;
Line 100: [Error] (14500:1): comma (',') expected in script C:\Documents and Settings\JJ\Työpöytä\F.scar






Reply With Quote


Sorry.. My scripting strandards.. doesn't are very amazing 





