#include "kknd.h"

/* =========================================================================
 * sprites.c - Procedural 2D sprite/terrain generation.
 * Recreates the chunky post-apocalyptic KKND look without using any
 * original game assets. All art is drawn at runtime into SDL textures.
 * ========================================================================= */

#define SURF_FMT SDL_PIXELFORMAT_RGBA32

static SDL_Surface *new_surf(int w, int h) {
    return SDL_CreateRGBSurfaceWithFormat(0, w, h, 32, SURF_FMT);
}

static void px(SDL_Surface *s, int x, int y, Uint8 r, Uint8 g, Uint8 b, Uint8 a) {
    if (x < 0 || y < 0 || x >= s->w || y >= s->h) return;
    Uint32 *p = (Uint32 *)((Uint8 *)s->pixels + y * s->pitch);
    Uint32 pix = (a << 24) | (b << 16) | (g << 8) | r;
    p[x] = pix;
}

static void fill_rect(SDL_Surface *s, int x, int y, int w, int h,
                      Uint8 r, Uint8 g, Uint8 b, Uint8 a) {
    for (int j = y; j < y + h; j++)
        for (int i = x; i < x + w; i++)
            px(s, i, j, r, g, b, a);
}

static void disc(SDL_Surface *s, int cx, int cy, int rad,
                 Uint8 r, Uint8 g, Uint8 b, Uint8 a) {
    for (int j = -rad; j <= rad; j++)
        for (int i = -rad; i <= rad; i++)
            if (i*i + j*j <= rad*rad)
                px(s, cx + i, cy + j, r, g, b, a);
}

static void ring(SDL_Surface *s, int cx, int cy, int rad, int t,
                 Uint8 r, Uint8 g, Uint8 b, Uint8 a) {
    for (int j = -rad; j <= rad; j++)
        for (int i = -rad; i <= rad; i++) {
            int d = i*i + j*j;
            if (d <= rad*rad && d >= (rad - t)*(rad - t))
                px(s, cx + i, cy + j, r, g, b, a);
        }
}

static void line(SDL_Surface *s, int x0, int y0, int x1, int y1,
                 Uint8 r, Uint8 g, Uint8 b, Uint8 a) {
    int dx = abs(x1 - x0), dy = -abs(y1 - y0);
    int sx = x0 < x1 ? 1 : -1, sy = y0 < y1 ? 1 : -1;
    int err = dx + dy;
    for (;;) {
        px(s, x0, y0, r, g, b, a);
        if (x0 == x1 && y0 == y1) break;
        int e2 = 2 * err;
        if (e2 >= dy) { err += dy; x0 += sx; }
        if (e2 <= dx) { err += dx; y0 += sy; }
    }
}

static SDL_Color darken(SDL_Color c, float f) {
    return (SDL_Color){
        (Uint8)(c.r*f), (Uint8)(c.g*f), (Uint8)(c.b*f), c.a };
}
static SDL_Color lighten(SDL_Color c, float f) {
    return (SDL_Color){
        (Uint8)(c.r + (255-c.r)*f), (Uint8)(c.g + (255-c.g)*f),
        (Uint8)(c.b + (255-c.b)*f), c.a };
}

/* ---------------- unit sprites ---------------- */
/* Near-black outline first (KKND2 silhouette), then bright faction fill.
 * Geometry mirrors snapshot.c draw_unit atlas coords (center 15,15); SDL rotates live. */
