[Safi]

Wakarimasen
wcale nie widac ze bot char xdddddd

@edit
tu masz skrypcik zebys zawsze zdazyl zrobic ss <3

var
Level: integer;
MLevel: integer;
Axe: integer
Fishing: integer
Shielding: integer
begin
UpdateWorld;
Level := Self.Level;
MLevel := Self.Skills.Magic.Level;
Axe := Self.Skills.Axe.Level;
Fishing := Self.Skills.Fishing.Level;
Shielding := Self.Skills.Shielding.Level;
while not Terminated do
begin
UpdateWorld;
if Level <> Self.Level then
begin
Level := Self.Level;
ScreenShot('c:\level' + IntToStr(Level) + '.bmp');
Level := Self.Level;
end;
if MLevel <> Self.Skills.Magic.Level then
begin
MLevel := Self.Skills.Magic.Level;
ScreenShot('c:\Mlevel' + IntToStr(MLevel) + '.bmp');
MLevel := Self.Skills.Magic.Level;
end;
if Axe <> Self.Skills.Axe.Level then
begin
Axe := Self.Skills.Axe.Level;
ScreenShot('c:\Axe' + IntToStr(Axe) + '.bmp');
Axe := Self.Skills.Axe.Level;
end;
if Fishing <> Self.Skills.Fishing.Level then
begin
Fishing := Self.Skills.Fishing.Level;
ScreenShot('c:\Fishing' + IntToStr(Fishing) + '.bmp');
Fishing := Self.Skills.Fishing.Level;
end;
if Shielding <> Self.Skills.Shielding.Level then
begin
Shielding := Self.Skills.Shielding.Level;
ScreenShot('c:\Shielding' + IntToStr(Shielding) + '.bmp');
Shielding := Self.Skills.Shielding.Level;
end;
Sleep(1000);
end;
end;