DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

Index: T n

⟦2856d8a0a⟧ TextFile

    Length: 758 (0x2f6)
    Types: TextFile
    Names: »neigh.c«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Empire.V/V1.1/EMPSUBS/neigh.c«

TextFile

#define D_SCTSTR
#define D_UPDATE
#define D_FILES
#include        "empdef.h"

neigh(x, y, cno, dflg)
int     x, y, cno, dflg;
{
        register        dx, dy;

        for( dx = -1; dx <= 1; dx++ ) {
                for( dy = -1; dy <= 1; dy++ ) {
                        if( dx == 0 && dy == 0 ) continue;
                        if( dflg != 0 && (dx * dy) != 0 ) continue;
                        if( getsect(x + dx, y + dy, UP_NONE) == -1 ) continue;
                        if( cno != sect.sct_owned ) continue;
                        nbrx = x + dx;
                        nbry = y + dy;
                        getsect(x, y, UP_OWN);
                        return(1);
                }
        }
        getsect(x, y, UP_NONE);
        return(0);
}