SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
None

Other Communitys
Freddy's new site, Sythe on occasion

How Long have You Played Runescape
2 years

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

I am in 8th grade. I have not been scripting all the long(only a few months), but I feel I have learned a lot. I know how to use multiplayer, forms, antirandoms, and how to autocolor. I would really like to be accepted because it would feel as if it is a final thing that I actually know how to script. Thank you.

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

{.Script Info:
# ScriptName  = Bobs Auto East Varrok Miner
# Author      = bobarkinator
# Description = Mines and banks any kind of ore at the Varrock east mine
# Version     = 2.0
# Comments    = Start in the mine. Iron doesn't work very well due to
the script waiting if it doesn't get the ore. I'm going to fix this in
next version. Any comments about this would be appriciated.
/Script Info}
program Varrock_East_Miner_Banker;
{.include SRL/SRL.scar}
{.include SRL\SRL\extended\xMapWalk.scar}
{.include SRL\SRL\skill\Mining.scar}
var
RockColor1,RockColor2,RockColor3,RockColor4,RockColor5,RockColor6,i: Integer;
Player1Ore,Player2Ore,Player3Ore,Player4Ore,Player5Ore: String;
frmDesign : TForm;
  Button1 : TButton;
  Edit1,Edit2,Edit3,Edit4,Edit5,Edit6,Edit7,Edit8,Edit9,Edit10,Edit11,
  Edit12,Edit13,Edit14,Edit15,Edit16,Edit17,Edit18,Edit19,Edit20 : TEdit;
  ComboBox1,ComboBox2,ComboBox3,ComboBox4,ComboBox5 : TComboBox;
  CheckBox1,CheckBox2,CheckBox3,CheckBox4,CheckBox5,CheckBox6,
  CheckBox7,CheckBox8,CheckBox9,CheckBox10 : TCheckBox;
  Label1,Label2,Label3,Label4,Label5,Label6,Label7 : TLabel;


procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 964;
frmDesign.Height := 346;
frmDesign.Caption := 'Bob'#39's 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;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 325;
Label1.Top := 13;
Label1.Width := 174;
Label1.Height := 27;
Label1.Caption := 'Bob'#39's Auto Miner';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -24;
Label1.Font.Name := 'MS Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 39;
Label2.Top := 54;
Label2.Width := 3;
Label2.Height := 13;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 5;
Label3.Top := 48;
Label3.Width := 65;
Label3.Height := 13;
Label3.Caption := 'Player Names';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 7;
Label4.Top := 83;
Label4.Width := 78;
Label4.Height := 13;
Label4.Caption := 'Player Password';
Label4.Font.Color := clWindowText;
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 := 4;
Label5.Top := 117;
Label5.Width := 80;
Label5.Height := 13;
Label5.Caption := 'Player Nickname';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 7;
Label6.Top := 148;
Label6.Width := 80;
Label6.Height := 13;
Label6.Caption := 'Number of loads ';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 7;
Label7.Top := 181;
Label7.Width := 56;
Label7.Height := 13;
Label7.Caption := 'Type of Ore';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 400;
Button1.Top := 263;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Start';
Button1.ModalResult := 1;
Button1.TabOrder := 8;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 96;
Edit1.Top := 48;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 9;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 96;
Edit2.Top := 80;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 10;
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 96;
Edit3.Top := 112;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 11;
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 96;
Edit4.Top := 144;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 12;
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 80;
ComboBox1.Top := 176;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.DropDownCount := 3;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 13;
ComboBox1.Text := '';
ComboBox1.Items.Add('Iron');
ComboBox1.Items.Add('Tin');
ComboBox1.Items.Add('Copper');
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 96;
CheckBox1.Top := 200;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Pick Equipped';
CheckBox1.TabOrder := 14;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 96;
CheckBox2.Top := 224;
CheckBox2.Width := 97;
CheckBox2.Height := 17;
CheckBox2.Caption := 'Active?';
CheckBox2.TabOrder := 15;
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 248;
Edit5.Top := 48;
Edit5.Width := 121;
Edit5.Height := 21;
Edit5.TabOrder := 16;
Edit6 := TEdit.Create(frmDesign);
Edit6.Parent := frmDesign;
Edit6.Left := 248;
Edit6.Top := 80;
Edit6.Width := 121;
Edit6.Height := 21;
Edit6.TabOrder := 17;
Edit7 := TEdit.Create(frmDesign);
Edit7.Parent := frmDesign;
Edit7.Left := 248;
Edit7.Top := 112;
Edit7.Width := 121;
Edit7.Height := 21;
Edit7.TabOrder := 18;
Edit8 := TEdit.Create(frmDesign);
Edit8.Parent := frmDesign;
Edit8.Left := 248;
Edit8.Top := 144;
Edit8.Width := 121;
Edit8.Height := 21;
Edit8.TabOrder := 19;
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 240;
ComboBox2.Top := 176;
ComboBox2.Width := 145;
ComboBox2.Height := 21;
ComboBox2.DropDownCount := 3;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 20;
ComboBox2.Text := '';
ComboBox2.Items.Add('Iron');
ComboBox2.Items.Add('Tin');
ComboBox2.Items.Add('Copper');
CheckBox3 := TCheckBox.Create(frmDesign);
CheckBox3.Parent := frmDesign;
CheckBox3.Left := 256;
CheckBox3.Top := 200;
CheckBox3.Width := 97;
CheckBox3.Height := 17;
CheckBox3.Caption := 'Pick Equipped';
CheckBox3.TabOrder := 21;
CheckBox4 := TCheckBox.Create(frmDesign);
CheckBox4.Parent := frmDesign;
CheckBox4.Left := 256;
CheckBox4.Top := 224;
CheckBox4.Width := 97;
CheckBox4.Height := 17;
CheckBox4.Caption := 'Active?';
CheckBox4.TabOrder := 22;
Edit9 := TEdit.Create(frmDesign);
Edit9.Parent := frmDesign;
Edit9.Left := 416;
Edit9.Top := 48;
Edit9.Width := 121;
Edit9.Height := 21;
Edit9.TabOrder := 23;
Edit10 := TEdit.Create(frmDesign);
Edit10.Parent := frmDesign;
Edit10.Left := 416;
Edit10.Top := 80;
Edit10.Width := 121;
Edit10.Height := 21;
Edit10.TabOrder := 24;
Edit11 := TEdit.Create(frmDesign);
Edit11.Parent := frmDesign;
Edit11.Left := 416;
Edit11.Top := 112;
Edit11.Width := 121;
Edit11.Height := 21;
Edit11.TabOrder := 25;
Edit12 := TEdit.Create(frmDesign);
Edit12.Parent := frmDesign;
Edit12.Left := 416;
Edit12.Top := 144;
Edit12.Width := 121;
Edit12.Height := 21;
Edit12.TabOrder := 26;
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 408;
ComboBox3.Top := 176;
ComboBox3.Width := 145;
ComboBox3.Height := 21;
ComboBox3.DropDownCount := 3;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 27;
ComboBox3.Text := '';
ComboBox3.Items.Add('Iron');
ComboBox3.Items.Add('Tin');
ComboBox3.Items.Add('Copper');
CheckBox5 := TCheckBox.Create(frmDesign);
CheckBox5.Parent := frmDesign;
CheckBox5.Left := 424;
CheckBox5.Top := 200;
CheckBox5.Width := 97;
CheckBox5.Height := 17;
CheckBox5.Caption := 'Pick Equipped';
CheckBox5.TabOrder := 28;
CheckBox6 := TCheckBox.Create(frmDesign);
CheckBox6.Parent := frmDesign;
CheckBox6.Left := 424;
CheckBox6.Top := 224;
CheckBox6.Width := 97;
CheckBox6.Height := 17;
CheckBox6.Caption := 'Active?';
CheckBox6.TabOrder := 29;
Edit13 := TEdit.Create(frmDesign);
Edit13.Parent := frmDesign;
Edit13.Left := 592;
Edit13.Top := 48;
Edit13.Width := 121;
Edit13.Height := 21;
Edit13.TabOrder := 30;
Edit14 := TEdit.Create(frmDesign);
Edit14.Parent := frmDesign;
Edit14.Left := 592;
Edit14.Top := 80;
Edit14.Width := 121;
Edit14.Height := 21;
Edit14.TabOrder := 31;
Edit15 := TEdit.Create(frmDesign);
Edit15.Parent := frmDesign;
Edit15.Left := 592;
Edit15.Top := 112;
Edit15.Width := 121;
Edit15.Height := 21;
Edit15.TabOrder := 32;
Edit16 := TEdit.Create(frmDesign);
Edit16.Parent := frmDesign;
Edit16.Left := 592;
Edit16.Top := 144;
Edit16.Width := 121;
Edit16.Height := 21;
Edit16.TabOrder := 33;
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 584;
ComboBox4.Top := 176;
ComboBox4.Width := 145;
ComboBox4.Height := 21;
ComboBox4.DropDownCount := 3;
ComboBox4.ItemHeight := 13;
ComboBox4.TabOrder := 34;
ComboBox4.Text := '';
ComboBox4.Items.Add('Iron');
ComboBox4.Items.Add('Tin');
ComboBox4.Items.Add('Copper');
CheckBox7 := TCheckBox.Create(frmDesign);
CheckBox7.Parent := frmDesign;
CheckBox7.Left := 600;
CheckBox7.Top := 200;
CheckBox7.Width := 97;
CheckBox7.Height := 17;
CheckBox7.Caption := 'Pick Equipped';
CheckBox7.TabOrder := 35;
CheckBox8 := TCheckBox.Create(frmDesign);
CheckBox8.Parent := frmDesign;
CheckBox8.Left := 600;
CheckBox8.Top := 224;
CheckBox8.Width := 97;
CheckBox8.Height := 17;
CheckBox8.Caption := 'Active?';
CheckBox8.TabOrder := 36;
Edit17 := TEdit.Create(frmDesign);
Edit17.Parent := frmDesign;
Edit17.Left := 768;
Edit17.Top := 48;
Edit17.Width := 121;
Edit17.Height := 21;
Edit17.TabOrder := 37;
Edit18 := TEdit.Create(frmDesign);
Edit18.Parent := frmDesign;
Edit18.Left := 768;
Edit18.Top := 80;
Edit18.Width := 121;
Edit18.Height := 21;
Edit18.TabOrder := 38;
Edit19 := TEdit.Create(frmDesign);
Edit19.Parent := frmDesign;
Edit19.Left := 768;
Edit19.Top := 112;
Edit19.Width := 121;
Edit19.Height := 21;
Edit19.TabOrder := 39;
Edit20 := TEdit.Create(frmDesign);
Edit20.Parent := frmDesign;
Edit20.Left := 768;
Edit20.Top := 144;
Edit20.Width := 121;
Edit20.Height := 21;
Edit20.TabOrder := 40;
ComboBox5 := TComboBox.Create(frmDesign);
ComboBox5.Parent := frmDesign;
ComboBox5.Left := 752;
ComboBox5.Top := 176;
ComboBox5.Width := 145;
ComboBox5.Height := 21;
ComboBox5.DropDownCount := 3;
ComboBox5.ItemHeight := 13;
ComboBox5.TabOrder := 41;
ComboBox5.Text := '';
ComboBox5.Items.Add('Iron');
ComboBox5.Items.Add('Tin');
ComboBox5.Items.Add('Copper');
CheckBox9 := TCheckBox.Create(frmDesign);
CheckBox9.Parent := frmDesign;
CheckBox9.Left := 776;
CheckBox9.Top := 200;
CheckBox9.Width := 97;
CheckBox9.Height := 17;
CheckBox9.Caption := 'Pick Equipped';
CheckBox9.TabOrder := 42;
CheckBox10 := TCheckBox.Create(frmDesign);
CheckBox10.Parent := frmDesign;
CheckBox10.Left := 776;
CheckBox10.Top := 224;
CheckBox10.Width := 97;
CheckBox10.Height := 17;
CheckBox10.Caption := 'Active?';
CheckBox10.TabOrder := 43;
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 SaveForm;
begin
  SaveSetting('VEM','Player1Name',Edit1.Text);
  SaveSetting('VEM','Player1Password',Edit2.Text);
  SaveSetting('VEM','Player1Nickname',Edit3.Text);
  SaveSetting('VEM','Player1Loads',Edit4.Text);
  SaveSetting('VEM','Player2Name',Edit5.Text);
  SaveSetting('VEM','Player2Password',Edit6.Text);
  SaveSetting('VEM','Player2Nickname',Edit7.Text);
  SaveSetting('VEM','Player2Loads',Edit8.Text);
  SaveSetting('VEM','Player3Name',Edit9.Text);
  SaveSetting('VEM','Player3Password',Edit10.Text);
  SaveSetting('VEM','Player3Nickname',Edit11.Text);
  SaveSetting('VEM','Player3Loads',Edit12.Text);
  SaveSetting('VEM','Player4Name',Edit13.Text);
  SaveSetting('VEM','Player4Password',Edit14.Text);
  SaveSetting('VEM','Player4Nickname',Edit15.Text);
  SaveSetting('VEM','Player4Loads',Edit16.Text);
  SaveSetting('VEM','Player5Name',Edit17.Text);
  SaveSetting('VEM','Player5Password',Edit18.Text);
  SaveSetting('VEM','Player5Nickname',Edit19.Text);
  SaveSetting('VEM','Player5Loads',Edit20.Text);
  SaveSetting('VEM','Player1Ore',ComboBox1.Text);
  SaveSetting('VEM','Player2Ore',ComboBox2.Text);
  SaveSetting('VEM','Player3Ore',ComboBox3.Text);
  SaveSetting('VEM','Player4Ore',ComboBox4.Text);
  SaveSetting('VEM','Player5Ore',ComboBox5.Text);
