Results 1 to 7 of 7

Thread: need help with me smelter!!

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

    Default need help with me smelter!!

    hey guys i really need some help with me smelter... i so far got like halfway but i still need to know how to choose to smelt the bar when i get to the furnace and i am still not sure if the finding furnace and clicking it correct so check it out pls!!!!!

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

    Default

    Here we go:

    SCAR Code:
    {the chinese smelter}

    {this script was made by the chineseman and i would not like you to use it
    and post it as your own if you want to use the functions then use them but credit me thx!}


    {to use this you must set up your players at fally west bank and have ores in the top
    half of bank screen}


    {Credits To: NaumanAkhlaQ}

    program thechinesesmelter;
    {.include srl/srl.scar}

    var
    IronDTM,CoalDTM,SteelDTM,x,y : Integer;

    const

    Time = 50; // Time in seconds taken to smelt a whole inv of steel


    procedure declarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;


      Players[0].Name := '??????'; //username
      Players[0].Pass := '????'; //password
      Players[0].Nick := '????'; //3-4 letters from your username
      Players[0].Active := true;
    {add more players if you want}
    end;

    procedure antiban;
    begin
      case random(100) of //do a random number so it won't always perform the antiban
        0: RandomRClick;
        1: BoredHuman;
        2: HoverSkill('smithing', False);
        3: AlmostLogout;
      end;
    end;

    procedure AntiRandoms;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms; // find random events
      if FindFight then RunTo('N',True); // if a fight is found, run to the north and run far (will run back automatically)
    end;

    procedure DTMforores;
    begin
    CoalDTM := DTMFromString('78DA63AC626260B06264400636369A0CAC401' +
           'A24FA1F08185B816A0C51D540646124906E02AA7124A026870835' +
           'D940352604D41403D5E8E25703006EB808DF');

    IronDTM := DTMFromString('78DA63EC65626008606440061E3A8A0CFC401' +
           'A24FA1F0818416A6251D518282880699828631D508D1FAA1A982C' +
           '5C4D27508D13013533816AFC09A8990A54138E5F0D0026E40A65');

    SteelDTM := DTMFromString('78DA63BCCEC4C0709C9101194C6C6F63E002D' +
           '220D1FF40C0F800A8E600AA1A882C8C04D2F7806ACE1050731EA8' +
           'E63C116A0E13507315A8662F7E3500D8670F72');
    end;

    procedure withdrawores; // By NaumanAkhlaQ
    Begin
     OpenBankFast('fwb');
       If BankScreen Then
         Begin
           If FindDtm(IronDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
            Begin
             Mouse(x, y, 1, 1, False);
             ChooseOption('X');
             wait(1000+Random(2000));
             TypeSend('1');
           end;
             Begin
               If FindDtm(CoalDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
                Begin
                 Mouse(x, y, 1, 1, False);
                 ChooseOption('X');
                 wait(1000+Random(2000));
                 TypeSend('2');
               end;
            end;
         end;
     FTWait(2+Random(3));
    findnormalrandoms;
    end;

    procedure banktofurnace;
    Begin
      if not(loggedIn) then exit;
      if not RadialRoadWalk(6913668, 50, 38, 71, 0, 0) then
        RadialRoadWalk(6979974, 46, 58, 72, 0, 0);
    if (FindSymbol(x, y, 'furnace')) then
    begin
      Mouse(x, y, 5, 5, True);
      Writeln('Found the furnace');
    end else Writeln('Could not find furnace');
    If (FindObjTPA(X, Y, 1121670, 15, 3, 5, 5, 1, ['melt', 'nace'])) then
      Mouse(x,y,5,5,true);
    end;

    procedure furnacetobank;

    begin
      if not(loggedIn) then exit;
      if not RadialRoadWalk(6913668, 296, 283, 74, 0, 0) then
        RadialRoadWalk(RoadColor, 299, 286, 74, 0, 0);
      if (FindSymbol(x, y, 'bank')) then
    begin
      findnormalrandoms;
      Mouse(x, y, 5, 5, True);
      Writeln('Found the bank');
    end else Writeln('Could not find the bank');
    end;

    procedure OpenFurnace;
    var
      x, y, Mark:Integer;
    begin
      MarkTime(Mark);
      repeat
        if (not (LoggedIn)) then Break;
        if (FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20)) then
        begin
          MMouse(x, y, 2, 2)
            if (IsUpText('mel')) then
            Mouse(x + Random(15), y, 2, 2, True);
        end;
        Wait((1500) + Random(1500));
      until ((FindColorTolerance(x, y, 9343516, 33, 368, 33, 368, 20)) or
        (TimeFromMark(Mark) > (60000)));
    end;

    procedure choosesteel;

    begin
      if (not(Loggedin)) then exit;
        If FindDTM(SteelDTM, x, y, MCX1, MCY1, MCX2, MCY2) Then
         begin
          Mouse(x, y, 5, 5, False);
          Wait(800+Random(800));
          ChooseOption('All');
          wait(Time);
         end;
    end;

    Begin

    end.

    Hope I Helped

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

    Default

    thx i added that in but i now need to know how to make a mainloop can anyone help here is the script so far

    {the chinese smelter}

    {this script was made by the chineseman and i would not like you to use it
    and post it as your own if you want to use the functions then use them but credit me thx!}

    {to use this you must set up your players at fally west bank and have ores in the top
    half of bank screen}

    {Credits To: NaumanAkhlaQ for the openfurnace procedure}

    program thechinesesmelter;
    {.include srl/srl.scar}

    var
    IronDTM,CoalDTM,SteelDTM,x,y : Integer;

    const

    Time = 50; // Time in seconds taken to smelt a whole inv of steel


    procedure declarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;


    Players[0].Name := '??????'; //username
    Players[0].Pass := '????'; //password
    Players[0].Nick := '????'; //3-4 letters from your username
    Players[0].Active := true;
    {add more players if you want}
    end;

    procedure antiban;
    begin
    case random(100) of //do a random number so it won't always perform the antiban
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('smithing', False);
    3: AlmostLogout;
    end;
    end;

    procedure AntiRandoms;
    begin
    if not LoggedIn then Exit;
    FindNormalRandoms; // find random events
    if FindFight then RunTo('N',True); // if a fight is found, run to the north and run far (will run back automatically)
    end;

    procedure DTMforores;
    begin
    CoalDTM := DTMFromString('78DA63AC626260B06264400636369A0CAC4 01' +
    'A24FA1F08185B816A0C51D540646124906E02AA7124A02687 0835' +
    'D940352604D41403D5E8E25703006EB808DF');

    IronDTM := DTMFromString('78DA63EC65626008606440061E3A8A0CFC4 01' +
    'A24FA1F0818416A6251D518282880699828631D508D1FAA1A 982C' +
    '5C4D27508D13013533816AFC09A8990A54138E5F0D0026E40 A65');

    SteelDTM := DTMFromString('78DA63BCCEC4C0709C9101194C6C6F63E00 2D' +
    '220D1FF40C0F800A8E600AA1A882C8C04D2F7806ACE105073 1EA8' +
    'E63C116A0E13507315A8662F7E3500D8670F72');
    end;

    procedure withdrawores; // By NaumanAkhlaQ
    Begin
    OpenBankFast('fwb');
    If BankScreen Then
    Begin
    If FindDtm(IronDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
    Begin
    Mouse(x, y, 1, 1, False);
    ChooseOption('X');
    wait(1000+Random(2000));
    TypeSend('1');
    end;
    Begin
    If FindDtm(CoalDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
    Begin
    Mouse(x, y, 1, 1, False);
    ChooseOption('X');
    wait(1000+Random(2000));
    TypeSend('2');
    end;
    end;
    end;
    FTWait(2+Random(3));
    findnormalrandoms;
    end;

    procedure banktofurnace;
    Begin
    if not(loggedIn) then exit;
    if not RadialRoadWalk(6913668, 50, 38, 71, 0, 0) then
    RadialRoadWalk(6979974, 46, 58, 72, 0, 0);
    if (FindSymbol(x, y, 'furnace')) then
    begin
    Mouse(x, y, 5, 5, True);
    Writeln('Found the furnace');
    end else Writeln('Could not find furnace');
    If (FindObjTPA(X, Y, 1121670, 15, 3, 5, 5, 1, ['melt', 'nace'])) then
    Mouse(x,y,5,5,true);
    end;

    procedure furnacetobank;

    begin
    if not(loggedIn) then exit;
    if not RadialRoadWalk(6913668, 296, 283, 74, 0, 0) then
    RadialRoadWalk(RoadColor, 299, 286, 74, 0, 0);
    if (FindSymbol(x, y, 'bank')) then
    begin
    findnormalrandoms;
    Mouse(x, y, 5, 5, True);
    Writeln('Found the bank');
    end else Writeln('Could not find the bank');
    end;

    procedure OpenFurnace;
    var
    x, y, Mark:Integer;
    begin
    MarkTime(Mark);
    repeat
    if (not (LoggedIn)) then Break;
    if (FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20)) then
    begin
    MMouse(x, y, 2, 2)
    if (IsUpText('mel')) then
    Mouse(x + Random(15), y, 2, 2, True);
    end;
    Wait((1500) + Random(1500));
    until ((FindColorTolerance(x, y, 9343516, 33, 368, 33, 368, 20)) or
    (TimeFromMark(Mark) > (60000)));
    end;

    procedure choosesteel;

    begin
    if (not(Loggedin)) then exit;
    If FindDTM(SteelDTM, x, y, MCX1, MCY1, MCX2, MCY2) Then
    begin
    Mouse(x, y, 5, 5, False);
    Wait(800+Random(800));
    ChooseOption('All');
    wait(1000);
    end;
    end;

    procedure bankbars;
    Begin
    if (not(Loggedin)) then exit;
    OpenBankFast('fwb');
    If BankScreen Then
    Begin
    If FindDtm(IronDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
    Begin
    Mouse(x, y, 1, 1, False);
    ChooseOption('X');
    wait(1000+Random(2000));
    TypeSend('10');
    end;

    procedure mainloop;
    Begin
    if not withdrawores then exit;
    if not banktofurnace then exit;
    if not furnacetobank then exit;
    if not bankbars then exit;
    can anyone one help?

  4. #4
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    well the whole point is for you to learn/script. we can help but not do it for u like *NAUM* lol. So make a frame and tell us where u need help on?

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

    Default

    i just need to know what you need to include in your mainloop cus i dont really know

    so does anyone know the basics of making a mainloop what u have to include in it that is in ur script? anyone?

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

    Default

    so does anyone know?

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

    Default

    Quote Originally Posted by P1NKY View Post
    well the whole point is for you to learn/script. we can help but not do it for u like *NAUM* lol. So make a frame and tell us where u need help on?
    P1nky your annoying keep quiet.

    Yeah chineseman I'll Help you PM me so I can add your MSN

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL] AK Smelter
    By Narcle in forum RS3 Outdated / Broken Scripts
    Replies: 2358
    Last Post: 09-26-2012, 07:40 PM
  2. Smelter 3.25
    By Neonknight77 in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 05-25-2008, 10:15 PM
  3. Smelter
    By Bobzilla69 in forum RS3 Outdated / Broken Scripts
    Replies: 15
    Last Post: 04-14-2007, 02:11 AM
  4. Need Smelter
    By 2goodforu in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 01-30-2007, 07:38 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
  •