pay
pay(ltmp, shkp);
pay(u.ugold, shkp);
pay(min(u.ugold, ESHK(shkp)->robbed), shkp);
pay(ltmp, shkp);
pay(ltmp, shopkeeper);
pay(-ltmp, shopkeeper);
static void pay(long, struct monst *);
pay, /* pay for jail |* 10 *| */
void pay(void);