end;

Procedure LoadForm;
begin
  Edit1.Text:= LoadSetting('VEM','Player1Name')
  Edit2.Text:= LoadSetting('VEM','Player1Password')
  Edit3.Text:= LoadSetting('VEM','Player1Nickname')
  Edit4.Text:= LoadSetting('VEM','Player1Loads')
  Edit5.Text:= LoadSetting('VEM','Player2Name')
  Edit6.Text:= LoadSetting('VEM','Player2Password')
  Edit7.Text:= LoadSetting('VEM','Player2Nickname')
  Edit8.Text:= LoadSetting('VEM','Player2Loads')
  Edit9.Text:= LoadSetting('VEM','Player3Name')
  Edit10.Text:= LoadSetting('VEM','Player3Password')
  Edit11.Text:= LoadSetting('VEM','Player3Nickname')
  Edit12.Text:= LoadSetting('VEM','Player3Loads')
  Edit13.Text:= LoadSetting('VEM','Player4Name')
  Edit14.Text:= LoadSetting('VEM','Player4Password')
  Edit15.Text:= LoadSetting('VEM','Player4Nickname')
  Edit16.Text:= LoadSetting('VEM','Player4Loads')
  Edit17.Text:= LoadSetting('VEM','Player5Name')
  Edit18.Text:= LoadSetting('VEM','Player5Password')
  Edit19.Text:= LoadSetting('VEM','Player5Nickname')
  Edit20.Text:= LoadSetting('VEM','Player5Loads')
  ComboBox1.Text:=LoadSetting('VEM','Player1Ore')
  ComboBox2.Text:=LoadSetting('VEM','Player2Ore')
  ComboBox3.Text:=LoadSetting('VEM','Player3Ore')
  ComboBox4.Text:=LoadSetting('VEM','Player4Ore')
  ComboBox5.Text:=LoadSetting('VEM','Player5Ore')
