SRL Archive - OSR Help

SaveTheGoldFish script help

Timba

2012-03-26 16:05:16

http://www.youtube.com/watch?v=1MoztUSBI6o

Why does my the mouse go all flashy and jumps around everywhere when It catches the fish… Also my script is written exactly like YoHoJo's..

program SaveTheGoldfish;

procedure StartGame;
begin
MoveMouse(238, 356);
ClickMouse(238, 356, 1);
Wait(200);
MoveMouse(381, 326);
ClickMouse(381, 326, 1);
Wait(200);
MoveMouse(345, 155);
ClickMouse(345, 155, 1);
end;

procedure SaveGoldfish;
var
x, y:Integer;
begin
if FindColorSpiralTolerance(x, y, 1471228 , 22, 29, 261, 231, 20) or
FindColorSpiralTolerance(x, y, 869620 , 22, 29, 261, 231, 20) or
FindColorSpiralTolerance(x, y, 1204732 , 22, 29, 261, 231, 20) or
FindColorSpiralTolerance(x, y, 549886 , 22, 29, 261, 231, 20) then
Begin
MoveMouse(x, y);
HoldMouse(x, y, 1);
MoveMouse(371, 50);
ReleaseMouse(371, 50, 1);
end;
end;

begin
StartGame;
repeat
SaveGoldfish;
until(false);
end.

EDIT: Still waiting…..

Timba

2012-03-26 20:51:15

70 views and no one helps.. WTH IS WRONG WITH THIS SCRIPT

YoHoJo

2012-03-26 20:57:24

When posing code, put simba tags around it.

Very weird, try lowering the tolerances from 20 to 10 maybe?

Timba

2012-03-26 20:59:11

From: YoHoJo
When posing code, put simba tags around it.

Very weird, try lowering the tolerances from 20 to 10 maybe?

Already tried that :/ didn't work. And what are Simba tags?

YoHoJo

2012-03-26 21:03:30

Click that picture, then post your code in between the ] [ s

So it looks nice like this


program SaveTheGoldfish;

procedure StartGame;
begin
  MoveMouse(238, 356);
  ClickMouse(238, 356, 1);
  Wait(200);
  MoveMouse(381, 326);
  ClickMouse(381, 326, 1);
  Wait(200);
  MoveMouse(345, 155);
  ClickMouse(345, 155, 1);
end;

procedure SaveGoldfish;
var
  x, y:Integer;
begin
  if FindColorSpiralTolerance(x, y, 1471228 , 22, 29, 261, 231, 20) or
  FindColorSpiralTolerance(x, y, 869620 , 22, 29, 261, 231, 20) or
  FindColorSpiralTolerance(x, y, 1204732 , 22, 29, 261, 231, 20) or
  FindColorSpiralTolerance(x, y, 549886 , 22, 29, 261, 231, 20) then
  Begin
    MoveMouse(x, y);
    HoldMouse(x, y, 1);
    MoveMouse(371, 50);
    ReleaseMouse(371, 50, 1);
  end;
end;


begin
  StartGame;
  repeat
    SaveGoldfish;
  until(false);
end.