[Script] Tirar screenshoot ao upar

[Puncker 201]

{Tirar screenshoot ao upar}

Código:

var

Level: integer;


begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

ScreenShot('c:\level' + IntToStr(Level) + '.jpg');

end;

Sleep(1000);

end;

end; 

Ou Baixe

Ou baixe:

sshup.ng

[EdsonJunior 966]

var

Level: integer;


begin

UpdateWorld;

Level := Self.Level;

while not Terminated do

begin

UpdateWorld;

if Level <> Self.Level then

begin

Level := Self.Level;

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

end;

Sleep(1000);

end;

end; 

Só mudei o formato da img, .jpg pra .png (a qualidade fica BEM MELHOR)

[Renato 659]

Png fica bem mais pesado...

Mas mesmo assim prefiro png

[she 4]

Não sei se será considerado flood, porém enfim, queria agradecer pelo script, pois estou usando, irá ajudar com meu lt. Obrigada. =^-^=

Editado Maio 6, 2011 por she (veja o histórico de edições)

[Froostiin 48]

Não seria Flood se você tivesse postado alguma duvida, isso é considerado topico revivido e flood .