fishing [PRSC] karajama Fisher // seller

[Amberleaf]

Fishes tuna and swordfish and then sells to the shop. Enjoy =]

 

You still need to babysit this as it can't sleep, F6 stop the fishing loop that'll make it easier to stop.

 

[sCAR]//rsc fisher

//amberleaf

 

{.include OSI\OSI.scar}

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure Fish;

var x, y, x1, y1: Integer;

Bmp, Bmp1: TSCARBitmap;

begin

repeat

Bmp1 := TSCARBitmap.Create('deNpjZeBmwAX+//+Pi4tHiiQufpXIAADD2hr2');

Bmp := TSCARBitmap.Create('deNozYOBmGITgPxiMuoege9Ac9h8JYBUhXiMe0' +

'/BoR1NDvINxqSFGEI8Cgj7FKku81cQIEsMeDO4hPqIHm3soTD+kxhcx6YfC/EW' +

'tMocWBRcAYG1EFA==');

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

begin

MMouse(x, y, 0, 0);

Wait(1000);

GetMousePos(x1, y1);

If FindBitmap(x, y, Bmp, 32, 4, 79, 14) or FindColor(x, y, 16777215, 172, 8, 172, 8) then

begin

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

Wait(1000);

end;

end;

until FindColor(x, y, 16777215, 278, 276, 328, 326) or GetKeyState(VK_F6);

end;

 

procedure WalkToShop;

var x, y: Integer;

begin

MMouse(459, 19, 2, 2);

Wait(1000);

MMouse(354, 108, 0, 0);

Wait(500);

GetMousePos(x, y);

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

Wait(11000);

If FindColor(x, y, 65535, 351, 117, 403, 188) then

begin

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

Wait(11000);

MMouse(203, 169, 5, 5);

end;

end;

 

procedure TalkToShopKeeper;

var x, y: Integer;

begin

repeat

If FindColor(x, y, 16645629, 15, 15, 491, 313) then

begin

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

Wait(5000);

end;

until (FindColor(x, y, 16776960, 4, 1, 171, 13) = True);

Mouse(49, 9, 0, 0, True);

Wait(6000);

end;

 

procedure SellFish;

var x, y: Integer;

Bmp: TSCARBitmap;

begin

Bmp := TSCARBitmap.Create('deNrjYmBlWEwECAm1xGS0wQCcTTyjoKAAwi4AA' +

'0wGAM8lSfY=');

If FindBitmap(x, y, Bmp, 60, 73, 450, 241) then

begin

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

end;

If FindColor(x, y, 16777215, 91, 277, 91, 277) or FindColor(x, y, 255, 91, 277, 91, 277) then

begin

repeat

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

until (FindColor(x, y, 255, 91, 277, 91, 277) = False);

end;

If FindColor(x, y, 10708643, 60, 73, 450, 241) then

begin

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

end;

If FindColor(x, y, 16777215, 91, 277, 91, 277) or FindColor(x, y, 255, 91, 277, 91, 277) then

begin

repeat

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

until (FindColor(x, y, 255, 91, 277, 91, 277) = False);

end;

Wait(100);

end;

 

procedure ReturnToFishingSpot;

var x, y: Integer;

begin

Mouse(418, 51, 0, 0, True);

Wait(1000);

MMouse(459, 19, 2, 2);

Wait(500);

Mouse(504, 67, 0, 0, True);

Wait(13000);

If FindColor(x, y, 16777215, 478, 74, 505, 151) or FindColor(x, y, 255, 478, 74, 505, 151) then

begin

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

Wait(9000);

end else

If (FindColor(x, y, 16777215, 478, 74, 505, 151) = False) then

begin

Mouse(502, 125, 0, 0, True);

Wait(10000);

MMouse(282, 168, 0, 0);

Wait(300);

end;

end;

 

 

begin

SetupOSI;

repeat

Fish;

WalkToShop;

TalkToShopKeeper;

SellFish;

SellFish;

SellFish;

ReturnToFishingSpot;

until GetKeyState(VK_F12);

end.

[/sCAR]