hey i'm updating the autosmelter from x'can.I've updated alot of things but i want autocoloring.If i enter the furnace he needs to open it and wait for menu that shows all bars now he needs to get the color of each bar because those colors are almost on each world different.
i'll show the if then statement for steel:
SCAR Code:
if bar ='steel' then
begin//1
InvCount;
if (not(invCount=27)) then
begin
AntiRandoms;
writeln('going to bank...')
MakeCompass('W');
tobank;
whereami;
end
else
begin//2
antirandoms;
begin//3
LowestAngle;
repeat
FindMSColorTol(x,y,furnace,5)
wait(50+random(10))
Mouse(x,y,5,8,false)
until(ClickOption( 'Smelt', 1)=true)
writeln('found furnace')
wait(500+random(200))
AntiRandoms;
end//3
//this is the part
repeat
wait(500+random(200))
until(FindColor(x, y, 7369081, 20, 360, 260, 400))
//7369081 is the color of the middle from the steel bar in the smelting
//menu now i want to auto that color but can t find a tutorial for it...
//if you know plz tell me
Mouse( x, y, 8, 9,false)
wait(1000+random(500))
ClickOption('Smelt X',3)
repeat
wait(1000+random(500))
until (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true)
Sendtext('9'+chr(13))
repeat
wait(1000+random(200))
antirandoms;
CountItemBmpTol(Steel, 20);
until(CountItemBmpTol(Steel, 20)=9)
writeln('all 9 bars are smelted')
end//2
end;//1