BSD 4_3_Tahoe release

[unix-history] / usr / src / games / monop / rent.c

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley.  The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/

#ifndef lint
static char sccsid[] = "@(#)rent.c      5.2 (Berkeley) 6/18/88";
#endif /* not lint */

# include       "monop.ext"

/*
*      This routine has the player pay rent
*/
rent(sqp)
reg SQUARE      *sqp; {

       reg int         rnt;
       reg PROP        *pp;
       PLAY            *plp;

       plp = &play[sqp->owner];
       printf("Owned by %s\n", plp->name);
       if (sqp->desc->morg) {
               lucky("The thing is mortgaged.  ");
               return;
       }
       switch (sqp->type) {
         case PRPTY:
               pp = sqp->desc;
               if (pp->monop)
                       if (pp->houses == 0)
                               printf("rent is %d\n", rnt=pp->rent[0] * 2);
                       else if (pp->houses < 5)
                               printf("with %d houses, rent is %d\n",
                                   pp->houses, rnt=pp->rent[pp->houses]);
                       else
                               printf("with a hotel, rent is %d\n",
                                   rnt=pp->rent[pp->houses]);
               else
                       printf("rent is %d\n", rnt = pp->rent[0]);
               break;
         case RR:
               rnt = 25;
               rnt <<= (plp->num_rr - 1);
               if (spec)
                       rnt <<= 1;
               printf("rent is %d\n", rnt);
               break;
         case UTIL:
               rnt = roll(2, 6);
               if (plp->num_util == 2 || spec) {
                       printf("rent is 10 * roll (%d) = %d\n", rnt, rnt * 10);
                       rnt *= 10;
               }
               else {
                       printf("rent is 4 * roll (%d) = %d\n", rnt, rnt * 4);
                       rnt *= 4;
               }
               break;
       }
       cur_p->money -= rnt;
       plp->money += rnt;
}