PDA

View Full Version : SaveTheGoldFish Script



DeiJaiVui
01-12-2012, 06:27 AM
[S]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
01-12-2012, 06:29 AM
Aww yeah 2nd script great job!
Next up is a runescape one!

DeiJaiVui
01-12-2012, 06:30 AM
Aww yeah 2nd script great job!
Next up is a runescape one!

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

Taylor
01-14-2012, 05:39 PM
http://puu.sh/dnDx.png

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]
01-15-2012, 01:32 AM
Great job with the script!
This was a fun game!


http://puu.sh/dnDx.png

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
01-15-2012, 01:39 AM
http://puu.sh/dnDx.png

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! :)


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

Thanks for the feedback! :D

goodyou
02-12-2012, 06:10 AM
Well, I am a new member of Nice to meet you, you can call me Maryhttp://www.dubaa.info/g.gif

Wetish
02-15-2012, 01:49 AM
Works great but isn't humanly at all. I really like it though.