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.
Juego de habilidad mental
Comenzado por
felipe
, dic 05 2008 10:54
5 respuestas en este tema
#1
Escrito 05 diciembre 2008 - 10:54
#2
Escrito 05 diciembre 2008 - 10:58
Aqui estan los archivos fuente...
Archivos adjuntos
#3
Escrito 05 diciembre 2008 - 11:10
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
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
#4
Escrito 05 diciembre 2008 - 01:33
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
Para las preguntas pensé o en un archivo ini o una pequeña bd, eso sí con los datos cifrados... no queremos trampa
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
#5
Escrito 05 diciembre 2008 - 01:47
aqui nadie seria capaz de hacer trampas, yo eso no lo creo
#6
Escrito 05 diciembre 2008 - 02:00
¿Entonces cuál sería el tema, contenido de las preguntas? :^)