SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
naumanakhlaq - SRL Member Application Form
Questions Asked:

What is the meaning to life?
I think I can Edit.

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


Programming Knowledge
S.C.A.R HTML a lil Pascal

Other Communitys
Moparisthebest, Sythe, Sp0rk-eh,Srl,Scar Scripts.com, Gamerzneeds, DarkHex.us

How Long have You Played Runescape
1 year

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

I have made a few other scripts in the past like a power miner. I just read up on forms a month ago and i use them alot. I have been scripting for around 11 months.

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

Well This is my best one

{               /-------------\                  /---------|
               /               \                /          \
              /                \               /            \
              |        |       |              |       |      |
              |        |       |              |       |      |
              |        |       |              |       |      |
              |________|       |              |______ |      |
                       /       /                   /       /
                      /       /                   /       /
                     /       /                   /       /    SCRIPT
                    /       /    UPER           /       /_____
                   /       /                  |/      |/      |
                  /       /                   |       |       |
                 /       /                    |       |       |
                /       /                     |       |       |
               /       /________              \                /
              |       |        |               \              /
              |       |        |                \------------/_
              |       |        |              Super Scripts..| |..
              |       |        |      ____________________________________
               \               /     |       _Version History._           |
                \             /      | Version 0.1 <-- Under Construction |
                 \           /       |                                    |
                  \---------/        | Ver 0.2 BETA <-- Complete No forms |
                                     |                                    |
                                     | Ver 0.2 <-- Forms :D               |
                                     |                                    |
                                     |                                    |
                                     |         _Future Versions._         |
                                     |                                    |
                                     | Ver 0.3 <--- Should Run For Longer/|
                                     |            Auto Responder!         |
                                     | Ver 9.4 <--- MasterKill is History :p.|
                                     |______________________________________|

Instructions

#1
   |Start In falador Bank Logged out or logged in|

#2
   |Specify The client a few times|

#3
   |Press Run|

#4
   |Fill out Uber Forms :D|

#5
   |Enjoy!|

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

###########################################################################
        _                                                     _             #
__|\   |   |\  |    /\    |   |    /\    /\      /\    |\  |   |    /|__    #
__ |* <    | \ |   /__\   |   |   /  \  /  \    /__\   | \ |    >  *| __    #
  |/   |_  |  \|  /    \  |___|  /    \/    \  /    \  |  \|  _|    \|      #
############################################################################

}

program GuildEXMiner;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}

{-------------------------------}
{   Form ( DO NOT TOUCH! )      }
{-------------------------------}


var
  frmDesign : TForm;
  GroupBox1 : TGroupBox;
  GroupBox3 : TGroupBox;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  ComboBox1 : TComboBox;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  CheckBox1 : TCheckBox;
  GroupBox2 : TGroupBox;
  Label6 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label10 : TLabel;
  ComboBox2 : TComboBox;
  Edit4 : TEdit;
  Edit5 : TEdit;
  Edit6 : TEdit;
  CheckBox2 : TCheckBox;
  Button1 : TButton;
  Coal1, Coal2 : Integer;
  Mith1, Mith2 : integer;
  MithCoal1, MithCoal2 : integer;
  Loads1, Loads2 : integer;
  What_To_Mine1 : String;
  What_To_Mine2 : String;

Procedure StartClick(sender: TObject);
Begin
  Coal1:=(ComboBox1.Items.Add('Coal'))
  Coal2:=(ComboBox2.Items.Add('Coal'))
  Mith1:=(ComboBox1.Items.Add('Mithril'))
  Mith2:=(ComboBox1.Items.Add('Mithril'))
  MithCoal1:=(ComboBox1.Items.Add('Mithril+Coal'))
  MithCoal2:=(ComboBox1.Items.Add('Mithril+Coal'))
  What_To_Mine1:=(ComboBox1.Text)
  What_To_Mine2:=(ComboBox2.Text)
  Loads1:= StrtoInt(Edit3.text)
  Loads2:= StrtoInt(Edit6.text)
  If (Checkbox1.checked) or (checkbox2.checked) then
  Writeln('Using different techniques')
  frmDesign.ModalResult:= mrOk;
end;

