Results 1 to 10 of 10

Thread: help with my multi ore

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default help with my multi ore

    is there a code where if it cant find a rock from the include mining thing then it will look for a diffrent rock

    ill add a couple fails safes and stuff it to it if theres a code

    Code:
    procedure MineTheStuff;
    begin
    repeat
    if FindObjRock(x, y, WhichOre)then
        begin
          Disguise('Found a rock');
          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));
      triestomine:= triestomine+1;
      end;
      until invfull or (triestomine > 30)
        AntiBanz;
    end;

  2. #2
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    ok so i gave it a shot myself and came up with this
    Code:
    procedure MineTheStuff;
    begin
    repeat
    
    if FindObjRock(x, y, WhichOre)then
        begin
          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: begin
            Mouse(x, y, 2, 2, True);
            end;
            triestomine:= triestomine+1;
            wait(5000 + random(300));
          end;
    
    if not FindObjRock(x, y, WhichOre)then
    begin
    FindObjRock(x, y, WhichOre2);
    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);
      triestomine:= triestomine+1;//this is line 136 in my script
      wait(5000 + random(300));
      end;
      until invfull or (triestomine > 30)
        AntiBanz;
    end;
    but i get this error

    Line 136: [Error] (17227:12): colon (':') expected in script

  3. #3
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    edit your posts instead of double posting please

    one sec.. let me change it a little..

    can you show me full script? =X

    thanks

  4. #4
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    QUOTE=99_;540992]edit your posts instead of double posting please

    one sec.. let me change it a little..

    can you show me full script? =X

    thanks[/QUOTE]


    Attachment 6346[

    here its is any srry bout not editing my posts

  5. #5
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Got it to compile and fixed some standards.

    SCAR Code:
    {So here my first script it runs pretty well

    only bugs so far is thta sumtimes it clicks sumwhere else and doesnt drop allt he 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 t 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
      j,x,y,g,i,y,z,TinDTM,MithDTM,AddyDTM,IronDTM,CoalDTM,CopperDTM,triestomine,drops: Integer;

    const
      NumOfPlayers = 1;
      StartPlayer = 0;
      WhichOre = old_Iron;//which ore youd like to mine primarily
      WhichOre2 = old_Copper;//if other ore isnt available then mine this one

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      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
     
    writeLn('logging in '+ Players[CurrentPlayer].Name);
    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);
                        z:=z + 1;
                      end;
                end;
            end;
          end;
        end;
      end;
    end;
     
    procedure Setup;
    begin
      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
            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;
          triestomine := triestomine+1;
          wait(5000 + random(300));
        end else
        if FindObjRock(x, y, WhichOre2) then
        begin
          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;
          triestomine:= triestomine+1;
          wait(5000 + random(300));
        end;
        AntiBanz;
      until invfull or (triestomine > 30)
    end;



    procedure DropTheStuff;
    begin
      repeat
        Disguise('dropping');
       //MithDTM:= DTMFromString('78DA637461606038C780021C1CE3184480342' +
     {      '310FF0702C62020E318031A60442281B427903844408D13903848' +
           '408D29A67BB0AAB946845D7708A8F123C21C90DFCFE057030046A' +
           '30EB0');

       //AddyDTM:= DTMFromString('78DA6374656060D0646440069E315E0C22401' +
           'A24FA1F081803810C05543510591809A40380840101354E40C29C' +
           '801A3320A14E408D03909025A0C693B01A0010E60813');
                                                                 }

        IronDTM:= DTMFromString('78DA637461626078C28002BC7495181E02694' +
           '620FE0F048C0140357718D000231209A43D806ADE12506346841A' +
           '13A09A4704D45801D5DC23A0C61EA8E63A0135AE40353708A8F10' +
           '2AAB9895F0D0074680FD3');
      {
       //CoalDTM:= DTMFromString('78DA639CC6C4C0F08C01059899A9328800694' +
           '620FE0F048C8B816A6E33A001462412482F02AA794D40CD64A09A' +
           '4F04D4B403D5BC2042CD13026A2601D5DC20A0A61BA8E61E7E350' +
           '0164F1082');}


        CopperDTM:= DTMFromString('78DA637462626078C28002B6A6EB313C04D28' +
           'C40FC1F0818BD806A6E33A00146241248BB02D5DC20A0C604A8E6' +
           '310135C640356F08A87100AAF944408D2F50CD4B026AEC08BB190' +
           '0EA3E0F6B');

        TinDTM:= DTMFromString('78DA63CC63626078C28002DAEB6A191E02694' +
           '620FE0F048C5540357718D000231209A4F3816A6E10509341849A' +
           '58A09A674498F389809A0AA09A37A82A0C141450D580FCF508BF3' +
           '90016F91182');
      //If FindDTM(MithDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      //If FindDTM(AddyDTM,x,y,MIX1,MIY1,MIX2,MIY2) then  }
        If FindDTM(IronDTM,x,y,MIX1,MIY1,MIX2,MIY2)
          or FindDTM(CopperDTM,x,y,MIX1,MIY1,MIX2,MIY2)
            or FindDTM(TinDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
     // If FindDTM(CoalDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,False);
          wait(random(200));
          ChooseOption('Drop');
          wait(1000 + random(100));
          Drops:= drops+1;
        end;
      Until InvEmpty or (drops > 29);
    end;


    procedure Proggy;
    begin
      WriteLn('  _____  ______')
      WriteLn(' |     ||      \')
      WriteLn(' |     ||      |')
      WriteLn(' |     ||   ___/')
      WriteLn('/_____/ |__ |   ')
      WriteLn('Player '+ Players[CurrentPlayer].Name);
      WriteLn('loads done '+ IntToStr(g))
      writeLn('post the proggy or no more updates!!!!!!!!!!!!!!')
    end;

    procedure SkillCheck;
    begin
      disguise('checking stats')
      HoverSkill('mining',false);
      wait(2000+(300));
    end;


    begin
      g:= 0;
      triestomine:=0;
      drops:=0;
      j:=0;
      Setup;
      DeclarePlayers;
      LoginPlayer;
      repeat
        repeat
          ClearDebug;
          Proggy;
          //FindPickHeadColor;
          SkillCheck;
          MineTheStuff;
          DropTheStuff;
          g:= g+ 1;
          //antirandoms;
        until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
        NextPlayer(Players[CurrentPlayer].Active);
      until(AllPlayersInactive);
    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}

  6. #6
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by mormonman View Post
    Got it to compile and fixed some standards.

    SCAR Code:
    {So here my first script it runs pretty well

    only bugs so far is thta sumtimes it clicks sumwhere else and doesnt drop allt he 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 t 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
      j,x,y,g,i,y,z,TinDTM,MithDTM,AddyDTM,IronDTM,CoalDTM,CopperDTM,triestomine,drops: Integer;

    const
      NumOfPlayers = 1;
      StartPlayer = 0;
      WhichOre = old_Iron;//which ore youd like to mine primarily
      WhichOre2 = old_Copper;//if other ore isnt available then mine this one

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      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
     
    writeLn('logging in '+ Players[CurrentPlayer].Name);
    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);
                        z:=z + 1;
                      end;
                end;
            end;
          end;
        end;
      end;
    end;
     
    procedure Setup;
    begin
      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
            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;
          triestomine := triestomine+1;
          wait(5000 + random(300));
        end else
        if FindObjRock(x, y, WhichOre2) then
        begin
          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;
          triestomine:= triestomine+1;
          wait(5000 + random(300));
        end;
        AntiBanz;
      until invfull or (triestomine > 30)
    end;



    procedure DropTheStuff;
    begin
      repeat
        Disguise('dropping');
       //MithDTM:= DTMFromString('78DA637461606038C780021C1CE3184480342' +
     {      '310FF0702C62020E318031A60442281B427903844408D13903848' +
           '408D29A67BB0AAB946845D7708A8F123C21C90DFCFE057030046A' +
           '30EB0');

       //AddyDTM:= DTMFromString('78DA6374656060D0646440069E315E0C22401' +
           'A24FA1F081803810C05543510591809A40380840101354E40C29C' +
           '801A3320A14E408D03909025A0C693B01A0010E60813');
                                                                 }

        IronDTM:= DTMFromString('78DA637461626078C28002BC7495181E02694' +
           '620FE0F048C0140357718D000231209A43D806ADE12506346841A' +
           '13A09A4704D45801D5DC23A0C61EA8E63A0135AE40353708A8F10' +
           '2AAB9895F0D0074680FD3');
      {
       //CoalDTM:= DTMFromString('78DA639CC6C4C0F08C01059899A9328800694' +
           '620FE0F048C8B816A6E33A001462412482F02AA794D40CD64A09A' +
           '4F04D4B403D5BC2042CD13026A2601D5DC20A0A61BA8E61E7E350' +
           '0164F1082');}


        CopperDTM:= DTMFromString('78DA637462626078C28002B6A6EB313C04D28' +
           'C40FC1F0818BD806A6E33A00146241248BB02D5DC20A0C604A8E6' +
           '310135C640356F08A87100AAF944408D2F50CD4B026AEC08BB190' +
           '0EA3E0F6B');

        TinDTM:= DTMFromString('78DA63CC63626078C28002DAEB6A191E02694' +
           '620FE0F048C5540357718D000231209A4F3816A6E10509341849A' +
           '58A09A674498F389809A0AA09A37A82A0C141450D580FCF508BF3' +
           '90016F91182');
      //If FindDTM(MithDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
      //If FindDTM(AddyDTM,x,y,MIX1,MIY1,MIX2,MIY2) then  }
        If FindDTM(IronDTM,x,y,MIX1,MIY1,MIX2,MIY2)
          or FindDTM(CopperDTM,x,y,MIX1,MIY1,MIX2,MIY2)
            or FindDTM(TinDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
     // If FindDTM(CoalDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
        Begin
          Mouse(x,y,2,2,False);
          wait(random(200));
          ChooseOption('Drop');
          wait(1000 + random(100));
          Drops:= drops+1;
        end;
      Until InvEmpty or (drops > 29);
    end;


    procedure Proggy;
    begin
      WriteLn('  _____  ______')
      WriteLn(' |     ||      \')
      WriteLn(' |     ||      |')
      WriteLn(' |     ||   ___/')
      WriteLn('/_____/ |__ |   ')
      WriteLn('Player '+ Players[CurrentPlayer].Name);
      WriteLn('loads done '+ IntToStr(g))
      writeLn('post the proggy or no more updates!!!!!!!!!!!!!!')
    end;

    procedure SkillCheck;
    begin
      disguise('checking stats')
      HoverSkill('mining',false);
      wait(2000+(300));
    end;


    begin
      g:= 0;
      triestomine:=0;
      drops:=0;
      j:=0;
      Setup;
      DeclarePlayers;
      LoginPlayer;
      repeat
        repeat
          ClearDebug;
          Proggy;
          //FindPickHeadColor;
          SkillCheck;
          MineTheStuff;
          DropTheStuff;
          g:= g+ 1;
          //antirandoms;
        until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
        NextPlayer(Players[CurrentPlayer].Active);
      until(AllPlayersInactive);
    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}
    what did u change???

    so i know how to fix the error in the future

  7. #7
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Quote Originally Posted by jpizzle View Post
    what did u change???

    so i know how to fix the error in the future
    cases need an end;

    you had something like this
    SCAR Code:
    case random(3) of
      0,2 : dothis;
      1 : dootherthis;
    triedtomine := triedtomine +1;
    you need it like this
    SCAR Code:
    case random(3) of
      0,2 : dothis;
      1 : dosomethingelse;
    end;
    triedtomine := triedtomine +1;

  8. #8
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    ok ty can u point me to some anti randomn tuts

  9. #9
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Quote Originally Posted by jpizzle View Post
    ok ty can u point me to some anti randomn tuts
    ... they are kinda not useful right now because SRL's are not working(wait for new revision). but just add FindNormalRandoms; to every time you mine or something...

  10. #10
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Attachment 6354


    ok and i have another issue with the script it only mines 1 time and then it stopps the scaript can anyone help me out

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
  •