Standards fixed..
No script is useless, this is his first script and he's done a good job on it. Better than most of these leechers around here.
SCAR Code:
program DwarvenStoutBuyer;
{.include SRL/SRL.scar}
{=========================================================================]
[ Stout Buyer ]
[ ]
[ NAME : Beer Buyer. ]
[ WRITER : Dudenow12 ]
[ CATEGORY : ..... ]
[ DESCRIPTION : Buys Beer from the bar in west Falador. ]
[ USAGE : Buys Beer for you. ]
[ AUTOCOLOR : Yes ]
[ CONTACT : [url]www.srl-forums.com[/url] Dudenow12 ]
[ ]
[ ]
[=========================================================================]
[ ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Const ]
[ 4. Go to West Falador. ]
[ 5. Go to the bar. ]
[ 6. Start script Logged In! ]
[=========================================================================}
const
Stouts = 28; //How many Stouts you want to buy
procedure StartProgressReport;
var
Money: Integer;
begin
Money := Stouts * 3;
Writeln('Stouts being bought ' + IntToStr(Stouts))
Writeln('Gp being spent ' + IntToStr(Money));
end;
procedure FindNpcSeller;
var
x: Integer;
y: Integer;
begin
if (FindColorSpiralTolerance(x, y, 1758679, MSX1, MSY1, MSX2, MSY2, 5)) then
begin
MMouse(x, y + Random(4), 2, 2);
wait(100 + Random(50));
if (IsUpText('mily')) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);
end;
end;
end;
procedure BuyStout;
begin
ClickNpcChatText('lick', true);
wait(1000 + Random(100));
ClickNpcChatText('ere', true);
wait(1000 + Random(75));
ClickNpcChatText('lick', true);
wait(1000 + Random(50));
ClickNpcChatText('warv', true);
wait(1000 + Random(100));
ClickNpcChatText('ont', true);
wait(1000 + Random(100));
ClickNpcChatText('lick', true);
end;
procedure Bank1; //Will be used when I update the script
var
Time: Integer;
begin
MarkTime(Time)
repeat;
if (not (Loggedin)) then Break;
OpenBankQuiet('fwb')
until (BankScreen or (TimeFromMark(Time) > 120000));
Withdraw(1, 1, (Stouts * 3));
CloseBank
end;
procedure Bank2; //Will be used when I update the script
var
Time: Integer;
begin
MarkTime(Time)
repeat;
if (not (Loggedin)) then Break;
OpenBankQuiet('fwb')
until (BankScreen or (TimeFromMark(Time) > 120000));
end;
begin
ClearDebug;
SetupSrl;
StartProgressReport;
repeat;
FindNpcSeller;
wait(1000 + Random(50));
BuyStout;
wait(1000 + Random(750));
until (InvFull);
end.