Hero
2011-12-12 22:54:53
So I saw someone talking about working on this project and I then decided to try my hand at it and see if anything I am reading is sinking in. This is just an attempt at a script that could be improved(should be improved :p)
DISCONTINUED
It includes:
SMART(removed for temp time)
Login
Simple Antiban
Loots both chests for gold and a nature rune.
Requirements: 43 Thieving to steal from the chests.
Start the script anywhere upstairs in the house east of the Ardougne Baker Stall
Until I add autocolor finding you might have to upadte the color of the chest. Use the top left brown part. :P
I am open to any suggestions of improvements.
DISCONTINUED
It includes:
SMART(removed for temp time)
Login
Simple Antiban
Loots both chests for gold and a nature rune.
Requirements: 43 Thieving to steal from the chests.
Start the script anywhere upstairs in the house east of the Ardougne Baker Stall
Until I add autocolor finding you might have to upadte the color of the chest. Use the top left brown part. :P
program ArdyChestThiefV1.1;
//{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
const
chestcolor=4413540;//If not finding chest update this.
// Update using left side of the top chest(autocolor later).
Procedure DeclarePlayers;// Enter your information if you want it to automatically log in etc.
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure Start;
Begin
If(Not(LoggedIn))then
LogInPlayer;
Writeln('Please start in the second floor room with the chests.');
Wait(RandomRange(1000, 1500));
FindNormalRandoms;
SetAngle(true);
end;
procedure AntiBan; //Basic Antiban credit to antiban tuts and such.
begin
if(not(LoggedIn))then
Exit;
case Random(20) of
0:
begin
HoverSkill('Thieving', false);
wait(2453+Random(432));
FindNormalRandoms;
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
3: ExamineInv;
end;
end;
procedure LootChests;//Find either chest when full and loots. If not it will post in debug.
var
x, y : Integer;
begin
if not LoggedIn then Exit;
if FindObjCustom(x, y, ['Ope', 'hest'], [chestcolor], 0) then
begin
MMouse (x, y, 3, 3);
Wait(100+ Random(100));
Mouse (x, y, 0, 0, false);
Wait(200+ Random(100));
ChooseOption('Search for traps Chest');//Clicks Chest
Wait(4000+ Random(100));
Writeln('Looted!');
FindNormalRandoms;
Wait(200+ Random(100));
end else begin
if FindObjCustom(x, y, ['pen', 'hest'], [chestcolor], 0) then
begin
MMouse (x, y, 3, 3);
Wait(100+ Random(100));
Mouse (x, y, 0, 0, false);
Wait(200+ Random(100));
ChooseOption('Search for traps Chest');//Clicks Chest
Wait(4000+ Random(100));
FindNormalRandoms;
Writeln('Looted!');
Wait(200+ Random(100));
end else begin
if IsChatBoxTextAnyLine ('ooted',clBlack) then //failsafe? Stops spam looting or if someone else is there looting.
begin
Wait(4000+ Random(100));
writeln('Something is wrong. Logging out.');
Logout;
TerminateScript;
end else begin
writeln('Both chests are currently empty, waiting...');
end;
end;
end;
end;
begin
ClearDebug;
Setupsrl;
Activateclient;
DeclarePlayers;
Start;
Antiban;
repeat
Setangle(true);
LootChests;
until (AllPlayersInactive);
TerminateScript;
end.
Future Additions I would like to add or work out:
Support for both chests
Failsafes
Better Chest finding method
Progress report to track exp and total income*anyone have tips*
World switching if there are players at the chest
Multiplayer
AutoColor
Support for both chests
Failsafes
Better Chest finding method
Progress report to track exp and total income*anyone have tips*
World switching if there are players at the chest
Multiplayer
AutoColor
Version 0.1 - Very basic script to steal from the Ardy chest.
Version 1 - Updated Chest finding method and added the other chest.
Version 1.1 - Added a very basic fail safe to prevent the script from just spam clicking.
I am open to any suggestions of improvements.