Return to p_telept.c CVS log

Up to [DOOM] / doom

Annotation of doom/p_telept.c, revision 1.1

1.1     ! root        1: #include "doomdef.h"
        !             2: #include "p_local.h"
        !             3: 
        !             4: 
        !             5: /*
        !             6: ==============
        !             7: =
        !             8: = P_Telefrag
        !             9: =
        !            10: = Kill all monsters around the given spot
        !            11: =
        !            12: ==============
        !            13: */
        !            14: 
        !            15: void P_Telefrag (mobj_t *thing, fixed_t x, fixed_t y)
        !            16: {
        !            17:        int             delta;
        !            18:        int             size;
        !            19:        mobj_t  *m;
        !            20:        
        !            21:        for (m=mobjhead.next ; m != &mobjhead ; m=m->next)
        !            22:        {
        !            23:                if (!(m->flags & MF_SHOOTABLE) )
        !            24:                        continue;               /* not shootable */
        !            25:                size = m->radius + thing->radius + 4*FRACUNIT;
        !            26:                delta = m->x - x;
        !            27:                if (delta < - size || delta > size)
        !            28:                        continue;
        !            29:                delta = m->y - y;
        !            30:                if (delta < -size || delta > size)
        !            31:                        continue;
        !            32:                P_DamageMobj (m, thing, thing, 10000);
        !            33:                m->flags &= ~(MF_SOLID|MF_SHOOTABLE);
        !            34:        }
        !            35: }
        !            36: 
        !            37: 
        !            38: /*================================================================== */
        !            39: /* */
        !            40: /*                                             TELEPORTATION */
        !            41: /* */
        !            42: /*================================================================== */
        !            43: int    EV_Teleport( line_t *line,mobj_t *thing )
        !            44: {
        !            45:        int             i;
        !            46:        int             tag;
        !            47:        boolean         flag;
        !            48:        mobj_t          *m,*fog;
        !            49:        unsigned        an;
        !            50:        sector_t        *sector;
        !            51:        fixed_t         oldx, oldy, oldz;
        !            52:        int             side;
        !            53:        
        !            54:        side = !P_PointOnLineSide (thing->x, thing->y, line);
        !            55:        
        !            56:        if (thing->flags & MF_MISSILE)
        !            57:                return 0;                       /* don't teleport missiles */
        !            58:                
        !            59:        if (side == 1)          /* don't teleport if hit back of line, */
        !            60:                return 0;               /* so you can get out of teleporter */
        !            61:        
        !            62:        tag = line->tag;
        !            63:        for (i = 0; i < numsectors; i++)
        !            64:                if (sectors[ i ].tag == tag )
        !            65:                {
        !            66:                        for (m=mobjhead.next ; m != &mobjhead ; m=m->next)
        !            67:                        {
        !            68:                                if (m->type != MT_TELEPORTMAN )
        !            69:                                        continue;               /* not a teleportman */
        !            70:                                sector = m->subsector->sector;
        !            71:                                if (sector-sectors != i )
        !            72:                                        continue;               /* wrong sector */
        !            73: 
        !            74:                                oldx = thing->x;
        !            75:                                oldy = thing->y;
        !            76:                                oldz = thing->z;
        !            77:                                thing->flags |= MF_TELEPORT;
        !            78:                                P_Telefrag (thing, m->x, m->y);
        !            79:                                flag = P_TryMove (thing, m->x, m->y);
        !            80:                                thing->flags &= ~MF_TELEPORT;
        !            81:                                if (!flag)
        !            82:                                        return 0;       /* move is blocked */
        !            83:                                thing->z = thing->floorz;
        !            84: /* spawn teleport fog at source and destination */
        !            85:                                fog = P_SpawnMobj (oldx, oldy, oldz, MT_TFOG);
        !            86:                                S_StartSound (fog, sfx_telept);
        !            87:                                an = m->angle >> ANGLETOFINESHIFT;
        !            88:                                fog = P_SpawnMobj (m->x+20*finecosine[an], m->y+20*finesine[an]
        !            89:                                        , thing->z, MT_TFOG);
        !            90:                                S_StartSound (fog, sfx_telept);
        !            91:                                if (thing->player)
        !            92:                                        thing->reactiontime = 18;       /* don't move for a bit */
        !            93:                                thing->angle = m->angle;
        !            94:                                thing->momx = thing->momy = thing->momz = 0;
        !            95:                                return 1;
        !            96:                        }       
        !            97:                }
        !            98:        return 0;
        !            99: }
        !           100: 

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