megaman/Bgr.HC

I64 BgrIncrX, BgrIncrY;
I64 BgrState;
I64 BgrMapStartPosY, BgrMapPosX, BgrMapPosY;
I64 BgrScrollPosX, BgrScrollPosY;

CDC *OpaqueTile = DCNew(48, 48);
DCFill(OpaqueTile, DKGRAY);

U16 GetTilesAdj(I64 _xx, I64 _yy, I64 _dir) {
    I64 TileIncr, TileH, TileL, TileZ;
    TileIncr = 0;
    TileZ = _yy;
    if (_dir==1) { _xx += 48; };
    while (TileZ<0) { TileZ += 48; TileIncr++; };
    TileH = GrPeek(BgrMap, (BgrScrollPosX+_xx) / 48, ((BgrScrollPosY+TileZ) / 48)+0+BgrMapStartPosY-TileIncr);
    TileL = GrPeek(BgrMap, (BgrScrollPosX+_xx) / 48, ((BgrScrollPosY+TileZ) / 48)+1+BgrMapStartPosY-TileIncr);
    return (TileH * 256) + TileL;
};
U16 GetTilesBot(I64 _xx, I64 _yy) {
    I64 TileIncr, TileH, TileL, TileZ;
    TileIncr = 0;
    TileZ = _yy;
    while (TileZ<0) { TileZ += 48; TileIncr++; };
    TileH = GrPeek(BgrMap, (BgrScrollPosX+_xx) / 48, ((BgrScrollPosY+TileZ) / 48)+2+BgrMapStartPosY-TileIncr);
    TileL = GrPeek(BgrMap, ((BgrScrollPosX+_xx) / 48)+1, ((BgrScrollPosY+TileZ) / 48)+2+BgrMapStartPosY-TileIncr);
    return (TileH * 256) + TileL;
};
U16 GetTilesTop(I64 _xx, I64 _yy) {
    I64 TileIncr, TileH, TileL, TileZ;
    TileIncr = 0;
    TileZ = _yy;
    while (TileZ<0) { TileZ += 48; TileIncr++; };
    TileH = GrPeek(BgrMap, (BgrScrollPosX+_xx) / 48, ((BgrScrollPosY+TileZ) / 48)-1+BgrMapStartPosY-TileIncr);
    TileL = GrPeek(BgrMap, ((BgrScrollPosX+_xx) / 48)+1, ((BgrScrollPosY+TileZ) / 48)-1+BgrMapStartPosY-TileIncr);
    return (TileH * 256) + TileL;
};

I64 AlignToMapTile(I64 _xx, I64 _yy, U8 _tile) {
    I64 TileIncr, TileH, TileL, TileZ, LTXX, LTIX, LTIY;
    LTXX = -1;
    LTIX = -1;
    LTIY = -1;
    TileIncr = 0;
    TileZ = _yy;
    while (TileZ<0) { TileZ += 48; TileIncr++; };
    TileH = GrPeek(BgrMap, (BgrScrollPosX+_xx) / 48, ((BgrScrollPosY+TileZ) / 48)-1+BgrMapStartPosY-TileIncr);
    TileL = GrPeek(BgrMap, ((BgrScrollPosX+_xx) / 48)+1, ((BgrScrollPosY+TileZ) / 48)-1+BgrMapStartPosY-TileIncr);
    if (TileH==_tile) {
        LTIY = ((BgrScrollPosY+TileZ) / 48)-1+BgrMapStartPosY-TileIncr;
        LTIX = (BgrScrollPosX+_xx) / 48;
    };
    if (TileL==_tile) {
        LTIY = ((BgrScrollPosY+TileZ) / 48)-1+BgrMapStartPosY-TileIncr;
        LTIX = ((BgrScrollPosX+_xx) / 48)+1;
    };
    if (LTIX>-1) {
        BgrIncrX=0;
        BgrIncrY=0;
        BgrMapPosX=BgrScrollPosX/48;
        BgrMapPosY=BgrMapStartPosY+(BgrScrollPosY/48);
        while (BgrIncrY<(48*20)) {
            BgrIncrX = 0;
            while (BgrIncrX<(48*26)) {
                if (BgrMapPosY==LTIY && BgrMapPosX==LTIX) { return BgrIncrX - (BgrScrollPosX % 48); };
                BgrIncrX += 48;
                BgrMapPosX++;
                if (BgrMapPosX>(BgrScrollPosX/48)+25) {
                    BgrMapPosX = BgrScrollPosX/48;
                    BgrMapPosY++;
                };
            };
            BgrIncrY += 48;
        };
    };
    return LTXX;
};

