How to create a proggy?

[ffcfoo]

Hello, I have a script called FoozyFletcher and I been wanting to add a proggy to it like make logs that I cut and and the time running and levels gained and XP gained and Randoms solved. But I have no idea once so ever how to create one! I looked in the tutorials and I don't understand them. Can someone help me out?

Here is the script: program foozyfletcher;
{$Define SMART}
{$i SRL/SRL.scar}

var
LogDTM, LongBowDTM, T: Integer;

const
SMART_WORLD = 152; // World to load
SMART_MEMBER = True; // True = Members world
RestEvery = 23; //In minutes
RestFor = 12; //In minutes

procedure DeclarePlayers;
begin
NumberOfPlayers(1);

with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
LampSkill := 'fletching';
BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
end;

procedure LoadDTMs;
begin
LogDTM := DTMFromString('78DA63CC636660C8626440068E56220CFC4 01' +
'A26CA580B545382AA86818109220753930C549349404D3A50 4D0D' +
'0135E54035A9F8D5000038480519');

LongBowDTM := DTMFromString('78DA6394606160C861644006B326E833F00 36' +
'990E87F20605406AAA94655C3C0C0042661A28C5C40358904 D488' +
'01D5A4E157030024440790');
end;

procedure FreeDTMs;
begin
FreeDTM(LogDTM);
FreeDTM(LongBowDTM);
end;

procedure Rest;
var
When, Foar: Integer;
begin
When := RestEvery * 60 * 1000 + Random(3 * 60 * 1000);
Foar := RestFor * 60 * 1000 + Random(3 * 60 * 1000);
if(TimeFromMark(T) > When)then
begin
Wait(Foar);
if(not(LoggedIn))then
LoginPlayer;
MarkTime(T);
end;
end;

