SRL Archive - Non-RuneScape Scripts

SaveTheGoldFish Script

DeiJaiVui

2012-01-12 01:27:07

ave [T]he [G]old[F]ish


Well, thanks to YoHoJo's tutorial, I managed to make a script for the ''Save The GoldFish Game''. Please try it out and let me know how it works. Thanks.

You can play it here: http://www.i-am-bored.com/bored_link.cfm?link_id=10574

YoHoJo

2012-01-12 01:29:23

Aww yeah 2nd script great job!
Next up is a runescape one!

DeiJaiVui

2012-01-12 01:30:50

From: YoHoJo
Aww yeah 2nd script great job!
Next up is a runescape one!


Thanks, and yes, looking forward to it! :thumbsup:

Taylor

2012-01-14 12:39:06


Made my own version of the script after using his Yohojos tutorial and after ~800 catches, the death limit seems to just go away :p

Here's mine if anyone's interested, I don't think I need to create a new thread for it lol

program SaveGoldfish;

Procedure Start;
begin
  MoveMouse(236, 355);
  ClickMouse(236, 355, 1);
  Wait(500);
  MoveMouse(400, 330);
  ClickMouse(400, 330, 1);
  Wait(500);
  MoveMouse(343, 153);
  ClickMouse(343, 153, 1);
end;

Procedure Save;
var
  fishx,fishy:Integer;
begin
  if FindColorSpiralTolerance(fishx, fishy, 802557, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 936444, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 1070589, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 1204732, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 690943, 7, 81, 261, 249, 15) then
   begin
  MoveMouse(fishx, fishy);
  HoldMouse(fishx, fishy, 1);
  MoveMouse(369,63);
  ReleaseMouse(369,63,1);
  end;
end;

begin
  Start;
  repeat
    Save;
  until(false);
end.

[XoL]

2012-01-14 20:32:17

Great job with the script!
This was a fun game!

From: TaylorV

Made my own version of the script after using his Yohojos tutorial and after ~800 catches, the death limit seems to just go away :p

Oh god, that script was too much for my computer :P 4000 fish, simba wouldn't turn off lol
Had like 5000 lives lol

DeiJaiVui

2012-01-14 20:39:17

From: TaylorV

Made my own version of the script after using his Yohojos tutorial and after ~800 catches, the death limit seems to just go away :p

Here's mine if anyone's interested, I don't think I need to create a new thread for it lol

program SaveGoldfish;

Procedure Start;
begin
  MoveMouse(236, 355);
  ClickMouse(236, 355, 1);
  Wait(500);
  MoveMouse(400, 330);
  ClickMouse(400, 330, 1);
  Wait(500);
  MoveMouse(343, 153);
  ClickMouse(343, 153, 1);
end;

Procedure Save;
var
  fishx,fishy:Integer;
begin
  if FindColorSpiralTolerance(fishx, fishy, 802557, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 936444, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 1070589, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 1204732, 7, 81, 261, 249, 15) or
     FindColorSpiralTolerance(fishx, fishy, 690943, 7, 81, 261, 249, 15) then
   begin
  MoveMouse(fishx, fishy);
  HoldMouse(fishx, fishy, 1);
  MoveMouse(369,63);
  ReleaseMouse(369,63,1);
  end;
end;

begin
  Start;
  repeat
    Save;
  until(false);
end.


Haha nice, maybe we could become scripting buddies! :)

From: R4nd0m
Great job with the script!
This was a fun game!


Thanks for the feedback! :D

goodyou

2012-02-12 01:10:10

Well, I am a new member of Nice to meet you, you can call me Mary

Wetish

2012-02-14 20:49:11

Works great but isn't humanly at all. I really like it though.