Class TSprite (unit Gameform)

Inherits from

TObject

..but I didn't eat the salmon mousse !

Constructors


constructor Create(abitmap:TRect; numimages,rate:integer; explosion:TRect; expimages,erate:integer);

imploding explosions ??? cool ! } { ---------------------------------------------------------------------------- } { Sprite } { ----------------------------------------------------------------------------


Functions

function animate : boolean;


procedure changeexplosion(newpic:TRect; numimages,rate:integer);


procedure changepicture(newpic:TRect; numimages,rate:integer);

when we kill one monster and replace with the next type

destructor Destroy;


procedure Draw;

not used at the moment

procedure Erase;


procedure kill;

not used normally

procedure MoveTo(x,y:integer);

Delphi 2 doesn't set default results - bastards

procedure SetupLimits(x,y,xmx,xmn,ymx,ymn,dir:integer);

the limits are used to stop bullets and sprites going too far in any direction

Properties

Events

Variables

exploder : Tmultiple_bitmap;


firedirection : integer;


maxx : integer;


maxy : integer;


minx : integer;


miny : integer;


needsredraw : boolean;


offx : integer;


offy : integer;


sh : integer;


spritepic : Tmultiple_bitmap;


status : spritestate;


sw : integer;


sx : integer;


sy : integer;


thisdirection : integer;



Constructors


constructor Create(abitmap:TRect; numimages,rate:integer; explosion:TRect; expimages,erate:integer);

imploding explosions ??? cool ! } { ---------------------------------------------------------------------------- } { Sprite } { ----------------------------------------------------------------------------


Functions


function animate : boolean;


procedure changeexplosion(newpic:TRect; numimages,rate:integer);


procedure changepicture(newpic:TRect; numimages,rate:integer);

when we kill one monster and replace with the next type


destructor Destroy;


procedure Draw;

not used at the moment


procedure Erase;


procedure kill;

not used normally


procedure MoveTo(x,y:integer);

Delphi 2 doesn't set default results - bastards


procedure SetupLimits(x,y,xmx,xmn,ymx,ymn,dir:integer);

the limits are used to stop bullets and sprites going too far in any direction


Properties


Events


Variables


exploder : Tmultiple_bitmap;


firedirection : integer;


maxx : integer;


maxy : integer;


minx : integer;


miny : integer;


needsredraw : boolean;


offx : integer;


offy : integer;


sh : integer;


spritepic : Tmultiple_bitmap;


status : spritestate;


sw : integer;


sx : integer;


sy : integer;


thisdirection : integer;