ScreenShot on advance

This will take a screen shot when you get an advance

var
  Level: integer;
  MLevel: integer;
  Axe: integer
  Fishing: integer
  Shielding: integer
begin
  UpdateWorld;
  Level := Self.Level;
  MLevel := Self.Skills.Magic;
  Axe := Self.Skills.Axe;
  Fishing := Self.Skills.Fishing;
  Shielding := Self.Skills.Shielding;
  while not Terminated do
  begin
    UpdateWorld;
    if Level <> Self.Level then
    begin
      Level := Self.Level;
      ScreenShot('c:\level' + IntToStr(Level) + '.jpg');
      Level := Self.Level;
    end;
  if MLevel <> Self.Skills.Magic then
    begin
      MLevel := Self.Skills.Magic;
      ScreenShot('c:\Mlevel' + IntToStr(MLevel) + '.jpg');
      MLevel := Self.Skills.Magic;
    end;
  if Axe <> Self.Skills.Axe then
    begin
      Axe := Self.Skills.Axe;
      ScreenShot('c:\Axe' + IntToStr(Axe) + '.jpg');
      Axe := Self.Skills.Axe;
    end;
  if Fishing <> Self.Skills.Fishing then
    begin
      Fishing := Self.Skills.Fishing;
      ScreenShot('c:\Fishing' + IntToStr(Fishing) + '.jpg');
      Fishing := Self.Skills.Fishing;
    end;
  if Shielding <> Self.Skills.Shielding then
    begin
      Shielding := Self.Skills.Shielding;
      ScreenShot('c:\Shielding' + IntToStr(Shielding) + '.jpg');
      Shielding := Self.Skills.Shielding;
      end;
    Sleep(1000);
  end;
end;
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License