Quantcast
Channel: Forum Pasja Informatyki - Najnowsze pytania bez odpowiedzi
Viewing all articles
Browse latest Browse all 21942

Arkanoid z odcinka na tablicach. C++ Builder.

$
0
0

//---------------------------------------------------------------------------


#include <vcl.h>
#pragma hdrstop

#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TArkanoid *Arkanoid;

int x=8,y=8;//ball moving axis
int lBallStart=487,tBallStart=408;
int lPaddleStart=453,tPaddleStart=528;
int howMany=0;
TImage *img[12];
AnsiString Score;


bool collide(TImage *baller,TImage *brick)
{
     if(baller->Left >= brick->Left-baller->Width &&
        baller->Left <= brick->Left+brick->Width &&
        baller->Top >= brick->Top-baller->Height &&
        baller->Top <= brick->Top+brick->Height)
     {
        return true;
     }
     else return false;
}

//---------------------------------------------------------------------------
__fastcall TArkanoid::TArkanoid(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TArkanoid::BallTimerTimer(TObject *Sender)
{

       Score=CurrToStr(howMany);
       if(howMany<10)
                Score="0"+Score;
       if(Score!=Label1->Caption)
                Label1->Caption=Score;

       ball->Left+=x;
       ball->Top +=y;

        if(ball->Left-5 <= background->Left)x=-x;
        if(ball->Top-5<=background->Top)y=-y;
        if(ball->Left+ball->Width+5 >= background->Width) x=-x;

        if(ball->Top >= paddle->Top+paddle->Height+15)
        {
                BallTimer->Enabled=false;
                ball->Visible=false;
                paddle->Visible=false;
                Application->MessageBox("Hou have lost ! :(", "Sorry", NULL);
                Button1->Visible=true;
                Button1->Caption="Again!";
                ball->Left=lBallStart;
                ball->Top=tBallStart;
                paddle->Left=lPaddleStart;
                paddle->Top=tPaddleStart;
                goLeft->Enabled=false;
                goRight->Enabled=false;
                howMany=0;
        } else if( ball->Left > paddle->Left-ball->Width/2 && ball->Left < paddle->Left+paddle->Width &&
             ball->Top+ball->Height > paddle->Top)
             {
                if(y>0)
                {
                        y = -y;
                }
             }
        for(int i=0;i<ARRAYSIZE(img);i++)
        {
                if((collide(ball,img[i]) && img[i]->Visible==true))
                {
                 howMany++;
                 x=-x;
                 y=-y;
                 img[i]->Visible=false;
                }
        }
        if(howMany==12)
        {
                BallTimer->Enabled=false;
                ball->Visible=false;
                paddle->Visible=false;
                Application->MessageBox("You won! :)", "Well played", NULL);
                Button1->Visible=true;
                Button1->Caption="Again!";
                ball->Left=lBallStart;
                ball->Top=tBallStart;
                paddle->Left=lPaddleStart;
                paddle->Top=tPaddleStart;
                goLeft->Enabled=false;
                goRight->Enabled=false;
                howMany=0;
        }
}
//---------------------------------------------------------------------------
void __fastcall TArkanoid::FormClose(TObject *Sender, TCloseAction &Action)
{
        BallTimer->Enabled=false;
        Button1->Visible=true;
        ball->Visible=true;
        paddle->Visible=true;
        ball->Left=lBallStart;
        ball->Top=tBallStart;
        paddle->Left=lPaddleStart;
        paddle->Top=tPaddleStart;

}
//---------------------------------------------------------------------------
void __fastcall TArkanoid::goLeftTimer(TObject *Sender)
{
       if(paddle->Left>10)
                 paddle->Left-=10;
}
//---------------------------------------------------------------------------
void __fastcall TArkanoid::goRightTimer(TObject *Sender)
{
        if(paddle->Left+paddle->Width < background->Left + background->Width-10)
                paddle->Left+=10;
}
//---------------------------------------------------------------------------
void __fastcall TArkanoid::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Key==VK_LEFT)
             goLeft->Enabled=true;
        else if(Key==VK_RIGHT)
                goRight->Enabled=true;

}
//---------------------------------------------------------------------------
void __fastcall TArkanoid::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Key==VK_LEFT)
             goLeft->Enabled=false;
        else if(Key==VK_RIGHT)
                goRight->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TArkanoid::FormCreate(TObject *Sender)
{
            TImage *images[]={b1,b2,b3,b4,b5,b6,b7,b8,b9,b11,b12};
            for(int i=0;i<ARRAYSIZE(images);i++)
            {
                images[i]->Visible=true;
            }

                ball->Visible=true;
                paddle->Visible=true;
                x=-x;
                y=-y;
                *img=*images;
}
//---------------------------------------------------------------------------
void __fastcall TArkanoid::Button1Click(TObject *Sender)
{
                BallTimer->Enabled=true;
                Button1->Visible=false;
                for(int i=0;i<ARRAYSIZE(img);i++)
                {
                        img[i]->Visible=true;
                }

                ball->Visible=true;
                paddle->Visible=true;
                x=-x;
                y=-y;
}
//---------------------------------------------------------------------------

Cześć,

namieszałem coś ze wskaźnikami, gdy próbowałem przerobić arkanoida tak by nie kopiować kodu dla każdego klocka. Kompilować, się kompiluje jednak wyskakuje error:

Odwołuje się to do funkcji collide. Błąd prawdopodobnie leży w tym, że przy metodzie FormCreate źle podstawiam wskaźnik tablicy images do wskaźnika img (wydaję mi się że tam nie powinno być gwiazdek, ale czy są czy nie to nie działa ). Byłbym wdzięczny za wskazówki, dzięki :).

Pozdrawiam

Jakobosik


Viewing all articles
Browse latest Browse all 21942

Trending Articles


TRX Antek AVT - 2310 ver 2,0


Автовишка HAULOTTE HA 16 SPX


POTANIACZ


Zrób Sam - rocznik 1985 [PDF] [PL]


Maxgear opinie


BMW E61 2.5d błąd 43E2 - klapa gasząca a DPF


Eveline ➤ Matowe pomadki Velvet Matt Lipstick 500, 506, 5007


Auta / Cars (2006) PLDUB.BRRip.480p.XviD.AC3-LTN / DUBBING PL


Peugeot 508 problem z elektroniką


AŚ Jelenia Góra