function OutOfLogs: Boolean;
var
x, y: Integer;
begin
GameTab(Tab_Inv);
Result := not(FindDtm(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

function OutOfBows: Boolean;
var
x, y: Integer;
begin
Result := not(FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

procedure Antiban;
begin
case Random(100) of
10: BoredHuman;
20: HoverSkill('random', False);
30: HoverSkill('fletching', False);
40: PickUpMouse;
50: RandomRClick;
60: RandomMovement;
70: SleepAndMoveMouse(200 + Random(50));
90: ExamineInv;
end;
end;

procedure DoAntiBan;
begin
while not OutOfLogs do
begin
AntiBan;
Wait(1000 + Random(2000));
end;
end;

procedure Banking;
begin
OpenBankFast('veb'); // Opens Bank
Wait(300 + Random(300));
MouseBox(53, 102, 57, 113, 2);
Wait(300 + Random(300));
ChooseOption('All');
Wait(300 + Random(300));
CloseBank;
end;

procedure Cutting;
var
x, y: Integer;
begin
InvMouse(1, 1);
Wait(300 + Random(100));
if(FindDTM(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 3, 3, True);
Wait(900 + Random(900));
MouseBox(264, 408, 274, 419, 2);
Wait(300 + Random(300));
ChooseOption('X');
Wait(300 + Random(300));
TypeSend(ToStr(27 + Random(99)));
Wait(700 + Random(700));
end;
repeat
FindNormalRandoms;
DoAntiBan;
until(OutOfLogs);
end;

procedure Signature;
begin
ClearDebug;
Writeln('FOOZY FLETCHER!');
Wait(100);
Writeln('BY: FOOSMEELS!');
end;

procedure PutInBank;
var
x, y: Integer;
begin
OpenBankFast('veb');
Wait(300 + Random(300));
if (FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 3, 3, False);
Wait(300 + Random(300));
ChooseOption('All');
end;
end;

begin
Smart_Server := SMART_WORLD;
Smart_Members := SMART_MEMBER;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LogInPlayer;
LoadDTMs;
Signature;
MarkTime(T);
repeat
Banking;
Cutting;
PutInBank;
Rest;
until(False);
FreeDTMs;
end.

[i luffs yeww]

program foozyfletcher;
{$Define SMART}
{$i SRL/SRL.scar}

var
LogDTM, LongBowDTM, T, Rested, Cut: Integer;

const
SMART_WORLD = 152; // World to load
SMART_MEMBER = True; // True = Members world
RestEvery = 23; //In minutes
RestFor = 12; //In minutes

procedure DeclarePlayers;
begin
NumberOfPlayers(1);

with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
LampSkill := 'fletching';
BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
end;

procedure LoadDTMs;
begin
LogDTM := DTMFromString('78DA63CC636660C8626440068E56220CFC4 01' +
'A26CA580B545382AA86818109220753930C549349404D3A50 4D0D' +
'0135E54035A9F8D5000038480519');

LongBowDTM := DTMFromString('78DA6394606160C861644006B326E833F00 36' +
'990E87F20605406AAA94655C3C0C0042661A28C5C40358904 D488' +
'01D5A4E157030024440790');
end;

procedure FreeDTMs;
begin
FreeDTM(LogDTM);
FreeDTM(LongBowDTM);
end;

procedure Rest;
var
When, Foar: Integer;
begin
When := RestEvery * 60 * 1000 + Random(3 * 60 * 1000);
Foar := RestFor * 60 * 1000 + Random(3 * 60 * 1000);
if(TimeFromMark(T) > When)then
begin
Wait(Foar);
if(not(LoggedIn))then
LoginPlayer;
MarkTime(T);
IncEx(Rested, Foar);
end;
end;

function OutOfLogs: Boolean;
var
x, y: Integer;
begin
GameTab(Tab_Inv);
Result := not(FindDtm(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

function OutOfBows: Boolean;
var
x, y: Integer;
begin
GameTab(Tab_Inv);
Result := not(FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;

procedure Antiban;
begin
case Random(100) of
10: BoredHuman;
20: HoverSkill('random', False);
30: HoverSkill('fletching', False);
40: PickUpMouse;
50: RandomRClick;
60: RandomMovement;
70: SleepAndMoveMouse(200 + Random(50));
90: ExamineInv;
end;
end;

procedure DoAntiBan;
begin
while not OutOfLogs do
begin
AntiBan;
Wait(1000 + Random(2000));
end;
end;

procedure Banking;
begin
OpenBankFast('veb'); // Opens Bank
Wait(300 + Random(300));
MouseBox(53, 102, 57, 113, 2);
Wait(300 + Random(300));
ChooseOption('All');
Wait(300 + Random(300));
CloseBank;
end;

procedure Cutting;
var
x, y: Integer;
begin
InvMouse(1, 1);
Wait(300 + Random(100));
if(FindDTM(LogDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Mouse(x, y, 3, 3, True);
Wait(900 + Random(900));
MouseBox(264, 408, 274, 419, 2);
Wait(300 + Random(300));
ChooseOption('X');
Wait(300 + Random(300));
TypeSend(ToStr(27 + Random(99)));
Wait(700 + Random(700));
end;
repeat
FindNormalRandoms;
DoAntiBan;
until(OutOfLogs);
if(OutOfLogs)then
IncEx(Cut, 27);
end;

procedure Signature;
begin
ClearDebug;
Writeln('FOOZY FLETCHER!');
Wait(100);
Writeln('BY: FOOSMEELS!');
end;

procedure PutInBank;
var
x, y: Integer;
begin
OpenBankFast('veb');
Wait(300 + Random(300));
if (FindDTM(LongBowDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 3, 3, False);
Wait(300 + Random(300));
ChooseOption('All');
end;
end;

procedure Proggy;
begin
Writeln(' _________________________');
Writeln('/ FoozyFletcher by ffcfoo \');
Writeln('|-------------------------|');
Writeln(Padr('| Ran for ' + TimeRunning, 45) + '|');
Writeln(Padr('| Cut ' + ToStr(Cut) + ' logs', 45) + '|');
Writeln(Padr('| Rested for ' + ToStr(Rested / 1000) + ' seconds', 45) + '|');
Writeln('\ FoozyFletcher by ffcfoo /');
Writeln(' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ');
end;

begin
ClearDebug;
Smart_Server := SMART_WORLD;
Smart_Members := SMART_MEMBER;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LogInPlayer;
LoadDTMs;
Signature;
MarkTime(T);
repeat
Banking;
Cutting;
PutInBank;
Rest;
Proggy;
until(False);
FreeDTMs;
end.