ScreenShot on 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;