get_play.c

/*
    get_play.c  -  Procedures for saving and retrieving a characters
                   starting attributes, armour, and weapon.
		   New addition to version 1.3 by S. A. Hester  11/8/83

    UltraRogue
    Copyright (C) 1985 Herb Chong
    All rights reserved.
    
    Based on "Advanced Rogue"
    Copyright (C) 1983, 1984, 1985 Michael Morgan, Ken Dalka and AT&T
    All rights reserved.
    
    See the file LICENSE.TXT for full copyright and licensing information.
*/

#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <stdio.h>
#include "curses.h"
#include <ctype.h>
#include "rogue.h"

int
geta_player(void)
{

	register struct linked_list *item;
	register struct object *obj;
	char char_file[LINELEN];	/* Where the file should be! */
	FILE *fd;
	int	arm,wpt,hpadd,dmadd;
	char	pbuf[2*LINELEN];
	int    cnt = 0,i = 0;

	strcpy(char_file,home);
	strcat(char_file, ROGDEFS);

	if ((fd = fopen(char_file, "r+")) == NULL)
		if ((fd = fopen(char_file, "w+")) == NULL)
		{
			return(FALSE);
		}

	/*
	 * It's OK.  Get the info!
	 */
	encread((char *)def_array, sizeof(def_array), fd);
	fclose(fd);
 
	wclear(hw);
	touchwin(hw);

	cnt = 0;
	for(i=0; i<MAXPDEF; i++)
	    if(def_array[i][I_STR])
		cnt++;

	if(!cnt){
		mvwaddstr(hw,5,5,"You have no pre-rolled characters!");
		mvwaddstr(hw, LINES - 1, 0, spacemsg);
		draw(hw);
		wait_for(hw, ' ');
		return(FALSE);
	}

	sprintf(pbuf, "You have %d character%c:",cnt,(cnt==1)? 0 : 's');
	mvwaddstr(hw,5,5,pbuf);
	for(i=0;i<MAXPDEF;i++)
	    if(def_array[i][I_STR]) {
		char	*class;
		switch(def_array[i][I_CHAR]) {
		    when C_FIGHTER:
			class = "fighter";
		    when C_MAGICIAN:
			class = "magician";
		    when C_CLERIC:
			class = "cleric";
		    when C_THIEF:
			class = "thief";
		    otherwise:
			class = "unknown";
		}
		sprintf(pbuf, "%d. (%s): Int: %d  Str: %d  Wis: %d  Dex: %d  Const: %d  Charisma: %d",
				    i+1,
				  class,
		    def_array[i][I_INTEL],
		    def_array[i][I_STR],
		    def_array[i][I_WIS],
		    def_array[i][I_DEX],
		    def_array[i][I_WELL],
		    def_array[i][I_APPEAL] );
		mvwaddstr(hw,7+(i*3),0,pbuf);
		sprintf(pbuf, "Armor: %s   Weapon: (+%d,+%d)%s    Hit Points: %d",
		armors[(def_array[i][I_ARM])].a_name,
		def_array[i][I_WEAPENCH]/10,
		def_array[i][I_WEAPENCH]%10,
		weaps[(def_array[i][I_WEAP])].w_name,
		def_array[i][I_HITS]);
		mvwaddstr(hw,8+(i*3),0,pbuf);
	    }
	mvwaddstr(hw,0,0,"Do you wish to select a character? ");
	draw(hw);
	if ((readchar(hw) & 0177) != 'y')	return(FALSE);
again:
	wmove(hw, LINES - 1, 0);
	wclrtoeol(hw);
	mvwaddstr(hw,0,0,"Enter the number of a pre-defined character:");
	wclrtoeol(hw);
	draw(hw);
	i = ((readchar(hw) & 0177) - '0') - 1;
	while(i < 0 || i > MAXPDEF-1) {
	    mvwaddstr(hw,0,0,"Use the range 1 to");
	    wprintw(hw," %d!",MAXPDEF);
	    wclrtoeol(hw);
	    draw(hw);
	    i = ((readchar(hw) & 0177) - '0') - 1;
	}
	if(def_array[i][I_STR] == 0) {
	    mvwaddstr(hw,0,0,"Please enter the number of a known character:");
	    wclrtoeol(hw);
	    wstandout(hw);
	    mvwaddstr(hw, LINES - 1, 0, spacemsg);
	    wstandend(hw);
	    draw(hw);
	    wait_for(hw, ' ');
	    goto again;
	}

	/* Fix up some local variables */
	hpadd = def_array[i][I_WEAPENCH]/10;
	dmadd = def_array[i][I_WEAPENCH]%10;
	wpt = def_array[i][I_WEAP];
	arm = def_array[i][I_ARM];

	/* And some global ones too! */
	pstats.s_lvl = 1;
	pstats.s_exp = 0L;
	pstats.s_str = def_array[i][I_STR];
	pstats.s_intel = def_array[i][I_INTEL];
	pstats.s_wisdom = def_array[i][I_WIS];
	pstats.s_dext = def_array[i][I_DEX];
	pstats.s_const = def_array[i][I_WELL];
	pstats.s_charisma = def_array[i][I_APPEAL];
	max_stats.s_hpt = pstats.s_hpt = def_array[i][I_HITS];
	player.t_ctype = def_array[i][I_CHAR];
	player.t_quiet = 0;
	if (player.t_ctype == C_FIGHTER) {
		strcpy(pstats.s_dmg, "2d4");
		pstats.s_arm = 8;
	}
	else {
		strcpy(pstats.s_dmg, "1d4");
		pstats.s_arm = 10 ;
	}
	max_stats = pstats ;
	pack = NULL;
	pstats.s_carry = totalenc();

	/* Now let's give the rogue the necessities! */
	item = spec_item(WEAPON, wpt, hpadd, dmadd);
	obj = (struct object *) ldata(item);
	obj->o_flags |= ISKNOW;
	add_pack(item, TRUE);
	cur_weapon = obj;
	/*
	 * And his suit of armor
	 */
	item = spec_item(ARMOR, arm, 0, 0);
	obj = (struct object *) ldata(item);
	obj->o_flags |= ISKNOW;
	obj->o_weight = armors[arm].a_wght;
	add_pack(item, TRUE);
	cur_armor = obj;
	return(TRUE);
}

