oboe/Win32/Blades of Exile Char Editor/EDACTION.CPP

#include <Windows.h>

#include "stdio.h"

#include "graphics.h"
#include "global.h"
#include "editors.h"
#include "edfileio.h" 
#include "edaction.h" 
#include "edsound.h" 
#include "dlogtool.h" 
#include "graphutl.h"

/* Adventure globals */
extern party_record_type party;
extern pc_record_type adven[6];
extern outdoor_record_type outdoors[2][2];
extern current_town_type c_town;
extern big_tr_type t_d;
extern stored_items_list_type t_i;
extern unsigned char out[96][96] ;
extern unsigned char out_e[96][96];
extern setup_save_type setup_save;
extern stored_items_list_type stored_items[3];
extern stored_town_maps_type maps;
extern stored_outdoor_maps_type o_maps;
extern pascal Boolean cd_event_filter();

extern Boolean dialog_not_toast;

extern HWND mainPtr;
extern Boolean file_in_mem;
extern short current_cursor,dialog_answer;

extern HBITMAP pc_gworld;
extern HCURSOR sword_curs;
extern Boolean diff_depth_ok;
extern RECT edit_rect[5][2];


short which_pc_displayed,store_pc_trait_mode,store_which_to_edit;
extern short current_active_pc;
char empty_string[256] = " ";
extern RECT pc_area_buttons[6][4],name_rect; // 0 - whole 1 - pic 2 - name 3 - stat strs 4,5 - later
extern RECT item_string_rects[24][4]; // 0 - name 1 - drop  2 - id  3 - 

short store_trait_mode,store_train_pc;

extern short ulx,uly;
// Variables for spending xp
	Boolean talk_done = FALSE;
	long val_for_text;
	Boolean keep_change = FALSE;
	short store_skills[20],store_h,store_sp,i,which_skill,store_skp = 10000,store_g = 10000;


short skill_cost[20] = {3,3,3,2,2,2, 1,2,2,6,
						5, 1,2,4,2,1, 4,2,5,0};
short skill_max[20] = {20,20,20,20,20,20,20,20,20,7,
						7,20,20,10,20,20,20,20,20};
short skill_g_cost[20] = {50,50,50,40,40,40,30,50,40,250,
						250,25,100,200,30,20,100,80,0,0};
short skill_bonus[21] = {-3,-3,-2,-1,0,0,1,1,1,2,
							2,2,3,3,3,3,4,4,4,5,5};
pc_record_type *store_xp_pc;

//extern Rect pc_area_buttons[6][6] ; // 0 - whole 1 - pic 2 - name 3 - stat strs 4,5 - later
//extern Rect item_string_rects[24][4]; // 0 - name 1 - drop  2 - id  3 - 
Boolean handle_action(POINT the_point, UINT wparam, LONG lparam )
//short mode; // ignore,
{
	short i;
	
	
	short choice = 4;
	
	Boolean to_return = FALSE;
	Boolean ctrl_key = FALSE;
	Boolean right_button = FALSE;

	if (lparam != -1) {
		the_point.x -= ulx;
		the_point.y -= uly;
		}
	if (lparam == -2)
		right_button = TRUE;
	if (MK_CONTROL & wparam)
		ctrl_key = TRUE;

	if (file_in_mem == FALSE) 
		return FALSE;


	for (i = 0; i < 6; i++)
		if ((PtInRect(&pc_area_buttons[i][0],the_point) == TRUE) &&
			(adven[i].main_status > 0)) {
			do_button_action(0,i);
			current_active_pc = i;
			display_party(6,1);
			draw_items(1);
			}
	for (i = 0; i < 5; i++)
		if ((PtInRect(&edit_rect[i][0],the_point) == TRUE) &&
			(adven[current_active_pc].main_status > 0)) {
			do_button_action(0,i + 10);
			switch(i) {
				case 0:
					display_pc(current_active_pc,0,0);
					break;
				case 1:
			 		display_pc(current_active_pc,1,0);
					break;
				case 2: 
					pick_race_abil(&adven[current_active_pc],0,0);
					break;
				case 3: 
					spend_xp(current_active_pc,1,0);
					break;
				case 4: 
					edit_xp(&adven[current_active_pc]);
					
					break;
			}
		}
	for (i = 0; i < 24; i++)
		if ((PtInRect(&item_string_rects[i][1],the_point) == TRUE) && // drop item
			(adven[current_active_pc].items[i].variety > 0)) { // variety = 0 no item in slot/ non 0 item exists
				flash_rect(item_string_rects[i][1]);
				take_item(current_active_pc,i);
				draw_items(1);
				}
	for (i = 0; i < 24; i++)
		if ((PtInRect(&item_string_rects[i][2],the_point) == TRUE) && // identify item
			(adven[current_active_pc].items[i].variety > 0)) {
				flash_rect(item_string_rects[i][2]);
				adven[current_active_pc].items[i].item_properties = adven[current_active_pc].items[i].item_properties | 1;
				draw_items(1);
				}
	
	return to_return;
}

