hi i'm working on a autosmelter.but actually i just took the autosmelter from x'can and fixed some things.i'll show the procedure:
Procedure withdrawores;
begin
if bar = 'bronze' then
begin
BankMouse(1,false)
ClickOption('X',1)
repeat
wait(500+random(200))
until (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true)
wait(500+random(50))
sendkeys('1')//this works but not TypeSend or speak or,...
wait(500+random(50))
sendkeys('4')//same for this
wait(124+random(56))
sendkeysvb ('{ENTER}',false)//if TypeSend would work i shouldn't use this
BankMouse(2,false)
ClickOption('X',1)
repeat
wait(500+random(500))
until (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true)
Sendkeys('14')//same for this
wait(124+random(56))
sendkeysvb ('{ENTER}',false)//and this
end;
sendkeys type's really fast so i wan't to use something that is typing like a human.Sumillion told me to use Typesend but when i use that he doesn't type so that's problem 1,if you know a lot of typing procedures and functions plz post them!
then we have the cauting prob!normally i used
repeat
until (invcount=14)but when he gets a saphire or something from a random then he stops smelting to early!so i used
Procedure infurnace;
begin
if (invfull=false) then
begin
writeln('going to bank...')
end
else
begin
antirandoms;
repeat
FindMSColorTol(x,y,furnace,5)
wait(50+random(10))
MMouse(x,y,0,0)
wait(20+random(10))
until IsUpTextMulti('melt','me','lt')
begin
Mouse(x,y,0,0,true)
writeln('found furnace')
wait(500+random(200))
AntiRandoms;
if bar ='bronze' then//when bronze bar!!!
begin
wait(200+random(200))
Mouse(49,430,0,0,false)
wait(1000+random(500))
Mouse(49,430,1,1,true)
wait(500+random(500))
repeat
wait(1000+random(500))
until (FindText(x,y,'Enter amount:',UpChars,MCX1,MCY1,MCX2,MCY2)=true)
wait(24+random(36))
Sendkeys('1')
wait(24+random(36))
Sendkeys('4')
wait(104+random(56))
sendkeysvb ('{ENTER}',false)
repeat
wait(4240+random(500))
GetNewChatMsg;
antirandoms;
until(CountItemBmpTol(BronzeBar, 2)=14)//normally this should count all the bars until he has 14 of them and then he should go back to the bank but he just keeps standing their until he is logged out.
plz help me i have over 10k steel bars to smelt and i've smelted 20k before all by hand.And now i'm bored of it!
end;


Reply With Quote





