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)
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
Code: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
Code: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.



)
Reply With Quote










