-{
- long cash;
- long cost;
- struct natstr *natp;
-
- natp = getnatp(player->cnum);
- cash = natp->nat_money;
- if (player->argp[2]) {
- cost = do_desi(natp, player->argp[1], player->argp[2], cash, 0);
- if (cost < 0)
- return (int)-cost;
- if (chkmoney(cost, cash, player->argp[3]))
- return RET_SYN;
- }
- return (int)do_desi(natp, player->argp[1], player->argp[2], cash, 1);
-}
-
-static long
-do_desi(struct natstr *natp, char *sects, char *deschar, long cash,
- int for_real)