 |
 |
 |
| 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: 276 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 |
|
 |
|
|
Você não pode enviar mensagens novas neste fórum Você não pode responder mensagens neste fórum você não pode editar suas mensagens neste fórum Você não pode excluir suas mensagens neste fórum Você não pode votar em enquetes neste fórum
|
|
 |
 |
 |
|