Patch #1 for Phantasia 3.3.1+

[Chris Robertson]

This is Patch #1 for Phantasia 3.3.1+, distributed by Chris Robertson.  It
is suitable for use with "patch", or may be easily applied by hand.

Problem:	Prices print as zero or negative in trading posts;  you
		can buy "max 0" of anything.
		Also forgot to show brains as well as mana in the
		trading posts stats display.

Fix:		Use "%ld" in printw, not "%d", and don't do last-minute
		fixes just before posting sources.

Index: func0.c
*** old.func0.c	Thu Oct 10 09:50:46 1985
--- func0.c	Thu Oct 10 12:06:04 1985
***************
*** 676,682
  	mvprintw(5,0,"L: Leave  P: Purchase  S: Sell Gems?  ");
  	move(7,0);
  	for (loop = 0; loop < size; ++loop)
! 		printw("(%d) %-30.30s: %6d\n",loop+1,menu[loop].item,menu[loop].cost);
  PROMPT: adjuststats(stat);
  	mvprintw(1,0,"Gold:   %9.0f  Gems:  %9.0f  Level:    %6u  Charms: %6d\n",
  				stat->gld,stat->gem,stat->lvl,stat->chm);

--- 676,682 -----
  	mvprintw(5,0,"L: Leave  P: Purchase  S: Sell Gems?  ");
  	move(7,0);
  	for (loop = 0; loop < size; ++loop)
! 		printw("(%d) %-30.30s: %6ld\n",loop+1,menu[loop].item,menu[loop].cost);
  PROMPT: adjuststats(stat);
  	mvprintw(1,0,"Gold:   %9.0f  Gems:  %9.0f  Level:    %6u  Charms: %6d\n",
  				stat->gld,stat->gem,stat->lvl,stat->chm);
***************
*** 682,688
  				stat->gld,stat->gem,stat->lvl,stat->chm);
  	printw("Shield: %9.0f  Sword: %9.0f  Quicksilver: %3d  Blessed: %s\n",
  	stat->shd,stat->swd,stat->quks,(stat->bls? " True" : "False"));
! 	printw("Mana:   %9.0f",stat->man);
  	move(5,38);
  	ch = getans("LPS", FALSE);
  	move(15,0);

--- 682,688 -----
  				stat->gld,stat->gem,stat->lvl,stat->chm);
  	printw("Shield: %9.0f  Sword: %9.0f  Quicksilver: %3d  Blessed: %s\n",
  	stat->shd,stat->swd,stat->quks,(stat->bls? " True" : "False"));
! 	printw("Brains: %9.0f  Mana:  %9.0f",stat->brn,stat->man);
  	move(5,38);
  	ch = getans("LPS", FALSE);
  	move(15,0);
***************
*** 705,711
  				switch (ch)
  				{
  					case '1':
! 					printw("Mana is one per %d gold piece.  How much do you want (%.0f max)? ",menu[0].cost,floor(stat->gld/menu[0].cost));
  					temp = inflt();
  					if (temp * menu[0].cost > stat->gld || temp < 0)
  						goto CHEAT;

--- 705,711 -----
  				switch (ch)
  				{
  					case '1':
! 					printw("Mana is one per %ld gold piece.  How much do you want (%.0f max)? ",menu[0].cost,floor(stat->gld/menu[0].cost));
  					temp = inflt();
  					if (temp * menu[0].cost > stat->gld || temp < 0)
  						goto CHEAT;
***************
*** 719,725
  					}
  					break;
  				case '2':
! 					printw("Shields are %d per +1.  How many do you want (%.0f max)? ",menu[1].cost,floor(stat->gld/menu[1].cost));
  					temp = inflt();
  					if (!temp)
  						break;

--- 719,725 -----
  					}
  					break;
  				case '2':
! 					printw("Shields are %ld per +1.  How many do you want (%.0f max)? ",menu[1].cost,floor(stat->gld/menu[1].cost));
  					temp = inflt();
  					if (!temp)
  						break;
***************
*** 735,741
  					}
  					break;
  				case '3':
! 					printw("A book costs %d gp.  How many do you want (%.0f max)? ",menu[2].cost,floor(stat->gld/menu[2].cost));
  					temp = inflt();
  					if (temp * menu[2].cost > stat->gld || temp < 0)
  						goto CHEAT;

--- 735,741 -----
  					}
  					break;
  				case '3':
! 					printw("A book costs %ld gp.  How many do you want (%.0f max)? ",menu[2].cost,floor(stat->gld/menu[2].cost));
  					temp = inflt();
  					if (temp * menu[2].cost > stat->gld || temp < 0)
  						goto CHEAT;
***************
*** 755,761
  					}
  					break;
  				case '4':
! 					printw("Weapon enchantments are %d gp per +1.  How many + do you want (%.0f max)? ",menu[3].cost,floor(stat->gld/menu[3].cost));
  					temp = inflt();
  					if (!temp)
  						break;

--- 755,761 -----
  					}
  					break;
  				case '4':
! 					printw("Weapon enchantments are %ld gp per +1.  How many + do you want (%.0f max)? ",menu[3].cost,floor(stat->gld/menu[3].cost));
  					temp = inflt();
  					if (!temp)
  						break;
***************
*** 771,777
  					}
  					break;
  				case '5':
! 					printw("A charm costs %d gp.  How many do you want (%.0f max)? ",menu[4].cost,floor(stat->gld/menu[4].cost));
  					temp = inflt();
  					if (temp * menu[4].cost > stat->gld || temp < 0)
  						goto CHEAT;

--- 771,777 -----
  					}
  					break;
  				case '5':
! 					printw("A charm costs %ld gp.  How many do you want (%.0f max)? ",menu[4].cost,floor(stat->gld/menu[4].cost));
  					temp = inflt();
  					if (temp * menu[4].cost > stat->gld || temp < 0)
  						goto CHEAT;
***************
*** 785,791
  					}
  					break;
  				case '6':
! 					printw("Quicksilver is %d gp per +1.  How many + do you want (%.0f max)? ",menu[5].cost,floor(stat->gld/menu[5].cost));
  					temp = inflt();
  					if (!temp)
  						break;

--- 785,791 -----
  					}
  					break;
  				case '6':
! 					printw("Quicksilver is %ld gp per +1.  How many + do you want (%.0f max)? ",menu[5].cost,floor(stat->gld/menu[5].cost));
  					temp = inflt();
  					if (!temp)
  						break;
***************
*** 801,807
  					}
  					break;
  				case '7':
! 					printw("A blessing requires a %d gp donation.  Still want one? ",menu[6].cost);
  					ch = getans("NY", FALSE);
  					if (ch == 'Y')
  						if (stat->gld < menu[6].cost)

--- 801,807 -----
  					}
  					break;
  				case '7':
! 					printw("A blessing requires a %ld gp donation.  Still want one? ",menu[6].cost);
  					ch = getans("NY", FALSE);
  					if (ch == 'Y')
  						if (stat->gld < menu[6].cost)
***************
*** 832,838
  			}
  			break;
  		case 'S':
! 			mvprintw(15,0,"A gem is worth %d gp.  How many do you want to sell (%.0f max)? ",menu[7].cost,stat->gem);
  			temp = inflt();
  			if (temp > stat->gem || temp < 0)
  				goto CHEAT;

--- 832,838 -----
  			}
  			break;
  		case 'S':
! 			mvprintw(15,0,"A gem is worth %ld gp.  How many do you want to sell (%.0f max)? ",menu[7].cost,stat->gem);
  			temp = inflt();
  			if (temp > stat->gem || temp < 0)
  				goto CHEAT;