summaryrefslogtreecommitdiff
path: root/games/hack/hack.do.c
diff options
context:
space:
mode:
Diffstat (limited to 'games/hack/hack.do.c')
-rw-r--r--games/hack/hack.do.c488
1 files changed, 0 insertions, 488 deletions
diff --git a/games/hack/hack.do.c b/games/hack/hack.do.c
deleted file mode 100644
index 1227eb923dd8..000000000000
--- a/games/hack/hack.do.c
+++ /dev/null
@@ -1,488 +0,0 @@
-/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
-/* hack.do.c - version 1.0.3 */
-
-/* Contains code for 'd', 'D' (drop), '>', '<' (up, down) and 't' (throw) */
-
-#include "hack.h"
-
-extern struct obj *splitobj(), *addinv();
-extern boolean hmon();
-extern boolean level_exists[];
-extern struct monst youmonst;
-extern char *Doname();
-extern char *nomovemsg;
-
-static int drop();
-
-dodrop() {
- return(drop(getobj("0$#", "drop")));
-}
-
-static int
-drop(obj) register struct obj *obj; {
- if(!obj) return(0);
- if(obj->olet == '$') { /* pseudo object */
- register long amount = OGOLD(obj);
-
- if(amount == 0)
- pline("You didn't drop any gold pieces.");
- else {
- mkgold(amount, u.ux, u.uy);
- pline("You dropped %ld gold piece%s.",
- amount, plur(amount));
- if(Invisible) newsym(u.ux, u.uy);
- }
- free((char *) obj);
- return(1);
- }
- if(obj->owornmask & (W_ARMOR | W_RING)){
- pline("You cannot drop something you are wearing.");
- return(0);
- }
- if(obj == uwep) {
- if(uwep->cursed) {
- pline("Your weapon is welded to your hand!");
- return(0);
- }
- setuwep((struct obj *) 0);
- }
- pline("You dropped %s.", doname(obj));
- dropx(obj);
- return(1);
-}
-
-/* Called in several places - should not produce texts */
-dropx(obj)
-register struct obj *obj;
-{
- freeinv(obj);
- dropy(obj);
-}
-
-dropy(obj)
-register struct obj *obj;
-{
- if(obj->otyp == CRYSKNIFE)
- obj->otyp = WORM_TOOTH;
- obj->ox = u.ux;
- obj->oy = u.uy;
- obj->nobj = fobj;
- fobj = obj;
- if(Invisible) newsym(u.ux,u.uy);
- subfrombill(obj);
- stackobj(obj);
-}
-
-/* drop several things */
-doddrop() {
- return(ggetobj("drop", drop, 0));
-}
-
-dodown()
-{
- if(u.ux != xdnstair || u.uy != ydnstair) {
- pline("You can't go down here.");
- return(0);
- }
- if(u.ustuck) {
- pline("You are being held, and cannot go down.");
- return(1);
- }
- if(Levitation) {
- pline("You're floating high above the stairs.");
- return(0);
- }
-
- goto_level(dlevel+1, TRUE);
- return(1);
-}
-
-doup()
-{
- if(u.ux != xupstair || u.uy != yupstair) {
- pline("You can't go up here.");
- return(0);
- }
- if(u.ustuck) {
- pline("You are being held, and cannot go up.");
- return(1);
- }
- if(!Levitation && inv_weight() + 5 > 0) {
- pline("Your load is too heavy to climb the stairs.");
- return(1);
- }
-
- goto_level(dlevel-1, TRUE);
- return(1);
-}
-
-goto_level(newlevel, at_stairs)
-register int newlevel;
-register boolean at_stairs;
-{
- register fd;
- register boolean up = (newlevel < dlevel);
-
- if(newlevel <= 0) done("escaped"); /* in fact < 0 is impossible */
- if(newlevel > MAXLEVEL) newlevel = MAXLEVEL; /* strange ... */
- if(newlevel == dlevel) return; /* this can happen */
-
- glo(dlevel);
- fd = creat(lock, FMASK);
- if(fd < 0) {
- /*
- * This is not quite impossible: e.g., we may have
- * exceeded our quota. If that is the case then we
- * cannot leave this level, and cannot save either.
- * Another possibility is that the directory was not
- * writable.
- */
- pline("A mysterious force prevents you from going %s.",
- up ? "up" : "down");
- return;
- }
-
- if(Punished) unplacebc();
- u.utrap = 0; /* needed in level_tele */
- u.ustuck = 0; /* idem */
- keepdogs();
- seeoff(1);
- if(u.uswallow) /* idem */
- u.uswldtim = u.uswallow = 0;
- flags.nscrinh = 1;
- u.ux = FAR; /* hack */
- (void) inshop(); /* probably was a trapdoor */
-
- savelev(fd,dlevel);
- (void) close(fd);
-
- dlevel = newlevel;
- if(maxdlevel < dlevel)
- maxdlevel = dlevel;
- glo(dlevel);
-
- if(!level_exists[dlevel])
- mklev();
- else {
- extern int hackpid;
-
- if((fd = open(lock,0)) < 0) {
- pline("Cannot open %s .", lock);
- pline("Probably someone removed it.");
- done("tricked");
- }
- getlev(fd, hackpid, dlevel);
- (void) close(fd);
- }
-
- if(at_stairs) {
- if(up) {
- u.ux = xdnstair;
- u.uy = ydnstair;
- if(!u.ux) { /* entering a maze from below? */
- u.ux = xupstair; /* this will confuse the player! */
- u.uy = yupstair;
- }
- if(Punished && !Levitation){
- pline("With great effort you climb the stairs.");
- placebc(1);
- }
- } else {
- u.ux = xupstair;
- u.uy = yupstair;
- if(inv_weight() + 5 > 0 || Punished){
- pline("You fall down the stairs."); /* %% */
- losehp(rnd(3), "fall");
- if(Punished) {
- if(uwep != uball && rn2(3)){
- pline("... and are hit by the iron ball.");
- losehp(rnd(20), "iron ball");
- }
- placebc(1);
- }
- selftouch("Falling, you");
- }
- }
- { register struct monst *mtmp = m_at(u.ux, u.uy);
- if(mtmp)
- mnexto(mtmp);
- }
- } else { /* trapdoor or level_tele */
- do {
- u.ux = rnd(COLNO-1);
- u.uy = rn2(ROWNO);
- } while(levl[u.ux][u.uy].typ != ROOM ||
- m_at(u.ux,u.uy));
- if(Punished){
- if(uwep != uball && !up /* %% */ && rn2(5)){
- pline("The iron ball falls on your head.");
- losehp(rnd(25), "iron ball");
- }
- placebc(1);
- }
- selftouch("Falling, you");
- }
- (void) inshop();
- initrack();
-
- losedogs();
- { register struct monst *mtmp;
- if(mtmp = m_at(u.ux, u.uy)) mnexto(mtmp); /* riv05!a3 */
- }
- flags.nscrinh = 0;
- setsee();
- seeobjs(); /* make old cadavers disappear - riv05!a3 */
- docrt();
- pickup(1);
- read_engr_at(u.ux,u.uy);
-}
-
-donull() {
- return(1); /* Do nothing, but let other things happen */
-}
-
-dopray() {
- nomovemsg = "You finished your prayer.";
- nomul(-3);
- return(1);
-}
-
-struct monst *bhit(), *boomhit();
-dothrow()
-{
- register struct obj *obj;
- register struct monst *mon;
- register tmp;
-
- obj = getobj("#)", "throw"); /* it is also possible to throw food */
- /* (or jewels, or iron balls ... ) */
- if(!obj || !getdir(1)) /* ask "in what direction?" */
- return(0);
- if(obj->owornmask & (W_ARMOR | W_RING)){
- pline("You can't throw something you are wearing.");
- return(0);
- }
-
- u_wipe_engr(2);
-
- if(obj == uwep){
- if(obj->cursed){
- pline("Your weapon is welded to your hand.");
- return(1);
- }
- if(obj->quan > 1)
- setuwep(splitobj(obj, 1));
- else
- setuwep((struct obj *) 0);
- }
- else if(obj->quan > 1)
- (void) splitobj(obj, 1);
- freeinv(obj);
- if(u.uswallow) {
- mon = u.ustuck;
- bhitpos.x = mon->mx;
- bhitpos.y = mon->my;
- } else if(u.dz) {
- if(u.dz < 0) {
- pline("%s hits the ceiling, then falls back on top of your head.",
- Doname(obj)); /* note: obj->quan == 1 */
- if(obj->olet == POTION_SYM)
- potionhit(&youmonst, obj);
- else {
- if(uarmh) pline("Fortunately, you are wearing a helmet!");
- losehp(uarmh ? 1 : rnd((int)(obj->owt)), "falling object");
- dropy(obj);
- }
- } else {
- pline("%s hits the floor.", Doname(obj));
- if(obj->otyp == EXPENSIVE_CAMERA) {
- pline("It is shattered in a thousand pieces!");
- obfree(obj, Null(obj));
- } else if(obj->otyp == EGG) {
- pline("\"Splash!\"");
- obfree(obj, Null(obj));
- } else if(obj->olet == POTION_SYM) {
- pline("The flask breaks, and you smell a peculiar odor ...");
- potionbreathe(obj);
- obfree(obj, Null(obj));
- } else {
- dropy(obj);
- }
- }
- return(1);
- } else if(obj->otyp == BOOMERANG) {
- mon = boomhit(u.dx, u.dy);
- if(mon == &youmonst) { /* the thing was caught */
- (void) addinv(obj);
- return(1);
- }
- } else {
- if(obj->otyp == PICK_AXE && shkcatch(obj))
- return(1);
-
- mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 :
- (!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1,
- obj->olet,
- (int (*)()) 0, (int (*)()) 0, obj);
- }
- if(mon) {
- /* awake monster if sleeping */
- wakeup(mon);
-
- if(obj->olet == WEAPON_SYM) {
- tmp = -1+u.ulevel+mon->data->ac+abon();
- if(obj->otyp < ROCK) {
- if(!uwep ||
- uwep->otyp != obj->otyp+(BOW-ARROW))
- tmp -= 4;
- else {
- tmp += uwep->spe;
- }
- } else
- if(obj->otyp == BOOMERANG) tmp += 4;
- tmp += obj->spe;
- if(u.uswallow || tmp >= rnd(20)) {
- if(hmon(mon,obj,1) == TRUE){
- /* mon still alive */
-#ifndef NOWORM
- cutworm(mon,bhitpos.x,bhitpos.y,obj->otyp);
-#endif NOWORM
- } else mon = 0;
- /* weapons thrown disappear sometimes */
- if(obj->otyp < BOOMERANG && rn2(3)) {
- /* check bill; free */
- obfree(obj, (struct obj *) 0);
- return(1);
- }
- } else miss(objects[obj->otyp].oc_name, mon);
- } else if(obj->otyp == HEAVY_IRON_BALL) {
- tmp = -1+u.ulevel+mon->data->ac+abon();
- if(!Punished || obj != uball) tmp += 2;
- if(u.utrap) tmp -= 2;
- if(u.uswallow || tmp >= rnd(20)) {
- if(hmon(mon,obj,1) == FALSE)
- mon = 0; /* he died */
- } else miss("iron ball", mon);
- } else if(obj->olet == POTION_SYM && u.ulevel > rn2(15)) {
- potionhit(mon, obj);
- return(1);
- } else {
- if(cansee(bhitpos.x,bhitpos.y))
- pline("You miss %s.",monnam(mon));
- else pline("You miss it.");
- if(obj->olet == FOOD_SYM && mon->data->mlet == 'd')
- if(tamedog(mon,obj)) return(1);
- if(obj->olet == GEM_SYM && mon->data->mlet == 'u' &&
- !mon->mtame){
- if(obj->dknown && objects[obj->otyp].oc_name_known){
- if(objects[obj->otyp].g_val > 0){
- u.uluck += 5;
- goto valuable;
- } else {
- pline("%s is not interested in your junk.",
- Monnam(mon));
- }
- } else { /* value unknown to @ */
- u.uluck++;
- valuable:
- if(u.uluck > LUCKMAX) /* dan@ut-ngp */
- u.uluck = LUCKMAX;
- pline("%s graciously accepts your gift.",
- Monnam(mon));
- mpickobj(mon, obj);
- rloc(mon);
- return(1);
- }
- }
- }
- }
- /* the code following might become part of dropy() */
- if(obj->otyp == CRYSKNIFE)
- obj->otyp = WORM_TOOTH;
- obj->ox = bhitpos.x;
- obj->oy = bhitpos.y;
- obj->nobj = fobj;
- fobj = obj;
- /* prevent him from throwing articles to the exit and escaping */
- /* subfrombill(obj); */
- stackobj(obj);
- if(Punished && obj == uball &&
- (bhitpos.x != u.ux || bhitpos.y != u.uy)){
- freeobj(uchain);
- unpobj(uchain);
- if(u.utrap){
- if(u.utraptype == TT_PIT)
- pline("The ball pulls you out of the pit!");
- else {
- register long side =
- rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
- pline("The ball pulls you out of the bear trap.");
- pline("Your %s leg is severely damaged.",
- (side == LEFT_SIDE) ? "left" : "right");
- set_wounded_legs(side, 500+rn2(1000));
- losehp(2, "thrown ball");
- }
- u.utrap = 0;
- }
- unsee();
- uchain->nobj = fobj;
- fobj = uchain;
- u.ux = uchain->ox = bhitpos.x - u.dx;
- u.uy = uchain->oy = bhitpos.y - u.dy;
- setsee();
- (void) inshop();
- }
- if(cansee(bhitpos.x, bhitpos.y)) prl(bhitpos.x,bhitpos.y);
- return(1);
-}
-
-/* split obj so that it gets size num */
-/* remainder is put in the object structure delivered by this call */
-struct obj *
-splitobj(obj, num) register struct obj *obj; register int num; {
-register struct obj *otmp;
- otmp = newobj(0);
- *otmp = *obj; /* copies whole structure */
- otmp->o_id = flags.ident++;
- otmp->onamelth = 0;
- obj->quan = num;
- obj->owt = weight(obj);
- otmp->quan -= num;
- otmp->owt = weight(otmp); /* -= obj->owt ? */
- obj->nobj = otmp;
- if(obj->unpaid) splitbill(obj,otmp);
- return(otmp);
-}
-
-more_experienced(exp,rexp)
-register int exp, rexp;
-{
- extern char pl_character[];
-
- u.uexp += exp;
- u.urexp += 4*exp + rexp;
- if(exp) flags.botl = 1;
- if(u.urexp >= ((pl_character[0] == 'W') ? 1000 : 2000))
- flags.beginner = 0;
-}
-
-set_wounded_legs(side, timex)
-register long side;
-register int timex;
-{
- if(!Wounded_legs || (Wounded_legs & TIMEOUT))
- Wounded_legs |= side + timex;
- else
- Wounded_legs |= side;
-}
-
-heal_legs()
-{
- if(Wounded_legs) {
- if((Wounded_legs & BOTH_SIDES) == BOTH_SIDES)
- pline("Your legs feel somewhat better.");
- else
- pline("Your leg feels somewhat better.");
- Wounded_legs = 0;
- }
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-08-06 22:41:51 +0000