Create nukes at the tech level permitted by research

The tech level is visible to players, but currently has no effect.

diff --git a/src/lib/commands/buil.c b/src/lib/commands/buil.c
index ebf7de3eae51e5ed213237db07ed9c3084757bbf..456f28b57015d4e3e23200bf4af7be1a8b8170cf 100644 (file)
--- a/src/lib/commands/buil.c
+++ b/src/lib/commands/buil.c
@@ -183,19 +183,16 @@ buil(void)
        if (type >= 0) {
            np = &nchr[type];
            rqtech = np->n_tech;
-           if (rqtech > tlev
-               || (drnuke_const > MIN_DRNUKE_CONST &&
-                   np->n_tech * drnuke_const > rlev))
+           if (drnuke_const > MIN_DRNUKE_CONST)
+               tlev = (tlev < (rlev / drnuke_const) ? (int)tlev :
+                       (int)(rlev / drnuke_const));
+           if (rqtech > tlev)
                type = -1;
        }
        if (type < 0) {
-           int tt = tlev;
-           if (drnuke_const > MIN_DRNUKE_CONST)
-               tt = (tlev < (rlev / drnuke_const) ? (int)tlev :
-                     (int)(rlev / drnuke_const));
            pr("You can't build that!\n");
            pr("Use `show nuke build %d' to show types you can build.\n",
-              tt);
+              tlev);
            return RET_FAIL;
        }
        break;