Daemonheim Superheater [F2P]

Well, now I feel silly for missing that. I got too caught up in putting my solution in the GetInvData procedure and didn't think to look elsewhere for it :p

Anyways, the only suggestion I have left is in clicking to use the superheat spell. Instead of statically clicking the last ore every time, perhaps you could have it get the mouse coordinates after selecting the spell, then find the ore closest to where the mouse currently is. That seems the most human as it requires the least mouse movement.

Other than that, I'm all out. It runs smoothly and gives great progress reports. Nicely done!

Quote:

---

Originally Posted by Tlachtli

Well, now I feel silly for missing that. I got too caught up in putting my solution in the GetInvData procedure and didn't think to look elsewhere for it :p

Anyways, the only suggestion I have left is in clicking to use the superheat spell. Instead of statically clicking the last ore every time, perhaps you could have it get the mouse coordinates after selecting the spell, then find the ore closest to where the mouse currently is. That seems the most human as it requires the least mouse movement.

Other than that, I'm all out. It runs smoothly and gives great progress reports. Nicely done!

---

Haha it's all good, the reader of a script will never know as much about it as the writer :p

As for that last idea, me like! Definitely implementing that in the future. Thanks :)

Well, with some elbow grease I can say that this script can be made to work post-update. It doesn't seem to like the coal bag right now (misses the 'fill' option a lot), but if you disable the coal bag it will run normally.

Also, to address the glitch causing items to disappear in the bank I ended up commenting out most of the withdrawing part of the DoBanking procedure. I replaced it with a simple fix that uses static bank slots for the ore and coal. That way, it can still withdraw them even if they glitch and become invisible.

It seems that items present in your inventory at login will never glitch out in the inventory (they can still in the bank), so make sure to have at least one each of your ore, coal, and a bar present in your inventory when you log in.

Quote:

---

Originally Posted by Tlachtli

Well, with some elbow grease I can say that this script can be made to work post-update. It doesn't seem to like the coal bag right now (misses the 'fill' option a lot), but if you disable the coal bag it will run normally.

Also, to address the glitch causing items to disappear in the bank I ended up commenting out most of the withdrawing part of the DoBanking procedure. I replaced it with a simple fix that uses static bank slots for the ore and coal. That way, it can still withdraw them even if they glitch and become invisible.

It seems that items present in your inventory at login will never glitch out in the inventory (they can still in the bank), so make sure to have at least one each of your ore, coal, and a bar present in your inventory when you log in.

---

Any chance I could steal that code segment off you? (The hard-coded bank slots part, mainly)

Quote:

---

Originally Posted by Deni_mulic

Any chance I could steal that code segment off you? (The hard-coded bank slots part, mainly)

---

PM'ed you.

could I get that as well? would love to use this, but i can not get this new client to work.

I just wanted to say thanks for the great script, and for helping me learn to script a little better myself!

http://img705.imageshack.us/img705/7643/99magic.jpg

The script seems to keep failing to compile, is it fixed? Perhaps it was with the update.

Ok here is the script. I used it yesterday and it works so yea. I know that Run will be fine with it because me and him talk all the time + its just a temp fix. When he is active again he will update it fully.

Simba Code:

{=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=|
|=----------------------------------------------------------------------------=|
|=                                                                            =|
|=                       Daemonheim Superheater v0.45                         =|
|=                                                                            =|
|=                               by: Runaway                                  =|
|=                                                                            =|
|=----------------------------------------------------------------------------=|
|=                                                                            =|
|=     This script superheats ores into bars at the Daemonheim bank. It       =|
|=     uses the unlimited teleports supplied by the dungeoneering ring        =|
|=     to return to the bank if anything goes wrong.                          =|
|=                                                                            =|
|=     How to use:                                                            =|
|=                                                                            =|
|=          1) Fill out the setup below.                                      =|
|=                                                                            =|
|=          2) Place your character anywhere.                                 =|
|=                                                                            =|
|=          3) Equip:                                                         =|
|=               - Ring of kinship                                            =|
|=               - Staff of fire                                              =|
|=                                                                            =|
|=          4) Place nature runes in the first slot of your inventory.        =|
|=                                                                            =|
|=          5) If using a coal bag, place it in the second slot of your       =|
|=             inventory.                                                     =|
|=                                                                            =|
|=          6) Make sure the ores you're superheating are visible in          =|
|=             your bank.                                                     =|
|=                                                                            =|
|=          7) Sort your spellbook by level and have all spells on.           =|
|=                                                                            =|
|=          8) Hit run!                                                       =|
|=                                                                            =|
|=     Requirements:                                                          =|
|=                                                                            =|
|=          1) 43 Magic                                                       =|
|=                                                                            =|
|=----------------------------------------------------------------------------=|
|=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=}

program DaemonheimSuperheater;

{$DEFINE SMART}
{$i SRL/SRL.simba}
{$i SRL/SRL/skill/magic.simba}

var
  DungToBank: array[0..1] of array[0..1] of array of Integer;
  SteelColor, MithrilColor, AdamantColor, RuneColor: array[0..1] of array of Integer;
  OreColor: array of array of Integer;
  Uptext, Option: array of array of String;
  NPC, BankerColor, NatureColor, CoalBagColor, IronColor, CoalColor, GoldColor: array of Integer;
  BankOre: TPointArray;
  NPCColor, Superheated, KinColor, StaffColor, SpellColor, RockColor, SmithLevel, MaxCount,
  MaxNum, hBank, hUptext, BankFilter, Bag, BagInv, Loop, Mems, t, cx, cy: Integer;
  Previous, HeatTime, BankTime, Aligned, Heated, BagDone: Boolean;
  BarXP: Extended;

{=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=|
|=-------------------------------=BEGIN-SETUP=--------------------------------=|
|=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=}

const
  BarToSmelt = 'steel'; // Valid choices: iron, steel, gold, mithril, adamant, rune
  UseCoalBag = False; // Valid with: steel, mithril, adamant, rune
  UserPin    = ''; // Leave blank if not using a pin
  TimeToRun  = 720; // Minutes to run the script for (0 to run until stopped)
  P2P        = False;

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

  with Players[0] do
  begin
    Name       := ''; // Player username
    Pass       := ''; // Player password
    BoxRewards := ['XP', 'ostume', 'mote', 'oins', 'une', 'ssence'];
    LampSkill  := Skill_SMITHING;
    Active     := True;
  end;
end;

procedure DeclareColors;
begin
  // Only update if NPCs cannot be located \\
  NPC := [2162687, 1900543, 1783370, 1702399, 1701113, 1505535, 1437694, 1374705, 1372665, 1244415, 1179647, 1179644, 1043199, 981753, 916991, 786430, 783103, 777964, 773595, 720883, 718847, 717815, 717567, 654579, 653311, 651775, 648667, 645348, 640979, 589823, 589311, 588280, 587000, 584957, 584171, 583916, 579817, 579802, 578776, 575448, 574407, 522732, 458751, 450798, 393210, 391151, 327667, 326911, 326385, 325112, 323558, 322788, 319972, 318418, 317648, 315603, 314049, 313279, 257009, 255470, 196604, 127367, 65522, 65233, 63478, 61670, 61439, 61150, 60651, 59355, 56781, 55511, 55014, 53474, 51142, 50645, 49105, 47302];

