home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / spx10.zip / SPX_INT.ZIP / SPX_OBJ.INT < prev    next >
Text File  |  1993-05-04  |  1KB  |  39 lines
  1. Unit SPX_OBJ;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. Interface
  6.  
  7. type
  8.   plist   = ^tlist;
  9.   PObjs   = ^TObjs;
  10.   TObjs   = object
  11.               powner           : plist;
  12.               killed,cankill,
  13.               overshow         : boolean;
  14.               id               : integer;
  15.               constructor init;
  16.               procedure drawitemobject;virtual;
  17.               procedure calcitemobject;virtual;
  18.               function checkhit(hx,hy:integer;var item:pobjs):boolean;virtual;
  19.               destructor done; virtual;
  20.             end;
  21.   tlist = record
  22.             item      : pobjs;
  23.             prev,next : plist;
  24.           end;
  25.   pkill = ^tkill;
  26.   tkill = record
  27.             tk   : plist;
  28.             next : pkill;
  29.           end;
  30.  
  31. procedure addp(var nkbeg,nkend,p:plist);
  32. procedure deletep(var nkbeg,nkend,p:plist);
  33. procedure calcitems(var nkbeg:plist);
  34. procedure drawitems(var nkbeg:plist;over:boolean);
  35. procedure add2kill_list(var kill:pkill;var i:plist);
  36. procedure cleankill_list(var kill:pkill;var nkbeg,nkend:plist);
  37. procedure clean_plist(var nkbeg,nkend:plist);
  38.  
  39.