Jhangir
2011-12-10 12:10:59
Credits to r4nd0m for doing most of the script
I need help with
FindObjCustom(x, y, ['master_farmer'], [0, 0, 0, 0], 10);
How do I find the correct coords
program Jhangir_Master_Farmer;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i sps/sps.simba}
Var
x, y :Integer;
WalkHome: TPointArray;
Ver : String;
Const
Version = 1;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // This is the player to start with
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username;
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
procedure Antiban;
begin
case Random(60) of
20: HoverSkill('Thieving', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
Writeln('Antiban in action!');
end;
procedure AntiRandom;
begin
FindNormalRandoms;
LampSkill := 'thieving';
LevelUp;
Writeln('Checking for randoms');
//FindDead
end;
Procedure WalkToFarmer;
begin
Writeln('Died :(');
Writeln('Walking to the Farmer')
WalkHome := [Point(0, 0), Point(0, 0),
Point(0, 0), Point(0, 0), Point(0, 0),
Point(0, 0), Point(0, 0)]
If(SPS_WalkPath(WalkHome)) then
WriteLn('At Stairs');
end;
function FindMaster_Farmer(): Boolean;
begin
repeat
AntiRandom;
if(StrInArr('h dear', ChatBoxTextArray(clMessage)))
then
begin
WalkToHouse;
end;
Antiban;
AntiRandom;
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['master_farmer'], [0, 0, 0, 0], 10);
Mouse(x, y, 5, 5, false);
ChooseOption('ocket');
until false;
end;
procedure Sequence;
begin
SetAngle(true)
SetRun(true)
FindMaster_Farmer;
end;
begin
Smart_Server := 77;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Sequence;
end.I need help with
FindObjCustom(x, y, ['master_farmer'], [0, 0, 0, 0], 10);
How do I find the correct coords