Simba Code:
program GEBoxCheck;
{$i srl/srl.scar}
{*******************************************************************************
Procedure WBPointAt;
by: Inf3cti0us with help from RISK
Description:BB# = BuyBag(Slot #) SB# = SellBag(slot #) S#B = Slot(numb #)Bar
it identifies which Slot you are in and what icon you are on as a test ;)
*******************************************************************************}
procedure WBPointAt;
var
{// Some Variables which dont need to be touched either \\}
X, Y: Integer;
P: TPoint;
BB1, BB2, BB3, BB4, BB5, BB6,
SB1, SB2, SB3, SB4, SB5, SB6,
S1B, S2B, S3B, S4B, S5B, S6B: TBox;
begin
{// No Need to change anything to do with these settings they are good \\ }
BB1 := IntToBox(49, 125, 95, 170); SB1 := IntToBox(110, 125, 157, 172);
BB2 := InttoBox(203, 127, 250, 171); SB2 := IntToBox(266, 127, 313, 171);
BB3 := IntToBox(360, 130, 400, 170); SB3 := IntToBox(420, 130, 470, 170);
BB4 := IntToBox(50, 250, 100, 290); SB4 := IntToBox(110, 250, 160, 290);
BB5 := IntToBox(200, 250, 250, 290); SB5 := IntToBox(270, 250, 310, 290);
BB6 := IntTobox(360, 250, 400, 290); SB6 := IntToBox(430, 250, 470, 290);
S1B := IntToBox(41, 163, 166, 177);
S2B := IntToBox(197, 163, 322, 177);
S3B := IntToBox(350, 160, 480, 180);
S4B := IntToBox(40, 280, 160, 300);
S5B := IntToBox(200, 280, 320, 300);
S6B := IntToBox(350, 280, 480, 300);
GetMousePos(X, Y);
P.X := X;
P.Y := Y;
if (PointInBox(P,BB1)) then // If you change BB1 to any BB#/SB#/S#B then should change what it does
begin;
WriteLn('The point is in the Buying Bag Slot1'); // If you are hovering the Buying bag or w.e it will say this
// WriteLn('');
wait(randomrange(500,700))
end else
// WriteLn('');
writeln('The point is not in the Buying Bag in Slot 1!');// If you arent hovering the Buying bag or w.e it will say this
if(PointInBox(P,SB1)) then
begin;
WriteLn('The point is in the Selling Bag Slot 1'); // If you hover the Selling bag or w.e it will say this
wait(randomrange(500,700))
end else
writeln('The point is not in the Selling Bag in Slot 1!')
end;
begin
SetupSRL;
ClearDebug;
wait(randomrange(3000,5000))
WBPointAt;
end.