Return to object.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / games / warp

Annotation of 43BSDReno/games/warp/object.c, revision 1.1

1.1     ! root        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()
        !            16: {
        !            17:     ;
        !            18: }
        !            19: 
        !            20: OBJECT *
        !            21: make_object(typ, img, py, px, vy, vx, energ, mas, where)
        !            22: char typ;
        !            23: char img;
        !            24: int px, py, vx, vy;
        !            25: long energ, mas;
        !            26: OBJECT *where;
        !            27: {
        !            28:     Reg1 OBJECT *obj;
        !            29: 
        !            30:     if (free_root.next == &free_root)
        !            31: #ifndef lint
        !            32:        obj = (OBJECT *) malloc(sizeof root);
        !            33: #else
        !            34:        obj = Null(OBJECT*);
        !            35: #endif
        !            36:     else {
        !            37:        obj = free_root.next;
        !            38:        free_root.next = obj->next;
        !            39:        obj->next->prev = &free_root;
        !            40:     }
        !            41:     obj->type = typ;
        !            42:     obj->image = img;
        !            43:     obj->next = where;
        !            44:     obj->prev = where->prev;
        !            45:     where->prev = obj;
        !            46:     obj->prev->next = obj;
        !            47:     obj->velx = vx;
        !            48:     obj->vely = vy;
        !            49:     obj->contend = 0;
        !            50:     obj->strategy = 0;
        !            51:     obj->flags = 0;
        !            52:     obj->posx = px;
        !            53:     obj->posy = py;
        !            54:     if (typ != Torp && typ != Web) {
        !            55:        occupant[py][px] = obj;
        !            56:     }
        !            57:     obj->energy = energ;
        !            58:     obj->mass = mas;
        !            59:     return(obj);
        !            60: }
        !            61: 
        !            62: void
        !            63: unmake_object(curobj)
        !            64: Reg1 OBJECT *curobj;
        !            65: {
        !            66:     curobj->prev->next = curobj->next;
        !            67:     curobj->next->prev = curobj->prev;
        !            68:     if (curobj == movers) {
        !            69:        movers = curobj->next;
        !            70:     }
        !            71:     free_object(curobj);
        !            72: }
        !            73: 
        !            74: void
        !            75: free_object(curobj)
        !            76: Reg1 OBJECT *curobj;
        !            77: {
        !            78:     curobj->next = free_root.next;
        !            79:     curobj->prev = &free_root;
        !            80:     free_root.next->prev = curobj;
        !            81:     free_root.next = curobj;
        !            82: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.