Won't find smelting symbol

[stein3]

I made a good karid steel smelter, but theres one problem. When I put the hole thing together it will walk half-way to the furnace and then head back to the bank. I'll be posting the script when I get on my other computer. Anything that may be causing this?

{
_______________ ____________ ______________ _____ ____ _____
| | | | | || | | |/ | | ||
| _________| |___ ___| || ________| |___| | | | ||
\ \____________ | | | |/ | |\ | ||
\ | | | | | | | | || | ||
\__________ | | | || |_______ | | | \| || | ||
/|/ / | | | _______/ | | | | \ || | ||
/|/ / | | || |/ | | | | \ ||_| ||
_______/|/ / | | | || | | | | \ ||| ||
| / | | | |_______ | | | | \ ||
|____________/ |__| /___________/ | | /____| \_______||
__________________________________________________
<|Stein's Super Steel Smelter. |>
<|Walk's to furnace, smelts, goes back, banks, |>
<|repeats over and over!!!!! |>
<|_________________________________________________ _|>
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
}
program KaridSmelter;
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xbank.scar}

var
xco,yco:integer;

const
ironore = 2108744;
coalore = 2241588;
rundir = 'E';//direction to run in a fight
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
procedure hide;
begin
SetupSRL
Begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('Friends', 2);
SetChat('On', 3);
SetChat('On', 3);
End;
disguisescar('AOL Instant Messanger')
end;
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
procedure withdrawores;
begin
if findcolor(xco,yco,ironore,75,60,465,291) then
begin
Mmouse(xco,yco,0,0);
wait(100+random(100))
Mouse(xco,yco,0,0,false);
wait(100+random(100))
ChooseOption(xco,yco,'Withdraw X');
wait(2000+random(400))
Typesend('9')
end;
if findcolor(xco,yco,coalore,75,60,465,291) then
begin
Mmouse(xco,yco,0,0);
wait(100+random(100))
Mouse(xco,yco,0,0,false);
wait(100+random(100))
ChooseOption(xco,yco,'Withdraw X');
wait(2000+random(400))
Typesend('18')
end;
closebank;
writeln('Withdrawn Ores');
end;
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
procedure walkfurnace;
begin
MMouse(668+random(20),23+random(15),0,0);
wait(100+random(50));
Getmousepos(x,y);
wait(100+random(50));
Mouse(x,y,0,0,true);
flag;
if (FindSymbol(x,y,'furnace')) or
(FindMMColor(x,y,3047165)) then
begin
MMouse(x,y,2,2);
Mouse(x,y,2,2,True);
Flag;
Wait(2500);
end;
writeln('At Furnace');
end;
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
procedure smelt;
begin
if findcolor(x,y,6447722,59,130,294,264) then
begin
Mmouse(x,y,0,0);
wait(100+random(100));
if isuptext('elt') then
begin
Mouse(x,y,1,1,true);
flag;
Mmouse(233+random(40),388+random(32),0,0);
wait(100+random(100));
Getmousepos(x,y);
wait(100+random(100));
Mouse(x,y,0,0,false);
wait(100+random(100));
chooseoption(x,y,'Smelt 10');
wait(22500+random(2000));
if findcolor(x,y,7237495,564,286,604,317) then
end;
end;
writeln('Smelted 9 Steel Bars')
end;
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
procedure walkbank;
begin
if findcolor(x,y,7237495,564,286,604,317) and
findcolor(x,y,4422981,642,136,673,158) then
begin
Mmouse(x,y,0,0);
wait(100+random(100));
Mouse(x,y,1,1,true);
flag
end;
if (FindSymbol(x,y,'bank')) or
(FindMMColor(x,y,3520475)) then
begin
MMouse(x,y,2,2);
Mouse(x,y,2,2,true);
Flag;
end;
writeln('At Bank');
end;
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
procedure bankbars;
Begin
repeat
OpenBankQuiet('akb');
wait(2000+random(1000));
until(bankscreen);
DepositAll;
writeln('Banked Bars');
End;
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
Procedure Randoms;
Begin
// findrandoms;
wait(10)
UseBoxSolver := True
wait(10)
UseCerterSolver := True
wait(10)
UseSandwichSolver :=True
FindMaze;
wait(10)
Solvepinball;
Wait(10)
if (FindFight) then
begin
RunAwayDirection(rundir);
Wait(8500 + random(3500));
RunBack;
end;
Wait(10);
FindTalk;
end;
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
//11111111111111111111111111111111111111111111111111 111111111111
begin
hide
repeat
randoms
bankbars
randoms
withdrawores
randoms
walkfurnace
randoms
smelt
randoms
walkbank
until(false)
end.
Also, I'm pretty new to good anti-randoms... Can anybody help me with a good anti-random?
ANTIRANDOMSANTIRANDOMSANTIRANDOMSANTIRANDOMSANTIRA NDOMSANTIRANDOMS

[SKy Scripter]

sometimes its because theres people standing above the symbol...



Also, I'm pretty new to good anti-randoms... Can anybody help me with a good anti-random?

here this was by WT-Fawki try this..


{************************************************* ******************************
procedure BoredHuman;
By: WT-Fakawi
Description: Perform2 5-15 times:
* Rotates the cam,
* Moves the mouse around MainScreen,
* If it finds IsUpText('option'), it will Chooseoption('Examine');
************************************************** *****************************}

procedure BoredHuman;
var
i: Integer;
begin
for i := 1 to (3 + Random(11)) do
begin
MMouse(Random(MSX2), Random(MSY2), 0, 0);
if IsUpText('opti') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption(x, y, 'Examine');
end;
FindNormalRandoms;
case Random(6) of
0: SendArrowSilentWait(((Random(2) * 2) + 1), 1000 + Random(200));
1: SendArrowSilentWait(((Random(2) * 2)), 1000 + Random(200));
2: SendArrowSilentWait(((Random(2) * 2) + 1), 200 + Random(200));
3: SendArrowSilentWait(((Random(2) * 2)), 200 + Random(200));
4: SendArrowSilentWait(((Random(2) * 2) + 1), 20 + Random(20));
5: SendArrowSilentWait(((Random(2) * 2)), 20 + Random(20));
end;
FindNormalRandoms;
end;
MakeCompass('N');
SendArrowSilentWait(0, 750 + Random(500));
end;

[rkroxpunk]

or if you're using SRL 3.7 go back to 3.6

[stein3]

I am using 3.6, I never knew there was an update.

It uses findsymbol and looks for smelting, but i also had the if _ or _ then

if findsymbol or findcolor(color on furnace symbol) then
begin
...
...

[stein3]

can anybody find any errors?