Reflection/Simba Finding/Clicking Objects

[HarryJames]

I'm tired, it's late.

How do I correctly implement finding an object and then clicking it?

program FightCaveRunner;
{$DEFINE SMART}
{$i SRL/SRL.scar}
{$i Reflection/Reflection.simba}

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin
Name := '';
Pass := '';
Nick := 'ake';
Active:=True;
end;
end;

var
playerAtCaves : boolean;
tmp : integer;



Procedure atCaves;
begin
if (DistanceFrom(Tile(2438, 5168)) < 6) then
begin
writeln('We''re at the caves!');
playerAtCaves := True;
end else
begin
writeln('looks like we''re not at the caves');
playerAtCaves := False;
end;
end;

Procedure findCaveEntrace;
var
entrance: TNPCArray;
cavePoint: TPoint;

Begin

// tmp := GetObjectAt(Point(2439,5167),0).ID;
// writeln(tmp);// Gets object ID at a certain point
entrance := SortNPCs(GetNPCs(9356));
cavePoint := Tile(2439,5167);
Mouse(cavePoint.x, cavePoint.y, 10, 10, False);


End;


{
Notes for me!

ID: 9356 should be the entrace
writeln('Object ID:'+ GetObjectAt(Point(2438,5167),0).ID); Gets object ID at a certain point



}

Procedure MainLoop;
Begin
Smart_Signed := true;
Smart_Server := 34;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
findCaveEntrace;
//writeln(GetMyPos);
//wait(3000);
//writeln(GetMyPos);
end;

begin
MainLoop;
end.

Why is this not working?
Thanks <3

[TomTuff]

It's not working for several reasons

The "CavePoint" you've designated is the Reflection tile, not the onscreen coordinate. Use TileToMS or TileToMSEx to make an onscreen coordinate from a TTile.
There's no point in using a TNPCArray if you already know the tile.
Are you sure it's an NPC? I'm pretty sure the cave entrance would be an Object (TRSObject).



function EnterCave: Boolean;
var
i: Integer;
Objs: TRSObjectArray;
Pt: TPoint;
begin
if not(LoggedIn) then
Exit;
Objs := SortObjects(GetObjectsByID(9356, OBJECT_TYPE_INTERACTABLE,10));
for i := 0 to High(Objs) do
begin
if (Objs[i].Tile <> Tile(2439, 5167)) then
Continue;
if not(TileOnMS(Objs[i].Tile, 0)) then //May have to use Objs[i].RealTile instead
if not(WalkToTile(Objs[i].Tile, 2, 0)) then
Continue;
Pt := TileToMS(Objs[i].Tile, 0);
MMouse(Pt.x - 10, Pt.y - 10, 20, 20);
if R_WaitUptextMulti(['your uptexts here'], 900) then
begin
Wait(50 + Random(80));
ClickMouse2(False);
Wait(50 + Random(80));
Result := r_WaitOptionMulti(['your choose options here'], 900);
end;
if Result then
Break;
end;
for i := 0 to High(Objs) do //
Objs[i] := NULL_RSOBJECT; //These 3 lines should prevent memory leaks
SetLength(Objs, 0); //
end;

[HarryJames]

Yeah sorry, I totally forgot about objects!

I'm reasonably new to reflection, and I didn't know how each 'thing' (entity?) was treated.

I'm gonna copy/paste (edit uptext etc) to suit my needs, then i'll credit you if that's alright?

[TomTuff]

Yeah sorry, I totally forgot about objects!

I'm reasonably new to reflection, and I didn't know how each 'thing' (entity?) was treated.

I'm gonna copy/paste (edit uptext etc) to suit my needs, then i'll credit you if that's alright?

Sure, but read through the code and make sure you understand it, you need to know arrays to properly use reflection.

[HarryJames]

I'm pretty good with Java/C++/Python so I know how Arrays work, I think i'm about there when it comes to the reflection arrays.

I'm presuming that 'High(array)' in a loop will do it until the last array object?

[Echo_]

That's correct, "0 to High" just iterates through each array value and performs the procedure. Also, you should take a look through this tutorial, it is good for people who are beginning to learn reflection.

http://villavu.com/forum/showthread.php?t=59400