Results 1 to 10 of 10

Thread: Gas finding help

  1. #1
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Gas finding help

    If someone wouldn't mind, would you help me make a gas finder for my power mining script?

    Thanks.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  2. #2
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    negaal made one and it is in the public test corner

  3. #3
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    There is a gas finder in SRL.


  4. #4
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I recommend the one in mining.scar.Hey look 3 people in a row with Scar Scripts Forum sigs.

  5. #5
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm trying to put it into my script but it keeps on giving me errors.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  6. #6
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    What antigas are you using?

  7. #7
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The one in Mining.scar, the findgas and gascheck
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  8. #8
    Join Date
    Jan 2007
    Location
    Tennessee
    Posts
    642
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Post the script you are trying to put it in and what error you are getting

  9. #9
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program VWMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    Const
      Loads = 3; //Loads to do before switching
      Usebank = false; //True if you want to bank ores
      RockColor1 = 8882066;
      RockColor2 = 9539996;

    Var
    x, y, ores, Gasses, LoadsNumB, PikDTM, TinDTM, BrokeDTM, Walk1DTM, Walk2DTM, Walk3DTM, BankDTM:integer;

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

      Players[0].Name :='';//username
      Players[0].Pass :='';//password
      Players[0].Nick :='';//2-4 letters of username
      Players[0].Active := True;//Want to use player?
     
      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := True;

      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;
    end;

    procedure LoadDTMs;
    begin
      PikDTM := DTMFromString('78DA63B465626078CA800274E558C1342394C' +
           'F680954F389010D30A2AA0900AA7948408D1350CD35026A4C806A' +
           '6E1350E305547387801A57C2760100B5120859');
      BrokeDTM := DTMFromString('78DA63CC60626078C280020C95D8C0342394C' +
           'F580A54738F010D30A2AA2906AAB94B404D2150CD6D026AAA816A' +
           'EE1350930454738B08359F08A84901AA794F8439AF09A8C906AAB' +
           '9815F0D0087120D93');
      TinDTM := DTMFromString('78DA63CC65626078C280026A4B4BC0342394C' +
           'F5804547383010D30A2AAA900AA794D404D3550CD7D026AD2816A' +
           '3E1150130B54F382809A44A09A7B04D46402D55CC7AF0600177C0' +
           'C03');
      Walk1DTM := DTMFromString('78DA634C61626050634001F1B9DE0CFF81342' +
           '310FF0702C64AA09A40881C33544D6F82130317540D08301601D5' +
           'F813A1269E809A6CA09A6CFC6A00621D0ED3');
      Walk2DTM := DTMFromString('78DA630C636260D065400131B9DE0CFF81342' +
           '310FF0702C60EA09A1C881C33544D6F82130317540D0830F601D5' +
           '9410A1A682801A905D2D04D4B401D5141350B30AA8C619554DA2A' +
           '5188A1A00B5D21386');
      Walk3DTM := DTMFromString('78DA63CC61626090614001A1B9DE0CFF81342' +
           '310FF0702C6C54035B6103966A89A444B31062EA81A10605C0254' +
           '634D408D2F504D34AA9A848C1C54355E40359E04D45803D584125' +
           '0E34A580D005ACF114F');
      BankDTM := DTMFromString('78DA63CC646260B06640016FDEBC61F80FA41' +
           '981F83F10302602D5B843E498A16AFEFC6162E082AA0101B01A6B' +
           '54355FBF3260AA3126A0261EA84687805D20356AA86ACE9C41332' +
           '70EA84616BF39000ED7178B');
    end;

    Procedure randoms;
    begin
      if(not(LoggedIn))then Exit;
        FindTalk;
        FindNormalRandoms;
        SolveChatRandom;
        FindLamp('Mining');
        If(FindFight)Then
        begin
          MakeCompass('N');
          RunTo('N', True);
          Wait(7000 +Random(3000));
          RunTo('S', True);
        end;
      end;

    procedure AntiBanz;
    begin
      if(not(LoggedIn))then Exit;
      case Random(4) of

        0: begin
             HoverSkill('Mining', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        1: PickUpMouse;

        2: begin
             case random(3) of
               0: TypeSend('Mining lvls?');

               1: TypeSend('Smithing levels');

               2: TypeSend('Im bored..');

               3: TypeSend('blah, blah, blah');
             end;
           end;

        3: begin
             HoverSkill('Smithing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

         end;
       end;


    procedure Scripty;
    begin
      MouseSpeed := 16;
      MakeCompass('N');
    end;

    procedure Findpik;
    begin
      if not LoggedIn then Exit;
        Gametab(4);
        Wait(1000);
        if not FindDTM(PikDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          wait(200);
          Logout;
          Nextplayer(false);
          Writeln('No pick axe noob, get one.');
        end;
      end;

    procedure Brokenpik;
    begin
      GameTab(4);
      wait(300);
      if FindDTM(BrokeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Logout;
          Nextplayer(false);
          WriteLn('Broken pickaxe, logging out');
        end;
      end;

    Procedure Mineore;
    var
    Minetime: integer;
    RockColors : TIntegerArray;
    begin
      if not LoggedIn then
        Exit;
        MarkTime(MineTime);
        RockColors := [RockColor1, RockColor2];
        repeat
          if FindObjCustom(x, y, ['Min', 'ine'], RockColors, 7) then
          begin
            Findgas;
            Randoms;
            mouse(x, y, 0, 0, false);
            Wait(500);
            ChooseOption('ine');
            Wait(4000);
            randoms;
          end;
        until (InvFull) or (TimeFromMark(Minetime) > 600000+random(60000));;
      end;

    procedure Dropore;
    begin
      if Usebank = (false) then
        begin
        if InvFull then
        repeat
          if not LoggedIn then Exit;
            Gametab(4);
            wait(300);
            if FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
            begin
              Wait(225 + random(25));
              Mouse(x, y, 2, 2, false);
              wait(150 + random(25));
              Chooseoption('rop');
              Wait(300);
              Randoms;
            end;
          until not (FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not(loggedin);
        end;
      end;
     

    procedure Proggy;
    begin
      ClearDebug;
      WriteLn(' _____ _              _                 ');
      WriteLn('/__   (_)_ __   /\/\ (_)_ __   ___ _ __ ');
      WriteLn('  / /\/ |  _ \ /    \| |  _ \ / _ \  __|');
      WriteLn(' / /  | | | | / /\/\ \ | | | |  __/ |   ');
      WriteLn(' \/   |_|_| |_\/    \/_|_| |_|\___|_|   ');
      WriteLn('TinMiner ran for ' + TimeRunning + '.');
      WriteLn('Mined ' + inttostr(Ores)+' tin ores.');
      WriteLn('Found ' + inttostr(Gasses)+' Gases.');
    end;

    procedure Tobank;
    begin
      if Usebank = (True) then
      begin
        if  DTMRotated(Walk1DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          Mouse(x, y, 1, 1, True);
          Flag;
        end;
          begin
            if  DTMRotated(Walk2DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
            begin
              Mouse(x, y, 1, 1, True);
              Flag;
            end;
            begin
              if  DTMRotated(Walk3DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                begin
                  Mouse(x, y, 1, 1, True);
                  Flag;
                end;
                begin
                  RadialRoadWalk(FindRoadColor, 330, 358, 76, 0, 0);
                  Flag;
                  RadialRoadWalk(FindRoadColor, 50, 88, 55, 0, 0);
                  Flag;
                end;
                begin
                  if  DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                  begin
                    Mouse(x, y, 1, 1, True);
                    Flag;
                  end;
                end;
              end;
            end;
          end;
        FreeDTM(Walk1DTM);
        FreeDTM(Walk2DTM);
        FreeDTM(Walk3DTM);
        FreeDTM(BankDTM);
      end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Scripty;
      LoadDTMs;
      Findpik;
      Repeat
        Brokenpik;
        Mineore;
        Dropore;
        Ores:= Ores + 27;
        LoadsNumB:= LoadsNumB + 1;
        begin
        if(LoadsNumB=Loads)then
        begin
          NextPlayer(True);
          LoadsNumB:=0;
          MakeCompass('N');
          Writeln('Switched players successfully! :)');
        end;
        Proggy;
        end;
      until(false);
    end.

    And the error is:

    SCAR Code:
    Line 161: [Error] (13054:8): Invalid number of parameters in script C:\Program Files\SCAR 3.14\Scripts\Vwmine3.scar
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  10. #10
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program VWMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    Const
      Loads = 3; //Loads to do before switching
      Usebank = false; //True if you want to bank ores
      RockColor1 = 8882066;
      RockColor2 = 9539996;

    Var
    x, y, ores, Gasses, LoadsNumB, PikDTM, TinDTM, BrokeDTM, Walk1DTM, Walk2DTM, Walk3DTM, BankDTM:integer;

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

      Players[0].Name :='';//username
      Players[0].Pass :='';//password
      Players[0].Nick :='';//2-4 letters of username
      Players[0].Active := True;//Want to use player?

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

      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;
    end;

    procedure LoadDTMs;
    begin
      PikDTM := DTMFromString('78DA63B465626078CA800274E558C1342394C' +
           'F680954F389010D30A2AA0900AA7948408D1350CD35026A4C806A' +
           '6E1350E305547387801A57C2760100B5120859');
      BrokeDTM := DTMFromString('78DA63CC60626078C280020C95D8C0342394C' +
           'F580A54738F010D30A2AA2906AAB94B404D2150CD6D026AAA816A' +
           'EE1350930454738B08359F08A84901AA794F8439AF09A8C906AAB' +
           '9815F0D0087120D93');
      TinDTM := DTMFromString('78DA63CC65626078C280026A4B4BC0342394C' +
           'F5804547383010D30A2AAA900AA794D404D3550CD7D026AD2816A' +
           '3E1150130B54F382809A44A09A7B04D46402D55CC7AF0600177C0' +
           'C03');
      Walk1DTM := DTMFromString('78DA634C61626050634001F1B9DE0CFF81342' +
           '310FF0702C64AA09A40881C33544D6F82130317540D08301601D5' +
           'F813A1269E809A6CA09A6CFC6A00621D0ED3');
      Walk2DTM := DTMFromString('78DA630C636260D065400131B9DE0CFF81342' +
           '310FF0702C60EA09A1C881C33544D6F82130317540D0830F601D5' +
           '9410A1A682801A905D2D04D4B401D5141350B30AA8C619554DA2A' +
           '5188A1A00B5D21386');
      Walk3DTM := DTMFromString('78DA63CC61626090614001A1B9DE0CFF81342' +
           '310FF0702C6C54035B6103966A89A444B31062EA81A10605C0254' +
           '634D408D2F504D34AA9A848C1C54355E40359E04D45803D584125' +
           '0E34A580D005ACF114F');
      BankDTM := DTMFromString('78DA63CC646260B06640016FDEBC61F80FA41' +
           '981F83F10302602D5B843E498A16AFEFC6162E082AA0101B01A6B' +
           '54355FBF3260AA3126A0261EA84687805D20356AA86ACE9C41332' +
           '70EA84616BF39000ED7178B');
    end;

    Procedure randoms;
    begin
      if(not(LoggedIn))then Exit;
        FindTalk;
        FindNormalRandoms;
        SolveChatRandom;
        FindLamp('Mining');
        If(FindFight)Then
        begin
          MakeCompass('N');
          RunTo('N', True);
          Wait(7000 +Random(3000));
          RunTo('S', True);
        end;
      end;

    procedure AntiBanz;
    begin
      if(not(LoggedIn))then Exit;
      case Random(4) of

        0: begin
             HoverSkill('Mining', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        1: PickUpMouse;

        2: begin
             case random(3) of
               0: TypeSend('Mining lvls?');

               1: TypeSend('Smithing levels');

               2: TypeSend('Im bored..');

               3: TypeSend('blah, blah, blah');
             end;
           end;

        3: begin
             HoverSkill('Smithing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

         end;
       end;


    procedure Scripty;
    begin
      MouseSpeed := 16;
      MakeCompass('N');
    end;

    procedure Findpik;
    begin
      if not LoggedIn then Exit;
        Gametab(4);
        Wait(1000);
        if not FindDTM(PikDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          wait(200);
          Logout;
          Nextplayer(false);
          Writeln('No pick axe noob, get one.');
        end;
      end;

    procedure Brokenpik;
    begin
      GameTab(4);
      wait(300);
      if FindDTM(BrokeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Logout;
          Nextplayer(false);
          WriteLn('Broken pickaxe, logging out');
        end;
      end;

    Procedure Mineore;
    var
    Minetime: integer;
    RockColors : TIntegerArray;
    begin
      if not LoggedIn then
        Exit;
        MarkTime(MineTime);
        RockColors := [RockColor1, RockColor2];
        repeat
          if FindObjCustom(x, y, ['Min', 'ine'], RockColors, 7) then
          begin
            Findgas(MSCX, MSCY);
            Randoms;
            mouse(x, y, 0, 0, false);
            Wait(500);
            ChooseOption('ine');
            Wait(4000);
            randoms;
          end;
        until (InvFull) or (TimeFromMark(Minetime) > 600000+random(60000));;
      end;

    procedure Dropore;
    begin
      if Usebank = (false) then
        begin
        if InvFull then
        repeat
          if not LoggedIn then Exit;
            Gametab(4);
            wait(300);
            if FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
            begin
              Wait(225 + random(25));
              Mouse(x, y, 2, 2, false);
              wait(150 + random(25));
              Chooseoption('rop');
              Wait(300);
              Randoms;
            end;
          until not (FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not(loggedin);
        end;
      end;


    procedure Proggy;
    begin
      ClearDebug;
      WriteLn(' _____ _              _                 ');
      WriteLn('/__   (_)_ __   /\/\ (_)_ __   ___ _ __ ');
      WriteLn('  / /\/ |  _ \ /    \| |  _ \ / _ \  __|');
      WriteLn(' / /  | | | | / /\/\ \ | | | |  __/ |   ');
      WriteLn(' \/   |_|_| |_\/    \/_|_| |_|\___|_|   ');
      WriteLn('TinMiner ran for ' + TimeRunning + '.');
      WriteLn('Mined ' + inttostr(Ores)+' tin ores.');
      WriteLn('Found ' + inttostr(Gasses)+' Gases.');
    end;

    procedure Tobank;
    begin
      if Usebank = (True) then
      begin
        if  DTMRotated(Walk1DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
        begin
          Mouse(x, y, 1, 1, True);
          Flag;
        end;
          begin
            if  DTMRotated(Walk2DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
            begin
              Mouse(x, y, 1, 1, True);
              Flag;
            end;
            begin
              if  DTMRotated(Walk3DTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                begin
                  Mouse(x, y, 1, 1, True);
                  Flag;
                end;
                begin
                  RadialRoadWalk(FindRoadColor, 330, 358, 76, 0, 0);
                  Flag;
                  RadialRoadWalk(FindRoadColor, 50, 88, 55, 0, 0);
                  Flag;
                end;
                begin
                  if  DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
                  begin
                    Mouse(x, y, 1, 1, True);
                    Flag;
                  end;
                end;
              end;
            end;
          end;
        FreeDTM(Walk1DTM);
        FreeDTM(Walk2DTM);
        FreeDTM(Walk3DTM);
        FreeDTM(BankDTM);
      end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      Scripty;
      LoadDTMs;
      Findpik;
      Repeat
        Brokenpik;
        Mineore;
        Dropore;
        Ores:= Ores + 27;
        LoadsNumB:= LoadsNumB + 1;
        begin
        if(LoadsNumB=Loads)then
        begin
          NextPlayer(True);
          LoadsNumB:=0;
          MakeCompass('N');
          Writeln('Switched players successfully! :)');
        end;
        Proggy;
        end;
      until(false);
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Finding an NPC... I Need Help!
    By mormonman in forum OSR Help
    Replies: 9
    Last Post: 12-06-2008, 05:36 AM
  2. Replies: 3
    Last Post: 09-23-2008, 03:37 AM
  3. Finding npc
    By dvdcrayola in forum OSR Help
    Replies: 4
    Last Post: 08-20-2007, 01:57 AM
  4. I need help with ENT finding
    By TravisV10 in forum OSR Help
    Replies: 23
    Last Post: 07-05-2007, 08:27 AM
  5. help with ent finding
    By Adamb_135 in forum OSR Help
    Replies: 4
    Last Post: 04-18-2007, 02:14 AM

Posting Permissions

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