void flash_rect(RECT to_flash)
{

	long dummy;
	HDC hdc;

	hdc = GetDC(mainPtr);
	SetViewportOrgEx(  hdc,ulx,uly, NULL);
	InvertRect (hdc,&to_flash);
	play_sound(37);
	Delay(5,&dummy);
	InvertRect (hdc,&to_flash);
	fry_dc(mainPtr,hdc);
}

void edit_gold_or_food_event_filter (short)
{
	char get_text[256];

	int tmp;
	
	cd_get_text_edit_str((store_which_to_edit == 0) ? 1012 : 947,(char *) get_text);
	dialog_answer = 0;
	sscanf((char *) get_text,"%d",&tmp);
	dialog_answer = tmp;
	dialog_not_toast = FALSE;
}

void edit_gold_or_food(short which_to_edit)
//0 - gold 1 - food
{
	char sign_text[256];

	store_which_to_edit = which_to_edit;

	make_cursor_sword();
	
	cd_create_dialog((which_to_edit == 0) ? 1012 : 947,mainPtr);
		
	sprintf((char *) sign_text,"%d",(short) ((which_to_edit == 0) ? party.gold : party.food));
	cd_set_text_edit_str((which_to_edit == 0) ? 1012 : 947,(char *) sign_text);
	
	cd_set_edit_focus();
	while (dialog_not_toast)
		ModalDialog();	
	
	cd_kill_dialog((which_to_edit == 0) ? 1012 : 947,0);

	if (dialog_answer < 0)
		dialog_answer = -1;
		else dialog_answer = minmax(0,25000,dialog_answer);
	
	if (dialog_answer >= 0) {
		if (which_to_edit == 0) 
			party.gold = dialog_answer;
			else party.food = dialog_answer;
		}
}

void edit_day_event_filter (short)
{
	char get_text[256];
	int tmp;
	
	cd_get_text_edit_str(917,(char *) get_text);
	sscanf((char *) get_text,"%d",&tmp);
	dialog_answer = tmp;
	dialog_not_toast = FALSE;
}

void edit_day()
{


	char sign_text[256];



	make_cursor_sword();
	
	cd_create_dialog(917,mainPtr);
		
	sprintf((char *) sign_text,"%d",(short) ( ((party.age) / 3700) + 1));
	cd_set_text_edit_str(917,(char *) sign_text);
	
	cd_set_edit_focus();
	while (dialog_not_toast)
		ModalDialog();	
	
	
	cd_kill_dialog(917,0);
	
	dialog_answer = minmax(1,500,dialog_answer)-1;
	
	party.age = (long) (3700) * (long) (dialog_answer);
}


