Home | History | Annotate | Line # | Download | only in warp 
      1 /* Header: object.c,v 7.0 86/10/08 15:12:55 lwall Exp */
      2 
      3 /* Log:	object.c,v
      4  * Revision 7.0  86/10/08  15:12:55  lwall
      5  * Split into separate files.  Added amoebas and pirates.
      6  *
      7  */
      8 
      9 #include "EXTERN.h"
     10 #include "warp.h"
     11 #include "INTERN.h"
     12 #include "object.h"
     13 
     14 void
     15 object_init(void)
     16 {
     17     ;
     18 }
     19 
     20 OBJECT *
     21 make_object(char typ, char img, int px, int py, int vx, int vy, long energ,
     22     long mas, OBJECT *where)
     23 {
     24     OBJECT *obj;
     25 
     26     if (free_root.next == &free_root)
     27 #ifndef lint
     28 	obj = (OBJECT *) malloc(sizeof root);
     29 #else
     30 	obj = Null(OBJECT*);
     31 #endif
     32     else {
     33 	obj = free_root.next;
     34 	free_root.next = obj->next;
     35 	obj->next->prev = &free_root;
     36     }
     37     obj->type = typ;
     38     obj->image = img;
     39     obj->next = where;
     40     obj->prev = where->prev;
     41     where->prev = obj;
     42     obj->prev->next = obj;
     43     obj->velx = vx;
     44     obj->vely = vy;
     45     obj->contend = 0;
     46     obj->strategy = 0;
     47     obj->flags = 0;
     48     obj->posx = px;
     49     obj->posy = py;
     50     if (typ != Torp && typ != Web) {
     51 	occupant[py][px] = obj;
     52     }
     53     obj->energy = energ;
     54     obj->mass = mas;
     55     return(obj);
     56 }
     57 
     58 void
     59 unmake_object(OBJECT *curobj)
     60 {
     61     curobj->prev->next = curobj->next;
     62     curobj->next->prev = curobj->prev;
     63     if (curobj == movers) {
     64 	movers = curobj->next;
     65     }
     66     free_object(curobj);
     67 }
     68 
     69 void
     70 free_object(OBJECT *curobj)
     71 {
     72     curobj->next = free_root.next;
     73     curobj->prev = &free_root;
     74     free_root.next->prev = curobj;
     75     free_root.next = curobj;
     76 }
     77