Faab68
2012-11-21 06:45:19
Hello guys, I need some help of you.
I'm trying to tweak a script, and have tryed a lot of stuff.
I'm trying to tweak Jeffrey's herblore script. I think the only thing that needs change is the Make all click, which moved to the middle of the screen.
Is that correct? Because nothing else changed (besides the progress bar, which can be solved by making the Wait timer for banking longer, because it will automatically dissapear).
So i think it has something to do with this section of the script (Am i right?)
Could anyone help me with this?
I'm really trying to understand this scripting language but it's pretty hard :P.
Faab :)
I'm trying to tweak a script, and have tryed a lot of stuff.
I'm trying to tweak Jeffrey's herblore script. I think the only thing that needs change is the Make all click, which moved to the middle of the screen.
Is that correct? Because nothing else changed (besides the progress bar, which can be solved by making the Wait timer for banking longer, because it will automatically dissapear).
So i think it has something to do with this section of the script (Am i right?)
procedure Mix;
var
FailSafe : Integer;
begin
FailSafe := 0;
InvMouse(14, 3);
ClickMouse2(True);
Wait(RandomRange(600, 700));
InvMouse(15, 3);
ClickMouse2(True);
Wait(RandomRange(200, 300));
MMouse((MCX1+MCX2)/2 ,(MCY1+MCY2)/2 , 5, 5);
while not(IsUpText('All')) do
begin
Wait(RandomRange(20, 40));
Inc(FailSafe);
if (FailSafe > 50) then
begin
Writeln('Couldn''t find the make all button!');
FindNormalRandoms;
Inc(SuperFailSafe);
if (SuperFailSafe > 2) then
begin
Writeln('Oh no we come to a failure!');
Logout;
TerminateScript;
end;
Mix;
Exit;
end;
end;
Writeln(inttostr(failsafe));
ClickMouse2(True);
repeat
wait(100);
Inc(x);
until(x > WaitTimer);
AntiBan;
x :=0;
IncEx(MixedPots, 14);
FindNormalRandoms;
SuperFailSafe := 0;
Inc(LoadsCounter);
end;
Could anyone help me with this?
I'm really trying to understand this scripting language but it's pretty hard :P.
Faab :)