{=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=|
|=-------------------------------=END-SETUP=----------------------------------=|
|=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=}

  BankerColor  := [2968144, 5408402, 8609098]; // Main color first
  NatureColor  := [1342225, 7631993];
  CoalBagColor := [5402771, 3890564];

  RockColor := 3559010;
  IronColor := [1515317, RockColor];
  CoalColor := [1976104, RockColor];
  SteelColor[0] := IronColor;
  SteelColor[1] := CoalColor;
  GoldColor := [1608365, RockColor];
  MithrilColor[0] := [5453623, RockColor];
  MithrilColor[1] := CoalColor;
  AdamantColor[0] := [4015933, RockColor];
  AdamantColor[1] := CoalColor;
  RuneColor[0] := [5722435, RockColor];
  RuneColor[1] := CoalColor;

  DungToBank[0][0] := [15198705, 10132641, 13619672, 15461616]; // Colors
  DungToBank[0][1] := [638, 38]; // Sort point
  DungToBank[1][0] := [15920097, 15922418, 13223098];
  DungToBank[1][1] := [619, 36];

  KinColor   := 3162439;
  StaffColor := 1911757;
  SpellColor := 228588;

  MMBox := IntToBox(MMX1, MMY1, MMX2, MMY2);
  MSBox := IntToBox(MSX1, MSY1, MSX2, MSY2);
end;

const
  Version     = '0.45';
  WalkTol     = 30;
  WalkMaxDist = 25;
  WalkFilter  = 25;
  WalkTrim    = 1000;

procedure ProgressReport; forward;

procedure Currently(Doing: String);
begin
  Status(Doing);
  DebugLn(Doing);
end;

procedure Error(Reason: String);
begin
  Currently(Reason);
  WriteLn('ERROR: '+ Reason);
  Logout;
  TerminateScript;
end;

procedure SetupVars;
var
  LevelReq, i: Integer;
begin
  Currently('Gathering data...');
  LevelReq := 0;
  if (BarToSmelt = '') then
    Error('Enter the bar you want to superheat!');
  case Lowercase(BarToSmelt) of
    'iron':
    begin
      LevelReq := 15; BarXP := 12.5; MaxCount := 28; MaxNum := 28;
      SetLength(OreColor, 1); SetLength(Uptext, 2); SetLength(Option, 1);
      OreColor[0] := IronColor;
      Uptext[0] := ['ir', 'ron', 'on']; Option[0] := ['ll b', 'but', 'one'];
      Uptext[1] := ['ir', 'ron', 'on', 'ba', 'ar'];
    end;
    'steel':
    begin
      LevelReq := 30; BarXP := 17.5;
      if UseCoalBag then
      begin
        MaxCount := 28; MaxNum := 19;
        SetLength(Option, 2); BagInv := 1;
        Option[0] := ['17']; Option[1] := ['ll b', 'but', 'one'];
      end else
      begin
        MaxCount := 28; MaxNum := 10;
        SetLength(Option, 2); BagInv := 0;
        Option[0] := ['9']; Option[1] := ['ll b', 'but', 'one'];
      end;
      SetLength(OreColor, 2); SetLength(Uptext, 3);
      OreColor[0] := SteelColor[0]; OreColor[1] := SteelColor[1];
      Uptext[0] := ['ir', 'ron', 'on'];
      Uptext[1] := ['oa', 'oal', 'al'];
      Uptext[2] := ['st', 'tee', 'el', 'ba', 'ar'];
    end;
    'gold':
    begin
      LevelReq := 40; BarXP := 22.5; MaxCount := 28; MaxNum := 28;
      SetLength(OreColor, 1); SetLength(Uptext, 2); SetLength(Option, 1);
      OreColor[0] := GoldColor;
      Uptext[0] := ['ol', 'old', 'ld']; Option[0] := ['ll b', 'but', 'one'];
      Uptext[1] := ['ol', 'old', 'ld', 'ba', 'ar'];
    end;
    'mithril':
    begin
      LevelReq := 50; BarXP := 30;
      if UseCoalBag then
      begin
        MaxCount := 28; MaxNum := 12;
        SetLength(Option, 2); BagInv := 2;
        Option[0] := ['10']; Option[1] := ['ll b', 'but', 'one'];
      end else
      begin
        MaxCount := 26; MaxNum := 6;
        SetLength(Option, 2); BagInv := 0;
        Option[0] := ['5']; Option[1] := ['20'];
      end;
      SetLength(OreColor, 2); SetLength(Uptext, 3);
      OreColor[0] := MithrilColor[0]; OreColor[1] := MithrilColor[1];
      Uptext[0] := ['ith', 'thr', 'ril'];
      Uptext[1] := ['oa', 'oal', 'al'];
      Uptext[2] := ['ith', 'thr', 'ril', 'ba', 'ar'];
    end;
    'adamant':
    begin
      LevelReq := 70; BarXP := 37.5;
      if UseCoalBag then
      begin
        MaxCount := 28; MaxNum := 9;
        SetLength(Option, 2); BagInv := 3;
        Option[0] := ['7']; Option[1] := ['ll b', 'but', 'one'];
      end else
      begin
        MaxCount := 22; MaxNum := 4;
        SetLength(Option, 2); BagInv := 0;
        Option[0] := ['3']; Option[1] := ['18'];
      end;
      SetLength(OreColor, 2); SetLength(Uptext, 3);
      OreColor[0] := AdamantColor[0]; OreColor[1] := AdamantColor[1];
      Uptext[0] := ['dam', 'man', 'tit'];
      Uptext[1] := ['oa', 'oal', 'al'];
      Uptext[2] := ['dam', 'man', 'tit', 'ba', 'ar'];
    end;
    'rune':
    begin
      LevelReq := 85; BarXP := 50;
      if UseCoalBag then
      begin
        MaxCount := 28; MaxNum := 7;
        SetLength(Option, 2); BagInv := 6;
        Option[0] := ['5']; Option[1] := ['ll b', 'but', 'one'];
      end else
      begin
        MaxCount := 28; MaxNum := 4;
        SetLength(Option, 2); BagInv := 0;
        Option[0] := ['3']; Option[1] := ['ll b', 'but', 'one'];
      end;
      SetLength(OreColor, 2); SetLength(Uptext, 3);
      OreColor[0] := RuneColor[0]; OreColor[1] := RuneColor[1];
      Uptext[0] := ['un', 'ni', 'ite'];
      Uptext[1] := ['oa', 'oal', 'al'];
      Uptext[2] := ['un', 'ni', 'ite', 'ba', 'ar'];
    end;
  end;
  if (LevelReq = 0) then
    Error('Invalid bar entered!');
  if (SmithLevel < LevelReq) then
    Error('Not a high enough level to superheat '+ BarToSmelt +' bars!');
  Bag := 0;
  Mems := 0;
  if UseCoalBag then
    Bag := 1;
  if P2P then
    Mems := 24;
  SetLength(BankOre, (Length(OreColor) + 1));
  hBank := High(BankOre);
  for i := 0 to hBank do
    BankOre[i] := Point(MSCX, MSCY);
  hUptext := High(Uptext);
