Results 1 to 7 of 7

Thread: need help quick question

  1. #1
    Join Date
    Mar 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default need help quick question

    All Problems fixed thanks tons, ill post back if any more problems occour.

  2. #2
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You have to set Tries: = 0; and that is all I can tell you... You need more infomation to get more of an informative responce...

    ~Stupedspam

  3. #3
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't think you need to set tries to 0. The default is 0.

    Try switching places for 'ine' and OreColorMain


    But yea, generally it is nice to give at least the error message when you ask for help.

  4. #4
    Join Date
    Mar 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    i got it down to this error

    [Runtime Error] : Out Of Range in line 210 in script

    and i just reaized i forgot to upload the script..sorry!

  5. #5
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program Powerminer;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/mining.scar}
    {=====================]
    [=====Setup===========]
    [=====================}

    const
      OreColorMain = 16777215;//Color of rock in main screen
      OreColorInv = 00000000;//Color of ore IN INV
      Loads = 10; //Number of loads to do before switching players
      Run = 'N';//Run Direction---SET WITH CARE
      MineTime = 4000 ;//Time in milliseconds to mine rock before restarting-1000 ms is 1 second
    {=====================]
    [=====Setup ends======]
    [=====================}

    var
    Tries: Integer;
    LoadsDone: Integer;

    {=====================]
    [====Player Setup=====]
    [=====================}


    procedure DeclarePlayers;
    begin
         HowManyPlayers := 4;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := true;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := true;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := true;
    end;
    {=====================]
    [===Progress Report===]
    [=====================}


    procedure Report;
    begin
      ClearDebug;
      Writeln('==========Adams Power Miner version 1.0=========');
      Writeln('---------------->Progress Report<---------------');
      Writeln(' Time Running : ' + ScriptTime2(2));
      Writeln('      did ' + IntToStr(Loads) + ' Loads' + '    ');
      Writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
    end;
    {=====================]
    [=====Gas Finding=====]
    [=======BY: RsN=======


    {=====================]
    [==Find Fast Randoms==]
    [====By: WT-Fawaki====}


    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 8 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;
        end;
        wait(1);
      end;
    end;
    {=====================]
    [====Anti Randoms=====]
    [=====Thanks SRL======}


    procedure DoAntiRandoms;
    begin
      if (FindFight) then
      begin
        RunAwayDirection(Run);
        Flag;
        wait(20000 + random(5000));
        RunBack;
        Flag;
      end;
      FindTalk;
      FindNormalRandoms;
      FindFastRandoms;
    end;
    {=====================]
    [======Anti Ban=======]
    [=====================}


    procedure AntiBanMe;
    begin
      case Random(10) of
        2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
        4: HoverSkill('random', False);
        6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
        9: BoredHuman;
      end;
    end;
    {=====================]
    [======Dropping=======]
    [=====================}

    Procedure DropOresAdam;
    begin
    DwarfItem;
    repeat
    if (findcolortolerance(x,y,OreColorInv,MIX1, MIY1, MIX2, MIY2,2))then
    MMouse(x,y,2,2);
    wait(20+random(5));
    Mouse(x,y,2,2,False);
    wait(10+random(5));
    clickoption('rop',1);
    until not (findcolortolerance(x,y,OreColorInv,MIX1, MIY1, MIX2, MIY2,2));
    end;
    {=====================]
    [=======Mining========]
    [=====================}


    procedure MineOresAdam;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
      MakeCompass('N');
      Highestangle;
      //Tries: = 0;
      repeat
      begin
        DoAntiRandoms;
        wait(10 + random(10));
        if(findobj(x,y,'ine',OreColorMain,10))then
        wait(10);
        MMouse(x,y,2,2);
        wait(50+random(25));
        Mouse(x,y,2,2,False);
        wait(50+random(25));
        clickoption('ine',1);
        wait(50+random(20));
        DoAntiRandoms;
        wait(MineTime+random(100));
        DoAntiRandoms;
        if not(findobj(x,y,'ine',OreColorMain,10))then
        Tries := Tries + 1
        if Tries > 3 then
        Nextplayer(false);
        end;
        until (InvFull);
        end;



    {=====================]
    [======Main Loop======]
    [=====================}

      begin
        SetupSRL;
        SetupSRLMining;
        DisguiseScar('I love Jagex')
          repeat
          if (not (loggedin)) then
          begin
            Loginplayer;
            Fixchat;
            SetRun(true);
            NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
          end
          MineOresAdam;
          DropOresAdam;
          LoadsDone := LoadsDone + 1;
          Report;
          if (LoadsDone >= Loads) then
            Nextplayer(true);
          LoadsDone := 0;
        until (false);

      end.

  6. #6
    Join Date
    Mar 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by me_ntal View Post
    SCAR Code:
    program Powerminer;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/mining.scar}
    {=====================]
    [=====Setup===========]
    [=====================}

    const
      OreColorMain = 16777215;//Color of rock in main screen
      OreColorInv = 00000000;//Color of ore IN INV
      Loads = 10; //Number of loads to do before switching players
      Run = 'N';//Run Direction---SET WITH CARE
      MineTime = 4000 ;//Time in milliseconds to mine rock before restarting-1000 ms is 1 second
    {=====================]
    [=====Setup ends======]
    [=====================}

    var
    Tries: Integer;
    LoadsDone: Integer;

    {=====================]
    [====Player Setup=====]
    [=====================}


    procedure DeclarePlayers;
    begin
         HowManyPlayers := 4;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := true;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := true;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := true;
    end;
    {=====================]
    [===Progress Report===]
    [=====================}


    procedure Report;
    begin
      ClearDebug;
      Writeln('==========Adams Power Miner version 1.0=========');
      Writeln('---------------->Progress Report<---------------');
      Writeln(' Time Running : ' + ScriptTime2(2));
      Writeln('      did ' + IntToStr(Loads) + ' Loads' + '    ');
      Writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
    end;
    {=====================]
    [=====Gas Finding=====]
    [=======BY: RsN=======


    {=====================]
    [==Find Fast Randoms==]
    [====By: WT-Fawaki====}


    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 8 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;
        end;
        wait(1);
      end;
    end;
    {=====================]
    [====Anti Randoms=====]
    [=====Thanks SRL======}


    procedure DoAntiRandoms;
    begin
      if (FindFight) then
      begin
        RunAwayDirection(Run);
        Flag;
        wait(20000 + random(5000));
        RunBack;
        Flag;
      end;
      FindTalk;
      FindNormalRandoms;
      FindFastRandoms;
    end;
    {=====================]
    [======Anti Ban=======]
    [=====================}


    procedure AntiBanMe;
    begin
      case Random(10) of
        2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
        4: HoverSkill('random', False);
        6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
        9: BoredHuman;
      end;
    end;
    {=====================]
    [======Dropping=======]
    [=====================}

    Procedure DropOresAdam;
    begin
    DwarfItem;
    repeat
    if (findcolortolerance(x,y,OreColorInv,MIX1, MIY1, MIX2, MIY2,2))then
    MMouse(x,y,2,2);
    wait(20+random(5));
    Mouse(x,y,2,2,False);
    wait(10+random(5));
    clickoption('rop',1);
    until not (findcolortolerance(x,y,OreColorInv,MIX1, MIY1, MIX2, MIY2,2));
    end;
    {=====================]
    [=======Mining========]
    [=====================}


    procedure MineOresAdam;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
      MakeCompass('N');
      Highestangle;
      //Tries: = 0;
      repeat
      begin
        DoAntiRandoms;
        wait(10 + random(10));
        if(findobj(x,y,'ine',OreColorMain,10))then
        wait(10);
        MMouse(x,y,2,2);
        wait(50+random(25));
        Mouse(x,y,2,2,False);
        wait(50+random(25));
        clickoption('ine',1);
        wait(50+random(20));
        DoAntiRandoms;
        wait(MineTime+random(100));
        DoAntiRandoms;
        if not(findobj(x,y,'ine',OreColorMain,10))then
        Tries := Tries + 1
        if Tries > 3 then
        Nextplayer(false);
        end;
        until (InvFull);
        end;



    {=====================]
    [======Main Loop======]
    [=====================}

      begin
        SetupSRL;
        SetupSRLMining;
        DisguiseScar('I love Jagex')
          repeat
          if (not (loggedin)) then
          begin
            Loginplayer;
            Fixchat;
            SetRun(true);
            NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
          end
          MineOresAdam;
          DropOresAdam;
          LoadsDone := LoadsDone + 1;
          Report;
          if (LoadsDone >= Loads) then
            Nextplayer(true);
          LoadsDone := 0;
        until (false);

      end.
    can you explain what you did please?

    and now a new problem arises...it mines a full load of ore, then right clicks the ore once inv is full like its going to drop the ore,then just sits there, clickoption always worked for me i dont know why it wouldnt work..


    EDIT: I replaced the 1 in clickoption('ine',1) with a 2 and it works great now

  7. #7
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    You simply had the nickname bitmap in the wrong spot and it kept getting muddled.

    Working now?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Just a quick question? Did I say quick?
    By SeanJohn in forum OSR Help
    Replies: 3
    Last Post: 01-28-2009, 12:03 AM
  2. Quick question
    By GinFoxface in forum OSR Help
    Replies: 2
    Last Post: 04-07-2007, 04:25 AM
  3. Quick Question
    By mage of begu in forum OSR Help
    Replies: 10
    Last Post: 01-12-2007, 10:48 PM

Posting Permissions

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