and yet they made you a king black dragon, yanix, yanix, yanix…
Yep he is that kind of guy :D :P.
I saw this here…
ChooseOption('Search for traps');
I dont think its gonna work, because choose option uses 3-4 letters.
So it should be:
ChooseOption('earc');
Also, what text do you see when you searched the traps? Whatever, here i fixed the search for traps procedure for you dude :).
Procedure FindChestAndSearch;
var X, Y : Integer;
begin
repeat
if (FindObjCustom(X, Y, ['Open','es t','en che','che'], [3689574,2832975,5658205,3294556], 3)) then
Mouse(X, Y, 1, 1, False);
ChooseOption('earc');
Wait(1000+random(4000));
until(FindBlackChatMessage('It looks like this chest has already been looted.')Or(FindBlackChatMessage('Put The Message That You Get After You Steal The Chest Here')Or(Not(LoggedIn))Or(FindFastRandoms);
end;
I think it will work like that, so it will repeat on trying to find the chest, and it will open it until it sees the text or its not logged in or if it find any randoms.
So here is the script lol :).
{-------------------------------------------------------------------------------]
Releaser-: Yanix
Date Of Release-:
What It Does-: Steals From ANY Chest By First Checking It :)
Comment-: Works With Nat Chest In Ardounge,Others Unknown
Helper(s)-:
[-------------------------------------------------------------------------------}
program UniversalChestTheiver;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Fighting.scar}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username'; // Username
Players[0].Pass := 'Pass'; // Password
Players[0].Nick := 'Nick'; // 3-4 Letters/Numbers Out Of Your Username
{-------------------------------------------Example----------------------------]
Username: Imscaruser
Nick: car
Username: Thisscriptowns
Nick: rip,ript
And So On... :)
[-----------------------------------------------------------------------------}
Players[0].Active := True; // Use This Character?
End;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 12 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If SolveChatRandom Then Result := True;
11: ClickToContinue;
End;
Wait(1);
end;
end;
procedure FixBegin;
begin
HighestAngle;
MakeCompass('N');
end;
Procedure FindChestAndSearch;
var X, Y : Integer;
begin
repeat
if (FindObjCustom(X, Y, ['Open','es t','en che','che'], [3689574,2832975,5658205,3294556], 3)) then
Mouse(X, Y, 1, 1, False);
ChooseOption('earc');
Wait(1000+random(4000));
until(FindBlackChatMessage('It looks like this chest has already been looted.'))Or(FindBlackChatMessage('Put The Message That You Get After You Steal The Chest Here'))Or(Not(LoggedIn))Or(FindFastRandoms);
end;
begin
SetUpSrl;
ActivateClient;
DeclarePlayers;
if(not(LoggedIn))then
LogInPlayer;
FixBegin;
repeat
FindChestAndSearch;
FindFastRandoms;
until(false);
end.