SCAR Code:
///Auto B0ner! - First Script
///Place Bones in 2nd down 4th over bank spot
///Have Fun! - use big bones or regular
///Fast Random etc..
///Thanks To Srl Forums/Team
/// By: Boker
program AutoBoner;
{.include SRL\SRL.scar}
const
LoadsToDo=5; /// Loads??????? Help bellow
{Loads 1 = 28 bones
2 = 56
3 = 84
4 = 112
5 = 140
10 = 280
20 = 560 }
Var
loats, bones, BuryTimes, Berror, Fightzormode, x, y : Integer;
BonesInInv, Kmouse, bonecolor, bonetol, load : integer;
FoundBonesDTM, UseTalkk, MouseKill : Boolean;
UseTalkForNow, UseTalk : Boolean;
RunDir : String;
Procedure SetUpDTM;
begin
BonesInInv := DTMFromString('78DA6314626060E06740038C4824906605127' +
'C04D480E42508A89105122204D44802095E026A048004077E3500' +
'679700DC');
end;
Procedure DeclarePlayers; //Don't have to use if starting logged in
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '----'; //usernamen
Players[0].Pass := '-----'; //password
Players[0].Nick := '----'; //3 - 4 letters of you username
Players[0].pin :=0000;// Pin keep 0000 if none
Players[0].Active := True;
end;
function Bank: Boolean;
var
x, y, f: Integer;
begin
Status('Openning Bank...');
if not(LoggedIn) then exit;
Flag;
Wait(350 + random(150));
if not BankScreen then
repeat
if FindObjCustom(x, y, ['ank', 'ooth', 'booth'], [864829,4086384], 5) then
Mouse(x, y, 4, 4, False);
Wait(250);
if (ChooseOption('Use-quickly')) then
begin
FFlag(0);
wait(1000);
if(PinScreen) then
repeat
Wait(500);
InPin(IntToStr(Players[CurrentPlayer].Pin));
Inc(f);
until (BankScreen) or (f > 5);
if not(BankScreen) then logout;
end;
until (BankScreen);
Result := BankScreen;
Writeln('Bank Open w00t!');
end;
Procedure Withdrawbones;
begin
if not(BankScreen) then
begin
Writeln ('Bank Not Open....?');
exit;
end;
Fixbank;
Withdraw(4,2,0);
GameTab(4);
CloseBank;
Writeln('B0ner Time..!');
end;
function FindFastRandoms: Boolean; //Credits go to WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure AntiRandoms;
begin
if(not(LoggedIn))then
Exit;
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(3005));
RunBack;
FindFastRandoms;// Credits go to WT-Fakawi
FindTalk;
end;
end;
Procedure BuryTheBones2; /////Thank you MasterKill
begin
MakeCompass('n');
repeat //
if FindDTM(BonesInInv, x, y, 525, 182, 745, 473) then
begin
FoundBonesDTM := True;
MoveMouseSmooth(x, y);
if IsUpTextMulti('Bones', 'ones', 'nes') then
begin
Wait(500);
MoveMouseSmooth(x, y);
ClickMouse(x, y, True);
Wait(1000 + random(200) + random(200))
Bones := Bones + 1
WriteLn(' burying');
end;
end;
if (not(FindDTM(BonesInInv,x, y, 525, 182, 745, 473))) then
begin
FoundBonesDTM := False;
WriteLn(' all bones in ifentory are buried!');
Wait(2000);
end;
Procedure FreeDTMS;
Begin
FreeDTM(Bone);
Procedure SetupScript;
Begin
ClearDebug;
SetupSRL;
DeclarePlayers;
SetUpDTM;
ActivateClient;
LoginPlayer;
end;
////loop
Begin
SetupScript;
Repeat
Bank;
Withdrawbones;
BuryTheBones2;
Begin
CloseBank;
Logout;
end;
FreeDTMS;
end.