SRL Archive - Reflection Development

Hi. This is a simple function that will walk to a tile by clicking on the main screen. I think TileToMS is not working right now so this shouldn't work.

function R_MSWalk(TileX, TileY, Height: Integer): Boolean;
var
  MBox: Tbox;
  MPoint: Tpoint;
  x, y: Integer;
begin
  MBox := IntToBox(MSX1, MSY1, MSX2, MSY2);
  TileToMS(Tilex, Tiley, Height, MPoint.x, MPoint.y);
  if(PointInBox(MPoint, MBox))then
  begin
    MMouse(MPoint.x, MPoint.y, 10, 5);
    GetMousePos(x, y);
    if(IsUpText('alk'))then Mouse(x, y, 0, 0, true)
    else
    begin
      Mouse(x, y, 0, 0, false);
      if(not(ChooseOption('alk')))then
      begin
        Result:=False;
        Exit;
      end;
    end;
    R_Flag;
  end else
  begin
    WriteLn('Tile not on MS');
    Result:=False;
    Exit;
  end;
end;

This has been made… ClickTile

Nice though..! :)

really??…damn

the question is….which one is better??

TileOnMS uses TileToMS in it, so ClickTile uses TileToMS twice when i only use it once ;)

Also, what if what is on the tile is a tree and it clicks chop tree??? Mine would left click and walk to a tile next to the tree. ClickTile would try to chop the tree!