Class Tdoubly_linked_list (unit Gameform) |
Inherits from
TObject
This is a bit excessive really, it works though ! } { bigger than it needs to be because of dynamic allocation and fixed limits } { by which I mean - maximum number of bullets is fixed, so linked list has
limits at both ends } { ....and crap coding here ! (true too)
constructor create(size:integer);
- ---------------------------------------------------------------------------- } { Doubly linked list } { ---------------------------------------------------------------------------- } { this is really dreadful, but it works
destructor destroy;
procedure freeup(num:integer);
procedure initialize;
function nextfree : integer;
firstfree : integer;
firstused : integer;
lastfree : integer;
lastone : ^indexarray;
lastused : integer;
listsize : integer;
listsizem1 : integer;
nextone : ^indexarray;
objects : ^objectarray;
constructor create(size:integer);
---------------------------------------------------------------------------- } { Doubly linked list } { ---------------------------------------------------------------------------- } { this is really dreadful, but it works
destructor destroy;
procedure freeup(num:integer);
procedure initialize;
function nextfree : integer;
firstfree : integer;
firstused : integer;
lastfree : integer;
lastone : ^indexarray;
lastused : integer;
listsize : integer;
listsizem1 : integer;
nextone : ^indexarray;
objects : ^objectarray;