SDL_Texture *sprites_make_unit(SDL_Renderer *r, UnitType t, Faction f) {
    int S = 30;
    SDL_Surface *s = new_surf(S, S);
    SDL_Color base = faction_color(f);
    SDL_Color dark = darken(base, 0.55f);
    SDL_Color lite = lighten(base, 0.45f);
    /* Tyre / mid-tone parity with snapshot draw_unit (mr/mg/mb). */
    const Uint8 tr = 70, tg = 65, tb = 58;
    const Uint8 ok = 18, og = 16, ob = 14; /* near-black outline */
    (void)dark;

    switch (t) {
    case UT_INFANTRY:
        /* boots/knees → torso/belt/pouches → pads → pack → helmet/visor/antenna → rifle+bayonet */
        disc(s, 11, 23, 3, ok, og, ob, 255);
        disc(s, 19, 23, 3, ok, og, ob, 255);
        disc(s, 11, 23, 2, base.r, base.g, base.b, 255);
        disc(s, 19, 23, 2, base.r, base.g, base.b, 255);
        fill_rect(s, 10, 24, 3, 2, 40, 36, 30, 255); /* boot L */
        fill_rect(s, 18, 24, 3, 2, 40, 36, 30, 255); /* boot R */
        fill_rect(s, 10, 20, 3, 2, 55, 50, 42, 255); /* knee pad L */
        fill_rect(s, 18, 20, 3, 2, 55, 50, 42, 255); /* knee pad R */
        disc(s, 15, 15, 9, ok, og, ob, 255);
        disc(s, 15, 15, 7, base.r, base.g, base.b, 255);
        fill_rect(s, 11, 17, 8, 2, 45, 42, 36, 255); /* belt */
        fill_rect(s, 12, 16, 2, 2, 60, 55, 45, 255); /* pouch L */
        fill_rect(s, 16, 16, 2, 2, 60, 55, 45, 255); /* pouch R */
        fill_rect(s, 9, 12, 3, 3, 50, 46, 40, 255); /* shoulder pad L */
        fill_rect(s, 19, 12, 3, 3, 50, 46, 40, 255); /* shoulder pad R */
        disc(s, 10, 16, 3, ok, og, ob, 255); /* backpack */
        disc(s, 10, 16, 2, 50, 46, 40, 255);
        fill_rect(s, 8, 15, 2, 3, 40, 38, 32, 255); /* pack strap */
        disc(s, 15, 8, 5, ok, og, ob, 255);
        disc(s, 15, 8, 4, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 12, 7, 5, 2, 30, 40, 50, 255); /* visor */
        line(s, 14, 6, 14, 1, 50, 46, 40, 255); /* antenna */
        line(s, 15, 6, 15, 0, lite.r, lite.g, lite.b, 255);
        line(s, 16, 14, 16, 0, 40, 36, 30, 255);
        line(s, 17, 14, 17, 1, 55, 50, 40, 255);
        line(s, 18, 14, 18, 2, 45, 40, 34, 255);
        disc(s, 17, 1, 2, 60, 55, 45, 255); /* muzzle tip */
        line(s, 17, 2, 20, 0, 70, 65, 55, 255); /* bayonet */
        line(s, 18, 2, 21, 1, 55, 50, 40, 255);
        break;
    case UT_BUGGY:
        /* fenders + bumper + cabin + roll bar + spare + exhaust + lights + MG */
        fill_rect(s, 2, 6, 26, 18, ok, og, ob, 255);
        fill_rect(s, 4, 8, 22, 14, base.r, base.g, base.b, 255);
        fill_rect(s, 3, 6, 6, 3, 45, 42, 36, 255); /* front fender L */
        fill_rect(s, 21, 6, 6, 3, 45, 42, 36, 255); /* front fender R */
        fill_rect(s, 3, 22, 6, 3, 45, 42, 36, 255); /* rear fender L */
        fill_rect(s, 21, 22, 6, 3, 45, 42, 36, 255); /* rear fender R */
        fill_rect(s, 1, 12, 3, 6, 55, 50, 40, 255); /* bumper */
        fill_rect(s, 2, 13, 1, 4, 90, 80, 55, 255);
        fill_rect(s, 6, 9, 10, 6, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 7, 8, 8, 3, 35, 55, 75, 255); /* windshield */
        line(s, 8, 10, 8, 4, lite.r, lite.g, lite.b, 255); /* roll bar L */
        line(s, 9, 10, 9, 4, 50, 46, 40, 255);
        line(s, 18, 10, 18, 4, lite.r, lite.g, lite.b, 255); /* roll bar R */
        line(s, 17, 10, 17, 4, 50, 46, 40, 255);
        line(s, 8, 4, 18, 4, lite.r, lite.g, lite.b, 255);
        line(s, 8, 5, 18, 5, 50, 46, 40, 255);
        disc(s, 25, 16, 3, ok, og, ob, 255); /* spare tyre */
        disc(s, 25, 16, 2, tr, tg, tb, 255);
        disc(s, 25, 16, 1, 90, 85, 75, 255);
        fill_rect(s, 26, 20, 3, 2, 40, 38, 32, 255); /* exhaust */
        fill_rect(s, 27, 19, 2, 1, 70, 65, 55, 255);
        disc(s, 4, 11, 2, 220, 200, 80, 255); /* headlight L */
        disc(s, 4, 19, 2, 220, 200, 80, 255); /* headlight R */
        disc(s, 8, 7, 5, ok, og, ob, 255);
        disc(s, 22, 7, 5, ok, og, ob, 255);
        disc(s, 8, 23, 5, ok, og, ob, 255);
        disc(s, 22, 23, 5, ok, og, ob, 255);
        disc(s, 8, 7, 4, tr, tg, tb, 255);
        disc(s, 22, 7, 4, tr, tg, tb, 255);
        disc(s, 8, 23, 4, tr, tg, tb, 255);
        disc(s, 22, 23, 4, tr, tg, tb, 255);
        disc(s, 8, 7, 2, 90, 85, 75, 255);
        disc(s, 22, 7, 2, 90, 85, 75, 255);
        disc(s, 8, 23, 2, 90, 85, 75, 255);
        disc(s, 22, 23, 2, 90, 85, 75, 255);
        line(s, 15, 14, 29, 14, 40, 36, 30, 255);
        line(s, 15, 15, 29, 15, 50, 45, 35, 255);
        line(s, 15, 16, 29, 16, 40, 36, 30, 255);
        disc(s, 29, 15, 2, 60, 55, 45, 255);
        break;
    case UT_TANK:
        /* skirts + road wheels + glacis + mantlet + coax + exhaust + antenna + barrel */
        fill_rect(s, 2, 8, 5, 12, ok, og, ob, 255);
        fill_rect(s, 23, 8, 5, 12, ok, og, ob, 255);
        fill_rect(s, 3, 10, 3, 10, tr, tg, tb, 255);
        fill_rect(s, 24, 10, 3, 10, tr, tg, tb, 255);
        fill_rect(s, 2, 9, 5, 2, 50, 46, 40, 255); /* side skirt L top */
        fill_rect(s, 23, 9, 5, 2, 50, 46, 40, 255); /* side skirt R top */
        fill_rect(s, 2, 18, 5, 2, 50, 46, 40, 255); /* side skirt L bot */
        fill_rect(s, 23, 18, 5, 2, 50, 46, 40, 255);
        disc(s, 5, 11, 2, 40, 38, 32, 255); /* sprocket */
        disc(s, 5, 15, 2, 40, 38, 32, 255); /* road wheel */
        disc(s, 5, 20, 2, 40, 38, 32, 255);
        disc(s, 26, 11, 2, 40, 38, 32, 255);
        disc(s, 26, 15, 2, 40, 38, 32, 255);
        disc(s, 26, 20, 2, 40, 38, 32, 255);
        fill_rect(s, 4, 10, 22, 10, ok, og, ob, 255);
        fill_rect(s, 6, 11, 18, 8, base.r, base.g, base.b, 255);
        fill_rect(s, 5, 10, 8, 3, 55, 50, 42, 255); /* glacis plate */
        fill_rect(s, 6, 11, 6, 2, lite.r, lite.g, lite.b, 255);
        disc(s, 15, 15, 7, ok, og, ob, 255);
        disc(s, 15, 15, 6, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 18, 13, 4, 5, 45, 42, 36, 255); /* mantlet */
        fill_rect(s, 19, 14, 2, 3, 60, 55, 45, 255);
        disc(s, 15, 12, 2, 40, 38, 32, 255); /* hatch */
        line(s, 14, 12, 14, 2, 50, 46, 40, 255); /* antenna */
        line(s, 15, 12, 15, 1, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 7, 20, 3, 2, 40, 38, 32, 255); /* exhaust */
        fill_rect(s, 8, 19, 1, 1, 70, 65, 55, 255);
        line(s, 15, 13, 29, 13, 45, 40, 32, 255);
        line(s, 15, 14, 29, 14, 50, 45, 35, 255);
        line(s, 15, 15, 29, 15, 55, 50, 40, 255);
        line(s, 15, 16, 29, 16, 50, 45, 35, 255);
        line(s, 15, 17, 28, 17, 45, 40, 32, 255);
        line(s, 18, 12, 27, 11, 40, 36, 30, 255); /* coax MG */
        line(s, 18, 12, 27, 12, 50, 45, 35, 255);
        disc(s, 29, 15, 2, 60, 55, 45, 255);
        disc(s, 8, 23, 4, tr, tg, tb, 255);
        disc(s, 22, 23, 4, tr, tg, tb, 255);
        break;
    case UT_ARTILLERY:
        /* howitzer: trails + cradle + shield + ammo + tube bands + brake + hubs */
        fill_rect(s, 1, 18, 8, 3, ok, og, ob, 255);   /* left outrigger */
        fill_rect(s, 21, 18, 8, 3, ok, og, ob, 255);  /* right outrigger */
        fill_rect(s, 0, 19, 4, 2, 40, 38, 32, 255); /* spade L */
        fill_rect(s, 26, 19, 4, 2, 40, 38, 32, 255); /* spade R */
        fill_rect(s, 2, 20, 2, 2, 55, 50, 40, 255); /* trail pin L */
        fill_rect(s, 26, 20, 2, 2, 55, 50, 40, 255); /* trail pin R */
        fill_rect(s, 4, 11, 22, 10, ok, og, ob, 255);
        fill_rect(s, 6, 13, 18, 7, base.r, base.g, base.b, 255);
        fill_rect(s, 5, 14, 2, 5, 40, 38, 32, 255); /* chassis rail L */
        fill_rect(s, 23, 14, 2, 5, 40, 38, 32, 255); /* chassis rail R */
        fill_rect(s, 22, 12, 6, 8, 55, 50, 40, 255); /* ammo rack */
        line(s, 23, 13, 27, 13, 90, 80, 55, 255);
        line(s, 23, 15, 27, 15, 90, 80, 55, 255);
        line(s, 23, 17, 27, 17, 90, 80, 55, 255);
        fill_rect(s, 23, 14, 2, 2, 200, 160, 60, 255); /* shell tip */
        fill_rect(s, 25, 16, 2, 2, 200, 160, 60, 255);
        fill_rect(s, 10, 8, 10, 5, ok, og, ob, 255); /* gun shield */
        fill_rect(s, 11, 9, 8, 3, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 12, 8, 6, 1, 255, 200, 40, 255); /* warn stripe */
        disc(s, 15, 14, 4, ok, og, ob, 255); /* recoil cradle */
        disc(s, 15, 14, 3, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 13, 13, 4, 3, 55, 50, 40, 255); /* breech */
        fill_rect(s, 14, 14, 2, 1, 90, 80, 55, 255);
        line(s, 15, 11, 3, 1, 45, 40, 32, 255); /* elevated tube */
        line(s, 15, 12, 3, 2, 50, 45, 35, 255);
        line(s, 15, 13, 2, 1, 55, 50, 40, 255);
        line(s, 15, 14, 3, 3, 50, 45, 35, 255);
        line(s, 15, 15, 4, 4, 45, 40, 32, 255);
        disc(s, 10, 8, 1, 70, 65, 55, 255); /* tube band */
        disc(s, 7, 5, 1, 70, 65, 55, 255);
        fill_rect(s, 12, 16, 2, 3, 70, 65, 55, 255); /* elev hydrau */
        fill_rect(s, 16, 16, 2, 3, 70, 65, 55, 255);
        fill_rect(s, 1, 0, 5, 4, 60, 55, 45, 255); /* muzzle brake */
        fill_rect(s, 2, 1, 3, 2, 30, 28, 24, 255);
        disc(s, 3, 2, 1, 90, 85, 75, 255); /* brake ring */
        line(s, 20, 11, 20, 6, 50, 46, 40, 255); /* antenna */
        disc(s, 20, 5, 1, 200, 200, 80, 255);
        disc(s, 8, 23, 5, ok, og, ob, 255);
        disc(s, 22, 23, 5, ok, og, ob, 255);
        disc(s, 8, 23, 4, tr, tg, tb, 255);
        disc(s, 22, 23, 4, tr, tg, tb, 255);
        disc(s, 8, 23, 2, 90, 85, 75, 255);
        disc(s, 22, 23, 2, 90, 85, 75, 255);
        break;
    case UT_HARVESTER:
        /* cabin + boom/scoop + conveyor + hopper panels + exhaust/lights + hubbed wheels */
        fill_rect(s, 1, 6, 28, 18, ok, og, ob, 255);
        fill_rect(s, 3, 8, 24, 14, base.r, base.g, base.b, 255);
        fill_rect(s, 3, 8, 8, 8, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 4, 8, 6, 3, 35, 55, 75, 255); /* glass */
        fill_rect(s, 5, 12, 4, 2, 45, 42, 36, 255); /* cabin panel */
        line(s, 2, 14, 8, 11, 50, 46, 40, 255); /* boom arm */
        line(s, 2, 15, 8, 12, 70, 65, 55, 255);
        fill_rect(s, 0, 14, 5, 5, 90, 80, 55, 255); /* scoop lip */
        fill_rect(s, 1, 15, 3, 3, 70, 60, 40, 255);
        fill_rect(s, 11, 10, 14, 10, 55, 48, 32, 255); /* hopper bed */
        fill_rect(s, 11, 10, 8, 10, 200, 170, 90, 255);
        line(s, 14, 10, 24, 10, 160, 130, 70, 255); /* conveyor ribs */
        line(s, 14, 13, 24, 13, 160, 130, 70, 255);
        line(s, 14, 16, 24, 16, 160, 130, 70, 255);
        fill_rect(s, 12, 9, 12, 1, 45, 40, 32, 255); /* hopper rim */
        fill_rect(s, 24, 11, 3, 8, 50, 46, 40, 255); /* side panel */
        fill_rect(s, 25, 12, 1, 6, 70, 65, 55, 255);
        fill_rect(s, 20, 18, 4, 2, 40, 38, 32, 255); /* exhaust */
        fill_rect(s, 21, 17, 2, 1, 70, 65, 55, 255);
        disc(s, 4, 10, 2, 220, 200, 80, 255); /* cabin light */
        disc(s, 2, 16, 1, 220, 180, 60, 255); /* scoop lamp */
        disc(s, 8, 23, 5, ok, og, ob, 255);
        disc(s, 22, 23, 5, ok, og, ob, 255);
        disc(s, 8, 23, 4, tr, tg, tb, 255);
        disc(s, 22, 23, 4, tr, tg, tb, 255);
        disc(s, 8, 23, 2, 90, 85, 75, 255);
        disc(s, 22, 23, 2, 90, 85, 75, 255);
        line(s, 5, 7, 5, 2, lite.r, lite.g, lite.b, 255);
        line(s, 6, 7, 6, 3, 50, 46, 40, 255);
        break;
    case UT_JEEP:
        /* bumper + grill + seats + jerry cans + spare + lights + antenna + cage + MG */
        fill_rect(s, 4, 9, 22, 12, ok, og, ob, 255);
        fill_rect(s, 6, 11, 18, 8, base.r, base.g, base.b, 255);
        fill_rect(s, 3, 12, 3, 6, 55, 50, 40, 255); /* bumper */
        fill_rect(s, 4, 13, 1, 4, 90, 80, 55, 255);
        fill_rect(s, 5, 13, 3, 4, 40, 38, 32, 255); /* grill */
        line(s, 5, 14, 7, 14, 70, 65, 55, 255);
        line(s, 5, 16, 7, 16, 70, 65, 55, 255);
        fill_rect(s, 7, 10, 8, 5, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 8, 12, 3, 3, 45, 40, 35, 255); /* seat L */
        fill_rect(s, 14, 12, 3, 3, 45, 40, 35, 255); /* seat R */
        fill_rect(s, 22, 11, 3, 4, 70, 90, 50, 255); /* jerry can */
        fill_rect(s, 23, 12, 1, 2, 90, 110, 60, 255);
        disc(s, 24, 18, 3, ok, og, ob, 255); /* spare */
        disc(s, 24, 18, 2, tr, tg, tb, 255);
        disc(s, 24, 18, 1, 90, 85, 75, 255);
        disc(s, 5, 11, 2, 220, 200, 80, 255); /* light L */
        disc(s, 5, 19, 2, 220, 200, 80, 255); /* light R */
        line(s, 16, 10, 16, 1, 50, 46, 40, 255); /* antenna */
        line(s, 17, 10, 17, 2, lite.r, lite.g, lite.b, 255);
        disc(s, 9, 22, 5, ok, og, ob, 255);
        disc(s, 21, 22, 5, ok, og, ob, 255);
        disc(s, 9, 22, 4, tr, tg, tb, 255);
        disc(s, 21, 22, 4, tr, tg, tb, 255);
        disc(s, 9, 22, 2, 90, 85, 75, 255);
        disc(s, 21, 22, 2, 90, 85, 75, 255);
        line(s, 11, 11, 11, 3, lite.r, lite.g, lite.b, 255);
        line(s, 12, 11, 12, 3, 50, 46, 40, 255);
        line(s, 19, 11, 19, 3, lite.r, lite.g, lite.b, 255);
        line(s, 18, 11, 18, 3, 50, 46, 40, 255);
        line(s, 11, 3, 19, 3, lite.r, lite.g, lite.b, 255);
        line(s, 11, 4, 19, 4, 50, 46, 40, 255);
        line(s, 15, 14, 28, 14, 40, 36, 30, 255);
        line(s, 15, 15, 28, 15, 50, 45, 35, 255);
        line(s, 15, 16, 28, 16, 40, 36, 30, 255);
        disc(s, 28, 15, 2, 60, 55, 45, 255);
        break;
    case UT_MUTANT:
        /* plates + eyes/jaw + spikes + dual claws + tail */
        disc(s, 15, 17, 11, ok, og, ob, 255);
        disc(s, 15, 15, 9, base.r, base.g, base.b, 255);
        fill_rect(s, 10, 14, 4, 3, 45, 40, 35, 255); /* chest plate L */
        fill_rect(s, 17, 14, 4, 3, 45, 40, 35, 255); /* chest plate R */
        disc(s, 15, 9, 5, ok, og, ob, 255);
        disc(s, 15, 9, 4, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 11, 7, 7, 2, 30, 40, 50, 255); /* brow */
        disc(s, 12, 9, 1, 200, 60, 40, 255); /* eye L */
        disc(s, 18, 9, 1, 200, 60, 40, 255); /* eye R */
        fill_rect(s, 13, 11, 5, 2, 40, 30, 28, 255); /* jaw */
        line(s, 14, 12, 14, 13, 70, 55, 45, 255); /* fang */
        line(s, 16, 12, 16, 13, 70, 55, 45, 255);
        line(s, 12, 6, 9, 0, 40, 36, 30, 255);
        line(s, 13, 6, 10, 1, 55, 50, 40, 255);
        line(s, 15, 5, 15, 0, 40, 36, 30, 255);
        line(s, 16, 5, 16, 0, 55, 50, 40, 255);
        line(s, 18, 6, 21, 0, 40, 36, 30, 255);
        line(s, 17, 6, 20, 1, 55, 50, 40, 255);
        line(s, 14, 4, 12, 0, 50, 45, 35, 255); /* extra spike */
        line(s, 15, 16, 26, 8, 40, 36, 30, 255);
        line(s, 15, 17, 26, 9, 50, 45, 35, 255);
        line(s, 24, 9, 29, 5, 55, 50, 40, 255);
        line(s, 24, 9, 29, 11, 55, 50, 40, 255);
        line(s, 24, 10, 28, 8, 70, 60, 45, 255);
        disc(s, 28, 8, 2, 70, 60, 45, 255); /* claw tip R */
        line(s, 12, 16, 4, 10, 40, 36, 30, 255); /* second claw L */
        line(s, 12, 17, 4, 11, 50, 45, 35, 255);
        line(s, 5, 10, 1, 7, 55, 50, 40, 255);
        line(s, 5, 11, 1, 13, 55, 50, 40, 255);
        disc(s, 2, 10, 2, 70, 60, 45, 255);
        line(s, 15, 20, 15, 27, 45, 40, 35, 255); /* tail */
        line(s, 16, 20, 18, 28, 55, 50, 40, 255);
        disc(s, 17, 27, 2, 60, 50, 40, 255);
        disc(s, 10, 22, 4, ok, og, ob, 255);
        disc(s, 20, 22, 4, ok, og, ob, 255);
        disc(s, 10, 22, 3, base.r, base.g, base.b, 255);
        disc(s, 20, 22, 3, base.r, base.g, base.b, 255);
        break;
    case UT_BEAST:
        /* carapace plates/spines + eye + vents + tusks + hubbed multi-wheel */
        fill_rect(s, 5, 9, 20, 12, ok, og, ob, 255);
        fill_rect(s, 7, 11, 16, 8, base.r, base.g, base.b, 255);
        fill_rect(s, 9, 10, 12, 3, lite.r, lite.g, lite.b, 255); /* carapace ridge */
        fill_rect(s, 8, 13, 5, 3, 50, 46, 40, 255); /* plate L */
        fill_rect(s, 17, 13, 5, 3, 50, 46, 40, 255); /* plate R */
        line(s, 10, 9, 10, 5, 40, 36, 30, 255); /* spine */
        line(s, 13, 9, 13, 4, 55, 50, 40, 255);
        line(s, 16, 9, 16, 4, 55, 50, 40, 255);
        line(s, 19, 9, 19, 5, 40, 36, 30, 255);
        fill_rect(s, 11, 16, 2, 2, 30, 28, 24, 255); /* vent L */
        fill_rect(s, 17, 16, 2, 2, 30, 28, 24, 255); /* vent R */
        disc(s, 9, 21, 4, ok, og, ob, 255);
        disc(s, 14, 22, 4, ok, og, ob, 255);
        disc(s, 19, 21, 4, ok, og, ob, 255);
        disc(s, 23, 22, 4, ok, og, ob, 255);
        disc(s, 9, 21, 3, tr, tg, tb, 255);
        disc(s, 14, 22, 3, tr, tg, tb, 255);
        disc(s, 19, 21, 3, tr, tg, tb, 255);
        disc(s, 23, 22, 3, tr, tg, tb, 255);
        disc(s, 9, 21, 1, 90, 85, 75, 255); /* hub */
        disc(s, 14, 22, 1, 90, 85, 75, 255);
        disc(s, 19, 21, 1, 90, 85, 75, 255);
        disc(s, 23, 22, 1, 90, 85, 75, 255);
        disc(s, 24, 12, 6, ok, og, ob, 255);
        disc(s, 24, 12, 5, lite.r, lite.g, lite.b, 255); /* snout */
        disc(s, 26, 11, 1, 200, 80, 40, 255); /* eye */
        line(s, 26, 10, 29, 8, 40, 36, 30, 255); /* tusk */
        line(s, 26, 14, 29, 16, 40, 36, 30, 255);
        line(s, 26, 12, 29, 12, 55, 50, 40, 255);
        disc(s, 29, 12, 2, 60, 55, 45, 255);
        break;
    case UT_RAVAGER:
        /* prow + ammo boxes + triple gatling + exhaust (vs tank cupola) */
        fill_rect(s, 0, 7, 5, 14, ok, og, ob, 255);
        fill_rect(s, 25, 7, 5, 14, ok, og, ob, 255);
        fill_rect(s, 1, 10, 3, 10, tr, tg, tb, 255);
        fill_rect(s, 26, 10, 3, 10, tr, tg, tb, 255);
        disc(s, 3, 12, 2, 40, 38, 32, 255);
        disc(s, 3, 20, 2, 40, 38, 32, 255);
        disc(s, 28, 12, 2, 40, 38, 32, 255);
        disc(s, 28, 20, 2, 40, 38, 32, 255);
        fill_rect(s, 3, 9, 24, 12, ok, og, ob, 255);
        fill_rect(s, 5, 10, 20, 10, base.r, base.g, base.b, 255);
        fill_rect(s, 24, 8, 6, 6, 55, 48, 38, 255); /* prow plate */
        line(s, 25, 9, 29, 11, 70, 60, 45, 255);
        line(s, 25, 13, 29, 11, 70, 60, 45, 255);
        fill_rect(s, 4, 8, 5, 4, 70, 55, 35, 255); /* ammo boxes */
        fill_rect(s, 5, 9, 3, 2, 200, 160, 60, 255);
        fill_rect(s, 10, 8, 5, 4, 70, 55, 35, 255);
        fill_rect(s, 11, 9, 3, 2, 200, 160, 60, 255);
        fill_rect(s, 12, 12, 10, 8, ok, og, ob, 255); /* gatling block */
        fill_rect(s, 13, 13, 8, 6, lite.r, lite.g, lite.b, 255);
        line(s, 20, 13, 29, 12, 45, 40, 32, 255); /* triple barrels */
        line(s, 20, 15, 29, 15, 55, 50, 40, 255);
        line(s, 20, 17, 29, 18, 45, 40, 32, 255);
        disc(s, 29, 12, 1, 60, 55, 45, 255);
        disc(s, 29, 15, 2, 60, 55, 45, 255);
        disc(s, 29, 18, 1, 60, 55, 45, 255);
        fill_rect(s, 2, 14, 3, 4, 40, 38, 32, 255); /* exhaust */
        disc(s, 2, 15, 2, 90, 70, 40, 255);
        disc(s, 2, 17, 1, 200, 100, 40, 255);
        disc(s, 7, 23, 5, ok, og, ob, 255);
        disc(s, 23, 23, 5, ok, og, ob, 255);
        disc(s, 7, 23, 4, tr, tg, tb, 255);
        disc(s, 23, 23, 4, tr, tg, tb, 255);
        break;
    case UT_FLAME:
        /* dual tanks + gauges + hose + shield + nozzle jet + boots */
        fill_rect(s, 7, 12, 16, 12, ok, og, ob, 255);
        fill_rect(s, 9, 14, 12, 9, base.r, base.g, base.b, 255);
        fill_rect(s, 10, 15, 3, 4, 45, 42, 36, 255); /* pouch */
        fill_rect(s, 18, 16, 3, 3, 45, 42, 36, 255); /* belt box */
        disc(s, 15, 9, 5, ok, og, ob, 255);
        disc(s, 15, 9, 4, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 12, 8, 5, 2, 30, 40, 50, 255); /* visor */
        fill_rect(s, 13, 7, 3, 1, 90, 100, 110, 255); /* brow plate */
        fill_rect(s, 14, 11, 2, 3, 55, 50, 40, 255); /* shoulder plate */
        disc(s, 6, 13, 5, ok, og, ob, 255); /* dual fuel tanks */
        disc(s, 6, 13, 4, 90, 70, 40, 255);
        disc(s, 6, 13, 2, 200, 120, 40, 255);
        disc(s, 6, 19, 5, ok, og, ob, 255);
        disc(s, 6, 19, 4, 90, 70, 40, 255);
        disc(s, 6, 19, 2, 200, 120, 40, 255);
        fill_rect(s, 4, 12, 2, 3, 255, 200, 40, 255); /* tank warn stripe */
        fill_rect(s, 4, 18, 2, 3, 255, 200, 40, 255);
        disc(s, 6, 11, 1, 60, 55, 45, 255); /* valve */
        disc(s, 6, 17, 1, 60, 55, 45, 255);
        disc(s, 6, 21, 1, 60, 55, 45, 255);
        disc(s, 8, 13, 1, 180, 220, 255, 255); /* gauge */
        disc(s, 8, 19, 1, 180, 220, 255, 255);
        line(s, 8, 14, 10, 14, 50, 46, 40, 255); /* strap */
        line(s, 8, 18, 10, 18, 50, 46, 40, 255);
        line(s, 10, 14, 16, 16, 50, 45, 35, 255); /* hose */
        line(s, 10, 15, 16, 17, 70, 55, 35, 255);
        disc(s, 12, 15, 1, 70, 65, 55, 255); /* hose clamp */
        disc(s, 14, 16, 1, 70, 65, 55, 255);
        fill_rect(s, 16, 12, 5, 8, 55, 50, 40, 255); /* heat shield */
        fill_rect(s, 17, 13, 3, 6, 90, 70, 40, 255);
        fill_rect(s, 18, 14, 1, 4, 40, 38, 32, 255); /* nozzle grip */
        disc(s, 19, 13, 1, 255, 180, 60, 255); /* pilot light */
        line(s, 20, 14, 28, 19, 255, 120, 40, 255);
        line(s, 20, 15, 28, 20, 255, 150, 50, 255);
        line(s, 20, 16, 27, 21, 255, 180, 60, 255);
        line(s, 20, 17, 26, 21, 255, 200, 80, 255);
        line(s, 21, 13, 27, 17, 255, 100, 30, 255); /* upper jet */
        disc(s, 28, 20, 3, 255, 200, 80, 255);
        disc(s, 28, 20, 1, 255, 240, 160, 255);
        disc(s, 26, 18, 1, 255, 220, 120, 255); /* ember */
        disc(s, 27, 22, 1, 255, 160, 60, 255);
        fill_rect(s, 11, 22, 3, 3, 40, 36, 30, 255); /* boot L */
        fill_rect(s, 17, 22, 3, 3, 40, 36, 30, 255); /* boot R */
        break;
    case UT_MISSILE:
        /* MLRS box + rails + stripes + cab + pods + hydrau + hubs (KKND rocket truck) */
        fill_rect(s, 3, 12, 24, 12, ok, og, ob, 255);
        fill_rect(s, 5, 14, 20, 8, base.r, base.g, base.b, 255);
        fill_rect(s, 4, 15, 3, 5, 40, 38, 32, 255); /* chassis rail L */
        fill_rect(s, 23, 15, 3, 5, 40, 38, 32, 255); /* chassis rail R */
        fill_rect(s, 2, 11, 6, 7, ok, og, ob, 255); /* cab outline */
        fill_rect(s, 3, 12, 4, 5, 55, 52, 45, 255);
        fill_rect(s, 3, 12, 4, 2, 140, 180, 210, 255); /* cab glass */
        fill_rect(s, 8, 4, 16, 10, ok, og, ob, 255); /* box launcher */
        fill_rect(s, 9, 5, 14, 8, 50, 48, 42, 255);
        line(s, 10, 6, 22, 6, 90, 85, 70, 255); /* rails */
        line(s, 10, 8, 22, 8, 90, 85, 70, 255);
        line(s, 10, 10, 22, 10, 90, 85, 70, 255);
        line(s, 10, 12, 22, 12, 90, 85, 70, 255);
        fill_rect(s, 9, 5, 3, 8, 255, 200, 40, 255); /* warning stripes */
        fill_rect(s, 12, 5, 2, 8, 30, 28, 24, 255);
        fill_rect(s, 14, 5, 3, 8, 255, 200, 40, 255);
        fill_rect(s, 17, 5, 2, 8, 30, 28, 24, 255);
        fill_rect(s, 19, 5, 3, 8, 255, 200, 40, 255);
        disc(s, 23, 7, 2, 255, 120, 80, 255); /* nose tips */
        disc(s, 23, 10, 2, 255, 140, 90, 255);
        disc(s, 23, 12, 1, 255, 160, 100, 255);
        fill_rect(s, 7, 14, 2, 4, 70, 65, 55, 255); /* hydraulic L */
        fill_rect(s, 21, 14, 2, 4, 70, 65, 55, 255); /* hydraulic R */
        line(s, 8, 13, 8, 5, 60, 55, 45, 255); /* elevate strut */
        disc(s, 4, 10, 1, 200, 200, 80, 255); /* antenna tip */
        line(s, 4, 10, 4, 8, 90, 90, 70, 255);
        disc(s, 9, 23, 5, ok, og, ob, 255);
        disc(s, 21, 23, 5, ok, og, ob, 255);
        disc(s, 9, 23, 4, tr, tg, tb, 255);
        disc(s, 21, 23, 4, tr, tg, tb, 255);
        disc(s, 9, 23, 2, 90, 85, 75, 255);
        disc(s, 21, 23, 2, 90, 85, 75, 255);
        line(s, 22, 8, 29, 4, 255, 80, 60, 255);
        line(s, 22, 10, 29, 6, 255, 100, 70, 255);
        disc(s, 29, 5, 2, 255, 140, 90, 255);
        disc(s, 28, 7, 1, 255, 180, 100, 255); /* exhaust spark */
        break;
    case UT_MEDIC:
        /* bumper + grille + lights + door/side + mirrors + exhaust + light-bar + stretcher/cross + hubs */
        fill_rect(s, 3, 9, 24, 17, ok, og, ob, 255);
        fill_rect(s, 5, 11, 20, 13, 245, 245, 245, 255);
        fill_rect(s, 6, 12, 18, 11, 255, 255, 255, 255);
        fill_rect(s, 2, 13, 3, 6, 55, 50, 40, 255); /* bumper */
        fill_rect(s, 3, 14, 1, 4, 90, 80, 55, 255);
        fill_rect(s, 4, 14, 3, 4, 40, 38, 32, 255); /* grille */
        line(s, 4, 15, 6, 15, 70, 65, 55, 255);
        line(s, 4, 17, 6, 17, 70, 65, 55, 255);
        disc(s, 4, 12, 2, 220, 200, 80, 255); /* headlight L */
        disc(s, 4, 20, 2, 220, 200, 80, 255); /* headlight R */
        fill_rect(s, 5, 8, 7, 5, 190, 215, 235, 255); /* cab glass */
        fill_rect(s, 6, 9, 5, 3, 160, 190, 220, 255);
        fill_rect(s, 12, 12, 2, 10, 200, 200, 205, 255); /* side door seam */
        fill_rect(s, 13, 13, 1, 8, 170, 170, 175, 255);
        fill_rect(s, 20, 13, 4, 8, 230, 230, 235, 255); /* rear panel */
        fill_rect(s, 21, 14, 2, 6, 210, 210, 215, 255);
        fill_rect(s, 4, 10, 2, 2, 50, 48, 42, 255); /* mirror L */
        fill_rect(s, 4, 20, 2, 2, 50, 48, 42, 255); /* mirror R */
        fill_rect(s, 24, 18, 3, 2, 40, 38, 32, 255); /* exhaust */
        fill_rect(s, 25, 17, 2, 1, 70, 65, 55, 255);
        fill_rect(s, 8, 3, 14, 3, 240, 40, 40, 255); /* light bar */
        fill_rect(s, 10, 2, 10, 2, 255, 80, 80, 255);
        fill_rect(s, 11, 1, 3, 2, 255, 220, 80, 255); /* amber beacon */
        fill_rect(s, 16, 1, 3, 2, 80, 180, 255, 255); /* blue beacon */
        fill_rect(s, 18, 11, 6, 3, 200, 40, 40, 255); /* stretcher cue */
        fill_rect(s, 19, 12, 4, 1, 255, 200, 200, 255);
        disc(s, 9, 24, 5, ok, og, ob, 255);
        disc(s, 21, 24, 5, ok, og, ob, 255);
        disc(s, 9, 24, 4, tr, tg, tb, 255);
        disc(s, 21, 24, 4, tr, tg, tb, 255);
        disc(s, 9, 24, 2, 90, 85, 75, 255);
        disc(s, 21, 24, 2, 90, 85, 75, 255);
        disc(s, 15, 10, 7, 230, 35, 35, 255);
        fill_rect(s, 13, 4, 4, 12, 255, 255, 255, 255);
        fill_rect(s, 9, 8, 12, 4, 255, 255, 255, 255);
        break;
    default:
        disc(s, 15, 15, 10, ok, og, ob, 255);
        disc(s, 15, 15, 8, base.r, base.g, base.b, 255);
        break;
    }
    SDL_Texture *tex = SDL_CreateTextureFromSurface(r, s);
    SDL_FreeSurface(s);
    return tex;
}