end;

function ColorWait(WaitTime, Color, Tol: Integer; Box: TBox): Boolean;
var
  i, x, y: Integer;
begin
  if not LoggedIn then Exit;
  Result := False;
  MarkTime(i);
  repeat
    Result := FindColorTolerance(x, y, Color, Box.x1, Box.y1, Box.x2, Box.y2, Tol);
    if Result then
      Break;
    Wait(100+Random(50));
  until(TimeFromMark(i) > WaitTime);
end;

function ColorWaitMulti(WaitTime: Integer; Colors: TIntegerArray; Box: TBoxArray; Strict: Boolean): Boolean;
var
  hColors, Res, i: Integer;
begin
  if not LoggedIn then Exit;
  Result := False;
  Res := 0;
  hColors := High(Colors);
  for i := 0 to hColors do
  begin
    if ColorWait(WaitTime, Colors[i], 15, Box[i]) then
      Inc(Res);
  end;
  if Strict then
  begin
    if (Res > hColors) then
      Result := True;
  end else
  begin
    if (Res > 0) then
      Result := True;
  end;
end;

procedure WaitLoggedIn(WaitTime: Integer);
var
  HPBox: TBox;
begin
  HPBox := IntToBox(695, 19, 718, 42);
  while not ColorWait(WaitTime, 143319, 10, HPBox) do
    Wait(WaitTime);
end;

function FindTPointCluster(Colors: TIntegerArray; Tol: Integer; SortFrom: TPoint; Filter, Trim, MaxDist: Integer; Box: TBox): TPointArray;
var
  aPoints: T2DPointArray;
  TPA: TPointArray;
  hPoints, hColors: Integer;
  cError, Len, Match: Integer;
  t, r, i, ii: Integer;
begin
  MarkTime(t);
  SetLength(aPoints, Length(Colors));
  hColors := High(Colors);
  cError := 0;
  r := 0;
  for i := 0 to hColors do
  begin
    if (FindColorsTolerance(TPA, Colors[i], Box.x1, Box.y1, Box.x2, Box.y2, Tol)) then
    begin
      SortTPAFrom(TPA, SortFrom);
      if (Filter <> -1) then
        FilterPointsDist(TPA, 0, Filter, SortFrom.x, SortFrom.y);
      if (Trim <> -1) and (Length(TPA) > Trim) then
        SetLength(TPA, Trim);
      aPoints[i - cError] := TPA;
    end else
    begin
      Len := Length(aPoints) - 1;
      SetLength(aPoints, Len);
      Inc(cError);
    end;
    if (cError >= 1) then
      Exit;
  end;
  hPoints := High(aPoints);
  for i := 0 to High(aPoints[0]) do
  begin
    Match := 0;
    for ii := 1 to hPoints do
    begin
      if NearbyPointInArray(aPoints[0][i], MaxDist, aPoints[ii]) then
      begin
        Inc(Match);
        if (Match >= hPoints) then
        begin
          SetLength(Result, r + 1);
          Result[r] := aPoints[0][i];
          Inc(r);
        end;
      end else
        Break;
    end;
  end;
  SortTPAFrom(Result, SortFrom);
end;

function CheckInvColor(Color: TIntegerArray; Slot, Tol: Integer): Boolean;
var
  TPA: TPointArray;
  tSlot: TBox;
begin
  if not LoggedIn then Exit;
  Result := False;
  tSlot := InvBox(Slot);
  if ExistsItem(Slot) then
  begin
    TPA := FindTPointCluster(Color, Tol, Point(tSlot.x1, tSlot.y1), -1, -1, 20, tSlot);
    Result := (Length(TPA) > 0);
  end;
end;

function TabWait(WaitTime, Tab: Integer): Boolean;
var
  i: Integer;
begin
  if not LoggedIn then Exit;
  Result := False;
  MarkTime(i);
  repeat
    Result := (GetCurrentTab = Tab);
    if Result then
      Break;
    Wait(100+Random(50));
  until(TimeFromMark(i) > WaitTime);
end;

function GetInvData: Boolean;
begin
  if not LoggedIn then Exit;
  GameTab(tab_INV);
  TabWait(1000, tab_INV);
  Result := False;
  HeatTime := False;
  BankTime := False;
  Result := CheckInvColor(OreColor[0], MaxNum, 5);
  if Result then
    HeatTime := True
  else
    BankTime := True;
end;

procedure Calibrate;
begin
  if not LoggedIn then Exit;
  ClickNorth(2);
  KeyDown(VK_UP);
  Wait(450+Random(100));
  KeyUp(VK_UP);
end;

function Antiban: Boolean;
begin
  if not LoggedIn then Exit;
  Result := False;
  FindNormalRandoms;
  case Random(1600) of
    1: begin Currently('Antiban...'); PickUpMouse; end;
    2: begin Result := True; Currently('Antiban...'); BoredHuman; Calibrate; end;
    3: begin Result := True; Currently('Antiban...'); RandomAngle(1); Calibrate; end;
    4: begin Currently('Antiban...'); Wait(1000+Random(2500)); end;
    5,6: begin Currently('Antiban...'); Wait(4000+Random(1000)); end;
    7,8,9,10: begin Result := True; Currently('Antiban...'); RandomMovement; Calibrate; end;
  end;
end;

procedure SetupPlay;
var
  StaffBox, KinBox: TBox;
begin
  if not LoggedIn then Exit;
  StaffBox := IntToBox(572, 291, 600, 318);
  KinBox := IntToBox(683, 371, 713, 386);
  Currently('Setting up player...');
  GameTab(tab_EQUIP);
  TabWait(1000, tab_EQUIP);
  if ColorWaitMulti(1000, [StaffColor, KinColor], [StaffBox, KinBox], True) then
    Currently('Found staff of fire and ring of kinship!')
  else
    Error('Equip staff of fire and ring of kinship!');
  GameTab(tab_STATS);
  TabWait(1000, tab_STATS);
  SmithLevel := GetSkillLevel(SKILL_SMITHING);
  GameTab(tab_Magic);
  TabWait(1000, tab_MAGIC);
  SetSpellMode(True, True, True, True);
  SortBook(BOOKSORT_LEVEL);
  GameTab(tab_INV);
  TabWait(1000, tab_INV);
  if CheckInvColor(NatureColor, 1, 5) then
    Currently('Found nature runes in first slot!')
  else
    Error('Place nature runes in first slot of inventory!');
  if UseCoalBag then
  begin
    if CheckInvColor(CoalBagColor, 2, 10) then
      Currently('Found coal bag in second slot!')
    else
      Error('Place coal bag in second slot of inventory!');
  end;
end;

function Teleport(Which: String; Tries: Integer): Boolean;
var
  CoordBox, ClanBox: TBox;
  Color, i, x, y: Integer;
  Area: String;
  Clan: Boolean;
