Auto ScreenShot ~ Skills

Olá gente, eu pesquisei aqui e vi que já tinha um script pra treinar slime, então resolvi fazer um do auto ScreenShot, mas também já tinha, sem idéias resolvi fazer um que não tenha (dãa óbvio kk).

Bem, esse script é para tirar um ScreenShot quando você upar o Level, Axe, Magic Level, Fishing ou Shield. Você tem duas opções de imagem, .PNG, bem, ela é mais pesada, mas fica com bem mais qualidade. Temos também a .JPG, ela é muito boa, é mais leve só que a qualidade é menor do que a .PNG.

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) + '.png');

 Level := Self.Level;

 end;

 if MLevel <> Self.Skills.Magic then

 begin

 MLevel := Self.Skills.Magic;

 ScreenShot('c:\Mlevel' + IntToStr(MLevel) + '.png');

 MLevel := Self.Skills.Magic;

 end;

 if Axe <> Self.Skills.Axe then

 begin

 Axe := Self.Skills.Axe;

 ScreenShot('c:\Axe' + IntToStr(Axe) + '.png');

 Axe := Self.Skills.Axe;

 end;

 if Fishing <> Self.Skills.Fishing then

 begin

 Fishing := Self.Skills.Fishing;

 ScreenShot('c:\Fishing' + IntToStr(Fishing) + '.png');

 Fishing := Self.Skills.Fishing;

 end;

 if Shielding <> Self.Skills.Shielding then

 begin

 Shielding := Self.Skills.Shielding;

 ScreenShot('c:\Shielding' + IntToStr(Shielding) + '.png');

 Shielding := Self.Skills.Shielding;

 end;

 Sleep(1000);

 end;

 end;

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;

Scan - VirusTotal 0/43

Script ScreenShot Skills .JPG - TibiaKing.com.rar

Espero ter ajudado, e espero também que usem muito ele. Depois ponho mais algumas coisas (:

Editado Maio 28, 2011 14 anos por Luis F. Lima (veja o histórico de edições)