From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001 From: cgd Date: Sun, 21 Mar 1993 09:45:37 +0000 Subject: initial import of 386bsd-0.1 sources --- hack/hack.do_name.c | 289 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 289 insertions(+) create mode 100644 hack/hack.do_name.c (limited to 'hack/hack.do_name.c') diff --git a/hack/hack.do_name.c b/hack/hack.do_name.c new file mode 100644 index 00000000..72ac62c8 --- /dev/null +++ b/hack/hack.do_name.c @@ -0,0 +1,289 @@ +/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ +/* hack.do_name.c - version 1.0.3 */ + +#include "hack.h" +#include +extern char plname[]; + +coord +getpos(force,goal) int force; char *goal; { +register cx,cy,i,c; +extern char sdir[]; /* defined in hack.c */ +extern schar xdir[], ydir[]; /* idem */ +extern char *visctrl(); /* see below */ +coord cc; + pline("(For instructions type a ?)"); + cx = u.ux; + cy = u.uy; + curs(cx,cy+2); + while((c = readchar()) != '.'){ + for(i=0; i<8; i++) if(sdir[i] == c){ + if(1 <= cx + xdir[i] && cx + xdir[i] <= COLNO) + cx += xdir[i]; + if(0 <= cy + ydir[i] && cy + ydir[i] <= ROWNO-1) + cy += ydir[i]; + goto nxtc; + } + if(c == '?'){ + pline("Use [hjkl] to move the cursor to %s.", goal); + pline("Type a . when you are at the right place."); + } else { + pline("Unknown direction: '%s' (%s).", + visctrl(c), + force ? "use hjkl or ." : "aborted"); + if(force) goto nxtc; + cc.x = -1; + cc.y = 0; + return(cc); + } + nxtc: ; + curs(cx,cy+2); + } + cc.x = cx; + cc.y = cy; + return(cc); +} + +do_mname(){ +char buf[BUFSZ]; +coord cc; +register int cx,cy,lth,i; +register struct monst *mtmp, *mtmp2; +extern char *lmonnam(); + cc = getpos(0, "the monster you want to name"); + cx = cc.x; + cy = cc.y; + if(cx < 0) return(0); + mtmp = m_at(cx,cy); + if(!mtmp){ + if(cx == u.ux && cy == u.uy) + pline("This ugly monster is called %s and cannot be renamed.", + plname); + else + pline("There is no monster there."); + return(1); + } + if(mtmp->mimic){ + pline("I see no monster there."); + return(1); + } + if(!cansee(cx,cy)) { + pline("I cannot see a monster there."); + return(1); + } + pline("What do you want to call %s? ", lmonnam(mtmp)); + getlin(buf); + clrlin(); + if(!*buf || *buf == '\033') + return(1); + lth = strlen(buf)+1; + if(lth > 63){ + buf[62] = 0; + lth = 63; + } + mtmp2 = newmonst(mtmp->mxlth + lth); + *mtmp2 = *mtmp; + for(i=0; imxlth; i++) + ((char *) mtmp2->mextra)[i] = ((char *) mtmp->mextra)[i]; + mtmp2->mnamelth = lth; + (void) strcpy(NAME(mtmp2), buf); + replmon(mtmp,mtmp2); + return(1); +} + +/* + * This routine changes the address of obj . Be careful not to call it + * when there might be pointers around in unknown places. For now: only + * when obj is in the inventory. + */ +do_oname(obj) register struct obj *obj; { +register struct obj *otmp, *otmp2; +register lth; +char buf[BUFSZ]; + pline("What do you want to name %s? ", doname(obj)); + getlin(buf); + clrlin(); + if(!*buf || *buf == '\033') + return; + lth = strlen(buf)+1; + if(lth > 63){ + buf[62] = 0; + lth = 63; + } + otmp2 = newobj(lth); + *otmp2 = *obj; + otmp2->onamelth = lth; + (void) strcpy(ONAME(otmp2), buf); + + setworn((struct obj *) 0, obj->owornmask); + setworn(otmp2, otmp2->owornmask); + + /* do freeinv(obj); etc. by hand in order to preserve + the position of this object in the inventory */ + if(obj == invent) invent = otmp2; + else for(otmp = invent; ; otmp = otmp->nobj){ + if(!otmp) + panic("Do_oname: cannot find obj."); + if(otmp->nobj == obj){ + otmp->nobj = otmp2; + break; + } + } + /* obfree(obj, otmp2); /* now unnecessary: no pointers on bill */ + free((char *) obj); /* let us hope nobody else saved a pointer */ +} + +ddocall() +{ + register struct obj *obj; + + pline("Do you want to name an individual object? [ny] "); + switch(readchar()) { + case '\033': + break; + case 'y': + obj = getobj("#", "name"); + if(obj) do_oname(obj); + break; + default: + obj = getobj("?!=/", "call"); + if(obj) docall(obj); + } + return(0); +} + +docall(obj) +register struct obj *obj; +{ + char buf[BUFSZ]; + struct obj otemp; + register char **str1; + extern char *xname(); + register char *str; + + otemp = *obj; + otemp.quan = 1; + otemp.onamelth = 0; + str = xname(&otemp); + pline("Call %s %s: ", index(vowels,*str) ? "an" : "a", str); + getlin(buf); + clrlin(); + if(!*buf || *buf == '\033') + return; + str = newstring(strlen(buf)+1); + (void) strcpy(str,buf); + str1 = &(objects[obj->otyp].oc_uname); + if(*str1) free(*str1); + *str1 = str; +} + +char *ghostnames[] = { /* these names should have length < PL_NSIZ */ + "adri", "andries", "andreas", "bert", "david", "dirk", "emile", + "frans", "fred", "greg", "hether", "jay", "john", "jon", "kay", + "kenny", "maud", "michiel", "mike", "peter", "robert", "ron", + "tom", "wilmar" +}; + +char * +xmonnam(mtmp, vb) register struct monst *mtmp; int vb; { +static char buf[BUFSZ]; /* %% */ +extern char *shkname(); + if(mtmp->mnamelth && !vb) { + (void) strcpy(buf, NAME(mtmp)); + return(buf); + } + switch(mtmp->data->mlet) { + case ' ': + { register char *gn = (char *) mtmp->mextra; + if(!*gn) { /* might also look in scorefile */ + gn = ghostnames[rn2(SIZE(ghostnames))]; + if(!rn2(2)) (void) + strcpy((char *) mtmp->mextra, !rn2(5) ? plname : gn); + } + (void) sprintf(buf, "%s's ghost", gn); + } + break; + case '@': + if(mtmp->isshk) { + (void) strcpy(buf, shkname(mtmp)); + break; + } + /* fall into next case */ + default: + (void) sprintf(buf, "the %s%s", + mtmp->minvis ? "invisible " : "", + mtmp->data->mname); + } + if(vb && mtmp->mnamelth) { + (void) strcat(buf, " called "); + (void) strcat(buf, NAME(mtmp)); + } + return(buf); +} + +char * +lmonnam(mtmp) register struct monst *mtmp; { + return(xmonnam(mtmp, 1)); +} + +char * +monnam(mtmp) register struct monst *mtmp; { + return(xmonnam(mtmp, 0)); +} + +char * +Monnam(mtmp) register struct monst *mtmp; { +register char *bp = monnam(mtmp); + if('a' <= *bp && *bp <= 'z') *bp += ('A' - 'a'); + return(bp); +} + +char * +amonnam(mtmp,adj) +register struct monst *mtmp; +register char *adj; +{ + register char *bp = monnam(mtmp); + static char buf[BUFSZ]; /* %% */ + + if(!strncmp(bp, "the ", 4)) bp += 4; + (void) sprintf(buf, "the %s %s", adj, bp); + return(buf); +} + +char * +Amonnam(mtmp, adj) +register struct monst *mtmp; +register char *adj; +{ + register char *bp = amonnam(mtmp,adj); + + *bp = 'T'; + return(bp); +} + +char * +Xmonnam(mtmp) register struct monst *mtmp; { +register char *bp = Monnam(mtmp); + if(!strncmp(bp, "The ", 4)) { + bp += 2; + *bp = 'A'; + } + return(bp); +} + +char * +visctrl(c) +char c; +{ +static char ccc[3]; + if(c < 040) { + ccc[0] = '^'; + ccc[1] = c + 0100; + ccc[2] = 0; + } else { + ccc[0] = c; + ccc[1] = 0; + } + return(ccc); +} -- cgit v1.2.3-56-ge451