end;

procedure PlayerInfo;
begin
Case ComboBox1.Text of
'Copper' : Player1Ore:='Copper';
'Iron' : Player1Ore:='Iron';
'Tin' : Player1Ore:='Tin';
end;
Case ComboBox2.Text of
'Copper' : Player2Ore:='Copper';
'Iron' : Player2Ore:='Iron';
'Tin' : Player2Ore:='Tin';
end;
Case ComboBox3.Text of
'Copper' : Player3Ore:='Copper';
'Iron' : Player3Ore:='Iron';
'Tin' : Player3Ore:='Tin';
end;
Case ComboBox4.Text of
'Copper' : Player4Ore:='Copper';
'Iron' : Player4Ore:='Iron';
'Tin' : Player4Ore:='Tin';
end;
Case ComboBox5.Text of
'Copper' : Player5Ore:='Copper';
'Iron' : Player5Ore:='Iron';
'Tin' : Player5Ore:='Tin';
end;
end;


procedure DeclarePlayers;
begin
  HowManyPlayers := 5; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :=Edit1.Text;
  Players[0].Pass :=Edit2.Text;
  Players[0].Nick :=Edit3.Text;
  Players[0].Loc :='Mine';
  Players[0].Boolean1 :=CheckBox1.Checked;
  Players[0].String1 :=Player1Ore;
  Players[0].String2 :=Edit4.Text;
  Players[0].Active:=CheckBox2.Checked;
  
  Players[1].Name :=Edit5.Text;
  Players[1].Pass :=Edit6.Text;
  Players[1].Nick :=Edit7.Text;
  Players[1].Loc :='Mine';
  Players[1].Boolean1 :=CheckBox3.Checked;
  Players[1].String1 :=Player2Ore;
  Players[1].String2 := Edit8.Text;
  Players[1].Active:=CheckBox4.Checked;
  
  Players[2].Name :=Edit9.Text;
  Players[2].Pass :=Edit10.Text;
  Players[2].Nick :=Edit11.Text;
  Players[2].Loc :='Mine';
  Players[2].Boolean1 :=CheckBox5.Checked;
  Players[2].String1 :=Player3Ore;
  Players[2].String2 :=Edit12.Text;
  Players[2].Active:=CheckBox6.Checked;
  
  Players[3].Name :=Edit13.Text;
  Players[3].Pass :=Edit14.Text;
  Players[3].Nick :=Edit15.Text;
  Players[3].Loc :='Mine';
  Players[3].Boolean1 :=CheckBox7.Checked;
  Players[3].String1 :=Player4Ore;
  Players[3].String2 := Edit16.Text;
  Players[3].Active:=CheckBox8.Checked;
  
  Players[4].Name :=Edit17.Text;
  Players[4].Pass :=Edit18.Text;
  Players[4].Nick :=Edit19.Text;
  Players[4].Loc :='Mine';
  Players[4].Boolean1 :=CheckBox9.Checked;
  Players[4].String1 :=Player5Ore;
  Players[4].String2 := Edit20.Text;
  Players[4].Active:=CheckBox10.Checked;
