Let me introduce you to
function GetGEPrice(v: variant): Integer;
And
function Withdraw(col, row, Amount: Integer): Boolean;
–
–
function WaitXPIncrease(Time:Integer):Boolean;
var
First,Second,t:Integer;
begin
First := GetXPBarTotal;
MarkTime(T);
repeat
wait(10);
Second := GetXPBarTotal;
if TimeFromMark(t) > Time then
begin
Result := False;
Exit;
end;
until(Second > First);
Result := True;
end;
Can be
function WaitXPIncrease(Time:Integer):Boolean;
var
First,Second,t:Integer;
begin
First := GetXPBarTotal;
MarkTime(T);
While ((TimeFromMark(t) < Time) and (not result)) do
if (GetXPBarTotal >= First) then
result := true
end;
Profit := profit - astralPrice;
Profit := Profit - vialPrice;
Profit := Profit + (voWPrice * 27);
You forgot to multiply the vial price by 27 and this can be condensed.
Profit := (VowPrice * 27) - (VialPrice * 27) -AstralPrice);
repeat
Bank;
Humidify;
until(AllPlayersInactive);
This will go forever because you don't have proper multiplayer support in your script.
var
Box:TBox;
...
Box := GetTPABounds(TPA);
You never did anything with it…
if FindColorsTolerance(TPA,10646381,MIX1,MIY1,MIX2,MIY2,38) then
begin
//writeLn(Length(TPA));
if Length(TPA) > 170 then
begin
Box := GetTPABounds(TPA);
if FindColorTolerance(p.x,p.y,10646381,MIX1,MIY1,MIX2,MIY2,38) then
begin
Why call FindColorTolerance twice?
while InvFull do
wait(50 + random(50));
Infinite loop… not good.
WaitFunc(@InvFull, 10, 5000);
MouseSpeed := 40;
-------
MouseSpeed := 15;
Not very human like to speed up so fast every time you withdraw then slow back down afterwards.
function Humidify:Boolean;
var
TPA:TPointArray;
begin
TypeByte(VK_F4);
if GameTab(tab_Magic) then
begin
Mouse(600,256,5,5,True);
if WaitXPIncrease(2500 + Random(500)) then
begin
Profit := profit - astralPrice;
Profit := Profit - vialPrice;
Profit := Profit + (voWPrice * 27);
Wait(1250 + Random(1000));
Proggy;
end;
end;
end;
A function with no result…
And not a single FindNormalRandoms was called. (yes it as at sw but there are spin tickets, those rocks, and other stuff)
E:
From: Vinyl Scratch
Sin, you left an unused variable, inb4nebula.
Didn't even see this. I was making this post while you said that. Were you referring to the box or is there more?
procedure SetupLogin;
begin
ClearReport;
ClearDebug;
SetupSRL;
ActivateClient;
DeclarePlayers
end;
There isn't a LoginPlayer here or anywhere in this script.
Mouse(600,256,5,5,True);
That is how you click the humidify button. Not its blue color, a DTM, or edge color counting. A static click. The thing is like 11x11, use a higher randomness if anything.
