For a start, this isn't a tutorial, so this shouldn't be in this section.
Here is my progress report from my Iron Miner:
Progress Report:
Procedure ProgressReport;
var
hh, mm, ss: Integer;
begin
ConvertTime(TimeFromMark(CharRun), hh, mm, ss);
Writeln(' ');
Writeln(' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ ');
Writeln(' |J|a|g|e|x|_|F|a|g|e|x| |S|c|r|i|p|t|i|n|g| ');
Writeln(' +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ ');
Writeln('Presents '+SCRIPT_NAME+' v '+SCRIPT_VERSION+'!');
Writeln(' ');
Writeln(' Total running time - '+TimeRunning);
Writeln(' Current Player - '+ Players[CurrentPlayer].Name);
Writeln(' This player running time - '+intToStr(hh)+' Hours, '+intToStr(mm)+' Minutes, '+intToStr(ss)+' Seconds');
Writeln(' Iron Ore mined - '+intToStr(Players[CurrentPlayer].Integers[8]));
Writeln(' Total loads complete - '+intToStr(loadsComplete));
Writeln(' Total Exp gained - '+intToStr(Players[CurrentPlayer].Integers[8]*ironExp));
Stats_Commit;
end;
As you can see, you can easily do maths in it. I use maths to work out EXP gained.