5 respuestas en este tema

[felipe]

Hola, ya que estamos bien metidos con el asunto de los juegos, les compartiré esta idea que nunca terminé 
Este juego se trata más que todo de rapides e inteligencia, usa un componente RX (DiceCube) para tirar el dado, dependiendo del valor es el avance en el juego, pero para poder pasar a esa casilla debes responder una pregunta con diferentes opciones en menos de 10 segundos... básicamente esa es la idea, aún no tiene las preguntas pero se pueden ir trabajando en ellas 

El juego luce más o menos como en la fotografía adjunta.

[felipe]

Aqui estan los archivos fuente...

Archivos adjuntos

•  73_.zip   416,52KB   20 descargas

[Caral]

Hola
El problema que tienen estos juegos es que cuando se necesitan componentes adicionales nos cuesta poner a funcionar el codigo, cuesta entenderlo.
Seria bueno que se pusiera el codigo pero tambien el componente para poder verlo bien y poder tratar de aportar.
Me gusta la idea, las imagenes son buenas pero no se puede correr.
Saludos

[felipe]

Hola Caral, es verdad lo que dices... en realidad el mismo componente fué el que me inspiró la idea, este se llama TRxDice viene junto con el paquete de componentes RX (http://sourceforge.net/projects/rxlib/) y el código, muy crudo la verdad , contiene esto

delphi

unit UJuego;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RXDice, jpeg, ExtCtrls, StdCtrls, Menus, Buttons;
 
type
  TFrmJuego = class(TForm)
    fondo: TImage;
    dado: TRxDice;
    tiempo: TTimer;
    carita1: TImage;
    carita2: TImage;
    carita3: TImage;
    carita4: TImage;
    penitencia: TLabel;
    turno: TLabel;
    b1: TBevel;
    b2: TBevel;
    b3: TBevel;
    b4: TBevel;
    b10: TBevel;
    b11: TBevel;
    b12: TBevel;
    b13: TBevel;
    b14: TBevel;
    b9: TBevel;
    b15: TBevel;
    b16: TBevel;
    b17: TBevel;
    b18: TBevel;
    b5: TBevel;
    b6: TBevel;
    b7: TBevel;
    b8: TBevel;
    nuevo: TSpeedButton;
    procedure dadoClick(Sender: TObject);
    procedure tiempoTimer(Sender: TObject);
    procedure nuevoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FrmJuego: TFrmJuego;
  t,cl,ct: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TFrmJuego.dadoClick(Sender: TObject);
begin
  cl := carita1.Left;
  ct := carita1.Top;
  dado.Rotate := True; // dado es el componente, tiene la propiedad rotate que lo hace girar
  tiempo.Enabled := True;
  carita1.Left := b7.Left + 4;
  carita1.Top := b7.Top + 4;
  t := t + 1;
  if turno.Caption = 'Turno Carita Nº: 4' then
    turno.Caption := 'Turno Carita Nº: 1'
  else
    turno.Caption := 'Turno Carita Nº: ' + IntToStr(t);
end;
 
procedure TFrmJuego.tiempoTimer(Sender: TObject);
begin
// Esta parte de código realmente no hace mucho... 
// solo fue como prueba, en ves del mensaje estaría la pantalla con la pregunta y las opciones de respuesta
  dado.Rotate := False;
  tiempo.Enabled := False;
  if MessageDlg('¿Era su turno?',mtConfirmation,[mbYes,mbNo],0)=mrNo then 
    begin
      penitencia.Caption := 'Regresa a su casilla por mentiroso';
      carita1.Left := cl;
      carita1.Top := ct;
    end;
end;
 
procedure TFrmJuego.nuevoClick(Sender: TObject);
begin
  turno.Caption := 'Turno Carita Nº: 1';
  t := 1;
end;
 
procedure TFrmJuego.FormCreate(Sender: TObject);
begin
  turno.Caption := turno.Caption + '1';
  t := 1;
end;
 
end.

Para las preguntas pensé o en un archivo ini o una pequeña bd, eso sí con los datos cifrados... no queremos trampa 

[eduarcol]

aqui nadie seria capaz de hacer trampas, yo eso no lo creo 

[felipe]

¿Entonces cuál sería el tema, contenido de las preguntas?  :^)