/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.dog.c - version 1.0.3 */
#include "hack.mfndpos.h"
extern struct monst
*makemon();
{ "little dog", 'd',2,18,6,1,6,sizeof(struct edog
) };
{ "dog", 'd',4,16,5,1,6,sizeof(struct edog
) };
{ "large dog", 'd',6,15,4,2,4,sizeof(struct edog
) };
register struct monst
*mtmp
= makemon(&li_dog
,u
.ux
,u
.uy
);
if(!mtmp
) return; /* dogs were genocided */
initedog(mtmp
) register struct monst
*mtmp
; {
mtmp
->mtame
= mtmp
->mpeaceful
= 1;
EDOG(mtmp
)->hungrytime
= 1000 + moves
;
EDOG(mtmp
)->droptime
= 0;
EDOG(mtmp
)->dropdist
= 10000;
EDOG(mtmp
)->whistletime
= 0;
/* attach the monsters that went down (or up) together with @ */
struct monst
*mydogs
= 0;
struct monst
*fallen_down
= 0; /* monsters that fell through a trapdoor */
/* they will appear on the next level @ goes to, even if he goes up! */
register struct monst
*mtmp
;
while(mtmp
= fallen_down
){
fallen_down
= mtmp
->nmon
;
register struct monst
*mtmp
;
for(mtmp
= fmon
; mtmp
; mtmp
= mtmp
->nmon
)
if(dist(mtmp
->mx
,mtmp
->my
) < 3 && follower(mtmp
)
&& !mtmp
->msleep
&& !mtmp
->mfroz
) {
keepdogs(); /* we destroyed the link, so use recursion */
return; /* (admittedly somewhat primitive) */
fall_down(mtmp
) register struct monst
*mtmp
; {
mtmp
->nmon
= fallen_down
;
/* return quality of food; the lower the better */
dogfood(obj
) register struct obj
*obj
; {
(obj
->otyp
== TRIPE_RATION
) ? DOGFOOD
:
(obj
->otyp
< CARROT
) ? ACCFOOD
:
(obj
->otyp
< CORPSE
) ? MANFOOD
:
(poisonous(obj
) || obj
->age
+ 50 <= moves
||
obj
->otyp
== DEAD_COCKATRICE
)
if(!obj
->cursed
) return(APPORT
);
/* fall into next case */
/* return 0 (no move), 1 (move) or 2 (dead) */
dog_move(mtmp
, after
) register struct monst
*mtmp
; {
register int nx
,ny
,omx
,omy
,appr
,nearer
,j
;
register struct monst
*mtmp2
;
register struct permonst
*mdat
= mtmp
->data
;
register struct edog
*edog
= EDOG(mtmp
);
xchar gx
,gy
,gtyp
,otyp
; /* current goal */
#define GDIST(x,y) ((x-gx)*(x-gx) + (y-gy)*(y-gy))
#define DDIST(x,y) ((x-omx)*(x-omx) + (y-omy)*(y-omy))
if(moves
<= edog
->eattime
) return(0); /* dog is still eating */
whappr
= (moves
- EDOG(mtmp
)->whistletime
< 5);
if(moves
> edog
->hungrytime
+ 500 && !mtmp
->mconf
){
if(mtmp
->mhp
> mtmp
->mhpmax
)
mtmp
->mhp
= mtmp
->mhpmax
;
pline("%s is confused from hunger.", Monnam(mtmp
));
else pline("You feel worried about %s.", monnam(mtmp
));
if(moves
> edog
->hungrytime
+ 750 || mtmp
->mhp
< 1){
pline("%s dies from hunger.", Monnam(mtmp
));
pline("You have a sad feeling for a moment, then it passes.");
dogroom
= inroom(omx
,omy
);
uroom
= inroom(u
.ux
,u
.uy
);
/* maybe we tamed him while being swallowed --jgm */
/* if we are carrying sth then we drop it (perhaps near @) */
/* Note: if apport == 1 then our behaviour is independent of udist */
if(!rn2(udist
) || !rn2((int) edog
->apport
))
if(rn2(10) < edog
->apport
){
relobj(mtmp
, (int) mtmp
->minvis
);
if(edog
->apport
> 1) edog
->apport
--;
edog
->dropdist
= udist
; /* hpscdi!jon */
if(obj
= o_at(omx
,omy
)) if(!index("0_", obj
->olet
)){
if((otyp
= dogfood(obj
)) <= CADAVER
){
if(obj
->owt
< 10*mtmp
->data
->mlevel
)
if(rn2(20) < edog
->apport
+3)
if(rn2(udist
) || !rn2((int) edog
->apport
)){
/* if(levl[omx][omy].scrsym == obj->olet)
/* first we look for food */
gtyp
= UNDEF
; /* no goal as yet */
gx
= gy
= 0; /* suppress 'used before set' message */
for(obj
= fobj
; obj
; obj
= obj
->nobj
) {
if(otyp
> gtyp
|| otyp
== UNDEF
) continue;
if(inroom(obj
->ox
,obj
->oy
) != dogroom
) continue;
(dogroom
>= 0 || DDIST(obj
->ox
,obj
->oy
) < 10)) {
if(otyp
< gtyp
|| (otyp
== gtyp
&&
DDIST(obj
->ox
,obj
->oy
) < DDIST(gx
,gy
))){
if(gtyp
== UNDEF
&& dogroom
>= 0 &&
!mtmp
->minvent
&& edog
->apport
> rn2(8)){
(gtyp
!= DOGFOOD
&& gtyp
!= APPORT
&& moves
< edog
->hungrytime
)){
if(dogroom
< 0 || dogroom
== uroom
){
int tmp
= rooms
[dogroom
].fdoor
;
cnt
= rooms
[dogroom
].doorct
;
gx
= gy
= FAR
; /* random, far away */
dist(doors
[tmp
].x
, doors
[tmp
].y
)){
/* here gx == FAR e.g. when dog is in a vault */
if(gx
== FAR
|| (gx
== omx
&& gy
== omy
)){
appr
= (udist
>= 9) ? 1 : (mtmp
->mflee
) ? -1 : 0;
if(after
&& udist
<= 4 && gx
== u
.ux
&& gy
== u
.uy
)
if(!IS_ROOM(levl
[u
.ux
][u
.uy
].typ
) || !rn2(4) ||
(mtmp
->minvent
&& rn2((int) edog
->apport
)))
/* if you have dog food he'll follow you more closely */
if(obj
->otyp
== TRIPE_RATION
){
} else appr
= 1; /* gtyp != UNDEF */
if(mtmp
->mconf
) appr
= 0;
if(gx
== u
.ux
&& gy
== u
.uy
&& (dogroom
!= uroom
|| dogroom
< 0)){
extern coord
*gettrack();
cnt
= mfndpos(mtmp
,poss
,info
,ALLOW_M
| ALLOW_TRAPS
);
if(mtmp2
->data
->mlevel
>= mdat
->mlevel
+2 ||
mtmp2
->data
->mlet
== 'c')
if(after
) return(0); /* hit only once each move */
if(hitmm(mtmp
, mtmp2
) == 1 && rn2(4) &&
mtmp2
->mlstmv
!= moves
&&
hitmm(mtmp2
,mtmp
) == 2) return(2);
/* but perhaps we have to pass a trap in order to follow @ */
if((info
[i
] & ALLOW_TRAPS
) && (trap
= t_at(nx
,ny
))){
if(!trap
->tseen
&& rn2(40)) continue;
/* dog eschewes cursed objects */
if(obj
->ox
!= nx
|| obj
->oy
!= ny
)
if(obj
->cursed
) goto nxti
;
if(obj
->olet
== FOOD_SYM
&&
(otyp
= dogfood(obj
)) < MANFOOD
&&
(otyp
< ACCFOOD
|| edog
->hungrytime
<= moves
)){
/* Note: our dog likes the food so much that he
might eat it even when it conceals a cursed object */
moves
+ obj
->quan
* objects
[obj
->otyp
].oc_delay
;
if(edog
->hungrytime
< moves
)
edog
->hungrytime
= moves
;
5*obj
->quan
* objects
[obj
->otyp
].nutrition
;
pline("%s ate %s.", Monnam(mtmp
), doname(obj
));
/* perhaps this was a reward */
edog
->apport
+= 200/(edog
->dropdist
+moves
-edog
->droptime
);
for(j
=0; j
<MTSZ
&& j
<cnt
-1; j
++)
if(nx
== mtmp
->mtrack
[j
].x
&& ny
== mtmp
->mtrack
[j
].y
)
if(rn2(4*(cnt
-j
))) goto nxti
;
/* Some stupid C compilers cannot compute the whole expression at once. */
nearer
-= GDIST(nix
,niy
);
if((nearer
== 0 && !rn2(++chcnt
)) || nearer
<0 ||
(nearer
> 0 && !whappr
&&
((omx
== nix
&& omy
== niy
&& !rn2(3))
if(nearer
< 0) chcnt
= 0;
if(nix
!= omx
|| niy
!= omy
){
(void) hitu(mtmp
, d(mdat
->damn
, mdat
->damd
)+1);
for(j
=MTSZ
-1; j
>0; j
--) mtmp
->mtrack
[j
] = mtmp
->mtrack
[j
-1];
if(mintrap(mtmp
) == 2) /* he died */
/* return roomnumber or -1 */
register struct mkroom
*croom
= &rooms
[0];
if(croom
->hx
>= x
-1 && croom
->lx
<= x
+1 &&
croom
->hy
>= y
-1 && croom
->ly
<= y
+1)
return(-1); /* not in room or on door */
register struct monst
*mtmp
;
register struct obj
*obj
;
register struct monst
*mtmp2
;
if(flags
.moonphase
== FULL_MOON
&& night() && rn2(6))
/* If we cannot tame him, at least he's no longer afraid. */
if(mtmp
->mtame
|| mtmp
->mfroz
||
mtmp
->isshk
|| mtmp
->isgd
|| index(" &@12", mtmp
->data
->mlet
))
return(0); /* no tame long worms? */
if(dogfood(obj
) >= MANFOOD
) return(0);
if(cansee(mtmp
->mx
,mtmp
->my
)){
pline("%s devours the %s.", Monnam(mtmp
),
objects
[obj
->otyp
].oc_name
);
obfree(obj
, (struct obj
*) 0);
mtmp2
= newmonst(sizeof(struct edog
) + mtmp
->mnamelth
);
mtmp2
->mxlth
= sizeof(struct edog
);
if(mtmp
->mnamelth
) (void) strcpy(NAME(mtmp2
), NAME(mtmp
));