bool map::draw()
{
int map_x, map_y;
int i, j;
window * txt = first_child;
char buffer[256];
/* Draw parchment */
vultures_put_img(abs_x, abs_y, mapbg);
/* Draw the level name */
#ifdef VULTURESCLAW
describe_level(buffer, TRUE);
#else
if (!describe_level(buffer))
sprintf(buffer, "%s, level %d ", dungeons[u.uz.dnum].dname, depth(&u.uz));
#endif
txt->set_caption(buffer);
txt->x = (w - vultures_text_length(V_FONT_HEADLINE, txt->caption)) / 2;
txt->abs_x = abs_x + txt->x;
txt->abs_y = abs_y + txt->y;
vultures_put_text_shadow(V_FONT_HEADLINE, txt->caption, vultures_screen,
txt->abs_x, txt->abs_y, CLR32_BROWN, CLR32_BLACK_A50);
/* Find upper left corner of map on parchment */
map_x = abs_x + 39;
map_y = abs_y + 91;
/* Draw map on parchment, and create hotspots */
for (i = 0; i < ROWNO; i++)
for (j = 1; j < COLNO; j++) {
int map_glyph = map_data->get_glyph(MAP_GLYPH, j, i);
bool is_dark = (map_data->get_glyph(MAP_DARKNESS, j, i) == 2);
if (map_glyph != NO_GLYPH &&
(map_glyph != cmap_to_glyph(S_stone) ||
(level.locations[j][i].seenv && is_dark))) {
vultures_put_img(
map_x + SYMBOL_WIDTH*j,
map_y + SYMBOL_HEIGHT*i,
map_symbols[glyph2tile[map_glyph]]);
}
}
vultures_invalidate_region(abs_x, abs_y, w, h);
return false;
}
/* set height of the status box */
sz->cy = tm.tmHeight * data->nhstat_format;
SelectObject(hdc, saveFont);
ReleaseDC(hWnd, hdc);
}
}
extern const char *hu_stat[]; /* defined in eat.c */
extern const char *enc_stat[]; /* define in botl.c */
void
FormatStatusString(char *text, int format)
{
register char *nb;
int hp, hpmax;
int cap = near_capacity();
Strcpy(text, plname);
if ('a' <= text[0] && text[0] <= 'z')
text[0] += 'A' - 'a';
text[10] = 0;
Sprintf(nb = eos(text), " the ");
if (Upolyd) {
char mbot[BUFSZ];
int k = 0;
Strcpy(mbot, mons[u.umonnum].mname);
while (mbot[k] != 0) {
if ((k == 0 || (k > 0 && mbot[k - 1] == ' ')) && 'a' <= mbot[k]
&& mbot[k] <= 'z')
mbot[k] += 'A' - 'a';
k++;
}
Sprintf(nb = eos(nb), mbot);
} else
Sprintf(nb = eos(nb), rank_of(u.ulevel, Role_switch, flags.female));
if (format == NHSTAT_LINES_4)
Sprintf(nb = eos(nb), "\r\n");
if (ACURR(A_STR) > 18) {
if (ACURR(A_STR) > STR18(100))
Sprintf(nb = eos(nb), "St:%2d ", ACURR(A_STR) - 100);
else if (ACURR(A_STR) < STR18(100))
Sprintf(nb = eos(nb), "St:18/%02d ", ACURR(A_STR) - 18);
else
Sprintf(nb = eos(nb), "St:18/** ");
} else
Sprintf(nb = eos(nb), "St:%-1d ", ACURR(A_STR));
Sprintf(nb = eos(nb), "Dx:%-1d Co:%-1d In:%-1d Wi:%-1d Ch:%-1d",
ACURR(A_DEX), ACURR(A_CON), ACURR(A_INT), ACURR(A_WIS),
ACURR(A_CHA));
Sprintf(nb = eos(nb),
(u.ualign.type == A_CHAOTIC)
? " Chaotic"
: (u.ualign.type == A_NEUTRAL) ? " Neutral" : " Lawful");
#ifdef SCORE_ON_BOTL
if (flags.showscore)
Sprintf(nb = eos(nb), " S:%ld", botl_score());
#endif
if (format == NHSTAT_LINES_4 || format == NHSTAT_LINES_2)
strcat(text, "\r\n");
/* third line */
hp = Upolyd ? u.mh : u.uhp;
hpmax = Upolyd ? u.mhmax : u.uhpmax;
if (hp < 0)
hp = 0;
(void) describe_level(nb = eos(nb));
Sprintf(nb = eos(nb), "%c:%-2ld HP:%d(%d) Pw:%d(%d) AC:%-2d",
showsyms[COIN_CLASS + SYM_OFF_O], money_cnt(invent), hp, hpmax,
u.uen, u.uenmax, u.uac);
if (Upolyd)
Sprintf(nb = eos(nb), " HD:%d", mons[u.umonnum].mlevel);
else if (flags.showexp)
Sprintf(nb = eos(nb), " Xp:%u/%-1ld", u.ulevel, u.uexp);
else
Sprintf(nb = eos(nb), " Exp:%u", u.ulevel);
if (format == NHSTAT_LINES_4)
strcat(text, "\r\n");
else
strcat(text, " ");
/* forth line */
if (flags.time)
Sprintf(nb = eos(nb), "T:%ld ", moves);
if (strcmp(hu_stat[u.uhs], " ")) {
Strcat(text, hu_stat[u.uhs]);
Sprintf(nb = eos(nb), " ");
}
if (Confusion)
Sprintf(nb = eos(nb), "Conf");
if (Sick) {
if (u.usick_type & SICK_VOMITABLE)
Sprintf(nb = eos(nb), " FoodPois");
if (u.usick_type & SICK_NONVOMITABLE)
Sprintf(nb = eos(nb), " Ill");
}
if (Blind)
Sprintf(nb = eos(nb), " Blind");
if (Stunned)
Sprintf(nb = eos(nb), " Stun");
if (Hallucination)
Sprintf(nb = eos(nb), " Hallu");
if (Slimed)
Sprintf(nb = eos(nb), " Slime");
if (cap > UNENCUMBERED)
Sprintf(nb = eos(nb), " %s", enc_stat[cap]);
}
static void
make_player_info(struct nh_player_info *pi)
{
int cap, advskills, i;
memset(pi, 0, sizeof (struct nh_player_info));
pi->moves = moves;
strncpy(pi->plname, u.uplname, sizeof (pi->plname));
pi->align = u.ualign.type;
/* This function could be called before the game is fully inited. Test
youmonst.data as it is required for near_capacity().
program_state.game_running is no good, as we need this data before
game_running is set.
TODO: Wow this is hacky. */
if (!youmonst.data)
return;
API_ENTRY_CHECKPOINT_RETURN_VOID_ON_ERROR();
pi->x = youmonst.mx;
pi->y = youmonst.my;
pi->z = u.uz.dlevel;
if (Upolyd) {
strncpy(pi->rank, msgtitlecase(mons[u.umonnum].mname),
sizeof (pi->rank));
} else
strncpy(pi->rank, rank(), sizeof (pi->rank));
strncpy(pi->rolename, (u.ufemale && urole.name.f) ?
urole.name.f : urole.name.m, sizeof (pi->rolename));
strncpy(pi->racename, urace.noun, sizeof (pi->racename));
strncpy(pi->gendername, genders[u.ufemale].adj,
sizeof(pi->gendername));
pi->max_rank_sz = mrank_sz;
/* abilities */
pi->st = ACURR(A_STR);
pi->st_extra = 0;
if (pi->st > 118) {
pi->st = pi->st - 100;
pi->st_extra = 0;
} else if (pi->st > 18) {
pi->st_extra = pi->st - 18;
pi->st = 18;
}
pi->dx = ACURR(A_DEX);
pi->co = ACURR(A_CON);
pi->in = ACURR(A_INT);
pi->wi = ACURR(A_WIS);
pi->ch = ACURR(A_CHA);
pi->score = botl_score();
/* hp and energy */
pi->hp = Upolyd ? u.mh : u.uhp;
pi->hpmax = Upolyd ? u.mhmax : u.uhpmax;
if (pi->hp < 0)
pi->hp = 0;
pi->en = u.uen;
pi->enmax = u.uenmax;
pi->ac = find_mac(&youmonst);
pi->gold = money_cnt(invent);
pi->coinsym = def_oc_syms[COIN_CLASS];
describe_level(pi->level_desc);
pi->monnum = u.umonster;
pi->cur_monnum = u.umonnum;
/* level and exp points */
if (Upolyd)
pi->level = mons[u.umonnum].mlevel;
else
pi->level = youmonst.m_lev;
pi->xp = youmonst.exp;
cap = near_capacity();
/* check if any skills could be anhanced */
advskills = 0;
for (i = 0; i < P_NUM_SKILLS; i++) {
if (P_RESTRICTED(i))
continue;
if (can_advance(i, FALSE))
advskills++;
}
pi->can_enhance = advskills > 0;
/* add status items for various problems there can be at most 24 items here
at any one time or we overflow the buffer */
if (hu_stat[u.uhs]) /* 1 */
strncpy(pi->statusitems[pi->nr_items++], hu_stat[u.uhs], ITEMLEN);
if (Confusion) /* 2 */
strncpy(pi->statusitems[pi->nr_items++], "Conf", ITEMLEN);
if (sick(&youmonst)) { /* 3 */
if (u.usick_type & SICK_VOMITABLE)
strncpy(pi->statusitems[pi->nr_items++], "FoodPois", ITEMLEN);
if (u.usick_type & SICK_NONVOMITABLE)
strncpy(pi->statusitems[pi->nr_items++], "Ill", ITEMLEN);
}
if (Blind) /* 4 */
strncpy(pi->statusitems[pi->nr_items++], "Blind", ITEMLEN);
if (slippery_fingers(&youmonst)) /* 5 */
strncpy(pi->statusitems[pi->nr_items++], "Greasy", ITEMLEN);
if (leg_hurt(&youmonst)) /* 6 */
strncpy(pi->statusitems[pi->nr_items++], "Lame", ITEMLEN);
if (stunned(&youmonst)) /* 7 */
strncpy(pi->statusitems[pi->nr_items++], "Stun", ITEMLEN);
if (hallucinating(&youmonst)) /* 8 */
strncpy(pi->statusitems[pi->nr_items++], "Hallu", ITEMLEN);
if (strangled(&youmonst)) /* 9 */
strncpy(pi->statusitems[pi->nr_items++], "Strangle", ITEMLEN);
if (sliming(&youmonst)) /* 10 */
strncpy(pi->statusitems[pi->nr_items++], "Slime", ITEMLEN);
if (petrifying(&youmonst)) /* 11 */
strncpy(pi->statusitems[pi->nr_items++], "Petrify", ITEMLEN);
if (u.ustuck && !Engulfed && !sticks(youmonst.data)) /* 12 */
strncpy(pi->statusitems[pi->nr_items++], "Held", ITEMLEN);
if (enc_stat[cap] ) /* 13 */
strncpy(pi->statusitems[pi->nr_items++], enc_stat[cap], ITEMLEN);
if (cancelled(&youmonst))
strncpy(pi->statusitems[pi->nr_items++], "Cancelled", ITEMLEN);
if (slow(&youmonst))
strncpy(pi->statusitems[pi->nr_items++], "Slow", ITEMLEN);
if (Levitation) /* 14 */
strncpy(pi->statusitems[pi->nr_items++], "Lev", ITEMLEN);
else if (Flying)
strncpy(pi->statusitems[pi->nr_items++], "Fly", ITEMLEN);
if (uwep && is_pick(uwep)) /* 15 (first case) */
strncpy(pi->statusitems[pi->nr_items++], "Dig", ITEMLEN);
else if (uwep && is_launcher(uwep))
strncpy(pi->statusitems[pi->nr_items++], "Ranged", ITEMLEN);
else if (uwep && (uwep->otyp == CORPSE) && (touch_petrifies(&mons[uwep->corpsenm])))
strncpy(pi->statusitems[pi->nr_items++], "cWielded", ITEMLEN);
else if (!uwep)
strncpy(pi->statusitems[pi->nr_items++], "Unarmed", ITEMLEN);
else if (!is_wep(uwep))
strncpy(pi->statusitems[pi->nr_items++], "NonWeap", ITEMLEN);
else {
/* strncpy(pi->statusitems[pi->nr_items++], "Melee", ITEMLEN); */
/* Don't show the default Melee status light, as that's the most common case. */
/* 15 (last case) */
}
if (u.utrap) /* 16 */
strncpy(pi->statusitems[pi->nr_items++], trap_stat[u.utraptype],
ITEMLEN);
API_EXIT();
}
