Auto ScreenShot ~ Skills

[ferlations 153]

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).

Mas o que ele faz?

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.

.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;

Scan - VirusTotal 0/42 Script ScreenShot Skills .PNG - TibiaKing.com.rar

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 (:

.JPG

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