begin
  if not LoggedIn then Exit;
  case Lowercase(Which) of
    'dung':
    begin
      Color := KinColor; CoordBox := IntToBox(683, 371, 713, 386); Clan := False;
      Area := 'daemonheim';
    end;
  end;
  i := 0;
  repeat
    AntiBan;
    Currently('Teleporting to '+ Area +': Attempt '+ IntToStr(i + 1) +'...');
    GameTab(tab_EQUIP);
    TabWait(1000, tab_EQUIP);
    if ColorWait(2000, Color, 10, CoordBox) then
    begin
      MouseTBox(CoordBox, mouse_right);
      Result := WaitOptionMulti(['ele','port'], 2000);
      if Result then
      begin
        {if Clan then
        begin
          ClanBox := IntToBox(223, 402, 298, 411);
          if ColorWait(2000, 2169874, 10, ClanBox) then
            MouseTBox(ClanBox, mouse_left);
          Break;
        end;}
        Break;
      end else
      begin
        GetMousePos(x, y);
        MMouse((x+RandomRange(-30,30)), (y-50-Random(50)), 5, 5);
        Wait(250+Random(250));
      end;
    end;
    Inc(i);
  until(i > Tries);
  GameTab(tab_INV);
  if Result then
    Currently('Teleported to '+ Area +'!')
  else
    Currently('Failed to teleport to '+ Area +'!');
end;

function AtArea(Which: String; WaitTime: Integer): Boolean;
var
  aTPA: T2DPointArray;
  TPA: TPointArray;
  Color: array of Integer;
  t, i: Integer;
  Area: String;
begin
  if not LoggedIn then Exit;
  case Lowercase(Which) of
    'dung':
    begin
      Color := [6251366, 15525876, 10986156, 13550787];
      Area := 'daemonheim';
    end;
    'bank':
    begin
      Color := [15526372, 14144976, 5263951, 2413294, 9002045, 262643];
      Area := 'the bank';
    end;
  end;
  MarkTime(i);
  repeat
    for t := 20 to 30 do
    begin
      Currently('Searching for '+ Area +': Tolerance is '+ IntToStr(t) +'...');
      TPA := FindTPointCluster(Color, t, Point(MMCX, MMCY), -1, -1, 100, MMBox);
      aTPA := SplitTPA(TPA, 100);
      if (Length(aTPA) > 0) then
      begin
        Result := True;
        Currently('At '+ Area +'!');
        Break;
      end;
      Wait(200+Random(50));
    end;
  until(i > WaitTime);
end;

procedure WaitMoving(WaitTime: Integer);
var
  t: Integer;
begin
  MarkTime(t);
  while IsMoving or FlagPresent do
  begin
    if (TimeFromMark(t) > WaitTime) then
      Exit;
    Wait(200);
  end;
end;

function GetNPCDotColor: Boolean;
var
  aTPA: T2DPointArray;
  TPA: TPointArray;
  Color: array of Integer;
  i: Integer;
begin
  if not LoggedIn then Exit;
  Currently('Grabbing NPC dot color...');
  Result := False;
  for i := 0 to High(NPC) do
  begin
    Color := [NPC[i], 65536];
    TPA := FindTPointCluster(Color, 5, Point(MMCX, MMCY), -1, -1, 5, MMBox);
    aTPA := SplitTPA(TPA, 10);
    if (Length(aTPA) > 0) then
    begin
      Result := True;
      NPCColor := NPC[i];
      Break;
    end;
  end;
  if Result then
    Currently('Found NPC color: '+ IntToStr(NPCColor))
  else
    Error('NPC color not found! See thread for fix.');
end;

procedure AlignWalking(Which: String; WaitTime: Integer);
var
  aTPA: T2DPointArray;
  TPA: TPointArray;
  CustomMMBox: TBox;
  Color, Points: array of Integer;
  ArrFilter, i, x, y: Integer;
