Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal
Sign in to follow this  
Amberleaf

[PRSC] karajama Fisher // seller

Recommended Posts

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]

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...