Results 1 to 3 of 3

Thread: RockIndex '3' does not exist.

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

    Default RockIndex '3' does not exist.

    ok so whenever i run this script it gets t the mining part and say this in the debug box very fast

    RockIndex '3' does not exist.

    idk if im jsut typing it in wrong or wut

    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 and takes 5-10 minute breaks every 50 loads
    
    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: Integer;
    
    const
      NumOfPlayers = 1;
      StartPlayer = 0;
      WhichOre = varrock_Iron;
      WhichOre2 = varrock_Iron;//if only mining 1 ore then have the same ore for which ore and which ore2
      //more choses on bottom of script
      
    procedure DeclarePlayers;//add more if needed
    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
      Players[0].Booleans[0]:= false//drop gems
      
      {Players[1].Name       := '';
      Players[1].Pass       := 't';
      Players[1].Nick       := '';
      Players[1].Active     := True;    // Use this account?
      Players[1].Integers[1] := 1000; // How many Loads}
    end;
    
    procedure AntiBanz;
    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
      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 SkillCheck;
    begin
    If Not LoggedIn then
        begin
          NextPlayer(Players[CurrentPlayer].Active);
          skillcheck;
        end;
      disguise('checking stats')
      HoverSkill('mining',false);
      wait(500+(300));
    end;
    
    procedure Minethestuff;
    var mines:integer;
    begin
      mines:=0;
      If Not LoggedIn then
        begin
          NextPlayer(Players[CurrentPlayer].Active);
          skillcheck;
        end;
      repeat
        If Not LoggedIn then
        begin
          NextPlayer(Players[CurrentPlayer].Active);
          skillcheck;
        end;
        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 Not LoggedIn then
        begin
          NextPlayer(Players[CurrentPlayer].Active);
          skillcheck;
        end;
        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;
    
    var OreDTM,drops:integer;
    begin
     drops:=0;
      If Not LoggedIn then
        begin
          NextPlayer(Players[CurrentPlayer].Active);
          skillcheck;
        end;
      repeat
       If Not LoggedIn then
        begin
          NextPlayer(Players[CurrentPlayer].Active);
          skillcheck;
        end;
        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;
    var GemDrops,GemDTM:integer;
    begin
    If Not LoggedIn then
        begin
          NextPlayer(Players[CurrentPlayer].Active);
          skillcheck;
        end;
      GemDrops:=0;
      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))
        GemDrops:= GemDrops + 1;
        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('____________________________________________')
      writeln('Script has been running for ' +TimeRunning);
      WriteLn('Player '+ Players[CurrentPlayer].Nick);
      WriteLn('loads done '+ IntToStr(g));
      WriteLn('primary ores mined ' + IntToStr(u));
      WriteLn('secondary ores mined ' + IntToStr(l));
      WriteLn('gems dropped ' + IntToStr(f));
      writeLn('plz post the proggie here http://www.villavu.com/forum/showthr...565#post542565');
    end;
    
    
    
    
    procedure Freeeverything;
    var oreDTM,GemDTM,ClayBMP:integer;
    begin
      FreeDTM(OreDTM);
      FreeDTM(GemDTM);
      FreeBitmap(ClayBMP);
    end;
    
    procedure break;
    begin
      disguise('breaking now')
      logout;
      wait(300000+random(300000));
      LoginPlayer;
    end;
    
    
    
    begin
      g:= 0;
      l:=0;
      u:=0;
      j:=0;
      f:=0;
      Setup;
      DeclarePlayers;
      GraphicsSet := true;
      LoginPlayer;
      repeat
        repeat
          GetTimeRunning;
          ClearDebug;
          Proggy;
          if g = 25 + random(25) then
          break;
          SkillCheck;
          MineTheStuff;
          OreDropping;
          if Players[CurrentPlayer].Booleans[0]=true then
          Gemdroping;
          Inc(g);
        until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
        NextPlayer(Players[CurrentPlayer].Active);
      until(AllPlayersInactive);
      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}

  2. #2
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    what line r u getting the error on and btw if ur gonna decare a dtm and free it in another proc/func then the var has to be declared at the top

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

    Default

    Quote Originally Posted by pur3b100d View Post
    what line r u getting the error on and btw if ur gonna decare a dtm and free it in another proc/func then the var has to be declared at the top
    well it doesnt say a line it just says the error and thts it


    btw ill change that later

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
  •