end;

procedure TinColor;
Var TimeMark: Integer;
begin
  if (Players[CurrentPlayer].String1='Tin') then
  begin
    MarkTime(TimeMark);
    repeat
    if (FindObjMulti('ine',6184808,7895170,8421772,10)) then
    GetMousePos(x,y);
    MMouse(x,y,0,0);
    until(IsUpText('ine')) or (TimeFromMark(TimeMark)>15000);
    if (IsUpText('ine')) then
    RockColor1:=GetColor(x,y);
    RockColor2:=GetColor(x-5,y-5);
    RockColor3:=GetColor(x+5,y+5);
    RockColor4:=GetColor(x-5,y+5);
    RockColor5:=GetColor(x+5,y-5);
    RockColor6:=GetColor(x,y);
  end;
end;
procedure RColor;
begin
  RoadColor:=FindRoadColor;
end;
procedure IronColor;
Var TimeMark: Integer;
begin
  if (Players[CurrentPlayer].String1='Iron') then
  begin
    MarkTime(TimeMark);
    repeat
    if (FindMSColorTol(x,y,1581886,10)) then
    MMouse(x+5,y,0,0);
    until (IsUpText('ine')) or(TimeFromMark(TimeMark)>15000);
    if (IsUpText('ine')) then
    RockColor1:=GetColor(x,y);
    RockColor2:=GetColor(x-5,y-5);
    RockColor3:=GetColor(x+5,y+5);
    RockColor4:=GetColor(x-5,y+5);
    RockColor5:=GetColor(x+5,y-5);
    RockColor6:=GetColor(x,y);
  end;
