Gratz on release, looked over a it a bit, a few points to consider:
Simba Code:
WriteLn('Checking to see if successfully entered.');
wait(1500+random(100));
WriteLn('Successfully entered!');
It doesn't actually check anything so what's the point? if you wanted to check, use
Simba Code:
if bankscreen then
result := True;
obv turn igetbank into a function aswell
Simba Code:
repeat
TypeSendEx('1', False);
Wait(RandomRange(350, 525));
until InvCount = 0;
Is an infinite loop, what if u get a spin ticket or w/e. You also need to check that the chat isn't active and the eoc bar is up.
So i'd recommend doing something along the lines of:
Simba Code:
procedure iBuryBones;
var
b: Integer;
begin
if not IsActionBarOpen then ToggleActionBar(True);
if PlayerChatActive then
begin
PressKey(13);
Wait(150+random(200));
PressKey(13);
end;
Marktime(b);
repeat
TypeSendEx('1', False);
Wait(RandomRange(350, 525));
FindSpinTicket();
until InvCount = 0 or TimeFromMark(b) > 30000;
end;
You also don't have any checks what so ever for actually having bones. You should add checks in bank for making sure they have bones to withdraw before you do so and you need to makesure you have withdraw bones.
Also theres nothing wrong with doing a little work on standards, check out this.
Anyway once again gz on release.