SRL Archive - RS3 Outdated / Broken Scripts

Hey ppl ive been working on this script for about 2 weeks and i need your help!!

ive done alot to the script with help from people (ive credited in script) but i still need feedback to ask what things i could add to the script thx!!

only works with steel for now

works with scar
3.15
rev 16

can make all the bars now!!!!!!!!!!!!!!!!!!

removed

Just A Suggestion :D

function TypeXAmount(Amount:string) : boolean;
//by bEnJaa
var
  Asterisk, ax, ay : integer;
begin
  Asterisk := DTMFromString('78DA63646264605803C440C0C400030D0CFC4' +
       '01224FA1F0818FF33E05503028C2C40D63AFC6A00504B08C6');
  if (not LoggedIn) then exit;
  repeat
    Wait(200+Random(100));
  until FindDTM(Asterisk, ax, ay, MCX1, MCY1, MCX2, MCY2);
  TypeSend(Amount);
  Wait(500+random(100));
  Result := True;
end;

eg.

TypeXAmount('9');//for iron
....
TypeXAmount('18')//for coal

This little function is for after the dtm has been right clicked, and option Withdraw X has been selected. It waits the perfect amount of time until the asterisk appears in the chat screen, meaning the amount is ready to be input :)

Use it if you want :D

looks good :)

It looks like you know/tried to get your standards right but there still a little bit off. Standards!

keep it up!

@benjaa - you never freed the DTM!! :( not good.

repeat
  Wait(200+Random(100));
until findtext(mx,my,'mount',upchars,240,380,320,420); 

:)

hey thx muck ive been trying to add cases so that it will smelt all the types of bars but im having soo much problems with the withdraw ores procedure lol

updated to chinesesmelter 3 can make all the bars now but still need abit of work on the bank bars

procedure responder;
begin
  if (InChat('smelting') or InChat('lol') or InChat('smithing'))then
  case Random(200) of
    0 : TypeSend('im smelting '+Players[CurrentPlayer].Strings[0]+' bars');                          
    1 : TypeSend('im making '+Players[CurrentPlayer].Strings[0]+' bars');
    2 : TypeSend('smelting is soo boring!!!');
    3 : TypeSend('10k more to go...');
    4 : TypeSend('after this im going to make alot of money!!!!');
    5 : TypeSend('...i cant take this anymore!');
    6 : TypeSend('i need to get 99 smithing!');
    7 : TypeSend('99 smithing is my dream');
  end;
end;

Just to make it a bit more accurate :D
eg. "im making mithril bars"

Make a procedure named ScriptTerminate, SCAR calls it when the script stops, so you can free your DTMs in there.

updated to chinese smelter 4!!!!!!!!

thank you to the guy who stole my acc can i pls ahve it back now?!?!?!