SCAR Code:
program BeerBuyer;
{.include SRL/SRL.scar}
{=========================================================================]
[ Beer Buyer ]
[ ]
[ NAME : Beer Buyer. ]
[ WRITER : Dudenow12 ]
[ CATEGORY : ..... ]
[ DESCRIPTION : Buys Beer from the bar in west Falador. ]
[ USAGE : Buys Beer for you. ]
[ AUTOCOLOR : No ]
[ CONTACT : <a href="http://www.srl-forums.com" target="_blank">www.srl-forums.com</a> Dudenow12 ]
[ ]
[ ]
[=========================================================================]
[ ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Up 29-32 ]
[ 4. Go to West Falador. ]
[ 5. Go to the Bank. ]
[ 6. Start script! ]
[=========================================================================}
const//Set Up 29-32
Loads = 3; //How many loads you want to do.
BarFloorColor = 9284016; //Pick the color from the floor of the bar.
BankFloorColor = 9284016;//Pick the color from the floor of the Bank.
BeerType = 3;// 1 = Asgarnian Ale 2 = Mind Bomb 3 = Dwarven Stout
Money2 = 28*3; //Dont edit!!!
var//Global Variables
Loadz: Integer;
Procedure StartProgressReport;
var
Money: Integer;
Beers: Integer;
BeerNick: string;
BeerName: string;
begin
Money:= Loads*27*3;
Beers:= Loads*27
case BeerType of
1 : begin
BeerNick := 'sgar';
BeerName := 'Asgarnian Ale';
end;
2 : begin
BeerNick := 'ind';
BeerName := 'Mind Bomb';
end;
3 : begin
BeerNick := 'warv';
BeerName := 'Dwarven Stout';
end;
end;
WriteLn('-------Start Proggie-------')
WriteLn('Type of beer being bought '+ BeerName)
WriteLn('Beers being bought ' + IntToStr(Beers))
WriteLn('Gp being spent ' + IntToStr(Money))
WriteLn('---Script By: Dudenow12---')
end;
procedure FindNpcSeller;
var
x: Integer;
y: Integer;
begin
repeat
if (FindColorSpiralTolerance(x, y, 1758679, MSX1, MSY1, MSX2, MSY2,5)) then
begin
MMouse(x, y+random(2), 1, 0);
wait(10 + Random(50));
if(IsUpText('mily'))then
begin
GetMousePos(x,y);
Mouse(x, y, 0, 0, true);
wait(500+random(50));
PickUpMouse;
end;
end;
until(FindNPCChatText('eya'))
end;
Procedure BuyStout;
var
BeerNick: string;
begin
ClickToContinue;
wait(1000+random(100));
ClickToContinue;
wait(1000+random(75));
ClickToContinue;
wait(1000+random(50));
ClickNpcChatText((BeerNick), true);
wait(1000+random(100));
ClickToContinue;
wait(1000+random(100));
ClickToContinue;
end;
Procedure Bank1;
var
Time: Integer;
begin
MarkTime(Time)
repeat;
if (not(Loggedin)) then break;
OpenBankQuiet('fwb')
until(BankScreen or (TimeFromMark(Time) > 120000));
Withdraw(1, 1, (Money2*3));
wait(100+random(100));
CloseBank;
end;
Procedure WalkToBar;
begin;
RadialWalk((BarFloorColor) , 59, 74, 45, 0, 0);
Flag;
end;
Procedure WalkToBank;
begin;
RadialWalk((BankFloorColor) , 248, 53, 53, 0, 0);
Flag;
end;
Procedure Bank2;
var
time: Integer;
begin;
MarkTime(time)
repeat;
if (not(Loggedin)) then break;
OpenBankQuiet('fwb')
until(BankScreen or (TimeFromMark(time) > 120000));
if BankScreen then
begin;
Deposit(2,28,2)
Wait(100+random(50))
CloseBank;
Loadz:= Loadz + 1
end;
end;
Procedure EndProgressReport;
begin;
WriteLn('-----End Proggie-----')
WriteLn('Worked For' + TimeRunning)
WriteLn(IntToStr(BeerType)+'bought'+ IntToStr(Loadz*27))
WriteLn('---Script By: Dudenow12---')
end;
Begin
SetupSrl;
repeat;
Cleardebug;
StartProgressReport;
Bank1;
WalkToBar;
repeat;
FindNpcSeller;
wait(100+random(50));
BuyStout;
wait(1000+random(750));
until(InvFull);
WalkToBank;
Bank2;
EndProgressReport;
until(Loads = Loadz)
end.
all the files in ''core'' are already included to need to do that 
ScriptTime(2), have i changed to TimeRunning; 
all the other problems are solved i think