SRL Archive - OSR Help

Hello guys,

I've encountered a problem with my progress reports.
The GetXP( ) is really inaccurate. This is messing up my proggys :(
See the proggy below to see what I mean.

*******************************************
******************** OkOkOkOk AKCBaller ***
*******************************************
Proggy for the player: YouWouldLikeToKnowWouldntYou
Time running: 16Minutes
We have gained: -134961 Smithing xp / Thats -506104 Smithing xp per hour
We have done: 4 Loads / Thats 14 Loads per hour
We have made: 432 Cannonballs / Thats 1601 Cannonballs per hour

EDIT:

function GetXP(skill: variant): integer;
var
  MouseTB,b: TBox;
  rc: TPoint;
  tpa: TPointArray;
begin
  result := -1;

  if(not TabExists(tab_Stats)) or (not gameTab(tab_Stats)) then
    exit;

  rc:= SkillToPoint(skill);
  MouseTB := SkillBoxCoords(rc.x,rc.y);
  if (MouseTB.X1 < 1) then
    exit;

  MMouse(MouseTB.X1+3,MouseTB.Y1+3, 55, 25);
  wait(400 + random(200));

  if (WaitFindColors(tpa, 10551295, MIX1, MIY1, MIX2, MIY2, 0, 3000)) then
  begin
    b := getTPABounds(tpa);
    wait(450 + random(150));
    result := strToIntDef(getNumbers(GetTextAtExWrap(b.x1+15, b.y1+2,b.x2-2,
                                    b.y1+13, 0, 5, 1, 0, 0, 'smallChars07')), -1);
  end;
end;  

Couldn't I just lower 55 and 25 in this line and rename the function and paste it in my script?

  MMouse(MouseTB.X1+3,MouseTB.Y1+3, 55, 25);

Thanks in advance