Jump to content
LordJashin

EpiX's BoneBurier

By LordJashin, in RS2 Scripts

Recommended Posts

LordJashin God Member

LordJashin

Posted
Posted (edited)

I do not take credit for this. This was soley made and orchestrated by Epix. I am proud of him for this. Note this script isn't the best yet,

and DOES not have ANY Antiban afaik. And if it does, it isn't very good. The script does work however.

 

Stability: Works

Failsafes: No idea

AntiBan: A little maybe?

Version: Like 1.1

 

For SCAR 3.35+ Only. You must have OSI Include installed

 

EpiX's BoneBurier

 

 

Burys any bones in almost any bank location.

Flawless so far and have never ran into a error/bug.

Nice GUI form for username,password,bank pin, etc.

Created by EpiX, so you know its a good script;)

 

PLEASE LEAVE A COMMENT BELOW IF YOU USED IT, LEAVE FEEDBACK, SUGGESTIONS, ANYTHING! Thnx!

 

How to setup: Download the Bot Client, go to RS2Bots.tk scripts Add this script or paste in the auth code below, and add it.

Or you can just copy and paste the source code below and run in SCAR Divi.

 

Download Bot Client:

http://rs2bots.tk/Downloads/RS2Bots.tk%20Bot%20Client.exe

 

Auth Code:

zwqifdclworrc

 

 

thebank.png

 

Source:

 

[scar]

{

 

 

Created by: EpiX

 

Property of: http://www.RS2Bots.tk

 

Version: 2.00

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

}

{$DEFINE RS2}

{$DEFINE SMART}

{$I OSI\OSI.Scar}

 

var

Form1: TForm;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

ComboBox1: TComboBox;

RSName,RSPass,RSPinn: String;

BankLoc, completed: Integer;

const

fqz = ']';

Player_Booleans_Count = 1;

gw = 'piX';

Player_Integers_Count = 1;

Player_TIA_Count = 1;

jjz = '[E';

 

procedure StartButton(sender: TObject);

begin

RSName := Edit1.Text;

RSPass := Edit2.Text;

RSPinn := Edit3.Text;

BankLoc := ComboBox1.ItemIndex;

Form1.Modalresult:=mrOK;

end;

 

procedure ClosedForm;

begin

ShowMessage('Dont close the form! Use the "Start" button to start the bot.');

TerminateScript;

end;

 

procedure sM(Text: string);

begin

writeln(jjz+gw+fqz+' ' + Text);

end;

 

 

procedure Form1_Init;

begin

Form1 := CreateForm;

Label1 := TLabel.Create(Form1);

Edit1 := TEdit.Create(Form1);

Edit2 := TEdit.Create(Form1);

Button1 := TButton.Create(Form1);

ComboBox1 := TComboBox.Create(Form1);

Edit3 := TEdit.Create(Form1);

with Form1 do

begin

Left := 653;

Top := 330;

BorderIcons := [biSystemMenu];

BorderStyle := bsSingle;

Caption := 'EpiX`s BoneBurier';

ClientHeight := 170;

ClientWidth := 170;

Color := clBlack;

Font.Charset := DEFAULT_CHARSET;

Font.Color := clWindowText;

Font.Height := -11;

Font.Name := 'Tahoma';

Font.Style := [];

OldCreateOrder := False;

PixelsPerInch := 96;

end;

with Label1 do

begin

Parent := Form1;

Left := 6;

Top := 140;

Width := 157;

Height := 25;

Caption := 'Created by: EpiX';

Font.Charset := DEFAULT_CHARSET;

Font.Color := clWhite;

Font.Height := -21;

Font.Name := 'Tahoma';

Font.Style := [];

ParentFont := False;

end;

with Edit1 do

begin

Parent := Form1;

Left := 12;

Top := 12;

Width := 145;

Height := 21;

Color := clWhite;

Font.Charset := DEFAULT_CHARSET;

Font.Color := clMaroon;

Font.Height := -11;

Font.Name := 'Tahoma';

Font.Style := [];

ParentFont := False;

TabOrder := 0;

Text := 'UserName';

end;

with Edit2 do

begin

Parent := Form1;

Left := 12;

Top := 36;

Width := 145;

Height := 21;

Color := clWhite;

Font.Charset := DEFAULT_CHARSET;

Font.Color := clMaroon;

Font.Height := -11;

Font.Name := 'Tahoma';

Font.Style := [];

ParentFont := False;

PasswordChar := '*';

TabOrder := 1;

Text := 'PassWord';

end;

with Button1 do

begin

Parent := Form1;

Left := 11;

Top := 108;

Width := 149;

Height := 25;

Caption := 'Start Bot';

TabOrder := 2;

OnClick := @StartButton;

end;

with ComboBox1 do

begin

Parent := Form1;

Left := 12;

Top := 84;

Width := 145;

Height := 21;

TabOrder := 3;

Text := 'Bank Location';

Items.Add('Varrock East');

Items.Add('Varrock West');

Items.Add('Al Kharid');

Items.Add('Falador West');

Items.Add('Edgeville');

Items.Add('Grand Exchange');

end;

with Edit3 do

begin

Parent := Form1;

Left := 12;

Top := 60;

Width := 49;

Height := 21;

Color := clWhite;

Font.Charset := DEFAULT_CHARSET;

Font.Color := clMaroon;

Font.Height := -11;

Font.Name := 'Tahoma';

Font.Style := [];

ParentFont := False;

TabOrder := 4;

Text := 'Bank Pin';

end;

end;

 

procedure Form1_SafeInit;

var

v: TVariantArray;

begin

SetLength(v, 0);

ThreadSafeCall('Form1_Init', v);

