> середу програмування Builder C + +
Дата останньої корекції: 16.10.2012.
Версія 1.5
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + */
# include
# pragma hdrstop
# include
# include
# include В«Unit1.hВ»
# include В«Unit2.hВ»
// -
# pragma package (smart_init)
# pragma resource В«*. dfmВ»
// **************************************** *************************************
gg {: () {x = 30; y = 30; up = false; down = false; left = false; right = false;}
// ~ gg (); x; y; class map; class key; class liv; left, right, up, down; paint (map * m, TTimer * Timer3, TTimer * Timer2, TLabel * Label4, key * k, liv * l); drawgg (TImage * Image1, TForm * Form1);
};
map {: () {/ * key_all = 0; *// * ochki = 1; *// * key = 0; */fin = 0; mod = false; level = 1; payse = 0; loaod = 0; = new Graphics: TBitmap (); = new Graphics: TBitmap (); = new Graphics: TBitmap (); = new Graphics: TBitmap (); = new Graphics: TBitmap (); = new Graphics: TBitmap ();
> LoadFromFile (ExtractFilePath (Application-> ExeName) + В«ico . bmpВ»); -> LoadFromFile (ExtractFilePath (Application-> ExeName) + В«ico . bmpВ») ; -> LoadFromFile (ExtractFilePath (Application-> ExeName) + В«ico . bmpВ»); -> LoadFromFile (ExtractFilePath (Application-> ExeName) + В«ico . bmpВ»); -> LoadFromFile ( ExtractFilePath (Application-> ExeName) + В«ico ea.bmpВ»); -> LoadFromFile (ExtractFilePath (Application-> ExeName) + В«ico eb.bmpВ»);
}
// ~ map (); * f2, * sg; a [10] [10] ;/ * ochki */fin,/* key, key_all, */level, lkl, payse, sav, loaod;: TBitmap * gBitmap;: TBitmap * gBitmap2;: TBitmap * gBitmap3;: TBitmap * gBitmap4;: TBitmap * gBitmap5;: TBitmap * gBitmap6;
// Graphics: TBitmap * gBitmap7; mod, levelup; check (TCheckBox * CheckBox1, TForm * Form1, gg * c);
// void allkey (); pause (TImage * Image3p, TTimer * Timer5, TTimer * Timer1, TTimer * Timer666); savegame (TLabel * Label3s, TTimer * Timer2, liv * l); loadgame (TLabel * Label5h, TForm * Form1, TTimer * Timer5, TTimer * Timer1, TTimer * Timer666, liv * l); Paint_Map (TForm * Form1, TImage * Image1, gg a2, key * k); finish (TImage * Image4, gg p, TTimer * Timer1, TTimer * Timer5, TTimer * Timer666, TImage * Image7, TCheckBox * CheckBox1, TTimer * Timer2, TTimer * Timer4, TTimer * Timer3, TImage * Image1, TLabel * Label3h, TLabel * Label4h, TLabel * Label5h...