Quote:
program air_crafter;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\Fishing.SCAR}
{.include SRL\SRL\extended\xMapWalk.SCAR}
{.include SRL\SRL\extended\xObject.SCAR}
const BankColour = 2968161; //Put Bank Colour here for first Bank Slot.. leave it if your not gettin any trouble
var altar,cx,cy,cz,cv,xz,xv : Integer;
procedure loadbmps;
BEGIN
altar := BitmapFromString(8, 9, '55574A4E444C3C3739433E3E35' +
'3433303330373A372F302C5F714158594342373B3C3839323 A353' +
'736332C34313A3935362C346C745A5759554A3E42453D4036 3936' +
'282D2928302C1E171970876168755C72756D51534F4840464 C454' +
'4393C38212223406A1A4F4F48666C557984696972644F4A4F 4E44' +
'440E151B15171F3C3633322C2D3D3E2F6B6F626C79645A5F5 A030' +
'B11403D3C3A363335302F3833314039386157586B7460262A 2B42' +
'3C383F3B363837343D49463442404747435A52523D3935393 B373' +
'839383F393745444234403B2E3C393D4541');
end;
procedure getess;
BEGIN
activateclient;
OpenBankColor(BankColour);
FixBank;
DepositAll;
Withdraw(1, 1, 28);
wait(1000+random(33));
CloseBank;
ChanceWait(200);
end;
procedure toaltar;
BEGIN
Mouse(146,317,5,5,true);
CountFlag(1);
FindNormalRandoms;
Mouse(639,153,5,5,true);
CountFlag(1);
FindNormalRandoms;
Mouse(629,146,6,6,true);
PickUpMouse;
CountFlag(1);
Mouse(607,123,2,2,true);
CountFlag(1);
FindNormalRandoms;
Mouse(632,135,2,2,true);
CountFlag(1);
Mouse(630,93,1,2,true);
FindNormalRandoms;
end;
procedure altarinout;
BEGIN
FindObjFast(cx, cy, 'yst',3290168,5);
Mouse(cx,cy,5,6,true);
Wait(2000+random(100));
FindObjFast(cz, cv, 'tar',4671824,5);
Mouse(cz,cv,5,5,true);
Wait(3000+random(1000));
FindObjFast(xz,xv,'tal',7049368,5);
Mouse(xz,xv,2,2,true);
Wait(1000+random(300));
end;
procedure backtobnk;
BEGIN
Mouse(698,33,6,7,true);
CountFlag(1);
Mouse(678,22,3,3,true);
CountFlag(0);
Mouse(643,16,2,2,true);
CountFlag(0);
Mouse(652,13,2,2,true);
CountFlag(0);
Mouse(656,28,1,1,true);
CountFlag(0);
ToBankers(BankColor, 5,5);
end;
begin
repeat
SetupSRL;
loadbmps;
FindNormalRandoms;
activateclient;
getess;
FindNormalRandoms;
toaltar;
FindNormalRandoms;
altarinout;
FindNormalRandoms;
backtobnk;
until (LoggedIn = false)
end.
note: I have bitmap in there because at first I was trying to make it click altar throu bitmap.. But it just didnt seem to click..