SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Why2u - SRL Member Application Form
Why2u

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Java

Other Communitys
LOADS :P

How Long have You Played Runescape
3 years +

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I like to use the computer alot, I enjoy helping other people in any way that i can. I spend most of my time learning or advancing my knowledge of scripting and coding.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program mgpotionmaker; 
{.include osi.txt} 

var i:integer; 

////////////////////////////// 
const vialcolor = 12757157; //
const herbcolor = 610653; //940041=guam 1209870=marrentil 3566345=tarromin 947797=harralander 3766355 =irit  2643222=avantoe
////////////////////////////// 

procedure Run; 
begin 
SetRun(true); 
MouseFlag(645,148,1,1); 
StandStill; 
MouseFlag(648,20,1,1); 
end; 

procedure Bank; 
begin 
OpenBank; 
deposit(0,0,0); 
Withdraw(1,1,14); 
Withdraw(2,1,14); 
CloseBank; 
end; 

procedure makepotions; 
begin 
if(FindColorTolerance(x,y,vialcolor,566,213,735,475,5))then //finds color and sets coords where it found to x and y 
Mouse(x,y,1,1,true); //Moves mouse humanlike then clicks on coords, the 1,1 are randomness to click... 
wait(500); //waits half a second 
if(FindColorTolerance(x,y,herbcolor,566,213,735,475,5))then //finds color and sets coords where it is as x and y 
Mouse(x,y,1,1,true); //... 
end; 

begin 
setuposi 
repeat 
Bank; 
i:=0; //resets i to 0 so that the potion making loop can do it again 14 times 
repeat //starts repeat loop 
  i:=i+1; //i tracks how many times it's repeated this, in other words how many potions it has made 
  MakePotions; //... 
  wait(1500); //waits 1.5 seconds 
until(i>=14) //end loop once i is greater then or equal to 14 
until(false) 
end.

Made it about a year ago, don't know if it still works though.

——————————————————
<!– END TEMPLATE: formanswers –>

