SRL Archive - Bugs

New Forester.scar...

mormonman

2010-12-28 14:24:51

This is a temporary fix to see if the ids of the pheasants stay constant or if they change now like they do in the prison random.

I will probably remodel this random because I don't like the idea of a linear solver…it should be dynamic.


const
  R_FORESTERID = 2458;

  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;

  R_MEATID = 6178;

  R_FORESTERPORTALID = 8972;

Function r_InForester: Boolean;
begin
  Result := ValidNPCNull(R_FORESTERID);
end;

Function r_ForesterWants: TIntegerArray;
var
  S: String;
begin
  Result := [-1];

  while ClickContinue(False, False) do
  begin

    S := GetInterfaceText(242, 4);
    if Pos('kill', S) > 0 then
      Break;
    ClickContinue(True, True);
  end;

  Delete(S, 1, Pos('kill a', S)+6);
  Delete(S, Pos('-', S), Length(S));

  Case S of
    'one': Result := [R_ONETAIL_1, R_ONETAIL_2];
    'two': Result := [R_TWOTAIL_1, R_TWOTAIL_2];
    'three': Result := [R_THREETAIL_1, R_THREETAIL_2];
    'four': Result := [R_FOURTAIL_1, R_FOURTAIL_2];
  end;
  r_Debug('Going to look for ' + S + ' tailed pheasant!', 'Forester');
  ClickToContinue;
end;

Function r_FindForester: Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime: Integer;
begin
  r_Debug('Finding Freaky forester..', 'Forester');

  iTime := GetSystemTime;
  Repeat
    NPC := GetNPCNull(R_FORESTERID);

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('alk-', 200+Random(100));

    If Result then
    begin
      r_Debug('Found Freaky forester!', 'Forester');
      Wait(2000+Random(1000));
      Flag;
      Exit;
    end;
  until(GetSystemTime-iTime > 30000);
  r_Debug('Took > 30 secs finding forester, result = false', 'Forester');
end;

function r_ForesterFight: boolean;
var
 T: Integer;
begin
  T := GetSystemTime + 4000;
  repeat
    wait(66)
    if (GetAnimation > -1) then
      Result := true;
  until Result or (GetSystemTime > T);
end;

function r_GetNPC(IDs: TIntegerArray):TNPC;
var
  NPCs: TNPCArray;
  i, Hi: Integer;
  B: Boolean;
begin
  Result := NULL_NPC;
  NPCs := SortNPCS(GetNPCs);
  Hi := High(NPCs);
  for i := Hi downto 0 do
  begin
    if InIntArray(IDs, NPCs[i].ID) then
    begin
      Result := NPCs[i];
      Exit;
    end;
  end;
end;

Function r_ForesterKill(SeekFor: TIntegerArray): Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime, iTimeEx: Integer;
begin
  r_Debug('Finding pheasant..', 'Forester');
  iTime := GetSystemTime;
  Repeat
    NPC := r_GetNPC(SeekFor);

    If (NPC = NULL_NPC) then
      Exit;

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
      Exit;
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('tack', 200+Random(100));

    If Result then
    begin
      r_Debug('Attacked pheasant!', 'Forester');
      Wait(2000+Random(500));
      Flag;
      iTimeEx := GetSystemTime;
      While (Not Pos('ollect', GetInterfaceText(241, 4)) > 0) do
      begin
        Wait(100+Random(100));
        If (GetSystemTime - iTimeEx > 6000)then
          Exit;
      end;

      r_Debug('Time to collect the raw pheasant!', 'Forester');
      Wait(3000+Random(500));
    end;
  until(Result)or(GetSystemTime-iTime > 60000)
end;

Function r_ForesterLastTalk: Boolean;
begin
  Result := False;
end;

Function r_ForesterPortal: Boolean;
var
  Obj: TRSObject;
  C: TPoint;
begin
  Obj := GetObjectByIDEx([R_FORESTERPORTALID], OBJECT_TYPE_INTERACTABLE, 40);
  If Not (Obj.ID = R_FORESTERPORTALID)then
  begin
    r_Debug('Problem finding leaving portal, result = false', 'Forester');
    Exit;
  end;

  If Not TileOnMS(Obj.Tile, 0)then
    WalkToTile(Obj.Tile, 0, 0);

  C := TileToMS(Obj.Tile, 0);
  MMouse(C.X, C.Y, 5, 5);
  Result := WaitUpText('ortal', 200+Random(100));

  GetMousePos(C.X, C.Y);
  Mouse(C.X, C.Y, 0, 0, Result);
  If Not Result then
    Result := WaitOption('nter', 200+Random(100));

  If Result then
  begin
    Wait(2000+Random(1000));
    Flag;
  end;
