SCAR Code:
program boneburyer;
{==============================================================================}
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{==============================================================================}
{rules=========================================================================}
{put in your:==================================================================}
{*username=====================================================================}
{*password=====================================================================}
{*nickname=====================================================================}
{*bankpin======================================================================}
{*location of character========================================================}
{*number of players============================================================}
{*which smartworld=============================================================}
{*your srl id==================================================================}
{*your srl pass================================================================}
{*your run direction===========================================================}
{*the amount of loads you want to do===========================================}
{*and click play and enjoy=====================================================}
{*and please post end proggy===================================================}
{==============================================================================}
const
SmartWorld = 105;
Signed = True;
YourSRLId = '3953';
YourSRLpass = '2ucrBRvcrz';
rundir ='n';
loads = 3;
{==============================================================================}
var
a , x, y : integer;
bonesinvent :integer;
bones, bankbone : integer;
{==============================================================================}
procedure loadbitmaps;
begin
bonesinvent := BitmapFromString(13, 13, 'beNpjYGhgIBE1kK5lO' +
'CIGYoOrgYEYLQ0QebAaJC24lB0AA4QWDGUQlRBlDTCAohIAW/ZeAQ' +
'==');
end;
{==============================================================================}
procedure loaddtms;
begin
writeln('loading bones dtm and bankbone....');
bones := DTMFromString('78DA631466606010644001678E1E61F80FA41' +
'981F83F10304A0119BC0C6880118904D2B2404294801A01202145' +
'400DC81E01026A40EEE520A0861F487013502306243809A86127C' +
'2EF7C404218BF1A00A20208B9');
bankbone := DTMFromString('78DA6394626060E062400137AF5C06D38C40F' +
'C1F081855800C7E0634C08844026951202142400D2FA65D186A84' +
'81043B0135C4B88718351244B819E42F3E22DCCC43408D3C90602' +
'3A0468AB05D00FEED0872');
writeln('loaded all dtms');
end;
{==============================================================================}
procedure declareplayers;
begin
writeln('declaring player...');
CurrentPlayer := 0;
NumberOfPlayers(1); // raise if you added more PLAYERS! please
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Strings[1] := ''; // Bank Pin
Players[0].Loc := ''; //bank look down location
//'akb', 'al kharid'
//'lb', 'lumbridge'
//'veb', 'varrock east'
//'vwb','varrock west'
//'feb', 'falador east'
//'fwb', 'falador west'
//'db', 'draynor'
//'eb', 'edgeville bank'
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
writeln('declared players logging in...');
end;
{=============================================================================-}
procedure findloc;
begin
writeln('this does not work for any memeber banks');
if Players[CurrentPlayer].Loc ='akb' then
begin
writeln('your player is in al-kharid bank');
end;
if Players[CurrentPlayer].Loc ='lb' then
begin
writeln('your player is in lumbridge bank');
end;
if Players[CurrentPlayer].Loc ='veb' then
begin
writeln('your player is in varrock east bank');
end;
if Players[CurrentPlayer].Loc ='vwb' then
begin
writeln('your player is in varrock west bank');
end;
if Players[CurrentPlayer].Loc ='feb' then
begin
writeln('your player is in falador east bank');
end;
if Players[CurrentPlayer].Loc ='fwb' then
begin
writeln('your player is in falador west bank');
end;
if Players[CurrentPlayer].Loc ='db' then
begin
writeln('your player is in draynor bank');
end;
if Players[CurrentPlayer].Loc ='eb' then
begin
writeln('your player is in edgeville bank');
end;
if Players[CurrentPlayer].Loc ='' then
begin
writeln('you have not set the location of the bank');
writeln('terminating script....');
writeln('set the location of the bank and please start again!');
terminatescript;
end;
end;
{==============================================================================}
procedure Antiban;//antiban by osmm
begin
writeln('starting antiban');
MouseSpeed := 9 + Random(3);
case random(7) of
0: begin
SleepAndMoveMouse(500 + random(500));
SleepAndMoveMouse(1500);
end;
1: begin
MMouse(Random (500), Random (500), 10 , 10);
MMouse(Random (500), Random (500), 10 , 10);
end;
2: begin
GameTab(1 + random(13));
FTWait(RandomRange(2,4));
GameTab(4);
end;
3: begin
RandomMovement;
ChooseOption('Cancel');
end;
4: begin
GameTab(2);
FTWait(RandomRange(2,4));
GameTab(4);
end;
5: begin
FTWait(RandomRange(2,4));
RandomMovement;
GameTab(4);
end;
6: begin
Pickupmouse;
BoredHuman;
GameTab(4);
end;
end;
end;
{==============================================================================}
procedure myantiban;// inventoryantiban; by me!!!
begin
writeln('starting inventoryantiban;');
MouseSpeed := 7 + Random(3);
case random(7) of
0: begin
gametab(4);
ArrangeInv;
MMouseItem(16);
end;
1: begin
gametab(4);
MouseItem(1, false);
ChooseOption('Cancel');
end;
2: begin
AlmostLogout;
HoverSkill('prayer', false);
gametab(4);
gametab(10);
end;
3: begin
gametab(4);
BoredHuman;
PickUpMouse;
BoredHuman;
end;
4: begin
gametab(4);
RandomRClick;
chooseoption('cancel');
gametab(4);
FixChat;
end;
5: begin
gametab(4);
RandomMovement;
SleepAndMoveMouse(2000);
end;
6: begin
OpenBankFast(Players[CurrentPlayer].Loc);//location of bnk look up
wait(2000);
if PinScreen then
InPin(Players[CurrentPlayer].Strings[1]);
wait(2000);
closebank;
if BankScreen then
fixbank;
CloseBank;
end;
7: begin
BoredHuman;
DragItem(18, 1);
BoredHuman;
ChooseOption('Cancel');
end;
end;
end;
{==============================================================================}
procedure burybones; forward;
{==============================================================================}
procedure withdrawbones; forward;
{==============================================================================}
procedure randoms; forward;
{==============================================================================}
procedure changecompassrandomly; forward;
{==============================================================================}
procedure proggy; forward;
{==============================================================================}
procedure checkinvent;
begin
gametab(4);
if invfull then
begin
writeln('inventory is full checking for bones...');
if findbitmapin(bonesinvent, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
writeln('found the bitmap of the normal bones, burying...');
burybones;
end else
writeln('inventory is empty we will withdraw the bones');
withdrawbones;
end;
end;
{==============================================================================}
procedure getburyedwriting;
begin
if IsChatBlackTextAnyLine('you dig a hole in the ground...') or
ischatblacktextanyline('you bury the bones.') then
begin
writeln('found the writing');
writeln('scar dug a hole in the ground');
writeln('scar buryed the bones');
randoms;
antiban;
myantiban;
changecompassrandomly;
end else
randoms;
antiban;
myantiban;
changecompassrandomly;
writeln('scar did not find the buryedwriting bitmap');
withdrawbones;
end;
{==============================================================================}
procedure burybones;
var
i : integer;
begin
gametab(4);
for i := 1 to 28 do
begin
writeln('looking for bones...');
if FindDTM(bones, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
mouseitem(i, false);
WAIT(500);
CHOOSEOPTION('bury');
getburyedwriting;
antiban;
myantiban;
changecompassrandomly;
end else
writeln('could not find bones.');
writeln('moving on to procedure withdrawbones;...');
a := a+1
proggy;
end;
end;
{==============================================================================}
procedure withdrawbones;
begin
writeln('opening your bank...');
OpenBankFast(Players[CurrentPlayer].Loc);
wait(5000);
randoms;
antiban;
myantiban;
changecompassrandomly;
if pinscreen then
begin
inpin(Players[currentplayer].Strings[1]);
writeln('opened your bank');
writeln('fixing your bank...');
fixbank;
wait(500);
depositall;
wait(500);
writeln('withdrawing bones...');
if finddtm(bankbone,x ,y, MIX1, MIY1, MIX2, MIY2) THEN
BEGIN
MOUSE(X, Y, 5, 5, FALSE);
wait(500);
chooseoption('Withdraw X')
wait(500);
typesend('28');
writeln('closing your bank...');
closebank;
randoms;
antiban;
myantiban;
changecompassrandomly;
end;
if bankscreen then
begin
writeln('opened your bank');
writeln('fixing your bank...');
fixbank;
wait(500);
depositall;
wait(500);
writeln('withdrawing bones...');
if finddtm(bankbone,x ,y, MIX1, MIY1, MIX2, MIY2) THEN
BEGIN
MOUSE(X, Y, 1, 1, FALSE);
wait(500);
chooseoption('all')
wait(500);
typesend('28');
closebank;
randoms;
antiban;
myantiban;
changecompassrandomly;
end;
end else
writeln('cant open the bank for some reason make sure your in a bank');
writeln('treminating script...');
terminatescript;
end;
end;
{==============================================================================}
procedure freedtmsandbitmaps;
begin
freedtm(bones);
freedtm(bankbone);
freebitmap(bonesinvent);
end;
{==============================================================================}
procedure startscript;
begin
writeln('####################################################################################');
writeln('######################################################/////////////////////////////#');
writeln('#####################################################/////////////////////////////##');
writeln('############################################################################/////###');
writeln('#############/~~~~~~~~~~~~~~~/##/ /#########/ /##/~~/####################/////####');
writeln('############/ /~~~~~~~~/ /##/ /#########/ /##/ ~~~~~~~~~~~~/########/////#####');
writeln('###########/ /########/ /##/ /#########/ /##/ ~~~~~~~~~~~~/########/////######');
writeln('##########/ /########/ /##/ /#########/ /##/ /####################/////#######');
writeln('#########/ /########/ /##/ /#########/ /##/ /##///////////////////////########');
writeln('########/ /~~~~~~~~/ /##/ /#########/ /##/ /##///////////////////////######### ');
writeln('#######/ /##############/ /~~~~~~~~~/ /##/ /####################/////########## ');
writeln('######/ /##############/ /##/ /####################/////########### ');
writeln('#####/ /##############/~~~~~~~~~~~~~~~/##/~~/####################/////############ ');
writeln('##################################################################/////############# ');
writeln('#########################################/////////////////////////////############## ');
writeln('########################################/////////////////////////////############### ');
writeln('#################################################################################### ');
SetBar('Brightness', 4);
SetBar('Volume', 1);
setbar('Effect', 1)
setbar('Area', 1)
SetChat('on', 1);
SetChat('off', 2);
SetChat('off', 3);
SetChat('off', 4);
gametab(4);
if invempty then
begin
withdrawbones;
end;
end;
{==============================================================================}
procedure proggy;
begin
writeln('----------pur3 buryer--------------------------------');
writeln('----------buryed about '+IntToStr(a)+' inventorys----');
writeln('----------Worked For '+TimeRunning+' ----------------');
writeln('----------version 1.3 -------------------------------');
writeln('----------thankyou for using pur3 buryer-------------');
SRLRandomsReport;
end;
{==============================================================================}
procedure changecompassrandomly;
begin
case random(7) of
0: begin
makecompass('n');
end;
1: begin
makecompass('s');
end;
2: begin
makecompass('e');
end;
3: begin
makecompass('w');
end;
4: begin
makecompass('nw');
end;
5: begin
makecompass('sw');
end;
6: begin
setangle(true);
end;
end;
end;
{==============================================================================}
procedure randoms;
begin
findnormalrandoms;
findinventoryrandoms;
findtalk;
solvepinball;
dwarfitem;
findlamp('prayer');
findmod;
openbox;
solvebox;
detectfrogcave;
findfrogcave;
solvefrogswamp;
solvefrog;
solvequiz;
solvesandwich;
if findfight then
begin
setrun(true);
runto(rundir, true);
wait(15000);
if rundir ='n' then
begin
runto('s', true);
end;
if rundir ='s' then
begin
runto('n', true);
end;
if rundir ='e' then
begin
runto('w', true);
end;
if rundir ='w' then
begin
runto('e', true);
end;
end;
end;
{==============================================================================}
procedure SetupSmart;
begin
SmartSetupEx(SmartWorld, false, Signed);
ClearDebug;
WriteLn('Setting up Smart...');
writeln('Please Hold...');
Wait(5000 + random(5000));
SetTargetDC(SmartGetDC);
While not(SmartReady) do Wait(100);
end;
{==============================================================================}
begin
cleardebug;
clearreport;
SetupSRL;
SetupSmart;
CheckUserNicks;
SetupSRL;
Disguise('starting script');
Getapplication.minimize;
ActivateClient;
DeclarePlayers;
findloc;
loginplayer;
Disguise('script started');
disguise('itunes');
startscript;
proggy;
repeat
setangle(true);
loadbitmaps;
loaddtms;
checkinvent;
withdrawbones;
freedtmsandbitmaps;
if a = loads then
logout;
nextplayer(false);
until(false);
end.
it opens up the bank then cus iv gt a pin it just stays the and does nothing then after 5 seconds it logs me out can any1 help me fix this error