MensajePublicado: Jue 29 Ene, 2004 6:49 pm    Asunto: Mini juego Responder citando
Estaba pasando el rato en el curro... y he encontrado una web en japones con un "minijuego" bastante chorra.

Solo hay que poner 1 TTimer y 2 TImage...

Código:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Timer1->Enabled = false;
  DoubleBuffered = true;

  Form1->Caption = "GAME";
  Form1->ClientWidth  = 200;
  Form1->ClientHeight = 200;
  Form1->BorderStyle  = bsDialog;
  Form1->Position     = poDesktopCenter;

  Image1->Top  = 0;
  Image1->Left = 0;
  Image1->Width = 200;
  Image1->Height= 200;
  Image1->Visible = false;

  Image2->Top  = 0;
  Image2->Left = 0;
  Image2->Width = 200;
  Image2->Height= 200;


  jx = 100;
  jy = 175;
  sf = 0;       
  ef = 1;       
  ex = 100;
  ey = 15;
  eh = 0;       
  score = 0;   
  miss = 0;


  Image1->Canvas->Brush->Color = clBlack;
  Image1->Canvas->FillRect( Rect( 0, 0, 200,200) );

  Timer1->Interval = 45;
  Timer1->Enabled = true;   



}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  switch ( Key )
  {
    case VK_SPACE: KS = 1;
                   break;
    case VK_LEFT : K4 = 1;
                   break;
    case VK_RIGHT: K6 = 1;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  switch ( Key )
  {
    case VK_SPACE: KS = 0;
                   break;
    case VK_LEFT : K4 = 0;
                   break;
    case VK_RIGHT: K6 = 0;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{

  Image1->Canvas->FillRect( Rect( 0, 0, 200, 200 ) );


  Image1->Canvas->Font->Size = 11;
  Image1->Canvas->Font->Color = clSilver;
  Image1->Canvas->TextOut( 20, 1, "Score" );
  Image1->Canvas->TextOut( 132, 1, "Miss" );

  Image1->Canvas->Font->Color = clFuchsia;
  Image1->Canvas->TextOut( 66, 1, IntToStr( score ) );
  Image1->Canvas->TextOut( 175, 1, IntToStr( miss ) );

  Image1->Canvas->Font->Size = 16;

  if ( miss > 2 ) {
    Image1->Canvas->Font->Color = clYellow;
    Image1->Canvas->TextOut( 50, 100, "Game Over" );
    Timer1->Enabled = false;
  }

  if ( K4 == 1 ) {
    if ( jx > 10 ) jx -= 5;
  }
  if ( K6 == 1 ) {
    if ( jx < 185 ) jx += 5;
  }

  Image1->Canvas->Font->Color = clAqua;
  Image1->Canvas->TextOut( jx-9, jy, "<>" );


  if ( sf == 0 && KS == 1 ) {
    sf = 1;
    sx = jx;
    sy = jy-5;
  }

  if ( sf == 1 ) {
    sy -= 6;
    Image1->Canvas->Font->Color = clYellow;
    Image1->Canvas->TextOut( sx-9, sy, "¨" );

    if ( (ex-sx) > -26 && (ex-sx) < 23 ) {
    if ( (ey-sy) > -13 && (ey-sy) < 13 ) {
      ef = 2;
      sf = 0;
      score += 10;
    }
    }

    if ( sy < -10 ) {
      ++miss;
      sf = 0;
    }
  }

  if ( ef == 1 ) {
    if ( eh == 0 ) {
      ex -= 4;
      if ( ex < 22 ) eh = 1;
    } else {
      ex += 4;
      if ( ex > 195 ) eh = 0;
    }
  }


  if ( ef == 1 ) {
    Image1->Canvas->Font->Color = clRed;
    Image1->Canvas->TextOut( ex-19, ey, "oo" );
  } else {
    Image1->Canvas->Font->Color = clYellow;
    if ( ef%2 == 0 ) {
      Image1->Canvas->TextOut( ex-19, ey, "oo" );
    } else {
      Image1->Canvas->TextOut( ex-19, ey, "oo" );
    }
    if ( ++ef > 20 ) ef = 0;
  }

  if ( ef == 0 ) {
    ex = 100;
    eh = random(2);
  }
  Image2->Canvas->CopyRect( Image2->Canvas->ClipRect,
                            Image1->Canvas, Image2->Canvas->ClipRect);
}
//---------------------------------------------------------------------------


En la parte private debe quedar mas o menos asi:

Código:
class TForm1 : public TForm
{
__published:   // IDE-managed Components
    TImage *Image1;
    TImage *Image2;
    TTimer *Timer1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
    void __fastcall FormKeyUp(TObject *Sender, WORD &Key,
          TShiftState Shift);
    void __fastcall Timer1Timer(TObject *Sender);
private:   // User declarations

  int jx, jy;
  int sx, sy;
  int ex, ey;

  int sf;
  int ef;
  int eh;

  int score;
  int miss;

  int K4, K6, KS;

public:      // User declarations
    __fastcall TForm1(TComponent* Owner);
};


Espero que nadie se sienta frustrado Smile

Creditos:
http://hp.vector.co.jp/authors/VA011006/maga/maga.html