end;

Function r_SolveForester: Boolean;
var
  iTime: Integer;
  FWants: TIntegerArray;
begin
  Result := r_InForester;
  If Not Result then
    Exit;

  iTime := GetSystemTime;
  Repeat
    If Not r_FindForester then
      Exit
    else
      FWants := r_ForesterWants;
  Until(Length(FWants) > 0)or(GetSystemTime - iTime > 60000);

  If (FWants[0] < 1) then
    Exit;

  iTime := GetSystemTime;
  Repeat
    r_ForesterKill(FWants);
    If (GetSystemTime - iTime > 60000)then
    begin
      r_Debug('Took more than one minute to recive food!', 'Forester');
      Exit;
    end;
  Until(R_CountItemID(R_MEATID) > 0);

  If Not r_FindForester then
    Exit;

  iTime := GetSystemTime;

  Repeat
    If (GetSystemTime - iTime > 30000)then
    begin
      r_Debug('Took more than 30 secs to leave!', 'Forester');
      Exit;
    end;
  Until(r_ForesterPortal);

  Wait(1000+Random(2000));
  Result := (Not r_InForester)and(LoggedIn);
end;

pyroryan

2010-12-28 16:03:48

Committed.

mormonman

2010-12-29 19:35:50

New one that should work now. Changed the meatID to meatName.


const
  R_FORESTERID = 2458;

  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;

  R_MEAT_NAME = 'heasant';

  R_FORESTERPORTALID = 8972;

Function r_InForester: Boolean;
begin
  Result := ValidNPCNull(R_FORESTERID);
end;

Function r_ForesterWants: TIntegerArray;
var
  S: String;
begin
  Result := [-1];

  while ClickContinue(False, False) do
  begin

    S := GetInterfaceText(242, 4);
    if Pos('kill', S) > 0 then
      Break;
    ClickContinue(True, True);
  end;

  Delete(S, 1, Pos('kill a', S)+6);
  Delete(S, Pos('-', S), Length(S));

  Case S of
    'one': Result := [R_ONETAIL_1, R_ONETAIL_2];
    'two': Result := [R_TWOTAIL_1, R_TWOTAIL_2];
    'three': Result := [R_THREETAIL_1, R_THREETAIL_2];
    'four': Result := [R_FOURTAIL_1, R_FOURTAIL_2];
  end;
  r_Debug('Going to look for ' + S + ' tailed pheasant!', 'Forester');
  ClickToContinue;
end;

Function r_FindForester: Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime: Integer;
begin
  r_Debug('Finding Freaky forester..', 'Forester');

  iTime := GetSystemTime;
  Repeat
    NPC := GetNPCNull(R_FORESTERID);

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('alk-', 200+Random(100));

    If Result then
    begin
      r_Debug('Found Freaky forester!', 'Forester');
      Wait(2000+Random(1000));
      Flag;
      Exit;
    end;
  until(GetSystemTime-iTime > 30000);
  r_Debug('Took > 30 secs finding forester, result = false', 'Forester');
end;

function r_ForesterFight: boolean;
var
 T: Integer;
begin
  T := GetSystemTime + 4000;
  repeat
    wait(66)
    if (GetAnimation > -1) then
      Result := true;
  until Result or (GetSystemTime > T);
end;

function r_GetNPC(IDs: TIntegerArray):TNPC;
var
  NPCs: TNPCArray;
  i, Hi: Integer;
  B: Boolean;
begin
  Result := NULL_NPC;
  NPCs := SortNPCS(GetNPCs);
  Hi := High(NPCs);
  for i := Hi downto 0 do
  begin
    if InIntArray(IDs, NPCs[i].ID) then
    begin
      Result := NPCs[i];
      Exit;
    end;
  end;
end;

