-
Progress Report Request
odd how i didnt find a progress report tutorial!!
well, i know aproximitly how the report is done, just need some help :D
Code:
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
-
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
PHP Code:
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 )
PHP Code:
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 )
PHP Code:
//Tih := 0;
sst := GetSystemTime;
~Home
-
Wow!, big thanks to you, nice talking to you on msn!
-
Np man, Always plesasure ::cool: ;)