ok soz here is the code
SCAR Code:
Procedure smeltbars;
begin
if(not(LoggedIn))then Exit;
writeln('going to choose the bars now');
begin
case LowerCase(Players[CurrentPlayer].Strings[0]) of
'bronze':
begin
if(FindColorSpiralTolerance(x,y,2440270,34,436,55,437,10))then
begin
mouse(x,y,5,5,false);
ChooseOption('X');
wait(800+random(500));
Typesend('14');
wait(600+random(300));
writeln('yay we made the bronze bars!!');
wait(1000+random(300));
end else
begin
writeln('crap we didnt make bronze bars logging out now');
logout;
exit;
end;
end;
'steel':
begin
if(FindColorSpiralTolerance(x,y,2440270,574,574,613,575,20))then
begin
mouse(x,y,5,5,false);
ChooseOption('X');
wait(800+random(500));
Typesend('14');
wait(600+random(300));
writeln('yay we made the Steel bars!!');
wait(1000+random(300));
end else
begin
writeln('crap we didnt make Steel bars logging out now...');
logout;
exit;
end;
end;
end;
end;
end;