begin
  if not LoggedIn then Exit;
  case Lowercase(Which) of
    'bank':
    begin
      Color := [NPCColor, 65536]; Points := [627, 69];
      ArrFilter := -1;
    end;
  end;
  CustomMMBox := IntToBox(MMX1, (MMCY - 40), (MMCX + 12), MMY2);
  Currently('Aligning walk path...');
  Aligned := False;
  MarkTime(i);
  repeat
    TPA := FindTPointCluster(Color, 10, Point(MMCX, MMCY), ArrFilter, -1, 20, CustomMMBox);
    aTPA := SplitTPA(TPA, 10);
    if (Length(aTPA) > 0) then
    begin
      x := MiddleTPA(aTPA[0]).x;
      y := MiddleTPA(aTPA[0]).y;
      cx := Points[0] - x;
      cy := Points[1] - y;
      Currently('Altered walk path by: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
      Aligned := True;
      Break;
    end;
  until(TimeFromMark(i) > WaitTime);
end;

function WalkTo(Which: String): Boolean;
var
  Arr: array of array of array of Integer;
  aTPA: T2DPointArray;
  TPA: TPointArray;
  P: TPoint;
  hArr, c, i, t, h: integer;
  Current: Boolean;
  Area: String;
begin
  if not LoggedIn then Exit;
  h := 0;
  case Lowercase(Which) of
    'bank':
    begin
      SetLength(Arr, Length(DungToBank));
      for i := 0 to High(Arr) do
      begin
        SetLength(Arr[i], 2);
        Arr[i][0] := DungToBank[i][0];
        if Aligned then
          h := 17;
        Arr[i][1] := [DungToBank[i][1][0] - cx + h, DungToBank[i][1][1] - cy];
        cx := 0;
        cy := 0;
      end;
      Area := 'bank';
    end;
  end;
  hArr := High(Arr);
  MakeCompass('n');
  for c := 0 to hArr do
  begin
    Current := False;
    for i := 0 to 10 do
    begin
      Currently('Walking to '+ Area +' ('+ IntToStr(c + 1) +' of '+ IntToStr(Length(Arr)) +'): Tolerance is '+ IntToStr(WalkTol + i) +'...');
      TPA := FindTPointCluster(Arr[c][0], (WalkTol + i), Point(Arr[c][1][0], Arr[c][1][1]), WalkFilter, WalkTrim, WalkMaxDist, MMBox);
      aTPA := SplitTPA(TPA, WalkMaxDist);
      if (Length(aTPA) > 0) then
      begin
        for t := 0 to High(aTPA) do
        begin
          P := MiddleTPA(aTPA[t]);
          if (not rs_OnMinimap(P.x, P.y)) then
            Continue;
          Mouse(P.x, P.y, 3, 3, mouse_left);
          Wait(1000+Random(500));
          WaitMoving(15000);
          if (c = hArr) then
          begin
            Result := True;
            Exit;
          end;
          Current := True;
          Break;
        end;
        if Current then
          Break;
      end;
      Wait(100+Random(50));
    end;
    AntiBan;
  end;
end;

function BankOpened: Boolean;
var
  Box: TBox;
begin
  if not LoggedIn then Exit;
  Box := IntToBox(464, 28, 477, 42);
  Result := ColorWait(2000, 5005673, 10, Box);
end;

procedure BankAdjust(Min: Integer);
var
  TPA: TPointArray;
  SymbolColor: array of Integer;
  P, Diff, Mid: TPoint;
  Dist: Integer;
begin
  if not LoggedIn then Exit;
  SymbolColor := [2413294, 12632256, 65536];
  TPA := FindTPointCluster(SymbolColor, 10, Point(MMCX, MMCY), -1, -1, 10, MMBox);
  if (Length(TPA) >= Min) then
  begin
    P := MiddleTPA(TPA);
    Dist := Distance(P.x, P.y, MMCX, MMCY);
    if (Dist > 20) then
    begin
      Diff := Point(P.x - MMCX, P.y - MMCY);
      Mid := Point(((Diff.x / 2) + MMCX), ((Diff.y / 2) + MMCY));
      Mouse(Mid.x, Mid.y, 2, 2, mouse_left);
      Currently('Moving closer to bank...');
      Wait(500+Random(500));
      WaitMoving(5000);
      Exit;
    end else
    begin
      Currently('Close enough to bank...');
      Exit;
    end;
  end else
    Currently('Could not find bank symbol...');
end;

function OpenDungBank: Boolean;
var
  aTPA: T2DPointArray;
  TPA: TPointArray;
  P: TPoint;
  CustomMSBox: TBox;
  c, t, i: Integer;
begin
  if not LoggedIn then Exit;
  CustomMSBox := IntToBox(MSX1, MSY1, MSCX + 110, MSY2);
  BankAdjust(4);
  TabWait(1000, tab_INV);
  for c := 25 to 35 do
  begin
    Currently('Opening bank: Tolerance is '+ IntToStr(c) +'...');
    TPA := FindTPointCluster(BankerColor, c, BankOre[hBank], 180, -1, 50, CustomMSBox);
    aTPA := TPAToATPA(TPA, 60);
    if (Length(aTPA) > 0) then
    begin
      SortATPAFromMidPoint(aTPA, Point((MSCX - 150), MSCY));
      for t := 0 to High(aTPA) do
      begin
        P := MiddleTPA(aTPA[t]);
        MMouse(P.x, P.y, 3, 3);
        Wait(300+Random(100));
        if WaitUptextMulti(['remen', 'nnik', 'anker'], 500) then
        begin
          ClickMouse2(mouse_right);
          if WaitOption('ank Fr', 1000) then
          begin
            Wait(500+Random(500));
            MarkTime(i);
            repeat
              Result := BankOpened or PinScreen;
              if Result then
              begin
                BankOre[hBank] := Point(P.x, P.y);
                Break;
              end;
              Wait(200+Random(50));
            until(TimeFromMark(i) > 5000);
            if Result then
            begin
              Currently('Bank opened!');
              Exit;
            end else
              Currently('Failed to open bank!');
          end;
        end;
        if (t >= 2) then
          Break;
      end;
    end;
  end;
  if not Result then
    Currently('Failed to open bank!');
end;

function HandleCoalBag: Boolean;
var
  aTPA: T2DPointArray;
  TPA: TPointArray;
  Time, x, y, t, i: Integer;
  Slot: TBox;
begin
  if not LoggedIn then Exit;
  Result := False;
  Currently('Filling coal bag...');
  MarkTime(Time);
  repeat
    TPA := FindTPointCluster(OreColor[1], 10, BankOre[1], BankFilter, -1, 15, MSBox);
    aTPA := SplitTPA(TPA, 20);
    if (Length(aTPA) > 0) then
    begin
      for t := 0 to High(aTPA) do
      begin
        x := MiddleTPA(aTPA[t]).x;
        y := MiddleTPA(aTPA[t]).y;
        MMouse(x, y, 3, 3);
        Wait(300+Random(100));
        if WaitUptextMulti(Uptext[1], 400) then
        begin
          Mouse(x, y, 0, 0, mouse_right);
          if WaitOptionMulti(Option[1], 1000) then
          begin
            BankOre[1] := Point(x, y);
            Result := True;
            Wait(400+Random(300));
            Break;
          end;
        end else
        begin
          if (BankOre[1] <> Point(MSCX, MSCY)) then
          begin
            Mouse(x, y, 0, 0, mouse_right);
            if WaitOptionMulti(Option[1], 1000) then
            begin
              BankOre[1] := Point(x, y);
              Result := True;
              Wait(400+Random(300));
              Break;
            end;
          end;
        end;
      end;
    end;
    if Result then
    begin
      Slot := InvBox(2);
      MouseBox(Slot.x1, Slot.y1, Slot.x2, Slot.y2, mouse_right);
      if WaitOption('ill', 1000) then
      begin
        Currently('Coal bag filled!');
        Wait(400+Random(300));
        BagDone := True;
        Break;
      end;
    end;
  until(TimeFromMark(Time) > (20 * 1000));
  Currently('Depositing excess coal...');
  for i := (2 + Bag) to 28 do
  begin
    if (InvCount < (2 + Bag + BagInv)) then
      Break;
    if ExistsItem(i) then
    begin
      Slot := InvBox(i);
      MouseBox(Slot.x1, Slot.y1, Slot.x2, Slot.y2, mouse_move);
      if WaitUptextMulti(Uptext[hUptext], 200) then
      begin
        ClickMouse2(mouse_right);
        WaitOptionMulti(['ll', 'epo', 'osit'], 1000);
        Wait(150+Random(150));
      end else
      begin
        if (i <= MaxNum) then
        begin
          ClickMouse2(mouse_right);
          WaitOptionMulti(['ll', 'epo', 'osit'], 1000);
          Wait(150+Random(150));
        end else
          ClickMouse2(mouse_left);
      end;
      Wait(400+Random(400));
    end;
  end;
  Currently('Excess coal deposited!');
  if not BagDone then
    Currently('Failed to fill coal bag...');
end;

function DoBanking: array of Boolean;
var
  Tries, hOre, Time1, Time2, h, r, t, i, x, y: Integer;
  aTPA: T2DPointArray;
  TPA: TPointArray;
  tSlot: TBox;
  Primary: Boolean;
begin
  if not LoggedIn then Exit;
  BagDone := False;
  if (PinScreen and (UserPin <> '')) then
    InPin(UserPin);
  if BankOpened then
  begin
    r := 0;
    Primary := False;
    SetLength(Result, Length(OreColor));
    Currently('Depositing '+ BarToSmelt +' bars...');
    MarkTime(Time1);
    repeat
      if (InvCount < (2 + Bag + BagInv)) then
        Break
      else
      begin
        for i := (2 + Bag) to 28 do
        begin
          if (InvCount < (2 + Bag + BagInv)) then
            Break;
          if ExistsItem(i) then
          begin
            tSlot := InvBox(i);
            MouseTBox(tSlot, mouse_move);
            if WaitUptextMulti(Uptext[hUptext], 200) then
            begin
              ClickMouse2(mouse_right);
              WaitOptionMulti(['ll', 'epo', 'osit'], 1000);
              Wait(150+Random(150));
            end else
            begin
              if (i <= MaxNum) then
              begin
                ClickMouse2(mouse_right);
                WaitOptionMulti(['ll', 'epo', 'osit'], 1000);
                Wait(150+Random(150));
              end else
                MouseTBox(tSlot, mouse_left);
            end;
            Wait(400+Random(400));
          end;
        end;
      end;
    until((InvCount < (2 + Bag + BagInv)) or (TimeFromMark(Time1) > (30 * 1000)));
    Wait(500+Random(250));
    if (InvCount < (2 + Bag + BagInv)) then
      Currently('Deposited '+ BarToSmelt +' bars!')
    else
      Error('Failed to bank '+ BarToSmelt +' bars!');
    r := 0;
    Currently('Withdrawing ores...');
    MarkTime(Time2);
    hOre := High(OreColor);
    repeat
      if (UseCoalBag and not BagDone) then
        HandleCoalBag;
      for h := 0 to hOre do
      begin
        Result[h] := False;
        if ((h > 0) and not Primary) then
          Break;
        if ((h = 0) and Primary) then
          Break;
        TPA := FindTPointCluster(OreColor[h], 5, BankOre[h], BankFilter, -1, 15, MSBox);
        aTPA := SplitTPA(TPA, 20);
        if (Length(aTPA) > 0) then
        begin
          for t := 0 to High(aTPA) do
          begin
            x := MiddleTPA(aTPA[t]).x;
            y := MiddleTPA(aTPA[t]).y;
            MMouse(x, y, 3, 3);
            Wait(300+Random(100));
            if WaitUptextMulti(Uptext[h], 400) then
            begin
              if ((Option[h][0] = '3') and (MaxCount < 28)) then
              begin
                Tries := 0;
                repeat
                  ClickMouse2(mouse_left);
                  Wait(400+Random(400));
                  if CheckInvColor(OreColor[0], MaxNum, 5) then
                  begin
                    Result[h] := True;
                    BankOre[h] := Point(x, y);
                    if (h = 0) then
                      Primary := True;
                    Break;
                  end else
                    Inc(Tries);
                until(Tries > 4);
              end else
              begin
                ClickMouse2(mouse_right);
                if WaitOptionMulti(Option[h], 1000) then
                begin
                  Result[h] := True;
                  BankOre[h] := Point(x, y);
                  if (h = 0) then
                    Primary := True;
                  Wait(400+Random(300));
                  if Result[hOre] then
                    Break;
                end else
                begin
                  Mouse(x, y, 0, 0, mouse_right);
                  if WaitOption('X', 1000) then
                  begin
                    Wait(1500+Random(1000));
                    TypeSendEx(Option[h][0], True);
                    Result[h] := True;
                    BankOre[h] := Point(x, y);
                    if (h = 0) then
                      Primary := True;
                    Wait(400+Random(300));
                    Break;
                  end;
                end;
              end;
            end else
            begin
              if (BankOre[h] <> Point(MSCX, MSCY)) then
              begin
                ClickMouse2(mouse_right);
                if WaitOptionMulti(Option[h], 1000) then
                begin
                  Result[h] := True;
                  BankOre[h] := Point(x, y);
                  if (h = 0) then
                    Primary := True;
                  Wait(400+Random(300));
                  if Result[hOre] then
                    Break;
                end;
              end;
            end;
          end;
          TPA := [];
        end;
        if Result[hOre] then
          Break;
      end;
      if (InvCount >= MaxCount) then
      begin
        if CheckInvColor(OreColor[0], (2 + Bag), 5) and
          CheckInvColor(OreColor[0], MaxNum, 5) and
          CheckInvColor(OreColor[hOre], MaxCount, 5) then
        begin
          Break;
        end else
        begin
          for i := (2 + Bag) to 28 do
          begin
            if ExistsItem(i) then
            begin
              tSlot := InvBox(i);
              MouseTBox(tSlot, mouse_right);
              if WaitOptionMulti(['ll', 'epo', 'osit'], 1000) then
              begin
                Wait(300+Random(100));
                Continue;
              end;
            end;
          end;
          Primary := False;
        end;
      end;
    until(TimeFromMark(Time2) > (30 * 1000));
    Wait(500+Random(250));
    if (InvCount >= MaxCount) then
    begin
      if not CheckInvColor(OreColor[hOre], MaxCount, 5) then
        Error('Not enough ores!');
      Currently('Withdrew ores!');
      CloseBank;
    end else
      Error('Not enough ores!');
    if (BankOre[h] <> Point(MSCX, MSCY)) then
      BankFilter := 25;
  end;
end;

function ChooseSpell: Boolean;
var
  Time: Integer;
  SpellBox: TBox;
begin
  if not LoggedIn then Exit;
  Result := False;
  SpellBox := IntToBox(616 + Mems, 322, 627 + Mems, 332);
  MarkTime(Time);
  repeat
    if not TabWait(2000, tab_MAGIC) then
      GameTab(tab_MAGIC);
    if ColorWait(2000, SpellColor, 10, SpellBox) then
    begin
      Wait(150+Random(50));
      MouseTBox(SpellBox, mouse_left);
      Result := True;
      Break;
    end;
  until(TimeFromMark(Time) > 5000);
end;

function Superheat(Slot: Integer): Boolean;
var
  Tries: Integer;
  tSlot: TBox;
begin
  if not LoggedIn then Exit;
  Tries := 0;
  Result := False;
  if Previous then
  begin
    if not ChooseSpell then
      Error('Out of nature runes!');
    Wait(225+Random(100));
  end;
  repeat
    if (Antiban and not Heated) then
      ChooseSpell;
    if CheckInvColor(OreColor[0], Slot, 5) then
    begin
      tSlot := InvBox(MaxNum);
      Currently('Superheating: Slot '+ IntToStr(Slot) +'...');
      MouseTBox(tSlot, mouse_left);
      if (Slot = MaxNum) then
        Heated := True;
      Result := True;
      Previous := True;
      Wait(225+Random(100));
      Exit;
    end else
      Inc(Tries);
  until(Tries > 1);
  if (Tries > 1) then
    Previous := False;
end;

procedure HeatProc;
var
  i: Integer;
begin
  if HeatTime then
  begin
    for i := (2 + Bag) to MaxNum do
    begin
      if Heated then
        Break;
      if Superheat(i) then
      begin
        Inc(Superheated);
        ProgressReport;
      end;
    end;
    Wait(300+Random(100));
    GameTab(tab_INV);
    TabWait(1000, tab_INV);
    if CheckInvColor(OreColor[0], MaxNum, 5) then
      Heated := False;
  end;
end;

procedure BankProc;
var
  c, t, i: Integer;
begin
  if BankTime then
  begin
    if AtArea('bank', 5000) then
    begin
      MarkTime(c);
      repeat
        if OpenDungBank then
        begin
          DoBanking;
          Heated := False;
          Previous := True;
        end else
        begin
          Wait(500+Random(500));
          Antiban;
        end;
        GetInvData;
      until(HeatTime or (TimeFromMark(c) > (20 * 1000)));
    end else
    begin
      if Teleport('dung', 2) then
      begin
        MarkTime(t);
        Wait(6000+Random(3000));
        repeat
          if AtArea('dung', 1000) then
            Break;
          Wait(500+Random(250));
          Antiban;
        until(TimeFromMark(t) > 12000);
      end;
      if AtArea('dung', 2000) then
      begin
        Calibrate;
        GetNPCDotColor;
        AlignWalking('bank', 5000);
        WalkTo('bank');
        MarkTime(i);
        repeat
          if AtArea('bank', 1000) then
            Break;
          Wait(500+Random(250));
          Antiban;
        until(TimeFromMark(i) > 5000);
        BankOre[hBank] := Point(MSCX, MSCY);
      end;
    end;
  end;
end;

procedure HeatLoop(Tries: Integer);
var
  i: Integer;
begin
  i := 0;
  repeat
    if (i > 0) then
    begin
      if Heated then Exit;
      Currently('Trying again...');
    end;
    GetInvData;
    if BankTime then
      Exit;
    HeatProc;
    GetInvData;
    Inc(i);
  until(BankTime or (i > Tries));
  if (HeatTime or (not BankTime)) then
    Error('Superheating messed up!');
end;

procedure BankLoop(Tries: Integer);
var
  i: Integer;
begin
  i := 0;
  repeat
    if (i > 0) then
    begin
      Currently('Trying again...');
      Calibrate;
    end;
    GetInvData;
    if HeatTime then
      Exit;
    BankProc;
    GetInvData;
    Inc(i);
  until(HeatTime or (i > Tries));
  if (BankTime or (not HeatTime)) then
    Error('Banking messed up!');
end;

procedure ProgressReport;
begin
  ClearDebug;
  WriteLn(' Runaways                                 v'+ Version +'!');
  WriteLn('<=----------- Daemonheim Superheater ----------=>');
  WriteLn('|  Running for: '+ TimeRunning);
  WriteLn('|  Superheated: '+ IntToStr(Superheated) +' '+ BarToSmelt +' bars');
  WriteLn('|  Magic XP gained: '+ IntToStr(Superheated * 53) +' XP');
  WriteLn('|  Smithing XP gained: '+ IntToStr(Round(Superheated * BarXP)) +' XP');
  WriteLn('<=---------------------------------------------=>');
end;

procedure SetupScript;
begin
  ClearDebug;
  Superheated := 0;
  Previous := True;
  Heated := False;
  BankFilter := -1;
  Currently('Setting up Script...');
  {$IFDEF SIMBAMAJOR980}//<--- THIS
  Smart_Server := 0;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  {$ELSE}//<--- THIS
  SRL_SIXHOURFIX := TRUE;
  SMART_FIXSPEED := TRUE;
  {$ENDIF}
  SetupSRL;
  SetupMagic;
  DeclarePlayers;
  DeclareColors;
  ActivateClient;
  if not LoggedIn then
    LoginPlayer;
  WaitLoggedIn(2000);
  ProgressReport;
end;

begin
  SetupScript;
  MouseSpeed := (14 + Random(6));
  SetupPlay;
  SetupVars;
  GetInvData;
  SetChat('hide', 1);
  Calibrate;
  Loop := 0;
  MarkTime(t);
  if BankTime then
    BankLoop(2);
  repeat
    HeatLoop(2);
    if (Loop >= 10) then
    begin
      Calibrate;
      Loop := 0;
    end;
    BankLoop(2);
    Inc(Loop);
  until((TimeToRun <> 0) and (TimeFromMark(t) > (TimeToRun * (60 * 1000))));
end.

Seems to work really great, although I got "ERROR: Not enough ores!" after 40 min.

Another thing is, when I smelt runite ores, as you know there are 7 coal remaining as leftovers. When banking, right after it deposits the bars, for some reason it deposits 1-2 of the 7 remaining coals (which is pointless), and then goes for the coal inside the bank to withdraw coal. This is time-consuming and can also look suspicious.

This script makes random event?
Or do not need?

used this script with steel bars and WOW!

Worked for around 4 hours and 30 minutes and made over 5k steel bars (lost proggy sorry) using coalbag.

However it aborted due to the same error as I got earlier: Not enough ores, Even though I had 2k steel bars left to make.

Another thing I noticed is that it can sometimes, in bank, keep shifting the mouse from the coal to the equipment stats many times, before it finally withdraws coal.

Quote:

---

Originally Posted by BGXD

This script makes random event?
Or do not need?

---

Random events do not appear in Daemonheim so there's no need to worry about handling them :D.

But do know that if you teleport back to an area that does such as varrock after this script has been running for an hour+ you will most likely get a random event.

Updated to v0.5! Tweaked some of the timings and it works with all Simba versions :)