end;

 

function Form1_ShowModal: Boolean;

begin

Result := Form1.ShowModal = mrOk;

end;

 

function Form1_SafeShowModal: Boolean;

var

v: TVariantArray;

begin

SetLength(v, 0);

Result := ThreadSafeCall('Form1_ShowModal', v);

end;

 

 

procedure EpiXSafe;

begin

case random(6) of

0: MouseSpeed := RR(14,18);

1: MouseBox(78,119,736,536,MoveTo);

2: MouseSpeed := RR(14,18);

3: waitRR(900,2000);

4: MouseBox(10,10,650,530,MoveTo);

end;

SetGameTab(4);

end;

 

procedure StartForm;

begin

Form1_SafeInit;

if Form1_SafeShowModal then

begin

WriteLn('Form returned modalresult ok');

FreeForm(Form1);

end else

begin

ClosedForm;

FreeForm(Form1);

end;

end;

 

procedure DeclarePlayer;

var

I: LongInt;

begin

SetLength(Players, 1);

for I := 0 to High(Players) do

begin

SetLength(Players.Integers, Player_Integers_Count);

SetLength(Players.Booleans, Player_Booleans_Count);

SetLength(Players.TIA, Player_TIA_Count);

end;

with Players[0] do

begin

Name := RSName;

Pass := RSPass;

Pin := RSPinn;

WorldInfo := [True, -1, False];

Active := True;

end;

end;

 

procedure InitiateCharacter;

begin

If Not LoggedIn then

begin

Login;

WaitRR(750,950);

end;

end;

 

procedure NoBank;

begin

writeln('baddd');

sM('You did not select a bank location!');

sM('Bot stopped!');

TerminateScript;

end;

 

procedure StartUp;

var

BI: TBox;

x,y: Integer;

begin

SetGameTab(4);

ClickCompass(True);

Case BankLoc of

0: NoBank;

1: OpenBankEx(Loc_VEB, True, True, True);

2: OpenBankEx(Loc_VWB, True, True, True);

3: OpenBankEx(Loc_AKB, True, True, True);

4: OpenBankEx(Loc_FWB, True, True, True);

5: OpenBankEx(Loc_EVB, True, True, True);

6: OpenBankEx(Loc_GEB, True, True, True);

end;

waitRR(500,900);

if (BankScreen) then

begin

if Random(3) = 0 then

EpiXSafe;

BI := GetBankSlotBounds(1);

MouseBox(BI.x1, BI.y1, BI.x2, BI.y2, MoveTo);

if isUpTextMulti(['Bone','Bones','ones']) then

begin

GetMousePos(x,y);

Mouse(x,y,0,0,False);

waitRR(100,300);

ChooseOptionMulti(['All','ll','-All','Withdraw-All']);

waitRR(5,300);

CloseBank(True);

end else

begin

writeln('');

writeln('');

sM('There is no more bones in your bank!');

CloseBank(True);

LogOut;

waitRR(100,300);

TerminateScript;

end;

end;

end;

 

procedure EpiX;

begin

case random(7) of

0: MouseSpeed := RR(14,18);

1: MouseBox(78,119,736,536,MoveTo);

2: MouseSpeed := RR(14,18);

3: SetGameTab(RR(0,11));

4: MouseBox(78,119,736,536,MoveTo);

5: waitRR(1000,2000);

6: HoverSkill(Skill_Prayer,True);

end;

SetGameTab(4);

end;

 

 

procedure Bury;

var

I: Integer;

begin

if Random(4) = 0 then

EpiX;

SetGameTab(4);

for I := 0 to 27 do

begin

MouseItem(I,ClickLeft,True);

waitRR(700,950);

end;

completed := completed+28;

end;

 

procedure Report;

begin

writeln('You have buried ['+IntToStr(completed)+'] bones!');

end;

 

 

begin

StartForm;

SetupOSI;

ClearDebug;

completed := 0;

DeclarePlayer;

InitiateCharacter;

waitRR(500,900);

SetGameTab(RR(1,9));

waitRR(850,1200);

SetGameTab(4);

repeat

StartUp;

Bury;

Report;

until (not (LoggedIn));

end.

[/scar]

Edited by LordJashin
Link to comment
Share on other sites
LordJashin God Member

LordJashin

Posted
  • Author
Posted (edited)

Also, some ways to make your script better. For the Form make it in SCAR's form editor.

 

Set the Position property of the form to ScreenCenter. There is a way to fix that list you have I forget how though. Also using tab key on the form doesn't work really.

 

Maybe mention, version numbers, and how stable it is? You can say its "flawless", but I can see some flaws already :P. I would put this in the stable but no anti ban really category or fail safes. It can only get better from here though. We just need some anti ban functions for OSI especially for the inventory clicking etc...

 

so after you updated it, it should be v1.1 now xD

Edited by LordJashin
Link to comment
Share on other sites
BryceTheCoder Contributing Member

BryceTheCoder

Posted
Posted
Also, some ways to make your script better. For the Form make it in SCAR's form editor.

 

Set the Position property of the form to ScreenCenter. There is a way to fix that list you have I forget how though. Also using tab key on the form doesn't work really.

 

Maybe mention, version numbers, and how stable it is? You can say its "flawless", but I can see some flaws already :P. I would put this in the stable but no anti ban really category or fail safes. It can only get better from here though. We just need some anti ban functions for OSI especially for the inventory clicking etc...

 

so after you updated it, it should be v1.1 now xD

 

haha i did use Scar's Form Editor:P

But yeah i cud make it on the ScreenCenter to make it start in the center but i did add some antibans on it.

:P

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
Go to topic listing
×
×
  • Create New...