fill out what on a scar script?

ive got this script that i want to have filled out but i think im missing something, can somebody fill it out (in examples) and point them out with maybe a different post or in big words in the middle of the script like this




(heres the scar script)
{ Proresearch's Seers Maple Cutter and Dropper Beta 0.01
Start NW of seers bank near the farming patch
that is by the coal trucks tracks tons of maples there
Dont cut at maples by the bank...

Weild a axe and Have a backup axe in 1st Inventory Spot
Start Near the Top In the middle of the Forrest
This is because you run south during a fight and it dont walk
back, there is no need to, looks suspicious.
Forrest has ton's of Maples, it's the secret Woodcut Guild

My 1st ever Script Spent 23 hours on it. This Scar thing is now
starting to click in to my head. I am starting to get it.
}
program SeersMapleCutterDropper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Firemaking.scar}

const
DirrectionR = 'S'; //Which way to run if in fight.
HowManyLoads = 10; //
MySRLID = '0000'; // optional.
MySRLPassword = 'Pass';


var
AxeH, WoodcutLv, TreeToCut, x, y: Integer;
ML, Burnt, Maple, i, Nest, NumberOfLogs, CurrentLoad,
Drop: Integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; //3 letters of your username
Players[0].Active := True;

end;

procedure LoadDTMS;
begin
AxeH := DTMFromString('78DA63EC63666058C1C8800C9A92781974804' +
'220D1FF40C0D80D54B305550D48968B01A206CCEB01AA5949400D' +
'C8AE8504D44C04AA994540CD1CA09AD944A8594C847BD61150D30' +
'B54B309BF1A00B817109E');
ML := DTMFromString('78DA631465606010604001599EBC0CFF81342' +
'310FF0702461920831D554DAC030F986684F2191580041F031A60' +
'4455A30C24C408A811041252A82ADA538C50D580AC1647555317A' +
'B87AA86134888A0AA6949324055C30D24B851D5F4669AA0A80100' +
'619B0C0D');

LogMask := BitmapFromString(31, 25, 'z78DAED97810D002008C35' +
'EE20AFF3FC90F0806852EB207A88EC030EBD1726530C5D938FCA7' +
'24B7C8575AAF5FCA712D5397D0695D7EFD49AEDB2DEAE47106E62' +
'EF349983BD77781CF9CEFA5211FF221AF9F90BAE4CC1BE434E757' +
'DE869555EE7232F39B56FE519954845FDD2F1893E2')

Nest := DTMFromString('78DA63B4606460D0016224E0EECF05A661A28' +
'C20356AA86A9C6C7551D5D80159DA04D4D8025906A86AF4745451' +
'D5980159C6A86A02BC1D50D59860BAD93B841B558D11A65D4E76A' +
'6286A00C9220791');

end;






procedure Check;
begin
if (not (LoggedIn)) then Exit
GameTab(4);
end;


function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
Writeln('Looking for Randoms');
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);

end;
end;

Function LoadsDone: Boolean;
Begin
If(CurrentLoad >= HowManyLoads)Then
Result:= True;
End;

procedure FindRandoms;
begin
if (not (LoggedIn)) then Exit
Writeln('Looking for Randoms');
FindFastRandoms;
FindNormalRandoms;
Wait(20)
FindTalk;
FTWait(3)
if (FindFight) then
begin
RunAwayDirection(DirrectionR);
Wait(8000 + Random(2000));
RunBack;
end;
Wait(20)
FindTalk;
end;

procedure DropRandoms;
begin
if (not (LoggedIn)) then Exit
Writeln('Quickie Randoms');
FindFastRandoms;
FindNormalRandoms;
Wait(2)
FindTalk;
FTWait(3)
if (FindFight) then
begin
RunAwayDirection(DirrectionR);
Wait(8000 + Random(2000));
RunBack;
end;
Wait(2)
FindTalk;
end;

procedure AntiBannage;
begin
case random(16) of
0: GameTab(5 + Random(12));
1: BoredHuman;
2: GameTab(4 + Random(12));
3: GameTab(1 + Random(12));
4: GameTab(2 + Random(12));
5: RandomMovement
6: BoredHuman;
7: PickUpMouse;
8: RandomRClick;
9: BoredHuman;
10: GameTab(1 + Random(12));
11: RandomMovement;
12: GameTab(5 + Random(12));
13: GameTab(6 + Random(12));
14: BoredHuman;
15: GameTab(7 + Random(12));


end;
end;


