In the FindFire method I recommend setting the wait range a little wider, it seems if the random(100) is small then it wont click the cook button. Did it several times to me before fixing.
in FindFire
Find:
Replace with:Code:If ChooseOption.Select(['> Fire'],800) Then Begin SmartImage.Clear; Wait(Random(100)); MouseBox(IntToBox(293,332,505,348),Mouse_Move,Mouse_Break); T.Reset; T.Start; Repeat Wait(Randomrange(500,1000)); If SkillMenu('cooking',RandomRange(5000,5555)) Then Begin Wait(RandomRange(100,500)); GetMousePos(X,Y); MultiClick(Point(X,Y),50,2); Result:=True; Break; End; If T.GetTime>8000 Then Break; Until Not IsLoggedIn;
Code:If ChooseOption.Select(['> Fire'],800) Then Begin SmartImage.Clear; Wait(Random(100)); MouseBox(IntToBox(293,332,505,348),Mouse_Move,Mouse_Break); T.Reset; T.Start; Repeat Wait(Randomrange(500,1000)); If SkillMenu('cooking',RandomRange(5000,5555)) Then Begin Wait(RandomRange(100,500)); GetMousePos(X,Y); MultiClick(Point(X,Y),50,2); Result:=True; Break; End; If T.GetTime>8000 Then Break; Until Not IsLoggedIn;


Reply With Quote







