best way help

ok i am working on a cow killer. so far it can kill a cow (most the time) and picks up the hide and bones it drops(20% of the time).

here is how i am doing it now. need help making this better or help getting a bitmap find to work in it.

Code:

procedure finditem;
begin
  cowkilled:=false;
  wait(500);
  if(Findcolorspiraltolerance(cowx,cowy,hidecolor,mscx-70,mscy-70,mscx+70,mscy+70,4)
  and  Findcolorspiraltolerance(ncowx,ncowy,meatcolor,mscx-70,mscy-70,mscx+70,mscy+70,7))then
  begin
    wait(10);
    flag;
    Mouse(ncowx,ncowy,5,5,false);
    wait(300+random(100));
    ChooseOption('Bones');
    wait(30);
    flag;
    wait(900+random(100));
    If(Findcolorspiraltolerance(cowx,cowy,cowcolor,mscx-20,mscy-20,mscx+20,mscy+20,7))then
     begin
      Mouse(cowx,cowy,5,5,false);
      wait(400);
      ChooseOption('Cowhide');
      wait(10);
      flag;
    end;
  end;
end;

 

I should add more randomness like

Code:

wait(500+random(1000));

Also, the "wait();" function will let the mouse wait the amount of MILISECONDS you filled in between the (). So like you have in your script the "wait(10);" is only a 1/100 of a seconds which is almost nothing.

 

ty! i will fix but right now i am looking to make it so it will pick up the items droped better then just 20% of the time. i made this script in 10mins so it needs work but tell i plan to run for more then 1 min or 2 i dont think i need to hide it from the man lol.

 

If you would make the "wait();" a little longer I think it would function better. I think your script is to fast.

 

well right now it is finding the meat that dont have any bones or hide under them so any ideas how to fix that

 

just use smart w\ reflection :S