Progress Report Request

[JuKKa]

odd how i didnt find a progress report tutorial!!
well, i know aproximitly how the report is done, just need some help :D



Procedure Report;
begin
writeln('*-------------------------------------*')
writeln('*--* Al Kharid Miner by: Jukka *--*')
writeln('*-------------------------------------*')
writeln('*--* Iron mined : *--*')
writeln('*--* Loads dropped : *--*')
writeln('*--* Exp Gained : *--*')
writeln('*-------------------------------------*')
writeln('*--* Time: *--*')
writeln('*-------------------------------------*')
end.


if someone has a good tutorial or a link, feel free to hand it over

[Home]

Well

Like Mined

You add after like Succeful mining loop this

Mined:=Mined + 28;

Mined ( Variable )

So it would come as

writeln('Mined : ' + inttostr(Mined));

And.. For that Time thing...
I don't use SRL functions.. I use this


Begin
cst := getsystemTime;
srt := (cst - sst) / 1000;
tih := srt / 3600;
tim := (srt / 60) - tih * 60;
tis := srt - tim * 60 - tih * 3600;
awt := wet - wst
( On start of Progress report )


Writeln('Worked : ' + inttostr(tih) + ' Hour''s ' + inttostr(tim) + ' Min''s ' + inttostr(tis) + ' Sec''s');

And after

SetupSRL; ( Or what ever you are using as include.. add )


//Tih := 0;
sst := GetSystemTime;



~Home

[JuKKa]

Wow!, big thanks to you, nice talking to you on msn!

[Home]

Np man, Always plesasure ::cool: ;)