This will display how long the script has worked for:
Writeln('Worked For : ' + ScriptTime2(2));
For other things, you are going to have to add a variable called monsters (or whatever you want to call it) and each time you click on a monster (to attack it) you go Monsters := Monsters + 1; Then, in your progress report procedure, you have
Writeln('Attacked ' + IntToStr(Monsters));
So progress reports are pretty simple. If you don't get it from my brief explanation (which you may not, because I didn't really explain it like a full tutorial would :p) you may want to check out WhiteShadow's tutorial for making a progress report, or you could check out mine Things the beginner tuts don't teach you, the progress report chapter :p