SRL Archive - Script Requests

I'd like one if already made. If not is there anyone here on villavu that wouldn't mind helping me make one? I see how the AutoCow works, but it's a bit complicated for me to learn how to make it loot. I've looked through the guides. Any help would be awesome.

If someone here who can help me doesn't have an account i'd supply one

This is what i have, not sure how to implement the looting.

program Yakkiller;
{$i SRL/SRL.simba}
var
x,y:Integer;

const
Monster = 2699586;


Procedure AttackYak;
begin
if srl_infight = false then
if(FindColorSpiralTolerance(x, y, Monster, MSX1, MSY1, MSX2, MSY2, 4)) then
begin Mouse(x, y, 3, 3, True);
wait(8000)
end;
end;


procedure main;
begin
repeat
AttackYak;
until(false)
end;
begin
ClearDebug;
SetUpSrl;
ActivateClient;
main;
end.