Function r_ForesterKill(SeekFor: TIntegerArray): Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime, iTimeEx: Integer;
begin
  r_Debug('Finding pheasant..', 'Forester');
  iTime := GetSystemTime;
  Repeat
    NPC := r_GetNPC(SeekFor);

    If (NPC = NULL_NPC) then
      Exit;

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
      Exit;
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('tack', 200+Random(100));

    If Result then
    begin
      r_Debug('Attacked pheasant!', 'Forester');
      Wait(2000+Random(500));
      Flag;
      iTimeEx := GetSystemTime;
      While (Not Pos('ollect', GetInterfaceText(241, 4)) > 0) do
      begin
        Wait(100+Random(100));
        If (GetSystemTime - iTimeEx > 6000)then
          Exit;
      end;

      r_Debug('Time to collect the raw pheasant!', 'Forester');
      Wait(3000+Random(500));
    end;
  until(Result)or(GetSystemTime-iTime > 60000)
end;

Function r_ForesterLastTalk: Boolean;
begin
  Result := False;
end;

Function r_ForesterPortal: Boolean;
var
  Obj: TRSObject;
  C: TPoint;
begin
  Obj := GetObjectByIDEx([R_FORESTERPORTALID], OBJECT_TYPE_INTERACTABLE, 40);
  If Not (Obj.ID = R_FORESTERPORTALID)then
  begin
    r_Debug('Problem finding leaving portal, result = false', 'Forester');
    Exit;
  end;

  If Not TileOnMS(Obj.Tile, 0)then
    WalkToTile(Obj.Tile, 0, 0);

  C := TileToMS(Obj.Tile, 0);
  MMouse(C.X, C.Y, 5, 5);
  Result := WaitUpText('ortal', 200+Random(100));

  GetMousePos(C.X, C.Y);
  Mouse(C.X, C.Y, 0, 0, Result);
  If Not Result then
    Result := WaitOption('nter', 200+Random(100));

  If Result then
  begin
    Wait(2000+Random(1000));
    Flag;
  end;
end;

Function r_SolveForester: Boolean;
var
  iTime: Integer;
  FWants: TIntegerArray;
begin
  Result := r_InForester;
  If Not Result then
    Exit;

  iTime := GetSystemTime;
  Repeat
    If Not r_FindForester then
      Exit
    else
      FWants := r_ForesterWants;
  Until(Length(FWants) > 0)or(GetSystemTime - iTime > 60000);

  If (FWants[0] < 1) then
    Exit;

  iTime := GetSystemTime;
  Repeat
    r_ForesterKill(FWants);
    If (GetSystemTime - iTime > 60000)then
    begin
      r_Debug('Took more than one minute to recive food!', 'Forester');
      Exit;
    end;
  Until(R_CountItemName(R_MEAT_NAME) > 0);

  If Not r_FindForester then
    Exit;

  iTime := GetSystemTime;

  Repeat
    If (GetSystemTime - iTime > 30000)then
    begin
      r_Debug('Took more than 30 secs to leave!', 'Forester');
      Exit;
    end;
  Until(r_ForesterPortal);

  Wait(1000+Random(2000));
  Result := (Not r_InForester)and(LoggedIn);
end;

Bad Boy JH

2010-12-29 20:10:10

does the ID change with the amount of feathers the pheasant has?

mormonman

2010-12-29 20:11:14

From: Bad Boy JH
does the ID change with the amount of feathers the pheasant has?

I don't think so, but it doesn't matter. I made it so it just checks for the name.

i luffs yeww

2010-12-29 22:53:00

From: Bad Boy JH
does the ID change with the amount of feathers the pheasant has?

From: mormonman
I don't think so, but it doesn't matter. I made it so it just checks for the name.

uhhhhh wat


  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;

I feel like you should know, mormon. And it says in the first part of the script, assuming those are IDs.

pyroryan

2010-12-29 22:57:02

From: mormonman
New one that should work now. Changed the meatID to meatName.


const
  R_FORESTERID = 2458;

  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;

  R_MEAT_NAME = 'heasant';

  R_FORESTERPORTALID = 8972;

Function r_InForester: Boolean;
begin
  Result := ValidNPCNull(R_FORESTERID);
end;

Function r_ForesterWants: TIntegerArray;
var
  S: String;