procedure MoveIfProblem;
begin
if (not (LoggedIn)) then
begin
Nextplayer(false);
end;
begin
MouseFindFlag(643, 78, 2, 2)
FindFastRandoms;
FindRandoms;

end;
end;







procedure DropMaple;
Begin
NumberOfLogs := NumberOfLogs + 27;
if Not(LoggedIn) then exit;
GameTab(4);
for i := 2 to 28 do
Begin
Writeln('Droping your Maples you Noob, Be Patient');
DropItem(i);
if (i = 5) or (i = 10) or (i = 15) or (i = 20) or (i = 25) then
DropRandoms;
end;

end;


procedure FindBirdsNnest;
////dunno if this works might have to change the color///
begin
if (not (LoggedIn)) then
begin
Nextplayer(false);
end;

begin
Writeln ('Looking for Birds Nest')
wait(10 + random(2));
if FindObj(x, y, 'Birds Nest', 4082254, 5) then
begin
getmousepos(x, y);
mouse(x, y, 0, 0, true);
Writeln ('Found Birds Nest')

wait(10 + random(2));
FindFastRandoms;
end;
end;
end;





procedure check1;
begin
if (not (LoggedIn)) then
begin
Nextplayer(false);
end;
begin
Setrun(false);
WoodcutLv := GetSkillLevel('woodcutting')
WriteLn('Starting WC level: ' + IntToStr(WoodcutLv));
end;
end;



procedure MainLoop;
begin
if (not (LoggedIn)) then
begin
Nextplayer(false);
end;
begin
if invfull then
DropMaple;
begin

wait(1000 + random(2000));
if FindObj(x, y, 'Maple', 12911, 5) then
begin
getmousepos(x, y);
mouse(x, y, 0, 0, true);
wait(1000 + random(2000));

FindFastRandoms;
FindRandoms;
FindBirdsNnest;
end;
end;
end;
end;


procedure Cut;
begin
if (not (LoggedIn)) then
begin
Nextplayer(false);
end;
begin
HighestAngle;
if ((GetSkillLevel('woodcutting')) < 99) and
((GetSkillLevel('woodcutting')) >= 1) then
TreeToCut := Maple;
begin
MainLoop;
end;

end;
end;



procedure MapleSearch;
begin
if (not (LoggedIn)) then
begin
Nextplayer(false);
end;
begin
HighestAngle;
Writeln('Looking for Maples, be patient you Autoer;');
if (TreeToCut = Maple) then
begin
MainLoop;
FindFastRandoms;
FindRandoms;
end;
end;
end;

procedure ProgressReport;
begin
WoodcutLv := GetSkillLevel('woodcutting')
ClearDebug;
Writeln('-------------------------------------------------------');
Writeln(' Proresearchs Maple Cutter and Dropper ');
Writeln(' Report! ');
WriteLn(' Worked for ' + TimeRunning + '.');
Writeln(' Logs Cut ' + IntToStr(NumberOfLogs) + '' + ' ');
Writeln(' Ents Avoided ' + IntToStr(EntsAvoided) + '' + ' ');
Writeln(' Please Post Proggies in SRL-Forums ');
WriteLn('Current WC level: ' + IntToStr(WoodcutLv));
Writeln('---------------------------------------------------------');
end;


procedure Setup;
begin
Burnt := 0;
end;
begin
ActivateClient;
SetupSRL;
ActivateClient;
wait(100);
Setup;
DeclarePlayers;
if (not (loggedIn)) then
begin
LoginPlayer;
end;
begin
Check;
check1
FindRandoms;
Cut;
repeat
repeat;
FindRandoms;
AntiBannage;
ProgressReport;
MapleSearch;

until (invfull);
if (invfull) then
begin
if (not (LoggedIn)) then
begin
Nextplayer(false);
end;
begin
if InChatMulti('of 15', 'Maple', 'aple logs.') then
begin
if FindDTM(ML, x, y, 553, 209, 725, 457) then
begin
MMouse(x, y, 5, 5);
wait(500);
if IsUpText('Maple') then
wait(100);
Mouse(x, y, 1, 1, False);
wait(500);
ChooseOption('Drop');
Drop := Drop + 1;
end;
end;
end;
end;
begin
MainLoop;
end;

begin
repeat

FindRandoms;
ProgressReport;
until (not (FindBitmapMaskTolerance(LogMask, x, y, 553, 209, 725, 457, 10, 2))) or
(ML = (ML));
if (ML >= ML) then
begin
NextPlayer(True);
end;
end;
until (false);
end;

end.