Hey Runaway, just tried v0.5, It checked if I had my staff and ring of kinship equipped and I did but it logged out after giving this:

Code:

---

<=----------- Daemonheim Superheater ----------=>
|  Running for: 15 Seconds
|  Superheated: 0 mithril bars
|  Magic XP gained: 0 XP
|  Smithing XP gained: 0 XP
<=---------------------------------------------=>
ERROR: Equip staff of fire and ring of kinship!
Successfully executed.

---

It used to do that before sometimes also. Have you tried reloading it a few times??

Re-loaded it once but i'll be more persistent in the morning.

quick proggie, will post after another. tysm for the script!

Runaways v0.5!
<=----------- Daemonheim Superheater ----------=>
| Running for: 6 Minutes and 42 Seconds
| Superheated: 98 steel bars
| Magic XP gained: 5194 XP
| Smithing XP gained: 1715 XP
<=---------------------------------------------=>

Runaways v0.5!
<=----------- Daemonheim Superheater ----------=>
| Running for: 3 Hours, 31 Minutes and 16 Seconds
| Superheated: 3240 steel bars
| Magic XP gained: 171720 XP
| Smithing XP gained: 56700 XP
<=---------------------------------------------=>
ERROR: Not enough ores!
Successfully executed.

I seem to be getting the same error as chief herb.