void put_pc_graphics()
{
	short i;

	for (i = 3; i < 65; i++) {
		if (((store_trait_mode == 0) && (adven[which_pc_displayed].mage_spells[i - 3] == TRUE)) ||
		 ((store_trait_mode == 1) && (adven[which_pc_displayed].priest_spells[i - 3] == TRUE)))
			cd_set_led(991,i,1);
			else cd_set_led(991,i,0);
		}

	cd_set_item_text(991,69,adven[which_pc_displayed].name);
}
Boolean display_pc_event_filter (short item_hit)
{
	short pc_num;

	pc_num = which_pc_displayed;
			switch (item_hit) {
				case 1: case 65:
					dialog_not_toast = FALSE;
					break;

				case 66:
					do {
						pc_num = (pc_num == 0) ? 5 : pc_num - 1;
						} while (adven[pc_num].main_status == 0);
					which_pc_displayed = pc_num;
					put_pc_graphics();
					break;
				case 67:
					do {
						pc_num = (pc_num == 5) ? 0 : pc_num + 1;
						} while (adven[pc_num].main_status == 0);
					which_pc_displayed = pc_num;
					put_pc_graphics();	
					break;
					
				default:
					if (store_trait_mode == 0)
						adven[which_pc_displayed].mage_spells[item_hit - 3] = 
							1 - adven[which_pc_displayed].mage_spells[item_hit - 3];
						else
						adven[which_pc_displayed].priest_spells[item_hit - 3] = 
							1 - adven[which_pc_displayed].priest_spells[item_hit - 3];
					put_pc_graphics();							
					break;
				}	
	return FALSE;
}

void display_pc(short pc_num,short mode,short)
{
	short i;
	char label_str[256];
	
	if (adven[pc_num].main_status == 0) {
		for (pc_num = 0; pc_num < 6; pc_num++)
			if (adven[pc_num].main_status == 1)
				break;
		}
	which_pc_displayed = pc_num;
	store_trait_mode = mode;

	make_cursor_sword();

	cd_create_dialog_parent_num(991,0);

	for (i = 3; i < 65; i++) {
		get_str(label_str,(mode == 0) ? 7 : 8,(i - 3) * 2 + 1);
		cd_add_label(991,i,(char *)label_str,46);
		}
	put_pc_graphics();

	cd_set_pict(991,2,714 + mode);
	while (dialog_not_toast)
		ModalDialog();

	cd_kill_dialog(991,0);
}


Boolean display_alchemy_event_filter (short item_hit)
{
	short i;

			switch (item_hit) {
				case 1: case 3:
					dialog_not_toast = FALSE;
					break;
				default:
					party.alchemy[item_hit - 4] = 1 - party.alchemy[item_hit - 4];
					break;

				}
	for (i = 0; i < 20; i++) {
		if (party.alchemy[i] > 0)
			cd_set_led(996,i + 4,1);
			else cd_set_led(996,i + 4,0);
		}
					return FALSE;
}

void display_alchemy()
{
	short i;
	char *alch_names[] = {"Weak Curing Potion (1)","Weak Healing Potion (1)","Weak Poison (1)",
	"Weak Speed Potion (3)","Medium Poison (3)",
		"Medium Heal Potion (4)","Strong Curing (5)","Medium Speed Potion (5)",
		"Graymold Salve (7)","Weak Power Potion (9)",
		"Potion of Clarity (9)","Strong Poison (10)","Strong Heal Potion (12)","Killer Poison (12)",
		"Resurrection Balm (9)","Medium Power Potion (14)","Knowledge Brew (19)",
		"Strong Strength (10)","Bliss (18)","Strong Power (20)"
		};

	make_cursor_sword();

	cd_create_dialog_parent_num(996,0);


	for (i = 0; i < 20; i++) {
		cd_add_label(996,i + 4,alch_names[i],1083);
		if (party.alchemy[i] > 0)
			cd_set_led(996,i + 4,1);
			else cd_set_led(996,i + 4,0);
		}

	while (dialog_not_toast)
		ModalDialog();

	cd_kill_dialog(996,0);
	dialog_not_toast = TRUE;

}

