Results 1 to 17 of 17

Thread: Smelt 10

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

    Default Smelt 10

    Hi, im making a smelting script but when it rightclicks the steel, it doesnt select the smelt 10.
    Anyone that can help me?
    SCAR Code:
    Heres my script:
    Program PortPhasmatysSmelter;
    //by EL_TYCHO
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xbank.scar}

    ///////////Change this if needed///////////////////
    Const Bars = 100 ;//Number of loads to do
          Furnace = 3297479;//Furnace color
          FurnaceMM = 157428;//Furnace color on the minimap
          BankSymbol =  3196640;//color of the bank symbol
          BankBooth = 923672;//bankbooth color


    ///////////////////Dont touch this/////////////////

    var BarsDone : integer;
        Iron : integer;
        Coal : integer;
        Steel : integer;

    Procedure DeclarePlayers;
    begin
        HowManyPlayers:=1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

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

    Procedure FreeDTMs;
     begin
        Iron := DTMFromString('78DA6314616060106440013E7A4A609A11CA6' +
           '7940412520C688011558D00909027A0868D0873988184080135AC' +
           '40828F801A903D1C04D42802092E026A6489708F2261F70000032' +
           'C0238');

        Coal := DTMFromString('78DA63146260601060400116E66A609A11CA6' +
           '7E40312B20C688011558D14901027A0460148701350230324D808' +
           'A8110312CC04D480E47988502341408D1C90E023A0868770F8000' +
           '0F2B30216');

        Steel := DTMFromString('78DA630C626060706040011505F90CFF81342' +
           '310FF0702C64820C393010D302291403A1848F811501300247C09' +
           'A87107125E44A87126A0C60BD35F186A40EEB521A006143E9604D' +
           '480C2C79A809A5820614B404D02116E8E01126E04D4C4010917FC' +
           '6A006F840EBA');
     end;

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 12 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;
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
         9: begin
                 if(DetectFrogCave) then SolveFrogSwamp;
            end;
         10: begin
                  if(FindFight) then
                  begin
                       RunAwayDirection('W');
                       Wait(10000 + Random(2000));
                       RunBack;
                  end;
             end;
         11: begin
                  FindLamp('Prayer');
             end;
         12: begin
                  if findname or findtalk then
                  begin
                   FindNormalRandoms;
                  end
             end;
        end;
        Wait(1);
      end;
    end;
    ///////////////////////opens the bank and withdraws the ores only for the first time//////////////////
    Procedure WithdrawOres;//based it on the bank opening proces by ThickAsBlood
    var i:integer;

      Begin
       i:=0
       if not (BankScreen) then
        repeat
         i:= + 1;
         if (FindObj(x,y,'ank boot',BankBooth,10))then
          Mouse(x,y,0,0,false);
          Wait(1000+random(500));
          ClickOption('ickl', 1);
          Wait(3000+random(1000));
        until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
        if (i >= 10) then
          TerminateScript;
        if FindDTM(Iron, x, y, 76, 60, 442, 94)then
         begin
          Wait(500+random(500));
          Mouse(x,y,2,2,false);
          Wait(500+random(500));
          ClickOption('X', 1);
          Wait(1000+random(500));
          TypeSend('9');
        end;
        if FindDTM(Coal, x, y, 76, 60, 442, 94)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          Wait(1000+random(500));
          ClickOption('ll', 1);
         end;
        MouseBox(478, 33, 494, 49, 1);
      end;

    ///////////////////////Walks to the furnace/////////////////
    Procedure GoToFurnace;
     Begin
      FindMMColorTol(x,y,FurnaceMM,25);
      Mouse( x, y, 5, 5,true);
      Wait(2000+random(1000));
     End;

    /////////////////////Smelt the ores/////////////////////
    Procedure SmeltOres;
    var mins: Integer;
        skill: string;

     Begin
        wait(3000+random(1000));
        repeat
        FindMSColorTol(x,y,Furnace,15);
        wait(50+random(10));
        Mouse(x,y,5,8,false);
        wait(50+random(10));
        until(ClickOption('Smelt', 1)=true);
        begin
        Wait(1000+random(500));
        MouseBox(240, 395, 268, 418, 2);
        ClickOption('10', 3);
        Wait(1000+random(3000))
        HitKeys(true);
        Wait(500+random(500));
        FindFastRandoms;
        Wait(10000+random(5000));
        begin
         if ((TimeFromMark(HoverMark) / 1000) / 60 >= mins) then //Used the one out of the xAntiBan by Dankness
         begin
           MarkTime(HoverMark);
           HoverSkill(Skill, False);
         end;
        end;
        wait(20000+random(2000));
        Barsdone:= Barsdone + 19;
       end;
     end;

    //////////////////////back to the bank////////////////////
    Procedure GoToBank;
     begin
      FindMMColorTol(x,y,bANKsYMBOL,25);
      Mouse( x, y, 5, 5,true);
      Mouse(x,y,1,1,true);
      Wait(3000+random(2000));
      FindFastRandoms;
     end;

    ////////////////////////deposit the ores///////////////////
    Procedure ChangeBarsForOres;
    var i : integer;
     Begin
      MakeCompass('s');
      Lowestangle;
      i:=0;
      repeat
         i:= + 1;
         if (FindObj(x,y,'ank boot',BankBooth,10))then
          Mouse(x,y,0,0,false);
          Wait(1000+random(500));
          ClickOption('ickl', 1);
          Wait(3000+random(1000));
      until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
          if (i >= 10) then
          TerminateScript;
        if FindDTM(Steel, x, y, 568, 216, 715, 325)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          Wait(500+random(500));
          ClickOption('ll', 2);
          QuickFixBank;
        end;
         if FindDTM(Iron, x, y, 76, 60, 442, 94)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          ClickOption('X', 1);
          Wait(1000+random(500));
          TypeSend('9');
        end;
        if FindDTM(Coal, x, y, 76, 60, 442, 94)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          Wait(1000+random(500));
          ClickOption('ll', 1);
         end;
        MouseBox(478, 33, 494, 49, 1);
        FindFastRandoms;
        HighestAngle;
     end;
    //////////////////////Main Loop////////////////////////
    Begin
      SetupSRL;
      DeclarePlayers;
     if (not(LoggedIn)) then
      LoginPlayer;
      FreeDTMs;
      BarsDone:=0
      MakeCompass('s');
      WithdrawOres;
        Repeat
          MakeCompass('n');
          GoToFurnace;
          SmeltOres;
          GoToBank;
          ChangeBarsForOres;
        Until (BarsDone >= Bars)or(Not(LoggedIn));
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    OMG Password in script!!!


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for noticing, but it aint my correct password
    But nothing to help my smelt prob?

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Did you change it on RS or did someone else? Because once I saw it, I tried to log on a f2p world to see if it was really correct and it worked.. But it said "You're in a members only area" so I went to the change pass box to change it so no leecher would get your account, and it said Invalid password. So did you just change it, or did someone else?

    Thanks, but IDK why your 10 option not working..


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Shouldn't it be ClickOption('10', 1); ?

    Meh I'm tired not sure its late here sorry
    srry hvnt taken a look at script yet i will now sec

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

    Default

    ah yes, forgot that, ill change and try again

    @Hy: yeah i changed it immediatly

  7. #7
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Good.. I almost got htere, I got sad when it said Changed because I thought a leecher got it


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  8. #8
    Join Date
    May 2006
    Location
    GMU
    Posts
    1,101
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try ChooseOption or something like that
    Hey lady, I need a yank! Ha ha, dislocation.

  9. #9
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I had chooseoption but they said that clickoption was better, but ill try

  10. #10
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {*******************************************************************************
    function ClickOption(s: String; i: Integer): Boolean;
    By: RSN
    Description: Clicks Option in Specified Area (1 for Main Screen, 2 Inventory,
    3 for Chat Window), returns True if text was found
    *******************************************************************************}

  11. #11
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OMG now all of a sudden my DTM's dont work

  12. #12
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    el i know wut ur problem is
    Originally Posted by YoHoJo
    I like hentai.

  13. #13
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    llamaman do u post everywhere?!?!?!

  14. #14
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol yeah, but this is the problem to his script

    SCAR Code:
    until(ClickOption('Smelt', 1)=true);

    needs to be

    SCAR Code:
    until(ClickOption('Smelt', 10)=true);
    i think
    Originally Posted by YoHoJo
    I like hentai.

  15. #15
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    lol yeah, but this is the problem to his script

    SCAR Code:
    until(ClickOption('Smelt', 1)=true);

    needs to be

    SCAR Code:
    until(ClickOption('Smelt', 10)=true);
    i think
    Lol no, there are only options for numbers from 1 to 3, 1=mainscreen,2=inventory,3=chatbox, you probably didnt even read the function description that i showed here.

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

    Default

    Quote Originally Posted by EL_TYCHO View Post
    OMG now all of a sudden my DTM's dont work
    Try making them again with Tol... Read YoHoJo's Dtm [TUT]...

    Edit:
    http://www.srl-forums.com/forum/yoho...ut-p148640.htm By YoHoJo

  17. #17
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol its not my fault, i dont read scripts but im good at editing them -.-
    Originally Posted by YoHoJo
    I like hentai.

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
  •