end;
procedure CopperColor;
Var TimeMark: Integer;
begin
  if (Players[CurrentPlayer].String1='Copper') then
  begin
    MarkTime(TimeMark);
    repeat
    if (FindObjMulti('ine',3956353,4153991,3823996,5)) then
    GetMousePos(x,y);
    MMouse(x,y,0,0);
    until(IsUpText('ine')) or (TimeFromMark(TimeMark)>15000);
    if (IsUpText('ine')) then
    RockColor1:=GetColor(x,y);
    RockColor2:=GetColor(x-5,y-5);
    RockColor3:=GetColor(x+5,y+5);
    RockColor4:=GetColor(x-5,y+5);
    RockColor5:=GetColor(x+5,y-5);
    RockColor6:=GetColor(x,y);
  end;
end;

procedure GettingColors;
begin
  TinColor;
  CopperColor;
  IronColor;
  RColor;
end;

procedure Chats;
begin
SetChat('Hide',1)
SetChat('Friends',2)
SetChat('Off',3)
end;

procedure PlayerColor;
begin
  Case Players[CurrentPlayer].String1 of
  'Copper' : CopperColor
  'Tin' : TinColor;
  'Iron' : IronColor;
  end;
end;


procedure WaitwhileMining;
var
  TimeMark : Integer;
begin
  MarkTime(TimeMark);
  repeat
    FindNormalRandoms;
    GasCheck(x,y);
    FindPick;
    if (FindFight) then
    begin
      RunTo('N', True)
      Wait(30000+random(20000));
      RunBack;
    end;
    if(TimeFromMark(TimeMark) > 15000)then
      Exit;
  until(isChatMessage('manage')) or (isChatMessage('currently')) or (isChatMessage('advanced'))
end;


