SRL Archive - Archive

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

What is the meaning to life?
the meaning of life is to prosper and to pass on the knowldge in which you prosered to others
so that they may also benefit and the age of man can advance=) its late i get a bit pilosiphical when im tired


Where you Referred to SRL? If yes, by whom?
yes
sythe.org

Programming Knowledge
pacal,srl,scar,litle bits of java,html,vb

Other Communitys
sythe,tip.it,zybez,other helpsites,bebo

How Long have You Played Runescape
15months

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

i have been scripting pascal for about 8 months in my college course and have been scripting srl for a fraction of that time,i can learn new programming languages vey fast. ive even suprised myself with how fast i have learnt srl,
i can write scripts for a wide variety of tasks and skills, and after learning so much from some of the tutorials on here i will probebly write a few of my own tutorials.
getting accepted will give me a feeling of authority and someone to look upto
this will spur me on to improve myself further.
when i leave college i will be taking a computer games programming degree in c+ and c++.
which includes 1 year of actuall work for a company (i wanna try get jagex for the work experience wow could i leak you lot alot of info then)


important note on script the 2 attached files must be saved under
\Program Files\SCAR 3.15\images\ore.bmp
and
\Program Files\SCAR 3.15\images\pick.bmp

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

important note on script the 2 attached files must be saved under
\Program Files\SCAR 3.15\images\ore.bmp
and
\Program Files\SCAR 3.15\images\pick.bmp

they are used in the form btw

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

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

You should use the SRL Player Record if you want to use NextPlayer().
I suggest you don't put the playernames in the form. Either use the SRL Player Form, or just load the array in a DeclarePlayers; procedure.

You can also load bitmaps runtime, in your script. Without actually saving them to a file.

Function BitmapFromString(Width, Height: Integer; data: string): Integer;
Loads bitmap in memory from string data and returns handle to it. (Older method)

You can turn a bitmap into a string by going to SCAR->Tools>Picture To String…

You have to call SetupSRL for SRL to work properly.

I think you definately have some decent Pascal knowledge, but you do need to get more familiar with SRL.
SRL also has a Drop(), SetRun() Procedure.

From: Wizzup?
You should use the SRL Player Record if you want to use NextPlayer().
I suggest you don't put the playernames in the form. Either use the SRL Player Form, or just load the array in a DeclarePlayers; procedure.

You can also load bitmaps runtime, in your script. Without actually saving them to a file.



You can turn a bitmap into a string by going to SCAR->Tools>Picture To String…

You have to call SetupSRL for SRL to work properly.

I think you definately have some decent Pascal knowledge, but you do need to get more familiar with SRL.
SRL also has a Drop(), SetRun() Procedure.

rofl no chance you saw the bitmap strings they where 30-50 lines long thats why i took them out
i did have them in to start with but ws advised to remove by cazax and sumilion and a couple of other people (all of which are curent srl members)




who gets to voe on this any way is it srl members or just admins

ooh also thanks for the feedback

imsure i put setupsrl; inthere cant have saved wel fixed it now

if you are going to say no please could you at least give reasons

SRL members and above get to vote.

In future scripts you could include the purpose of it, starting location, etc in the introduction, makes it abit easier for the other people. ;)

Anyways, i'm going for a no, more then 50% of the script is the form, and after taking that out your left with a very basic iron miner.

From: Psychor
In future scripts you could include the purpose of it, starting location, etc in the introduction, makes it abit easier for the other people. ;)

Anyways, i'm going for a no, more then 50% of the script is the form, and after taking that out your left with a very basic iron miner.

so what shud i do to improve it

Well you could add more failsafes to it like.
what if it doesn't walk with radial walk, might use DDtm's then co-ord clicking.
No sorry to simple and all your left is with a simple iron miner. :(.

But keep learning ;)

I told you not to apply yet…

yer i know but i couldnt get hold of you and i modded it upwith help from cazax and he sed to apply and plus i dont mind not getting in cos this feed back will help lots
——————————————————————————————-
doesnt look like ill be acepted so now i have go a few names here im gunna send my script to all the names here antill you all say that it is good enough theni will apply again


improvements so far
replaced form with srlplayerform
oreselection
auto responder

well i dont think im gunna get accepted rofl how do i close

Closed.