joffaclass.pas

一个用delphi编写的过关游戏

unit joffaclass;

interface
Type
  TObjType = (bonus, enemy, obj);
  TObj = Class
    private
    public
    py,vx,vy,ovy : single;
    typo : integer;
    ax,ay : single;
    direction : byte;
    tag : string[10];
    pic : single;
    energy,itag,stall,invince : integer;
    istrampo,crashx,crashy : boolean;
    pusher,pushable,blockcrash : boolean;
    gravity : boolean;
    constructor create(objtype : integer);
    destructor free;
    end;

implementation

constructor tobj.create;
begin

end;

destructor tobj.free;
begin

end;


end.