procedure MineStuff1;
Var TimeMark,Tries: Integer;
begin
  if (Players[CurrentPlayer].Loc='Mine') then
  begin
    if (InvFull=True) then
    Exit;
    else
    begin
    if (FindObjMulti('ine',RockColor1,RockColor2,RockColor3,0)) or
    (FindObjMulti('ine',RockColor4,RockColor5,RockColor6,0)) then
    begin
      GetMousePos(x,y);
      Mouse(x,y,4,4,true);
      Wait(1350);
      WaitwhileMining;
      Exit;
    end else
    if Tries=0 then
    begin
      WriteLn('Retrying to mine rocks');
      PlayerColor;
    end else
    begin
      WriteLn('Didn'#39't find rocks again. Logging out.');
      NextPlayer(False);
    end;
    end;
  end;
end;

procedure MineStuff2;
Var Tries: Integer;
begin
  if (Players[CurrentPlayer].Loc='Mine') then
  begin
    if (InvFull=True) then
    Exit;
    else
    repeat
    if (FindObjMulti('ine',RockColor1,RockColor2,RockColor3,0)) or
    (FindObjMulti('ine',RockColor4,RockColor5,RockColor6,0)) then
    begin
      GetMousePos(x,y);
      Mouse(x,y,4,4,false);
      PopUp('ine');
      Wait(1350);
      WaitwhileMining;
      Exit;
    end else
    if Tries=0 then
    begin
      WriteLn('Retrying to mine rocks');
      PlayerColor;
    end else
    begin
      WriteLn('Didn'#39't find rocks again. Logging out.');
      NextPlayer(False);
    end;
    until(False);
  end;
end;

procedure DoMine;
begin
  repeat
  Case Random(6) of
  0: MineStuff1;
  1: MineStuff2;
  2: MineStuff1;
  3: MineStuff1;
  4: MineStuff1;
  5: MineStuff1;
end;
until(InvFull)
end;
      


procedure WalkToBank;
var a: Integer;
begin
  SymbolAccuracy:=0.4
  if (Players[CurrentPlayer].Loc='Mine') then
  begin
    RoadWalkTol(RoadColor,'NE',10);
    RoadColorChecker;
    RoadWalkTol(RoadColor,'N',10);
    RoadColorChecker;
    RoadWalkTol(RoadColor,'N',10);
    RoadColorChecker;
    RoadWalkTol(RoadColor,'NW',10);
    RoadColorChecker;
    repeat
    RadialWalk(RoadColor,250,300,70,0,0);
    RoadColorChecker;
    a:=a+1;
    until(FindSymbol(x,y,'bank')) or (a=2)
    if (FindSymbol(x,y,'bank')) then
    Mouse(x,y+5,4,4,true);
    Flag;
    Players[CurrentPlayer].Loc:='Bank'
  end;
end;

procedure BankGood;
begin
  if (Players[CurrentPlayer].Loc='Bank') then
  begin
    OpenBankGlass('veb',True,True);
    if (BankScreen) and (Players[CurrentPlayer].Boolean1=True) then
    begin
      DepositAll;
      CloseBank;
    end else
    begin
      if (BankScreen) and (Players[CurrentPlayer].Boolean1=False) then
      begin
        Deposit(2,28,2);
        CloseBank
      end;
    end;
  end;
end;

procedure WalkToMine;
begin
SymbolAccuracy:=0.6
  if (Players[CurrentPlayer].Loc='Bank') then
  begin
    RColor;
    RoadWalk(RoadColor,'NE');
    RoadColorChecker;
    RoadWalk(RoadColor,'E');
    RoadColorChecker;
    RoadWalk(RoadColor,'S');
    RoadColorChecker;
    repeat
    RoadWalk(RoadColor,'S');
    RoadColorChecker;
    until(FindSymbol(x,y,'mining spot'));
    if (FindSymbol(x,y,'mining spot')) then
    Mouse(x,y+5,3,2,true);
    Flag;
    Players[CurrentPlayer].Loc:='Mine'
  end;
end;

procedure ProgressReport;
begin
  ClearDebug;
  Writeln('You have been using Bobs auto miner');
  Writeln('Worked For ' + TimeRunning)
  Writeln('You have mined '+ IntToStr(i) + ' Loads');
  Writeln('////////////Auto Miner\\\\\\\\\\\\\');
  SRLRandomsReport;
end;

procedure Setup;
begin
  SetupSRL;
  SetupSRLMining;
  FindRS;
  ActivateClient;
  if (not(LoggedIn)) then
  begin
    LoginPlayer;
  end;
  HighestAngle;
  Chats;
  GettingColors;
  Wait(1000);
end;
    

begin
SafeInitForm;
LoadForm;
SafeShowFormModal;
SaveForm;
PlayerInfo;
DeclarePlayers;
repeat
  Setup;
  i:=0;
  repeat
  DoMine;
  WalkToBank;
  BankGood;
  WalktoMine;
  i:= i + 1;
  ProgressReport;
  until(not(LoggedIn)) or (i=StrToInt((Players[CurrentPlayer].String2)))
  if (i=StrToInt(Players[CurrentPlayer].String2)) then
  begin
    Logout;
    NextPlayer(True);
  end else
  begin
  if (not(LoggedIn)) then
  begin
    Logout;
    NextPlayer(False);
  end;
  end;
until(false)
end.

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

I am going to say….


-No. Your script seems over 3/4 is just forms, not saying size matters, hehe, ;), but anyone can use findobj to find a rock. Your timing stuff is good, I like ur antirandoms, Multiplayer is decent, so ya. All I can say is progress ur actual mining proc, maybe add banker? K

-Ejj

From: Ejjman1
I am going to say….


-No. Your script seems over 3/4 is just forms, not saying size matters, hehe, ;), but anyone can use findobj to find a rock. Your timing stuff is good, I like ur antirandoms, Multiplayer is decent, so ya. All I can say is progress ur actual mining proc, maybe add banker? K

-Ejj

It does bank

O wow missed that bigtime. Well ur mining proc needs help fo sho. :redface:

From: Ejjman1
O wow missed that bigtime. Well ur mining proc needs help fo sho. :redface:

Ok as soon as this is over I will improve it. Thanks for that cause when I posted in script section nobody gave me feedback.

Procedures are very simple.
You need failsafes like…

repeat
    if (FindObjMulti('ine',3956353,4153991,3823996,5)) then
    GetMousePos(x,y);
    MMouse(x,y,0,0);
    until(IsUpText('ine'));

Make it timed like
MarkTime(Blah)

repeat
    if (FindObjMulti('ine',3956353,4153991,3823996,5)) then
    GetMousePos(x,y);
    MMouse(x,y,0,0);
    until(IsUpText('ine')) Or TimeFromMark(Blak)>10000;

And overall the script itself is just too simple.
Ill post more examples later

I actually think it is a quite nice script, a yes from me.
Does understand SRL well, although watch your timed loops though. :)

