| 1294 | } |
| 1295 | |
| 1296 | staticfn void |
| 1297 | pay(long tmp, struct monst *shkp) |
| 1298 | { |
| 1299 | long robbed = ESHK(shkp)->robbed; |
| 1300 | long balance = ((tmp <= 0L) ? tmp : check_credit(tmp, shkp)); |
| 1301 | |
| 1302 | if (balance > 0) |
| 1303 | money2mon(shkp, balance); |
| 1304 | else if (balance < 0) |
| 1305 | money2u(shkp, -balance); |
| 1306 | disp.botl = TRUE; |
| 1307 | if (robbed) { |
| 1308 | robbed -= tmp; |
| 1309 | if (robbed < 0) |
| 1310 | robbed = 0L; |
| 1311 | ESHK(shkp)->robbed = robbed; |
| 1312 | } |
| 1313 | } |
| 1314 | |
| 1315 | /* return shkp to home position */ |
| 1316 | staticfn void |