Results 1 to 10 of 10

Thread: superheat smelter

  1. #1
    Join Date
    Mar 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default superheat smelter

    ill pay u 500k in rs for a script that super heats steel bars and up

  2. #2
    Join Date
    May 2008
    Location
    Canada
    Posts
    665
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    I can make a simple one... no need for pay.

    But look for more experienced scripters first =D.
    Last edited by mrpickle; 04-12-2009 at 02:48 AM.

  3. #3
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    against rules to pay..

    I can do it.. what bars you need?

    steel, mith, addy, and rune?

  4. #4
    Join Date
    Mar 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    k sry yea steel, mith, addy, and rune

  5. #5
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    do you have MSN? add me at panic._@live.com


  6. #6
    Join Date
    Mar 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no but i have a gmail and aol

  7. #7
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what's your gmail? >.>

    lol

  8. #8
    Join Date
    Jul 2008
    Location
    Poland
    Posts
    375
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {.Script Info:
    # ScriptName   = ManFromCzech Superheater
    # Author       = ManFromCzech
    # Version      = 1.00
    # Comments     = Superheat all bars at varrock east bank.
    # Instructions = Have visable ores at bank, nats in first inv slot and
                     wield fire staff.
    /Script Info}


    // bar names: bronze, iron, silver, steel, gold, mithril, adamant, rune !!!!!!!!

    program SuperHeater;
    //{.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
    {.include srl/srl/skill/magic.scar}
    {.include srl/srl/misc/users.scar}
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    const
      WorldNumber  = 14;
      HD           = False;
      SignedClient = True;
      HDMode       = False;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    var
      BarMaskDTM, xTempOre, yTempOre, FromInve, FirstOreDTM, SecondOreDTM,
      Loads: integer;
      xOreName, yOreName: string;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    function LoadOreDTM(OreName: string): integer;
    begin
      case OreName of
        'tin'   :
        begin
          Result := DTMFromString('78DA6354656060B06040015D0DF50C92409A1' +
           '188FF0301A32E9061CF8006189148202D02246C08A8910112B604' +
           'D468000933FC6A00107C077D');
        end;
        'copper':
        begin
          Result := DTMFromString('78DA635463606090644001B76BCCC0428C40F' +
           'C1F08181531D54064612490D60412E204D468000939026AC48084' +
           '027E3500D3AA06E6');
        end;
        'iron':
        begin
          Result := DTMFromString('78DA635465606098C18002BC7495182481342' +
           '310FF070246454C3510591809A4B581C414026A4488304705482C' +
           'C0AF060035B00862');
        end;
        'silver':
        begin
          Result := DTMFromString('78DA6354636060B8C9800296AFD8CC2009A41' +
           '981F83F10302A0219D719D000231209A43580C435026A4480C45D' +
           '026A5480C443FC6A0098540B11');
        end;
        'coal':
        begin
          Result := DTMFromString('78DA63BCCCC8C0F0098891809DAD160317900' +
           '689FE0702C64340D657543510591809A4CF629A83A1E63C90F591' +
           '809A8B40D67F026AEE12B60B0077C90F63');
        end;
        'gold':
        begin
          Result := DTMFromString('78DA63D46460602866400157D74A314802694' +
           '620FE0F048C4A404611031A60442281B43E902824A0461C4894E3' +
           '56C304A20D09AB0100957F08CA');
        end;
        'mithril':
        begin
          Result := DTMFromString('78DA63D4646060B8CC8002BCBCF3192481342' +
           '310FF070246154C3510591809A4F58950230E24AE13506304246E' +
           'E0570300F9B80A15');
        end;
        'adamantite':
        begin
          Result := DTMFromString('78DA63D4636060B06640013E09BE0C5C409A1' +
           '188FF0301A30C9061C3800618914820AD08241C09A8D10412E604' +
           'D4E8000927FC6A00B68006FF');
        end;
        'runite':
        begin
          Result := DTMFromString('78DA63D46360608866400101D9E50C92409A1' +
           '188FF0301A30CA61A882C8C04D2A644A85127428D2E9048C1AF06' +
           '00299A07F9');
        end;
      end;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    function DTMMasks(MaskName: string): integer;
    begin
      case MaskName of
        'bar mask':
        begin
          Result := DTMFromString('78DA63B4636060106340038C70F23F10303A0' +
           '3198AB8D580E900202143404D28901026A0C61748F01350E30624' +
           'F808A8F10412CA04D458010939FC6A00E6210715');
        end;
      end;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    function OtherDTM(DTMName: string): integer;
    begin
      case DTMName of
        'fire staff':
        begin
          Result := DTMFromString('78DA63B4636060106340038C70F23F10303A0' +
           '3198AB8D580E900202143404D28901026A0C61748F01350E30624' +
           'F808A8F10412CA04D458010939FC6A00E6210715');
        end;
        'fire rune':
        begin
          Result := DTMFromString('78DA63B4636060106340038C70F23F10303A0' +
           '3198AB8D580E900202143404D28901026A0C61748F01350E30624' +
           'F808A8F10412CA04D458010939FC6A00E6210715');
        end;
        'nature rune':
        begin
          Result := DTMFromString('78DA63B4636060106340038C70F23F10303A0' +
           '3198AB8D580E900202143404D28901026A0C61748F01350E30624' +
           'F808A8F10412CA04D458010939FC6A00E6210715');
        end;
      end;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    procedure SmeltingProperties;
    var
      temp_Bar: string;
    begin
      temp_Bar := Players[CurrentPlayer].Strings[1]
      if (temp_Bar = '') then
      begin
        srl_Warn('Name of bar', 'Unknow name, ', Warn_AllVersions);
        TerminateScript;
      end;
      case temp_Bar of
      'bronze':
        begin
          xTempOre  := 13;
          yTempOre  := 13;
          xOreName  := 'tin';
          yOreName  := 'copper';
          FromInve  := 13;
        end;
      'iron':
        begin
          xTempOre  := 27;
          yTempOre  := 0;
          xOreName  := 'iron';
          yOreName  := '';
          FromInve  := 27;
        end;
      'silver':
        begin
          xTempOre  := 27;
          yTempOre  := 0;
          xOreName  := 'silver';
          yOreName  := '';
          FromInve  := 27;
        end;
      'steel':
        begin
          xTempOre  := 16;
          yTempOre  := 8;
          xOreName  := 'coal';
          yOreName  := 'iron';
          FromInve  := 8;
        end;
      'gold':
        begin
          xTempOre  := 27;
          yTempOre  := 0;
          xOreName  := 'gold';
          yOreName  := '';
          FromInve  := 27;
        end;
      'mithril':
        begin
          xTempOre  := 20;
          yTempOre  := 5;
          xOreName  := 'coal';
          yOreName  := 'mithril';
          FromInve  := 5;
        end;
      'adamant':
        begin
          xTempOre  := 18;
          yTempOre  := 3;
          xOreName  := 'coal';
          yOreName  := 'adamantite';
          FromInve  := 3;
        end;
      'rune':
        begin
          xTempOre  := 24;
          yTempOre  := 3;
          xOreName  := 'coal';
          yOreName  := 'runite';
          FromInve  := 3;
        end;
      end;
        FirstOreDTM := LoadOreDTM(xOreName);
      if (yOreName <> '') then
      begin
        SecondOreDTM := LoadOreDTM(yOreName);
      end;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    procedure TakeOres;
    var
      x, y: integer;
    begin
      if not LoggedIn then Exit;
      SmeltingProperties;
      if (xOreName = '') then Exit;
      repeat
        Wait(200 + RandomRange(100, 200));
      until (not(PinScreen)) or (not (BankScreen));
      Wait(200 + RandomRange(100, 200));
      if PinScreen then
      if not InPin(Players[CurrentPlayer].Strings[0]) then
      begin
        srl_Warn('Pin', 'Wrong pin, next player ', Warn_AllVersions);
        Wait(900 + Random(500));
        CloseBank;
        Players[CurrentPlayer].Active := False;
        LogOut;
        Exit;
      end;
      Deposit(2, 28, True);
      FixBank;
      FixBankTab;
      FindDTM(FirstOreDTM, x, y, MSX1, MSY1, MSX2, MSY2);
      if (xTempOre = 28) then
      begin
        Mouse(x, y, 3, 3, False);
        Wait(200 + RandomRange(500, 700));
        ChooseOption('Withdraw-All');
        Wait(200 + RandomRange(500, 700));
      end else
      begin
        if (xTempOre + yTempOre = 28) then
        begin
          Mouse(x, y, 3, 3, False);
          Wait(200 + RandomRange(500, 700));
          if ChooseOption('Withdraw-' + IntToStr(xTempOre))then
          begin
          end else
          begin
            Mouse(x, y, 3, 3, False);
            Wait(200 + RandomRange(500, 700));
            ChooseOption('Withdraw-X');
            Wait(200 + RandomRange(500, 700));
            TypeSend(IntToStr(xTempOre));
            Wait(200 + RandomRange(500, 700));
          end;
        end else
        begin
          Mouse(x, y, 3, 3, False);
          Wait(200 + RandomRange(500, 700));
          ChooseOption('Withdraw-X');
          Wait(200 + RandomRange(500, 700));
          TypeSend(IntToStr(xTempOre));
          Wait(200 + RandomRange(500, 700));
        end;
      end;
      FreeDTM(FirstOreDTM);
      if not (yOreName = '') then
      begin
        FindDTM(SecondOreDTM, x, y, MSX1, MSY1, MSX2, MSY2);
        Wait(200 + RandomRange(500, 700));
        if (xTempOre + yTempOre = 28) then
        begin
          Mouse(x, y, 3, 3, False);
          Wait(200 + RandomRange(500, 700));
          ChooseOption('Withdraw-All');
          Wait(200 + RandomRange(500, 700));
        end else
        begin
          Mouse(x, y, 3, 3, False);
          Wait(200 + RandomRange(500, 700));
          ChooseOption('Withdraw-X');
          Wait(200 + RandomRange(500, 700));
          TypeSend(IntToStr(yTempOre));
          Wait(200 + RandomRange(500, 700));
        end;
        FreeDTM(SecondOreDTM);
      end;
      CloseBank;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    procedure SuperHeat;
    var
      x, y, i, MySmeltingTime, OreTempDTM: Integer;
      TB: TBox;
    begin
      if not LoggedIn then Exit;
      BarMaskDTM := DTMMasks('bar mask');
      if (yOreName = '') then
      begin
        OreTempDTM := LoadOreDTM(xOreName);
      end else
      begin
        OreTempDTM := LoadOreDTM(yOreName);
      end;
      TB := InvBox(FromInve + 1);
      FindNormalRandoms;
      MarkTime(MySmeltingTime);
      GameTab(7);
      for i := 1 to FromInve do
      begin
        Mouse(690, 300, 5, 5, True);
    //    CastSpell(26);
        Wait(RandomRange(50, 100));
        FindNormalRandoms;
        FindDTM(OreTempDTM, x, y, MIX1, MIY1, MIX2, MIY2);
        Mouse(x, y, 5, 5, True);
    //    FindNormalRandoms;
    {    Wait(RandomRange(1000, 1300));
        MMouse(640 + Random(70) - Random(70), 250 + Random(70) - Random(40), 20, 20);
        Wait(RandomRange(1000, 1050));    }

        Wait(RandomRange(1750, 1950));
    //    FindTalk;
        SRLRandomsReport;
      end;
      GameTab(4);
      FreeDTM(BarMaskDTM);
      FreeDTM(OreTempDTM);
      Loads := Loads + 1;
      WriteLn(IntToStr(Loads));
      SendSRLReport;
      Exit;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    function AllPlayersAreInactive: Boolean;
    var
      mm, ms: Integer;
    begin
      ms := HowManyPlayers - 1;
      for mm := 0 to ms do
      begin
        if (Players[mm].Active = True) then Exit;
      end;
      Result := True;
      Writeln('Thanks for using my script. All players inactive.');
      TerminateScript;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    procedure SetUpPlayer;
    begin
      if not LoggedIn then LoginPlayer;
      SetAngle(True);
      MakeCompass('N');
      FindNormalRandoms;
      SetAllChats('Off', 'Friends', 'Friends', 'Friends', 'Off');
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    {procedure SetUpSMART;
    begin
      SmartSetupEx(WorldNumber, HD, SignedClient, HDMode);
      SetTargetDC(SmartGetDC);
      repeat
        Wait(2500);
      Until SmartGetColor(253, 233)<>1118604;
    end;                                         }

    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    procedure ReadToCopy; Forward;

    procedure CopyClient;
    var
      W, H, X, Y, T: Integer;
      A, B, ShowingDebug: Boolean;
    begin
      ShowingDebug:= True;
      try
        ClearTimeouts;
        T:= 2000;
        A:= IsFKeyDown(12);
        B:= IsFKeyDown(11);
        if(A) then
        begin
          DisplayDebugImgWindow(766, 504);
          ShowingDebug:= True;
          Writeln('Showing Debug;');
        end;
        if(B) then// and (ShowingDebug)) then
        begin
          ShowingDebug:= False;
          Writeln('Not showing Debug;');
          ReadToCopy;
        end;
        if(ShowingDebug) then
        begin
          GetClientDimensions(W, H);
          SafeCopyCanvas(GetClientCanvas, GetDebugCanvas, 0, 0, W, H, 0, 0, W, H);
          GetDebugCanvas.Pen.Color:= 255;
          GetDebugCanvas.Brush.Color:= 255;
          GetMousePos(X, Y);
          GetDebugCanvas.Ellipse(X, Y, X + 4, Y + 4);
          if(not(GetSCARVersion = 320)) then
            SetTimeout(Round(T / 1000), 'CopyClient')
          else
            SetTimeout(T, 'CopyClient');
        end;
      except
        Writeln('Failed to show window');
      finally
      end;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    procedure ReadToCopy;
    begin
      ClearTimeouts;
      if(IsFKeyDown(12)) then
      begin
        WRiteln('moo');
        CopyClient;
      end else
        SetTimeout(1, 'ReadToCopy');
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    procedure MainLoop;
    begin
    //  ReadToCopy;
      OpenBankFast('veb');
    //  Wait(RandomRange(1000, 1500));
      TakeOres;
      FindNormalRandoms;
      SuperHeat;
      FindNormalRandoms;
    end;
    //,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"'
    //                        ,.;'"ManFromCzech Script"';.
    //"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.;'"';.,.
    begin
      SRLPlayerForm(True, [], ['Loads to do?'], ['Bank pin?', 'Bar name?'], []);
    //  SetUpSMART;
      SetUpSRL;
      SetUpMagic;
      SetUpPlayer;
      SmeltingProperties;
      repeat
        SetUpPlayer;
        repeat
          MainLoop;
          ClearDebug;
          WriteLn('Time running   : ' + TimeRunning);
          WriteLn('Bars supereated: ' + IntToStr(Loads * FromInve));
        until Loads >= Players[CurrentPlayer].Integers[1];
    //    TerminateScript;
      until AllPlayersAreInactive;
    end.

    I made this hmm 5 or more mounths ago, but it should works.

    EDIT: Sorry 99_
    :P

  9. #9
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    >.> GRRRR

    haha

    I keep refreshing the home page to see the newest posts and I saw your post and I was like

    "God dammit Iroki. If you do this I will eat your head D:"

    SO BEWARE! Someday your head shall be in my tummy

  10. #10
    Join Date
    Mar 2009
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks iroki sry 99_ and my aol is jbigredmaster@aol.com

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
  •