I need someone to help me to fill this out

[greenieman]

begin
YEntBmp:= BitmapFromString(2, 10, 'z78DA73357135317074452' +
'29D5D9D5D0D8C70B24D8950834B3D121B00ADF01C47');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('YewCutterBanker v. Beta - by RealRune');
writeln('Start in the bank with the banksymbol visible');
writeln('Empty inv except for a pick either wielded or in first slot of inventory');
writeln('Empty inv except for a pick either wielded or in first slot of inventory');
writeln('Make sure to have extra picks in first Bank Slot');
writeln('Make sure to have extra picks in first Bank Slot');
writeln('Starting Up');
writeln('Starting Up');
wait(1000);
LoadInclude(youtube.com);
SetAccount(1, user, pass);
GetAxeColors(wield);
T1:=Tree1; 276788
T2:=Tree2; 2115390
T3:=Tree3; 276788
BankS:=BankSymb; 873070
Killed:=0;
if(BankS = 0)then
BankS:= GetSymbolColor('873070');
if(BankS = 0)then
begin
writeln('Color finding failed... please input colors urself');
writeln('Color finding failed... please input colors urself');
Logout;
TerminateScript;
end;
if(FindColor(tx, ty, BankS, 573, 8, 723, 158) = true)then
begin
SetRun(true);
BankToYews;
SetRun(false);
end;
repeat
repeat
CutTree(276788, 2115390, 276788, 'down Y');
if(Full = false)then
begin
SwitchTrees;
CuttingRandoms;
end;
if(Broke = true)then
NewAxe;
AntiBan2(inTime, outTime, 1);
until(full = true);
if(Full = true)then
begin
Times:=times + 1;
ClearInv;
Report;
end;
AntiBan2(inTime, outTime, 1);
until(times = trips) or (times > trips);
end.





plzzz help