The script will go ahead and work GREAT for awhile. The longest progress I have had is about 90 minutes. After a random point it will say "ERROR: Not enough ores!", although there are plenty of ores remaining. Otherwise, I cannot complain! :D

Does anyone know why this may be?

I think the same happened to me after a few hours. Thank you runaway got from 60-68 smithing in a day or two! Last task for Explorer Ring 4: Check!

Quote:

---

Originally Posted by chief herb

Runaways v0.5!
<=----------- Daemonheim Superheater ----------=>
| Running for: 3 Hours, 31 Minutes and 16 Seconds
| Superheated: 3240 steel bars
| Magic XP gained: 171720 XP
| Smithing XP gained: 56700 XP
<=---------------------------------------------=>
ERROR: Not enough ores!
Successfully executed.

---

Quote:

---

Originally Posted by Scorched

I seem to be getting the same error as chief herb.

The script will go ahead and work GREAT for awhile. The longest progress I have had is about 90 minutes. After a random point it will say "ERROR: Not enough ores!", although there are plenty of ores remaining. Otherwise, I cannot complain! :D

Does anyone know why this may be?

---

Quote:

---

Originally Posted by BMWxi

I think the same happened to me after a few hours. Thank you runaway got from 60-68 smithing in a day or two! Last task for Explorer Ring 4: Check!