U0 FreeBgrs() {
    Free(BgrImage);
    Free(BgrMap);
    Free(BgrLayer);
    Free(OpaqueTile);
};

U0 UpdateBgr() {
    BgrIncrX=0;
    BgrIncrY=0;
    BgrMapPosX=BgrScrollPosX/48;
    BgrMapPosY=BgrMapStartPosY+(BgrScrollPosY/48);
    if (MM_EDIT_MODE==FALSE) {
      DCFill(Buffer, TRANSPARENT);
      GrBlot(Buffer, -(BgrScrollPosX % (BgrImage->width-640)), -BgrScrollPosY, BgrImage);
    } else {
      DCFill(Buffer, DKGRAY);
    };

    while (BgrIncrY<(48*20)) {
        BgrIncrX = 0;
        while (BgrIncrX<(48*26)) {
            switch (GrPeek(BgrMap, BgrMapPosX, BgrMapPosY)) {
                // Ground tiles
                case 0x30:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 255, 0, 255+47, 0+47, 0);
                break;
                // Jump-through blocks
                case 0x3D:
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 455, 0, 455+47, 0+47, 0);
                break;
                // Left1stPanel
                case 0x31:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 0, 51, 0+47, 51+47, 0);
                break;
                // TopLeft1stPanel
                case 0x32:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 0, 0, 0+47, 0+47, 0);
                break;
                // Left2ndPanel
                case 0x33:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 51, 51, 51+47, 51+47, 0);
                break;
                // TopLeft2ndPanel
                case 0x34:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 51, 0, 51+47, 0+47, 0);
                break;
                // MidPanel
                case 0x35:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 102, 51, 102+47, 51+47, 0);
                break;
                // TopMidPanel
                case 0x36:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 102, 0, 102+47, 0+47, 0);
                break;
                // Right2ndPanel
                case 0x37:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 153, 51, 153+47, 51+47, 0);
                break;
                // TopRight2ndPanel
                case 0x38:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 153, 0, 153+47, 0+47, 0);
                break;
                // Right1stPanel
                case 0x39:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 204, 51, 204+47, 51+47, 0);
                break;
                // TopRight1stPanel
                case 0x3A:
                GrBlot(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, OpaqueTile);
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 204, 0, 204+47, 0+47, 0);
                break;
                // Ladder
                case 0x48:
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 0, 204, 0+47, 204+47, 0);
                break;
                // Ladder (top, can stand on)
                case 0x68:
                MMSprite(SPR_Tiles, 0, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 0, 204, 0+47, 204+47, 0);
                break;
                // Bottom of pit (death, not screen transition)
                case 0x7E:
                if (MM_EDIT_MODE) {
                    Buffer->color=RED;
                    GrRect(Buffer, BgrIncrX - (BgrScrollPosX % 48), BgrIncrY, 48, 48);
                    break;
                }

            };
            BgrIncrX += 48;
            BgrMapPosX++;
            if (BgrMapPosX>(BgrScrollPosX/48)+25) {
                BgrMapPosX = BgrScrollPosX/48;
                BgrMapPosY++;
            };
        };
        BgrIncrY += 48;
    };
};