Procedure Form;
Begin
  frmDesign := CreateForm;
  frmDesign.Left := 200;
  frmDesign.Top := 114;
  frmDesign.Width := 696;
  frmDesign.Height := 420;
  frmDesign.Font.Color := clTeal;
  frmDesign.Caption := 'GuildMiner By ->{Nauman}<-';
  frmDesign.Color := clMaroon;
  frmDesign.Font.Color := clRed;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  GroupBox1 := TGroupBox.Create(frmDesign);
  GroupBox1.Parent := frmDesign;
  GroupBox1.Left := 24;
  GroupBox1.Top := 8;
  GroupBox1.Width := 601;
  GroupBox1.Height := 345;
  GroupBox1.Caption := '                                                                                   Guild Miner by ->{Nauman}<-';
  GroupBox1.TabOrder := 0;
  GroupBox3 := TGroupBox.Create(GroupBox1);
  GroupBox3.Parent := GroupBox1;
  GroupBox3.Left := 24;
  GroupBox3.Top := 32;
  GroupBox3.Width := 241;
  GroupBox3.Height := 257;
  GroupBox3.Caption := 'Player One';
  GroupBox3.TabOrder := 0;
  Label1 := TLabel.Create(GroupBox3);
  Label1.Parent := GroupBox3;
  Label1.Left := 24;
  Label1.Top := 32;
  Label1.Width := 61;
  Label1.Height := 13;
  Label1.Caption := 'USERNAME';
  Label2 := TLabel.Create(GroupBox3);
  Label2.Parent := GroupBox3;
  Label2.Left := 24;
  Label2.Top := 80;
  Label2.Width := 63;
  Label2.Height := 13;
  Label2.Caption := 'PASSWORD';
  Label3 := TLabel.Create(GroupBox3);
  Label3.Parent := GroupBox3;
  Label3.Left := 24;
  Label3.Top := 120;
  Label3.Width := 35;
  Label3.Height := 13;
  Label3.Caption := 'Loads?';
  Label4 := TLabel.Create(GroupBox3);
  Label4.Parent := GroupBox3;
  Label4.Left := 24;
  Label4.Top := 168;
  Label4.Width := 69;
  Label4.Height := 13;
  Label4.Caption := 'What to mine?';
  Label5 := TLabel.Create(GroupBox3);
  Label5.Parent := GroupBox3;
  Label5.Left := 24;
  Label5.Top := 216;
  Label5.Width := 139;
  Label5.Height := 13;
  Label5.Caption := 'Different Mining Techniques?';
  ComboBox1 := TComboBox.Create(GroupBox3);
  ComboBox1.Parent := GroupBox3;
  ComboBox1.Left := 120;
  ComboBox1.Top := 168;
  ComboBox1.Width := 81;
  ComboBox1.Height := 21;
  ComboBox1.ItemHeight := 13;
  ComboBox1.TabOrder := 0;
  ComboBox1.Text := 'Coal';
  ComboBox1.Items.Add('Mithril');
  ComboBox1.Items.Add('Coal');
  ComboBox1.Items.Add('Mithril+Coal');
  Edit1 := TEdit.Create(GroupBox3);
  Edit1.Parent := GroupBox3;
  Edit1.Left := 104;
  Edit1.Top := 32;
  Edit1.Width := 81;
  Edit1.Height := 21;
  Edit1.TabOrder := 1;
  Edit2 := TEdit.Create(GroupBox3);
  Edit2.Parent := GroupBox3;
  Edit2.Left := 104;
  Edit2.Top := 72;
  Edit2.Width := 81;
  Edit2.Height := 21;
  Edit2.TabOrder := 2;
  Edit3 := TEdit.Create(GroupBox3);
  Edit3.Text := '0'
  Edit3.Parent := GroupBox3;
  Edit3.Left := 104;
  Edit3.Top := 112;
  Edit3.Width := 33;
  Edit3.Height := 21;
  Edit3.TabOrder := 3;
  CheckBox1 := TCheckBox.Create(GroupBox3);
  CheckBox1.Parent := GroupBox3;
  CheckBox1.Left := 176;
  CheckBox1.Top := 216;
  CheckBox1.Width := 17;
  CheckBox1.Height := 17;
  CheckBox1.Caption := 'CheckBox1';
  CheckBox1.TabOrder := 4;
  GroupBox2 := TGroupBox.Create(GroupBox1);
  GroupBox2.Parent := GroupBox1;
  GroupBox2.Left := 312;
  GroupBox2.Top := 32;
  GroupBox2.Width := 241;
  GroupBox2.Height := 257;
  GroupBox2.Caption := 'Player Two';
  GroupBox2.TabOrder := 1;
  Label6 := TLabel.Create(GroupBox2);
  Label6.Parent := GroupBox2;
  Label6.Left := 24;
  Label6.Top := 32;
  Label6.Width := 61;
  Label6.Height := 13;
  Label6.Caption := 'USERNAME';
  Label7 := TLabel.Create(GroupBox2);
  Label7.Parent := GroupBox2;
  Label7.Left := 24;
  Label7.Top := 80;
  Label7.Width := 63;
  Label7.Height := 13;
  Label7.Caption := 'PASSWORD';
  Label8 := TLabel.Create(GroupBox2);
  Label8.Parent := GroupBox2;
  Label8.Left := 24;
  Label8.Top := 120;
  Label8.Width := 35;
  Label8.Height := 13;
  Label8.Caption := 'Loads?';
  Label9 := TLabel.Create(GroupBox2);
  Label9.Parent := GroupBox2;
  Label9.Left := 24;
  Label9.Top := 168;
  Label9.Width := 69;
  Label9.Height := 13;
  Label9.Caption := 'What to mine?';
  Label10 := TLabel.Create(GroupBox2);
  Label10.Parent := GroupBox2;
  Label10.Left := 24;
  Label10.Top := 216;
  Label10.Width := 139;
  Label10.Height := 13;
  Label10.Caption := 'Different Mining Techniques?';
  ComboBox2 := TComboBox.Create(GroupBox2);
  ComboBox2.Parent := GroupBox2;
  ComboBox2.Left := 120;
  ComboBox2.Top := 168;
  ComboBox2.Width := 81;
  ComboBox2.Height := 21;
  ComboBox2.ItemHeight := 13;
  ComboBox2.TabOrder := 0;
  ComboBox2.Text := 'Coal';
  ComboBox2.Items.Add('Mithril');
  ComboBox2.Items.Add('Coal');
  ComboBox2.Items.Add('Mithril+Coal');
  Edit4 := TEdit.Create(GroupBox2);
  Edit4.Parent := GroupBox2;
  Edit4.Left := 104;
  Edit4.Top := 32;
  Edit4.Width := 81;
  Edit4.Height := 21;
  Edit4.TabOrder := 1;
  Edit5 := TEdit.Create(GroupBox2);
  Edit5.Parent := GroupBox2;
  Edit5.Left := 104;
  Edit5.Top := 72;
  Edit5.Width := 81;
  Edit5.Height := 21;
  Edit5.TabOrder := 2;
  Edit6 := TEdit.Create(GroupBox2);
  Edit6.Text := '0';
  Edit6.Parent := GroupBox2;
  Edit6.Left := 104;
  Edit6.Top := 112;
  Edit6.Width := 33;
  Edit6.Height := 21;
  Edit6.TabOrder := 3;
  CheckBox2 := TCheckBox.Create(GroupBox2);
  CheckBox2.Parent := GroupBox2;
  CheckBox2.Left := 176;
  CheckBox2.Top := 216;
  CheckBox2.Width := 17;
  CheckBox2.Height := 17;
  CheckBox2.Caption := 'CheckBox1';
  CheckBox2.TabOrder := 4;
  Button1 := TButton.Create(GroupBox1);
  Button1.OnClick := @StartClick;
  Button1.Parent := GroupBox1;
  Button1.Left := 224;
  Button1.Top := 304;
  Button1.Width := 121;
  Button1.Height := 25;
  Button1.Caption := 'Start Guild Mining :)';
  Button1.TabOrder := 2;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('Form', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

var // scripts variables
  x, y, DeathsAvoided, Mined, lx, ly : integer;
  fx, fy, AxeMask : integer;
  Banked, lol : integer;
  Axe : string;


const
Mask='RuneScape - the mas...';


procedure LoadVars;
begin
  AxeMask := DTMFromString('78DA63BCCFC0C010CAC8800A1819FE8349068' +
             '6FF40C0F800C888C554832081F47520114D40CD2320114940CD33' +
             '20114F40CD2B20914040CD25C2EE01001A130DB2');
end;


{-------------------------------}
{   Declare Players             }
{-------------------------------}

procedure DeclarePlayers;
begin
  Disguise(Mask);
  ActivateClient;

  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;


  Players[0].Name := Edit1.text;  //Serves as Nick :p//
  Players[0].Pass := Edit2.text;
  Players[0].Active := True;
  Players[0].Integers[0] := Loads1;

  Players[1].Name := Edit4.text; //Serves as Nick :p//
  Players[1].Pass := Edit5.text;
  Players[1].Active := True;
  Players[1].Integers[1] := Loads2;

  writeln(inttostr(HowManyPlayers) + ' Players');
end;

{-------------------------------}
{   Find Fast Randoms           }
{-------------------------------}

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
 for i := 1 to 12 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if FindFight then
          begin
            RunTo('E', False);
            Wait(5000 + random(3000));
            Runback;
            DeathsAvoided:=DeathsAvoided+1;
           end;
        end;
      10: if FindTalk then
          Result := True;
       11: if ClickToContinue then
          Result := True;
       12: if SolvePinball then
          Result := True;
      end;
  end;
end;

{-------------------------------}
{   BETA Auto Responder         }
{-------------------------------}

procedure NAutoRespond;
begin
  if InChat('lol') then
  begin
    case Random(36) of
      2: TypeSend('...s')
      5: TypeSend('Lilol')
      8: TypeSend('contento')
      13: TypeSend('Hehe')
      15: TypeSend('funyy')
      17: TypeSend(':)')
      19: TypeSend('wave:zzzzzz')
    end;
    Exit;
  end;
  if InChat(Players[CurrentPlayer].Nick) then
  begin
    case Random(11) of
      2: TypeSend('!!!.');
      5: TypeSend('No me gusta ingles'); // <-- SPanish :p
      7: TypeSend('Estoy Trieste'); // some more spanish :D
      9: Typesend('chicos verqueros')
    end;
  end;
end;


procedure RespondToGas;
begin
  case Random(17) of
    1:Typesend('Dang Stubid gas')
    4:Typesend('Uggghhh')
    7:Typesend('-_-')
    15:Typesend('!!!!!!')
  end;
end;


{-------------------------------}
{   My AntiBan- Search          }
{-------------------------------}


procedure Search;
var
  f, e : integer;
begin
  MMouse(645, -15, 1, 1)
  MMouse(727, -9, 1, 1)
  e := 5 + Random(6);   //Of Almost Logout credits to Yakman :)
  for f := 0 to e do
  begin
    case Random(3) of
      0, 1: MMouse(727 + Random(10), -9 + Random(10), 0, 0);
      2: IdleTime(300 + Random(300), 500, 0.5);
    end;
  FTwait(2 + Random(1));
  end;
end;


{-------------------------------}
{   Get Axe Head                }
{-------------------------------}


procedure GetAxeHead;
begin;
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    Mmouse(x, y, 2 - Random(2), 2)
    if isuptext('Wield') then
    begin
      writeln('Found A PicAxe!!')
      Axe := 'Present'
    end else
    begin
      Axe := 'Absent';
      writeln('Axe Absent')
      Writeln('Dont wield axe/ need a picaxe in inventory')
      TerminateScript;
    end;
  end;
end;


{-------------------------------}
{           Anti Ban            }
{-------------------------------}


procedure AntiBan;
begin
  case Random(78) of
    0,1,2: PickUpMouse;
    23,5,9: GameTab(1 + Random(11));
    56: Search
    75: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    19: begin
          HoverSkill('Mining',false);
          gametab(4);
          ChooseOption('Cancel');
          MMouse(Random(MSY1), Random(MSX1), 0, 0);
        end;
     10: begin
          GameTab(1 + Random(13));
          wait(1000+ random(600));
          gametab(4);
          ChooseOption('Cancel');
        end;
     78: begin
          HoverSkill('random',false);
          gametab(4);
        end;
  end;
end;


{-------------------------------}      {{{{{{{{{{{{{{{{{{{{{{{{{{{{}
{   Check Gas Function          }   // Thank-you   Piv    and   SKy //
{-------------------------------} //   ----------------------------//


function NCheckGas: boolean;
begin
  Status('Gas Check')
  if GasFound(x,y)or FindGas(fx,fy) then
    Result:=True
  else
    Result:=False
end;


{-------------------------------}
{   Run Away from gas           }
{-------------------------------}


function GasFinder:boolean;
begin
  if NCheckGas then
  begin
    RunTo('E',False)
    MouseFindFlag(MMCX-5, MMCY, 2, 2);
    RespondToGas;
    Writeln('Found gas waiting for it to go away')
    Wait(8000+Random(2000))
    RunBack;
  end;
end;


{-------------------------------------}
{ Different clicks of mining (Optional}
{-------------------------------------}


procedure DifferentTech;
begin
  case Random(3) of
        0: begin
             Mmouse(x,y,2,3)
             wait(800+Random(70))
             Mouse(x,y,1,2,false)
             wait(800+Random(78))
             ChooseOption('Mine')
           end;
        1: begin
             Mouse(x,y,7,0,false)
             ChooseOption('Mine')
           end;
        2: begin
             Mouse(x,y,1,1,false)
             case Random(2) of
                1: ChooseOption('Cancel')
                2: ChooseOption('Mine')
             end;
           end;
        3: Mouse(x,y,0,0,true)
  end;
end;


{-------------------------------}
{   Waiting...                  }
{-------------------------------}


procedure Waiting;
begin
  MarkTime(lol)
  Status('Waiting')
  Repeat
    Flag;
    GasFinder;
    AntiBan;
    FindFastRandoms;
    GasFinder;
    NAutoRespond;
    if invfull then break;
    if timefrommark(lol) > 15000 then break;
  until(not isuptext('ine')) or FindBlackChatMessage('You manage to mine some')
end;


{-------------------------------}
{   Login                       }
{-------------------------------}


function Login:boolean;
begin
  PlaySound('C:\WINDOWS\Media\Windows XP Startup.wav')
  If (Not(Loggedin))then LoginPLayer;
  HighestAngle;
  Result:=True;
end;


{-------------------------------}
{   Walking 2 Guild             }
{-------------------------------}


procedure Walk;
var
  InGuild:boolean;
begin
  SetRun(True)
  GameTab(4);
  GetAxeHead;
  MakeCompass('S')
  Status('Walkin 2 Guild')
  MakeCompass('S')
  RadialWalk( FindFallyRoadColor , 0, 20, 50, 0, 0);
  MakeCompass('S')
  Wait(3000+Random(2000))
  FFlag(0);
  if FindColorSpiralTolerance(x,y,65536,589, 49,626, 83,1) then
  begin
    Mouse(x,y,1,1,true)
    Wait(16000+Random(4000))
    MakeCompass('E')
    FFlag(0);
    MakeCompass('E')
    repeat
      if FindObj(x,y,'Ladder',2050652,10) then
      begin
        case Random(2) of
          0: begin
               Mouse(x,y,1,1,true)
             end;
          1,2: begin
                 Mouse(x,y,1,1,false)
                 Wait(800+Random(800))
                 ChooseOption('imb')
                end;
          end;
          FFlag(0);
          InGuild:=True
          Wait(4000+Random(700))
          MakeCompass('E')
      end;
    until(InGuild)
  end;
end;


{-------------------------------}
{   Mining the rocks            }
{-------------------------------}


procedure MineRocks;
begin
  Status('Going 2 Mine')
  if (FindColor(x,y,FindrockColor,620, 17, 653, 20)) then
  begin
    Mouse(x,y,1,1,true)
    MouseFindFlag(MMX1,MMY1,MMX2,MMY2);
    wait(4000+Random(700))
    FFlag(0);
    if FindSymbol(x,y,'mining spot')then
    begin
      Mouse(x,y,1,1,true);
      FFlag(0);
      case Lowercase(What_To_Mine1) of
        'coal': begin
                  repeat
                    if FindObjCustom(x, y, ['Min', 'e', 'ock'], [2570811, 3097925, 2373174], 7) then
                    begin
                      if (Checkbox1.checked) then
                        DifferentTech
                      else
                        Mouse(x, y, 1, 1, true)
                    Waiting;
                    end;
                  until(invfull)
                  Mined:=Mined+27;
                end;
        'mithril': begin
                     repeat
                       if FindObjCustom(x, y, ['Min', 'roc', 'ks'], [7096648, 7292998, 7228234], 7) then
                       begin
                         if (Checkbox1.checked) then
                           DifferentTech
                         else
                           Mouse(x, y, 1, 1, true);
                       Waiting;
                       end;
                     until(invfull)
                     Mined:=Mined+27;
                   end;
        'mithril+coal': begin
                          repeat
                            case Random(2) of
                              0: begin
                                   if FindObjCustom(x, y, ['Min', 'roc', 'ks'], [7096648, 7292998, 7228234], 7) then
                                   begin
                                     if (Checkbox1.checked) then
                                       DifferentTech
                                     else
                                       Mouse(x, y, 1, 1, true);
                                   Waiting;
                                   end;
                                 end;
                              1: begin
                                   if FindObjCustom(x, y, ['Min', 'roc', 'ks'], [7096648, 7292998, 7228234], 7) then
                                   begin
                                     if (Checkbox1.checked) then
                                       DifferentTech
                                     else
                                       Mouse(x, y, 1, 1, true);
                                   Waiting
                                   end;
                                 end;
                              2: begin
                                   if FindObjCustom(x, y, ['Min', 'e', 'ock'], [2570811, 3097925, 2373174], 7) then
                                   begin
                                     if (Checkbox1.checked) then
                                       DifferentTech
                                     else
                                       Mouse(x, y, 1, 1, true);
                                   Waiting;
                                   end;
                                 end;
                            end;
                          until(invfull)
                          Mined:=Mined+27;
                        end;
      end;
    end;
  end;
end;


{-------------------------------}
{   Getting Out of Guild        }
{-------------------------------}


procedure GetOutOfguild;
var
  OutGuild:boolean;
begin
  Status('Gettin Da Fuk Out Of ere')
  MakeCompass('E')
  if FindSymbol(x,y,'mining spot')then
  begin
    Mouse(x,y,1,1,true)
    FFlag(0);
{ This Is Only temporary-->} Mouse(658+Random(1), 141-RANDOM(2),0+Random(10),10-Random(10),true)
{ Will Fix in next Version..}FFlag(0);
    if FindColor(lx, ly, FindLadderColor , MMX1,MMY1,MMX2,MMY2) then
    begin
      Wait(800+Random(1000))
      Mouse(lx,ly,1,1,true)
      FFlag(0);
      if FindObj(x,y,'Ladder',2050652,10) then
      begin
        repeat
          case Random(2) of
            0: begin
                 Mouse(x,y,1,1,true)
                 OutGuild:=True
               end;
            1,2: begin
                 Mouse(x,y,1,1,false)
                 Wait(800+Random(800))
                 ChooseOption('imb')
               end;
          end;
          Flag;
          OutGuild := True;
          Wait(4000+Random(700))
        until(OutGuild)
      end;
    end;
   end;
end;


{-------------------------------}
{When In doubt Try,Try again :) }
{-------------------------------}


procedure TryAgain;             // Cool procedure :p
var
  Banker:integer;
  Walked:Boolean;

begin

  Banker := DTMFromString('78DA63BCC5C4C0F0870105FCF9C3C4F01F483' +
            '302F17F2060BC0D54F30B55CDBF7F7C609A11CA67BC0354F39701' +
            '0D30A2AA01D9F58F809A9B4035BFD1ED124651030006FB1455');

  if (not(FlagPresent)) then
  begin
    MakeCompass('W')
    if FindDTM(Banker,x,y,597, 26,634, 90) then
    begin
      Mouse(X+15,Y-1,3-2,0+1,True)
      Walked:=True
      FFlag(0);
    end;
  end;

  FreeDTM(Banker)
end;


{-------------------------------}
{   Banking                     }
{-------------------------------}


procedure Banking;
begin
  GetOutOfGuild;
  Status('Banking')
  Wait(4000+Random(700))
  HighestAngle;
  MakeCompass('N')
  HighestAngle;
  RadialWalk( FindFallyRoadColor , 48, 99, 51, 0, 0);
  FFlag(0);
  if FindSymbol(x,y,'water source') then
   // If FindSymbol(644, 40,'WaterSource)
  begin
    Mouse(x,y,1,1,true)
    FFlag(0);
    MakeCompass('W')
    RadialWalk( FindFallyRoadColor , 2, 26, 58, 0, 0);
    FFlag(0);
    if FindSymbol(x,y,'Bank') then
    begin
      Mouse(x,y,1,1,true)
      FFlag(0);
      if not FindSymbol(x,y,'Bank') then
      begin
        TryAgain;
      end else
      begin
        OpenBankFast('feb')
        if (BankScreen) then
        begin
         //FFlag(2)
          wait(800+Random(800))
          Deposit(2,28,2)
          Wait(800*Random(1+23))
          CloseBank;
        end;
      end;
    end;
  end;
end;


{-------------------------------}
{   Ma Proggie :p               }
{-------------------------------}


procedure Proggie;
var
  PActive: string;
begin
  Status('Proggie :))))))))))')
  ClearDebug;
  SRLRandomsReport;
  if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
  Writeln('//===============  N GuildX Miner  ================\\');
  Writeln('\\======== -_0.2_- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for ' + TimeRunning);
  Writeln('|      Mined ' + IntToStr(Mined) + (' Ores.             |'));
  Writeln('|      Loads Banked ' + IntToStr(Banked) + (' Yay!          |'));
  writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.|'));
  Writeln('\==========================================/');
end;

              {-------------------------------}
              {   Magical - Main Loop =)      }
              {-------------------------------}
              {         Do Not Touch!         }
             //_______________________________//
begin
  SetupSRL;
  LoadVars;
  SafeInitForm;
  SafeShowFormModal;
  DeclarePlayers;
  Login;
  repeat
    repeat
      if (not(Loggedin)) then Break
      Proggie;
      Walk;
      Proggie;
      MineRocks;
      Proggie;
      Banking;
      Proggie;
    until (Banked > Players[CurrentPlayer].Integers[0])
    if not (LoggedIn) then
    begin
      WriteLn('next player, your noob is logged out');
      NextPlayer(false);
      Banked := 0;
    end else
    begin
      WriteLn('succesfull switch:');
      NextPlayer(true);
      Banked := 0;
    end;
  until(False);
end.

{--------Main Loop Ends----------}
    {-Script Ends Here :(-}

^^^^^^^^^^^^^^^W0ot 1000 lines!!^^^^^^^

And my other Script i think this is the best script ever made it could beat masterkill's any day!

Program l;
Begin
Writeln('Hello World');
end.

^^^^^W00tage 3 lines!!!!!^^^^^^^^^^^^^^


Thank-you!:spongebob:

->{Nauman}<-

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

| Ver 9.4 <--- MasterKill is History :p.|

ok my guild miner sucks. but, become a better scriptz0r then me so fast? no way.

yes though, finaly after 1.000.000 aply's?

and how bad, your second script wich is better then any script of mine, is having a error, it's WriteLn('hello world'); not WriteLn('hello world); :D

;)

EDIT: you should credit me for my help, not p00n me lol :D

Dman about 7 apps. Do you like my second script!!1


EDIT: Ok ill credit you for your………… Teachings on the MultiPlayer Main Loop! :p

Yes :)

Ty n3ss i wish Tsn would post

Fixed it ver 0.2 should run fully now post bugs and proggies :p

Yawn ill keep on eye on this while i watch family guy!

EDIT: tHERES only 1 yes i thought 2 people voted yes?

Sorry, I often tend to forget to vote…

No Problem

Edit: Wzuup? viewing

yes dude ;)

Edit: you made this apply earlier than 30 days right?

Edit2:

naumanakhlaq - SRL Member Application Form - 11-20-2007, 01:37 PM

week to early :|

From: MasterKill
ok my guild miner sucks. but, become a better scriptz0r then me so fast? no way.

Yeah…
Seriously, you should stop thinking you are such an amazing scripter, Masterkill.


Nauman:
Yes from me.

Make sure you behave properly in SRL Members, if you get in.
No more fake accounts, please.
The script looks alright.

Yes basically 28 days and 23 hours. But i am an impatient little shit so i couldn't wait 1 day and 1 hour

EDIT: Ty Wizz. Who voted no care to share Wizz?

yesm

Thx Dan

err, 2 players :P

You could use player array in form too :D

Since I don't like your fake account thingy i want to vote no
But since the script looks very good I want to vote yes
:bash:
50/50

I won't vote…

Im kinda 51% sure you'll get in

I doubt admins can view the voters, or atleast so easy that somebody would look from pure boredom..

Yes, I also recommend SRL Player Form, it is very easy to use and cool.

Yes i guess so…

From: n3ss3s
I doubt admins can view the voters, or atleast so easy that somebody would look from pure boredom..

Yes, I also recommend SRL Player Form, it is very easy to use and cool.

I already looked them up. ;)
Won't tell though. :p

Hehe, yeah - [ajokepleasedonthurtme] lol, look after couple minutes, account named ?puzziW is selling vote names at eBay xD [/]

Well,, after a hell of applys.

yes ;)
but keep on learning :)

kk why is there no more yes i tought there would be 7 by now?

EDIT: Ilove you rikjess :)

lol, why would you think that?

Dunno..Maybe Para

begin Writeln('Hello World!') end.

Beat ya!

Voted Yes btw

yes from me, and i am going to use your script
:D

From: Wizzup?
Yeah…
Seriously, you should stop thinking you are such an amazing scripter, Masterkill.

Finally, someone else said it other than me!

Lol i think the second script beats all the others ive made so far

Finally, someone else said it other than me!

Yeah, sorry Santa about the thing in his Master thread, I thought it was just a lil celebration, but its been quite time since…

LIke our neighbour found that he didn't have cancer he drank for.. Lets say my fingers aren't enough to count the days xD

From: n3ss3s
Yeah, sorry Santa about the thing in his Master thread, I thought it was just a lil celebration, but its been quite time since…

LIke our neighbour found that he didn't have cancer he drank for.. Lets say my fingers aren't enough to count the days xD

I Hope he didn't drink red wine coz that leads to it aswell :p

From: n3ss3s
Yeah, sorry Santa about the thing in his Master thread, I thought it was just a lil celebration, but its been quite time since…

LIke our neighbour found that he didn't have cancer he drank for.. Lets say my fingers aren't enough to count the days xD

Love you too n3ss3s…I'll join everyone else and vote yes.

Ty santa

From: Wizzup?
Yeah…
Seriously, you should stop thinking you are such an amazing scripter, Masterkill.

p00ned^

@Nauman: Yes :)
But for leaving the mine try this maybe?:p:

if FindSymbol(x,y,'mining spot')then
  begin
    Mouse(x,y,1,1,true)
    FFlag(0);
RadialRoadWalk(FindRockColor, 235, 283, 70, 2, 2);
       Flag;
     end;
     Repeat
    RadialRoadWalk(FindRockColor, 235, 283, 70, 2, 2)
    Flag;
   RadialRoadWalk(FindLadderColor, 230, 355, 70, 2, 2);
   Flag;
 c := c +1;
   Until FindObj(x, y, 'Climb', 669784, 15) or (c >= 5); //FindObj(x,y,'Ladder',2050652,10) or (C >= 5);
  

Yes jesus thats exactally what i needed your a star!!!!! Now i dont have to use find color i can juust incorperate it into radial walk. Ty jesus u r t3h s3x

I'm busy w/ school & all so I probably won't release my nooby guild miner :rolleyes: so you can use this in your script if you want to:

 procedure Walk;
var
  InGuild:boolean;
  a, guildtop : integer;
begin
guildtop := DTMFromString('78DA6364626060606640012DB5590CFF81342' +
       '310FF07024656208315220753FAEEC9130649A81A10606427420D' +
       '07916A988950C344400D27A69A084D464C352C44A86125A00624C' +
       'F865F0D000785177B');
SetRun(True)
  GameTab(4);
  GetAxeHead;
  MakeCompass('S')
  Status('Walkin 2 Guild')
  MakeCompass('S')
  RadialWalk( FindFallyRoadColor , 0, 20, 50, 0, 0);
  MakeCompass('S')
  Wait(3000+Random(2000))
  FFlag(0);
if dtmrotated(guildtop, x, y, MMX1, MMY1, MMX2, MMY2) then;
       Mouse(x, y, 1, 1, true);
       Flag;
begin
    repeat
      if FindObj(x,y,'Ladder',2050652,10) then
      begin
        case Random(2) of
          0: begin
               Mouse(x,y,1,1,true)
               a := a +1
             end;
          1,2: begin
                 Mouse(x,y,1,1,false)
                 Wait(800+Random(800))
                 ChooseOption('imb')
                a := a +1
                end;
          end;
          FFlag(0);
          InGuild:=True
          Wait(4000+Random(700))
          MakeCompass('E')
      end;
    until(InGuild) or (a >=4)
  end;
end;

I just edited it into your script so if somethings wrong then so be it.

Ok thanks for this but im working on a new script. Its called will0w kill0w with p1nky :)

I realsed a script in the junior section get it here!!!!

YAY! your getting SRL MEMBERS

AND A YES to you =)

=O dude get on msn -.- lol
ok well GL DUDE AND this script looooooooooks waaaaay better than all those others lol

I'll say yes… but

is this Nauman or SuperScripter???//just qurious

From: Santa_Clause
Finally, someone else said it other than me!

[offtopic]
I know, that's why I put it in my signature yesterday :D
[/offtopic]
Whatever, I still can't vote, lol:)

-Tsn.

i really don't think there are enough failsafes :S congratulations on doing your form, but that also messed up your multiplayer. only using two players won't last that long due to randoms. also one of your mining procedure's screwed up, you have random(2) and you have 3 cases. random(2) will give you either 0 or 1, it won't give you 0-2.

not enough if not loggedin then exit, if you get logged out during walk you'll still do the proggie, try to mine, proggie, try to bank and proggie again. also reseting banked to 0 after player switch is not a nice idea, because we wanna know total banks, not how many banks the player did on that run. also be VERY CAREFUL because the srl gas check functions screw up very often. they see too much, run your script and make it take screenshots everytime it thinks there's a gas. you'll see much of the time there isn't, so saying something about gas when there is none is bound to get u a few reports.

actually check most of your cases for the random() thing.

so many people voting yes leaves me confused so i won't vote.

~RM

From: Rasta Magician
i really don't think there are enough failsafes :S congratulations on doing your form, but that also messed up your multiplayer. only using two players won't last that long due to randoms. also one of your mining procedure's screwed up, you have random(2) and you have 3 cases. random(2) will give you either 0 or 1, it won't give you 0-2.

not enough if not loggedin then exit, if you get logged out during walk you'll still do the proggie, try to mine, proggie, try to bank and proggie again. also reseting banked to 0 after player switch is not a nice idea, because we wanna know total banks, not how many banks the player did on that run. also be VERY CAREFUL because the srl gas check functions screw up very often. they see too much, run your script and make it take screenshots everytime it thinks there's a gas. you'll see much of the time there isn't, so saying something about gas when there is none is bound to get u a few reports.

actually check most of your cases for the random() thing.

so many people voting yes leaves me confused so i won't vote.

~RM

I voted no for those and some other reasons

well yes but look he put so much effort to it =S look at those other apps out there lmao… like 60% of just spam or leechers just wanna get members for scripts

but its yall opinion

Yes.. You've applied soooo many times :p and now I think you'll finally make it.

E: Heh… Your occupation is being gay?

From: p1nky
well yes but look he put so much effort to it =S look at those other apps out there lmao… like 60% of just spam or leechers just wanna get members for scripts

but its yall opinion

yes but this isn't a contest where we pick out the best ten, it's a one man thing where you're judged. i still dunno. i haven't been i member for long and this one really leaves me in between the two especially because of the multiplayer thing. still not voting.

Could someone tell how poll is going, how many no'es/yes'es are there?

From: Wizzup?
Yeah…
Seriously, you should stop thinking you are such an amazing scripter, Masterkill.

OUCH! that hurts :)

14 yes - 3 no.
there's a View Poll Results option on the right you know negaal? that's just pure laziness :p

From: Rasta Magician
14 yes - 3 no.
there's a View Poll Results option on the right you know negaal? that's just pure laziness :p

Not if you haven't voted…

God guyz out internet was fucked. So my dad melted to telephone wires together :) . Thanks every one. Tsn im going to beat your record of 16 yes's. P1nky i love you !!!! Yea GoF i am gay and my sisters lesbian :p

@RM: Suck on this!

[PHP]//=========== N GuildX Miner ============\\
\\======== -_0.2_- Progress Report ========//
/==========================================\
| Worked for 30 Minutes and 57 Seconds|
| Mined 108 Ores. |
| Loads Banked 4 Yay! |
| DeathsAvoided 2 times. |
\==========================================/[/PHP]

From: naumanakhlaq
@RM: Suck on this!

[PHP]//=========== N GuildX Miner ============\\
\\======== -_0.2_- Progress Report ========//
/==========================================\
| Worked for 30 Minutes and 57 Seconds|
| Mined 108 Ores. |
| Loads Banked 4 Yay! |
| DeathsAvoided 2 times. |
\==========================================/[/PHP]

i always love people with attitude :) makes choices so much easier. why did the script stop?



~RM

:p . I Stopepd it

From: naumanakhlaq
God guyz out internet was fucked. So my dad melted to telephone wires together :) . Thanks every one. Tsn im going to beat your record of 16 yes's. P1nky i love you !!!! Yea GoF i am gay and my sisters lesbian :p

Is your sister really a lesbian? If she is, I want her to join SRL :f:

From: naumanakhlaq
God guyz out internet was fucked. So my dad melted to telephone wires together :) . Thanks every one. Tsn im going to beat your record of 16 yes's. P1nky i love you !!!! Yea GoF i am gay and my sisters lesbian :p

I think I've seen more than 16 yes on 1 app…

Nah thats Tsn's. Macrosoft got was it 27 yes's?

Lmao hahaha santa

well dude i saw a app with 22 yes 0 no's =p

but yeah your getting fo sho =p get on MSN

Ty p1nkster you working on the script?

From: p1nky
Lmao hahaha santa

well dude i saw a app with 22 yes 0 no's =p

Hey thats me! I have the record? Sweeeet.

oh yeah it was you =p

hehe

Wow mick. You might be better than rick!

Sorry to interrupt your nice conversation, but this is not the
"who walked into members" thread :)

I'll pm somebody if maybe we could get this one decided :)

From: Wizzup?
Nauman:
Yes from me.

Make sure you behave properly in SRL Members, if you get in.
No more fake accounts, please.
The script looks alright.

Remember what I said.
In.