void do_xp_keep(short pc_num,short)
{
					for (i = 0; i < 20; i++)
						adven[pc_num].skills[i] = store_skills[i];
					adven[pc_num].cur_health += store_h - adven[pc_num].max_health;
					adven[pc_num].max_health = store_h;
					adven[pc_num].cur_sp += store_sp - adven[pc_num].max_sp;
					adven[pc_num].max_sp = store_sp;

}

void draw_xp_skills()
{
	short i;
	for (i = 0; i < 19; i++) {
		if ((store_skp >= skill_cost[i]) && (store_g >= skill_g_cost[i]))
			cd_text_frame(1010,54 + i,11);
			else cd_text_frame(1010,54 + i,1);
		cd_set_item_num(1010,54 + i,store_skills[i]);
		}

		if ((store_skp >= 1) && (store_g >= 10))
			cd_text_frame(1010,52,11);
			else cd_text_frame(1010,52,1);
	cd_set_item_num(1010,52,store_h);
		if ((store_skp >= 1) && (store_g >= 15))
			cd_text_frame(1010,53,11);
			else cd_text_frame(1010,53,1);
	cd_set_item_num(1010,53,store_sp);
}


void do_xp_draw()

{


	char get_text[256];
	short pc_num;

	pc_num = store_train_pc;

			sprintf((char *) get_text, "%s",(char *) adven[pc_num].name);


	cd_set_item_text (1010, 51,get_text);

	for (i = 0; i < 20; i++)
		store_skills[i] = adven[pc_num].skills[i];
	store_h = adven[pc_num].max_health;
	store_sp = adven[pc_num].max_sp;
	store_g = 12000;
	store_skp = 10000;

	draw_xp_skills();

	update_gold_skills();
}

