Class TSprite (unit Gameform) |
Inherits from
TObject
..but I didn't eat the salmon mousse !
constructor Create(abitmap:TRect; numimages,rate:integer; explosion:TRect; expimages,erate:integer);
- imploding explosions ??? cool ! } { ---------------------------------------------------------------------------- } { Sprite } { ----------------------------------------------------------------------------
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
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;
constructor Create(abitmap:TRect; numimages,rate:integer; explosion:TRect; expimages,erate:integer);
imploding explosions ??? cool ! } { ---------------------------------------------------------------------------- } { Sprite } { ----------------------------------------------------------------------------
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
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;