SRL Archive - First Scripts

ok so heres my first power miner

id like to thank everyone who answered my questions even though there were alot of them lol

INCLUDES

Multi player Multi Ore Dtm dropping Anti ban

BUGS

NONE YET :)

lastly you can have your pick weilded or not it doesnt matter at all

best proggies

|     ||      \
 |     ||      |
 |     ||   ___/
/_____/ |__ |   
Player killingnubs3
loads done 75
primary ores mined 1500
secondary ores mined 750
gems dropped 0
post the proggy or no more updates!!!!!!!!!!!!!!

Disclamer
im not responsible for an banned or items lost when using this script.


EDIT: fixxed up standards thnx 99
EDIT: added time feature in proggy

Very nice, worked perfectly for me, you are better than me at scripting lol, the only script I can make is auto loginer :o, you should add a anti-random it is pretty easy to learn. Good job :D

From: Dark Arcana
Very nice, worked perfectly for me, you are better than me at scripting lol, the only script I can make is auto loginer :o, you should add a anti-random it is pretty easy to learn. Good job :D

ty i will add anti randomns at the next rev update no point in putting them in it now

and will u plz post your proggy if u still have it

also did u use multi player by any chance cause i wanna know if that works well

{So here my first script it runs pretty well

only bugs so far is that sometimes it clicks somewhere else and doesn't drop all the ore
(ong thts not to bad)

ty tickyy I looked on to your miner for proggy help and antibans and more
____________________setup__________________________
1. set up declareplayers
2. set ore type in line 38
3. setup player by rock you want to mine
3. save
4. run
5. post proggies and any bugs

btw it posts proggies all the way though so only post them at the end ty

and enjoy :0
______________________________________________________}

program SimplePowerMiner;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Mining.scar}

{agenda
 0. fix DTMs
 3. anti randoms
 4. multi ores???
 5. release it}

var
  o, u, l, j, x, y, g, i, y, z, f, OreDTM, Drops, Mines, GemDrops, GemDTM: Integer;

const
  NumOfPlayers = 1;
  StartPlayer = 0;
  WhichOre = rimmington_Iron;
  WhichOre2 = rimmington_tin;//if only mining 1 ore then have the same ore for which ore and which ore2