begin
  Result := [-1];

  while ClickContinue(False, False) do
  begin

    S := GetInterfaceText(242, 4);
    if Pos('kill', S) > 0 then
      Break;
    ClickContinue(True, True);
  end;

  Delete(S, 1, Pos('kill a', S)+6);
  Delete(S, Pos('-', S), Length(S));

  Case S of
    'one': Result := [R_ONETAIL_1, R_ONETAIL_2];
    'two': Result := [R_TWOTAIL_1, R_TWOTAIL_2];
    'three': Result := [R_THREETAIL_1, R_THREETAIL_2];
    'four': Result := [R_FOURTAIL_1, R_FOURTAIL_2];
  end;
  r_Debug('Going to look for ' + S + ' tailed pheasant!', 'Forester');
  ClickToContinue;
end;

Function r_FindForester: Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime: Integer;
begin
  r_Debug('Finding Freaky forester..', 'Forester');

  iTime := GetSystemTime;
  Repeat
    NPC := GetNPCNull(R_FORESTERID);

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('alk-', 200+Random(100));

    If Result then
    begin
      r_Debug('Found Freaky forester!', 'Forester');
      Wait(2000+Random(1000));
      Flag;
      Exit;
    end;
  until(GetSystemTime-iTime > 30000);
  r_Debug('Took > 30 secs finding forester, result = false', 'Forester');
end;

function r_ForesterFight: boolean;
var
 T: Integer;
begin
  T := GetSystemTime + 4000;
  repeat
    wait(66)
    if (GetAnimation > -1) then
      Result := true;
  until Result or (GetSystemTime > T);
end;

function r_GetNPC(IDs: TIntegerArray):TNPC;
var
  NPCs: TNPCArray;
  i, Hi: Integer;
  B: Boolean;
begin
  Result := NULL_NPC;
  NPCs := SortNPCS(GetNPCs);
  Hi := High(NPCs);
  for i := Hi downto 0 do
  begin
    if InIntArray(IDs, NPCs[i].ID) then
    begin
      Result := NPCs[i];
      Exit;
    end;
  end;
end;

Function r_ForesterKill(SeekFor: TIntegerArray): Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime, iTimeEx: Integer;
begin
  r_Debug('Finding pheasant..', 'Forester');
  iTime := GetSystemTime;
  Repeat
    NPC := r_GetNPC(SeekFor);

    If (NPC = NULL_NPC) then
      Exit;

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
      Exit;
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('tack', 200+Random(100));

    If Result then
    begin
      r_Debug('Attacked pheasant!', 'Forester');
      Wait(2000+Random(500));
      Flag;
      iTimeEx := GetSystemTime;
      While (Not Pos('ollect', GetInterfaceText(241, 4)) > 0) do
      begin
        Wait(100+Random(100));
        If (GetSystemTime - iTimeEx > 6000)then
          Exit;
      end;

      r_Debug('Time to collect the raw pheasant!', 'Forester');
      Wait(3000+Random(500));
    end;
  until(Result)or(GetSystemTime-iTime > 60000)
end;

Function r_ForesterLastTalk: Boolean;
begin
  Result := False;
end;

Function r_ForesterPortal: Boolean;
var
  Obj: TRSObject;
  C: TPoint;
begin
  Obj := GetObjectByIDEx([R_FORESTERPORTALID], OBJECT_TYPE_INTERACTABLE, 40);
  If Not (Obj.ID = R_FORESTERPORTALID)then
  begin
    r_Debug('Problem finding leaving portal, result = false', 'Forester');
    Exit;
  end;

  If Not TileOnMS(Obj.Tile, 0)then
    WalkToTile(Obj.Tile, 0, 0);

  C := TileToMS(Obj.Tile, 0);
  MMouse(C.X, C.Y, 5, 5);
  Result := WaitUpText('ortal', 200+Random(100));

  GetMousePos(C.X, C.Y);
  Mouse(C.X, C.Y, 0, 0, Result);
  If Not Result then
    Result := WaitOption('nter', 200+Random(100));

  If Result then
  begin
    Wait(2000+Random(1000));
    Flag;
  end;
end;

Function r_SolveForester: Boolean;
var
  iTime: Integer;
  FWants: TIntegerArray;
begin
  Result := r_InForester;
  If Not Result then
    Exit;

  iTime := GetSystemTime;
  Repeat
    If Not r_FindForester then
      Exit
    else
      FWants := r_ForesterWants;
  Until(Length(FWants) > 0)or(GetSystemTime - iTime > 60000);

  If (FWants[0] < 1) then
    Exit;

  iTime := GetSystemTime;
  Repeat
    r_ForesterKill(FWants);
    If (GetSystemTime - iTime > 60000)then
    begin
      r_Debug('Took more than one minute to recive food!', 'Forester');
      Exit;
    end;
  Until(R_CountItemName(R_MEAT_NAME) > 0);

  If Not r_FindForester then
    Exit;

  iTime := GetSystemTime;

  Repeat
    If (GetSystemTime - iTime > 30000)then
    begin
      r_Debug('Took more than 30 secs to leave!', 'Forester');
      Exit;
    end;
  Until(r_ForesterPortal);

  Wait(1000+Random(2000));
  Result := (Not r_InForester)and(LoggedIn);
