program new;
var

StartTime:=GetSystemTime;


begin
Proggy()
end.

procedure Proggy;
var
  StartTime:Integer;
  XP,XPH,Sec:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
//Your other vars go here

writeLn('============Proggy============');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writeLn('GP Earned: ' );
writeLn('GP/h: ' );
//other stuff
//other stuff
writelN('===================================');
end;