|
6
|
|
,
- delphi directx 8.1 |
|
Delphi. |
|
[]
[ 1] []
[ ] |
|
- ,
.
", !" ,
-
, 4 .
. ,
,
.
. ,
- . - ,
- 1 . 3
999 .
. |
|
, -
TD3DGameApp.UpdateInput
{...}
if
PressButton in m_DXInput.States
then begin
Area := TargetBtnArea(GetCursorPos); //
//
{...}
if
LeftUpCatch in m_DXInput.States then begin //.
.
Area := 0; //
,
end;
{...}
-
TD3DGameApp.FrameMoveGameSituation
-
//
if (Area >= 0) and (Area < 4) then begin
WolfPos := 1 + Area;
WolfPosSet := WolfPosSet + [WolfPos];
end;
-
//
-
if not StopGame then begin
//
CreateNewEgg;
//
RollEggs;
//
RabbitLookedFrom;
//
IncreaseGameSpeed;
end; {of StopGame or ResetShtraf}
CrashEggs; // ,
//,
FlashShtraf;
|
|
",
!".
, ,
- .
. |
|
. |
|
- 5
- GameClasses_src
:
- ,
, ,
, |
|
" ". ,
. |
|
 |
|
,
,
3D- Scene2Game
.
3d- ,
.
, .
.
delphi
directx. |
|
 |
|
:
-
9 (),
- ;
-
( [V]);
-
[];
-
(, , );
j, k, l, i
-
- , ;
-
() -
,
;
-
, ;
-
( ); |
|
", !".
TD3DGameApp.IncreaseGameSpeed
, , ,
, ,
,
", !" |
|
|
|
[]
[ 1] []
[ ] |
|
|