Gunner
05-05-2014, 03:49 AM
Fellas, I'm struggling with the implementation of MouseOffClient. So far I have 2 antiban procedures I'm using within my script.
In my herblore script, I have a main antiban that I call a case random for while potions are mixing, that one (MouseOffClient) I think seems to work fine. However I've written another "mini" antiban for when the production screen is open before clicking "Mix". I'm using MouseOffClient and mainScreen.setAngle in that one. The setAngle works fine, but the MouseOff is funky.
When called it moves the mouse off the client and then immediately comes right back, every single time. I've looked through the antiban.simba include, and it explains what MouseOff does, but it doesn't say (clearly enough for this noob to understand it) what the integer does. I'm using the same integer (4) as in my main antiban, but it doesn't act the same.
I want the mouse to hang off the client for a greater period of time when called. It would be ok to immediately return once in a while, but not every time.
Here is my main antiban:
procedure Antiban; //stolen code - Thx Ashaman & C0h3n
begin
case Random(60) of
10: MouseOffClient(Random(4));
20: HoverSkill(Skill_Herblore);
30: PickUpMouse;
40: MouseOffClient(Random(4));
50: BoredHuman;
59: SleepAndMoveMouse(Random(100));
end;
end;
And here is my "mini" antiban: (btw, I know how silly a Random (3) is. While testing I want to call an antiban everytime)
procedure productionAntiban;
begin
case Random(3) of
1: MouseOffClient(Random(4));
2: mainScreen.setAngle(MS_ANGLE_HIGH);
end;
end;
And here is where the mini is implemented: (the main is implemented in my main loop)
procedure mixIngredients;
var
produceTimer : TTimeMarker;
begin
produceTimer.reset;
produceTimer.start;
repeat
If not Productionscreen.IsOpen Then
Wait(GaussRangeInt(150, 250));
until (produceTimer.getTime() > 10000) or (Productionscreen.IsOpen);
if Productionscreen.IsOpen then
begin
Wait(GaussRangeInt(150, 250));
productionAntiban;
productionscreen.clickStart;
exit;
end;
if not Productionscreen.IsOpen then
begin
WriteLn('Production screen wont open, takin a break!');
Players[CurrentPlayer].Logout;
TerminateScript;
end;
end;
Since I've written the mini antiban, I haven't been able to verify that my main antiban DOES in fact work properly, so I may just be crazy. But the MouseOff that I'm using was lifted directly from Ashaman's herb script, and I know it hangs off for a while.
Any help is greatly appreciated. Thanks is advance.
In my herblore script, I have a main antiban that I call a case random for while potions are mixing, that one (MouseOffClient) I think seems to work fine. However I've written another "mini" antiban for when the production screen is open before clicking "Mix". I'm using MouseOffClient and mainScreen.setAngle in that one. The setAngle works fine, but the MouseOff is funky.
When called it moves the mouse off the client and then immediately comes right back, every single time. I've looked through the antiban.simba include, and it explains what MouseOff does, but it doesn't say (clearly enough for this noob to understand it) what the integer does. I'm using the same integer (4) as in my main antiban, but it doesn't act the same.
I want the mouse to hang off the client for a greater period of time when called. It would be ok to immediately return once in a while, but not every time.
Here is my main antiban:
procedure Antiban; //stolen code - Thx Ashaman & C0h3n
begin
case Random(60) of
10: MouseOffClient(Random(4));
20: HoverSkill(Skill_Herblore);
30: PickUpMouse;
40: MouseOffClient(Random(4));
50: BoredHuman;
59: SleepAndMoveMouse(Random(100));
end;
end;
And here is my "mini" antiban: (btw, I know how silly a Random (3) is. While testing I want to call an antiban everytime)
procedure productionAntiban;
begin
case Random(3) of
1: MouseOffClient(Random(4));
2: mainScreen.setAngle(MS_ANGLE_HIGH);
end;
end;
And here is where the mini is implemented: (the main is implemented in my main loop)
procedure mixIngredients;
var
produceTimer : TTimeMarker;
begin
produceTimer.reset;
produceTimer.start;
repeat
If not Productionscreen.IsOpen Then
Wait(GaussRangeInt(150, 250));
until (produceTimer.getTime() > 10000) or (Productionscreen.IsOpen);
if Productionscreen.IsOpen then
begin
Wait(GaussRangeInt(150, 250));
productionAntiban;
productionscreen.clickStart;
exit;
end;
if not Productionscreen.IsOpen then
begin
WriteLn('Production screen wont open, takin a break!');
Players[CurrentPlayer].Logout;
TerminateScript;
end;
end;
Since I've written the mini antiban, I haven't been able to verify that my main antiban DOES in fact work properly, so I may just be crazy. But the MouseOff that I'm using was lifted directly from Ashaman's herb script, and I know it hangs off for a while.
Any help is greatly appreciated. Thanks is advance.