Search the Community

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]

Please Delete. I Do not want to leave any bots that i am currently not going to ever work on, so i dont basically flood the "scripts" category. Sorry:(

Please Delete. I Do not want to leave any bots that i am currently not going to ever work on, so i dont basically flood the "scripts" category. Sorry:(