From: Home
Lumbridge Sheep Shearer.
~ Requirements:
- F2P or P2P.
- Shears & Ring of kinship.
- Skill Requirements None.
~ Description:
Shear sheeps at Lumbride Farmer Fred's sheep pen.
Use Ring of kinship to teleport Daemonheim.
Walk to Daemonheim bank and deposit Wools.
Teleport to Lumbridge using Home Teleport and walk back to Farmer Fred's sheep pen.
Script Info:
{ IDs }
SheepPenGateID = 45208; { Closed Gate. OBJ_WALLOBJECT }
SheepIDs = [5160, 1765, 43, 5161, 5157, 5156] { Correct Sheep IDs No Bad Sheeps Included }
{ Tiles }
SheepPenGateTile = 3213, 3262;
Ref2: if anyone wants to use this, here is a quick script that i put together.
program new;
{$DEFINE SMART}
{$I SRL/SRL.scar}
{$I SRL/SRL/Skill/Magic.scar}
{$I Ref/Reflection.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Pin := ''; // Bank Pin
Active := True;
end;
end;
function W_AttackMonsterID(ID:TVariantArray;height:integer):boolean;
var
NPC: TNPC;
TP:tpoint;
begin
if(R_FindNPCMulti(ID, false, NPC))then
begin
if(R_tileonMS(NPC.Tile,height))then
begin
TP := R_TileToMS (NPC.Tile, height);
mouse(tp.x-5,tp.y-10,8,12,true);
if(R_GetCrossHairColor=Crosshair_red)then
begin
status('Attacking Target');
result:=true;
end;
end else
if(R_tileonMM(NPC.Tile))then
begin
TP := R_TileToMM (NPC.Tile);
mouse(tp.x,tp.y,4,4,true);
findnormalrandoms;
status('Moving to Attack Target');
R_fflag(1);
W_AttackMonsterID(id,height);
end;
end else
result:=false;
end;
function W_WalkToPoint(x,y,dist:integer):boolean;
var
TP: TPoint;
begin
if(R_TileOnMM(point(x,y)))then
begin
TP := R_TileToMM (point(x,y));
Mouse (TP.x, TP.y, 7, 7, True);
wait(500+random(200));
findnormalrandoms;
R_fflag(dist);
result:=true;
end else
result:=false;
findnormalrandoms;
end;
function W_ClickTile(x,y,height,xoff,yoff,xrand,yrand:integer):boolean;
var
TP: TPoint;
begin
result:=false;
if(R_TileOnMS(point(x,y),height))then
begin
TP := R_TileToMS(point(x,y), height);
Mouse(TP.x+xoff, TP.y+yoff, xrand, yrand, True);
if(R_GetCrossHairColor=Crosshair_red)then
begin
R_flag;
result:=true;
end;
end;
end;
function atLumby(): boolean;
begin
result := r_distanceFromTile(point(3221, 3218)) < 10;
end;
function atD(): boolean;
begin
result := r_distanceFromTile(point(3446, 3698)) < 10;
end;
procedure WalkToSheep();
var
TempObj: TRSObject;
begin
if(atLumby)then
begin
W_walktopoint(3232,3220,2);
W_walktopoint(3232,3226,2);
W_walktopoint(3227,3232,2);
W_walktopoint(3223,3238,2);
W_walktopoint(3221,3245,2);
W_walktopoint(3218,3252,2);
W_walktopoint(3216,3260,0);
if(R_FindObject(45208,OBJ_WALLOBJECT,10,TempObj))then
begin
W_ClickTile(3213, 3262,0,-20,-4,1,8);
end;
W_walktopoint(3204,3265,0);
end;
end;
procedure ShearSheep();
begin
repeat
if(not(R_animating)) then
begin
if(W_AttackMonsterID([5160,1765,43,5161,5157,5156],30))then
R_flag();
wait(500+random(500));
end;
until(InvFull);
end;
procedure TeleportToD();
begin
if(not(atD))then
begin
if(getcurrenttab<>tab_Equip)then
begin
gametab(tab_Equip);
end;
MouseEquippedItem('ring',2);
R_WaitOption('eleport',800);
while(not(atD))do
begin
wait(500+random(500));
end;
wait(500+random(500));
end;
end;
procedure WalkToBank();
begin
if(atD)then
begin
W_walktopoint(3449,3704,2);
W_walktopoint(3449,3712,1);
W_walktopoint(3449,3719,0);
end;
end;
procedure bank();
var
tempNPC:TNPC;
tp: tpoint;
begin
if(R_FindNPC('Fremennik Banker',false,tempNPC))then
begin
TP := R_TileToMS (TempNPC.Tile, 6);
mouse(tp.x,tp.y,2,2,false);
wait(500+random(500));
mouse(tp.x-60,tp.y+41,120,4,true);
end;
wait(500+random(500));
if(R_BankScreen) then
R_DepositAllBy('Wool');
r_closebank;
wait(500+random(500));
end;
procedure TeleportToLumby();
begin
if(getcurrenttab<>tab_Magic)then
begin
gametab(tab_Magic);
end;
cast('Lumbridge Home Teleport',false);
if(getcurrenttab<>tab_Inv)then
begin
gametab(tab_Inv);
end;
while(not(atLumby))do
begin
wait(500+random(500));
end;
wait(500+random(500));
end;
begin
Smart_Server := 10;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
setupreflection;
declareplayers;
if(not(loggedin)) then LoginPlayer;
repeat
setangle(true);
wait(500+random(500));
walktosheep;
shearsheep;
TeleporttoD;
walktobank;
bank;
teleporttolumby;
until(false);
end.
