SRL Archive - MSI Suggestions

so last night i was sitting superheating mithril ores with smelting urns for more smithing xp. and theres extra space for urns when smelting mithril ( havent done the simple calculating for other ores)

my idea was then:
you will select what you want to smelt
Have 2 smelting urns in inventory (for less filling% loss when filling urns)
delcare wich kind of quality your urn is
bank full urns until max limit of urns is reach, withdraw and then teleport them
some kind of antiban
maybe and option for the user to choose if the script should stop when runs out of urns
E: have magic tab set to whatever people like

i hope this would be a simple script to make.
maybe i will soon start to look into making my own first script. (dont have the time atm)

peace.

// PeaZzT

i will look into urns and see what they involve, because i didnt understand that^

~shut

alright i will try to explain it then:

you can have a smelthing urn(made by crafting), in your inventory.
then when you smelt an ore, whenever its in a furnace or superheating with the magic spell.
the urn will collect invisible metal scraps and automatic put it in the urn.
you'll get a message when the urn is 1/4 full 2/4 full 3/4 and ofc when 4/4 full.
when the urn is full you can click teleport it away and you will recive 150xp for it.

did this make sence?

// peazzt

Definitely possible; however I won't be getting to it anytime soon as there is too many other things that need to be done. Someone else is welcome to work on it though.

im going to get started on it tonight, besides i have a few thousand coal and iron ores to do

~shut

From: Shuttleu
im going to get started on it tonight, besides i have a few thousand coal and iron ores to do

~shut

sounds great. thanks alot - i hope i'm not the only one who would be happy for this script :)
if you need it tested pm me :)

// PeaZzT

Cool idea, except you should teleport urns right as they get filled because there can only be 10 full urns at a time.

From: litoris
Cool idea, except you should teleport urns right as they get filled because there can only be 10 full urns at a time.

thats what i was planning

have 2 urns then when one gets filled teleport it
then withdraw another

having 2 means that when one gets teleported there will be another one to collect the scraps

~shut

Hey ill like to have a crack at this to willelet you know

Here's what ive got so far set up lines [7..17]

ive still got alot to do will use my friends members account 2morrow to have the urns working

program Untitled;
{$I SRL/SRL.scar}

var x,y,BarsMade,BarCount,Bars,SupaHeatDTM,i:Integer;
Skill: array [1..2] of string;

const  BarType = 'mith'; // mith,steel,iron
       Bars2Do = 999; // how many bars to make
       UrnName = '';

procedure SetupPlayers;
begin
   HowManyPlayers := 1;
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer:= 0;
   Players[0].Name :='USERNAME';
   Players[0].Pass :='PASSWORD';
   Players[0].Active:=True;
   ActivateClient;
   SupaHeatDTM := DTMFromString('mWAAAAHicY2FgYOAAYk4g5gViFiDmB2JuIBaAsk85sDO8rmZm+P37N8O/HzoM6IARDYMAAGb/B/E=');
  case BarType of
  'mith' : BarCount:= 5;
  'steel' : BarCount:= 9;
  'iron': BarCount:= 25;
  end;
end;

procedure GetOres(Fnum,Snum:integer);
begin
  if BarType = 'mith' then
    WithdrawEx(1,0,1,['mi','th']); //mith
    WithdrawEx(0,0,Fnum,['oal']); //coal
    WithdrawEx(3,0,2,[UrnName]); //urns
  if BarType = 'iron' then
    WithdrawEx(0,0,Snum,['ron','or']); //iron
    WithdrawEx(3,0,2,['something','urn']); //urns
  if BarType = 'steel' then
    WithdrawEx(1,0,Snum,['ron','or']); //iron
    WithdrawEx(0,0,Fnum,['oal']); //coal
    WithdrawEx(3,0,2,['something','urn']); //urns
  if BarType = 'addy' then
    WithdrawEx(0,0,Fnum,['oal']); //coal
    WithdrawEx(0,0,1,['mant']); //Addy
    WithdrawEx(3,0,2,['something','urn']); //urns
  if BarType = 'rune' then
    WithdrawEx(0,0,Fnum,['oal']); //coal
    WithdrawEx(0,0,1,['une']); //Rune
    WithdrawEx(3,0,2,['something','urn']); //urns
end;


procedure Bnk;
begin
    OpenBankNPC;
  if BankScreen then
  case BarType of
    'Mith': GetOres(20,5); //.20 coal 1 mith
    'steel': GetOres(16,8); //16 coal 8 iron
    'iron': GetOres(28,2); //25 iron
  end;
   CloseBank;
end;

procedure CheckUrnFull;
begin
end;

 Procedure AntiRandoms;
Begin
end;

procedure AntiBan;
begin
  CheckUrnFull;
  i:=RandomRange(0,1);
 case Random(20) of
  1: RandomMovement;
  3: PickUpMouse;
  4: HoverSkill ((Skill[i]), False);
  5: RandomMovement;
  end;

end;

Procedure Smelt;
begin
    Mouse(744,186,2,2,true);
    wait(4000);
  repeat
    Bars:=Bars+1;
  if FindDTM(SupaHeatDTM,x,y,556,211,708,424)then
    Mouse(x,y,2,2,true);
    MouseItem(28,true);
    Wait(700+RandomRange(550,700));
    BarsMade:=BarsMade+1;
    AntiBan;
  Until(Bars=BarCount);
  Bnk
end;

procedure proggy;
begin
  cleardebug;
  writeln('||----------------------------------------||');
  writeln('||-----------  AIO Smelter  --------------||');
  writeln('||----------------------------------------||');
  writeln('||---------Ran for '+TimeRunning+'--------------||');
  writeln('||-----Bars made : '+IntToStr(BarsMade)+'----------------------||');
  writeln('||-----GOT '+IntToStr((BarsMade*52))+'      MageXp------------------||');
  writeln('||-----GOT '+IntToStr((BarsMade*18))+'      SmithXp-----------------||');
  writeln('||----------------------------------------||');
end;

begin
   SetupSRL;
   SetupPlayers;
   LoginPlayer;
  repeat
   smelt;
  for i := 1 to 2 do
   FreeDTM(i);
   proggy;
  Until(Bars=Bars2Do);
end.