I need some help to improve this it works but i want it running better
SCAR Code:
procedure Banking;
begin
MakeCompass('n');
wait(1000);
if(FindObj(x,y, 'Talk-to',(Bcolor1),30))then
begin
Mouse(x,y,2,2,False);
ChooseOption('Bank');
if(BankScreen)then
begin
wait(2000);
DepositAll;
WithDraw((Lobbies));
CloseBank;
end else
if not(FindObj(x,y, 'Talk-to',(Bcolor1),30))then
begin
MakeCompass('e');
wait(1000);
if(FindObj(x,y, 'Talk-to',(Bcolor2),30))then
begin
Mouse(x,y,2,2,False);
ChooseOption('Bank');
wait(2000);
DepositAll;
WithDraw((Lobbies));
CloseBank;
end else
if not(FindObj(x,y, 'Talk-to',(Bcolor2),30))then
begin
Banking;
end;
end;
end;
i want to scale it down a bit i will be very greatfull 
thanks
CRU1Z1N........