/* ---------------- building sprites ---------------- */
/* Bright concrete pad + BT_* interiors (parity with snapshot draw_bld). */
SDL_Texture *sprites_make_bld(SDL_Renderer *r, BuildingType t, Faction f) {
    int w = bld_def(t)->w, h = bld_def(t)->h;
    int W = w * TILE, H = h * TILE;
    SDL_Surface *s = new_surf(W, H);
    SDL_Color base = faction_color(f);
    SDL_Color dark = darken(base, 0.5f);
    SDL_Color lite = lighten(base, 0.35f);
    const Uint8 ok = 22, og = 20, ob = 16;
    const Uint8 wall = 205, wall2 = 175;

    /* Bright concrete pad on arid sand */
    fill_rect(s, 0, 0, W, H, ok, og, ob, 255);
    fill_rect(s, 2, 2, W - 4, H - 4, 210, 185, 130, 255);
    fill_rect(s, 4, 4, W - 8, H - 8, wall2, (Uint8)(wall2 - 18), (Uint8)(wall2 - 45), 255);
    fill_rect(s, 5, 5, W - 10, H - 10, wall, (Uint8)(wall - 22), (Uint8)(wall - 55), 255);
    fill_rect(s, 5, 5, W - 10, 6, (Uint8)(wall + 30), (Uint8)(wall + 10), (Uint8)(wall - 20), 255);

    switch (t) {
    case BT_BASE:
        if (f == FACTION_EVOLVED) {
            /* hive: lobes + membrane ridges + spine + pit eye (KKND HQ read) */
            disc(s, 14, 18, 14, ok, og, ob, 255);
            disc(s, 14, 18, 12, base.r, base.g, base.b, 255);
            disc(s, W - 14, 18, 14, ok, og, ob, 255);
            disc(s, W - 14, 18, 12, base.r, base.g, base.b, 255);
            disc(s, 16, H - 16, 12, ok, og, ob, 255);
            disc(s, 16, H - 16, 10, base.r, base.g, base.b, 255);
            disc(s, W - 16, H - 16, 12, ok, og, ob, 255);
            disc(s, W - 16, H - 16, 10, base.r, base.g, base.b, 255);
            disc(s, W/2, H/2, 16, ok, og, ob, 255);
            disc(s, W/2, H/2, 14, base.r, base.g, base.b, 255);
            /* membrane ridges between lobes */
            line(s, 18, 20, W/2 - 8, H/2 - 4, ok, og, ob, 255);
            line(s, W - 18, 20, W/2 + 8, H/2 - 4, ok, og, ob, 255);
            line(s, 18, H - 18, W/2 - 6, H/2 + 6, ok, og, ob, 255);
            line(s, W - 18, H - 18, W/2 + 6, H/2 + 6, ok, og, ob, 255);
            /* dorsal spine + tendrils */
            fill_rect(s, W/2 - 2, 4, 4, H/2 - 8, ok, og, ob, 255);
            fill_rect(s, W/2 - 1, 5, 2, H/2 - 10, 90, 40, 55, 255);
            line(s, W/2, 8, W/2 - 10, 18, 70, 30, 45, 255);
            line(s, W/2, 8, W/2 + 10, 18, 70, 30, 45, 255);
            /* dark pit + glowing eye */
            disc(s, W/2, H/2, 8, 28, 18, 22, 255);
            disc(s, W/2, H/2, 5, 60, 20, 30, 255);
            disc(s, W/2, H/2, 3, 220, 60, 90, 255);
            disc(s, W/2, H/2, 1, 255, 180, 200, 255);
            ring(s, W/2, H/2, 10, 2, 50, 25, 35, 255); /* pit rim */
            /* extra blisters */
            disc(s, W/2 - 10, 10, 5, lite.r, lite.g, lite.b, 255);
            disc(s, W/2 + 12, H - 12, 4, lite.r, lite.g, lite.b, 255);
            disc(s, 10, H/2 + 2, 3, lite.r, lite.g, lite.b, 255);
            disc(s, W - 10, H/2 - 4, 3, lite.r, lite.g, lite.b, 255);
            disc(s, W/2 + 8, 14, 2, 180, 70, 100, 255);
        } else {
            /* Survivors HQ: towers + walkways + dome + dish + entry (KKND HQ read) */
            fill_rect(s, 4, 4, 14, 14, ok, og, ob, 255);
            fill_rect(s, 6, 6, 10, 10, base.r, base.g, base.b, 255);
            fill_rect(s, W - 18, 4, 14, 14, ok, og, ob, 255);
            fill_rect(s, W - 16, 6, 10, 10, base.r, base.g, base.b, 255);
            fill_rect(s, 4, H - 18, 14, 14, ok, og, ob, 255);
            fill_rect(s, 6, H - 16, 10, 10, base.r, base.g, base.b, 255);
            fill_rect(s, W - 18, H - 18, 14, 14, ok, og, ob, 255);
            fill_rect(s, W - 16, H - 16, 10, 10, base.r, base.g, base.b, 255);
            /* tower windows + corner lights */
            fill_rect(s, 8, 8, 3, 3, 200, 230, 255, 255);
            fill_rect(s, W - 13, 8, 3, 3, 200, 230, 255, 255);
            fill_rect(s, 8, H - 13, 3, 3, 200, 230, 255, 255);
            fill_rect(s, W - 13, H - 13, 3, 3, 200, 230, 255, 255);
            disc(s, 7, 5, 2, 255, 220, 80, 255);
            disc(s, W - 7, 5, 2, 255, 220, 80, 255);
            /* courtyard body + roof band */
            fill_rect(s, 14, 14, W - 28, H - 28, ok, og, ob, 255);
            fill_rect(s, 16, 16, W - 32, H - 32, base.r, base.g, base.b, 255);
            fill_rect(s, 18, 18, W - 36, 8, lite.r, lite.g, lite.b, 255);
            /* walkways between towers */
            fill_rect(s, 16, 8, W - 32, 3, 90, 85, 70, 255);
            fill_rect(s, 16, H - 11, W - 32, 3, 90, 85, 70, 255);
            fill_rect(s, 8, 16, 3, H - 32, 90, 85, 70, 255);
            fill_rect(s, W - 11, 16, 3, H - 32, 90, 85, 70, 255);
            /* command dome + mast + radar dish */
            disc(s, W/2, H/2 - 2, 10, ok, og, ob, 255);
            disc(s, W/2, H/2 - 2, 8, lite.r, lite.g, lite.b, 255);
            disc(s, W/2, H/2 - 2, 4, 255, 250, 180, 255);
            fill_rect(s, W/2 - 2, 2, 4, H/2 - 6, 200, 180, 60, 255);
            fill_rect(s, W/2 - 6, 2, 12, 3, 220, 210, 80, 255);
            disc(s, W/2 + 8, 8, 5, ok, og, ob, 255); /* dish */
            disc(s, W/2 + 8, 8, 3, 180, 200, 220, 255);
            line(s, W/2 + 2, 6, W/2 + 8, 8, 160, 150, 100, 255);
            /* entry bunker + blast doors */
            fill_rect(s, W/2 - 8, H - 14, 16, 8, ok, og, ob, 255);
            fill_rect(s, W/2 - 6, H - 12, 12, 6, 40, 38, 34, 255);
            fill_rect(s, W/2 - 4, H - 11, 3, 4, 70, 65, 55, 255);
            fill_rect(s, W/2 + 1, H - 11, 3, 4, 70, 65, 55, 255);
            /* side annex slits */
            fill_rect(s, 18, H/2 + 2, 6, 4, 160, 200, 230, 255);
            fill_rect(s, W - 24, H/2 + 2, 6, 4, 160, 200, 230, 255);
        }
        break;
    case BT_WARFACTORY:
        /* hangar + crane + bay + office/chimney/ramp (KKND factory densify) */
        fill_rect(s, 4, 6, W - 8, H - 12, ok, og, ob, 255);
        fill_rect(s, 6, 8, W - 12, H - 16, base.r, base.g, base.b, 255);
        fill_rect(s, 8, 10, W - 16, 12, lite.r, lite.g, lite.b, 255); /* roof ridge */
        fill_rect(s, 10, 12, 5, 5, 55, 50, 42, 255); /* ridge vents */
        fill_rect(s, W/2 - 8, 12, 5, 5, 55, 50, 42, 255);
        fill_rect(s, W/2 + 3, 12, 5, 5, 55, 50, 42, 255);
        fill_rect(s, W - 15, 12, 5, 5, 55, 50, 42, 255);
        /* corner bracing + rivets */
        fill_rect(s, 5, 7, 3, 3, 70, 65, 55, 255);
        fill_rect(s, W - 8, 7, 3, 3, 70, 65, 55, 255);
        fill_rect(s, 5, H - 14, 3, 3, 70, 65, 55, 255);
        fill_rect(s, W - 8, H - 14, 3, 3, 70, 65, 55, 255);
        fill_rect(s, 6, 8, 1, 1, 40, 38, 32, 255); /* rivet TL */
        fill_rect(s, W - 7, 8, 1, 1, 40, 38, 32, 255);
        fill_rect(s, 6, H - 13, 1, 1, 40, 38, 32, 255);
        fill_rect(s, W - 7, H - 13, 1, 1, 40, 38, 32, 255);
        /* upper office strip + windows */
        fill_rect(s, 10, 14, W - 28, 6, dark.r, dark.g, dark.b, 255);
        fill_rect(s, 12, 15, 3, 3, 160, 200, 230, 255);
        fill_rect(s, 17, 15, 3, 3, 150, 190, 220, 255);
        fill_rect(s, 22, 15, 3, 3, 170, 210, 235, 255);
        fill_rect(s, W/2 - 2, 15, 3, 3, 155, 195, 225, 255);
        /* chimney + smoke puff */
        fill_rect(s, W/2 + 8, 4, 4, 10, ok, og, ob, 255);
        fill_rect(s, W/2 + 9, 5, 2, 8, 55, 50, 45, 255);
        disc(s, W/2 + 10, 3, 3, 90, 88, 85, 255);
        disc(s, W/2 + 12, 2, 2, 110, 108, 105, 255);
        /* side workshop annex + tool rack */
        fill_rect(s, 4, H/2 - 4, 10, H/2 - 6, ok, og, ob, 255);
        fill_rect(s, 5, H/2 - 2, 8, H/2 - 10, dark.r, dark.g, dark.b, 255);
        fill_rect(s, 6, H/2, 6, 4, 90, 80, 55, 255); /* window slit */
        fill_rect(s, 3, H - 18, 3, 8, 60, 55, 45, 255); /* tool rack */
        fill_rect(s, 3, H - 17, 1, 2, 140, 120, 70, 255);
        fill_rect(s, 5, H - 16, 1, 3, 120, 110, 90, 255);
        /* side exhaust stacks */
        fill_rect(s, W - 6, H/2 + 2, 3, 8, ok, og, ob, 255);
        fill_rect(s, W - 5, H/2 + 3, 1, 6, 45, 42, 38, 255);
        disc(s, W - 4, H/2 + 1, 2, 80, 78, 72, 255);
        /* overhead crane mast + jib + cable/hook */
        fill_rect(s, W - 14, 4, 6, H - 18, ok, og, ob, 255);
        fill_rect(s, W - 13, 5, 4, H - 20, 95, 88, 70, 255);
        fill_rect(s, 14, 6, W - 28, 4, ok, og, ob, 255);
        fill_rect(s, 15, 7, W - 30, 2, 120, 110, 85, 255);
        line(s, 18, 10, 18, 22, 70, 65, 50, 255);
        line(s, 19, 10, 19, 26, 55, 50, 40, 255); /* cable */
        disc(s, 18, 24, 3, 80, 75, 55, 255); /* hoist block */
        fill_rect(s, 17, 27, 3, 2, 100, 90, 60, 255); /* hook */
        fill_rect(s, W - 12, 3, 2, 2, 220, 200, 80, 255); /* floodlight */
        fill_rect(s, W - 11, 2, 1, 3, 90, 85, 70, 255); /* antenna stub */
        /* segmented bay doors + hazard + panels */
        fill_rect(s, 12, H - 30, W - 28, 20, ok, og, ob, 255);
        fill_rect(s, 14, H - 28, W - 32, 16, 32, 32, 38, 255);
        fill_rect(s, 14, H - 28, W - 32, 2, 200, 160, 40, 255); /* hazard top */
        fill_rect(s, 14, H - 14, W - 32, 2, 200, 160, 40, 255); /* hazard bot */
        line(s, W/2 - 6, H - 28, W/2 - 6, H - 12, 70, 68, 60, 255);
        line(s, W/2, H - 28, W/2, H - 12, 70, 68, 60, 255);
        line(s, W/2 + 6, H - 28, W/2 + 6, H - 12, 70, 68, 60, 255);
        line(s, 14, H - 20, W - 18, H - 20, 55, 52, 48, 255);
        fill_rect(s, 16, H - 24, 4, 3, 45, 44, 40, 255); /* door panel */
        fill_rect(s, W/2 + 2, H - 24, 4, 3, 45, 44, 40, 255);
        fill_rect(s, W - 22, H - 24, 4, 3, 45, 44, 40, 255);
        /* ramp lip + rails/tracks */
        fill_rect(s, 10, H - 10, W - 20, 5, 50, 48, 42, 255);
        fill_rect(s, 12, H - 9, W - 24, 2, 90, 75, 45, 255);
        line(s, 14, H - 8, 14, H - 5, 70, 65, 50, 255);
        line(s, W - 16, H - 8, W - 16, H - 5, 70, 65, 50, 255);
        line(s, 14, H - 6, W - 16, H - 6, 60, 55, 42, 255); /* track */
        line(s, 14, H - 5, W - 16, H - 5, 55, 50, 38, 255);
        break;
    case BT_REFINERY:
        /* dense oil-field: pad, derrick, pumpjack, twin tanks, pipes, hopper (KKND) */
        fill_rect(s, 3, H - 12, W - 6, 10, ok, og, ob, 255); /* slab */
        fill_rect(s, 5, H - 10, W - 10, 6, 70, 62, 48, 255);
        fill_rect(s, 6, H - 9, 2, 2, 35, 32, 28, 255); /* pad bolt L */
        fill_rect(s, W - 8, H - 9, 2, 2, 35, 32, 28, 255); /* pad bolt R */
        fill_rect(s, W/2 - 2, H - 9, 2, 2, 35, 32, 28, 255); /* pad bolt C */
        fill_rect(s, 4, H - 4, W - 8, 2, 45, 38, 28, 255); /* curb */
        /* latticed derrick mast + braces */
        fill_rect(s, W/2 - 3, 4, 6, H - 18, ok, og, ob, 255);
        fill_rect(s, W/2 - 2, 5, 4, H - 20, 95, 85, 65, 255);
        fill_rect(s, W/2 - 4, 12, 8, 2, 55, 48, 38, 255); /* cross brace */
        fill_rect(s, W/2 - 4, 26, 8, 2, 55, 48, 38, 255);
        fill_rect(s, W/2 - 4, 40, 8, 2, 55, 48, 38, 255);
        line(s, W/2 - 6, 10, W/2 + 6, 22, 55, 48, 38, 255);
        line(s, W/2 + 6, 10, W/2 - 6, 22, 55, 48, 38, 255);
        line(s, W/2 - 6, 24, W/2 + 6, 36, 55, 48, 38, 255);
        line(s, W/2 + 6, 24, W/2 - 6, 36, 55, 48, 38, 255);
        line(s, W/2 - 6, 38, W/2 + 6, H - 18, 55, 48, 38, 255);
        line(s, W/2 + 6, 38, W/2 - 6, H - 18, 55, 48, 38, 255);
        line(s, W/2 - 5, 8, W/2 - 5, H - 16, 40, 36, 30, 255);
        line(s, W/2 + 5, 8, W/2 + 5, H - 16, 40, 36, 30, 255);
        fill_rect(s, W/2 - 7, 2, 14, 5, ok, og, ob, 255); /* crown */
        fill_rect(s, W/2 - 5, 3, 10, 3, 200, 170, 80, 255); /* beacon */
        fill_rect(s, W/2 - 1, 1, 2, 2, 255, 230, 120, 255); /* beacon tip */
        /* pumpjack horse-head (left of mast) */
        fill_rect(s, 8, H/2 - 2, 4, H/2 - 8, ok, og, ob, 255);
        fill_rect(s, 9, H/2, 2, H/2 - 12, 90, 80, 60, 255);
        fill_rect(s, 6, H/2 - 6, 14, 4, ok, og, ob, 255);
        fill_rect(s, 7, H/2 - 5, 12, 2, 110, 95, 70, 255);
        fill_rect(s, 10, H/2 - 8, 3, 3, 70, 60, 45, 255); /* pivot block */
        disc(s, 8, H/2 - 8, 4, ok, og, ob, 255); /* horse head */
        disc(s, 8, H/2 - 8, 2, 130, 110, 80, 255);
        line(s, 10, H/2 - 4, W/2 - 4, 16, 80, 70, 50, 255); /* bridle cable */
        fill_rect(s, 7, H - 14, 6, 3, 50, 44, 34, 255); /* pump base */
        /* gantry arm + walkway + bracing toward hopper */
        fill_rect(s, W/2 + 2, 14, W/2 - 10, 4, ok, og, ob, 255);
        fill_rect(s, W/2 + 3, 15, W/2 - 12, 2, 120, 100, 60, 255);
        fill_rect(s, W/2 + 4, 18, W/2 - 16, 2, 70, 60, 45, 255); /* catwalk */
        fill_rect(s, W/2 + 6, 20, 2, 8, 60, 52, 40, 255); /* catwalk post */
        fill_rect(s, W - 18, 20, 2, 8, 60, 52, 40, 255);
        fill_rect(s, W/2 + 8, 22, W/2 - 28, 1, 90, 75, 50, 255); /* rail */
        line(s, W/2 + 4, 18, W - 12, H - 22, 90, 75, 50, 255);
        /* hopper / processing shed + windows/door/hazard */
        fill_rect(s, W - 24, H - 32, 18, 18, ok, og, ob, 255);
        fill_rect(s, W - 22, H - 30, 14, 14, base.r, base.g, base.b, 255);
        fill_rect(s, W - 20, H - 28, 10, 6, 140, 110, 55, 255);
        fill_rect(s, W - 18, H - 26, 3, 3, 180, 220, 255, 255); /* window */
        fill_rect(s, W - 13, H - 26, 3, 3, 180, 220, 255, 255);
        fill_rect(s, W - 18, H - 22, 3, 3, 160, 200, 240, 255); /* window row2 */
        fill_rect(s, W - 13, H - 22, 3, 3, 160, 200, 240, 255);
        fill_rect(s, W - 16, H - 18, 4, 4, 40, 36, 30, 255); /* chute */
        fill_rect(s, W - 21, H - 16, 5, 6, 35, 32, 38, 255); /* door */
        fill_rect(s, W - 21, H - 16, 5, 1, 200, 160, 40, 255); /* hazard */
        fill_rect(s, W - 19, H - 13, 1, 2, 180, 170, 90, 255); /* handle */
        fill_rect(s, W - 12, H - 34, 4, 3, 90, 80, 55, 255); /* roof vent */
        /* twin scrap tanks + bands/rivets */
        disc(s, 14, H - 18, 9, ok, og, ob, 255);
        disc(s, 14, H - 18, 7, 200, 165, 85, 255);
        ring(s, 14, H - 18, 4, 2, 90, 70, 45, 255);
        fill_rect(s, 8, H - 20, 12, 1, 120, 95, 50, 255); /* tank band */
        fill_rect(s, 8, H - 16, 12, 1, 110, 88, 45, 255);
        fill_rect(s, 10, H - 22, 2, 2, 90, 75, 45, 255); /* rivet */
        fill_rect(s, 16, H - 14, 2, 2, 90, 75, 45, 255);
        disc(s, 28, H - 16, 7, ok, og, ob, 255);
        disc(s, 28, H - 16, 5, 180, 150, 75, 255);
        ring(s, 28, H - 16, 3, 1, 80, 60, 40, 255);
        fill_rect(s, 23, H - 18, 10, 1, 100, 80, 40, 255); /* tank2 band */
        fill_rect(s, 25, H - 14, 2, 2, 85, 70, 40, 255); /* rivet */
        fill_rect(s, 12, H - 28, 4, 3, ok, og, ob, 255); /* tank cap L */
        fill_rect(s, 26, H - 24, 4, 2, ok, og, ob, 255); /* tank cap R */
        /* pipe runs tank→mast→hopper + valves */
        line(s, 20, H - 16, W/2 - 4, H - 12, 110, 90, 50, 255);
        line(s, 28, H - 14, W/2 - 2, H - 14, 100, 85, 45, 255);
        line(s, W/2 + 4, H - 14, W - 20, H - 20, 100, 85, 45, 255);
        line(s, 14, H - 26, 14, H - 20, 100, 85, 45, 255); /* riser */
        fill_rect(s, W/2 - 1, H - 16, 3, 4, 80, 70, 50, 255); /* valve */
        fill_rect(s, W/2 - 2, H - 15, 5, 1, 200, 160, 40, 255); /* valve hazard */
        fill_rect(s, 18, H - 15, 3, 3, 75, 65, 48, 255); /* elbow flange */
        fill_rect(s, W - 22, H - 21, 3, 3, 75, 65, 48, 255); /* hopper flange */
        /* oil stain + drip pans */
        disc(s, W/2 - 8, H - 6, 4, 40, 32, 20, 255);
        disc(s, W/2 + 6, H - 5, 3, 35, 28, 18, 255);
        fill_rect(s, 10, H - 8, 8, 2, 30, 24, 16, 255); /* drip pan */
        fill_rect(s, 24, H - 7, 6, 2, 28, 22, 14, 255);
        break;
    case BT_POWER:
        /* denser KKND plant: pad, twin cooling, reactor, stack, switchyard, steam */
        fill_rect(s, 2, H - 11, W - 4, 9, ok, og, ob, 255); /* slab */
        fill_rect(s, 3, H - 9, W - 6, 6, 55, 50, 42, 255); /* pad */
        fill_rect(s, 4, H - 8, 2, 2, 35, 32, 28, 255); /* pad bolt L */
        fill_rect(s, W/2 - 1, H - 8, 2, 2, 35, 32, 28, 255); /* pad bolt C */
        fill_rect(s, W - 6, H - 8, 2, 2, 35, 32, 28, 255); /* pad bolt R */
        fill_rect(s, 3, H - 4, W - 6, 2, 45, 40, 32, 255); /* curb */
        /* left cooling tower (taller cone + bands) */
        fill_rect(s, 3, 7, 11, H - 18, ok, og, ob, 255);
        fill_rect(s, 4, 8, 9, H - 20, 95, 145, 195, 255);
        fill_rect(s, 5, 5, 7, 5, ok, og, ob, 255);
        fill_rect(s, 6, 4, 5, 4, 70, 120, 170, 255); /* rim */
        fill_rect(s, 5, 14, 1, H - 28, 70, 110, 150, 255); /* cooling fin L */
        fill_rect(s, 11, 14, 1, H - 28, 70, 110, 150, 255);
        fill_rect(s, 5, 18, 7, 1, 80, 125, 170, 255); /* band */
        fill_rect(s, 5, 28, 7, 1, 75, 118, 162, 255);
        fill_rect(s, 6, 22, 2, 2, 180, 220, 255, 255); /* port window */
        disc(s, 8, 3, 3, 240, 248, 255, 255); /* steam puff */
        disc(s, 6, 1, 2, 220, 235, 250, 255);
        disc(s, 10, 2, 2, 230, 240, 252, 255);
        disc(s, 9, 5, 2, 210, 228, 245, 255);
        /* right cooling tower */
        fill_rect(s, W - 14, 9, 11, H - 20, ok, og, ob, 255);
        fill_rect(s, W - 13, 10, 9, H - 22, 85, 135, 185, 255);
        fill_rect(s, W - 12, 7, 7, 4, ok, og, ob, 255);
        fill_rect(s, W - 11, 6, 5, 3, 65, 115, 165, 255);
        fill_rect(s, W - 12, 15, 1, H - 30, 65, 105, 145, 255);
        fill_rect(s, W - 6, 15, 1, H - 30, 65, 105, 145, 255);
        fill_rect(s, W - 12, 20, 7, 1, 70, 112, 155, 255); /* band */
        fill_rect(s, W - 12, 30, 7, 1, 68, 108, 150, 255);
        fill_rect(s, W - 10, 24, 2, 2, 170, 210, 245, 255); /* port */
        disc(s, W - 9, 4, 3, 235, 245, 255, 255);
        disc(s, W - 7, 2, 2, 210, 230, 250, 255);
        disc(s, W - 11, 3, 2, 225, 238, 250, 255);
        disc(s, W - 8, 6, 2, 200, 220, 240, 255);
        /* central reactor block + glow + panels */
        fill_rect(s, W/2 - 6, H/2 - 5, 12, H/2 - 1, ok, og, ob, 255);
        fill_rect(s, W/2 - 5, H/2 - 3, 10, H/2 - 5, 55, 95, 150, 255);
        fill_rect(s, W/2 - 4, H/2 - 1, 3, 3, 255, 200, 40, 255); /* warn L */
        fill_rect(s, W/2 + 1, H/2 - 1, 3, 3, 255, 200, 40, 255); /* warn R */
        fill_rect(s, W/2 - 3, H/2 + 4, 2, 2, 40, 70, 110, 255); /* panel */
        fill_rect(s, W/2 + 1, H/2 + 4, 2, 2, 40, 70, 110, 255);
        fill_rect(s, W/2 - 2, H/2 + 8, 4, 2, 200, 160, 40, 255); /* hazard belt */
        disc(s, W/2, H/2 + 2, 4, 120, 200, 255, 255);
        disc(s, W/2, H/2 + 2, 2, 250, 252, 255, 255);
        ring(s, W/2, H/2 + 2, 5, 1, 90, 160, 220, 255);
        line(s, W/2, 8, W/2, H - 10, 200, 230, 250, 255);
        line(s, 8, H/2 + 2, W - 8, H/2 + 2, 180, 220, 245, 255);
        /* exhaust stack + plume */
        fill_rect(s, W/2 + 6, 6, 4, H/2 - 8, ok, og, ob, 255);
        fill_rect(s, W/2 + 7, 7, 2, H/2 - 12, 60, 58, 52, 255);
        fill_rect(s, W/2 + 6, 4, 4, 3, 50, 48, 42, 255); /* stack cap */
        disc(s, W/2 + 8, 2, 3, 180, 190, 200, 255); /* smoke */
        disc(s, W/2 + 9, 0, 2, 160, 170, 180, 255);
        /* switchyard: transformers + bus + insulators */
        fill_rect(s, W/2 - 10, H - 16, 7, 6, ok, og, ob, 255);
        fill_rect(s, W/2 - 9, H - 15, 5, 4, 45, 42, 36, 255);
        fill_rect(s, W/2 + 3, H - 15, 6, 5, ok, og, ob, 255);
        fill_rect(s, W/2 + 4, H - 14, 4, 3, 50, 48, 40, 255);
        fill_rect(s, W/2 - 8, H - 17, 2, 2, 90, 85, 70, 255); /* insulator */
        fill_rect(s, W/2 + 5, H - 16, 2, 2, 90, 85, 70, 255);
        fill_rect(s, W/2 - 1, H - 18, 3, 2, 70, 68, 58, 255); /* bus bar */
        line(s, W/2 - 6, H - 16, W/2 - 6, H/2 + 6, 90, 85, 70, 255);
        line(s, W/2 + 5, H - 14, W - 10, H/2 + 4, 80, 75, 60, 255);
        line(s, W/2 + 2, H - 17, W/2 + 7, H/2 + 8, 85, 80, 65, 255);
        /* control booth + fence */
        fill_rect(s, 14, H - 20, 8, 8, ok, og, ob, 255);
        fill_rect(s, 15, H - 19, 6, 6, 40, 55, 70, 255);
        fill_rect(s, 16, H - 18, 2, 2, 180, 220, 255, 255); /* booth window */
        fill_rect(s, 19, H - 18, 2, 2, 160, 200, 240, 255);
        fill_rect(s, 17, H - 15, 2, 3, 35, 32, 38, 255); /* door */
        fill_rect(s, 2, H - 13, 2, 4, 50, 48, 40, 255); /* fence post L */
        fill_rect(s, W/2 - 12, H - 13, 2, 4, 50, 48, 40, 255);
        fill_rect(s, W - 4, H - 13, 2, 4, 50, 48, 40, 255); /* fence post R */
        line(s, 3, H - 12, W - 4, H - 12, 60, 55, 45, 255); /* fence rail */
        break;
    case BT_TURRET:
        /* denser KKND turret: berm+bunker+cupola+barrel+radar+coax */
        fill_rect(s, 1, H - 8, W - 2, 6, 70, 58, 42, 255); /* berm/sandbag ring */
        fill_rect(s, 2, H - 7, 4, 4, 95, 82, 60, 255); /* bag L */
        fill_rect(s, W - 6, H - 7, 4, 4, 95, 82, 60, 255); /* bag R */
        fill_rect(s, W/2 - 4, H - 6, 8, 3, 85, 72, 52, 255); /* bag mid */
        fill_rect(s, 2, H - 16, W - 4, 12, ok, og, ob, 255); /* bunker hull */
        fill_rect(s, 3, H - 14, W - 6, 9, 48, 44, 38, 255); /* bunker slab */
        fill_rect(s, 3, H - 15, W - 6, 2, 90, 82, 68, 255); /* top lip */
        fill_rect(s, 4, H - 13, 5, 5, 70, 65, 55, 255); /* armor plate L */
        fill_rect(s, W - 9, H - 13, 5, 5, 70, 65, 55, 255); /* armor plate R */
        fill_rect(s, W/2 - 6, H - 10, 12, 4, 35, 32, 28, 255); /* embrasure */
        fill_rect(s, W/2 - 5, H - 9, 10, 2, 20, 18, 16, 255); /* slit */
        fill_rect(s, 5, H - 8, 2, 2, 28, 26, 22, 255); /* bolt L */
        fill_rect(s, 8, H - 8, 2, 2, 28, 26, 22, 255);
        fill_rect(s, W - 10, H - 8, 2, 2, 28, 26, 22, 255); /* bolt R */
        fill_rect(s, W - 7, H - 8, 2, 2, 28, 26, 22, 255);
        fill_rect(s, 2, H - 4, 3, 3, 55, 48, 38, 255); /* corner block L */
        fill_rect(s, W - 5, H - 4, 3, 3, 55, 48, 38, 255); /* corner block R */
        /* dual ammo crates + feed strut */
        fill_rect(s, 2, H/2 + 1, 7, 9, ok, og, ob, 255);
        fill_rect(s, 3, H/2 + 2, 5, 7, 55, 50, 42, 255);
        fill_rect(s, 4, H/2 + 3, 3, 2, 200, 160, 40, 255); /* hazard stripe */
        fill_rect(s, W - 9, H/2 + 2, 6, 8, ok, og, ob, 255);
        fill_rect(s, W - 8, H/2 + 3, 4, 6, 50, 46, 38, 255);
        fill_rect(s, W - 7, H/2 + 4, 2, 2, 200, 160, 40, 255);
        line(s, 6, H/2 + 2, W/2 - 4, H/2, 40, 36, 30, 255);
        line(s, W - 6, H/2 + 3, W/2 + 4, H/2 + 1, 40, 36, 30, 255);
        /* access ladder */
        fill_rect(s, 1, H/2 - 2, 2, 10, 60, 55, 45, 255);
        fill_rect(s, 1, H/2, 3, 1, 90, 85, 70, 255);
        fill_rect(s, 1, H/2 + 3, 3, 1, 90, 85, 70, 255);
        fill_rect(s, 1, H/2 + 6, 3, 1, 90, 85, 70, 255);
        /* ringed cupola + viewports */
        disc(s, W/2, H/2, W/3 + 3, ok, og, ob, 255);
        disc(s, W/2, H/2, W/3 + 1, base.r, base.g, base.b, 255);
        ring(s, W/2, H/2, W/4 + 2, 2, dark.r, dark.g, dark.b, 255);
        ring(s, W/2, H/2, W/4 - 1, 1, 35, 32, 28, 255);
        disc(s, W/2, H/2, W/5, lite.r, lite.g, lite.b, 255);
        disc(s, W/2, H/2 - 1, 3, 35, 32, 28, 255); /* hatch */
        fill_rect(s, W/2 - 1, H/2 - 3, 2, 2, 20, 18, 16, 255); /* hatch handle */
        fill_rect(s, W/2 - 6, H/2 - 1, 3, 2, 25, 22, 18, 255); /* viewport L */
        fill_rect(s, W/2 + 3, H/2 - 1, 3, 2, 25, 22, 18, 255); /* viewport R */
        disc(s, W/2 - 5, H/2 + 4, 1, 90, 85, 70, 255); /* rivet */
        disc(s, W/2 + 5, H/2 + 4, 1, 90, 85, 70, 255);
        disc(s, W/2 - 2, H/2 + 5, 1, 90, 85, 70, 255);
        disc(s, W/2 + 2, H/2 + 5, 1, 90, 85, 70, 255);
        /* main barrel shroud + bands + rail */
        fill_rect(s, W/2 + 1, H/2 - 4, 14, 7, ok, og, ob, 255);
        fill_rect(s, W/2 + 2, H/2 - 3, 13, 5, 40, 36, 30, 255);
        fill_rect(s, W/2 + 3, H/2 - 2, 12, 3, 55, 50, 42, 255); /* bore highlight */
        fill_rect(s, W/2 + 4, H/2 - 4, 2, 7, 70, 62, 50, 255); /* band */
        fill_rect(s, W/2 + 8, H/2 - 4, 2, 7, 70, 62, 50, 255);
        fill_rect(s, W/2 + 12, H/2 - 4, 2, 7, 70, 62, 50, 255);
        fill_rect(s, W/2 + 2, H/2 + 3, 10, 2, 30, 28, 24, 255); /* recoil rail */
        line(s, W/2, H/2, W/2 + 15, H/2 - 11, 28, 26, 22, 255);
        line(s, W/2 + 1, H/2 + 1, W/2 + 15, H/2 - 10, 55, 48, 38, 255);
        disc(s, W/2 + 14, H/2 - 11, 2, 255, 200, 80, 255); /* muzzle tip */
        fill_rect(s, W/2 + 13, H/2 - 12, 3, 1, 255, 220, 120, 255); /* flash tip */
        /* coax MG under barrel */
        fill_rect(s, W/2 + 3, H/2 + 1, 8, 2, 45, 42, 36, 255);
        fill_rect(s, W/2 + 10, H/2 + 1, 3, 1, 30, 28, 24, 255);
        /* radar dish + mast + cable */
        fill_rect(s, W/2 - 2, H/2 - 10, 3, 5, 50, 48, 40, 255); /* mast */
        disc(s, W/2 - 1, H/2 - 11, 4, 90, 88, 78, 255);
        disc(s, W/2 - 1, H/2 - 11, 2, 40, 38, 34, 255);
        line(s, W/2 - 1, H/2 - 7, W/2 - 6, H/2 - 2, 60, 55, 45, 255);
        /* searchlight + flood */
        fill_rect(s, W/2 - 9, H/2 - 7, 5, 4, 200, 195, 160, 255);
        fill_rect(s, W/2 - 8, H/2 - 6, 3, 2, 255, 250, 210, 255);
        disc(s, W/2 - 7, H/2 - 8, 2, 255, 250, 210, 255);
        fill_rect(s, W - 6, H/2 - 5, 3, 2, 220, 210, 160, 255); /* side flood */
        break;
    case BT_WALL:
        /* denser fort: battlement, gate, scars, rubble (KKND fort read) */
        fill_rect(s, 0, 4, W, H - 4, ok, og, ob, 255); /* outer hull */
        fill_rect(s, 1, 6, W - 2, H - 8, 165, 145, 110, 255); /* face */
        fill_rect(s, 2, 7, W - 4, H - 12, 150, 132, 100, 255); /* inner face */
        fill_rect(s, 2, H - 6, W - 4, 4, 90, 78, 58, 255); /* plinth */
        fill_rect(s, 3, H - 5, W - 6, 2, 70, 60, 48, 255); /* plinth shadow */
        fill_rect(s, 1, H - 5, 3, 3, 70, 60, 45, 255); /* corner stone L */
        fill_rect(s, W - 4, H - 5, 3, 3, 70, 60, 45, 255); /* corner stone R */
        fill_rect(s, W/2 - 2, H - 4, 4, 2, 55, 48, 38, 255); /* threshold */
        /* thick merlons + caps + 4th tooth */
        fill_rect(s, 1, 1, 7, 10, ok, og, ob, 255);
        fill_rect(s, 2, 2, 5, 8, 195, 175, 140, 255);
        fill_rect(s, 3, 1, 3, 2, 220, 200, 160, 255); /* merlon cap L */
        fill_rect(s, W/2 - 5, 1, 4, 9, ok, og, ob, 255); /* merlon mid-L */
        fill_rect(s, W/2 - 4, 2, 2, 7, 200, 180, 145, 255);
        fill_rect(s, W/2 - 1, 1, 7, 10, ok, og, ob, 255);
        fill_rect(s, W/2, 2, 5, 8, 200, 180, 145, 255);
        fill_rect(s, W/2 + 1, 1, 3, 2, 220, 200, 160, 255); /* merlon cap mid */
        fill_rect(s, W - 8, 1, 7, 10, ok, og, ob, 255);
        fill_rect(s, W - 7, 2, 5, 8, 190, 170, 135, 255);
        fill_rect(s, W - 6, 1, 3, 2, 215, 195, 155, 255); /* merlon cap R */
        fill_rect(s, 2, 10, W - 4, 3, 215, 195, 155, 255); /* coping */
        fill_rect(s, 2, 11, W - 4, 1, 120, 105, 80, 255); /* coping shadow */
        fill_rect(s, 4, 9, 2, 2, 180, 160, 125, 255); /* coping bolt L */
        fill_rect(s, W - 6, 9, 2, 2, 180, 160, 125, 255); /* coping bolt R */
        /* buttresses + mid pier */
        fill_rect(s, 0, H/2 - 2, 4, H/2, ok, og, ob, 255);
        fill_rect(s, 1, H/2, 2, H/2 - 4, 140, 125, 95, 255);
        fill_rect(s, W - 4, H/2 - 2, 4, H/2, ok, og, ob, 255);
        fill_rect(s, W - 3, H/2, 2, H/2 - 4, 140, 125, 95, 255);
        fill_rect(s, W/2 - 2, H/2 + 4, 4, H/2 - 8, ok, og, ob, 255); /* mid pier */
        fill_rect(s, W/2 - 1, H/2 + 5, 2, H/2 - 10, 130, 115, 88, 255);
        /* gate arch + door + hinges */
        fill_rect(s, W/2 - 4, H/2 + 2, 8, H/2 - 6, 45, 38, 30, 255); /* gate recess */
        fill_rect(s, W/2 - 3, H/2 + 3, 6, H/2 - 8, 55, 48, 38, 255); /* door */
        fill_rect(s, W/2 - 2, H/2 + 4, 4, 3, 35, 30, 24, 255); /* gate grate */
        fill_rect(s, W/2 - 4, H/2 + 2, 1, H/2 - 8, 90, 80, 60, 255); /* hinge L */
        fill_rect(s, W/2 + 3, H/2 + 2, 1, H/2 - 8, 90, 80, 60, 255); /* hinge R */
        fill_rect(s, W/2 - 1, H - 8, 2, 2, 200, 180, 80, 255); /* lock plate */
        /* embrasures + slits + scars */
        fill_rect(s, W/2 - 2, H/2 - 4, 4, 5, 35, 30, 24, 255); /* embrasure */
        fill_rect(s, W/2 - 1, H/2 - 2, 2, 3, 20, 18, 14, 255);
        fill_rect(s, W/4 - 1, H/2 - 1, 3, 5, 40, 35, 28, 255); /* side slit L */
        fill_rect(s, 3 * W/4 - 1, H/2 - 1, 3, 5, 40, 35, 28, 255); /* side slit R */
        fill_rect(s, 5, H/2 + 8, 3, 2, 100, 70, 50, 255); /* blast scar L */
        fill_rect(s, W - 8, H/2 + 7, 4, 2, 95, 65, 45, 255); /* blast scar R */
        fill_rect(s, 3, H - 3, 4, 2, 80, 70, 55, 255); /* rubble L */
        fill_rect(s, W - 7, H - 3, 4, 2, 80, 70, 55, 255); /* rubble R */
        fill_rect(s, W/2 + 5, H/2 + 10, 2, 2, 60, 52, 40, 255); /* chip */
        line(s, 2, H/2 + 1, W - 2, H/2 + 1, 55, 48, 38, 255);
        line(s, 2, H/2 + 6, W - 2, H/2 + 6, 75, 65, 50, 255);
        line(s, W/3, 8, W/3, H - 4, 65, 55, 42, 255);
        line(s, 2 * W/3, 8, 2 * W/3, H - 4, 65, 55, 42, 255);
        line(s, 4, H - 7, W - 4, H - 7, 50, 42, 32, 255); /* plinth seam */
        disc(s, 6, H/2 + 10, 1, 70, 55, 40, 255); /* pock L */
        disc(s, W - 6, H/2 + 9, 1, 70, 55, 40, 255); /* pock R */
        break;
    case BT_REPAIR:
        /* dense garage: pad, hull, bay/lift, tool rack, crane, crates (KKND depot) */
        fill_rect(s, 3, H - 8, W - 6, 6, ok, og, ob, 255); /* pad */
        fill_rect(s, 4, H - 7, W - 8, 4, 55, 50, 40, 255);
        fill_rect(s, 5, H - 6, 2, 2, 35, 32, 28, 255); /* pad bolt L */
        fill_rect(s, W - 7, H - 6, 2, 2, 35, 32, 28, 255); /* pad bolt R */
        /* main garage hull + roof band + rivets */
        fill_rect(s, 4, 6, W - 8, H - 12, ok, og, ob, 255);
        fill_rect(s, 6, 8, W - 12, H - 16, base.r, base.g, base.b, 255);
        fill_rect(s, 8, 10, W - 16, 8, lite.r, lite.g, lite.b, 255); /* roof */
        fill_rect(s, 10, 12, 4, 4, 50, 48, 40, 255); /* roof vents */
        fill_rect(s, W/2 - 2, 12, 4, 4, 50, 48, 40, 255);
        fill_rect(s, W - 14, 12, 4, 4, 50, 48, 40, 255);
        fill_rect(s, 8, 11, 2, 2, 90, 85, 70, 255); /* rivet */
        fill_rect(s, W - 12, 11, 2, 2, 90, 85, 70, 255);
        fill_rect(s, 8, H - 18, 2, 2, 90, 85, 70, 255);
        fill_rect(s, W - 12, H - 18, 2, 2, 90, 85, 70, 255);
        line(s, 7, 20, W - 8, 20, 70, 65, 55, 255); /* roof seam */
        /* open bay + lift pad + posts + ramps */
        fill_rect(s, 10, H - 30, W - 28, 20, ok, og, ob, 255);
        fill_rect(s, 12, H - 28, W - 32, 16, 38, 36, 32, 255);
        fill_rect(s, W/2 - 10, H - 24, 20, 8, 70, 68, 58, 255); /* lift platform */
        fill_rect(s, W/2 - 8, H - 22, 16, 4, 110, 100, 70, 255);
        fill_rect(s, W/2 - 6, H - 20, 12, 2, 140, 120, 80, 255); /* lift deck highlight */
        line(s, W/2 - 10, H - 24, W/2 - 10, H - 12, 90, 85, 70, 255);
        line(s, W/2 + 10, H - 24, W/2 + 10, H - 12, 90, 85, 70, 255);
        fill_rect(s, 12, H - 14, 6, 3, 60, 55, 45, 255); /* ramp L */
        fill_rect(s, W - 26, H - 14, 6, 3, 60, 55, 45, 255); /* ramp R */
        fill_rect(s, W/2 - 12, H - 12, 3, 4, 80, 75, 60, 255); /* lift post L */
        fill_rect(s, W/2 + 9, H - 12, 3, 4, 80, 75, 60, 255); /* lift post R */
        /* tool rack annex (left) denser */
        fill_rect(s, 4, H/2 - 4, 12, H/2 - 4, ok, og, ob, 255);
        fill_rect(s, 5, H/2 - 2, 10, H/2 - 8, dark.r, dark.g, dark.b, 255);
        fill_rect(s, 6, H/2 + 2, 2, 6, 200, 160, 60, 255); /* tools */
        fill_rect(s, 9, H/2 + 1, 2, 7, 180, 180, 190, 255);
        fill_rect(s, 12, H/2 + 2, 2, 5, 160, 140, 80, 255);
        fill_rect(s, 6, H/2 + 10, 8, 2, 90, 85, 70, 255); /* shelf */
        fill_rect(s, 7, H/2 - 1, 6, 2, 120, 110, 90, 255); /* upper shelf */
        /* overhead crane mast + jib + hook + trolley */
        fill_rect(s, W - 16, 4, 8, H - 20, ok, og, ob, 255);
        fill_rect(s, W - 14, 5, 5, H - 22, 95, 88, 70, 255);
        fill_rect(s, W - 13, 8, 2, 2, 70, 65, 50, 255); /* mast rivet */
        fill_rect(s, W - 13, H/2, 2, 2, 70, 65, 50, 255);
        fill_rect(s, 16, 6, W - 32, 4, ok, og, ob, 255);
        fill_rect(s, 17, 7, W - 34, 2, 120, 110, 85, 255);
        fill_rect(s, W/2 - 3, 5, 6, 3, 100, 95, 75, 255); /* trolley */
        line(s, W/2, 8, W/2, 20, 70, 65, 50, 255);
        disc(s, W/2, 22, 3, 80, 75, 55, 255);
        disc(s, W/2, 22, 1, 140, 130, 90, 255); /* hook tip */
        line(s, W - 12, 10, W/2 + 4, 8, 90, 85, 65, 255); /* jib brace */
        /* green service cross */
        ring(s, W/2 - 6, H/2 + 4, 9, 2, 90, 200, 90, 255);
        fill_rect(s, W/2 - 14, H/2 + 2, 16, 4, 120, 220, 120, 255);
        fill_rect(s, W/2 - 8, H/2 - 4, 4, 16, 120, 220, 120, 255);
        /* parts crates + oil drum + scrap pile */
        fill_rect(s, W - 22, H - 14, 8, 6, 140, 100, 55, 255);
        fill_rect(s, W - 20, H - 12, 4, 3, 180, 140, 70, 255);
        fill_rect(s, W - 24, H - 18, 6, 5, 110, 80, 45, 255); /* crate stack */
        fill_rect(s, 18, H - 16, 5, 6, 70, 90, 55, 255); /* oil drum */
        disc(s, 20, H - 16, 3, 60, 80, 45, 255);
        fill_rect(s, 24, H - 14, 6, 3, 90, 75, 55, 255); /* scrap */
        fill_rect(s, W - 18, H - 8, 4, 2, 200, 160, 40, 255); /* hazard stripe */
        /* side floodlight + bay hazard lintel */
        fill_rect(s, W - 10, 4, 2, 2, 220, 200, 80, 255);
        fill_rect(s, W - 9, 3, 1, 3, 90, 85, 70, 255);
        fill_rect(s, 12, H - 30, W - 32, 2, 200, 160, 40, 255); /* bay hazard */
        break;
    case BT_RESEARCH:
        /* dense lab: pad, hull, windows, dish mast, annex, instruments (KKND) */
        fill_rect(s, 3, H - 8, W - 6, 6, ok, og, ob, 255); /* pad */
        fill_rect(s, 4, H - 7, W - 8, 4, 55, 50, 40, 255);
        fill_rect(s, 5, H - 6, 2, 2, 35, 32, 28, 255); /* pad bolt L */
        fill_rect(s, W - 7, H - 6, 2, 2, 35, 32, 28, 255); /* pad bolt R */
        /* main hull + upper band + rivets */
        fill_rect(s, 5, 12, W - 10, H - 18, ok, og, ob, 255);
        fill_rect(s, 7, 14, W - 14, H - 22, base.r, base.g, base.b, 255);
        fill_rect(s, 9, 16, W - 18, 10, lite.r, lite.g, lite.b, 255);
        fill_rect(s, 8, 15, 2, 2, 90, 85, 70, 255); /* rivet */
        fill_rect(s, W - 12, 15, 2, 2, 90, 85, 70, 255);
        fill_rect(s, 8, H - 20, 2, 2, 90, 85, 70, 255);
        fill_rect(s, W - 12, H - 20, 2, 2, 90, 85, 70, 255);
        line(s, 7, 26, W - 8, 26, 70, 65, 55, 255); /* hull seam */
        /* glowing lab windows (2 rows + mullions + glow) */
        fill_rect(s, 10, H/2 - 6, 8, 5, 180, 230, 255, 255);
        fill_rect(s, 22, H/2 - 6, 8, 5, 160, 220, 250, 255);
        fill_rect(s, 34, H/2 - 6, 8, 5, 180, 230, 255, 255);
        fill_rect(s, 10, H/2 + 2, 8, 5, 150, 210, 245, 255);
        fill_rect(s, 22, H/2 + 2, 8, 5, 170, 225, 255, 255);
        fill_rect(s, 34, H/2 + 2, 8, 5, 150, 210, 245, 255);
        fill_rect(s, 12, H/2 - 4, 4, 2, 240, 250, 255, 255);
        fill_rect(s, 24, H/2 - 4, 4, 2, 230, 245, 255, 255);
        fill_rect(s, 36, H/2 - 4, 4, 2, 240, 250, 255, 255);
        line(s, 14, H/2 - 6, 14, H/2 - 1, 90, 140, 180, 255);
        line(s, 26, H/2 - 6, 26, H/2 - 1, 90, 140, 180, 255);
        line(s, 38, H/2 - 6, 38, H/2 - 1, 90, 140, 180, 255);
        /* entry door + hazard */
        fill_rect(s, W/2 - 5, H - 22, 10, 12, ok, og, ob, 255);
        fill_rect(s, W/2 - 4, H - 21, 8, 10, 40, 38, 45, 255);
        fill_rect(s, W/2 - 4, H - 21, 8, 2, 200, 160, 40, 255);
        fill_rect(s, W/2 - 1, H - 16, 2, 3, 180, 170, 90, 255); /* handle */
        /* primary dish on tall mast + braces */
        fill_rect(s, W/2 + 4, 2, 5, 18, ok, og, ob, 255);
        fill_rect(s, W/2 + 5, 3, 3, 16, 110, 100, 75, 255);
        line(s, W/2 + 2, 14, W/2 + 5, 8, 80, 75, 55, 255);
        line(s, W/2 + 10, 14, W/2 + 7, 8, 80, 75, 55, 255);
        disc(s, W/2 + 6, 12, 13, ok, og, ob, 255);
        disc(s, W/2 + 6, 12, 11, 215, 185, 85, 255);
        ring(s, W/2 + 6, 12, 8, 2, 170, 140, 55, 255);
        disc(s, W/2 + 6, 12, 4, 255, 245, 170, 255);
        disc(s, W/2 + 6, 12, 2, 255, 255, 220, 255); /* feed */
        line(s, W/2 + 6, 2, W/2 + 6, 12, 200, 190, 120, 255);
        /* secondary small dish + cable */
        fill_rect(s, 8, 4, 3, 10, ok, og, ob, 255);
        fill_rect(s, 9, 5, 1, 8, 100, 95, 70, 255);
        disc(s, 9, 8, 5, ok, og, ob, 255);
        disc(s, 9, 8, 3, 190, 160, 70, 255);
        disc(s, 9, 8, 1, 255, 240, 160, 255);
        line(s, 12, 10, W/2 + 4, 14, 90, 85, 60, 255); /* coax */
        /* roof vents / AC + floodlight */
        fill_rect(s, 16, 8, 6, 4, ok, og, ob, 255);
        fill_rect(s, 17, 9, 4, 2, 120, 115, 95, 255);
        fill_rect(s, 24, 7, 5, 3, 70, 68, 60, 255);
        fill_rect(s, 25, 6, 3, 2, 90, 88, 78, 255);
        fill_rect(s, W - 14, 4, 2, 2, 220, 200, 80, 255); /* floodlight */
        fill_rect(s, W - 13, 3, 1, 3, 90, 85, 70, 255);
        /* side antenna array */
        fill_rect(s, 10, 6, 3, 10, 200, 200, 140, 255);
        fill_rect(s, 18, 4, 2, 12, 220, 220, 150, 255);
        fill_rect(s, 14, 5, 2, 8, 180, 180, 130, 255);
        disc(s, 11, 5, 2, 255, 240, 120, 255);
        disc(s, 19, 3, 2, 255, 230, 100, 255);
        disc(s, 15, 4, 1, 255, 220, 90, 255);
        /* side annex / sample bay */
        fill_rect(s, W - 16, H - 28, 12, 14, ok, og, ob, 255);
        fill_rect(s, W - 15, H - 27, 10, 12, dark.r, dark.g, dark.b, 255);
        fill_rect(s, W - 13, H - 25, 6, 4, 140, 200, 255, 255); /* annex window */
        fill_rect(s, W - 12, H - 24, 2, 2, 230, 245, 255, 255);
        fill_rect(s, W - 14, H - 18, 8, 2, 200, 160, 40, 255); /* hazard */
        /* cooling pipes along hull */
        line(s, 6, 20, 6, H - 14, 100, 140, 180, 255);
        line(s, W - 8, 20, W - 8, H - 14, 100, 140, 180, 255);
        fill_rect(s, 5, H/2, 3, 3, 80, 110, 140, 255); /* valve L */
        fill_rect(s, W - 9, H/2 + 4, 3, 3, 80, 110, 140, 255);
        /* instrument bank / console strip denser */
        fill_rect(s, 10, H - 16, W - 30, 7, dark.r, dark.g, dark.b, 255);
        fill_rect(s, 12, H - 14, 3, 3, 80, 220, 120, 255);
        fill_rect(s, 17, H - 14, 3, 3, 80, 160, 255, 255);
        fill_rect(s, 22, H - 14, 3, 3, 255, 180, 80, 255);
        fill_rect(s, 27, H - 14, 3, 3, 200, 100, 255, 255);
        fill_rect(s, 32, H - 14, 3, 3, 255, 80, 120, 255);
        fill_rect(s, 12, H - 10, 22, 1, 60, 55, 50, 255); /* LED rail */
        break;
    default:
        (void)dark;
        break;
    }
    SDL_Texture *tex = SDL_CreateTextureFromSurface(r, s);
    SDL_FreeSurface(s);
    return tex;
}

