SRL Archive - SRL Bugs

findfishspot doesnt click the spot

JPHamlett

2009-06-01 23:55:31

it just goes a havers over it for about 2 seconds then moves on this is how i set it up


procedure fishing;
var
  times : integer;
begin
  repeat
    if findfishspot(xx,yy,players[currentplayer].strings[0]) then
    begin
   {   mouse(xx,yy,3,3,false);
      wait(100 + random(10));
      ChooseOption(players[currentplayer].strings[0]);  }
      times := 0;
      repeat
        wait(1000);
        antibanz;
        findnormalrandoms;
        inc(times);
      until ( times = 5);
      end;
  until (invfull)
end;

Shuttleu

2009-06-02 00:14:38

well why is

mouse(xx,yy,3,3,false);
      wait(100 + random(10));
      ChooseOption(players[currentplayer].strings[0]);

commented out?

procedure fishing;
var
  times : integer;
begin
  repeat
    if findfishspot(xx,yy,players[currentplayer].strings[0]) then
    begin
      mouse(xx,yy,3,3,false);
      wait(100 + random(10));
      ChooseOption(players[currentplayer].strings[0]);
      times := 0;
      repeat
        wait(1000);
        antibanz;
        findnormalrandoms;
        inc(times);
      until ( times = 5);
      end;
  until (invfull)
end;

try that

~shut

JPHamlett

2009-06-02 00:17:19

it was commented out to see if srl clicked the spot itself i was kinda playing with the format of my procedure to but ill give yours a try

tried it same thing happens

Sir R. M8gic1an

2009-07-24 16:12:00

FindFishSpot does ecxactly what it is suppsoed to do… it finds it… it doesn't click it. Look at the source code next time ;)

The reason why it then goes to other spots i guess is because you are looping it.

Also: be sure to be using the latest scar because of the uptext

~RM

JPHamlett

2009-07-24 17:48:48

no i was using it wrong i had


('harpoon');

instead of


('Harpoon');

NCDS

2009-07-24 21:14:33

From: J_Pizzle
no i was using it wrong i had
('harpoon');
instead of
('Harpoon');

hmm, using caps in some strings like that can be reall un-user friendly at times. Instead, maybe try doing:


procedure fishing;
var
  times : integer;
begin
  repeat
    if findfishspot(xx,yy,Lowercase(players[currentplayer].strings[0])) then
    begin
      mouse(xx,yy,3,3,false);
      wait(100 + random(10));
      ChooseOption(Lowercase(players[currentplayer].strings[0]));
      times := 0;
      repeat
        wait(1000);
        antibanz;
        findnormalrandoms;
        inc(times);
      until ( times = 5);
      end;
  until (invfull)
end;

That way no matter how it is typed by the user, it will always read the string as all lowercase and therefor not cause that error.

Sir R. M8gic1an

2009-07-24 21:41:02

it has lowercase() inside of the function, but meh, he says it was some mistake on his side, my guess would be uptext, but no real point in discussing anymore :p

~RM

JPHamlett

2009-07-24 21:59:44

ya especially since i posted this problem like 2 months ago lol