end;

Committed.

Gu3st...

2010-12-30 08:45:17

From: i luffs yeww
uhhhhh wat
  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;
I feel like you should know, mormon. And it says in the first part of the script, assuming those are IDs.

They're talking about the meat the pheasant drops

mormonman

2010-12-30 12:39:00

From: i luffs yeww
uhhhhh wat
  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;
I feel like you should know, mormon. And it says in the first part of the script, assuming those are IDs.

meatID was changed to meatNAME…..but yes I did change it from the single id for each bird too.

mormonman

2011-01-08 01:25:52

Another new fix. Should work 100% now. The object id for the portal changed.

const
  R_FORESTERID = 2458;

  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;

  R_MEAT_NAME = 'heasant';

  R_FORESTERPORTALID = 15645;

Function r_InForester: Boolean;
begin
  Result := ValidNPCNull(R_FORESTERID);
end;

Function r_ForesterWants: TIntegerArray;
var
  S: String;
begin
  Result := [-1];

  while ClickContinue(False, False) do
  begin

    S := GetInterfaceText(242, 4);
    if Pos('kill', S) > 0 then
      Break;
    ClickContinue(True, True);
  end;

  Delete(S, 1, Pos('kill a', S)+6);
  Delete(S, Pos('-', S), Length(S));

  Case S of
    'one': Result := [R_ONETAIL_1, R_ONETAIL_2];
    'two': Result := [R_TWOTAIL_1, R_TWOTAIL_2];
    'three': Result := [R_THREETAIL_1, R_THREETAIL_2];
    'four': Result := [R_FOURTAIL_1, R_FOURTAIL_2];
  end;
  r_Debug('Going to look for ' + S + ' tailed pheasant!', 'Forester');
  ClickToContinue;
end;

Function r_FindForester: Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime: Integer;
begin
  r_Debug('Finding Freaky forester..', 'Forester');

  iTime := GetSystemTime;
  Repeat
    NPC := GetNPCNull(R_FORESTERID);

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('alk-', 200+Random(100));

    If Result then
    begin
      r_Debug('Found Freaky forester!', 'Forester');
      Wait(2000+Random(1000));
      Flag;
      Exit;
    end;
  until(GetSystemTime-iTime > 30000);
  r_Debug('Took > 30 secs finding forester, result = false', 'Forester');
end;

function r_ForesterFight: boolean;
var
 T: Integer;
begin
  T := GetSystemTime + 4000;
  repeat
    wait(66)
    if (GetAnimation > -1) then
      Result := true;
  until Result or (GetSystemTime > T);
end;

function r_GetNPC(IDs: TIntegerArray):TNPC;
var
  NPCs: TNPCArray;
  i, Hi: Integer;
  B: Boolean;
begin
  Result := NULL_NPC;
  NPCs := SortNPCS(GetNPCs);
  Hi := High(NPCs);
  for i := Hi downto 0 do
  begin
    if InIntArray(IDs, NPCs[i].ID) then
    begin
      Result := NPCs[i];
      Exit;
    end;
  end;
end;

Function r_ForesterKill(SeekFor: TIntegerArray): Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime, iTimeEx: Integer;
begin
  r_Debug('Finding pheasant..', 'Forester');
  iTime := GetSystemTime;
  Repeat
    NPC := r_GetNPC(SeekFor);

    If (NPC = NULL_NPC) then
      Exit;

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
      Exit;
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('tack', 200+Random(100));

    If Result then
    begin
      r_Debug('Attacked pheasant!', 'Forester');
      Wait(2000+Random(500));
      Flag;
      iTimeEx := GetSystemTime;
      While (Not Pos('ollect', GetInterfaceText(241, 4)) > 0) do
      begin
        Wait(100+Random(100));
        If (GetSystemTime - iTimeEx > 6000)then
          Exit;
      end;

      r_Debug('Time to collect the raw pheasant!', 'Forester');
      Wait(3000+Random(500));
    end;
  until(Result)or(GetSystemTime-iTime > 60000)
