Ir para conteúdo

Featured Replies

Postado
B := 0;
while not terminated do
begin
A := Random(1,5);
if B <> A then
case A of
1:
begin
Self.FaceUp;
Sleep(400);
end;
2:
begin
Self.FaceRight;
Sleep(400);
end;
3:
begin
Self.FaceDown;
Sleep(400);
end;
4:
begin
Self.FaceLeft;
Sleep(400);
end;
end;
B := A;
sleep(10);
end;
Créditos: ngmax

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

Visitante
Responder

Quem Está Navegando 0

  • Nenhum usuário registrado visualizando esta página.

Estatísticas dos Fóruns

  • Tópicos 96.9k
  • Posts 519.7k

Informação Importante

Confirmação de Termo