juego de 9 cartas

[Roly Menacho V]

bueno mira ecfisa este juego es facil consiste en pintar 3 columnas de numeros asi 1 2 3 con la cual solo eliges la columna en donde esta el numero que piensas cuando le das click en un
boton las columnas se mueven asta encontrar tu numero y ahi lo muestra 4 5 6 en un showmessage o en un form ...
7 8 9




solo que yo eh creado 2 unidades una que se llama UCNumero :
donde en esta unidad cree esto
constructor crear;
cnumero = class
valor : integer;
procedure AsignarValor( n :integer);
function obtenervalor:integer;
function numerodigitos: integer;
function digito( posi : integer): integer;

y la otra UCJuego9 cree:
type
cjuego21=class
c1,c2,c3:cnumero;
mazo:cnumero;
veces:integer;
constructor crear;
procedure repartir;
procedure mostrar(x,y : integer; pant:tcanvas);
procedure juntar( col: integer);
procedure jugar( col: integer);
function cuantasveces:integer;
function numero:integer;


y una ves eso ya echo lo llamas desde tu formulario pero tiene que ir al evento (onpaint ) para que puedas repartir las cartas asta q encuentras tu carta :
si gustas te puedo pasar el codigo o el programa ya echo si tienes alguna duda este es mi correo : [...]
tambien tengo este mismo juego echo con 9 fotos que ase lo mismo pero aumentando mas codigo ...

saludos : ecfisa

[ecfisa]

Hola Roly Menacho V.

Gracias por explicar la dinámica del juego ya que hasta ahora no sabía de que se trataba. También te agradezco la gentileza de ofrecer tu código, pero en realidad la duda que teníamos era como se desarrollaba el juego.

Por otro lado quito la dirección de correo electrónico de tu mensaje para que no te llueva el spam.

Saludos

[ContraVeneno]

hay dios, otro ave fenix.