home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume5 / omega2 / part01 / oinv.c < prev    next >
C/C++ Source or Header  |  1988-07-22  |  31KB  |  1,338 lines
  1. /* omega copyright (C) by Laurence Raphael Brothers, 1987,1988 */
  2. /* oinv.c */
  3. /* functions having to do with player item inventory */
  4.  
  5. #include "oglob.h"
  6.  
  7.  
  8. /* drops money, heh heh */
  9. void drop_money()
  10. {
  11.   pob money;
  12.  
  13.   money = detach_money();
  14.   if (money != NULL) {
  15.     if (Current_Environment == E_CITY) {
  16.       print1("As soon as the money leaves your hand,");
  17.       print2("a horde of scrofulous beggars snatch it up and are gone!");
  18.     }
  19.     else drop_at(Player.x,Player.y,money);
  20.   }
  21.   else setgamestatus(SKIP_MONSTERS);
  22. }
  23.  
  24.  
  25.  
  26. /* returns some money from player back into "money" item.
  27.    for giving and dropping money */
  28. pob detach_money()
  29. {
  30.   int c;
  31.   pob cash=NULL;
  32.   c = get_money(Player.cash);
  33.   if (c != ABORT) {
  34.     Player.cash -= c;
  35.     cash = ((pob) malloc(sizeof(objtype)));
  36.     make_cash(cash,difficulty());
  37.     cash->basevalue = c;
  38.   }
  39.   return(cash);
  40. }
  41.  
  42.  
  43. /* gets a legal amount of money or ABORT */
  44. int get_money(limit)
  45. int limit;
  46. {
  47.   int c;
  48.   print1("How much? ");
  49.   c = parsenum();
  50.   if (c > limit) {
  51.     print3("Forget it, buddy.");
  52.     return(ABORT);
  53.   }
  54.   else return(c);
  55. }
  56.  
  57.  
  58.  
  59. /* pick up from some location x,y */
  60. /* Lift entire itemlist off ground, pass it to inventory control, which
  61.    may drop things back onto the now null ground */
  62. void pickup_at(x,y)
  63. int x,y;
  64. {
  65.   int quit = FALSE;
  66.   char response;
  67.   pol ol = Level->site[x][y].things;
  68.   pol temp;
  69.  
  70.   resetgamestatus(FAST_MOVE);
  71.  
  72.   Level->site[x][y].things = NULL;
  73.  
  74.   while (ol != NULL) {
  75.     if (! quit) {
  76.       clearmsg1();
  77.       print1("Pick up: ");
  78.       nprint1(itemid(ol->thing));
  79.       nprint1(" [ynq]: ");
  80.       response = ynq1();
  81.       quit = (response == 'q');
  82.     }
  83.     if (response == 'y') gain_item(ol->thing);
  84.     else drop_at(Player.x,Player.y,ol->thing);
  85.     temp = ol;
  86.     ol = ol->next;
  87.     temp->thing = NULL;
  88.     temp->next = NULL;
  89.     free((char *) temp);
  90.   }
  91. }
  92.  
  93.  
  94. /* put all of o on objlist at x,y on Level->depth */
  95. /* Not necessarily dropped by character; just dropped... */
  96. void drop_at(x,y,o)
  97. int x,y;
  98. pob o;
  99. {
  100.   pol tmp;
  101.   pob cpy; 
  102.   
  103.   if (Current_Environment != E_COUNTRYSIDE) 
  104.     if ((Level->site[x][y].locchar != ' ') &&
  105.     (Level->site[x][y].locchar != '0')) {
  106.       cpy = ((pob) malloc(sizeof(objtype)));
  107.       tmp = ((pol) malloc(sizeof(oltype)));
  108.       *cpy = *o;
  109.       cpy->used = FALSE;
  110.       tmp->thing = cpy;
  111.       tmp->next = Level->site[x][y].things;
  112.       Level->site[x][y].things = tmp;
  113.     }
  114.   else if (Level->site[x][y].p_locf == L_VOID_STATION)
  115.     setgamestatus(PREPARED_VOID);
  116. }  
  117.  
  118. /* put n of o on objlist at x,y on Level->depth */
  119. void p_drop_at(x,y,n,o)
  120. int x,y;
  121. int n;
  122. pob o;
  123. {
  124.   pol tmp; 
  125.   if (Current_Environment != E_COUNTRYSIDE) 
  126.     if ((Level->site[x][y].locchar != ' ') &&
  127.     (Level->site[x][y].locchar != '0')) {
  128.       tmp = ((pol) malloc(sizeof(oltype)));
  129.       tmp->thing = ((pob) malloc(sizeof(objtype)));
  130.       *(tmp->thing) = *o;
  131.       tmp->thing->used = FALSE;
  132.       tmp->thing->number = n;
  133.       print2("Dropped ");
  134.       nprint2(itemid(tmp->thing));
  135.       morewait();
  136.       tmp->next = Level->site[x][y].things;
  137.       Level->site[x][y].things = tmp;
  138.     }
  139.     else if (Level->site[x][y].p_locf == L_VOID_STATION)
  140.       setgamestatus(PREPARED_VOID);
  141. }  
  142.  
  143.  
  144. /* returns a string for identified items */
  145. char *itemid(obj)
  146. pob obj;
  147. {
  148.   char tstr[80];
  149.   if (obj->objchar==CASH){
  150.     strcpy(Str4,obj->truename);
  151.     return(Str4);
  152.   }
  153.   else {
  154.     if (Objects[obj->id].known > obj->known)
  155.       obj->known = Objects[obj->id].known;
  156.     
  157.     setnumstr(obj,tstr);
  158.     strcpy(Str4,tstr);
  159.     if (obj->known == 0)
  160.       strcat(Str4,obj->objstr);
  161.     else if (obj->known == 1)
  162.       strcat(Str4,obj->truename);
  163.     else {
  164.       if (obj->blessing < 0) {
  165.     strcat(Str4, "cursed ");
  166.     strcat(Str4, obj->cursestr);
  167.       }
  168.       else if (obj->blessing > 0) {
  169.     strcat(Str4, "blessed ");
  170.     strcat(Str4, obj->truename);
  171.       }
  172.       else strcat(Str4,obj->truename);
  173.       if (obj->number > 1) strcat(Str4,"s");
  174.       switch (obj->objchar) {
  175.       case STICK: 
  176.         setchargestr(obj,tstr);
  177.     strcat(Str4,tstr);
  178.     break;
  179.       case MISSILEWEAPON:
  180.       case ARMOR:
  181.       case RING:
  182.       case SHIELD:
  183.       case WEAPON: 
  184.     setplustr(obj,tstr);
  185.     strcat(Str4, tstr);
  186.     break;
  187.       default: strcat(Str4,""); break;
  188.       }
  189.     }
  190.     return(Str4);
  191.   }
  192. }
  193.  
  194. char *cashstr()
  195. {
  196.   if (difficulty() < 3) return("copper pieces");
  197.   else if (difficulty() < 5) return("silver pieces");
  198.   else if (difficulty() < 7) return("gold pieces");
  199.   else if (difficulty() < 8) return("semiprecious gems");
  200.   else if (difficulty() < 9) return("mithril pieces");
  201.   else if (difficulty() < 10) return("precious gems"); 
  202.   else return("orichalc pieces");
  203. }
  204.  
  205. /* return an object's plus as a string */
  206. void setplustr(obj,pstr)
  207. pob obj;
  208. char *pstr;
  209. {
  210.   pstr[0] = ' ';
  211.   pstr[1] = (obj->plus < 0 ? '-' : '+' );
  212.   if (abs(obj->plus) < 10) {
  213.     pstr[2] = '0' + abs(obj->plus);
  214.     pstr[3] = 0;
  215.   }
  216.   else {
  217.     pstr[2] = '0' + abs(obj->plus / 10);
  218.     pstr[3] = '0' + abs(obj->plus % 10);
  219.     pstr[4] = 0;
  220.   }
  221. }
  222.  
  223. /* return an object's number as a string */
  224. void setnumstr(obj,nstr)
  225. pob obj;
  226. char *nstr;
  227. {
  228.   if (obj->number < 2)
  229.     nstr[0] = 0;
  230.   else if (obj->number < 10) {
  231.     nstr[0] = '0' + obj->number;
  232.     nstr[1] = 'x';
  233.     nstr[2] = ' ';
  234.     nstr[3] = 0;
  235.   }
  236.   else if (obj->number < 41) {
  237.     nstr[0] = '0' + ((int)(obj->number / 10));
  238.     nstr[1] = '0' + (obj->number % 10);
  239.     nstr[2] = 'x';
  240.     nstr[3] = ' ';
  241.     nstr[4] = 0;
  242.   }
  243.   else strcpy(nstr,"lots of ");
  244. }
  245.  
  246.  
  247.  
  248.  
  249. /* return object with charges */
  250. void setchargestr(obj,cstr)
  251. pob obj;
  252. char *cstr;
  253. {
  254.   cstr[0] = ' ';
  255.   cstr[1] = '[';
  256.   if (obj->charge < 0) {
  257.     cstr[2]='d';
  258.     cstr[3]='e';
  259.     cstr[4]='a';
  260.     cstr[5]='d';
  261.     cstr[6]=']';
  262.     cstr[7]=0;
  263.   }
  264.   else if (obj->charge < 10) {
  265.     cstr[2] = '0' + obj->charge;
  266.     cstr[3] = ']';
  267.     cstr[4] = 0;
  268.   }
  269.   else {
  270.     cstr[2] = '0' + ((int)(obj->charge / 10));
  271.     cstr[3] = '0' + (obj->charge % 10);
  272.     cstr[4] = ']';
  273.     cstr[5] = 0;
  274.   }
  275. }
  276.  
  277.  
  278. void give_money(m)
  279. struct monster *m;
  280. {
  281.   pob cash;
  282.  
  283.   cash = detach_money();
  284.   if (cash == NULL)
  285.     setgamestatus(SKIP_MONSTERS);
  286.   else givemonster(m,cash);
  287. }
  288.     
  289.     
  290.  
  291. void givemonster(m,o)
  292. struct monster *m;
  293. struct object *o;
  294. {
  295.   /* special case -- give gem to LawBringer */
  296.   if ((m->id == ML10+2) && (o->id == ARTIFACTID+21)) {
  297.     clearmsg();
  298.     print1("The LawBringer accepts the gem reverently.");
  299.     print2("He raises it above his head, where it bursts into lambent flame!");
  300.     morewait();
  301.     print1("You are bathed in a shimmering golden light.");
  302.     print2("You feel embedded in an infinite matrix of ordered energy.");
  303.     morewait();
  304.     if (Imprisonment > 0)
  305.       Imprisonment = 0;
  306.     if (Player.rank[ORDER] == -1) {
  307.       print2("You have been forgiven. You feel like a Paladin....");
  308.       Player.rank[ORDER] = 1;
  309.     }
  310.     Player.alignment += 200;
  311.     Player.pow = Player.maxpow = Player.pow * 2;
  312.     gain_experience(2000);
  313.     setgamestatus(GAVE_STARGEM);
  314.   }
  315.   else {
  316.     if (m->uniqueness == COMMON) {
  317.       strcpy(Str3,"The ");
  318.       strcat(Str3,m->monstring);
  319.     }
  320.     else strcpy(Str3,m->monstring);
  321.     
  322.     if (m_statusp(m,GREEDY) || m_statusp(m,NEEDY)) {
  323.       m_pickup(m,o);
  324.       strcat(Str3," takes your gift");
  325.       print1(Str3);
  326.       Player.alignment++;
  327.       if (m_statusp(m,GREEDY) && (true_item_value(o) < m->level*100))
  328.       nprint1("...but does not appear satisfied.");
  329.       else if (m_statusp(m,NEEDY) && 
  330.            (true_item_value(o) < Level->depth*Level->depth))
  331.     nprint1("...and looks chasteningly at you.");
  332.       else {
  333.     nprint1("...and seems happy with it.");
  334.     m_status_reset(m,HOSTILE);
  335.     m_status_reset(m,GREEDY);
  336.     m_status_reset(m,NEEDY);
  337.       }
  338.     }
  339.     else if (m_statusp(m,HUNGRY)) {
  340.       
  341.       if (((m->id == HORSE) && (o->id == FOODID+15)) || /* grain */
  342.       ((m->id != HORSE) &&
  343.        ((o->usef == I_FOOD) || (o->usef == I_POISON_FOOD)))) {
  344.     strcat(Str3," wolfs down your food ... ");
  345.     print1(Str3);
  346.     m_status_reset(m,HUNGRY);
  347.     m_status_reset(m,HOSTILE);
  348.     if  (o->usef == I_POISON_FOOD) {
  349.       Player.alignment -= 2;
  350.       nprint1("...and chokes on the poisoned ration!");
  351.       morewait();
  352.       m_status_set(m,HOSTILE);
  353.       m_damage(m,100,POISON);
  354.     }
  355.     else nprint1("...and now seems satiated.");
  356.     morewait();
  357.     free((char *)o);
  358.       }
  359.       else {
  360.     strcat(Str3," spurns your offering and leaves it on the ground.");
  361.     print1(Str3);
  362.     drop_at(m->x,m->y,o);
  363.       }
  364.     }
  365.     else {
  366.       strcat(Str3," doesn't care for your offering and drops it.");
  367.       print1(Str3);
  368.       drop_at(m->x,m->y,o);
  369.     }
  370.   }
  371. }
  372.  
  373.  
  374.  
  375.  
  376. /* will clear all, not just one of an object. */
  377. void conform_lost_object(obj)
  378. pob obj;
  379. {
  380.   if (obj != NULL) conform_lost_objects(obj->number,obj);
  381. }
  382.  
  383.  
  384.  
  385. /* removes n of object from inventory; frees object if appropriate. */
  386.  
  387. void dispose_lost_objects(n,obj)
  388. int n;
  389. pob obj;
  390. {
  391.   int i,conformed=FALSE,subtracted=FALSE,freetrue,freecurse;
  392.   if (obj != NULL) for(i=0;i<MAXITEMS;i++) 
  393.     if (Player.possessions[i] == obj) {
  394.       if (! subtracted) {
  395.     obj->number -= n;
  396.     subtracted = TRUE;
  397.       }
  398.       if (obj->number < 1) {
  399.     if (!conformed) {
  400.       conform_unused_object(obj);
  401.       conformed = TRUE;
  402.     }
  403.     Player.possessions[i] = NULL;
  404.       }
  405.     }
  406.   if (obj->number < 1) {
  407.     freetrue=(obj->objstr != obj->truename);
  408.     freecurse=((obj->objstr != obj->cursestr)&&
  409.            (obj->cursestr != obj->truename));
  410.     free(obj->objstr);
  411.     if (freetrue) free(obj->truename);
  412.     if (freecurse) free(obj->cursestr);
  413.     free((char *) obj);
  414.   }
  415. }
  416.  
  417.  
  418.  
  419.  
  420. /* removes n of object from inventory without freeing object.
  421.    Removes all instances of pointer (might be 2 handed weapon, etc) */
  422. void conform_lost_objects(n,obj)
  423. int n;
  424. pob obj;
  425. {
  426.   int i,conformed=FALSE,subtracted=FALSE;
  427.   if (obj != NULL) for(i=0;i<MAXITEMS;i++) 
  428.     if (Player.possessions[i] == obj) {
  429.       if (! subtracted) {
  430.     obj->number -= n;
  431.     subtracted = TRUE;
  432.       }
  433.       if (obj->number < 1) {
  434.     if (!conformed) {
  435.       conform_unused_object(obj);
  436.       conformed = TRUE;
  437.     }
  438.     Player.possessions[i] = NULL;
  439.       }
  440.     }
  441. }
  442.  
  443.  
  444. /* clears unused possession */
  445. void conform_unused_object(obj)
  446. pob obj;
  447. {
  448.   if (obj->used) {
  449.     obj->used = FALSE;
  450.     item_use(obj);
  451.   }
  452.   calc_melee();
  453. }
  454.  
  455.  
  456. /* select an item from inventory */
  457. /* if itype is NULL, any kind of item is acceptable.
  458.    if itype is CASHVALUE, any kind of item or '$' (cash) is acceptable.
  459.    if itype is FOOD, CORPSE or FOOD is acceptable, but only FOOD is
  460. listed in the possibilities.
  461.    if itype is any other object type (eg SCROLL, POTION, etc.), only
  462. that type of item is acceptable or is listed */
  463.  
  464. int getitem(itype)
  465. char itype;
  466. {
  467.   char invstr[64];
  468.   char index;
  469.   int i,k=0,ok=FALSE,drewmenu=FALSE,found=FALSE;
  470.  
  471.   found = ((itype == NULL) || ((itype == CASHVALUE) && (Player.cash > 0)));
  472.   invstr[0]=0;
  473.   for(i=1;i<MAXITEMS;i++)
  474.     if (Player.possessions[i] != NULL)
  475.       if ((itype == NULL) ||
  476.       (itype == CASHVALUE) ||
  477.       (Player.possessions[i]->objchar == itype) ||
  478.       ((itype == FOOD) && (Player.possessions[i]->objchar == CORPSE))) {
  479.        found = TRUE;
  480.        invstr[k++] = 'a'+i-1;
  481.        invstr[k] = 0;
  482.      }
  483.   if ((itype == CASHVALUE) && found) {
  484.     invstr[k++] = '$';
  485.     invstr[k] = 0;
  486.   }
  487.   if (! found) {
  488.     print3("Nothing appropriate.");
  489.     return(ABORT);
  490.   }
  491.   else {
  492.     print2("Select an item [");
  493.     nprint2(invstr);
  494.     nprint2(",?] ");
  495.     while (! ok) {
  496.       index = mcigetc();
  497.       if (index == '?') {
  498.     drewmenu = TRUE;
  499.     menuclear();
  500.     for (i=1;i<MAXITEMS;i++)
  501.       if (Player.possessions[i] != NULL)
  502.         if ((itype == NULL) || 
  503.         (itype == CASHVALUE) ||
  504.         (Player.possessions[i]->objchar == itype) ||
  505.         ((itype == FOOD) && 
  506.          (Player.possessions[i]->objchar == CORPSE)))
  507.           display_inventory_slot(i,FALSE);
  508.       }
  509.       else if (index == ESCAPE) ok = TRUE;
  510.       else if (index == CASH) {
  511.     if (itype == CASHVALUE) ok = TRUE;
  512.     else {
  513.       print3("You cannot select cash now.");
  514.       ok = FALSE;
  515.     }
  516.       }
  517.       else if (badobject(index) || (! strmem(index,invstr)))
  518.     print3("Nope! Try again [? for inventory, ESCAPE to quit]:");
  519.       else ok = TRUE;
  520.     }
  521.     if (drewmenu) xredraw();
  522.     if (index == ESCAPE) return(ABORT);
  523.     else if (index == CASH) return(CASHVALUE);
  524.     else return(index+1-'a');
  525.   }
  526. }
  527.  
  528.  
  529. /* true if the numerical index based on 'a' == 1 turns out to be either
  530. out of the range of the possessions array or a null item */
  531. int badobject(slotchar)
  532. char slotchar;
  533. {
  534.   int slot = slotchar + 1 - 'a';
  535.   if ((slot<1) || (slot >= MAXITEMS)) return(TRUE);
  536.   else return(Player.possessions[slot] == NULL);
  537. }
  538.  
  539.  
  540. /* this takes the numerical index directly for the same effect as badobject*/
  541. int baditem(slotnum)
  542. int slotnum;
  543. {
  544.   if ((slotnum<1) || (slotnum >= MAXITEMS)) return(TRUE);
  545.   else return(Player.possessions[slotnum] == NULL);
  546. }
  547.     
  548.  
  549.  
  550. /* formerly add_item_to_pack */
  551. void gain_item(o)
  552. struct object *o;
  553. {
  554.   if (o->objchar == CASH) {
  555.     print2("You gained some cash.");
  556.     Player.cash += o->basevalue;
  557.     dataprint();
  558.   }
  559.   else if (optionp(PACKADD)) {
  560.     if (! get_to_pack(o)) {
  561.       Player.possessions[O_UP_IN_AIR] = o;
  562.       top_inventory_control();
  563.     }
  564.   }
  565.   else {
  566.     Player.possessions[O_UP_IN_AIR] = o;
  567.     top_inventory_control();
  568.   }
  569. }
  570.  
  571.  
  572. /* Adds item to pack list */
  573. void add_to_pack(o)
  574. pob o;
  575. {
  576.   if (Player.packptr >= MAXPACK) {
  577.     print3("Your pack is full. The item drops to the ground.");
  578.     drop_at(Player.x,Player.y,o);
  579.   }
  580.   else {
  581.     Player.pack[Player.packptr++] = o;
  582.     print3("Putting item in pack.");
  583.   }
  584. }
  585.  
  586.  
  587. /* Adds item to pack list, maybe going into inventory mode if pack is full */
  588. int get_to_pack(o)
  589. pob o;
  590. {
  591.   if (Player.packptr >= MAXPACK) {
  592.     print3("Your pack is full.");
  593.     morewait();
  594.     return(FALSE);
  595.   }
  596.   else {
  597.     Player.pack[Player.packptr++] = o;
  598.     print3("Putting item in pack.");
  599.     return(TRUE);
  600.   }
  601. }
  602.  
  603.  
  604.  
  605. /* takes something from pack, puts to slot, 
  606. or to 'up-in-air', one of which at least must be empty */
  607. void take_from_pack(slot,display)
  608. int slot,display;
  609. {
  610.   char response;
  611.   int i,quit = FALSE,ok=TRUE,displayed=FALSE;
  612.   pob item;
  613.   if (Player.possessions[slot] != NULL) 
  614.     slot = O_UP_IN_AIR;
  615.   if (Player.possessions[slot] != NULL) 
  616.     print3("slot is not empty!");
  617.   else if (Player.packptr == 0)
  618.     print3("Pack is empty!");
  619.   else {
  620.     do {
  621.       ok = TRUE;
  622.       print1("Enter pack slot letter, or ? to show pack, or ESCAPE to quit.");
  623.       response = mgetc();
  624.       if (response == '?') {
  625.     display_pack();
  626.     displayed = TRUE;
  627.     ok = FALSE;
  628.       }
  629.       else if (response == ESCAPE) quit = TRUE;
  630.       else{
  631.     ok = ((response >= 'A') && (response < 'A'+Player.packptr));
  632.     if (ok) ok = slottable(Player.pack[response-'A'],slot);
  633.       }
  634.     } while (! ok);
  635.     if (! quit) {
  636.       if (response - 'A' > 10) {
  637.     print1("You begin to rummage through your pack.");
  638.     morewait();
  639.     Command_Duration += 10;
  640.       }
  641.       if (response - 'A' > 5) {
  642.     print1("You search your pack for the item.");
  643.     Command_Duration += 5;
  644.     morewait();
  645.       }
  646.       print1("You take the item from your pack.");
  647.       morewait();
  648.       Command_Duration += 2;
  649.       item = Player.possessions[slot] = Player.pack[response-'A'];
  650.       for(i=response-'A';i<Player.packptr-1;i++)
  651.     Player.pack[i] = Player.pack[i+1];
  652.       Player.pack[--Player.packptr] = NULL;
  653.       
  654.       if (item_useable(item,slot)) {
  655.     item->used = TRUE;
  656.     item_use(item);
  657.     morewait();
  658.     if (item->number > 1) pack_extra_items(item);
  659.       }
  660.     }
  661.   }
  662.   if (displayed) {
  663.     xredraw();
  664.     if (display) display_possessions();
  665.   }
  666. }
  667.  
  668.  
  669.  
  670.  
  671. /* General interface to inventory */
  672. void item_inventory(topline)
  673. int topline;
  674. {
  675.   if (topline) {
  676.     menuclear();
  677.     display_possessions();
  678.     inventory_control();
  679.   }
  680.   else top_inventory_control();
  681. }
  682.  
  683.  
  684.  
  685.  
  686.  
  687. /* inventory_control assumes a few setup things have been done,
  688.    like displaying the slots, loading the O_UP_IN_AIR item, etc.
  689.  
  690.    Each action uses up a little time. If only inspection actions
  691.    are taken, no time is used up. */
  692.  
  693.  
  694. void inventory_control()
  695. {
  696.   int slot = 0,done=FALSE;
  697.   char response;
  698.   clearmsg3();
  699.   do {
  700.     checkclear();
  701.     print1("Action [^l,d,e,p,s,t,x,>,<,?,ESCAPE]:");
  702.     display_inventory_slot(slot,FALSE);
  703.     if (slot == O_WEAPON_HAND)
  704.       display_inventory_slot(O_READY_HAND,FALSE);
  705.     else if (slot == O_READY_HAND)
  706.       display_inventory_slot(O_WEAPON_HAND,FALSE);
  707.     display_inventory_slot(O_UP_IN_AIR,FALSE);
  708.     move_slot(slot,slot,MAXITEMS);
  709.     response = mcigetc();
  710.  
  711.     switch(response) {
  712.     case 12:
  713.     case 18: /* ^l, ^r */
  714.       menuclear();
  715.       display_possessions();
  716.       break;
  717.     case 'd':
  718.       if (Player.possessions[O_UP_IN_AIR] != NULL) 
  719.     drop_from_slot(O_UP_IN_AIR);
  720.       else if (Player.possessions[slot] != NULL) 
  721.     drop_from_slot(slot);
  722.       else print3("Nothing in selected slot!");
  723.       Command_Duration++;
  724.       break; 
  725.     case 'p': 
  726.       if (Player.possessions[slot] != NULL) 
  727.     put_to_pack(slot);
  728.       Command_Duration+=5;
  729.       break;
  730.     case 's':
  731.       display_pack();
  732.       morewait();
  733.       xredraw();
  734.       display_possessions();
  735.       Command_Duration+=5;
  736.       break;
  737.     case 't': 
  738.       take_from_pack(slot,TRUE); 
  739.       Command_Duration+=5;
  740.       break;
  741.     case 'e':
  742.       switch_to_slot(slot);
  743.       Command_Duration+=2;
  744.       break;
  745.     case 'x':
  746.       switch_to_slot(slot);
  747.       Command_Duration+=2;
  748.       done = (Player.possessions[O_UP_IN_AIR] == NULL);
  749.       break;
  750.     case 'j':
  751.     case '>':
  752.       slot = move_slot(slot,slot+1,MAXITEMS);
  753.       break;
  754.     case 'k':
  755.     case '<':
  756.       slot = move_slot(slot,slot-1,MAXITEMS);
  757.       break;
  758.     case '?':
  759.       inv_help();
  760.       display_possessions();
  761.       break;
  762.     case ESCAPE:
  763.       if (Player.possessions[O_UP_IN_AIR] != NULL) {
  764.     drop_at(Player.x,Player.y,Player.possessions[O_UP_IN_AIR]);
  765.     Player.possessions[O_UP_IN_AIR] = NULL;
  766.     print3("Object 'up in air' dropped.");
  767.       }
  768.       done = TRUE;
  769.       break;
  770.     }
  771.     calc_melee();
  772.     dataprint();
  773.   } while (! done);
  774.   xredraw();
  775. }
  776.  
  777.  
  778.  
  779.  
  780.  
  781.  
  782.  
  783. /* same as inventory_control, but only uses msg window for i/o*/
  784.  
  785.  
  786. void top_inventory_control()
  787. {
  788.   int slot = 0,done=FALSE,usedmenu=FALSE;
  789.   char response;
  790.   clearmsg3();
  791.   do {
  792.     clearmsg1();
  793.     print1("Action [d,e,p,s,t,x,~,?,ESCAPE]:");
  794.     print2("'Up in air': ");
  795.     if (Player.possessions[O_UP_IN_AIR] == NULL) nprint2("NOTHING");
  796.     else nprint2(itemid(Player.possessions[O_UP_IN_AIR]));
  797.     response = mcigetc();
  798.  
  799.     switch(response) {
  800.     case 'd':
  801.       if (Player.possessions[O_UP_IN_AIR] != NULL) 
  802.     drop_from_slot(O_UP_IN_AIR);
  803.       else {
  804.     slot = get_inventory_slot();
  805.     if (Player.possessions[slot] != NULL) 
  806.       drop_from_slot(slot);
  807.     else print3("Nothing in selected slot!");
  808.       }
  809.       Command_Duration++;
  810.       break; 
  811.     case 'p': 
  812.       if (Player.possessions[O_UP_IN_AIR] == NULL)
  813.     slot = get_inventory_slot();
  814.       else slot = O_UP_IN_AIR;
  815.       put_to_pack(slot); 
  816.       Command_Duration+=5;
  817.       break;
  818.     case 's':
  819.       display_pack();
  820.       usedmenu = TRUE;      
  821.       Command_Duration+=5;
  822.       break;
  823.     case 't': 
  824.       slot = get_inventory_slot();
  825.       take_from_pack(slot,FALSE); 
  826.       Command_Duration+=5;
  827.       break;
  828.     case 'e':
  829.       slot = get_inventory_slot();
  830.       switch_to_slot(slot);
  831.       Command_Duration+=2;
  832.       break;
  833.     case 'x':
  834.       slot = get_inventory_slot();
  835.       switch_to_slot(slot);
  836.       Command_Duration+=2;
  837.       done = (Player.possessions[O_UP_IN_AIR] == NULL);
  838.       break;
  839.     case '~':
  840.       menuclear();
  841.       display_possessions();
  842.       inventory_control();
  843.       usedmenu = TRUE;
  844.       done = TRUE;
  845.       break;
  846.     case '?':
  847.       inv_help();
  848.       usedmenu=TRUE;
  849.       break;
  850.     case ESCAPE:
  851.       if (Player.possessions[O_UP_IN_AIR] != NULL) {
  852.     drop_at(Player.x,Player.y,Player.possessions[O_UP_IN_AIR]);
  853.     Player.possessions[O_UP_IN_AIR] = NULL;
  854.     print3("Object 'up in air' dropped.");
  855.       }
  856.       done = TRUE;
  857.       break;
  858.     }
  859.     calc_melee();
  860.     dataprint();
  861.   } while (! done);
  862.   if (usedmenu) 
  863.     xredraw();
  864. }
  865.  
  866.  
  867.  
  868.  
  869.  
  870. int get_inventory_slot()
  871. {
  872.   int ok;
  873.   char response;
  874.   do {
  875.     clearmsg1();
  876.     print1("Which inventory slot [a..o,*='up-in-air' slot]?");
  877.     response = mcigetc(); 
  878.     ok = ((response == '*') ||
  879.       ((response >= 'a') && (response < 'a' + MAXITEMS - 1)));
  880.   } while (! ok);
  881.   return((response == '*') ? 0 : ((int) (response + 1 - 'a')));
  882. }
  883.     
  884.  
  885.  
  886. /* returns some number between 0 and o->number */
  887. int get_item_number(o)
  888. pob o;
  889. {
  890.   int n=0;
  891.   do {
  892.     print1("How many? -- max");
  893.     mnumprint(o->number);
  894.     nprint1(" :");
  895.     n = parsenum();
  896.     if (n>o->number) print3("Too many!");
  897.     else if (n<1) n = 0;
  898.   } while (n > o->number);
  899.   if (n < 1) n = 0;
  900.   return(n);
  901. }
  902.   
  903. void drop_from_slot(slot)
  904. int slot;
  905. {
  906.   int n,waitflag;
  907.   if (Player.possessions[slot] != NULL) {
  908.     n = Player.possessions[slot]->number;
  909.     if (n > 1) n = get_item_number(Player.possessions[slot]);
  910.     if (n > 0) {
  911.       p_drop_at(Player.x,Player.y,n,Player.possessions[slot]);
  912.       waitflag = (Player.possessions[slot]->used && 
  913.           (Player.possessions[slot]->number == n));
  914.       conform_lost_objects(n,Player.possessions[slot]);
  915.       if (waitflag) morewait();
  916.     }
  917.     else print3("Didn't drop anything.");
  918.   }
  919.   else print3("Didn't drop anything.");
  920. }
  921.  
  922.  
  923. void put_to_pack(slot)
  924. int slot;
  925. {
  926.   int waitflag,num = 1;
  927.   pob temp,oslot = Player.possessions[slot];
  928.   if (oslot == NULL) 
  929.     print3("Slot is empty!");
  930.   else if (cursed(oslot) == TRUE+TRUE)
  931.     print3("Item is cursed!");
  932.   else {
  933.     if (oslot->number > 1)
  934.       num = get_item_number(oslot);
  935.     if (num > 0) {
  936.       temp = split_item(num,oslot);
  937.       waitflag = (oslot->used && (oslot->number == num));
  938.       conform_lost_objects(num,oslot);
  939.       if (waitflag) morewait();
  940.       add_to_pack(temp);
  941.     }
  942.   }
  943. }
  944.  
  945.  
  946. /* splits num off of item to make newitem which is returned */
  947. /* something else (conform_lost_objects) has to reduce the actual
  948.    number value of item and Player.itemweight */
  949. pob split_item(num,item)
  950. int num;
  951. pob item;
  952. {
  953.   pob newitem=NULL;
  954.   if (item != NULL) {
  955.     newitem = ((pob) malloc(sizeof(objtype)));
  956.     *newitem = *item;
  957.     if (num <= item->number)
  958.       newitem->number = num;
  959.     /* else num > item->number, so return NULL on this error condition */
  960.   }
  961.   return(newitem);
  962. }
  963.  
  964.  
  965.  
  966. /* Trades contents of "up in air" slot with selected slot. One or both
  967. may be null. If both slots are 'objequal' merges two groups into one
  968. in the selected slot. If one slot is null and the number of the other
  969. is greater than one, requests how many to move. */
  970.  
  971. void switch_to_slot(slot)
  972. int slot;
  973. {
  974.   pob oslot = Player.possessions[slot];
  975.   pob oair = Player.possessions[O_UP_IN_AIR];
  976.   pob otemp = NULL;
  977.   int slotnull,airnull,num=1,trade=FALSE,put=FALSE,take=FALSE,merge=FALSE;
  978.   int s2h=FALSE,a2h=FALSE;
  979.  
  980.   /* ie, is cursed and in use */
  981.   if (slot == O_UP_IN_AIR)
  982.     print3("This action makes no sense!");
  983.   else if (cursed(oslot)==TRUE+TRUE)
  984.     print3("The object in that slot is cursed -- you can't get rid of it!");
  985.   else {
  986.  
  987.     slotnull = (oslot == NULL); 
  988.     airnull = (oair == NULL);
  989.  
  990.     if  (!slotnull)
  991.       s2h = (Player.possessions[O_READY_HAND] ==
  992.          Player.possessions[O_WEAPON_HAND]);
  993.     
  994.     if (! airnull)
  995.       a2h = (twohandedp(oair->id) && 
  996.          ((slot == O_READY_HAND) || (slot == O_WEAPON_HAND)));
  997.     
  998.     
  999.     /* figure out which action to take */
  1000.  
  1001.     /* merge if both are same kind of object */
  1002.     merge = objequal(oslot,oair);
  1003.     
  1004.     take = ((!merge) && (!slotnull) && airnull);
  1005.     
  1006.     put = ((!merge) && slotnull && (!airnull));
  1007.     
  1008.     trade = ((!merge) && (!slotnull) && (!airnull) && slottable(oair,slot));
  1009.     
  1010.     if (merge) merge_item(slot);
  1011.     
  1012.     else if (put) {
  1013.  
  1014.       /* deal with a 2-handed weapon */
  1015.       if (a2h) {
  1016.     if (Player.possessions[O_READY_HAND] == NULL)
  1017.       Player.possessions[O_READY_HAND] = oair;
  1018.     if (Player.possessions[O_WEAPON_HAND] == NULL)
  1019.       Player.possessions[O_WEAPON_HAND] = oair;
  1020.       }
  1021.       else Player.possessions[slot] = oair;
  1022.       Player.possessions[O_UP_IN_AIR] = NULL;
  1023.       if (item_useable(oair,slot)) {
  1024.     oair->used = TRUE;
  1025.     item_use(oair);
  1026.     morewait();
  1027.     if (oair->number > 1) pack_extra_items(oair);
  1028.       }
  1029.       Player.possessions[O_UP_IN_AIR] = NULL;
  1030.     }
  1031.  
  1032.     else if (take) {
  1033.       if (oslot->number > 1) {
  1034.     num = get_item_number(oslot);
  1035.       }
  1036.       if (num > 0) {
  1037.     otemp = split_item(num,oslot);
  1038.     dispose_lost_objects(num,oslot);
  1039.     Player.possessions[O_UP_IN_AIR] = otemp;
  1040.     otemp->used = FALSE;
  1041.       }
  1042.     }
  1043.  
  1044.     else if (trade) {
  1045.       
  1046.       /* first remove item from slot */
  1047.       num = oslot->number;
  1048.       conform_lost_objects(oslot->number,oslot);
  1049.       oslot->number = num;
  1050.       
  1051.       Player.possessions[O_UP_IN_AIR] = oslot;
  1052.  
  1053.       Player.possessions[slot] = oair;
  1054.       
  1055.       if (a2h) {
  1056.     if (Player.possessions[O_READY_HAND] == NULL)
  1057.       Player.possessions[O_READY_HAND] = oair;
  1058.     if (Player.possessions[O_WEAPON_HAND] == NULL)
  1059.       Player.possessions[O_WEAPON_HAND] = oair;
  1060.       }
  1061.       
  1062.       if (item_useable(oair,slot)) {
  1063.     oair->used = TRUE;
  1064.     item_use(oair);
  1065.     morewait();
  1066.     if (oair->number > 1) pack_extra_items(oair);
  1067.       }
  1068.     }
  1069.   }
  1070. }
  1071.  
  1072.  
  1073.  
  1074.  
  1075. /* merges the up-in-air items into the selected items */
  1076.  
  1077. void merge_item(slot)
  1078. int slot;
  1079. {
  1080.   Player.possessions[slot]->number +=
  1081.     Player.possessions[O_UP_IN_AIR]->number;
  1082.   Player.possessions[O_UP_IN_AIR] = NULL;
  1083. }
  1084.  
  1085.  
  1086. /* are two objects equal except for their number field? */
  1087. /* returns false if either object is null */
  1088. int objequal(o,p)
  1089. struct object *o,*p;
  1090. {
  1091.   if ((o == NULL) || (p == NULL)) return(FALSE);
  1092.   else return(
  1093.      (o->id == p->id) &&
  1094.      (o->plus == p->plus) &&
  1095.      (o->charge == 0) &&
  1096.      (p->charge == 0) &&
  1097.      (o->dmg == p->dmg) &&
  1098.      (o->hit == p->hit) &&
  1099.      (o->aux == p->aux) &&
  1100.      (o->known == p->known) &&
  1101.      (o->blessing == p->blessing) &&
  1102.      (o->usef == p->usef)
  1103.      );
  1104.  
  1105. }
  1106.  
  1107. /* criteria for being able to put some item in some slot */
  1108. int slottable(o,slot)
  1109. pob o;
  1110. int slot;
  1111. {
  1112.   int ok = TRUE;
  1113.   if (o == NULL) ok = FALSE;
  1114.   else if (slot == O_ARMOR) {
  1115.     if (o->objchar != ARMOR) {
  1116.       print3("Only armor can go in the armor slot!");
  1117.       ok = FALSE;
  1118.     }
  1119.   }
  1120.   else if (slot == O_SHIELD) {
  1121.     if (o->objchar != SHIELD) {
  1122.       print3("Only a shield can go in the shield slot!");
  1123.       ok = FALSE;
  1124.     }
  1125.   }
  1126.   else if (slot == O_BOOTS) {
  1127.     if (o->objchar != BOOTS) {
  1128.       print3("Only boots can go in the boots slot!");
  1129.       ok = FALSE;
  1130.     }
  1131.   }
  1132.   else if (slot == O_CLOAK) {
  1133.     if (o->objchar != CLOAK) {
  1134.       print3("Only a cloak can go in the cloak slot!");
  1135.       ok = FALSE;
  1136.     }
  1137.   }
  1138.   else if (slot >= O_RING1) {
  1139.     if (o->objchar != RING) {
  1140.       print3("Only a ring can go in a ring slot!");
  1141.       ok = FALSE;
  1142.     }
  1143.   }
  1144.   return(ok);
  1145. }
  1146.  
  1147.  
  1148.  
  1149. /* whether or not an item o can be used in a slot. Assumes o can in
  1150.    fact be placed in the slot. */
  1151. int item_useable(o,slot)
  1152. pob o;
  1153. int slot;
  1154. {
  1155.   /* don't have to check the object in the first if since only armor
  1156.   can go in armor slot, cloak in cloak slot, etc */
  1157.  
  1158.   if ((slot == O_ARMOR) || 
  1159.       (slot == O_CLOAK) ||
  1160.       (slot == O_SHIELD) ||
  1161.       (slot == O_BOOTS) ||
  1162.       (slot >= O_RING1))
  1163.     return(TRUE);
  1164.  
  1165.   /* weapon is useable if it is put in weapon hand or if it is two-handed
  1166.      and put in either hand when the other also holds the weapon */
  1167.  
  1168.   else if ((o->objchar == WEAPON) ||
  1169.        (o->objchar == MISSILEWEAPON)) {
  1170.     if (twohandedp(o->id) && 
  1171.     ((slot==O_READY_HAND)||(slot==O_WEAPON_HAND))) {
  1172.       if (Player.possessions[O_READY_HAND] == 
  1173.       Player.possessions[O_WEAPON_HAND]) {
  1174.     print1("You heft the weapon and find you must use both hands.");
  1175.     morewait();
  1176.     return(TRUE);
  1177.       }
  1178.       else {
  1179.     print1("This weapon is two-handed, so at the moment, ");
  1180.     print2("you are just lugging it around....");
  1181.     morewait();
  1182.     return(FALSE);
  1183.       }    
  1184.     }
  1185.     else return(slot == O_WEAPON_HAND);
  1186.   }
  1187.   else return(FALSE);
  1188. }
  1189.  
  1190.  
  1191.  
  1192.  
  1193.  
  1194.  
  1195.  
  1196.  
  1197. /* returns FALSE if not cursed, TRUE if cursed but not used,
  1198.    TRUE + TRUE if cursed and used */
  1199. int cursed(obj)
  1200. pob obj;
  1201. {
  1202.   return((obj == NULL) ? 
  1203.      FALSE : 
  1204.      ((obj->blessing < 0) ? 
  1205.       (obj->used == TRUE) + TRUE : 
  1206.       FALSE));
  1207. }
  1208.  
  1209.  
  1210.  
  1211.  
  1212. /* returns true if item with id and charge is found in pack or in
  1213.    inventory slot. charge is used to differentiate
  1214.    corpses instead of aux, which is their food value. */
  1215. int find_item(o,id,chargeval)
  1216. int id,chargeval;
  1217. pob *o;
  1218. {
  1219.   int i,found=FALSE;
  1220.   *o=NULL;
  1221.   for(i=1;((i<MAXITEMS)&&(! found));i++)
  1222.     if (Player.possessions[i] != NULL)
  1223.       if ((Player.possessions[i]->id == id) &&
  1224.       ((chargeval == -1) ||
  1225.        (Player.possessions[i]->charge == chargeval))) {
  1226.     *o = Player.possessions[i];
  1227.     found = TRUE;
  1228.       }
  1229.   if (! found)
  1230.     for(i=0;((i<Player.packptr)&&(! found));i++)
  1231.       if (Player.pack[i] != NULL)
  1232.     if ((Player.pack[i]->id == id) &&
  1233.         ((chargeval == -1) ||
  1234.          (Player.pack[i]->charge == chargeval))) {
  1235.       *o = Player.pack[i];
  1236.       found = TRUE;
  1237.     }
  1238.   return(found);
  1239. }
  1240.  
  1241.  
  1242.  
  1243. /* returns true if item with id and charge is found in pack or in
  1244.    inventory slot. Destroys item. charge is used to differentiate
  1245.    corpses instead of aux, which is their food value. */
  1246. int find_and_remove_item(id,chargeval)
  1247. int id,chargeval;
  1248. {
  1249.   int i,found=FALSE;
  1250.   pob o=NULL;
  1251.  
  1252.   for(i=1;((i<MAXITEMS)&&(! found));i++)
  1253.     if (Player.possessions[i] != NULL)
  1254.       if ((Player.possessions[i]->id == id) &&
  1255.       ((chargeval == -1) ||
  1256.        (Player.possessions[i]->charge == chargeval))) {
  1257.     o = Player.possessions[i];
  1258.     conform_lost_object(o);
  1259.     found = TRUE;
  1260.       }
  1261.   if (! found) for(i=0;((i<Player.packptr)&&(! found));i++)
  1262.     if (Player.pack[i] != NULL)
  1263.       if ((Player.pack[i]->id == id) &&
  1264.       ((chargeval == -1) ||
  1265.        (Player.pack[i]->charge == chargeval))) {
  1266.     free((char *)Player.pack[i]);
  1267.     Player.pack[i] = NULL;
  1268.     found = TRUE;
  1269.       }
  1270.   fixpack();
  1271.   return(found);
  1272. }
  1273.  
  1274.  
  1275.  
  1276.  
  1277. void lose_all_items()
  1278. {
  1279.   int i;
  1280.   print1("You notice that you are completely devoid of all possessions.");
  1281.   morewait();
  1282.   for(i=0;i<MAXITEMS;i++)
  1283.     if (Player.possessions[i] != NULL) {
  1284.       dispose_lost_objects(Player.possessions[i]->number,
  1285.                Player.possessions[i]);
  1286.       Player.possessions[i] = NULL;
  1287.     }
  1288.   for(i=0;i<MAXPACK;i++) {
  1289.     if (Player.pack[i] != NULL) 
  1290.       free((char *) Player.pack[i]);
  1291.     Player.pack[i] = NULL;
  1292.   }
  1293.   Player.packptr = 0;
  1294.   calc_melee();
  1295.   morewait();
  1296. }
  1297.  
  1298.  
  1299. /* prevents people from wielding 3 short swords, etc. */
  1300. void pack_extra_items(item)
  1301. pob item;
  1302. {
  1303.   pob extra=((pob) malloc(sizeof(objtype)));
  1304.   if (Player.packptr < MAXPACK) {
  1305.     print3("Putting extra items back in pack.");
  1306.     morewait();
  1307.     *extra = *item;
  1308.     extra->number = item->number-1;
  1309.     item->number = 1;
  1310.     Player.pack[Player.packptr++] = extra;
  1311.   }
  1312.   else if (Player.possessions[O_UP_IN_AIR] == NULL) {
  1313.     print3("Extra copies of item are 'up in the air'");
  1314.     Player.possessions[O_UP_IN_AIR] = extra;
  1315.   }
  1316.   else {
  1317.     print3("No room for extra copies of item -- dropping them.");
  1318.     drop_at(Player.x,Player.y,extra);
  1319.   }
  1320.   calc_melee();
  1321. }
  1322.  
  1323.  
  1324. /* makes sure Player.pack is OK, (used after sale from pack) */
  1325. void fixpack()
  1326. {
  1327.   pob tpack[MAXPACK];
  1328.   int i,tctr=0;
  1329.   for(i=0;i<MAXPACK;i++) tpack[i] = NULL;
  1330.   for(i=0;i<MAXPACK;i++)
  1331.     if (Player.pack[i]!=NULL) 
  1332.       tpack[tctr++] = Player.pack[i];
  1333.   for(i=0;i<MAXPACK;i++)
  1334.     Player.pack[i]=tpack[i];
  1335.   Player.packptr = tctr;
  1336.  
  1337. }
  1338.