SCAR Code:
{*******************************************************************************
procedure FixBank;
by: lordsaturn and Nava2. Edit by Nose_Smasher
Description: Scrolls the bank screen up.
*******************************************************************************}
procedure FixBank;
begin
if BankScreen then
begin
if GetColor(489, 101) = 2830904 then exit;
if GetColor(489, 101) <> 1316634 then
begin
Mouse(485, 102, 7, 10, True);
while GetColor(489, 101) <> 1316634 do
Wait(20);
Wait(100 + Random(200));
end;
end;
end;