tombow
2012-04-17 17:31:00
can someone please post the easiest proggy to make as i need one to release my script just like to say ore mined and xp a hour?
2012-04-17 17:31:00
2012-04-17 17:59:06
2012-04-17 18:01:23
2012-04-17 18:08:54
From: PatDuffy
There are atleast 2 guides I know of that will teach you how to do just that.
2012-04-17 20:57:50
procedure ProgressReport(var startXP: integer);
var gain: integer;
begin
gain := GetXPBarTotal- startXP;
{$IFDEF DEBUG}
{$ENDIF}
writeln('////////DUDES_MAGIC_ALCHER\\\\\\\\');
writeln('TIME RAN: ' + TimeRunning);
writeln('XP GAIN: ' + IntToStr(gain));
writeln('XP/HR: ' + floatToStr(3600000 * 1.0 / GetTimeRunning * gain));
end; var
startXP: integer;