i made a simple script like this its really gay
program MultiBuyer;
{.include SRL\SRL\Misc\SMART.scar}
{.include SRL\SRL.scar}
var
x, y, DTM, I: Integer;
const
Debug = False;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
function OpenBankWg: Boolean;
By: Nicbaz & Wizzup
Description: WithDraws Money
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure DebugATPA(aPoints: T2DPointArray);
var
ClientBMP, I, I2: Integer;
Pic: TBox;
begin
if Debug = false then
Exit;
Pic := GetATPABounds(aPoints);
DisplayDebugImgWindow(Pic.x2 - Pic.x1, Pic.y2 - Pic.y1);
ClientBMP := BitmapFromString(Pic.x2 - Pic.x1, Pic.y2 - Pic.y1, '');
CopyClientToBitmap(ClientBMP, Pic.x1, Pic.y1, Pic.x2, Pic.y2);
for I := 0 to High(aPoints) do
begin
for I2 := 0 to High(aPoints[i]) do
FastSetPixel(ClientBMP, aPoints[i][I2].X - Pic.x1, aPoints[i][I2].Y -
Pic.y1, Random(839894));
end;
SafeDrawBitmap(ClientBMP, GetDebugCanvas, 0, 0);
FreeBitmap(ClientBMP);
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function Find: Boolean;
By: Nicbaz
Description: FindS the keeper
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function Find(color: integer; text: string): Boolean;
var
TPAs: TPointArray;
TPA: Tpoint;
D2TPA: T2DPointArray;
X, Y, I: Integer;
begin
FindColorsSpiralTolerance(x, y, TPAs, color, MSX1, MSY1, MSX2, MSY2, 12);
if length(TPAs) = 0 then
Exit;
D2TPA := TPAtoATPAEx(TPAs, 13, 13);
DebugATPA(D2TPA);
for i := 0 to length(D2TPA) - 1 do
begin
TPA := MiddleTPA(D2TPA[i]);
MMouse(TPA.X, TPA.Y, 0, 0);
Wait(150 + Random(50));
if IsUpText(text) then
begin
X := TPA.X
Y := TPA.Y
Mouse(x, y, 2, 2, false);
Wait(150 + Random(50));
Result := ChooseOption('rade');
Exit;
end;
end;
Result := False;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Function FindBankDe: Boolean;
By: Nicbaz modded by Simtoon
Description: FindS the keeper
Status: Good
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
function FindBankThing(var fx, fy: Integer): Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
H, S, L: Extended;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(1);
if not(FindColorsTolerance(arP, 672086, MSX1, MSY1, MSX2, MSY2, 0)) then
begin
Writeln('Failed to find the color, no object found.');
ColorToleranceSpeed(tmpCTS);
Exit;
end;
arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);
for i := 0 to arL do
begin
ColorToHSL(arC[i], H, S, L);
if (H >= 12.04) and (H <= 12.08) and (S >= 79.15) and (S <= 79.19) and (L >= 18.80) and (L <= 18.84) then
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 5.76) and (X <= 5.80) and (Y >= 5.76) and (Y <= 5.80) and (Z >= 1.08) and (Z <= 1.12) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;
end;
SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);
for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('ank')) then
begin;
Result := True;
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
if (i = arL + 1) then
begin
Writeln('FindObject could not find object.');
Exit;
end;
GetMousePos(fx, fy);
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Procedure Bank;
By: Simtoon
Description: Banks
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure BankFlour;
Begin
If FindSymbol(x, y, 'bank') then
Mouse(x, y, 3, 3, True);
wait(20000 + random(500));
FindBankThing(x, y);
Wait(2000 + random(500));
Mouse(x, y, 5, 5, True);
Wait(2000 + random(500));
// until(GetColor(306, 41) = 2070783);
Begin
wait(2000 + random(500));
Mouse(407, 239, 1, 1, False);
Status('Banking');
ChooseOption('X');
begin
Wait(1000 + random(300));
TypeSend(IntToStr(27 + random(10)));
end;
end;
end;
{-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Procedure ByTheFlour;
By: Simtoon
Description: Buys Flours
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}
procedure BuyFlour;
begin
DTM := DTMFromString('78DA635CCDC8C090CA8002822DE5C0342394C' +
'FB816C8AA6640038CA86A76035905A82A8C8D8D51D52CC4548361' +
'CE4A202B91809AAD4056127E3500080D07EF');
WriteLn('Finding Symbol');
if FindSymbol(x, y, 'store') then
Mouse(x, y, 3, 3, True);
WriteLn('Clicked Symbol');
wait(2000 + random(500));
repeat
if (Find(8365779, 'alk')) then
Break;
until (GetColor(56, 75) = 2070783);
begin
WriteLn('Opened Shop Screen');
wait(2000 + random(500));
if FindDTM(DTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
WriteLn('buyin the Flours');
//repeat
Mouse(x, y, 1, 1, False);
ChooseOption('X');
//until(invfull);
begin
Wait(1000 + random(300));
TypeSend(IntToStr(27 + random(10)));
end;
end;
FreeDTM(DTM);
case random(3) of
0, 1: Wait(1);
2: CloseWindow;
end;
end;
end;
begin
SmartSetupEx(112, True, True, False);
SetTargetDC(SMARTGetDC);
SetupSRL;
Repeat
BuyFlour;
wait(2000 + random(500));
BankFlour;
wait(2000 + random(500));
until(false);
end.