No. 23 posts, script has non of the requirements. Be more active and read up on the tuts that tell you what you need for SRL Members (Also maybe join P1NKY's Scripting classes).

EDIT: And you're using osi.txt?? SRL Please.

No- Way too simple, no dtms, walks, failsafes. Just simple coordinate clicking

No standards.


*Waits for MasterKill's list*

You don't use SRL simple as that sorry
Read my tut and learn srl http://www.villavu.com/forum/showthread.php?t=32568?goto=newpost

to short you want a script about 800+ lines

and what is osi.txt ?

this was my first application

///////////////////////////////////////////////
//created by waddo                           //
//i am not responsible for misuse of this    //
//script or for any accounts or items lost   //
//due to the use of this script upon use     //
//of this script you take allresponisibilty  //
//for the use of this script other then to   //
//replicate it or call it your own do not    //
//edit any of this script with out permission//
///////////////////////////////////////////////
//               Credits                     //
///////////////////////////////////////////////
// big thank you to everyone who helped      //
// really big thank you to hermpie           //
// for helping me learn some things          //
// thankyou jagex freddy/kaitineks           //
// sythe srl-forums for creating stuff       //
///////////////////////////////////////////////
//        People who kick ass                //
///////////////////////////////////////////////
//             StarBlaster100                //
//             WT-Fakawi                     //
//             Nielsie95                     //
//             Sumilion                      //
//             Wizzup?                       //
//             N3ss3s                        //
//             Cazax                         //
//             JuKKa                         //
//             Town                          //
///////////////////////////////////////////////
//        People who helped me               //
///////////////////////////////////////////////
//             Nielsie95                     //
//             Sumilion                      //
//             hermpie                       //
//             Wizzup?                       //
//             N3ss3s                        //
//             Cazax                         //
//             JuKKa                         //
//  big credit also to srl giude writers     //
///////////////////////////////////////////////
program automin3r;
{.include srl/srl.scar}
{.include SRL/SRL/skill/mining.scar}
 
 
var
username,password:string;
username1,password1:string;
username2,password2:string;
blot,ironore,totloads2,yourxp,i:integer;
invents,paws,totloads,totloads1:integer;
x,y,ran,roc,activity,exp,alot,xsp:integer;
 
var//form variables
  frmDesign : TForm;
  Shape1 : TShape;
  Label1 : TLabel;
  titleam : TLabel;
  lblbore : TLabel;
  lblxp : TLabel;
  lblmine : TLabel;
  lblpass : TLabel;
  lbluser : TLabel;
  Shape2 : TShape;
  lbltime : TLabel;
  Label3 : TLabel;
  Label2 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label10 : TLabel;
  Label11 : TLabel;
  Image1 : TImage;
  pickpic : TImage;
  orepic : TImage;
  xp : TEdit;
  time : TEdit;
  loads : TEdit;
  infopass : TEdit;
  user : TEdit;
  Butok : TButton;
  butcancel : TButton;
  bankoresbut : TRadioButton;
  infoname2 : TEdit;
  infopass2 : TEdit;
  infoloads2 : TEdit;
  infoloads3 : TEdit;
  infopass3 : TEdit;
  infouser3 : TEdit;
  Memo1 : TMemo;
  pickbmp: Integer;
  orebmp:integer;
  Edit1 : TEdit;
 
const
  orec=2832990;
  StartPlayer = 0;
 
procedure DeclarePlayers;
begin
  HowManyPlayers := (strtoint(edit1.text));
  NumberOfPlayers(HowManyPlayers);
  currentplayer := 0;
  
  Players[0].Name   := username;
  Players[0].Pass   := password;
  Players[0].Active := True;
  Players[0].Integers[0]:=totloads;
 
  Players[1].Name   := username1;
  Players[1].Pass   := password1;
  Players[1].Active := false;             //setup this in script
  players[1].Integers[1]:=totloads1;
 
  Players[2].Name   := username2;
  Players[2].Pass   := password2;
  Players[2].Active := false;             //setup this in script
  Players[2].Integers[2]:=totloads2;
end;
 
 
 
//form procedures
 
procedure okclick(sender: TObject);
begin
  Writeln('miner started');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;
 
procedure cancelclick(sender: TObject);
begin
  Writeln('canceled!');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
  terminatescript;
end;
 
procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 265;
  frmDesign.Top := 78;
  frmDesign.Width := 706;
  frmDesign.Height := 553;
  frmDesign.HorzScrollBar.Visible := False;
  frmDesign.VertScrollBar.Visible := False;
  frmDesign.Caption := 'Waddos Auto Miner';
  frmDesign.Color := clBtnFace;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := false;
  frmDesign.PixelsPerInch := 96;
  Shape1 := TShape.Create(frmDesign);
  Shape1.Parent := frmDesign;
  Shape1.Left := 0;
  Shape1.Top := 0;
  Shape1.Width := 690;
  Shape1.Height := 517;
  Shape1.Brush.Color := clBlack;
  Label1 := TLabel.Create(frmDesign);
  Label1.Parent := frmDesign;
  Label1.Left := 232;
  Label1.Top := 16;
  Label1.Width := 210;
  Label1.Height := 27;
  Label1.Caption := 'Waddo'#39's Varrock';
  Label1.Font.Color := clRed;
  Label1.Font.Height := -27;
  Label1.Font.Name := 'MS PMincho';
  Label1.Font.Style := [fsBold];
  Label1.ParentFont := False;
  titleam := TLabel.Create(frmDesign);
  titleam.Parent := frmDesign;
  titleam.Left := 248;
  titleam.Top := 48;
  titleam.Width := 182;
  titleam.Height := 27;
  titleam.Caption := 'Auto Miner V2';
  titleam.Font.Color := clRed;
  titleam.Font.Height := -27;
  titleam.Font.Name := 'MS PMincho';
  titleam.Font.Style := [fsBold];
  titleam.ParentFont := False;
  lblbore := TLabel.Create(frmDesign);
  lblbore.Parent := frmDesign;
  lblbore.Left := 376;
  lblbore.Top := 488;
  lblbore.Width := 104;
  lblbore.Height := 24;
  lblbore.Caption := 'Bank Ores:';
  lblbore.Font.Color := clWhite;
  lblbore.Font.Height := -20;
  lblbore.Font.Name := 'MS Sans Serif';
  lblbore.Font.Style := [fsBold];
  lblbore.ParentFont := False;
  lblxp := TLabel.Create(frmDesign);
  lblxp.Parent := frmDesign;
  lblxp.Left := 32;
  lblxp.Top := 184;
  lblxp.Width := 67;
  lblxp.Height := 13;
  lblxp.Caption := 'Remaining xp:';
  lblxp.Font.Color := clWhite;
  lblxp.Font.Height := -11;
  lblxp.Font.Name := 'MS Sans Serif';
  lblxp.Font.Style := [];
  lblxp.ParentFont := False;
  lblmine := TLabel.Create(frmDesign);
  lblmine.Parent := frmDesign;
  lblmine.Left := 32;
  lblmine.Top := 208;
  lblmine.Width := 69;
  lblmine.Height := 13;
  lblmine.Caption := 'Loads to mine:';
  lblmine.Font.Color := clWhite;
  lblmine.Font.Height := -11;
  lblmine.Font.Name := 'MS Sans Serif';
  lblmine.Font.Style := [];
  lblmine.ParentFont := False;
  lblpass := TLabel.Create(frmDesign);
  lblpass.Parent := frmDesign;
  lblpass.Left := 48;
  lblpass.Top := 160;
  lblpass.Width := 49;
  lblpass.Height := 13;
  lblpass.Caption := 'Password:';
  lblpass.Font.Color := clWhite;
  lblpass.Font.Height := -11;
  lblpass.Font.Name := 'MS Sans Serif';
  lblpass.Font.Style := [];
  lblpass.ParentFont := False;
  lbluser := TLabel.Create(frmDesign);
  lbluser.Parent := frmDesign;
  lbluser.Left := 48;
  lbluser.Top := 136;
  lbluser.Width := 51;
  lbluser.Height := 13;
  lbluser.Caption := 'Username:';
  lbluser.Font.Color := clWhite;
  lbluser.Font.Height := -11;
  lbluser.Font.Name := 'MS Sans Serif';
  lbluser.Font.Style := [];
  lbluser.ParentFont := False;
  Shape2 := TShape.Create(frmDesign);
  Shape2.Parent := frmDesign;
  Shape2.Left := 480;
  Shape2.Top := 456;
  Shape2.Width := 1;
  Shape2.Height := 1;
  lbltime := TLabel.Create(frmDesign);
  lbltime.Parent := frmDesign;
  lbltime.Left := 32;
  lbltime.Top := 488;
  lbltime.Width := 202;
  lbltime.Height := 24;
  lbltime.Caption := 'Time Between Clicks:';
  lbltime.Font.Color := clWhite;
  lbltime.Font.Height := -20;
  lbltime.Font.Name := 'MS Sans Serif';
  lbltime.Font.Style := [fsBold];
  lbltime.ParentFont := False;
  Label3 := TLabel.Create(frmDesign);
  Label3.Parent := frmDesign;
  Label3.Left := 160;
  Label3.Top := 96;
  Label3.Width := 65;
  Label3.Height := 20;
  Label3.Caption := 'Player 1';
  Label3.Font.Color := clWhite;
  Label3.Font.Height := -17;
  Label3.Font.Name := 'MS Sans Serif';
  Label3.Font.Style := [fsBold, fsUnderline];
  Label3.ParentFont := False;
  Label2 := TLabel.Create(frmDesign);
  Label2.Parent := frmDesign;
  Label2.Left := 160;
  Label2.Top := 272;
  Label2.Width := 65;
  Label2.Height := 20;
  Label2.Caption := 'Player 2';
  Label2.Font.Color := clWhite;
  Label2.Font.Height := -17;
  Label2.Font.Name := 'MS Sans Serif';
  Label2.Font.Style := [fsBold, fsUnderline];
  Label2.ParentFont := False;
  Label4 := TLabel.Create(frmDesign);
  Label4.Parent := frmDesign;
  Label4.Left := 48;
  Label4.Top := 312;
  Label4.Width := 51;
  Label4.Height := 13;
  Label4.Caption := 'Username:';
  Label4.Font.Color := clWhite;
  Label4.Font.Height := -11;
  Label4.Font.Name := 'MS Sans Serif';
  Label4.Font.Style := [];
  Label4.ParentFont := False;
  Label5 := TLabel.Create(frmDesign);
  Label5.Parent := frmDesign;
  Label5.Left := 48;
  Label5.Top := 336;
  Label5.Width := 49;
  Label5.Height := 13;
  Label5.Caption := 'Password:';
  Label5.Font.Color := clWhite;
  Label5.Font.Height := -11;
  Label5.Font.Name := 'MS Sans Serif';
  Label5.Font.Style := [];
  Label5.ParentFont := False;
  Label6 := TLabel.Create(frmDesign);
  Label6.Parent := frmDesign;
  Label6.Left := 32;
  Label6.Top := 360;
  Label6.Width := 69;
  Label6.Height := 13;
  Label6.Caption := 'Loads to mine:';
  Label6.Font.Color := clWhite;
  Label6.Font.Height := -11;
  Label6.Font.Name := 'MS Sans Serif';
  Label6.Font.Style := [];
  Label6.ParentFont := False;
  Label7 := TLabel.Create(frmDesign);
  Label7.Parent := frmDesign;
  Label7.Left := 352;
  Label7.Top := 360;
  Label7.Width := 69;
  Label7.Height := 13;
  Label7.Caption := 'Loads to mine:';
  Label7.Font.Color := clWhite;
  Label7.Font.Height := -11;
  Label7.Font.Name := 'MS Sans Serif';
  Label7.Font.Style := [];
  Label7.ParentFont := False;
  Label8 := TLabel.Create(frmDesign);
  Label8.Parent := frmDesign;
  Label8.Left := 368;
  Label8.Top := 336;
  Label8.Width := 49;
  Label8.Height := 13;
  Label8.Caption := 'Password:';
  Label8.Font.Color := clWhite;
  Label8.Font.Height := -11;
  Label8.Font.Name := 'MS Sans Serif';
  Label8.Font.Style := [];
  Label8.ParentFont := False;
  Label9 := TLabel.Create(frmDesign);
  Label9.Parent := frmDesign;
  Label9.Left := 368;
  Label9.Top := 312;
  Label9.Width := 51;
  Label9.Height := 13;
  Label9.Caption := 'Username:';
  Label9.Font.Color := clWhite;
  Label9.Font.Height := -11;
  Label9.Font.Name := 'MS Sans Serif';
  Label9.Font.Style := [];
  Label9.ParentFont := False;
  Label10 := TLabel.Create(frmDesign);
  Label10.Parent := frmDesign;
  Label10.Left := 480;
  Label10.Top := 272;
  Label10.Width := 65;
  Label10.Height := 20;
  Label10.Caption := 'Player 3';
  Label10.Font.Color := clWhite;
  Label10.Font.Height := -17;
  Label10.Font.Name := 'MS Sans Serif';
  Label10.Font.Style := [fsBold, fsUnderline];
  Label10.ParentFont := False;
  Image1 := TImage.Create(frmDesign);
  Image1.Parent := frmDesign;
  Image1.Left := 528;
  Image1.Top := 24;
  Image1.Width := 97;
  Image1.Height := 81;
  pickpic := TImage.Create(frmDesign);
  CopyCanvas(GetBitmapCanvas(pickbmp), pickpic.Canvas, 0, 0, 78, 84,0, 0, 78, 84);
  pickpic.Parent := frmDesign;
  pickpic.Left := 32;
  pickpic.Top := 16;
  pickpic.Width := 78;
  pickpic.Height := 84;
  orepic := TImage.Create(frmDesign);
  CopyCanvas(GetBitmapCanvas(orebmp), orepic.Canvas, 0, 0, 80, 84,0, 0, 80, 84);
  orepic.Parent := frmDesign;
  orepic.Left := 528;
  orepic.Top := 16;
  orepic.Width := 80;
  orepic.Height := 84;
  Label11 := TLabel.Create(frmDesign);
  Label11.Parent := frmDesign;
  Label11.Left := 512;
  Label11.Top := 488;
  Label11.Width := 102;
  Label11.Height := 24;
  Label11.Caption := 'No.Players';
  Label11.Font.Color := clWhite;
  Label11.Font.Height := -20;
  Label11.Font.Name := 'MS Sans Serif';
  Label11.Font.Style := [fsBold];
  Label11.ParentFont := False;
  xp := TEdit.Create(frmDesign);
  xp.Parent := frmDesign;
  xp.Left := 112;
  xp.Top := 184;
  xp.Width := 185;
  xp.Height := 21;
  xp.TabOrder := 8;
  time := TEdit.Create(frmDesign);
  time.Parent := frmDesign;
  time.Left := 240;
  time.Top := 492;
  time.Width := 113;
  time.Height := 21;
  time.Hint := '1000=1second';
  time.ParentShowHint := False;
  time.ShowHint := True;
  time.TabOrder := 9;
  loads := TEdit.Create(frmDesign);
  loads.Parent := frmDesign;
  loads.Left := 112;
  loads.Top := 208;
  loads.Width := 185;
  loads.Height := 21;
  loads.TabOrder := 10;
  infopass := TEdit.Create(frmDesign);
  infopass.Parent := frmDesign;
  infopass.Left := 112;
  infopass.Top := 160;
  infopass.Width := 185;
  infopass.Height := 21;
  infopass.PasswordChar := '*';
  infopass.TabOrder := 11;
  user := TEdit.Create(frmDesign);
  user.Parent := frmDesign;
  user.Left := 112;
  user.Top := 136;
  user.Width := 185;
  user.Height := 21;
  user.TabOrder := 12;
  Butok := TButton.Create(frmDesign);
  Butok.OnClick:= @okclick;
  Butok.Parent := frmDesign;
  Butok.Left := 193;
  Butok.Top := 416;
  Butok.Width := 136;
  Butok.Height := 57;
  Butok.Caption := 'Ok';
  Butok.TabOrder := 13;
  butcancel := TButton.Create(frmDesign);
  Butcancel.OnClick:= @cancelclick;
  butcancel.Parent := frmDesign;
  butcancel.Left := 368;
  butcancel.Top := 416;
  butcancel.Width := 137;
  butcancel.Height := 57;
  butcancel.Caption := 'Cancel';
  butcancel.TabOrder := 14;
  butcancel := TButton.Create(frmDesign);
  butcancel.Parent := frmDesign;
  butcancel.Left := 368;
  butcancel.Top := 416;
  butcancel.Width := 137;
  butcancel.Height := 57;
  butcancel.Caption := 'Cancel';
  butcancel.ModalResult := 1;
  butcancel.TabOrder := 14;
  bankoresbut := TRadioButton.Create(frmDesign);
  bankoresbut.Parent := frmDesign;
  bankoresbut.Left := 480;
  bankoresbut.Top := 492;
  bankoresbut.Width := 17;
  bankoresbut.Height := 17;
  bankoresbut.Caption := 'bankoresbut';
  bankoresbut.TabOrder := 15;
  infoname2 := TEdit.Create(frmDesign);
  infoname2.Parent := frmDesign;
  infoname2.Left := 112;
  infoname2.Top := 312;
  infoname2.Width := 185;
  infoname2.Height := 21;
  infoname2.TabOrder := 16;
  infoname2.Text := 'blank';
  infopass2 := TEdit.Create(frmDesign);
  infopass2.Parent := frmDesign;
  infopass2.Left := 112;
  infopass2.Top := 336;
  infopass2.Width := 185;
  infopass2.Height := 21;
  infopass2.PasswordChar := '*';
  infopass2.TabOrder := 17;
  infopass2.Text := 'blank';
  infoloads2 := TEdit.Create(frmDesign);
  infoloads2.Parent := frmDesign;
  infoloads2.Left := 112;
  infoloads2.Top := 360;
  infoloads2.Width := 185;
  infoloads2.Height := 21;
  infoloads2.TabOrder := 18;
  infoloads2.Text := '10';
  infoloads3 := TEdit.Create(frmDesign);
  infoloads3.Parent := frmDesign;
  infoloads3.Left := 432;
  infoloads3.Top := 360;
  infoloads3.Width := 185;
  infoloads3.Height := 21;
  infoloads3.TabOrder := 19;
  infoloads3.Text := '10';
  infopass3 := TEdit.Create(frmDesign);
  infopass3.Parent := frmDesign;
  infopass3.Left := 432;
  infopass3.Top := 336;
  infopass3.Width := 185;
  infopass3.Height := 21;
  infopass3.PasswordChar := '*';
  infopass3.TabOrder := 20;
  infopass3.Text := 'blank';
  infouser3 := TEdit.Create(frmDesign);
  infouser3.Parent := frmDesign;
  infouser3.Left := 432;
  infouser3.Top := 312;
  infouser3.Width := 185;
  infouser3.Height := 21;
  infouser3.TabOrder := 21;
  infouser3.Text := 'blank';
  Memo1 := TMemo.Create(frmDesign);
  Memo1.Parent := frmDesign;
  Memo1.Left := 424;
  Memo1.Top := 120;
  Memo1.Width := 193;
  Memo1.Height := 129;
  Memo1.Lines.Add('Waddo'#39's Auto Miner');
  Memo1.Lines.Add('for use in south east varock mine');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('power mines or banks iron ore');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('if using 1 player then debug box will ');
  Memo1.Lines.Add('display the remaining xp till your lvl');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('time between clicks 1000=1 second');
  Memo1.TabOrder := 22;
  Edit1 := TEdit.Create(frmDesign);
  Edit1.Parent := frmDesign;
  Edit1.Left := 624;
  Edit1.Top := 492;
  Edit1.Width := 33;
  Edit1.Height := 21;
  Edit1.TabOrder := 23;
  Edit1.Text := '3';
end;
 
 
procedure SafeInitForm;
var
v:TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;
 
procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;
 
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
     setarraylength(V, 0);
     ThreadSafeCall('ShowFormModal', v);
end;
 
procedure FormNames;
begin
  username:=user.text
  password:=infopass.text
  totloads:=(strToInt(loads.text))
  yourxp:=(strToInt(xp.text))
  paws:=(strToInt(time.text))
  username1:=infoname2.text
  password1:=infopass2.text
  totloads1:=(strToInt(infoloads2.text))
  username2:=infouser3.text
  password2:=infopass3.text
  totloads2:=(strToInt(infoloads3.text))
end;
 
 
 
procedure loaddtms;
begin
  ironore := DTMFromString('78DA637CC7C0C0F08A010578EB29311801694' +
           '620FE0F048CEF818CBB0C6880118904D27F80C453026A5E0389EF' +
           '04D43C00129F08A8B907245E1050F304483C26A0E63990B84F400' +
           'DC8BD1FF1AB0100EF101558');
end;
 
procedure loadbitmaps;
//note bitmaps are used in form and are then freed after the form is closed
begin
orebmp:=loadbitmap('\Program Files\SCAR 3.15\images\ore.bmp');
pickbmp:=loadbitmap('\Program Files\SCAR 3.15\images\pick.bmp');
end;
 
procedure freebitmaps;
begin
  freebitmap(pickbmp);
  freebitmap(orebmp);
end;
 
procedure setup;
begin
  setupsrl;
  SetupMining;
  loadbitmaps;
  SafeInitForm;
  SafeShowFormModal;
  freebitmaps;
  formnames;
  loaddtms;
  declareplayers;
  mousespeed:=20
  xsp:=yourxp;
  blot:=0;
end;
 
procedure startup;
begin
  setup;
  if (not(loggedin))then
  begin
    loginplayer;
  end;
  cleardebug;
  wait(10)
  writeln('varrock miner created by waddo')
  ActivateClient;
  makecompass('N');
end;
 
 
 
procedure mine2;
var
ironore:integer;
begin
  if FindColorSpiralTolerance(x,y,orec,52,26,468,260,3) then
  Mouse(x,y,2,2,true);
  wait(paws + random(200))
  alot:=CountItemsDtm('inv', ironore);
  if alot>blot then
  begin
    blot:=CountItemsDtm('inv', ironore);
    XsP:=XsP-35;
    exp:=exp+35;
    roc:=roc+1;
  end
  else
end;
 
 
 
procedure runwait;
begin
  RunTo('E',false);
  Wait(10000 + random(2840));
  RunTo('W',false);
end;
 
 
 
procedure drop;
begin
  mousebox(645, 187,645, 187,1);
  for i := 3 to 28 do
  begin
    DropItem(i);
    wait(100+random(10))
  end;
  ran:= Random(3);
  case ran of
    0:typesend('iron dropped here');
 
    1:typesend('droping iron here');
 
    2:typesend('droped ore');
  end;
  invents:=invents+1
  blot:=0
end;
 
 
 
 
///////////////////////////banking procedures///////////////////////////////
                                                                          //
procedure tobank;                                                         //
begin                                                                     //
  try                                                                     //
    radialwalk(findvarrockroadcolor,25,70,72,-1,1)                        //
    radialwalk(findvarrockroadcolor,350,380,72,-1,1)                      //
    radialwalk(findvarrockroadcolor,0,20,72,-1,1)                         //
    radialroadwalk(findvarrockroadcolor,330,370,72,-1,1)                  //
    radialroadwalk(findvarrockroadcolor,270,300,72,-1,1)                  //
    radialroadwalk(findvarrockroadcolor,265,275,72,-1,1)                  //
    FindBank('veb');                                                      //
    Deposit(3,28,true);                                                   //
    blot:=0;                                                              //
    closebank;                                                            //
    except                                                                //
      NextPlayer(False);                                                  //
    Exit;                                                                 //
  end;                                                                    //
end;                                                                      //
                                                                          //
procedure tomine;                                                         //
var                                                                       //
mx,my:integer;                                                            //
begin                                                                     //
  try                                                                     //
    radialwalk(findvarrockroadcolor,45,90,72,-1,1)                        //
    radialwalk(findvarrockroadcolor,85,95,72,-1,1)                        //
    radialwalk(findvarrockroadcolor,170,190,72,-1,1)                      //
    radialroadwalk(findvarrockroadcolor,150,170,72,-1,1)                  //
    radialroadwalk(findvarrockroadcolor,170,190,72,-1,1)                  //
    radialroadwalk(findvarrockroadcolor,160,190,72,-1,1)                  //
    if Findsymbol(mx,my,'mining site')then                                //
      mouse(mx,my,2,2,true);                                              //
      writeln('ores banked back at mining spot');                         //
      except                                                              //
        NextPlayer(False);                                                //
      Exit;                                                               //
  end;                                                                    //
end;                                                                      //
                                                                          //
///////////////////////////end of banking procedures////////////////////////
 
 
 
 
 
procedure droporbank;
begin
  If (bankoresbut.Checked) Then
  Begin
    makecompass('N');
    tobank;
    tomine;
  end else
  drop;
end;
 
 
procedure antiban;
var
noban: Integer;
Begin
  If Not (LoggedIn) Then Exit;
  noban := Random(21);
  Case noban Of
    0,9,17: PickUpMouse;
    1,13,16: RandomRclick;
    2,10,18: randomMovement;
    4,12,19: AlmostLogout;
    5,11,8: ChooseOption('cancel');
    6,15,21: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    7,14,3: HoverSkill('woodcutting', false);
  end;
end;
 
procedure checks;//checks you are not under attack and performs antibans
var
a,fx,fy:integer;
begin
  wait(100)
  for a:=0 to 5 do
    If not Loggedin then Break;
    case a of
      0:GasFound(fx, fy);
 
      1:if FindFight then
           begin
             runwait;
           end;
 
      2:findnormalrandoms;
 
      3:if NoGameTab xor InBlack then
           begin
             Writeln('Found unsolvable random');
             NextPlayer(False);
           end;
 
      4:FindPick;
 
      5:antiban;
    end;
end;
 
procedure report;
begin
  cleardebug;
  if HowManyPlayers=1 then
  begin
    writeln ('script has worked for ' + timerunning);
    writeln ('you have mined '+inttostr(roc)+' ores');
    writeln ('and you are '+inttostr(XsP)+' away form next lvl');
    writeln ('you have gained '+inttostr(exp)+'XP');
    writeln ('you are '+inttostr(xsp/35)+' ores away from your next lvl');
    writeln ('you have dropped ' +inttostr(invents)+ ' loads');
  end else
  writeln ('script has worked for ' + timerunning);
  writeln ('you have mined '+inttostr(roc)+' ores');
  writeln ('you have gained '+inttostr(exp)+'total XP');
  writeln ('you have dropped ' +inttostr(invents)+ ' loads');
end;
 
 
begin
  startup;
  repeat
    mine2;
    checks;
    if invfull then
      droporbank;
      if not LoggedIn then break;
    until(invents >= Players[CurrentPlayer].Integers[currentplayer]);
    repeat
      invents:=0;
      if LoggedIn then
        begin
          nextPlayer(True);
        end else
        nextPlayer(False);
        for i := 0 to howmanyplayers-1 do
          if players[i].active=true then
            activity:=activity+1;
      until (activity=0);
  SRLRandomsReport;
end.

that application was bad yours needs to be better than that if you put real effort in you could get members in about 3 months if you learn really fast 2

you seem to have the potential just keep trying

really waddo no doesnt matter on the lenght of script lol…

kay sorry no too simple read tuts :)

hahaha what a jk and you leeched this very old script from some were lol

ScarScript:By Drunkenoldma [LEFT]{.include Osi.text} [/LEFT]

omg that was used ages ago nice try but this isnt your work

standerds bad work on em
script is too simple 200+ lines

and few other things anyway No from me

@ lee here masterkills list;)
@why2u this is indented to you
@m4sterkill i saved you the job :P


