Results 1 to 15 of 15

Thread: Karid Steel Smelter

  1. #1
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default Karid Steel Smelter

    need help with antirandoms and
    why does it quit half-way through procedures? skips to the next?
    SCAR Code:
    {
    _______________   ____________  ______________  _____    ____        _____
    |             |   |          |  |           ||  |   |  |/    |       |   ||
    |    _________|   |___    ___| ||   ________|   |___|  |     |       |   ||
     \   \____________    |  |     |   |/                  |     |\      |   ||
      \               |   |  |     |   |            |   |  |       ||    |   ||
       \__________    |   |  |    ||   |_______     |   |  |   \|   ||   |   ||
               /|/    /   |  |    |    _______/     |   |  |   | \   ||  |   ||
              /|/    /    |  |   ||   |/            |   |  |   |  \   ||_|   ||
      _______/|/    /     |  |   |   ||             |   |  |   |   \   |||   ||
     |             /      |  |   |   |_______       |   |  |   |    \        ||
     |____________/       |__|  /___________/       |   | /____|     \_______||
      __________________________________________________
    <|Stein's Super Steel Smelter.                      |>
    <|Walk's to furnace, smelts, goes back, banks,      |>
    <|repeats over and over!!!!!                        |>
    <|__________________________________________________|>
      \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    }

    program KaridSmelter;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xbank.scar}

    var
    xco,yco:integer;

    const
    ironore = 2306126;
    coalore = 2636091;
    rundir = 'E';//direction to run in a fight
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    procedure hide;
    begin
    SetupSRL
    Begin
      SetChat('On', 1);
      SetChat('On', 1);
      SetChat('Friends', 2);
      SetChat('Friends', 2);
      SetChat('On', 3);
      SetChat('On', 3);
    End;
    disguisescar('AOL Instant Messanger')
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    procedure withdrawores;
    begin
    if findcolor(xco,yco,ironore,78, 58,467, 288) then
    begin
    Mmouse(xco,yco,0,0);
    wait(100+random(100))
    Mouse(xco,yco,0,0,false);
    wait(100+random(100))
    ChooseOption(xco,yco,'Withdraw X');
    wait(2000+random(400))
    Typesend('9')
    end;
    if findcolor(xco,yco,coalore,78, 58,467, 288) then
    begin
    Mmouse(xco,yco,0,0);
    wait(100+random(100))
    Mouse(xco,yco,0,0,false);
    wait(100+random(100))
    ChooseOption(xco,yco,'Withdraw X');
    wait(2000+random(400))
    Typesend('18')
    end;
    closebank;
    writeln('Withdrawn Ores');
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    procedure walkfurnace;
    begin
    if findsymbol(x,y,'cookery') or findsymbol(x,y,'kebab shop') or findmmcolor(x,y,988172) then
    begin
    Mmouse(x,y,1,1);
    Wait(100+random(50));
    Mouse(x,y,1,1,true);
    wait(5000+random(1000));
      if (FindSymbol(x,y,'furnace')) or
         (FindMMColor(x,y,2917887)) or
         (findcolor(x,y,1638399,603,40,670,113)) then
      begin
      MMouse(x,y,2,2);
      Mouse(x,y,2,2,True);
      wait(10000+random(2000));
      end;
      writeln('At Furnace');
      makecompass('N');
      gametab(4);
      wait(1000+random(300));
    end;
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    procedure smelt;
    begin
    if findcolor(x,y,6447722,59,130,294,264) then
    begin
    Mmouse(x,y,0,0);
    wait(100+random(100));
    if isuptext('elt') then
       begin
       Mouse(x,y,1,1,true);
       flag;
       Mmouse(233+random(40),388+random(32),0,0);
       wait(100+random(100));
       Getmousepos(x,y);
       wait(100+random(100));
       Mouse(x,y,0,0,false);
       wait(100+random(100));
       chooseoption(x,y,'Smelt 10');
       wait(22500+random(2000));
       if findcolor(x,y,7237495,564,286,604,317) then
       end;
       end;
       writeln('Smelted 9 Steel Bars')
       makecompass('N');
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    procedure walkbank;
    begin
    if findcolor(x,y,7237495,564,286,604,317) and
       findcolor(x,y,4422981,642,136,673,158) then
       begin
       if findsymbol(x,y,'cookery') or findsymbol(x,y,'kebab shop') or findmmcolor(x,y,988172) then
       begin
          Mmouse(x,y,0,0);
          wait(100+random(100));
          Mouse(x,y,1,1,true);
          wait(5000+random(1000));
          end;
       end;
    if (FindSymbol(x,y,'bank')) or
        (FindMMColor(x,y,3520475)) then
      begin
       MMouse(x,y,2,2);
       Mouse(x,y,2,2,true);
       Flag;
       end;
       writeln('At Bank');
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    procedure bankbars;
    Begin
      repeat
      makecompass('E');
      OpenBankGlass('veb',False,False);
      until(bankscreen);
      wait(500+random(500));
      DepositAll;
      writeln('Banked Bars');
      makecompass('N');
    End;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    Procedure Randoms;
    Begin
    // findrandoms;
     wait(10)
     UseBoxSolver := True
      wait(10)
     UseCerterSolver := True
      wait(10)
     UseSandwichSolver :=True
     FindMaze;
     wait(10)
     Solvepinball;
     Wait(10)
      if (FindFight) then
       begin
        RunAwayDirection(rundir);
         Wait(8500 + random(3500));
        RunBack;
       end;
      Wait(10);
     FindTalk;
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    begin
    hide
    repeat
    bankbars
    withdrawores
    randoms
    walkfurnace
    randoms
    smelt
    randoms
    walkbank
    until(false)
    end.

  2. #2
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    It probably didn't find the color of the furnace.. Use some waits/repeats while looking for that color?
    Hup Holland Hup!

  3. #3
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    how do i make it check a certain amount of time before leaving the loop?

  4. #4
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Something like this should do:
    SCAR Code:
    procedure WaitAndFindColor:
    var tx, ty, i: integer;
    begin
      repeat
        i := i + 1;
        Wait(50);
        if i >= 200 then
        begin
          WriteLn('Could not find the furnace');
          Exit;
        end
      until FindColorTolerance(tx, ty, 6447722, 59, 130, 294, 264, 15) //Use tolerance, that way if will find it way easier =]
      MMouse(tx, ty, 0, 0); //Moves the mouse to the color
      Wait(100);
      if IsUpText('urnace') then Mouse(tx, ty, 0, 0, True); // This will click the furnace
    end;
    Hup Holland Hup!

  5. #5
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You should really fix ur scripting standards, makes it easier to read and fix.

    EDIT: Found the prob

    SCAR Code:
    procedure smelt;
    begin
    if findcolor(x,y,6447722,59,130,294,264) then
    begin
    Mmouse(x,y,0,0);  // the If stops here ";" :p
    wait(100+random(100)); //and here
    if isuptext('elt') then
       begin
       Mouse(x,y,1,1,true); //here
       flag; //here
       Mmouse(233+random(40),388+random(32),0,0);  //here
       wait(100+random(100)); //here
       Getmousepos(x,y);  //here
       wait(100+random(100));  //here
       Mouse(x,y,0,0,false);  //here
       wait(100+random(100)); //here
       chooseoption(x,y,'Smelt 10');//here
       wait(22500+random(2000));//here
       if findcolor(x,y,7237495,564,286,604,317) then
       end; //What's up with this??? the if ends here and it will never write the "   writeln('Smelted 9 Steel Bars')"
       end; //What's up with this??? the if ends here and it will never write the "   writeln('Smelted 9 Steel Bars')"
       writeln('Smelted 9 Steel Bars')
       makecompass('N');
    end;

  6. #6
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    what would you suggest?
    I made it easier for me to edit, i dunno about everybody else :P

  7. #7
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by nielsie95 View Post
    Something like this should do:
    SCAR Code:
    i := i + 1;
    Do'H!!
    thats why my equations never work...

  8. #8
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, fixing this. Not a prob but can be done easier

    SCAR Code:
    Mmouse(233+random(40),388+random(32),0,0);

    Equals

    SCAR Code:
    Mmouse(233 , 388, 40, 32);


    If you would learn RW (RadialWalk) u would get much easier with scripting and much more safer scripts ( I can't it myself neither yet, I don't need it ATM )

  9. #9
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    233 +Random(40) is not the same as MMouse(233, .., 40, ..).
    I think MMouse doesn't only count it up(+), but also does 233 - Random(40). If you know what I mean
    Hup Holland Hup!

  10. #10
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    yeah i know, i wanted it to click in a certain area :P

    I changed it to do the cookery and/or kebab symbol, whichever one is showing best...

  11. #11
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by PwNZoRNooB View Post
    You should really fix ur scripting standards, makes it easier to read and fix.

    EDIT: Found the prob

    SCAR Code:
    procedure smelt;
    begin
    if findcolor(x,y,6447722,59,130,294,264) then
    begin
    Mmouse(x,y,0,0);  // the If stops here ";" :p
    wait(100+random(100)); //and here
    if isuptext('elt') then
       begin
       Mouse(x,y,1,1,true); //here
       flag; //here
       Mmouse(233+random(40),388+random(32),0,0);  //here
       wait(100+random(100)); //here
       Getmousepos(x,y);  //here
       wait(100+random(100));  //here
       Mouse(x,y,0,0,false);  //here
       wait(100+random(100)); //here
       chooseoption(x,y,'Smelt 10');//here
       wait(22500+random(2000));//here
       if findcolor(x,y,7237495,564,286,604,317) then
       end; //What's up with this??? the if ends here and it will never write the "   writeln('Smelted 9 Steel Bars')"
       end; //What's up with this??? the if ends here and it will never write the "   writeln('Smelted 9 Steel Bars')"
       writeln('Smelted 9 Steel Bars')
       makecompass('N');
    end;
    the IF starts a "Begin" which doesn't end until "end;"
    I'm not that stupid...

  12. #12
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    nobody is reading this anym0res...

  13. #13
    Join Date
    Mar 2007
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    here is your script using right standards and underneath ill show you how to do randoms

    Code:
    {
    _______________   ____________  ______________  _____    ____        _____
    |             |   |          |  |           ||  |   |  |/    |       |   ||
    |    _________|   |___    ___| ||   ________|   |___|  |     |       |   ||
     \   \____________    |  |     |   |/                  |     |\      |   ||
      \               |   |  |     |   |            |   |  |       ||    |   ||
       \__________    |   |  |    ||   |_______     |   |  |   \|   ||   |   ||
               /|/    /   |  |    |    _______/     |   |  |   | \   ||  |   ||
              /|/    /    |  |   ||   |/            |   |  |   |  \   ||_|   ||
      _______/|/    /     |  |   |   ||             |   |  |   |   \   |||   ||
     |             /      |  |   |   |_______       |   |  |   |    \        ||
     |____________/       |__|  /___________/       |   | /____|     \_______||
      __________________________________________________
    <|Stein's Super Steel Smelter.                      |>
    <|Walk's to furnace, smelts, goes back, banks,      |>
    <|repeats over and over!!!!!                        |>
    <|__________________________________________________|>
      \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    }
    program KaridSmelter;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xbank.scar}
    
    var
      xco, yco: integer;
    
    const
      ironore = 2306126;
      coalore = 2636091;
      rundir = 'E'; //direction to run in a fight
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    
    procedure hide;
    begin
      SetupSRL
      begin
        SetChat('On', 1);
        SetChat('On', 1);
        SetChat('Friends', 2);
        SetChat('Friends', 2);
        SetChat('On', 3);
        SetChat('On', 3);
      end;
      disguisescar('AOL Instant Messanger')
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    
    procedure withdrawores;
    begin
      if findcolor(xco, yco, ironore, 78, 58, 467, 288) then
      begin
        Mmouse(xco, yco, 0, 0);
        wait(100 + random(100))
          Mouse(xco, yco, 0, 0, false);
        wait(100 + random(100))
          ChooseOption(xco, yco, 'Withdraw X');
        wait(2000 + random(400))
          Typesend('9')
      end;
      if findcolor(xco, yco, coalore, 78, 58, 467, 288) then
      begin
        Mmouse(xco, yco, 0, 0);
        wait(100 + random(100))
          Mouse(xco, yco, 0, 0, false);
        wait(100 + random(100))
          ChooseOption(xco, yco, 'Withdraw X');
        wait(2000 + random(400))
          Typesend('18')
      end;
      closebank;
      writeln('Withdrawn Ores');
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    
    procedure walkfurnace;
    begin
      if findsymbol(x, y, 'cookery') or findsymbol(x, y, 'kebab shop') or findmmcolor(x, y, 988172) then
      begin
        Mmouse(x, y, 1, 1);
        Wait(100 + random(50));
        Mouse(x, y, 1, 1, true);
        wait(5000 + random(1000));
        if (FindSymbol(x, y, 'furnace')) or
          (FindMMColor(x, y, 2917887)) or
          (findcolor(x, y, 1638399, 603, 40, 670, 113)) then
        begin
          MMouse(x, y, 2, 2);
          Mouse(x, y, 2, 2, True);
          wait(10000 + random(2000));
        end;
        writeln('At Furnace');
        makecompass('N');
        gametab(4);
        wait(1000 + random(300));
      end;
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    
    procedure smelt;
    begin
      if findcolor(x, y, 6447722, 59, 130, 294, 264) then
      begin
        Mmouse(x, y, 0, 0);
        wait(100 + random(100));
        if isuptext('elt') then
        begin
          Mouse(x, y, 1, 1, true);
          flag;
          Mmouse(233 + random(40), 388 + random(32), 0, 0);
          wait(100 + random(100));
          Getmousepos(x, y);
          wait(100 + random(100));
          Mouse(x, y, 0, 0, false);
          wait(100 + random(100));
          chooseoption(x, y, 'Smelt 10');
          wait(22500 + random(2000));
          if findcolor(x, y, 7237495, 564, 286, 604, 317) then
        end;
      end;
      writeln('Smelted 9 Steel Bars')
        makecompass('N');
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    
    procedure walkbank;
    begin
      if findcolor(x, y, 7237495, 564, 286, 604, 317) and
        findcolor(x, y, 4422981, 642, 136, 673, 158) then
      begin
        if findsymbol(x, y, 'cookery') or findsymbol(x, y, 'kebab shop') or findmmcolor(x, y, 988172) then
        begin
          Mmouse(x, y, 0, 0);
          wait(100 + random(100));
          Mouse(x, y, 1, 1, true);
          wait(5000 + random(1000));
        end;
      end;
      if (FindSymbol(x, y, 'bank')) or
        (FindMMColor(x, y, 3520475)) then
      begin
        MMouse(x, y, 2, 2);
        Mouse(x, y, 2, 2, true);
        Flag;
      end;
      writeln('At Bank');
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    
    procedure bankbars;
    begin
      repeat
        makecompass('E');
        OpenBankGlass('veb', False, False);
      until (bankscreen);
      wait(500 + random(500));
      DepositAll;
      writeln('Banked Bars');
      makecompass('N');
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    
    procedure Randoms;
    begin
    // findrandoms;
      wait(10)
        UseBoxSolver := True
        wait(10)
        UseCerterSolver := True
        wait(10)
        UseSandwichSolver := True
        FindMaze;
      wait(10)
        Solvepinball;
      Wait(10)
        if (FindFight) then
      begin
        RunAwayDirection(rundir);
        Wait(8500 + random(3500));
        RunBack;
      end;
      Wait(10);
      FindTalk;
    end;
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    //11111111111111111111111111111111111111111111111111111111111111
    begin
      hide
        repeat
        bankbars
          withdrawores
          randoms
          walkfurnace
          randoms
          smelt
          randoms
          walkbank
      until (false)
    end.
    For randoms its pretty simple just add this and should work well
    This is wut alot of people and I have in scripts.
    Very simple but powerfull

    Code:
    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 9 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: if NoGameTab then
              Result := True;
          8: if InBlack then
              Result := True;
          9: if FindTalk then
              Result := True;
        end;
        wait(1);
      end;
    end;
    
    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
    end;
    if doesn't work or need more help im here

  14. #14
    Join Date
    Jan 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Most of the scripts on this forum dont work for me. I have scar 3.12 and SRL4 What more do I need?????

  15. #15
    Join Date
    Dec 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, gravedigging and hijacking all in one post!

    Last post is from 05-06-2007 and you just hijacked the post with your own question. Create a new post.
    This sentence is false.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. AK Steel Smelter
    By noobielul in forum First Scripts
    Replies: 26
    Last Post: 02-06-2009, 03:02 PM
  2. Al-Karid Arson by Timothegreat
    By Timothegreat in forum RS3 Outdated / Broken Scripts
    Replies: 45
    Last Post: 01-22-2009, 04:01 PM
  3. Amazing al kharid steel smelter
    By ihavefriends in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 08-02-2007, 11:56 AM
  4. al-karid steel smelter
    By speed d in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 04-07-2007, 05:09 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
  •