---

Are you all using a coal bag? I don't get any errors like this when running it without one :o

Quote:

---

Originally Posted by Runaway

Are you all using a coal bag? I don't get any errors like this when running it :o

---

I got it even though I had coal bag. The weird thing is that it can run for a while before it aborts due to "not enough ores".

Another thing is that when superheating rune into bars, there is some coal remaining as leftovers. After depositing the bars, it also deposits 1-2 coals of the leftovers, into the bank, then withdraws all coal which makes the depositing useless and illogical which can look suspicious.
This happens when superheating runite ores.

Otherwise as I said earlier, really nice script.

Quote:

---

Originally Posted by the_mcroer

I got it even though I had coal bag. The weird thing is that it can run for a while before it aborts due to "not enough ores".

Another thing is that when superheating rune into bars, there is some coal remaining as leftovers. After depositing the bars, it also deposits 1-2 coals of the leftovers, into the bank, then withdraws all coal which makes the depositing useless and illogical which can look suspicious.
This happens when superheating runite ores.

Otherwise as I said earlier, really nice script.

---

I remember that happening back when I ran this thing, I edited something out so that having 2 coal in the inventory was alright, so it didn't waste time depositing them and then withdrawing later.

I'm getting this error with mithril bars.

<=----------- Daemonheim Superheater ----------=>
| Running for: 1 Seconds
| Superheated: 0 mithril bars
| Magic XP gained: 0 XP
| Smithing XP gained: 0 XP
<=---------------------------------------------=>
ERROR: Place nature runes in first slot of inventory!
Successfully executed.

My Nature Runes are in the First slot, but it fails anyway.

Quote:

---

Originally Posted by Biggsymallone

I'm getting this error with mithril bars.

<=----------- Daemonheim Superheater ----------=>
| Running for: 1 Seconds
| Superheated: 0 mithril bars
| Magic XP gained: 0 XP
| Smithing XP gained: 0 XP
<=---------------------------------------------=>
ERROR: Place nature runes in first slot of inventory!
Successfully executed.

My Nature Runes are in the First slot, but it fails anyway.

---

NVM: I fixed it, i had 2025 nature runes in the first slot and it kept failing, so i removed the odd 25 nature runes and it worked, not sure why but its working!:)

seems a little choppy and bot like, but it works. :P

EDIT: it's fairly slow, :/ Also it thought it ran out of nats when i had 3k+ ah well, I guess i'll finish my super heater...

Yeah, it's pretty outdated :(

Not sure if I will be updating this or not.

Progress Report:

 Runaways                                  v0.5!
<=----------- Daemonheim Superheater ----------=>
|  Running for: 5 Hours, 42 Minutes and 6 Seconds
|  Superheated: 6522 gold bars
|  Magic XP gained: 345666 XP
|  Smithing XP gained: 146745 XP
<=---------------------------------------------=>

Thanks a lot. (:

W[hy cant withdraw adamantite ores?
Me scripts:

Quote:

---

program DaemonheimSuperheater;

{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Skill/Magic.simba}

var
DungToBank: array[0..1] of array[0..1] of array of Integer;
SteelColor, MithrilColor, AdamantColor, RuneColor: array[0..1] of array of Integer;
OreColor: array of array of Integer;
Uptext, Option: array of array of String;
NPC, BankerColor, NatureColor, CoalBagColor, IronColor, CoalColor, GoldColor: array of Integer;
BankOre: TPointArray;
NPCColor, Superheated, KinColor, StaffColor, SpellColor, RockColor, SmithLevel, MaxCount,
MaxNum, hBank, hUptext, BankFilter, Bag, BagInv, Loop, Mems, t, cx, cy: Integer;
Previous, HeatTime, BankTime, Aligned, Heated, BagDone: Boolean;
BarXP: Extended;

{=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~=|
|=-------------------------------=BEGIN-SETUP=--------------------------------=|
|=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~=}

const
BarToSmelt = 'adamant'; // Valid choices: iron, steel, gold, mithril, adamant, rune
UseCoalBag = True; // Valid with: steel, mithril, adamant, rune
UserPin = ''; // Leave blank if not using a pin
TimeToRun = 360; // Minutes to run the script for (0 to run until stopped)
P2P = False;

---

I change UseCoalBag to False scripts work :(

http://img838.imageshack.us/img838/4328/lolpdn.png
Finally:p

Works flawlessly. :)

Simba Code:

Runaways                                  v0.5!
<=----------- Daemonheim Superheater ----------=>
|  Running for: 5 Hours, 28 Minutes and 36 Seconds
|  Superheated: 5237 steel bars
|  Magic XP gained: 277561 XP
|  Smithing XP gained: 91648 XP
<=---------------------------------------------=>
Successfully executed.

Got another one still running as well ;)

Didn't want to double post but I found something:

When using mithril Simba has a hard time finding the number '20' when withdrawing coal, so I had to change option[1] = '20' to option[1] = '20', '-20 ', 'aw-20 ', 'w-2' <-- You have to keep the first one (option[1][0]) set to '20' because that's the failsafe one that is entered in "withdraw-x"

Runaways v0.5!
<=----------- Daemonheim Superheater ----------=>
| Running for: 1 Hours, 8 Minutes and 48 Seconds
| Superheated: 785 steel bars
| Magic XP gained: 41605 XP
| Smithing XP gained: 13738 XP
<=---------------------------------------------=>

Great script runs smoothly no problems so far :)

is this compatible with the eoc update? i keep getting this.
<=----------- Daemonheim Superheater ----------=>
| Running for: 1 Seconds
| Superheated: 0 steel bars
| Magic XP gained: 0 XP
| Smithing XP gained: 0 XP
<=---------------------------------------------=>
ERROR: Equip staff of fire and ring of kinship!
Successfully executed.
i have them equiped and have 2k nats in my bag.

It probably wont be compatible as the magic menus were all changed. It wont be hard to make a quick fix fom it. I'm gonna be using this in the next few days so if you still havent fixed it and it hasnt been updated for EoC, give me a shout.

i need this aswell, have plenty of ores i mined. now i wanna superheat for freemagic exp

Lol, took me a minute, but I got this working for me :p
You just have to take out the check for the ring and staff, change the color for the spellbook, and change the box for clicking it. That is it. Runs smoothly!
~Rez

Hola peeps!

If there's enough demand, I could possibly give this guy an official re-vamp... it's been a long time :o

Code:

---

Runaways                                  v0.5!
<=----------- Daemonheim Superheater ----------=>
|  Running for: 5 Hours, 25 Minutes and 2 Seconds
|  Superheated: 7592 gold bars
|  Magic XP gained: 402376 XP
|  Smithing XP gained: 170820 XP
<=---------------------------------------------=>

---

For now.
~Rez