fishing [PRSC]Barb village fly fisher

[Amberleaf]

Start at either fishing spot whilst facing west, make sure you have a fly fishing rod and enough feathers in your bag before you start.

 

You'll need to place the .wav file in your C:\ directory in order for the fatigue alarm to work correctly, if your directory is a different letter then you can adjust this on line 29 PlaySound('c:\siren.wav');

 

F12 to stop the script at anytime.

 

I've hosted it here you'll have to rename it to siren.wav sorry.

http://upit.cc/f/62695f6e.wav

 

[sCAR]//PRSC Barbarian village fisher.

//Amberleaf

//www.scar-divi.com

 

{.include OSI\OSI.scar}

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure Fish;

var x, y, x1, y1: Integer;

begin

repeat

If FindColorSpiral(248, 256, x, y, 16578808, 5, 141, 480, 316) then

begin

MMouse(x, y, 0, 0);

Wait(1000);

GetMousePos(x1, y1);

If FindColor(x, y, 16776960, 2, 2, 90, 24) then

begin

Mouse(x1, y1, 0, 0, True);

Wait(1000);

end;

end;

If FindColor(x, y, 65280, 242, 250, 300, 321) then //Alarm

begin

PlaySound('c:\siren.wav');

Wait(1000);

TerminateScript;

end;

If FindColor(x, y, 16776960, 242, 250, 300, 321) then //Move 5 minute warning

begin

MMouse(302, 178, 0, 0);

Wait(3000);

GetMousePos(x, y);

Mouse(x, y, 0, 0, True);

Wait(2000);

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

until FindColor(x, y, 65280, 152, 312, 152, 312);

end;

 

 

begin

SetupOSI;

repeat

Fish;

until GetKeyState(VK_F12);

end.[/sCAR]

Edited November 17, 2012 by Amberleaf