int
puta_player(int arm, int wpt, int hpadd, int dmadd)
{

	char char_file[LINELEN];	/* Where the file should be! */
	register FILE	*fp;
	char	pbuf[LINELEN];
	char	*class;
	int    i;
	int	no_write;

	strcpy(char_file,home);
	strcat(char_file,ROGDEFS);

	no_write = FALSE;
	wclear(hw);
	touchwin(hw);


	    switch(player.t_ctype) {
		when C_FIGHTER:
		    class = "fighter";
		when C_MAGICIAN:
		    class = "magician";
		when C_CLERIC:
		    class = "cleric";
		when C_THIEF:
		    class = "thief";
		otherwise:
		    class = "unknown";
	    }

	wclear(hw);
	sprintf(pbuf, "You have rolled a %s with the following attributes:",class);
	mvwaddstr(hw,2,0,pbuf);
	sprintf(pbuf, "Int: %d    Str: %d    Wis: %d   Dex: %d  Const: %d  Charisma: %d",
	    pstats.s_intel,
	    pstats.s_str,
	    pstats.s_wisdom,
	    pstats.s_dext,
	    pstats.s_const,
	    pstats.s_charisma );
	mvwaddstr(hw,4,5,pbuf);

	sprintf(pbuf, "%s    (+%d,+%d)%s    Hit Points: %d",
	    armors[arm].a_name,
	    hpadd, dmadd,
	    weaps[wpt].w_name,
	    pstats.s_hpt );
	mvwaddstr(hw,5,5,pbuf);
	mvwaddstr(hw,0,0,"Would you like to re-roll the character?");
	draw(hw);
	if((readchar(hw) & 0177) == 'y')
	    return(FALSE);
	if(no_write)
	    return(TRUE);
	mvwaddstr(hw,0,0,"Would you like to save this character?");
	wclrtoeol(hw);
	draw(hw);
	if((readchar(hw) & 0177) != 'y')
	    return(TRUE);

	wstandout(hw);
	mvwaddstr(hw,8,0,"YOUR CURRENT CHARACTERS:");
	wstandend(hw);
	wclrtoeol(hw);
	for(i=0;i<MAXPDEF;i++) {
	    if(def_array[i][I_STR]) {
		switch(def_array[i][I_CHAR]) {
		    when C_FIGHTER:
			class = "fighter";
		    when C_MAGICIAN:
			class = "magician";
		    when C_CLERIC:
			class = "cleric";
		    when C_THIEF:
			class = "thief";
		    otherwise:
			class = "unknown";
		}
		sprintf(pbuf, "%d. (%s): Int: %d   Str: %d   Wis: %d  Dex: %d  Const: %d  Charisma: %d",
				    i+1,
				  class,
		    def_array[i][I_INTEL],
		    def_array[i][I_STR],
		    def_array[i][I_WIS],
		    def_array[i][I_DEX],
		    def_array[i][I_WELL],
		    def_array[i][I_APPEAL] );
		mvwaddstr(hw,12+(i*3),0,pbuf);
		sprintf(pbuf, "%s    (+%d,+%d)%s    Hit Points: %d",
		armors[(def_array[i][I_ARM])].a_name,
		def_array[i][I_WEAPENCH]/10,
		def_array[i][I_WEAPENCH]%10,
		weaps[(def_array[i][I_WEAP])].w_name,
		def_array[i][I_HITS] );
		mvwaddstr(hw,13+(i*3),0,pbuf);
	    }
	    else {
		sprintf(pbuf, "%d.  NO CHARACTER DEFINED!", i+1);
		mvwaddstr(hw,12+(i*3),0,pbuf);
	    }
	}
	mvwaddstr(hw,0,0,"Enter a number which this character is to be saved as:");
	draw(hw);
	i = ((readchar(hw) & 0177) - '0') - 1;
	while(i < 0 || i > MAXPDEF-1) {
	    mvwaddstr(hw,0,0,"Use the range 1 to");
	    wprintw(hw," %d!",MAXPDEF);
	    wclrtoeol(hw);
	    draw(hw);
	    i = ((readchar(hw) & 0177) - '0') - 1;
	}
	/* Preserve some local variables */
	def_array[i][I_WEAPENCH] = (hpadd *10) + dmadd;
	def_array[i][I_WEAP] = wpt;
	def_array[i][I_ARM] = arm;

	/* And some global ones too! */
	def_array[i][I_STR] = pstats.s_str;
	def_array[i][I_INTEL] = pstats.s_intel;
	def_array[i][I_WIS] = pstats.s_wisdom;
	def_array[i][I_DEX] = pstats.s_dext;
	def_array[i][I_WELL] = pstats.s_const;
	def_array[i][I_APPEAL] = pstats.s_charisma;
	def_array[i][I_HITS] = pstats.s_hpt;
	def_array[i][I_CHAR] = player.t_ctype;

	/* OK. Now let's write this stuff out! */
	if ((fp = fopen(char_file, "w+")) == NULL)
	{
	    no_write = TRUE;
	    sprintf(pbuf,"I can't seem to open/create %s", char_file);
	    mvwaddstr(hw,5,5,pbuf);
	    mvwaddstr(hw,6,5,"However I'll let you play it anyway!");
	    mvwaddstr(hw, LINES - 1, 0, spacemsg);
	    draw(hw);
	    wait_for(hw,' ');
	    return(TRUE);
	}
	encwrite((char *)def_array, sizeof(def_array), fp);
	fclose(fp);
	return(TRUE);
}