*** empty log message ***
This commit is contained in:
jwalz
307
src/botl.c
Normal file
307
src/botl.c
Normal file
@@ -0,0 +1,307 @@
|
||||
/* SCCS Id: @(#)botl.c 3.3 96/07/15 */
|
||||
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
||||
/* NetHack may be freely redistributed. See license for details. */
|
||||
|
||||
#include "hack.h"
|
||||
|
||||
#ifdef OVL0
|
||||
extern const char *hu_stat[]; /* defined in eat.c */
|
||||
|
||||
const char *enc_stat[] = {
|
||||
"",
|
||||
"Burdened",
|
||||
"Stressed",
|
||||
"Strained",
|
||||
"Overtaxed",
|
||||
"Overloaded"
|
||||
};
|
||||
|
||||
STATIC_DCL void NDECL(bot1);
|
||||
STATIC_DCL void NDECL(bot2);
|
||||
#endif /* OVL0 */
|
||||
|
||||
/* MAXCO must hold longest uncompressed status line, and must be larger
|
||||
* than COLNO
|
||||
*
|
||||
* longest practical second status line at the moment is
|
||||
* Astral Plane $:12345 HP:700(700) Pw:111(111) AC:-127 Xp:30/123456789
|
||||
* T:123456 Satiated Conf FoodPois Ill Blind Stun Hallu Overloaded
|
||||
* -- or somewhat over 130 characters
|
||||
*/
|
||||
#if COLNO <= 140
|
||||
#define MAXCO 160
|
||||
#else
|
||||
#define MAXCO (COLNO+20)
|
||||
#endif
|
||||
|
||||
#ifndef OVLB
|
||||
STATIC_DCL int mrank_sz;
|
||||
#else /* OVLB */
|
||||
STATIC_OVL NEARDATA int mrank_sz = 0; /* loaded by max_rank_sz (from u_init) */
|
||||
#endif /* OVLB */
|
||||
|
||||
STATIC_DCL const char *NDECL(rank);
|
||||
|
||||
#ifdef OVL1
|
||||
|
||||
/* convert experience level (1..30) to rank index (0..8) */
|
||||
int xlev_to_rank(xlev)
|
||||
int xlev;
|
||||
{
|
||||
return (xlev <= 2) ? 0 : (xlev <= 30) ? ((xlev + 2) / 4) : 8;
|
||||
}
|
||||
|
||||
#if 0 /* not currently needed */
|
||||
/* convert rank index (0..8) to experience level (1..30) */
|
||||
int rank_to_xlev(rank)
|
||||
int rank;
|
||||
{
|
||||
return (rank <= 0) ? 1 : (rank <= 8) ? ((rank * 4) - 2) : 30;
|
||||
}
|
||||
#endif
|
||||
|
||||
const char *
|
||||
rank_of(lev, monnum, female)
|
||||
int lev;
|
||||
short monnum;
|
||||
boolean female;
|
||||
{
|
||||
register struct Role *role;
|
||||
register int i;
|
||||
|
||||
|
||||
/* Find the role */
|
||||
for (role = (struct Role *) roles; role->name.m; role++)
|
||||
if (monnum == role->malenum || monnum == role->femalenum)
|
||||
break;
|
||||
if (!role->name.m)
|
||||
role = &urole;
|
||||
|
||||
/* Find the rank */
|
||||
for (i = xlev_to_rank((int)lev); i >= 0; i--) {
|
||||
if (female && role->rank[i].f) return (role->rank[i].f);
|
||||
if (role->rank[i].m) return (role->rank[i].m);
|
||||
}
|
||||
|
||||
/* Try the role name, instead */
|
||||
if (female && role->name.f) return (role->name.f);
|
||||
else if (role->name.m) return (role->name.m);
|
||||
return ("Player");
|
||||
}
|
||||
|
||||
|
||||
STATIC_OVL const char *
|
||||
rank()
|
||||
{
|
||||
return(rank_of(u.ulevel, Role_switch, flags.female));
|
||||
}
|
||||
|
||||
int
|
||||
title_to_mon(str, rank_indx, title_length)
|
||||
const char *str;
|
||||
int *rank_indx, *title_length;
|
||||
{
|
||||
register int i, j;
|
||||
|
||||
|
||||
/* Loop through each of the roles */
|
||||
for (i = 0; roles[i].name.m; i++)
|
||||
for (j = 0; j < 9; j++) {
|
||||
if (roles[i].rank[j].m && !strncmpi(str,
|
||||
roles[i].rank[j].m, strlen(roles[i].rank[j].m))) {
|
||||
if (rank_indx) *rank_indx = j;
|
||||
if (title_length) *title_length = strlen(roles[i].rank[j].m);
|
||||
return roles[i].malenum;
|
||||
}
|
||||
if (roles[i].rank[j].f && !strncmpi(str,
|
||||
roles[i].rank[j].f, strlen(roles[i].rank[j].f))) {
|
||||
if (rank_indx) *rank_indx = j;
|
||||
if (title_length) *title_length = strlen(roles[i].rank[j].f);
|
||||
return ((roles[i].femalenum != NON_PM) ?
|
||||
roles[i].femalenum : roles[i].malenum);
|
||||
}
|
||||
}
|
||||
return NON_PM;
|
||||
}
|
||||
|
||||
#endif /* OVL1 */
|
||||
#ifdef OVLB
|
||||
|
||||
void
|
||||
max_rank_sz()
|
||||
{
|
||||
register int i, r, maxr = 0;
|
||||
for (i = 0; i < 9; i++) {
|
||||
if (urole.rank[i].m && (r = strlen(urole.rank[i].m)) > maxr) maxr = r;
|
||||
if (urole.rank[i].f && (r = strlen(urole.rank[i].f)) > maxr) maxr = r;
|
||||
}
|
||||
mrank_sz = maxr;
|
||||
return;
|
||||
}
|
||||
|
||||
#endif /* OVLB */
|
||||
#ifdef OVL0
|
||||
|
||||
#ifdef SCORE_ON_BOTL
|
||||
long
|
||||
botl_score()
|
||||
{
|
||||
int deepest = deepest_lev_reached(FALSE);
|
||||
#ifndef GOLDOBJ
|
||||
long ugold = u.ugold + hidden_gold();
|
||||
|
||||
if ((ugold -= u.ugold0) < 0L) ugold = 0L;
|
||||
return ugold + u.urexp + (long)(50 * (deepest - 1))
|
||||
#else
|
||||
long umoney = money_cnt(invent) + hidden_gold();
|
||||
|
||||
if ((umoney -= u.umoney0) < 0L) umoney = 0L;
|
||||
return umoney + u.urexp + (long)(50 * (deepest - 1))
|
||||
#endif
|
||||
+ (long)(deepest > 30 ? 10000 :
|
||||
deepest > 20 ? 1000*(deepest - 20) : 0);
|
||||
}
|
||||
#endif
|
||||
|
||||
STATIC_OVL void
|
||||
bot1()
|
||||
{
|
||||
char newbot1[MAXCO];
|
||||
register char *nb;
|
||||
register int i,j;
|
||||
|
||||
Strcpy(newbot1, plname);
|
||||
if('a' <= newbot1[0] && newbot1[0] <= 'z') newbot1[0] += 'A'-'a';
|
||||
newbot1[10] = 0;
|
||||
Sprintf(nb = eos(newbot1)," 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());
|
||||
|
||||
Sprintf(nb = eos(nb)," ");
|
||||
i = mrank_sz + 15;
|
||||
j = (nb + 2) - newbot1; /* aka strlen(newbot1) but less computation */
|
||||
if((i - j) > 0)
|
||||
Sprintf(nb = eos(nb),"%*s", i-j, " "); /* pad with spaces */
|
||||
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
|
||||
curs(WIN_STATUS, 1, 0);
|
||||
putstr(WIN_STATUS, 0, newbot1);
|
||||
}
|
||||
|
||||
/* provide the name of the current level for display by various ports */
|
||||
int
|
||||
describe_level(buf)
|
||||
char *buf;
|
||||
{
|
||||
int ret = 1;
|
||||
|
||||
/* TODO: Add in dungeon name */
|
||||
if (Is_knox(&u.uz))
|
||||
Sprintf(buf, "%s ", dungeons[u.uz.dnum].dname);
|
||||
else if (In_quest(&u.uz))
|
||||
Sprintf(buf, "Home %d ", dunlev(&u.uz));
|
||||
else if (In_endgame(&u.uz))
|
||||
Sprintf(buf,
|
||||
Is_astralevel(&u.uz) ? "Astral Plane " : "End Game ");
|
||||
else {
|
||||
/* ports with more room may expand this one */
|
||||
Sprintf(buf, "Dlvl:%-2d ", depth(&u.uz));
|
||||
ret = 0;
|
||||
}
|
||||
return ret;
|
||||
}
|
||||
|
||||
STATIC_OVL void
|
||||
bot2()
|
||||
{
|
||||
char newbot2[MAXCO];
|
||||
register char *nb;
|
||||
int hp, hpmax;
|
||||
int cap = near_capacity();
|
||||
|
||||
hp = Upolyd ? u.mh : u.uhp;
|
||||
hpmax = Upolyd ? u.mhmax : u.uhpmax;
|
||||
|
||||
if(hp < 0) hp = 0;
|
||||
(void) describe_level(newbot2);
|
||||
Sprintf(nb = eos(newbot2),
|
||||
"%c:%-2ld HP:%d(%d) Pw:%d(%d) AC:%-2d", oc_syms[GOLD_CLASS],
|
||||
#ifndef GOLDOBJ
|
||||
u.ugold,
|
||||
#else
|
||||
money_cnt(invent),
|
||||
#endif
|
||||
hp, hpmax, u.uen, u.uenmax, u.uac);
|
||||
|
||||
if (Upolyd)
|
||||
Sprintf(nb = eos(nb), " HD:%d", mons[u.umonnum].mlevel);
|
||||
#ifdef EXP_ON_BOTL
|
||||
else if(flags.showexp)
|
||||
Sprintf(nb = eos(nb), " Xp:%u/%-1ld", u.ulevel,u.uexp);
|
||||
#endif
|
||||
else
|
||||
Sprintf(nb = eos(nb), " Exp:%u", u.ulevel);
|
||||
|
||||
if(flags.time)
|
||||
Sprintf(nb = eos(nb), " T:%ld", moves);
|
||||
if(strcmp(hu_stat[u.uhs], " ")) {
|
||||
Sprintf(nb = eos(nb), " ");
|
||||
Strcat(newbot2, hu_stat[u.uhs]);
|
||||
}
|
||||
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]);
|
||||
curs(WIN_STATUS, 1, 1);
|
||||
putstr(WIN_STATUS, 0, newbot2);
|
||||
}
|
||||
|
||||
void
|
||||
bot()
|
||||
{
|
||||
bot1();
|
||||
bot2();
|
||||
flags.botl = flags.botlx = 0;
|
||||
}
|
||||
|
||||
#endif /* OVL0 */
|
||||
|
||||
/*botl.c*/
|
||||
Reference in New Issue
Block a user