SRL Archive - Simba (Testing) Scripts

function Mining:Boolean;
var
sex, sey:Integer;
begin
if FindObjCustom(sex, sey, ['Mi', 'Min'], [3890561], 20) then
Mouse(sex, sey, 5, 5, true);
end;


FindObjCustom is working fine, it detects the color I inserted. Problem is, it doesn't click it! Just hops around from rock to rock doing nothing. I would like to know what I did wrong, since it won't click.

mouse(x,y,0,0,mouse_left);

Tried replacing

Mouse(sex, sey, 5, 5, true);

with

mouse(x,y,0,0,mouse_left);


Still not clicking :(

then it isnt finding your color

here try this

var
x,y,t:integer;

procedure clicksomthing();
begin
if FindColorspiralTolerance(x,y,(color here),92, 121-50,475, 347-50,71) then
begin
mmouse(x,y,3,3);
if(waitUpTextMulti(['uptext here','uptext here'],800))then
begin
getMousePos(x,y);
mouse(x,y,0,0,mouse_left);
wait (1500+random(300));
end;
end;
end;

Tried to copy pasta your script, added own colors and UpText, but still nothing… Won't even find the rock now :S

Instead of Mouse(x, y, rx, ry, clicktype);
Use
MMouse(x, y, rx, ry)
ClickMouse2(Mouse_Left);

From: Sawyer
Instead of Mouse(x, y, rx, ry, clicktype);
Use
MMouse(x, y, rx, ry)
ClickMouse2(Mouse_Left);

…

procedure Mouse(mousex, mousey, ranx, rany: Integer; button: variant);
begin
  MMouse(mousex, mousey, ranx, rany);
  Wait(60 + Random(30));
  ClickMouse2(button);
  Wait(50 + Random(50));
end; 

You should learn TPA/ATPAs to create much more accurate object finding methods. However, as you noticed it found the colors, but didn't click a single one. It is most likely an uptext problem. (Simba isn't great friends with capitals)

Try this:

function Mining:Boolean;
var
  sex, sey:Integer;
begin
  if FindObjCustom(sex, sey, ['Mi', 'Min', 'ine', 'Mine'], [3890561], 20) then
    Mouse(sex, sey, 5, 5, true);
end; 

Sometimes capital letters do cause issues.