Quote:
{the chinese smelter}
{this script was made by the chineseman and i would not like you to use it
and post it as your own if you want to use the functions then use them but credit me thx!}
{to use this you must set up your players at fally west bank and have ores in the top
half of bank screen}
{Credits To: NaumanAkhlaQ for the openfurnace procedure}
program thechinesesmelter;
{.include srl/srl.scar}
var
IronDTM,CoalDTM,SteelDTM,x,y : Integer;
const
Time = 50; // Time in seconds taken to smelt a whole inv of steel
procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '??????'; //username
Players[0].Pass := '????'; //password
Players[0].Nick := '????'; //3-4 letters from your username
Players[0].Active := true;
{add more players if you want}
end;
procedure antiban;
begin
case random(100) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('smithing', False);
3: AlmostLogout;
end;
end;
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms; // find random events
if FindFight then RunTo('N',True); // if a fight is found, run to the north and run far (will run back automatically)
end;
procedure DTMforores;
begin
CoalDTM := DTMFromString('78DA63AC626260B06264400636369A0CAC4 01' +
'A24FA1F08185B816A0C51D540646124906E02AA7124A02687 0835' +
'D940352604D41403D5E8E25703006EB808DF');
IronDTM := DTMFromString('78DA63EC65626008606440061E3A8A0CFC4 01' +
'A24FA1F0818416A6251D518282880699828631D508D1FAA1A 982C' +
'5C4D27508D13013533816AFC09A8990A54138E5F0D0026E40 A65');
SteelDTM := DTMFromString('78DA63BCCEC4C0709C9101194C6C6F63E00 2D' +
'220D1FF40C0F800A8E600AA1A882C8C04D2F7806ACE105073 1EA8' +
'E63C116A0E13507315A8662F7E3500D8670F72');
end;
procedure withdrawores; // By NaumanAkhlaQ
Begin
OpenBankFast('fwb');
If BankScreen Then
Begin
If FindDtm(IronDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(x, y, 1, 1, False);
ChooseOption('X');
wait(1000+Random(2000));
TypeSend('1');
end;
Begin
If FindDtm(CoalDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(x, y, 1, 1, False);
ChooseOption('X');
wait(1000+Random(2000));
TypeSend('2');
end;
end;
end;
FTWait(2+Random(3));
findnormalrandoms;
end;
procedure banktofurnace;
Begin
if not(loggedIn) then exit;
if not RadialRoadWalk(6913668, 50, 38, 71, 0, 0) then
RadialRoadWalk(6979974, 46, 58, 72, 0, 0);
if (FindSymbol(x, y, 'furnace')) then
begin
Mouse(x, y, 5, 5, True);
Writeln('Found the furnace');
end else Writeln('Could not find furnace');
If (FindObjTPA(X, Y, 1121670, 15, 3, 5, 5, 1, ['melt', 'nace'])) then
Mouse(x,y,5,5,true);
end;
procedure furnacetobank;
begin
if not(loggedIn) then exit;
if not RadialRoadWalk(6913668, 296, 283, 74, 0, 0) then
RadialRoadWalk(RoadColor, 299, 286, 74, 0, 0);
if (FindSymbol(x, y, 'bank')) then
begin
findnormalrandoms;
Mouse(x, y, 5, 5, True);
Writeln('Found the bank');
end else Writeln('Could not find the bank');
end;
procedure OpenFurnace;
var
x, y, Mark:Integer;
begin
MarkTime(Mark);
repeat
if (not (LoggedIn)) then Break;
if (FindColorTolerance(x, y, 1914018, MSX1, MSY1, MSX2, MSY2, 20)) then
begin
MMouse(x, y, 2, 2)
if (IsUpText('mel')) then
Mouse(x + Random(15), y, 2, 2, True);
end;
Wait((1500) + Random(1500));
until ((FindColorTolerance(x, y, 9343516, 33, 368, 33, 368, 20)) or
(TimeFromMark(Mark) > (60000)));
end;
procedure choosesteel;
begin
if (not(Loggedin)) then exit;
If FindDTM(SteelDTM, x, y, MCX1, MCY1, MCX2, MCY2) Then
begin
Mouse(x, y, 5, 5, False);
Wait(800+Random(800));
ChooseOption('All');
wait(1000);
end;
end;
procedure bankbars;
Begin
if (not(Loggedin)) then exit;
OpenBankFast('fwb');
If BankScreen Then
Begin
If FindDtm(IronDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(x, y, 1, 1, False);
ChooseOption('X');
wait(1000+Random(2000));
TypeSend('10');
end;
procedure mainloop;
Begin
if not withdrawores then exit;
if not banktofurnace then exit;
if not furnacetobank then exit;
if not bankbars then exit;
can anyone one help?