/* ---------------- terrain tiles ---------------- */
SDL_Texture *sprites_make_terrain(SDL_Renderer *r, TerrainType t) {
    SDL_Surface *s = new_surf(TILE, TILE);
    Uint8 tr=0,tg=0,tb=0;
    /* Classic KKND2 wasteland: yellow-tan sand (R>>B, G slightly under R). */
    switch (t) {
        case T_WASTELAND: tr=228; tg=188; tb=98; break;
        case T_RUBBLE:    tr=168; tg=138; tb=88; break;
        case T_ROAD:      tr=175; tg=148; tb=98; break;
        case T_GRASS:     tr=242; tg=198; tb=92; break; /* sunlit desert */
        case T_WATER:     tr=72;  tg=128; tb=178; break;
        case T_ROCK:      tr=155; tg=142; tb=128; break;
        case T_SCRAP:     tr=240; tg=190; tb=78; break;
        default:          tr=228; tg=188; tb=98; break;
    }
    fill_rect(s, 0, 0, TILE, TILE, tr, tg, tb, 255);
    /* speckle for texture */
    for (int i = 0; i < 40; i++) {
        int x = (i*73) % TILE, y = (i*131) % TILE;
        int v = ((i*53) % 24) - 12;
        px(s, x, y,
           (Uint8)kknd_clampi(tr+v,0,255),
           (Uint8)kknd_clampi(tg+v,0,255),
           (Uint8)kknd_clampi(tb+v,0,255), 255);
    }
    if (t == T_SCRAP) {
        /* stacked scrap mounds (live parity with snapshot) */
        int cc = TILE / 2, cr = TILE / 2 + 2;
        for (int k = 0; k < 7; k++) {
            int ox = ((k * 7) % 14) - 7;
            int oy = ((k * 5) % 10) - 5 - (k / 3) * 2;
            int rad = 3 + (k & 1);
            disc(s, cc + ox, cr + oy, rad, 235, 190, 85, 255);
            disc(s, cc + ox - 1, cr + oy - rad / 2, rad - 1, 210, 165, 70, 255);
            disc(s, cc + ox + 1, cr + oy - rad + 1,
                 (rad > 2) ? rad - 2 : 1, 255, 215, 120, 255);
        }
    }
    if (t == T_WATER) {
        for (int i = 0; i < TILE; i += 4)
            line(s, 0, i, TILE, i, 60, 100, 150, 255);
    }
    if (t == T_ROCK) {
        for (int i = 0; i < 12; i++) {
            int x = (i*89) % TILE, y = (i*149) % TILE;
            disc(s, x, y, 3, 130, 124, 118, 255);
        }
    }
    SDL_Texture *tex = SDL_CreateTextureFromSurface(r, s);
    SDL_FreeSurface(s);
    return tex;
}

