Postado Outubro 9, 2015 9 anos 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.