prayer EpiX's BoneBurier

[LordJashin]

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

 

 

 

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 October 21, 2012 by LordJashin

[BryceTheCoder]

Heyyy i heard this script was super legit and working flawlessly!

 

EDIT: ok update the script to version 2.0 please. I added a pretty good antiban for a bone burier.

Edited October 21, 2012 by BryceTheCoder

[LordJashin]

Done

[BryceTheCoder]

Sweet thnk u

[LordJashin]

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 . 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

Edited October 21, 2012 by LordJashin

[BryceTheCoder]

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 . 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

 

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.

[TerryKig]

can anyone make a cryptocurrency bc game review is fps chess a crypto miner bitcoin in 2030 stake us. alchemy insights mining machine crypto afd bitcoin canada crypto conference 0.031 bitcoin to naira how to use coincap to buy bitcoin buy nfts with bitcoin cryptocurrency coin tracker does buying bitcoin on robinhood count as day trade how to win bitcoins

buy bitcoin from skrill 2.5 bitcoins in dollars can you buy bitcoin on cash app under 18 how to reverse bitcoin transaction on cash app 10 cents to bitcoin wopt anonymous way to buy bitcoin ballet crypto blast up crypto price prediction 0.14 crypto cryptocurrency

crypto com sign up bonus bitcoinx bcx evr airdrop uphold crypto twitter coin paxful 0.847 bitcoin how old do i need to be to buy bitcoin buy sms unit with bitcoin 0.01946537 bitcoin to usd a crypto.com

ripple.io bitcoin metrics can you pay amazon with apple pay google of cryptos $dpi crypto 1 bitcoin value in indian rupees market fear and greed index what crypto to buy budget for gta 5 how to mining helium

25m blockchain standard crypto 2095 bitcoin new alt coins john castic missing nyc day trade crypto reddit

[Peteranant]

Ирвин Казино: Промокод и Как им Воспользоваться

Ирвин Казино это модная он-лайн-платформа для азартных игр, предлагающая широкий выбор игровых слотов, настольных игр и живых казино. Одним из методов привлечь новых игроков и поощрить неизменных является использование промокодов. В данном посте мы расскажем, как использовать промокод Ирвин Казино, какой-никакие преимущества он предоставляет и на что направить внимание.

Что есть промокод?

Промокод это композиция цифр и букв, которая предоставляет игрокам определённые бонусы или превосходства во время регистрирования или внесении депозита. Промокоды могут предлагать различные виды акций, такие как безвозмездные вращения, денежные бонусы либо повышенные ставки на определённые забавы.

Как получить промокод Ирвин Казино

Есть несколько методов получить промокод Ирвин Казино:

1. Сайт: Часто казино публикует животрепещущие промокоды на своём веб-сайте в разделе акций или призов. Часто проверяйте этот раздел, чтобы не пропустить прибыльные предложения.

2. Рассылка на электронную почту: Подписавшись на анонсы казино, вы можете быть информированными о особых акциях и промокодах прямо на свою электронную почту.

3. Соц сети: Смотрите за страницами Ирвин Казино в социальных сетях. Довольно частенько вслед за тем публикуются уникальные предложения и промокоды для подписчиков.

4. Форумы и сообщества: Участие в форумах и обществах азартных игроков может помочь для вас отыскать актуальные промокоды, которые делятся пользователями.

Как пользоваться промокодом

Использование промокода в Ирвин Казино довольно просто. Вот пошаговая практическое руководство:

1. Регистрация или вход в аккаунт: Если вы новый игрок, зарегайтесь на сайте. Если у вас теснее есть аккаунт, просто сделайте вход.

2. Переход в раздел бонусов: На веб-сайте казино найдите в этом разделе можно ввести промокод. Как обычно это находится в ходе внесения депозита или в своем собственном кабинете Irwin Промокод

3. Введите промокод: В соответственном поле введите полученный промокод и нажмите кнопку Активировать либо Применить.

4. Пополнение счета: Если промокод связан с первым депозитом, внесите нужную сумму для активации бонуса.

5. Получение бонусов: После удачного ввода промокода ваши призы будут зачислены на счёт, и у вас есть возможность начать их использовать.

[Marvinvah]

Ведущие типографии в Краснодаре, специализируются на производстве полиграфической продукции. Если вам нужны высококачественные печатные услуги, то вам нужно обратится где предлагаем широкий спектр услуг, которые помогут вам продвигать свой бренд, привлекать новых клиентов и улучшать эффективность вашей маркетинговой стратегии.

Опытные типографии предлагают различные услуги печати, отвечающие всем вашим потребностям в полиграфии. Такие компании специализируются на печати различных типов продукции, включая нагрудные значки, брошюры, бумажные пакеты, визитные карточки, календари, каталоги, листовки и наклейки. Все наши услуги выполняются профессиональными сотрудниками, использующими современное оборудование и самые передовые технологии печати листовка