Boolean spend_xp_event_filter (short item_hit)
{
	short pc_num;

	Boolean talk_done = FALSE;

	pc_num = store_train_pc;

		switch (item_hit) {
			case 73:
				dialog_answer = 0;
				talk_done = TRUE;
				break;
	


			case 3: case 4:
					if (((store_h >= 250) && (item_hit == 4)) ||((store_h <= 2) && (item_hit == 3))) 
							play_sound(0);
						else {
							if (item_hit == 3) {
								store_g += 10;
								store_h -= 2;
								store_skp += 1;
								}
								else {
									if ((store_g < 10) || (store_skp < 1)) {

										play_sound(0);
										}
										else {
											store_g -= 10;
											store_h += 2;
											store_skp -= 1;
											}
								}

							update_gold_skills();
							cd_set_item_num(1010,52,store_h);
                     	draw_xp_skills();

						}
				break;

			case 5: case 6:
					if (((store_sp >= 150) && (item_hit == 6)) || ((store_sp <= 0) && (item_hit == 5)))
							play_sound(0);
						else {
							if (item_hit == 5) {
								store_g += 15;
								store_sp -= 1;
								store_skp += 1;
								}
								else {
									if ((store_g < 15) || (store_skp < 1)) {

										play_sound(0);
										}
										else {
											store_sp += 1;
											store_g -= 15;
											store_skp -= 1;
											}
								}

							update_gold_skills();
							cd_set_item_num(1010,53,store_sp);
							draw_xp_skills();
						}
				break;

			case 48:
					do_xp_keep(pc_num,0);
					dialog_answer = 1;
					talk_done = TRUE;
				break;

			case 49:

						do_xp_keep(pc_num,0);
						do {
							pc_num = (pc_num == 0) ? 5 : pc_num - 1;
						} while (adven[pc_num].main_status != 1);
						store_train_pc = pc_num;
						do_xp_draw();
				break;

			case 50:

						do_xp_keep(pc_num,0);
						do {
							pc_num = (pc_num == 5) ? 0 : pc_num + 1;
						} while (adven[pc_num].main_status != 1);
						store_train_pc = pc_num;
						do_xp_draw();
				break;

			case 100:
				break;

			default:
				if (item_hit >= 100) {
					}
				else {
				which_skill = (item_hit - 7) / 2;
				
				if (((store_skills[which_skill] >= skill_max[which_skill]) && ((item_hit - 7) % 2 == 1)) ||
					((store_skills[which_skill] == 0) && ((item_hit - 7) % 2 == 0) && (which_skill > 2)) ||
					((store_skills[which_skill] == 1) && ((item_hit - 7) % 2 == 0) && (which_skill <= 2)))
						play_sound(0);
					else {
						if ((item_hit - 7) % 2 == 0) {
							store_g += skill_g_cost[which_skill];
							store_skills[which_skill] -= 1;
							store_skp += skill_cost[which_skill];
							}
							else {
								if ((store_g < skill_g_cost[which_skill]) || (store_skp < skill_cost[which_skill])) {

									play_sound(0);
									}
									else {
										store_skills[which_skill] += 1;
										store_g -= skill_g_cost[which_skill];
										store_skp -= skill_cost[which_skill];
										}
							}

							update_gold_skills();
							cd_set_item_num(1010,54 + which_skill,store_skills[which_skill]);
							draw_xp_skills();
						}
				}	
				break;
			}
			
	store_train_pc = pc_num;
	if (talk_done == TRUE) {
		dialog_not_toast = FALSE;
		}
	return FALSE;
}
void update_gold_skills()
{
	csit(1010,47,"Lots!");
	csit(1010,46,"Lots!");
}
Boolean spend_xp(short pc_num, short, short parent)
//short mode; // 0 - create  1 - train
// returns 1 if cancelled
{
	char get_text[256],text2[256];


	store_train_pc = pc_num;

	make_cursor_sword();

	cd_create_dialog_parent_num(1010,parent);
	sprintf((char *) get_text,"Health (%d/%d)",1,10);
	cd_add_label(1010,52,(char *) get_text,1075);
	sprintf((char *) get_text,"Spell Pts. (%d/%d)",1,15);
	//cd_add_label(1010,5,get_text,1040);
	cd_add_label(1010,53,(char *) get_text,1075);
	for (i = 54; i < 73; i++) {
		get_str(text2,9,1 + 2 * (i - 54));
		sprintf((char *) get_text,"%s (%d/%d)",text2,skill_cost[i - 54],skill_g_cost[i - 54]);
		cd_add_label(1010,i,(char *) get_text,(i < 63) ? 1075 : 1069);
		}
	do_xp_draw();
	
	dialog_answer = 0;

	while (dialog_not_toast)
		ModalDialog();	
	

	cd_kill_dialog(1010,0);

	return dialog_answer;
}

void edit_xp_event_filter (short)
{
	char get_text[256];
	int tmp;
	
	cd_get_text_edit_str(1024,(char *) get_text);
	sscanf((char *) get_text,"%d",&tmp);
	dialog_answer = tmp;
	dialog_not_toast = FALSE;
}

void edit_xp(pc_record_type *pc)
{

	short item_hit;
	char sign_text[256];


	store_xp_pc = pc;

	make_cursor_sword();
	
	cd_create_dialog(1024,mainPtr);
		
	sprintf((char *) sign_text,"%d",(short)pc->experience);
	cd_set_text_edit_str(1024,(char *) sign_text);
	item_hit = get_tnl(store_xp_pc);
	cdsin(1024,8,item_hit);
	
	while (dialog_not_toast)
		ModalDialog();
	
	cd_kill_dialog(1024,0);
	
	if (dialog_answer < 0)
		dialog_answer = dialog_answer * -1;
	dialog_answer = minmax(0,10000,dialog_answer);
	
	pc->experience = dialog_answer;
}