SRL Archive - First Scripts

It's my first script, but don't be afraid to be harsh on it.

It uses Reflection and colors.

I hope it is good. :o

Overall a pretty good script considering it your first script :)

However,

procedure FixIt;
var
  LeftTile : Tpoint;
begin
  if(FindBlackChatMessage('here.'))then
    Wait(100 + Random(73));
    GetMyPos;
    WalkToTile(LeftTile, 0, 0);
end;

You don't assign the LeftTile to anything meaning it won't move.

You have two walking procedures, you could make them into one.

on Frt's point do:

procedure FixIt;
var
  LeftTile : Tpoint;
begin
LeftTile := (xxxx,xxxx); <-------------------
  if(FindBlackChatMessage('here.'))then
    Wait(100 + Random(73));
    GetMyPos;
    WalkToTile(LeftTile, 0, 0);
end;

Just add that bit ;)

T~M

From: The Man
on Frt's point do:

procedure FixIt;
var
  LeftTile : Tpoint;
begin
LeftTile := (xxxx,xxxx); <-------------------
  if(FindBlackChatMessage('here.'))then
    Wait(100 + Random(73));
    GetMyPos;
    WalkToTile(LeftTile, 0, 0);
end;

Just add that bit ;)

T~M

I think what he intended was something like:

procedure FixIt;
var
  LeftTile : Tpoint;
begin
  if(FindBlackChatMessage('here.'))then
    Wait(100 + Random(73));
    LeftTile := GetMyPos;
    WalkToTile(Point(LeftTile.x + 1, LeftTile.y), 0, 0);
end;

OH, ok sorry I didnt read any of the script so I just put the default in :p

T~M

FRT, That's exactly what I was trying to go for but I wasn't sure how to do it. (I knew LeftTile wasn't going to click on the left tile, I just named it that)

Thanks for the help guys.

Is there anything else that could be fixed?

From: Xanith
FRT, That's exactly what I was trying to go for but I wasn't sure how to do it. (I knew LeftTile wasn't going to click on the left tile, I just named it that)

Thanks for the help guys.

Is there anything else that could be fixed?

As I said, you have two walking procedures and two loadpaths.

You could do something like:

function LoadPath(Which: Integer): TPointArray;
begin
  case Which of
    0: Result := [Point(1, 1), Point(1, 2)];
end;

procedure Walk(Which: Integer);
var
  Path: TPointArray;
  H, i: Integer;
begin
  Path := LoadPath(Which);
  H := High(Path);
  for i := 0 to H do
  begin
    AntiBan;
    WalkToTile(Path[i], 1, 0);
  end;
end;

I get what you are saying but not fully sure how to go about doing it.