SRL Archive - Research & Development Lounge

It didn't work becouse WalkToTile now uses TPoints so i decided to fix it :)

Function WalkToTileEx(TileX, TileY, XTRandom, YTRandom, FFlag : Integer): Boolean;
Var
T1l : Tpoint;
Begin
T1l.X := TileX+random(XTRandom)
T1l.Y := TileY+random(YTRandom)
  Walktotile(T1l,0,0);
  R_FFlag(FFlag);
end;

umm ok :cartman: .. May want other people to check but I dont think that an 'Ex' uses the other version I think it may be some compatibility issues

From: NaumanAkhlaQ
umm ok :cartman: .. May want other people to check but I dont think that an 'Ex' uses the other version I think it may be some compatibility issues

It does and it works with me.

here you go fixed it up a bit :D

Function WalkToTileEx(Tiles : Tpoint; XTRandom, YTRandom, FlagDis : Integer): Boolean;
Begin
  Tiles.X := Tiles.X+random(XTRandom)
  Tiles.Y := Tiles.Y+random(YTRandom)
  if TileOnMM(Tiles) then
    if Walktotile(Tiles,0,0) then
    begin
      FFlag(FlagDis);
      Result:= True;
    end;
end;

~shut

EDIT: oh wait you wanted it to NOT use TPA's
here you go

Function WalkToTileEx(TileX, TileY, XTRandom, YTRandom, FlagDis : Integer): Boolean;
var
Tiles: Tpoint;
Begin
  Tiles.X := TileX+random(XTRandom)
  Tiles.Y := TileY+random(YTRandom)
  if TileOnMM(Tiles) then
    if Walktotile(Tiles,0,0) then
    begin
      FFlag(FlagDis);
      Result:= True;
    end;
end;

From: Shuttleu

Function WalkToTileEx(TileX, TileY, XTRandom, YTRandom, FlagDis : Integer): Boolean;
var
Tiles: Tpoint;
Begin
  Tiles.X := TileX+random(XTRandom)
  Tiles.Y := TileY+random(YTRandom)
  if TileOnMM(Tiles) then
    if Walktotile(Tiles,0,0) then
    begin
      FFlag(FlagDis);
      Result:= True;
    end;
end;

Now it looks quite much same as mine :)

whoops forgot something

Function WalkToTileEx(TileX, TileY, XTRandom, YTRandom, FlagDis : Integer): Boolean;
var
Tiles: Tpoint;
Begin
  Tiles.X := TileX+random(XTRandom)
  Tiles.Y := TileY+random(YTRandom)
  if TileOnMM(Tiles) then
    if Walktotile(Tiles,0,FlagDis) then
      Result:= True;
end;
 

there you go fixed

~shut

EDIT:

From: antti mies
Now it looks quite much same as mine :)

mines more reliable though