Кто делал игрухи?

← →
Владимир Васильев (2002-02-22 12:16) [4]

> VID таким образом будеш делать игру лет 10 :)))
Однако, не всё так плохо, как тебе кажется.
Можно и так :

TPlayerUnit = class(TGameUnit)
private
PlayGo : Boolean;
PlayPenalty : Boolean;
FBombCount : integer;
//FStartX : Double;
//FStartY : Double;
procedure MakePath;
protected
procedure PutBomb;
procedure DoMove(MoveCount: Integer); override;
procedure DoAttack; override;
procedure DoWatchForEnemy; override;
procedure DoDraw; override;
procedure SetLife(const Value: Integer); override;
procedure SetStrength(const Value: Integer); override;
procedure SetBombCount(const Value: Integer);
public
FStrengthCan : Integer;

property BombCount : Integer read FBombCount write SetBombCount;
procedure SetAnim(AUnitState : TUnitState); override;
end;

Это кусок из игры "Вовочка ..."
демо будет доступно в ближайшее время. Код интерфейсной части
будет опубликован после релиза игры.

http://www.gamedev.narod.ru/index.htm

Кто делал игрухи? Найти похожие ветки