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