end;

Function r_ForesterLastTalk: Boolean;
begin
  Result := False;
end;

Function r_ForesterPortal: Boolean;
var
  Obj: TRSObject;
  C: TPoint;
begin
  Obj := GetObjectByIDEx([R_FORESTERPORTALID], OBJECT_TYPE_INTERACTABLE, 40);
  If Not (Obj.ID = R_FORESTERPORTALID)then
  begin
    r_Debug('Problem finding leaving portal, result = false', 'Forester');
    Exit;
  end;

  If Not TileOnMS(Obj.Tile, 0)then
    WalkToTile(Obj.Tile, 0, 0);

  C := TileToMS(Obj.Tile, 0);
  MMouse(C.X, C.Y, 5, 5);
  Result := WaitUpText('ortal', 200+Random(100));

  GetMousePos(C.X, C.Y);
  Mouse(C.X, C.Y, 0, 0, Result);
  If Not Result then
    Result := WaitOption('nter', 200+Random(100));

  If Result then
  begin
    Wait(2000+Random(1000));
    Flag;
  end;
end;

Function r_SolveForester: Boolean;
var
  iTime: Integer;
  FWants: TIntegerArray;
begin
  Result := r_InForester;
  If Not Result then
    Exit;

  iTime := GetSystemTime;
  Repeat
    If Not r_FindForester then
      Exit
    else
      FWants := r_ForesterWants;
  Until(Length(FWants) > 0)or(GetSystemTime - iTime > 60000);

  If (FWants[0] < 1) then
    Exit;

  iTime := GetSystemTime;
  Repeat
    r_ForesterKill(FWants);
    If (GetSystemTime - iTime > 60000)then
    begin
      r_Debug('Took more than one minute to recive food!', 'Forester');
      Exit;
    end;
  Until(R_CountItemName(R_MEAT_NAME) > 0);

  If Not r_FindForester then
    Exit;

  iTime := GetSystemTime;

  Repeat
    If (GetSystemTime - iTime > 30000)then
    begin
      r_Debug('Took more than 30 secs to leave!', 'Forester');
      Exit;
    end;
  Until(r_ForesterPortal);

  Wait(1000+Random(2000));
  Result := (Not r_InForester)and(LoggedIn);
end;

Thanks for the accounts Hugo.

mormonman

2011-01-12 14:54:57

Fixed errors with new NPCs.simba

const
  R_FORESTERID = 2458;

  R_ONETAIL_1 = 4277;
  R_ONETAIL_2 = 7445;
  R_TWOTAIL_1 = 13246;
  R_TWOTAIL_2 = 7446;
  R_THREETAIL_1 = 13248;
  R_THREETAIL_2 = 13247;
  R_FOURTAIL_1 = 13249;
  R_FOURTAIL_2 = 13250;

  R_MEAT_NAME = 'heasant';

  R_FORESTERPORTALID = 15645;

Function r_InForester: Boolean;
begin
  Result := ValidNullNPC(R_FORESTERID);
end;

Function r_ForesterWants: TIntegerArray;
var
  S: String;
begin
  Result := [-1];

  while ClickContinue(False, False) do
  begin

    S := GetInterfaceText(242, 4);
    if Pos('kill', S) > 0 then
      Break;
    ClickContinue(True, True);
  end;

  Delete(S, 1, Pos('kill a', S)+6);
  Delete(S, Pos('-', S), Length(S));

  Case S of
    'one': Result := [R_ONETAIL_1, R_ONETAIL_2];
    'two': Result := [R_TWOTAIL_1, R_TWOTAIL_2];
    'three': Result := [R_THREETAIL_1, R_THREETAIL_2];
    'four': Result := [R_FOURTAIL_1, R_FOURTAIL_2];
  end;
  r_Debug('Going to look for ' + S + ' tailed pheasant!', 'Forester');
  ClickToContinue;
end;

Function r_FindForester: Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime: Integer;
begin
  r_Debug('Finding Freaky forester..', 'Forester');

  iTime := GetSystemTime;
  Repeat
    NPC := GetNullNPC(R_FORESTERID);

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('alk-', 200+Random(100));

    If Result then
    begin
      r_Debug('Found Freaky forester!', 'Forester');
      Wait(2000+Random(1000));
      Flag;
      Exit;
    end;
  until(GetSystemTime-iTime > 30000);
  r_Debug('Took > 30 secs finding forester, result = false', 'Forester');
