- switch (*p) {
- case 'n':
- case 'c':
- charge = 0;
- btucost = 0;
- if (!player->god && (us->nat_stat & STAT_NORM)) {
- if (us->nat_btu < 254) {
- pr("You need 254 btus to change your country name!\n");
- return RET_FAIL;
- }
- if (opt_BLITZ == 0) {
- pr("This command costs 254 BTU's and 10%% of your money.\n");
- if (!confirm("Are you sure you want to do this? "))
- return RET_FAIL;
- btucost = 254;
- /* charge = 2000; */
- /*if (us->nat_money < charge*10)*/
- /* charge = us->nat_money / 10;*/
- if (us->nat_money <= 0)
- charge = 0;
- else
- charge = us->nat_money / 10;
- }
- }
- if ((p = getstarg(player->argp[2], "New country name -- ", buf)) == 0)
- return RET_SYN;
- p[sizeof(us->nat_cnam)-1] = 0;
- for (cn = 0; NULL != (natp = getnatp(cn)); cn++) {
- if (same(p, natp->nat_cnam)) {
- pr("Country #%d is already called `%s'!\n",
- cn, p);
- return RET_FAIL;
- }
- }
- nonb = 0;
- for (temp = p; *temp != '\0'; temp++) {
- if (iscntrl(*temp)) {
- pr("No control characters allowed in country names!\n");
- return RET_FAIL;
- } else if (*temp != ' ')
- nonb = 1;
- }
- if (!nonb) {
- pr("Must have a non-blank name!\n");
- return RET_FAIL;
- }
- if (opt_BLITZ == 0) {
- player->dolcost += charge;
- player->btused += btucost;
- }
- strcpy(us->nat_cnam, p);
- putnat(us);
- nreport(player->cnum, N_NAME_CHNG, 0, 1);
- break;
- case 'p':
- case 'r':
- pr("(note: these are stored in plain text.)\n");
- if ((p = getstarg(player->argp[2],
- "New representative name -- ", buf)) == 0)
- return RET_SYN;
- p[8] = 0;
- strcpy(us->nat_pnam, p);
- putnat(us);
- break;
- default:
- pr("Only \"country\" or \"representative\" can change.\n");
- return RET_SYN;