Question!

[DeSnob]

Since the grounditems in reflection aren't safe to use, I'm thinking about a procedure which turns a point (TPoint or simply an x, y coord) into a tile. I don't know if there's an existing procedure that does this. I need it for my script to pick up the swamp toads (it will find the drop dots on the screen, then slowly turn each into a tile while checking if they are swamp toads or not simply by looking at the respawn tile).

Is there any procedure that does this? If there isn't, can someone create it?

[i luffs yeww]

I think you can get the tile from the minimap, so you could simply mouse the tile and hope for the best, couldn't you? If not, TRiBot (tribot.org) has methods to do this and I could MAYBE port them to Pascal, but it's not really on my to-do list.

[ZephyrsFury]

Perhaps this will work:


{************************************************* ******************************
function MMToMS(MM: TPoint): TPoint;
By: N1ke!
Description: Turns a Minimap point into a close MS point.
************************************************** *****************************}


You probably need to have your camera angle set to highest.

[DeSnob]

I have created the function that does what I wanted. You simply insert the x, y coord of the TPA/object you found on the minimap. For example,
Tilee := MMCoordToTile(Point(TPA.x, TPA.y));
Tilee := TileToMM(tilee);
mouse(tilee.x, tilee.y, 5, 5, true);
The above code snippet will change the point into a tile, and then proceed to click it.

Here's the function.
function MMCoordToTile(OurPoint: TPoint): TTile;
var
PlayerPos: TTile;
NewTileX, NewTileY: Integer;
begin
if (OurPoint.x > MMCX) then
NewTileX := OurPoint.x - MMCX
else if (OurPoint.x < MMCX) then
NewTileX := MMCX - OurPoint.x
else if (OurPoint.x = MMCX) then
NewTileX := 0;

if (OurPoint.y > MMCY) then
NewTileY := OurPoint.y - MMCY
else if (OurPoint.y < MMCY) then
NewTileY := MMCY - OurPoint.y
else if (OurPoint.y = MMCY) then
NewTileY := 0;

PlayerPos := GetMyPos;
Writeln('Current position is ' + IntToStr(PlayerPos.x) + ', '
+ IntToStr(PlayerPos.y) + '.');
if (OurPoint.x > MMCX) then
NewTileX := PlayerPos.x + NewTileX
else if (OurPoint.x < MMCX) then
NewTileX := PlayerPos.x - NewTileX
else if (OurPoint.x = MMCX) then
NewTileX := PlayerPos.x;

if (OurPoint.y > MMCY) then
NewTileY := PlayerPos.y + NewTileY
else if (OurPoint.y < MMCY) then
NewTileY := PlayerPos.y - NewTileY
else if (OurPoint.y = MMCY) then
NewTileY := PlayerPos.y;
Writeln('Point position is ' + IntToStr(NewTileX) + ', '
+ IntToStr(NewTileY) + '.');
Result := Tile(Round(NewTileX+1.5), Round(NewTileY-0.5));
end;

Can someone check the function, and give me some feedback? :)