Results 1 to 8 of 8

Thread: it wont choose the bar!!!

  1. #1
    Join Date
    Dec 2007
    Location
    Malaysia
    Posts
    430
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default it wont choose the bar!!!

    hey people im making a smelter (west fally) and it will walk to the smelter but it wont choose the bar can anyone help?

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You dtm is not working i think and the bars in the chat screen are diff from the ones in the inv if im right
    ~Hermen

  3. #3
    Join Date
    Dec 2007
    Location
    Malaysia
    Posts
    430
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea i know thats y i made a new one called steelDTM2 in my DTM for ores procedure but it still wont work

  4. #4
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Make a DTM of the bar in the chat window;

    Then do:

    SCAR Code:
    FindDTM(DTM, x, y, x1, y1, x2, y2);
    MMouse(x, y, 4, 4);
    Wait(100+random(100));
    Mouse(x, y, 1, 1, false);
    Wait(100+random(100));
    ChooseOption('melt x');
    Wait(150+random(100));
    TypeSend(RandomRange(14, 99));

    Didn't test that; but it should work

    The huge range on the numbers is because most people don't type in 14 when they smelt .

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  5. #5
    Join Date
    Nov 2007
    Location
    Poland
    Posts
    139
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    add this function to your script:
    SCAR Code:
    Function SmeltBars(Kind: String): Boolean;  // by iroki

    Var
      Msx, Msy, ForInv: Integer;
      Smelt, BarsKind, BarsSmelting: String;
     
    Begin
      Repeat
        Wait(200 + Random(200));
      Until Not FindText(Msx, Msy, 'What would', NPCChars, 155, 366, 365, 381);
      BarsKind := LowerCase(Kind);
      Case BarsKind Of
        'bronze'  : Begin ForInv := 14;
                    BarsSmelting := 'Bronze'; End;
        'blurite' : Begin ForInv := 28;
                    BarsSmelting := 'Blurite'; End;
        'iron'    : Begin ForInv := 28;
                    BarsSmelting := 'Iron'; End;
        'silver'  : Begin ForInv := 28;
                    BarsSmelting := 'Silver'; End;
        'steel'   : Begin ForInv := 9;
                    BarsSmelting := 'Steel'; End;
        'gold'    : Begin ForInv := 28;
                    BarsSmelting := 'Gold'; End;
        'mithril' : Begin ForInv := 5;
                    BarsSmelting := 'Mithril'; End;
        'adamant' : Begin ForInv := 4;
                    BarsSmelting := 'Adamant'; End;
        'rune'    : Begin ForInv := 3;
                    BarsSmelting := 'Rune'; End;
      End;
      If (ForInv < 3) Then
      Begin
        WriteLn('Unknow name of bars, logging out.');
        Players[CurrentPlayer].Active := False;
        Players[CurrentPlayer].Loc := 'Wrong name of bars';
        LogOut;
      end;
      If ((ForInv <= 5) And (ForInv >= 3)) Then Smelt := '5';
      If ((ForInv <= 10) And (ForInv > 5)) Then Smelt := '10';
      If (ForInv > 10) Then Smelt := 'X';
      Wait(RandomRange(400, 600));
      If FindText(Msx, Msy, BarsSmelting, StatChars, 28, 428, 488, 443) Then
      Begin
        Wait(200 + RandomRange(200, 250));
        Mouse(Msx + 5, Msy - 12, 10, 10, False);
        Wait(900 + Random(600));
        If (ForInv > 10) Then
        Begin
          ChooseOption('Smelt ' + Smelt);
          Wait(1500 + Random(500));
          TypeSend(IntToStr(RandomRange(28, 99)));
          Wait(500 + Random(500));
          Result := True;
        End Else
        Begin
          ChooseOption('Smelt ' + Smelt);
          Result := True;
        End;
        WriteLn('We are smelting : ' + IntToStr(ForInv) + ' ' + BarsKind + ' bars');
        Exit;
      End Else
        Result := False;
    End;
    and to your procedure:
    SCAR Code:
    SmeltBars('nameofbar');

  6. #6
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    No maybe try a simple co-ord click for each bar with 10 randomness, It much Much more easier

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

    Default

    I had the same problem omfg!!!lol.........

  8. #8
    Join Date
    Mar 2006
    Posts
    3,051
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    The smithing include should have all the various bar and ore bmps for you to use. No need to make your own.


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Choose 1
    By Dervish in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 03-07-2009, 12:01 PM
  2. wont choose symbol!
    By TheChineseMan in forum OSR Help
    Replies: 3
    Last Post: 05-18-2008, 05:37 AM
  3. randomly choose, help me.
    By OpenHearts in forum OSR Help
    Replies: 4
    Last Post: 01-03-2008, 10:20 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
  •