Need some help

[Fultoa]

I am creating a alching script and i have it almost done, But I am having a little problem...
The Problem is, Im trying to get the (Exp Gained) To work
Atm it is the gained exp is going off the timer, so every second it adds 65 exp to the counter... Im trying to make it go off the actual alching, but i don't know how to go about that.

//THIS SCRIPT IS A NORMAL ALCHING SCRIPT SHOWING A COUPLE TUTS.
//To Who ever Gives This script a edit. Give me "Ryan" Credit!!
program clicker;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}



procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers)
CurrentPlayer := 0;
//Editing Starts Here.
Players[0].Name := 'ryanyukon199'; // Runescape Username
Players[0].Pass := 'born2bme13'; // Runescape Password
Players[0].Nick := 'ryan'; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := '2783'; // Leave blank if the player doesn't have a bank pin
Players[ 0].Booleans[ 1] := True; //Would you like to have the XP Counter on?
//WAIT! DON't GO ANY FURTHER! - stop
end;

var
foodnumber,T,Exp,Charms,XPH,BMP,Kills,MSpeed,RandA mount:Integer;
OldXP, TimeSinceFight: Integer;
DCols: Array of Integer;
Drops: Array of String;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;

Procedure Proggy;


begin
ClearDebug;
Writeln('***************************************** ***');
Writeln('* |*/\Ryans Alcher V1/\*| *');
Writeln('***************************************** ***');
Writeln('* Time Ran = ' + TimeRunning + '');
Writeln('* Exp Gained = ' + IntToStr(Exp) + 'EXP');
Writeln('***************************************** ***');
End;
procedure Repeatalch;
var
numberOfWaits,startagain: Integer;
begin
repeat
Mouse(574 + Random(8),(369 + random(5)),0,0,true); //Clicking Spell
Wait(101 + Random(50)); //Clicking Spell wait time
Mouse(574 + Random(8),(369 + random(5)),0,0,true); //Clicking Item To Alch
Wait(290 + Random(50)); //Clicking Item TO alch wait time
Proggy;
begin
Inc(Kills);
Exp :=(Kills*65);
end;
PrintOnSmart(['Time Ran: ' + TimeRunning + ''], Point(208, 312), 255);
Inc(numberOfWaits);
until(numberOfWaits = (99999)); //< Number of items to alch.
//It Loops From "repeat" To here.-------------- It will loop 10,000 Times as shown
//Once Looped 10,000 Times It will Do The following
Writeln('Ran Out Of Items To Alch');
Writeln('Logging Off...');
Logout;
Writeln('Logged Out, Have a nice day!');
end;
procedure AntiBan;
var
numberOfWaits: Integer;
begin
repeat
Mouse(544,20,0,0,true);//Clicking North
Wait(500 + Random(50));//Waiting Before Clicking Next Coord
Mouse(532,62,0,0,true);//Clicking Exp
Wait(700 + Random(50));//Waiting Before Clicking Next Coord
Mouse(535,99,0,0,true);//Clicking Money Pouch
Wait(1300 + Random(50));//Waiting Before Clicking Next Coord
Mouse(597,186,0,0,true);
Wait(400 + Random(50));
Mouse(577,360,0,0,true);
Wait(2000 + Random(50));
Mouse(740,20,0,0,true);//<< Exits Out Of Magic INterface.
Wait(2000 + Random(50));
Mouse(748,186,0,0,true);
Wait(1250 + Random(50));
Inc(numberOfWaits);
until(numberOfWaits = (1)); //< Times To Do AntiBan Repeated.
Writeln('AntiBan Working.');
end;

begin
// These 4 lines HAVE to be set BEFORE you call SetupSRL;
Smart_Server := 72; //What World you would like to be on.
Smart_Members := True; //If you're members or not
Smart_Signed := True;
Smart_SuperDetail := False; //Just Keep at false.

ClearDebug; //<< Clears White Box Under Script.
SetupSRL; //<< Setting Up SRL
DeclarePlayers; // Calls the procedure, you can't forget this!
LoginPlayer; // You want your player to login, right?
Wait(4901 + Random(99));
Mouse(748,186,5,6,true);
Writeln('AntiBan Testing...');
AntiBan; //<< AntiBan Section Announced In the Main Loop Line.
Proggy; //<< Proggy Announced In the Main Loop Line.
Writeln('Starting To Alch.'); //<< Saying something in the cmd
Writeln('Alching!');
Writeln('Created By Ryan');
Repeatalch;
Proggy;
end.
//end of looping

[lilcmp1]

EDIT: Inc(kills) is counting everytime the script hits it. Why isn't that working?

[Fultoa]

I have that, it is Inc(Kills) and under it i have Exp :=(Kills*65); But It is counting the exp like a timer so every second is goes up 65. witch is making the exp go up to fast.

[lilcmp1]

Try getting rid of the begin/end around Inc(kills) as far as I know that counts the # it's been hit, not a timer of 1 sec. Idk where the 1 second is coming from. You could also try kills:= kills + 1; as a counter instead of inc(kills)

[Fultoa]

Not working >.<, I was thinking making it count off the XP In the middle of the screen, where it says +65 xp. But I don't know how to go about doing that.