procedure DeclarePlayers;//add more if needed
begin
  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name       := '';
  Players[0].Pass       := '';
  Players[0].Nick       := '';
  Players[0].Active     := True;    // Use this account?
  Players[0].Integers[1] := 1000; // How many Loads
  
  {Players[1].Name       := '';
  Players[1].Pass       := '';
  Players[1].Nick       := '';
  Players[1].Active     := True;    // Use this account?
  Players[1].Integers[1] := 1000; // How many Loads}
end;

procedure AntiBanz;//ty tickyy
begin
  if(not LoggedIn)then Exit;
  case Random(12) of
    0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    1: HoverSkill('random',false);
    2: PickupMouse;
    3: GameTab(1+Random(12));
    4: SleepAndMoveMouse(400+Random(1500));
    5: if Random(2) = 1 then MMouse(1, 338, 515, 165);
    6: if Random(2) = 1 then MMouse(515, 1, 250, 503);
    7: RandomMovement;
    8..11: begin
             case Random(3) of
               0: begin
                    KeyDown(VK_RIGHT);
                    Wait(500+Random(2000));
                    KeyUp(VK_RIGHT);
                  end;
               1: begin
                    KeyDown(VK_Left);
                    Wait(500+Random(2000));
                    KeyUp(VK_Left);
                  end;
               2: begin
                    case Random(2) of
                      0: begin
                           KeyDown(VK_RIGHT);
                           Wait(500+Random(1400));
                           KeyUp(VK_RIGHT);
                         end;
                      1: begin
                           KeyDown(VK_Left);
                           Wait(500+Random(1400));
                           KeyUp(VK_Left);
                           Inc(z);
                         end;
                    end;
                  end;
             end;
           end;
  end;
end;
  
procedure Setup;
begin
  Disguise('TY for using jps powerminer');
  ClearDebug;
  SMARTSetupEx(149, False, True, False);
  Wait(5000);
  SetTargetDC(SmartGetDC);
  repeat
    Wait(100);
  until(SmartGetColor(253, 233)<>1118604);
  SetupSRL;
  SetupMining;
end;

procedure Minethestuff;
begin
  repeat
    if FindObjRock(x, y, WhichOre)then
    begin
      Inc(u);
      Disguise('Found primary rock... mining');
      case Random(3) of
        0, 2: begin
                Mouse(x, y, 2, 2, False);
                Wait(Random(100));
                ChooseOption('Mine');//otherwise it may Examine
              end;
        1:  Mouse(x, y, 2, 2, True);
      end;
      Wait(5000 + random(300));
    end else
    if(not(FindObjRock(x, y, WhichOre)))then
      begin
        if(FindObjRock(x, y, WhichOre2))then
        begin
          Inc(l);
          Disguise('Found secondary rock... mining');
          case Random(3) of
            0, 2: begin
                    Mouse(x, y, 2, 2, False);
                    Wait(Random(100));
                    ChooseOption('Mine');//otherwise it may Examine
                  end;
            1:  Mouse(x, y, 2, 2, True);
          end;
          Wait(5000 + random(300));
          Inc(Mines);
        end;
      end else
        AntiBanz;
  until(invfull)or(Mines = 30);
end;

procedure OreDropping;
begin
  repeat
    Disguise('dropping ores');
    OreDTM := DTMFromString('78DA637463626078C28002FC0C54181E02694' +
            '620FE0F048CEE40353718D000231209A403816AEE1350E30D54F3' +
            '86801A7BA09A4F04D49800D53C26C29CEBF8D5000045B70DB0');
    if(FindDTM(OreDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
    begin
      Mouse(x, y, 2, 2, False);
      Wait(random(200));
      ChooseOption('Drop');
      Wait(500 + Random(100))
      Inc(Drops);
    end;
  until(not(FindDTM(OreDTM, x, y, MIX1, MIY1, MIX2, MIY2))or(Drops = 29));
end;


procedure GemDroping;
begin
  repeat
    Disguise('dropping gems');
    GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500E0' +
            '3461F603199E869B83127C17F3324F3616BFBB026DB97656BAB46' +
            '4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF71579862918F38' +
            '6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C304D' +
            'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58D13B' +
            'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629308E' +
            '375FE5310F20');
      if(findDTM(GemDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(random(200));
        ChooseOption('Drop');
        Wait(500 + random(100));
        Inc(GemDrops);
        Inc(f);
      end;
  until(not(FindDTM(GemDTM, x, y, MIX1, MIY1, MIX2, MIY2))or(GemDrops = 5));//dont think your gonna get more than 1 a tie but just incase
end;

procedure Proggy;
begin
  WriteLn('  _____  ______');
  WriteLn(' |     ||      \');
  WriteLn(' |     ||      |');
  WriteLn(' |     ||   ___/');
  WriteLn('/_____/ |__ |   ');
  WriteLn('Player '+ Players[CurrentPlayer].Name);
  WriteLn('loads done '+ IntToStr(g));
  WriteLn('primary ores mined ' + IntToStr(u));
  WriteLn('secondary ores mined ' + IntToStr(l));
  WriteLn('gems dropped ' + IntToStr(f));
  WriteLn('post the proggy or no more updates!!!!!!!!!!!!!!');
end;

procedure SkillCheck;
begin
  Disguise('checking stats')
  HoverSkill('mining', False);
  Wait(500+Random(300));
end;

procedure Freeeverything;
begin
  FreeDTM(OreDTM);
  FreeDTM(GemDTM);
end;


begin
  Setup;
  DeclarePlayers;
  GraphicsSet := true;
  LoginPlayer;
  repeat
    Drops:=0;
    Mines:=0;
    GemDrops:=0;
    ClearDebug;
    Proggy;
    SkillCheck;
    MineTheStuff;
    OreDropping;
    Gemdroping;
    Inc(g);
  until(g = (Players[CurrentPlayer].Integers[1]))or(not LoggedIn);
    NextPlayer(Players[CurrentPlayer].Active);
    FreeEverything;
end.

{rimmington_Clay
  rimmington_Copper
  rimmington_Tin
  rimmington_Iron
  rimmington_Gold

  old_Clay
  old_Copper
  old_Tin
  old_Iron
  old_Coal
  old_Mithril
  old_Adamant

  varrock_Clay
  varrock_Copper
  varrock_Tin
  varrock_Iron
  varrock_Silver

  lumbridge_Copper
  lumbridge_Tin
  lumbridge_Coal
  lumbridge_Mithril
  lumbridge_Adamant

  falador_Clay
  falador_Copper
  falador_Tin
  falador_Iron
  falador_Coal
  falador_Mithril
  falador_Adamant}

just fixed standards ;)

looks nice

Works great for me, I left it on overnight and I got logged out after mining roughly 12 loads…any ideas?

It still helps alot though :)

This actually looks AMAZING for your first script. I'm very impressed. I can usually just skim a first script in 15 secs to get something wrong, and help the person, but I need ot look over a bit more first. I'll edit later.

From: griff721
This actually looks AMAZING for your first script. I'm very impressed. I can usually just skim a first script in 15 secs to get something wrong, and help the person, but I need ot look over a bit more first. I'll edit later.

what did i do wrong??

From: aaronglass
Works great for me, I left it on overnight and I got logged out after mining roughly 12 loads…any ideas?

It still helps alot though :)

ummmmmm

try it again cause no scrippts r perffect i can usually get 20 to 30 loads every time i run

edit your posts instead of double posting please :)

Very nice first script, congrats!
Though I wouldn't use that many global variables, and for uptext is works faster if you dont use any capital letters.(at least i think so)

From: impiwimpi
Very nice first script, congrats!
Though I wouldn't use that many global variables, and for uptext is works faster if you dont use any capital letters.(at least i think so)

Is uptext the actaul script itself

No :p
It is only when you use something like
IfUpText('blabla')then

From: impiwimpi
No :p
It is only when you use something like
IfUpText('blabla')then

oh ok ill change it later

I think I'm doing everything right…oh well. haha.

From: aaronglass
I think I'm doing everything right…oh well. haha.

try it again it should work fin im running it right now and am on load 24

Hey man im just learning scripting and im looking at yours and, well im very impressed, for your first script! Wow. Can I ask how long you have been doing scripting?

Thanks Nomad

From: nomad
Hey man im just learning scripting and im looking at yours and, well im very impressed, for your first script! Wow. Can I ask how long you have been doing scripting?

Thanks Nomad

ive known how to script for a bout a week lol

i jsut posted a ton of questions and trieeal and error

testing for this script before it wsa what it is now got my mining lvl on my tester from 1 to 67

if u wanna create a script with me id be happy to help u and make a awesome script with u i was thinking bout making a cow hide collecter and banker

Wow, you went from 1 to 67? Your autominer gave me about 3 levels total in the last couple days. I really like it alot man. I know nothing of scripting, haha.

this worked out perfect for me =]

this is pretty good for ur first one

Looks nice:) and btw u left your username and password in the script so i changed it for you, i have sent you a private message with the password in it.

From: pl0xmypl0x
Looks nice:) and btw u left your username and password in the script so i changed it for you, i have sent you a private message with the password in it.

thnx dont want my main stolen lol