Auto Screen Shot Lvl -Ml - Axe - Shield

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;