 |
 |
 |
| Autor |
Mensagem |
talison
Novato
Registrado: 21/10/11
Mensagens: 21
|
|
| como resetar uma contagem regressiva ? |
|
eu criei um script para uma contagem regressiva para quando ela acabace voltase ao menu do jogo mas
quando eu volto ao menu e inicio jogo de novo a contagem já acabou evolta de novo pro menu
_________________
Novo Aqui |
|
| Sáb Out 29, 2011 1:09 am |
 |
|
victordriver
Usuário
Registrado: 26/01/10
Mensagens: 275
Localização: Natal RN |
|
|
|
Man, posta o script aii para ver.
_________________
Amamos o Lemos!  |
|
| Qua Nov 02, 2011 3:53 am |
|
|
talison
Novato
Registrado: 21/10/11
Mensagens: 21
|
|
|
|
//---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', 60);
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('Label1', IntToStr(ReadGlobalVar('Time')));
end
else
begin
if (ReadGlobalVar('Time') <= 0) then
begin
WriteGlobalVar('Time', -2);
end;
end;
_________________
Novo Aqui |
|
| Qui Nov 03, 2011 6:12 pm |
|
|
|
|
|
 |
 |
|