What factors do you need:

• DTMs / DDTMs
• Decent complex working script.
• FailSafes
• MultiPlayer
• Break out of potential endless loops
• Standards! Required to get people read your script.
• RadialWalk / DDTM Walking

if you allready have some points don't mind them :)


How do we judge it?

looking at the code, standaards. and whe imagen if it's working yes or no.


How many lines of code do you need

I would say 300+.
Make sure you got fail saves for evry possible option that could be going wrong.


well….

I hope this helped ya. good luck scripting!

Scaper caught you. I found link.
SILLY GOOSE!
http://www.scar-scripts.com/view/567

Stop coppying scripts you silly noobie nubkins.
Good luck trying to get into members now that we all know your a bad boy copyer-pants.

Nice YoHoJo

I like the busted sign

Yes!













Yohojo, you should be able to close threads here?

Have fun spamming..

I can close the thread, i will later.
Want to see people being grr at him and stuff first. :]

From: YoHoJo
I can close the thread, i will later.
Want to see people being grr at him and stuff first. :]

GRR! And stuff!

Dont copy! Or else I will grr at you!

How's that? :)

That's good….
But Hentai is better :]

I was hoping you would notice the quote. :). I still have it from all that time ago.

Grrr?

*Notices a chihuahua next to me is louder*

GRRR

*Runs away from Chihuahua*

And st00f?

Grrrrrrrrrr

YES

cause of the way u copied the script

it was so hard to tell u copied u did really good
the script is *BEEEP*
but your copy skills are just incredible

another YES

FOR


GRRRRRR

hehe your ass got busted by meee and yoHoJo hehehehe better luck next time
@ yohojo nice lil sign ya added ;)


[joingtheClub]GRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR!!!!!![/JoingtheClub]

:D:D:D:D:D

This still isn't closed? Well I shall vote no lol, just for the heck of it. Script copying is bad for your health…

Closed.