SRL Archive - First Scripts

i used a template from another script i saw and i made this one

program Teastealer;

{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}


var
x,y: Integer;
Text: TStringArray;

procedure taketea;
begin
repeat
If P07_FindObjCustom(x, y, ['tea', 'stall'], [8618893], 2) Then
ClickMouse2(mouse_left);
Wait(RandomRange(6000,9000))
until(P07_InvFull)
end;

procedure Droptea;
begin
If P07_InvFull Then
P07_DropAll;
Wait(200 + Random(100))
end;

begin
SetupP07Include;
repeat
taketea;
Droptea;
until(false);
end.