Let me introduce you to
function GetGEPrice(v: variant): Integer;
And
function Withdraw(col, row, Amount: Integer): Boolean;
--
--
Simba Code:
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
Simba Code:
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;
Simba Code:
Profit := profit - astralPrice;
Profit := Profit - vialPrice;
Profit := Profit + (voWPrice * 27);
You forgot to multiply the vial price by 27 and this can be condensed.
Simba Code:
Profit := (VowPrice * 27) - (VialPrice * 27) -AstralPrice);
Simba Code:
repeat
Bank;
Humidify;
until(AllPlayersInactive);
This will go forever because you don't have proper multiplayer support in your script.
Simba Code:
var
Box:TBox;
...
Box := GetTPABounds(TPA);
You never did anything with it...
Simba Code:
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?
Simba Code:
while InvFull do
wait(50 + random(50));
Infinite loop... not good.
WaitFunc(@InvFull, 10, 5000);
Simba Code:
MouseSpeed := 40;
-------
MouseSpeed := 15;
Not very human like to speed up so fast every time you withdraw then slow back down afterwards.
Simba Code:
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:

Originally Posted by
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?
Simba Code:
procedure SetupLogin;
begin
ClearReport;
ClearDebug;
SetupSRL;
ActivateClient;
DeclarePlayers
end;
There isn't a LoginPlayer here or anywhere in this script.
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.