From: Wizzup?
I actually think it is a quite nice script, a yes from me.
Does understand SRL well, although watch your timed loops though. :)

Alright, thanks, I'll take that to heart lol.

I agree with Ejjman1, most of it is just forms and a simple mining procedure using FindObj. Im not sure it has gas protection but I believe it does. Anyways just work a little harder studying SRL and other functions. For now I will have to say no.

Definately yes from me. But still keep on learning. When You learn more scripting you'll be even better. :D

hmm.. I'm on the fence with this one, you look like a very good scripter and you could learn what everybody told you above in about 2 days, so it seems that you should be able to become a member now so you don't have to wait too long. most of script is forms.. but you do know radial walking and all that other stuff :p I'll think about it and vote after a few other people do or once I make up my mind.

You get a yes from me, this script displays basic knowledge of SRL functions and procedures and you used standards(mostly ;))!

Thanks all and I have changed my mining procedure but I am at school so I can't put it on here so when I get on I will post when I get home

Basic knowledge and a slight understanding is what separates the leechers from the members.
Or maybe i just have a higher standard of what an SRL Member truly should be?

We should have a progress report requirement for all applicants like.
3 Loads or 15 Minutes or something.

Edit: Sorry Yoho I didn't get what you were meaning when you said 3 loads or 15 minutes

Edit: New mining procedures posted

I'm going to have to vote no bobarkinator, sorry. I agree with yohojo. I believe he has the right standards for what a member should be, and there for, I almost always (in the 2 weeks I've been a member :p) vote with him.

From: YoHoJo
Basic knowledge and a slight understanding is what separates the leechers from the members.
Or maybe i just have a higher standard of what an SRL Member truly should be?

We should have a progress report requirement for all applicants like.
3 Loads or 15 Minutes or something.

I use the term basic knowledge loosely.

What is happening? Are we waiting for the poll to end? or what? I'm confused

Yes, just be patient and wait.

Accepted.