View Poll Results: Antileech?

Voters
17. This poll is closed
  • Yes, Definitely.

    11 64.71%
  • No.

    6 35.29%
Page 2 of 2 FirstFirst 12
Results 26 to 33 of 33

Thread: Granite Chiseller! ~500k/h

  1. #26
    Join Date
    Dec 2011
    Location
    New York, USA
    Posts
    1,242
    Mentioned
    12 Post(s)
    Quoted
    193 Post(s)

    Default

    Here, I fixed your standards for you. (But I didn't fix the part that was anti-leech)

    Anyways, looks nice

    Simba Code:
    program GraniteChiseller; //By Divina Commedia!

    ////////////////////////////////////////////////////////////////////////////////
    {$DEFINE SMART}
    {$Define CRASHSMART}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    ////////////////////////////////////////////////////////////////////////////////
    Const
      Version             = '1.2'; //Now with SMART
    ////////////////////////////////////////////////////////////////////////////////
    var
      x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
    ////////////////////////////////////////////////////////////////////////////////
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active:=True;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure SetDTM;
    begin
      GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
      Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
      CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
      Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure WithdrawGranite;
    begin
      begin
        OpenBankChestEdge(SRL_BANK_SW);
        if BankScreen then
        wait(1000 + random(200));
        if InvFull then
          DepositAll;
      end;
      begin
        if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
        begin
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        else
        begin
          FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        end;
      end;
      begin
        CloseBank;
        wait(1000 + random(200));
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure CraftGranite;
    begin
      if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      begin
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      else
      begin
        FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      end;
      repeat
        wait(3000);
        case random(100) of
          1: SetAngle(SRL_ANGLE_LOW);
          2: SetAngle(SRL_ANGLE_HIGH);
        end;
      until InvFull;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure FreeDTMs;
    begin
      FreeDTM(GraniteDTM);
      FreeDTM(CraftDTM);
      FreeDTM(Granite2DTM);
      FreeDTM(Craft2DTM);
    end;
    ////////////////////////////////////////////////////////////////////////////////
    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      ActivateClient;
      SetDTM;
      MouseSpeed := 20;
      Repeat
        WithdrawGranite;
        CraftGranite;
      until(false);
      writeln('Freeing DTMs')
      FreeDTMs;
    end.
    ////////////////////////////////////////////////////////////////////////////////
    Last edited by Nebula; 02-27-2012 at 11:41 PM.

  2. #27
    Join Date
    Oct 2011
    Location
    England
    Posts
    401
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    Quote Originally Posted by Nebula View Post
    Here, I fixed your standards for you. (But I didn't fix the part that was anti-leech)

    Anyways, looks nice

    Simba Code:
    program GraniteChiseller; //By Divina Commedia!

    ////////////////////////////////////////////////////////////////////////////////
    {$DEFINE SMART}
    {$Define CRASHSMART}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    ////////////////////////////////////////////////////////////////////////////////
    Const
      Version             = '1.2'; //Now with SMART
    ////////////////////////////////////////////////////////////////////////////////
    var
      x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
    ////////////////////////////////////////////////////////////////////////////////
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active:=True;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure SetDTM;
    begin
      GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
      Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
      CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
      Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure WithdrawGranite;
    begin
      begin
        OpenBankChestEdge(SRL_BANK_SW);
        if BankScreen then
        wait(1000 + random(200));
        if InvFull then
          DepositAll;
      end;
      begin
        if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
        begin
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        else
        begin
          FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        end;
      end;
      begin
        CloseBank;
        wait(1000 + random(200));
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure CraftGranite;
    begin
      if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      begin
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      else
      begin
        FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      end;
      repeat
        wait(3000);
        case random(100) of
          1: SetAngle(SRL_ANGLE_LOW);
          2: SetAngle(SRL_ANGLE_HIGH);
        end;
      until InvFull;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure FreeDTMs;
    begin
      FreeDTM(GraniteDTM);
      FreeDTM(CraftDTM);
      FreeDTM(Granite2DTM);
      FreeDTM(Craft2DTM);
    end;
    ////////////////////////////////////////////////////////////////////////////////
    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      ActivateClient;
      SetDTM;
      MouseSpeed := 20;
      Repeat
        WithdrawGranite;
        CraftGranite;
      until(false);
      writeln('Freeing DTMs')
      FreeDTMs;
    end.
    ////////////////////////////////////////////////////////////////////////////////
    Cheers mate, looking better

  3. #28
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    program GraniteChiseller; //By Divina Commedia!
    
    ////////////////////////////////////////////////////////////////////////////////
    {$DEFINE SMART}
    {$Define CRASHSMART}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    ////////////////////////////////////////////////////////////////////////////////
    Const
      Version             = '1.2'; //Now with SMART
    ////////////////////////////////////////////////////////////////////////////////
    var
      x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
    ////////////////////////////////////////////////////////////////////////////////
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Pin := ''; //bank pin
      Players[0].Active:=True;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure SetDTM;
    begin
      GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
      Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
      CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
      Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure WithdrawGranite;
    begin
      begin
        OpenBankChestEdge(SRL_BANK_SW);
        if (PinScreen) then
      InPin(Players[CurrentPlayer].Pin);
        if BankScreen then
        wait(1000 + random(200));
        if InvFull then
          DepositAll;
      end;
      begin
        if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
        begin
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        else
        begin
          FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        end;
      end;
      begin
        CloseBank;
        wait(1000 + random(200));
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure CraftGranite;
    begin
      if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      begin
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      else
      begin
        FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      end;
      repeat
        wait(3000);
        case random(100) of
          1: SetAngle(SRL_ANGLE_LOW);
          2: SetAngle(SRL_ANGLE_HIGH);
        end;
      until InvFull;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure FreeDTMs;
    begin
      FreeDTM(GraniteDTM);
      FreeDTM(CraftDTM);
      FreeDTM(Granite2DTM);
      FreeDTM(Craft2DTM);
    end;
    ////////////////////////////////////////////////////////////////////////////////
    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    
      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      ActivateClient;
      SetDTM;
      MouseSpeed := 20;
      Repeat
        WithdrawGranite;
        CraftGranite;
      until(false);
      writeln('Freeing DTMs')
      FreeDTMs;
    end.
    ////////////////////////////////////////////////////////////////////////////////
    added bank pin code so it now supports bank pins

  4. #29
    Join Date
    Oct 2011
    Location
    England
    Posts
    401
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    Quote Originally Posted by blazingrobin View Post
    Code:
    program GraniteChiseller; //By Divina Commedia!
    
    ////////////////////////////////////////////////////////////////////////////////
    {$DEFINE SMART}
    {$Define CRASHSMART}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    ////////////////////////////////////////////////////////////////////////////////
    Const
      Version             = '1.2'; //Now with SMART
    ////////////////////////////////////////////////////////////////////////////////
    var
      x, y, GraniteDTM,Granite2DTM,CraftDTM,Craft2DTM : Integer;
    ////////////////////////////////////////////////////////////////////////////////
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Pin := ''; //bank pin
      Players[0].Active:=True;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure SetDTM;
    begin
      GraniteDTM := DTMFromString('mbQAAAHicY2VgYFjEyMAwDYjnAPFSIF4PxO1A3APEE4G4H4i7gHhWaRhQNRMK5mfADhiRMBwAAGhDB3Q=');
      Granite2DTM := DTMFromString('mlwAAAHicY2dgYFjHysCwFoiXAfE2IN4ExSuBuJaRgaENiBuAuA6IK4G4BYgrgHhyfhBQNxMG7sr0ZeBnwA5g4ow4MBQAAOQmCy4=');
      CraftDTM := DTMFromString('mggAAAHicY2NgYJAEYjMg1gRiWSAWYkAAEF8aDS+simL4P0MeA/MzYAeMSDQyhgAAJfkLTg==');
      Craft2DTM := DTMFromString('mggAAAHicY2MAAkYGhqdA6hsQswDZ/EAsC8SLgHgfEO9HwoeAuD83gOH/DHkMzA/Ujw0z4sAQAAAv2BC1');
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure WithdrawGranite;
    begin
      begin
        OpenBankChestEdge(SRL_BANK_SW);
        if (PinScreen) then
      InPin(Players[CurrentPlayer].Pin);
        if BankScreen then
        wait(1000 + random(200));
        if InvFull then
          DepositAll;
      end;
      begin
        if FindDTM(GraniteDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
        begin
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        else
        begin
          FindDTM(Granite2DTM,x,y,MBX1,MBY1,MBX2,MBY2);
          Mouse(x,y, 4, 4,False);
          WaitOption('Withdraw-7',5000);
        end;
      end;
      begin
        CloseBank;
        wait(1000 + random(200));
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure CraftGranite;
    begin
      if FindDTM(GraniteDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      begin
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        FindDTM(CraftDTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      else
      begin
        FindDTM(Granite2DTM,x,y,MIX1,MIY1,MIX2,MIY2);
        MouseItem(RandomRange(1,7),mouse_Left);
        wait(1500 + random(200));
        findDTM(Craft2DTM,x,y,MCX1,MCY1,MCX2,MCY2);
        Mouse(x,y,30,30,True);
      end;
      repeat
        wait(3000);
        case random(100) of
          1: SetAngle(SRL_ANGLE_LOW);
          2: SetAngle(SRL_ANGLE_HIGH);
        end;
      until InvFull;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure FreeDTMs;
    begin
      FreeDTM(GraniteDTM);
      FreeDTM(CraftDTM);
      FreeDTM(Granite2DTM);
      FreeDTM(Craft2DTM);
    end;
    ////////////////////////////////////////////////////////////////////////////////
    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    
      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      ActivateClient;
      SetDTM;
      MouseSpeed := 20;
      Repeat
        WithdrawGranite;
        CraftGranite;
      until(false);
      writeln('Freeing DTMs')
      FreeDTMs;
    end.
    ////////////////////////////////////////////////////////////////////////////////
    added bank pin code so it now supports bank pins
    Just did that, but cheers anyway.

  5. #30
    Join Date
    Jan 2012
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    got it working flawlessly now with a couple tweaks. congrats on a really good script!

    edit:ran into a couple problems but i will pm you when i get it running for a while and get enough to test for a longish run
    Last edited by blazingrobin; 02-28-2012 at 01:14 AM. Reason: minor flaws still testing tweaks X(

  6. #31
    Join Date
    Oct 2011
    Location
    England
    Posts
    401
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    Quote Originally Posted by blazingrobin View Post
    got it working flawlessly now with a couple tweaks. congrats on a really good script!
    Thank you. If you would like to share those tweaks please do They would be a welcome addition.

  7. #32
    Join Date
    Oct 2011
    Location
    England
    Posts
    401
    Mentioned
    10 Post(s)
    Quoted
    176 Post(s)

    Default

    Mod please close thread.

  8. #33
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Closed on request.

Page 2 of 2 FirstFirst 12

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •