Results 1 to 3 of 3

Thread: Kipjes Iron SuperHeater

  1. #1
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default Kipjes Iron SuperHeater

    Setup:

    Start at LUMBRIDGE bank.

    Have Nature runes in first inventory slot.
    Have Iron ore in first bank slot.
    Start with a full inventory of Iron ores.
    Next updates:
    Simba Code:
    Move banking to SoulWars.

    Script:

    Version 1.3
    Updates on Version 1.3:
    Simba Code:
    Added XP Gained.

    Simba Code:
    Program IronSuperHeater;
      {$Define SMART}
      {$Include SRL/SRL/Misc/SMART.simba}
      {$i SRL/SRL.simba}

    Var
    IronOre:integer;
    CastSuperHeat:integer;
    BankBooth:integer;
    DepositIronBar:integer;
    TakeOres:integer;
    SuperHeats:integer;
    XPMagic:integer;
    XPSmith:integer;
    i,x,y:integer;

    //Version 1.3


    //Start in LUMBRIDGE bank.
    //It works the best if you have Nature runes in first slot.
    //Have IRON ore in first bank slot.

    //Have fun!

    //Thanks to CRU1Z1N for helping me :)
    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

       // FILL IN //////////////////////////////////////

      Players[0].Name := '';     //Username
      Players[0].Pass := '';     //Password
      Players[0].Active := True;
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
      LampSkill := 'Magic';

      //DONT TOUCH ////////////////////////////////////////
    end;

    Procedure LoadDTM;
    Begin

       TakeOres := DTMFromString('mWAAAAHicY2FgYIgD4hggjgfiRCD+BMTvoPgjEJvKizMYyIgyWChKMFgrSTGwAsWQMSMaBgEArGkHCg==');
       IronOre := DTMFromString('mbQAAAHicY2VgYNjExMCwFYg3QDGI3cbIwNABxE1A3AnELUBsIi/OYKMizaAnI8pgKCsGplmB+tExIxYMBgCZ3ghT');
       CastSuperHeat := DTMFromString('mrAAAAHic42BgYGhlYmBoA+JuIG4A4k4oDeI3A3ERIwNDBhAXQ3EZEOdBcSkQv3u9gWGzMBPDoQUCDH8fGjJ8mM/KYMfEzPCmhpnhy8QsBjmgHfgwIwEMAwC4bxTQ');
       BankBooth := DTMFromString('mbQAAAHicY2VgYDBnZGBQA2I5INYEYn0gnsGAiqcD8YblCxjWLJ7NsGrBDDC9Yek8BlagODpmxILBAABYfQ2T');
       DepositIronBar := DTMFromString('mbQAAAHicY2VgYJjGxMAwFYgXMEHYPUDszMjAYA/ETkDsAcQuQBzk58dgZ2MDxooKCmCaGagfHTNiwWAAAE88B9c=');
    end;

    Procedure FrDTMS;
    Begin
       FreeDTM(IronOre);
       FreeDTM(CastSuperHeat);
       FreeDTM(BankBooth);
       FreeDTM(DepositIronBar);
       FreeDTM(TakeOres);
    end;

    procedure ProgressReport;
    begin

      XPMagic := SuperHeats * 53;
      XPSmith := SuperHeats * 12;
        writeln('--------------------------------------------------------');
        writeln('--------------- Kipjes Iron SuperHeater ----------------');
        writeln('--------------------------------------------------------');
        writeln('--- SuperHeats done: ' + IntToStr(SuperHeats));
        writeln('--- Magic XP Gained: ' + IntToStr(XPMagic));
        writeln('--- Smithing XP Gained: ' + IntToStr(XPSmith));
        writeln('--------------------------------------------------------');
    end;

    procedure AntiBan;
    begin
      if not(LoggedIn)then
      Exit;
      case Random(175)of
        0: HoverSkill('Magic', false);
        1: RandomRClick;
        2: BoredHuman;
        3: PickUpMouse;
        4: RandomMovement;
        5: HoverSkill('Smithing', false);
      end;
    end;

    procedure Start;
    begin
      MakeCompass('N')
      wait(300);
      SetAngle(SRL_ANGLE_HIGH);
      wait(300);
        SuperHeats := 0;
    end;

    Procedure SuperHeat;
    Begin
      if FindDTM(CastSuperHeat, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
        MMouse(X, Y + 3, 0, 0);
        ClearDebug;
        If WaitUptextMulti(['Superheat', 'Item'], 500) Then
        Begin

          ClickMouse2(true);
          wait(300);
        end;
      end;
    end;

    Procedure Item;
    Begin
      if FindDTM(IronOre, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
       MMouse(X, Y + 3, 0, 0);
       If WaitUptextMulti(['Superheat', 'Item'], 500) Then
       Begin
        Writeln ('Superheating > Iron Ore.')
        ClickMouse2(true);
        wait(600);
       end;
      end;
    end;


    Procedure Bank;
    Begin
     if FindDTM(BankBooth, x, y, MSX1, MSY1, MSX2, MSY2) then
      Begin
      MMouse(X, Y + 3, 0, 0);
       If WaitUptextMulti(['Bank', 'Booth'], 500) Then
        Begin
          Writeln ('BANK > Banking')
          ClickMouse2(true);
          wait(400);
        end;
      end;
    end;

    Procedure DepositeBars;
      begin
      if FindDTM(DepositIronBar, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
        MMouse(X, Y + 3, 0, 0);
       If WaitUptextMulti(['Iron bar'], 500) Then
       Begin
        Writeln ('BANK > Deposite Bars.')
        ClickMouse2(false);
        ChooseOption('all');
       end;
      end;
    end;

    Procedure TakesOresFromBank;
    begin
      if FindDTM(TakeOres, x, y, MSX1, MSY1, MSX2, MSY2) then
      Begin
        MMouse(X, Y + 3, 0, 0);
       If WaitUptextMulti(['Iron ore'], 500) Then
       Begin
        Writeln ('BANK > Take Ore.')
        ClickMouse2(false);
        ChooseOption('all');
        wait(120);
        CloseBank;
        wait(170);
        GameTab(Tab_Magic);
        wait(130);
       end;
      end;
    end;
    //added a main loop
    procedure MainLoop;
    begin
      repeat
        repeat
         SuperHeat;
         Item;
         Inc(i);
        Until(i > 27)
        ProgressReport;
        AntiBan;
    //BANKING
        Bank;
        DepositeBars;
        TakesOresFromBank;
        FrDTMS;
        wait(200);
      until(false);
    end;

    Begin
      SetupSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      LoadDTM;
      Writeln ('Waiting 10 Seconds before starting...')
      wait(10000);
      GameTab(Tab_Magic);
      wait(400);
      Start;
      wait(100);
      MainLoop;
    end.
    Last edited by bas; 04-22-2012 at 04:54 PM.

  2. #2
    Join Date
    Jul 2011
    Location
    /home/litoris
    Posts
    2,226
    Mentioned
    0 Post(s)
    Quoted
    159 Post(s)

    Default

    Would be nice if it could calculate xp, xp/h and when you get more advanced, profit/h(loss, in this case). You could try having a paint, it's fun.

  3. #3
    Join Date
    Nov 2011
    Location
    Netherlands
    Posts
    156
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by litoris View Post
    Would be nice if it could calculate xp, xp/h and when you get more advanced, profit/h(loss, in this case). You could try having a paint, it's fun.
    Will look into it

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
  •