[Script] Contagem Simplificada

Registrado: 23/04/13 Mensagens: 249 Localização: São Paulo, Mogi das Cruzes

Lembram desse código de contagem regressiva?

Código:

//---Begin Script Builder: Exibe contagem regressiva no label---//
function GetSec(Time:String):String;
begin
Result:=Copy(Time, 7, 2);
end;

if ReadGlobalVarDef('Time', -1) = -1 then
WriteGlobalVar('Time', 45);

var TM:Integer;
TM:=StrToInt(GetSec(TimeToStr(Now)));
if ((ReadGlobalVar('TempTime') < TM)or((TM = 0)and(ReadGlobalVar('TempTime')<>TM)))and(ReadGlobalVar('Time') > 0) then
begin
WriteGlobalVar('TempTime', TM);
WriteGlobalVar('Time', ReadGlobalVar('Time')-1);
SetLabelText('Label0', IntToStr(ReadGlobalVar('Time')));
end
else
begin
if (ReadGlobalVar('Time') <= 0) then
begin
WriteGlobalVar('Time', -2);
end;
end;
//---End Script Builder---//

Graças a ele, bugs ocorrem as vezes nas mudanças de mapa quando acontece muitas vezes, então eu montei um esquema que funciona da mesma maneira e que não causa erro na transição de mapas frequente.

	Código:
	if ReadGlobalVar('contador') < Time() then <- Quando estiver zerado a variável "contador" begin WriteGlobalVar('contador', (Time() + EncodeTime(0,0,1,0))); <- Pra resetar o EncodeTime de 1 segundo WriteGlobalVar('variável', ReadGlobalvar('variável')+1); <- Variável aleatória que apenas funciona quando se passa 1 segundo end;

Assim facilita na hora de usar o ReadGlobalVar e outros. Lembrando que não existe como usar o EncodeTime diretamente no Label pois o valor fica sempre 0.
Detalhe é que o EncodeTime é sempre regressivo

_________________
//Contato

YouTube:
https://www.youtube.com/channel/UCCBpgDU7UrI1V8YvoKg86QA

Wordpress (Projetos):
http://dantasgames.wordpress.com/

Page(Facebook):
https://www.facebook.com/mathdantasgames

Deviantart:
http://dantasgames.deviantart.com/

Profile(Facebook):
https://www.facebook.com/matheus.dantas.1000

Instagram:
matheusdantassantana

Twitter:
@MatheusDantasDG

Registrado: 30/10/15 Mensagens: 344

Gostei,