SRL Archive - Help and Support

need help with this script i'm trying to make my own smelter (now i'm doing only for steel bars) you havbe to place coal in first bankslot iron 2nd).the problem for me is when it reaches furnace…it didn't open so i tryed using the color of furnace it did opened but doesn't select the bar…btw this is the script i started to do

program smeltandbank;
{.include SRL\SRL.Scar}
{.include SRL\SRL\Skill\smithing.Scar}
{.include SRL\SRL\extended\xmapwalk.Scar}

var
furnace1 :boolean;
bank1, dekcheck:boolean;

const

  Furnaces = 1660350; // Orange Color of Furnace

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

     Players[0].Name :='teknodeka';
     Players[0].Pass :='clodette';
     Players[0].Nick :='tek';
     Players[0].Active:=True;

     end;
     
procedure FindsmRandoms;
begin
  FindNormalRandoms;
  FindLamp ('smithing');
  findmaze;
  FindFight;
  FindMod;
  finddead;
  FindName;
  BoredHuman;
  TalkToRand;
 WriteLn('random check');
  if not loggedin then loginplayer;
end;
     
procedure tofurnace;
begin
setrun (true)
furnace1:=false
if (FindSymbol (x ,y ,'cook')) then
mouse(x+8,y+6,0,0,true);
Flag;
writeln('halfway ok');
wait (500+random(300));
if (FindSymbol (x ,y ,'furnace')) then
mouse(x+8,y+6,0,0,true);
Flag;
writeln('arrived');
furnace1:=true
 if (furnace1=false) then
 begin
  if (findsymbol (x,y,'Kebab shop')) then
  mouse(x+8,y+6,0,0,true);
  Flag;
  writeln('halfway ok');
  wait (500+random(300));
  if (FindSymbol (x ,y ,'furnace')) then
  mouse(x+8,y+6,0,0,true);
  Flag;
  writeln('arrived');
  furnace1:=true
 end;
end;

procedure tobank;
begin
bank1:=false;
mouse(660,146,2,2,true);
Flag;
writeln('halfwaybank ok');
wait (500+random(300));
 if (findsymbol (x,y,'bank')) then
 mouse(x,y,0,0,true);
 bank1:=true;
writeln('arrivedbank');
 if (bank1=false)then
  begin
  if (findsymbol (x,y,'quest')) then
  mouse(x+20,y+6,3,3,true);
  flag;
  writeln('arrivedbank');
  end;
 bank1:=true
 end;



procedure banking;
begin
wait (5000+random(500));
OpenBank3;
WriteLn('bank opened');
wait (3000+random(200));
deposit (2, 28 , 2 );
WriteLn('deposited');
closebank;
end;


procedure takingore;

begin
wait (5000+random(500));
OpenBank3;
wait (3000+random(200));
fixbank;
wait (3000+random(200));
Withdraw(1,1, 18);
wait (3000+random(200));
Withdraw(2,1, 9);
closebank;
End;




procedure furnacem;

begin
dekcheck:=false
OpenFurnace;
dekcheck:=true
writeln ('furnace opened');
if (dekcheck=false)then
  begin
writeln ('it did not opened finding another way');
  if findcolorspiral (x,y,furnaces,10,10,350,330) then
   mmouse(x,y,0,0)
   if isuptext('Smelt')then
   begin
   mouse (x,y,2,2,true);
   dekcheck:=true
   end;
  end;
end;

procedure smeltem;

begin
wait (1000+random(100));
writeln ('furnace opened');
MMouse(250,400,2,2)
Wait(200+random(100))
Mouse(225,400,2,2,false)
Wait(100+random(50))
mouse(219,412,2,2,true)
Wait(500+random(50))
HitKeys(true);
Wait(10000+random(1000))
Sleepandmovemouse(10000+random(1000))
Wait(8000+random(1000))
end;


begin
 setupsrl;
 SetUpSRLSmithing;
 declareplayers;
 disguisescar('pacman deluxe');
  repeat
  takingore;
  tofurnace;
  furnacem;
  findsmrandoms;
  smeltem;
  tobank;
  wait(2000+random(100));
  banking;
  until (getskillLevel('smithing')=glvl);
end.

and this is the version that works better for open the furnace

procedure furnacem;

begin
dekcheck:=false
  begin
writeln ('it should open');
  if findcolorspiral (x,y,furnaces,10,10,350,330) then
   mmouse(x,y,0,0)
   if isuptext('Smelt')then
   begin
   mouse (x,y,2,2,true);
   dekcheck:=true
   end;
end;

now i knoe there are missing a lot of thins i know i just want to be sure first it goes and does the right things then i'll try to make all the other options…
any suggestion for let him select steel bars when in the furnace??
tnx in advance

btw he messed up the code :) that's my fault i'm using a mac and it doesn't consider all the spaces and paragraphs in script sorry ;)

Try using bitmaps or DTM's?

tnx arrow….anyone who can explain a bit how bitmaps or dtms are working (i need the why of the things) tnx.