procedure BonesAndFeathers;
begin
if (CollectBones = True) then
begin
Status('Picking up bones and feathers');
if FindObj(x, y, 'eather', 9984, 0) or
FindObj(x, y, 'icken', 7698324, 5) or
FindObj(x, y, 'ones', 14277085, 5) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('ones');
Wait(500+random(1000));
Mouse(x, y, 2, 2, false);
ChooseOption('eather');
if InvFull then
begin
LoadBmps;
repeat
if (FindBitmap(BonesInInv, x, y)) then
Mouse(x, y, 2, 2, false);
ChooseOption('ury');
until(InvEmpty)
FreeBitmap(BonesInInv);
Exit;
end else
DropAll;
end;
end;
end;
Do you really want the dropall in there? cuz that will end up dropping your feathers also…
also
procedure GetChooken;
begin
repeat
Status('Destroying the chook in the bloodiest, most horrific, disgusting and most gruesome way known to man kind')
MakeCompass('N');
Wait(600+random(400));
HighestAngle;
repeat
FindObjCustom(x, y, ['Att', 'ack', 'hick', 'cken'], [Chooken1, Chooken2, Chooken3, Chooken4, Chooken5, Chooken6, Chooken7, Chooken8, Chooken9], 5);
until (IsUpTextMulti('tack', 'ack', 'hick'));
if IsUpTextMulti('tack', 'ack', 'tta') then
if (not(IsFightAt(x, y))) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('ttack');
OutFight;
end else
GetChooken;
if (InFight) then
repeat
Wait(25);
until (not(InFight));
BonesAndFeathers;
Killed:= Killed + 1;
until (Killed >= (Kills))
end;
i would put this part before it starts attacking…
if (InFight) then
repeat
Wait(25);
until (not(InFight));
like right after the first repeat. but its starting to look better and your getting a better grasp on scar and srl gj