end;

function r_ForesterFight: boolean;
var
 T: Integer;
begin
  T := GetSystemTime + 4000;
  repeat
    wait(66)
    if (GetAnimation > -1) then
      Result := true;
  until Result or (GetSystemTime > T);
end;

Function r_ForesterKill(SeekFor: TIntegerArray): Boolean;
var
  NPC: TNPC;
  C: TPoint;
  iTime, iTimeEx: Integer;
begin
  r_Debug('Finding pheasant..', 'Forester');
  iTime := GetSystemTime;
  Repeat
    NPC := GetNPCMulti([SeekFor[0], SeekFor[1]]);

    If (NPC = NULL_NPC) then
      Exit;

    If Not TileOnMS(NPC.Tile, 0)then
    begin
      r_Debug('Tile not on MS' + ToStr(NPC.Tile) + ', walking there.', 'Forester');
      WalkToTile(NPC.Tile, 0, 0);
      Exit;
    end;

    C := TileToMS(NPC.Tile, 0);
    Mouse(C.X, C.Y, 5, 5, False);
    Result := WaitOption('tack', 200+Random(100));

    If Result then
    begin
      r_Debug('Attacked pheasant!', 'Forester');
      Wait(2000+Random(500));
      Flag;
      iTimeEx := GetSystemTime;
      While (Not Pos('ollect', GetInterfaceText(241, 4)) > 0) do
      begin
        Wait(100+Random(100));
        If (GetSystemTime - iTimeEx > 6000)then
          Exit;
      end;

      r_Debug('Time to collect the raw pheasant!', 'Forester');
      Wait(3000+Random(500));
    end;
  until(Result)or(GetSystemTime-iTime > 60000)
end;

Function r_ForesterLastTalk: Boolean;
begin
  Result := False;
end;

Function r_ForesterPortal: Boolean;
var
  Obj: TRSObject;
  C: TPoint;
begin
  Obj := GetObjectByIDEx([R_FORESTERPORTALID], OBJECT_TYPE_INTERACTABLE, 40);
  If Not (Obj.ID = R_FORESTERPORTALID)then
  begin
    r_Debug('Problem finding leaving portal, result = false', 'Forester');
    Exit;
  end;

  If Not TileOnMS(Obj.Tile, 0)then
    WalkToTile(Obj.Tile, 0, 0);

  C := TileToMS(Obj.Tile, 0);
  MMouse(C.X, C.Y, 5, 5);
  Result := WaitUpText('ortal', 200+Random(100));

  GetMousePos(C.X, C.Y);
  Mouse(C.X, C.Y, 0, 0, Result);
  If Not Result then
    Result := WaitOption('nter', 200+Random(100));

  If Result then
  begin
    Wait(2000+Random(1000));
    Flag;
  end;
end;

Function r_SolveForester: Boolean;
var
  iTime: Integer;
  FWants: TIntegerArray;
begin
  Result := r_InForester;
  If Not Result then
    Exit;

  iTime := GetSystemTime;
  Repeat
    If Not r_FindForester then
      Exit
    else
      FWants := r_ForesterWants;
  Until(Length(FWants) > 0)or(GetSystemTime - iTime > 60000);

  If (FWants[0] < 1) then
    Exit;

  iTime := GetSystemTime;
  Repeat
    r_ForesterKill(FWants);
    If (GetSystemTime - iTime > 60000)then
    begin
      r_Debug('Took more than one minute to recive food!', 'Forester');
      Exit;
    end;
  Until(R_CountItemName(R_MEAT_NAME) > 0);

  If Not r_FindForester then
    Exit;

  iTime := GetSystemTime;

  Repeat
    If (GetSystemTime - iTime > 30000)then
    begin
      r_Debug('Took more than 30 secs to leave!', 'Forester');
      Exit;
    end;
  Until(r_ForesterPortal);

  iTime := GetSystemTime;

  repeat
    If (GetSystemTime - iTime > 15000)then
    begin
      r_Debug('Took more than 15 secs to teleport out!', 'Forester');
      Exit;
    end;
  until (Not r_InForester)and(LoggedIn);

  Result := True;

end;

pyroryan

2011-01-12 15:23:13

Done and go fetch yourself access :P