/* ---------------- bullets ---------------- */
static SDL_Texture *make_bullet(SDL_Renderer *r, int kind) {
    int S = 10;
    SDL_Surface *s = new_surf(S, S);
    switch (kind) {
    case 0: disc(s, 5, 5, 3, 255, 230, 120, 255); break;   /* MG tracer */
    case 1: disc(s, 5, 5, 4, 255, 160, 60, 255);  break;   /* shell */
    case 2: disc(s, 5, 5, 3, 120, 255, 160, 255); break;   /* laser */
    case 3: disc(s, 5, 5, 4, 255, 90, 90, 255);   break;   /* missile */
    default: disc(s, 5, 5, 3, 255, 255, 255, 255);
    }
    SDL_Texture *tex = SDL_CreateTextureFromSurface(r, s);
    SDL_FreeSurface(s);
    return tex;
}

int sprites_init(Sprites *sp, SDL_Renderer *r) {
    memset(sp, 0, sizeof(Sprites));
    for (int t = 0; t < T_COUNT; t++)
        sp->terrain[t] = sprites_make_terrain(r, (TerrainType)t);
    for (int t = 1; t < UT_COUNT; t++) {
        sp->unit[t][FACTION_SURVIVOR] = sprites_make_unit(r, (UnitType)t, FACTION_SURVIVOR);
        sp->unit[t][FACTION_EVOLVED]  = sprites_make_unit(r, (UnitType)t, FACTION_EVOLVED);
        sp->unit[t][FACTION_SERIES9]  = sprites_make_unit(r, (UnitType)t, FACTION_SERIES9);
    }
    for (int t = 1; t < BT_COUNT; t++) {
        sp->bld[t][FACTION_SURVIVOR] = sprites_make_bld(r, (BuildingType)t, FACTION_SURVIVOR);
        sp->bld[t][FACTION_EVOLVED]  = sprites_make_bld(r, (BuildingType)t, FACTION_EVOLVED);
        sp->bld[t][FACTION_SERIES9]  = sprites_make_bld(r, (BuildingType)t, FACTION_SERIES9);
    }
    for (int k = 0; k < 4; k++)
        sp->bullet[k] = make_bullet(r, k);

    sp->font_small = TTF_OpenFont("/usr/share/fonts/TTF/DejaVuSans.ttf", 14);
    if (!sp->font_small)
        sp->font_small = TTF_OpenFont("/usr/share/fonts/gnu-free/FreeSans.ttf", 14);
    sp->font_med = sp->font_small ? TTF_OpenFont("/usr/share/fonts/TTF/DejaVuSans.ttf", 20) : NULL;
    sp->font_big = sp->font_small ? TTF_OpenFont("/usr/share/fonts/TTF/DejaVuSans.ttf", 34) : NULL;
    if (!sp->font_small) {
        sp->font_small = TTF_OpenFont("/usr/share/fonts/TTF/DejaVuSans-Bold.ttf", 14);
    }
    return 1;
}

void sprites_free(Sprites *sp) {
    for (int t = 0; t < T_COUNT; t++)
        if (sp->terrain[t]) SDL_DestroyTexture(sp->terrain[t]);
    for (int t = 1; t < UT_COUNT; t++)
        for (int f = 0; f < MAX_FACTIONS; f++)
            if (sp->unit[t][f]) SDL_DestroyTexture(sp->unit[t][f]);
    for (int t = 1; t < BT_COUNT; t++)
        for (int f = 0; f < MAX_FACTIONS; f++)
            if (sp->bld[t][f]) SDL_DestroyTexture(sp->bld[t][f]);
    for (int k = 0; k < 4; k++)
        if (sp->bullet[k]) SDL_DestroyTexture(sp->bullet[k]);
    if (sp->font_small) TTF_CloseFont(sp->font_small);
    if (sp->font_med)   TTF_CloseFont(sp->font_med);
    if (sp->font_big)   TTF_CloseFont(sp->font_big);
}