openboe/oboe
2
0
Fork 0
Code Issues 146 Pull Requests 4 Actions Packages Projects Releases Wiki Activity
Files
e81c2c7a224c0652579ff9d387f7dcd31bccfa7d
oboe/Blades of Exile/boe.actions.cpp
Celtic Minstrel cf433e773d Well, at present the Windows code for the actual game almost compiles. The current goal is to undo all the things that Ormus did to make this job difficult. 
Basically, remove as many as possible of the dependencies of the source files in the tools and classes folders on source files not in those folders.
(With the exception that files in the classes folder may depend on files in the tools folder.)

In this commit, several changes were made.
- Project file modified, may need further modification.
- Many files renamed to match the Mac version.
- #include statements for system headers changed to use <> instead of "" (some already did, but many didn't).
- xxx.h headers replaced with cxxx headers where appropriate.
- Most sound-related variables moved from globvars.cpp to soundvars.cpp.
- The files originally named graphutil and gutils have been merged.
- Changed TRUE/FALSE to true/false.
- Changed exlsound to soundtool and mostly removed dependencies on the main game files; the exception is that it still uses mainPtr (which probably can't be helped)
  and print_nums (which should probably be incorporated into the MessageBox string).
- Possibly other things that were forgotten.

For some reason this commit also includes changes recently committed into the branch for osx.

git-svn-id: http://openexile.googlecode.com/svn/trunk@121 4ebdad44-0ea0-11de-aab3-ff745001d230
2009-08-03 19:00:23 +00:00

2873 lines
89 KiB
C++
Raw Blame History

#include <windows.h>
#include <cstdio> /* for sprintf */
#include <cstdlib>
#include <cmath>
#include "global.h"
#include "boe.main.h"
#include "boe.graphics.h"
#include "boe.fileio.h"
#include "boe.dlgutil.h"
#include "boe.locutils.h"
#include "boe.fields.h"
#include "boe.town.h"
#include <cmath>
#include "boe.text.h"
#include "boe.party.h"
#include "boe.monster.h"
#include "boe.specials.h"
#include "boe.newgraph.h"
#include "boe.combat.h"
#include "boe.items.h"
#include "tools/exlsound.h"
#include "boe.infodlg.h"
#include "boe.itemdata.h"
#include "tools/dlogtool.h"
#include "boe.graphutil.h"
#include "boe.actions.h"
#include "globvar.h"
extern short store_flags[3];
//extern BOOL timed_special_happened;
void init_screen_locs()
{
short i,j,k,l;
RECT startup_base = {5,279,306,327};
RECT shop_base = {12,63,267,99}; /**/
for (i = 0; i < 7; i++)
shopping_rects[0][i] = shop_base;
shopping_rects[0][1].right -= 35;
shopping_rects[0][2].right = shopping_rects[0][2].left + 28;
shopping_rects[0][3].top += 4;
shopping_rects[0][3].left += 28;
shopping_rects[0][4].top += 20;
shopping_rects[0][4].left += 154;
shopping_rects[0][5].top += 20;
shopping_rects[0][5].left += 34;
shopping_rects[0][6].top += 3;
shopping_rects[0][6].bottom -= 21;
shopping_rects[0][6].right -= 19;
shopping_rects[0][6].left = shopping_rects[0][6].right - 14;
for (i = 1; i < 8; i++)
for (j = 0; j < 7; j++) {
shopping_rects[i][j] = shopping_rects[0][j];
OffsetRect(&shopping_rects[i][j],0,i * 36);
}
for (i = 0; i < 6; i++) {
startup_button[i] = startup_base;
OffsetRect(&startup_button[i],301 * (i / 3) - 0,48 * (i % 3));
}
startup_top.top = 5;
startup_top.bottom = startup_button[0].top;
startup_top.left = 5;
startup_top.right = startup_button[3].right;
for (i = 0; i < 200; i++)
for (j = 0; j < 8; j++)
for (k = 0; k < 64; k++)
{
town_maps.town_maps[i][j][k] = 0;
}
for (i = 0; i < 100; i++)
for (k = 0; k < 6; k++)
for (l = 0; l < 48; l++)
o_maps.outdoor_maps[i][k][l] = 0;
for (i = 0; i < 7; i++) {
bottom_buttons[i].top = 383;
bottom_buttons[i].bottom = 420;
bottom_buttons[i].left = 5 + (i * 37);
bottom_buttons[i].right = bottom_buttons[i].left + 36;
town_buttons[i] = bottom_buttons[i];
}
for (i = 0; i < 5; i++) combat_buttons[i] = bottom_buttons[i];
town_buttons[7] = bottom_buttons[6];
town_buttons[5] = medium_buttons[0];
town_buttons[6] = medium_buttons[1];
for (i = 5; i < 9; i++) combat_buttons[i] = medium_buttons[i - 5];
// name, use, give, drip, info, sell/id each one 13 down
item_buttons[0][0].top = 17;
item_buttons[0][0].bottom = item_buttons[0][0].top + 12;
item_buttons[0][0].left = 3;
item_buttons[0][0].right = item_buttons[0][0].left + 185;
OffsetRect(&item_buttons[0][0],0,1);
item_buttons[0][1] = item_buttons[0][0];
item_buttons[0][1].left = 196;
item_buttons[0][1].right = 210;
item_buttons[0][2] = item_buttons[0][0];
item_buttons[0][2].left = 210;
item_buttons[0][2].right = 224;
item_buttons[0][3] = item_buttons[0][0];
item_buttons[0][3].left = 224;
item_buttons[0][3].right = 238;
item_buttons[0][4] = item_buttons[0][0];
item_buttons[0][4].left = 238;
item_buttons[0][4].right = 252;
item_buttons[0][5] = item_buttons[0][0];
item_buttons[0][5].left = 173;
item_buttons[0][5].right = 232;
for (i = 1; i < 8; i++)
for (j = 0; j < 6; j++) {
item_buttons[i][j] = item_buttons[0][j];
OffsetRect(&item_buttons[i][j],0,13 * i);
}
// name, hp, sp, info, trade
pc_buttons[0][0].top = 18;
pc_buttons[0][0].bottom = pc_buttons[0][0].top + 12;
pc_buttons[0][0].left = 3;
pc_buttons[0][0].right = pc_buttons[0][0].left + 177;
pc_buttons[0][1] = pc_buttons[0][0];
pc_buttons[0][1].left = 184;
pc_buttons[0][1].right = 214;
pc_buttons[0][2] = pc_buttons[0][0];
pc_buttons[0][2].left = 214;
pc_buttons[0][2].right = 237;
pc_buttons[0][3] = pc_buttons[0][0];
pc_buttons[0][3].left = 241;
pc_buttons[0][3].right = 253;
pc_buttons[0][4] = pc_buttons[0][0];
pc_buttons[0][4].left = 253;
pc_buttons[0][4].right = 262;
for (i = 1; i < 6; i++)
for (j = 0; j < 5; j++) {
pc_buttons[i][j] = pc_buttons[0][j];
OffsetRect(&pc_buttons[i][j],0,13 * i);
}
pc_help_button.top = 101;
pc_help_button.bottom = 114;
pc_help_button.left = 251;
pc_help_button.right = 267;
pc_area_rect.top = PC_WIN_UL_Y;
pc_area_rect.left = PC_WIN_UL_X;
pc_area_rect.bottom = PC_WIN_UL_Y + 116;
pc_area_rect.right = PC_WIN_UL_X + 271;
item_area_rect.top = ITEM_WIN_UL_Y;
item_area_rect.left = ITEM_WIN_UL_X;
item_area_rect.bottom = ITEM_WIN_UL_Y + 143;
item_area_rect.right = ITEM_WIN_UL_X + 271;
}
Boolean prime_time()
{
return ((overall_mode < 2) || (overall_mode == MODE_COMBAT))? TRUE : FALSE;
}
Boolean handle_action(POINT the_point, WPARAM wparam, LPARAM lparam )
{
short i,j,k,item_hit,which_t,s1,s2,s3;
Boolean are_done = FALSE;
Boolean need_redraw = FALSE, did_something = FALSE, need_reprint = FALSE;
Boolean town_move_done = FALSE,pc_delayed = FALSE;
location destination,cur_loc,loc_in_sec,cur_direction;
unsigned char storage;
short find_direction_from,ter_looked_at,button_hit = 12;
short store_sp[6];
char str[60];
POINT point_in_area;
Boolean right_button = FALSE;
Boolean ctrl_key = FALSE;
unsigned char ter;
if (lparam != -1) {
the_point.x -= ulx;
the_point.y -= uly;
}
if (lparam == -2) right_button = TRUE;
if (MK_CONTROL & wparam)
ctrl_key = TRUE;
for (i = 0; i < 20; i++)
special_queue[i].queued_special = -1;
end_scenario = FALSE;
// Now split off the extra stuff, like talking and shopping.
if (overall_mode == MODE_TALKING) {
handle_talk_event(the_point);
if (overall_mode != MODE_TALKING)
return FALSE;
}
if (overall_mode == MODE_SHOPPING) {
handle_shop_event(the_point);
if (overall_mode != MODE_SHOPPING)
return FALSE;
}
// First, figure out where party is
switch (overall_mode) {
case 0: case 35:
cur_loc = party.p_loc;
for (i = 0; i < 7; i++)
if (PtInRect ( &bottom_buttons[i], the_point) == TRUE) {
button_hit = i;
if (spell_forced == FALSE)
main_button_click(overall_mode,bottom_buttons[i]);
}
break;
case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 36:
cur_loc = center;
for (i = 0; i < 8; i++)
if (PtInRect (&town_buttons[i], the_point) == TRUE) {
button_hit = i;
if (spell_forced == FALSE)
main_button_click(overall_mode,town_buttons[i]);
}
break;
case MODE_TALKING:
case MODE_SHOPPING:
break;
default:
cur_loc = (overall_mode > MODE_COMBAT) ? center : pc_pos[current_pc];
for (i = 0; i < 9; i++)
if (PtInRect (&combat_buttons[i], the_point) == TRUE) {
button_hit = i;
if (spell_forced == FALSE)
main_button_click(overall_mode,combat_buttons[i]);
}
break;
}
// Then, handle a button being hit.
if (button_hit != 12)
switch(button_hit)
{
case 0: case 1:
if (someone_awake() == FALSE) {
ASB("Everyone's asleep/paralyzed.");
need_reprint = TRUE;
need_redraw = TRUE;
}
if (overall_mode == MODE_OUTDOORS) {
cast_spell(button_hit,0);
spell_forced = FALSE;
need_reprint = TRUE;
need_redraw = TRUE;
}
else if (overall_mode == MODE_TOWN) {
for (i = 0; i < 6; i++)
store_sp[i] = adven[i].cur_sp;
cast_spell(button_hit,1);
spell_forced = FALSE;
need_reprint = TRUE;
need_redraw = TRUE;
for (i = 0; i < 6; i++)
if (store_sp[i] != adven[i].cur_sp)
did_something = TRUE;
}
else if (overall_mode == 3) {
add_string_to_buf(" Cancelled. ");
overall_mode = MODE_TOWN;
}
else if (overall_mode == MODE_COMBAT) {
if (button_hit == 0) {
did_something = combat_cast_mage_spell();
need_reprint = TRUE;
}
if (button_hit == 1) {
did_something = combat_cast_priest_spell();
need_reprint = TRUE;
}
need_redraw = TRUE;
spell_forced = FALSE;
redraw_terrain();
}
else if ((overall_mode == 11) || (overall_mode == 14)) {
add_string_to_buf(" Cancelled. ");
overall_mode = MODE_COMBAT;
center = pc_pos[current_pc];
pause(10);
need_redraw = TRUE;
}
put_pc_screen();
put_item_screen(stat_window,0);
break;
case 2:
if (overall_mode == MODE_OUTDOORS) overall_mode = MODE_LOOK_OUTDOORS;
if (overall_mode == MODE_TOWN) overall_mode = MODE_LOOK_TOWN;
if (overall_mode == MODE_COMBAT) overall_mode = MODE_LOOK_COMBAT;
add_string_to_buf("Look: Select a space. You can also ");
add_string_to_buf(" right click to look.");
need_redraw = TRUE;
break;
case 3:
if (overall_mode == MODE_COMBAT) {
add_string_to_buf("Parry. ");
char_parry();
did_something = TRUE;
need_reprint = TRUE;
need_redraw = TRUE;
}
if (overall_mode == MODE_TOWN) {
overall_mode = MODE_TALK_TOWN;
add_string_to_buf("Talk: Select someone ");
need_reprint = TRUE;
}
if (overall_mode == MODE_OUTDOORS) { // Resting
i = 0;
ter = out[party.p_loc.x][party.p_loc.y];
if (party.in_boat >= 0)
add_string_to_buf("Rest: Not in boat. ");
else if (adven.isPoisoned())
add_string_to_buf("Rest: Someone poisoned. ");
else if (party.food <= 12)
add_string_to_buf("Rest: Not enough food. ");
else if (nearest_monster() <= 3)
add_string_to_buf("Rest: Monster too close. ");
else if ((scenario.ter_types[ter].special >= 2) && (scenario.ter_types[ter].special <= 6))
add_string_to_buf("Rest: It's dangerous here.");////
else if (party.isFlying())
add_string_to_buf("Rest: Not while flying. ");
else {
add_string_to_buf("Resting... ");
print_buf();
play_sound(20);
draw_rest_screen();
pause(25);
party.food -= 6;
while (i < 50) {
increase_age();
if (get_ran(1,1,2) == 2)
do_monsters();
if (get_ran(1,1,70) == 10)
create_wand_monst();
if (nearest_monster() <= 3) {
i = 200;
add_string_to_buf(" Monsters nearby.");
}
if(timed_special_happened && PSD[309][4] == 1){
i=200;
add_string_to_buf(" Rest interrupted.");
}
else i++;
}
put_pc_screen();
}
if (i == 50) {
if(PSD[309][6] == 1){
for(i=0; i < 115; i++){
party.age += 10;
// Specials countdowns
if ((party.age % 500 == 0) && (get_ran(1,0,5) == 3) && (adven.hasAbil(52) == true)) {
i = 200;
adven.disease(2);
}
// Plants and magic shops
if (party.age % 4000 == 0) refresh_store_items();
timed_special_happened = special_increase_age(0);
if(timed_special_happened && PSD[309][4] == 1){
i=200;
add_string_to_buf(" Rest interrupted.");
}
}
if(i == 115){
add_string_to_buf(" Rest successful. ");
adven.heal(get_ran(5,1,10));
adven.restoreSP(50);
put_pc_screen();
}
}
else{
party.age += 1200;////
add_string_to_buf(" Rest successful. ");
adven.heal(get_ran(5,1,10));
adven.restoreSP(50);
put_pc_screen();
}
}
need_reprint = TRUE;
need_redraw = TRUE;
}
break;
case 4:
if (overall_mode == MODE_OUTDOORS) {
give_help(62,0,0);
display_map();
SetCursor(sword_curs);
SetFocus(mainPtr);
}
if ((overall_mode == MODE_TOWN) || (overall_mode == MODE_COMBAT)) {
if (party.in_boat >= 0) {
j = 0;
add_string_to_buf("Get: Not while in boat. ");
}
if (overall_mode == MODE_TOWN)
j = get_item(c_town.p_loc,6,FALSE);
else {
j = get_item(pc_pos[current_pc],current_pc,FALSE);
take_ap(4);
}
if (j > 0) {
put_item_screen(stat_window, 0);
put_pc_screen();
need_redraw = TRUE;
did_something = TRUE;
}
need_reprint = TRUE;
}
break;
case 5:
if (overall_mode == MODE_OUTDOORS) {
save_file(0);
need_redraw = TRUE;
current_switch = 6;
break;
}
if (overall_mode == MODE_TOWN) {
add_string_to_buf("Use: Select a space or item.");
add_string_to_buf(" (Hit button again to cancel.)");
need_reprint = TRUE;
overall_mode = 4;
}
else if (overall_mode == 4) {
overall_mode = 1;
need_reprint = TRUE;
add_string_to_buf(" Cancelled.");
}
if (overall_mode == MODE_COMBAT) {
need_reprint = TRUE;
need_redraw = TRUE;
pc_delayed = TRUE;
}
break;
case 6:
if (overall_mode == 0) {
do_load();
break;
}
if (overall_mode == 1) {
give_help(62,0,0);
display_map();
SetCursor(sword_curs);
SetFocus(mainPtr);
}
if (overall_mode == MODE_COMBAT) {
load_missile();
need_reprint = TRUE;
redraw_terrain();
}
else if ((overall_mode == 12) || (overall_mode == 13)) {
add_string_to_buf(" Cancelled. ");
center = pc_pos[current_pc];
pause(10);
need_redraw = TRUE;
overall_mode = MODE_COMBAT;
}
break;
case 7:
if (overall_mode == MODE_TOWN) {
if (party.in_boat >= 0) {
need_reprint = TRUE;
add_string_to_buf("Combat: Not while in boat. ");
}
else if (party.in_horse >= 0) {
need_reprint = TRUE;
add_string_to_buf("Combat: Not while on horseback. ");
}
else {
add_string_to_buf("Combat! ");
play_sound(18);
need_reprint = TRUE;
start_town_combat(party.direction);
need_redraw = TRUE;
current_pc = 6;
did_something = TRUE;
put_pc_screen();
}
}
else if (overall_mode == MODE_COMBAT) {
if (which_combat_type == 0) {
if (hit_end_c_button() == TRUE) {
end_town_mode(0,c_town.p_loc);
play_sound(93);
add_string_to_buf("End combat. ");
handle_wandering_specials(1);
menu_activate(1);
put_pc_screen();
set_stat_window(current_pc);
}
else add_string_to_buf("Can't end combat yet. ");
}
else {
party.direction = end_town_combat();
center = c_town.p_loc;
set_stat_window(current_pc);
redraw_screen(0);
play_sound(93);
need_reprint = TRUE;
need_redraw = TRUE;
did_something = TRUE;
menu_activate(1);
}
need_redraw = TRUE;
}
break;
case 8:
if (overall_mode == MODE_COMBAT) {
if (combat_active_pc == INVALID_PC) {
add_string_to_buf("This PC now active. ");
combat_active_pc = current_pc;
}
else {
add_string_to_buf("All PC's now active. ");
current_pc = combat_active_pc;
combat_active_pc = INVALID_PC;
}
need_reprint = TRUE;
}
break;
}
// Begin : click in terrain
if ((PtInRect ( &world_screen,the_point)) && ((is_out()) || (is_town()) || (is_combat())) ){
i = (the_point.x - 23) / 28;
j = (the_point.y - 23) / 36;
destination = cur_loc;
if ((overall_mode == 0) || (overall_mode == 1) || (overall_mode == MODE_COMBAT))
if ((i == 4) && (j == 4) && (right_button == FALSE)) { // Pausing
if (overall_mode == MODE_COMBAT) {
char_stand_ready();
add_string_to_buf("Stand ready. ");
if (adven[current_pc].status[STATUS_WEBS] > 0) {
add_string_to_buf("You clean webs. ");
move_to_zero(adven[current_pc].status[STATUS_WEBS]);
move_to_zero(adven[current_pc].status[STATUS_WEBS]);
put_pc_screen();
}
check_fields(pc_pos[current_pc],2,current_pc);
}
else {
add_string_to_buf("Pause.");
for (k = 0; k < 6; k++)
if ((adven[k].isAlive()) && (adven[k].status[STATUS_WEBS] > 0)) {
sprintf((char *) str,"%s cleans webs.",adven[k].name);
add_string_to_buf((char *) str);
move_to_zero(adven[k].status[STATUS_WEBS]);
move_to_zero(adven[k].status[STATUS_WEBS]);
}
if (party.in_horse >= 0) {
if (overall_mode == 0) {
party.horses[party.in_horse].which_town = 200;
party.horses[party.in_horse].horse_loc_in_sec = party.p_loc.toLocal();
party.horses[party.in_horse].horse_loc = party.p_loc;
party.horses[party.in_horse].horse_sector.x = party.outdoor_corner.x + party.i_w_c.x;
party.horses[party.in_horse].horse_sector.y = party.outdoor_corner.y + party.i_w_c.y;
party.in_horse = -1;
}
else if (overall_mode == 1){
party.horses[party.in_horse].horse_loc = c_town.p_loc;
party.horses[party.in_horse].which_town = c_town.town_num;
party.in_horse = -1;
}
}
put_pc_screen();
check_fields(c_town.p_loc,1,0);
}
did_something = TRUE;
need_redraw = TRUE;
}
else if (right_button == FALSE) {
cur_direction = get_cur_direction(the_point);
destination.x += cur_direction.x;
destination.y += cur_direction.y;
// Begin: Moving
if ((right_button == FALSE) && (overall_mode == MODE_COMBAT)) {
if (pc_combat_move(destination) == TRUE) {
center = pc_pos[current_pc];
did_something = TRUE;
update_explored(destination);
}
need_redraw = TRUE;
menu_activate(1);
}
if ((right_button == FALSE) && (overall_mode == 1)) {
if (someone_awake() == FALSE) {
ASB("Everyone's asleep/paralyzed.");
need_reprint = TRUE;
need_redraw = TRUE;
}
else {
need_redraw = TRUE;
if (town_move_party(destination,0) == TRUE) {
did_something = TRUE;
center = c_town.p_loc;
update_explored(destination);
if (loc_off_act_area(c_town.p_loc) == TRUE) {
destination = end_town_mode(0,destination);
town_move_done = TRUE;
FlushEvents(2);
}
}
else need_reprint = TRUE;
menu_activate(1);
}
}
if ((right_button == FALSE) && (overall_mode == 0)) {
if (outd_move_party(destination,town_move_done) == TRUE) {
center = destination;
need_redraw = TRUE;
did_something = TRUE;
update_explored(party.p_loc);
menu_activate(1);
}
else need_redraw = TRUE;
storage = out[party.p_loc.x][party.p_loc.y];
if (scenario.ter_types[storage].special == 21) {//// town entry
if (party.direction == 0) find_direction_from = 2;
else if (party.direction == 4) find_direction_from = 0;
else if (party.direction < 4) find_direction_from = 3;
else find_direction_from = 1;
for (i = 0; i < 8; i++)
if (same_point(party.loc_in_sec,outdoors[party.i_w_c.x][party.i_w_c.y].exit_locs[i]) == TRUE) {
which_t = outdoors[party.i_w_c.x][party.i_w_c.y].exit_dests[i];
if (which_t >= 0)
start_town_mode(outdoors[party.i_w_c.x][party.i_w_c.y].exit_dests[i], find_direction_from);
if (is_town() == TRUE) {
need_redraw = FALSE;
i = 8;
if (party.in_boat >= 0)
party.boats[party.in_boat].which_town = c_town.town_num;
if (party.in_horse >= 0)
party.horses[party.in_horse].which_town = c_town.town_num;
}
}
}
} // End if(overall_mode == 0)
}
// End: Moving
// Begin: Looking at something
if ((right_button == TRUE) || (overall_mode == 35) || (overall_mode == 36) || (overall_mode == 37)) {
destination.x = destination.x + i - 4;
destination.y = destination.y + j - 4;
need_reprint = TRUE;
// if ((can_see(cur_loc,destination) >= 4) || ((overall_mode != 35) && (loc_off_world(destination) == TRUE)))
if ((is_combat() == FALSE) && (party_can_see(destination) == 6))
add_string_to_buf(" Can't see space. ");
else if ((is_combat() == TRUE) && (can_see(pc_pos[current_pc],destination,0) >= 4))
add_string_to_buf(" Can't see space. ");
else {
add_string_to_buf("You see... ");
ter_looked_at = do_look(destination);
if ((is_town()) || (is_combat()))
if (adjacent(c_town.p_loc,destination) == TRUE)
if (adj_town_look(destination) == TRUE)
need_redraw = TRUE;
if (scenario.ter_types[ter_looked_at].special == 11) {
print_buf();
need_reprint = FALSE;
k = 0;
if (is_town()) {
while (k < 15) {
if (same_point (destination, c_town.town.sign_locs[k]) == TRUE) {
need_reprint = TRUE;
if (adjacent(c_town.town.sign_locs[k],c_town.p_loc)==TRUE)
do_sign(c_town.town_num,k,(short) ter_looked_at);
else add_string_to_buf(" Too far away to read sign. ");
}
k++;
}
}
if (is_out()) {
loc_in_sec = party.loc_in_sec;
loc_in_sec.x += i - 4;
loc_in_sec.y += j - 4;
while (k < 8) {
if (same_point (loc_in_sec,
outdoors[party.i_w_c.x][party.i_w_c.y].sign_locs[k]) == TRUE) {
need_reprint = TRUE;
if (adjacent(outdoors[party.i_w_c.x][party.i_w_c.y].sign_locs[k],party.loc_in_sec)==TRUE)
do_sign((short) (200 + get_outdoor_num()),k,(short) ter_looked_at);
else add_string_to_buf(" Too far away to read sign. ");
}
k++;
}
}
}
}
// If option not pressed, looking done, so restore center
if ((ctrl_key == FALSE) && (right_button == FALSE)) {
if (overall_mode == 37) {
overall_mode = 10;
center = pc_pos[current_pc];
pause(5);
need_redraw = TRUE;
}
else if (overall_mode == 36) {
overall_mode = 1;
center = c_town.p_loc;
need_redraw = TRUE;
}
else if (overall_mode == 35)
overall_mode = 0;
}
}
// End: looking at something
// Begin : talking to someone
if (overall_mode == 2) {
destination.x = destination.x + i - 4;
destination.y = destination.y + j - 4;
if ((can_see(cur_loc,destination,0) >= 4) || (loc_off_world(destination) == TRUE)) {
add_string_to_buf(" Can't see space ");
need_reprint = TRUE;
}
else {
for (i = 0; i < T_M; i++) {
if (monst_on_space(destination,i) == TRUE) {
did_something = TRUE;
need_redraw = TRUE;
if (c_town.monst.dudes[i].attitude % 2 == 1) {
add_string_to_buf(" Creature is hostile. ");
}
else if ((c_town.monst.dudes[i].summoned > 0)////
|| (c_town.monst.dudes[i].monst_start.personality < 0))
add_string_to_buf("Talk: No response. ");
else{
start_talk_mode(i,c_town.monst.dudes[i].monst_start.personality,c_town.monst.dudes[i].number,
c_town.monst.dudes[i].monst_start.facial_pic);
did_something = FALSE;
need_redraw = FALSE;
}
break;
}
}
if ((did_something == FALSE) && (overall_mode != 20)){
add_string_to_buf(" Nobody there");
need_reprint = TRUE;
}
if (overall_mode != 20)
overall_mode = 1;
}
if (overall_mode != 20)
need_redraw = TRUE;
}
// End : talking to someone
// Begin : Targeting a space
if ((overall_mode == 11) || (overall_mode == 12) || (overall_mode == 13) ||
(overall_mode == 14) || (overall_mode == MODE_DROPPING)) {
destination.x += i - 4;
destination.y += j - 4;
if (overall_mode == 11)
do_combat_cast(destination);
if ((overall_mode == 13) || (overall_mode == 12))
fire_missile(destination);
if (overall_mode == 14) {
place_target(destination);
need_reprint = TRUE;
}
if (overall_mode != 14) {
did_something = TRUE;
center = pc_pos[current_pc];
}
if (overall_mode == MODE_DROPPING) { // dropping
if (adjacent(pc_pos[current_pc],destination) == FALSE)
add_string_to_buf("Drop: must be adjacent.");
else {
adven[current_pc].dropItem(store_drop_item,destination);
take_ap(1);
}
}
pause(6);
need_redraw = TRUE;
if ((overall_mode >= 10) && (overall_mode < 20) && (overall_mode != 14))
overall_mode = 10;
put_pc_screen();
put_item_screen(stat_window,0);
}
if ((overall_mode > 2) && (overall_mode < 6)) {
destination.x += i - 4;
destination.y += j - 4;
switch (overall_mode) {
case 3:
cast_town_spell(destination);
did_something = TRUE;
break;
case 4:
if (adjacent(destination,c_town.p_loc) == FALSE)
add_string_to_buf(" Must be adjacent. ");
else {
did_something = use_space(destination);
}
break;
case 5:
if (adjacent(c_town.p_loc,destination) == FALSE)
add_string_to_buf("Drop: must be adjacent.");
else if (get_obscurity(destination.x,destination.y) == 5)
ASB("Drop: Space is blocked.");
else adven[current_pc].dropItem(store_drop_item,destination);
break;
}
overall_mode = 1;
need_redraw = TRUE;
put_pc_screen();
put_item_screen(stat_window,0);
}
// End : Targeting a space
}
//End: click in terrain
// Begin: Screen shift
if ((overall_mode == 11) || (overall_mode == MODE_FIRING) || (overall_mode == MODE_THROWING) || (overall_mode == 14)
|| (overall_mode == 37) || (overall_mode == 36)) {
if ((PtInRect ( &border_rect[0],the_point)) && (center.y > c_town.town.in_town_rect.top)
&& (center.y > 4)) {
center.y--;
need_redraw = TRUE;
}
if ((PtInRect ( &border_rect[1],the_point)) && (center.x > c_town.town.in_town_rect.left)
&& (center.x > 4)) {
center.x--;
need_redraw = TRUE;
}
if ((PtInRect ( &border_rect[2],the_point)) && (center.y < c_town.town.in_town_rect.bottom)
&& (center.y < town_size[town_type] - 5)) {
center.y++;
need_redraw = TRUE;
}
if ((PtInRect (&border_rect[3],the_point)) && (center.x < c_town.town.in_town_rect.right)
&& (center.x < town_size[town_type] - 5)) {
center.x++;
need_redraw = TRUE;
}
}
// End: Screen shift
// Process clicks in PC stats area
if (PtInRect (&pc_area_rect,the_point)) {
point_in_area = the_point;
point_in_area.x -= PC_WIN_UL_X;
point_in_area.y -= PC_WIN_UL_Y;
if (PtInRect (&pc_help_button,point_in_area)) {
OffsetRect(&pc_help_button,PC_WIN_UL_X,PC_WIN_UL_Y);
arrow_button_click(pc_help_button);
OffsetRect(&pc_help_button,-1 * PC_WIN_UL_X,-1 * PC_WIN_UL_Y);
FCD(1082,0);
}
for (i = 0; i < 6; i++)
for (j = 0; j < 5; j++)
if ((pc_area_button_active[i][j] > 0) && (PtInRect (&pc_buttons[i][j],point_in_area))) {
OffsetRect(&pc_buttons[i][j],PC_WIN_UL_X,PC_WIN_UL_Y);
arrow_button_click(pc_buttons[i][j]);
OffsetRect(&pc_buttons[i][j],-1 * PC_WIN_UL_X,-1 * PC_WIN_UL_Y);
switch (j) {
case 0:
if ((prime_time() == FALSE) && (overall_mode != 21)&& (overall_mode != 20))
add_string_to_buf("Set active: Finish what you're doing first.");
else if (is_combat())
add_string_to_buf("Set active: Can't set this in combat.");
else if ((adven[i].isAlive() == false) &&
((overall_mode != 21) || (store_shop_type != 3)))
add_string_to_buf("Set active: PC must be here & active.");
else {
current_pc = i;
set_stat_window (i);
if (overall_mode == 21)
sprintf((char *) str,"Now shopping: %s",adven[i].name);
else sprintf((char *) str,"Now active: %s",adven[i].name);
add_string_to_buf((char *)str);
adjust_spell_menus();
}
break;
case 1:
sprintf((char *) str,"%s has %d health out of %d.",adven[i].name,
adven[i].cur_health,adven[i].max_health);
add_string_to_buf((char *)str);
break;
case 2:
sprintf((char *) str,"%s has %d spell pts. out of %d.",adven[i].name,
adven[i].cur_sp,adven[i].max_sp);
add_string_to_buf((char *)str);
break;
case 3: // pc info
give_pc_info(i);
break;
case 4: // trade places
if (prime_time() == FALSE)
add_string_to_buf("Trade places: Finish what you're doing first.");
else if (is_combat())
add_string_to_buf("Trade places: Can't do this in combat.");
else {
switch_pc(i);
}
break;
}
}
need_reprint = TRUE;
put_pc_screen();
put_item_screen(stat_window,0);
if (overall_mode == 21) {
set_up_shop_array();
draw_shop_graphics(0,pc_buttons[0][0]);
}
}
// Process clicks in item stats area
if (PtInRect (&item_area_rect,the_point)) {
point_in_area = the_point;
point_in_area.x -= ITEM_WIN_UL_X;
point_in_area.y -= ITEM_WIN_UL_Y;
for (i = 0; i < 9; i++)
if ((item_bottom_button_active[i] > 0) && (PtInRect (&item_screen_button_rects[i],point_in_area))) {
OffsetRect(&item_screen_button_rects[i],ITEM_WIN_UL_X,ITEM_WIN_UL_Y);
arrow_button_click(item_screen_button_rects[i]);
OffsetRect(&item_screen_button_rects[i],-1 * ITEM_WIN_UL_X,-1 * ITEM_WIN_UL_Y);
switch (i) {
case 0: case 1: case 2: case 3: case 4: case 5:
if ((prime_time() == FALSE) && (overall_mode != 20) && (overall_mode != 21))
add_string_to_buf("Set active: Finish what you're doing first.");
else {
if (!(is_combat())) {
if ((adven[i].isAlive() == false) &&
((overall_mode != 21) || (store_shop_type != 12)))
add_string_to_buf("Set active: PC must be here & active.");
else {
current_pc = i;
sprintf((char *) str,"Now active: %s",adven[i].name);
add_string_to_buf((char *)str);
adjust_spell_menus();
}
}
set_stat_window(i);
if (overall_mode == 21) {
set_up_shop_array();
draw_shop_graphics(0,item_screen_button_rects[i]); // rect is dummy
}
}
break;
case 6: // special screen
give_help(50,0,0);
set_stat_window(6);
break;
case 7: // jobs
give_help(50,0,0);
set_stat_window(7);
break;
case 8: // help
FCD(1090,0);
break;
}
}
if (stat_window < 7) {
for (i = 0; i < 8; i++)
for (j = 0; j < 6; j++)
if ((item_area_button_active[i][j] > 0) && (PtInRect (&item_buttons[i][j],point_in_area))) {
OffsetRect(&item_buttons[i][j],ITEM_WIN_UL_X,ITEM_WIN_UL_Y);
if ((j > 0) || (stat_screen_mode < 2))
arrow_button_click(item_buttons[i][j]);
OffsetRect(&item_buttons[i][j],-1 * ITEM_WIN_UL_X,-1 * ITEM_WIN_UL_Y);
item_hit = GetScrollPos(item_sbar,SB_CTL) + i;
if ((prime_time() == FALSE) && (j < 4)
&& ((j > 0) || (stat_screen_mode < 2)))
add_string_to_buf("Item action: Finish what you're doing first.");
else switch (j) {
case 0: // equip
if (overall_mode == 4) {
add_string_to_buf("Note: Clicking 'U' button by item");
add_string_to_buf(" uses the item.");
use_item(stat_window, item_hit);
overall_mode = 1;
take_ap(3);
}
else if (prime_time() == TRUE) {
adven[stat_window].equipItem(item_hit);
take_ap(1);
}
break;
case 1: // use
use_item(stat_window, item_hit);
if ((overall_mode != 3) && (overall_mode != 11))
did_something = TRUE;
take_ap(3);
break;
case 2: // give
adven[stat_window].giveThing(item_hit);
did_something = TRUE;
need_redraw = TRUE;
take_ap(1);
break;
case 3: // drop
if (stat_window == 6){
use_spec_item(spec_item_array[item_hit]);
need_redraw = TRUE;////
}
else if (is_out())
adven[stat_window].dropItem(item_hit,party.p_loc);
else {
add_string_to_buf("Drop item: Click where to drop item.");
store_drop_item = item_hit;
overall_mode = (is_town()) ? 5 : 15;
}
break;
case 4: // info
if (stat_window == 6)
put_spec_item_info(spec_item_array[item_hit]);
else display_pc_item(stat_window, item_hit,adven[stat_window].items[item_hit],0);
break;
case 5: // sell? That this codes was reached indicates that the item was sellable
switch (stat_screen_mode) {
case 2: // identify item
if (party.takeGold(shop_identify_cost, false) == false)
ASB("Identify: You don't have the gold.");
else {
play_sound(68);
ASB("Your item is identified.");
adven[stat_window].items[item_hit].item_properties =
adven[stat_window].items[item_hit].item_properties | 1;
}
break;
case 3: case 4: case 5: // various selling
play_sound(39);
party.gold += store_selling_values[i];
ASB("You sell your item.");
adven[stat_window].takeItem(item_hit);
break;
case 6: // enchant item
if (party.takeGold(store_selling_values[i], false) == false)
ASB("Enchant: You don't have the gold.");
else {
play_sound(51);
ASB("Your item is now enchanted.");
adven[stat_window].enchantWeapon(item_hit,shop_identify_cost,store_selling_values[i]);
}
break;
}
break;
}
}
}
put_pc_screen();
put_item_screen(stat_window,0);
need_reprint = TRUE;
}
// Alchemy
if (the_point.x == 1000) {
need_reprint = TRUE;
need_redraw = TRUE;
if (overall_mode == MODE_TOWN) {
do_alchemy();
}
else add_string_to_buf("Alchemy: Only in town.");
}
// Wait 80 spaces (town only)
if (the_point.x == 1001) {
need_reprint = TRUE;
need_redraw = TRUE;
if (party_sees_a_monst() == TRUE)
add_string_to_buf("Long wait: Monster in sight.");
else {
add_string_to_buf("Long wait... ");
print_buf();
play_sound(-20);
draw_rest_screen();
pause(10);
for (i = 0; i < 6; i++){
store_sp[i] = adven[i].cur_health;
adven[i].status[STATUS_WEBS] = 0;
}
}
i = 0;
while ((i < 80) && (party_sees_a_monst() == FALSE)){
increase_age();
do_monsters();
do_monster_turn();
j = get_ran(1,1,160 - c_town.difficulty);
if (j == 10)
create_wand_monst();
if(timed_special_happened && PSD[309][4] == 1){
i = 200;
add_string_to_buf(" Waiting interrupted.");
}
else{
for (j = 0; j < 6; j++)
if (adven[j].cur_health < store_sp[j]) {
i = 200;
j = 6;
add_string_to_buf(" Waiting interrupted.");
}
if (party_sees_a_monst() == TRUE) {
i = 200;
add_string_to_buf(" Monster sighted! ");
}
else i++;
}
}
put_pc_screen();
}
// If in combat and pc delayed, jump forward a step
if (pc_delayed == TRUE)
{
initiate_redraw();
current_pc++;
combat_next_step();
set_stat_window(current_pc);
put_pc_screen();
}
// At this point, see if any specials have been queued up, and deal with them
for (i = 0; i < 20; i++)
if (special_queue[i].queued_special >= 0) {
s3 = 0;
switch (i) {
case 0:
run_special(5,2,special_queue[0].queued_special,c_town.p_loc,&s1,&s2,&s3);
break;
case 1:
run_special(6,2,special_queue[1].queued_special,party.p_loc,&s1,&s2,&s3);
break;
default:
long store_time = party.age;
party.age = special_queue[i].trigger_time;
// Call run_special() with the other data from special_queue[i] (which is a pending_special_type struct)
run_special(special_queue[i].mode, special_queue[i].type, special_queue[i].queued_special, special_queue[i].where, &s1, &s2, &s3);
party.age = max(party.age, store_time);
queue_position--; //free the queue slot
break;
}
if (s3 > 0)
initiate_redraw();
}
// Handle non-PC stuff (like monsters) if the party actually did something
if (did_something == TRUE) {
draw_map(modeless_dialogs[5],5);
if ((overall_mode >= 10) && (overall_mode < 20)) {
if (no_pcs_left() == TRUE) {
end_combat();
if (which_combat_type == 0) {
end_town_mode(0,party.p_loc);
add_string_to_buf("Fled the combat. ");
handle_wandering_specials(2);
}
}
else {
if (need_redraw == TRUE) {
initiate_redraw();
if ((combat_active_pc == 6) || (pc_moves[combat_active_pc] > 0))
need_redraw = FALSE;
}
if (combat_next_step() == TRUE)
need_redraw = TRUE;
}
}
else {
increase_age();
if (!(is_out()) || ((is_out()) && (party.age % 10 == 0))) // no monst move is party outdoors and on horse
do_monsters();
if (overall_mode != 0) do_monster_turn();
// Wand monsts
if ((overall_mode == 0) && (party_toast() == FALSE) && (party.age % 10 == 0))
{
if (get_ran(1,1,70 + PSD[306][8] * 200) == 10)
create_wand_monst();
for (i = 0; i < 10; i++)
if (party.out_c[i].exists == TRUE)
if (((adjacent(party.p_loc,party.out_c[i].m_loc) == TRUE) ||
(party.out_c[i].what_monst.cant_flee >= 10))
&& (party.in_boat < 0) && (party.isFlying() == false)) {
store_wandering_special = party.out_c[i].what_monst;
if (handle_wandering_specials(0) == TRUE)
initiate_outdoor_combat(i);
party.out_c[i].exists = FALSE;
// Get rid of excess keyclicks
FlushEvents(2);
need_reprint = FALSE;
i = 20;
}
}
if (overall_mode == 1)
if (get_ran(1,1,160 - c_town.difficulty + PSD[306][8] * 200) == 2)
create_wand_monst();
}
}
if (need_redraw == TRUE) initiate_redraw();
if ((need_reprint == TRUE) || (need_redraw == TRUE)) print_buf();
if (end_scenario == TRUE) {
reload_startup();
in_startup_mode = TRUE;
in_scen_debug=FALSE;
ghost_mode = FALSE;
draw_startup(0);
menu_activate(1);
if (FCD(901,0) == 2) save_file(1);
}
if (party_toast() == TRUE) {
for (i = 0; i < 6; i++)
if (adven[i].main_status == MAIN_STATUS_FLED) {
adven[i].main_status = MAIN_STATUS_ALIVE;
if (is_combat()) {
end_town_mode(0,c_town.p_loc);
add_string_to_buf("End combat. ");
handle_wandering_specials(2);
}
}
if (party.stuff_done[304][0] > 0) {
end_split(0);
if (is_combat()) overall_mode = 1;
center = c_town.p_loc;
}
menu_activate(1);
initiate_redraw();
put_pc_screen();
put_item_screen(stat_window,0);
if (party_toast() == TRUE)
{
play_sound(13);
handle_death();
if (All_Done == TRUE) return TRUE;
}
}
are_done = All_Done;
return are_done;
}
Boolean someone_awake()
{
short i;
for (i = 0; i < 6; i++)
if ((adven[i].isAlive()) && (adven[i].status[STATUS_ASLEEP] <= 0) && (adven[i].status[STATUS_PARALYZED] <= 0))
return TRUE;
return FALSE;
}
void check_cd_event(HWND hwnd,UINT message, WPARAM wparam, LPARAM lparam)
{
POINT press;
short wind_hit = -1,item_hit = -1;
switch (message) {
case WM_COMMAND:
// pare out command messages sent from text box
///GK2 if (wparam == 150) break;
if (LOWORD(wparam) == 150) break;
cd_find_dlog(hwnd,&wind_hit,&item_hit); // item_hit is dummy
item_hit = (short) LOWORD(wparam);
break;
case WM_KEYDOWN:
wind_hit = cd_process_syskeystroke(hwnd, wparam, lparam,&item_hit);
break;
case WM_CHAR:
wind_hit = cd_process_keystroke(hwnd, wparam, lparam,&item_hit);
break;
case WM_LBUTTONDOWN:
press = MAKEPOINT(lparam);
wind_hit = cd_process_click(hwnd,press, wparam, lparam,&item_hit);
break;
case WM_RBUTTONDOWN:
press = MAKEPOINT(lparam);
wparam = wparam | MK_CONTROL;
wind_hit = cd_process_click(hwnd,press, wparam, lparam,&item_hit);
break;
case WM_PAINT:
cd_redraw(hwnd);
break;
}
if (wind_hit < 0)
return;
switch (wind_hit) {
case -1: break;
case 869: pick_prefab_scen_event_filter(item_hit); break;
case 947: pick_a_scen_event_filter(item_hit); break;
case 958: tip_of_day_event_filter(item_hit); break;
case 960: talk_notes_event_filter(item_hit); break;
case 961: adventure_notes_event_filter(item_hit); break;
case 970: case 971: case 972: case 973: display_strings_event_filter(item_hit); break;
case 987: display_item_event_filter(item_hit); break;
case 988: pick_trapped_monst_event_filter(item_hit); break;
case 989: edit_party_event_filter(item_hit); break;
case 991: display_pc_event_filter(item_hit); break;
case 996: display_alchemy_event_filter(item_hit); break;
case 997: display_help_event_filter(item_hit); break;
case 998: display_pc_item_event_filter(item_hit); break;
case 999: display_monst_event_filter(item_hit); break;
case 1010: spend_xp_event_filter (item_hit); break;
case 1012: get_num_of_items_event_filter (item_hit); break;
case 1013: pick_race_abil_event_filter (item_hit); break;
case 1014: dialog_not_toast = FALSE; break;
case 1017: case 873: get_text_response_event_filter(item_hit); break;
case 1018: select_pc_event_filter (item_hit); break;
case 1019: give_pc_info_event_filter(item_hit); break;
case 1047: alch_choice_event_filter(item_hit); break;
case 1050: pc_graphic_event_filter(item_hit); break;
case 1051: pc_name_event_filter(); break;
case 1096: display_spells_event_filter (item_hit); break;
case 1097: display_skills_event_filter (item_hit); break;
case 1098: pick_spell_event_filter (item_hit); break;
case 1099: prefs_event_filter (item_hit); break;
case 1100: compatibility_event_filter (item_hit); break;
default: fancy_choice_dialog_event_filter (item_hit); break;
}
}
void handle_menu_spell(short spell_picked,short spell_type)
{
POINT pass_point;
spell_forced = TRUE;
pc_casting = current_pc;
pc_last_cast[spell_type][current_pc] = spell_picked;
if (spell_type == 0)
store_mage = spell_picked;
else store_priest = spell_picked;
if ((spell_type == 0) && (mage_need_select[spell_picked] > 0)) {
if ((store_spell_target = char_select_pc(2 - mage_need_select[spell_picked],0,"Cast spell on who?")) == 6)
return;
}
else {
if ((spell_type == 1) && (priest_need_select[spell_picked] > 0))
if ((store_spell_target = char_select_pc(2 - priest_need_select[spell_picked],0,"Cast spell on who?")) == 6)
return;
}
pass_point.x = bottom_buttons[spell_type].left + 5;
pass_point.y = bottom_buttons[spell_type].top + 5;
handle_action(pass_point,0,-1);
}
void initiate_outdoor_combat(short i)
{
short m,n;
location to_place;
initiate_redraw();
// Is combat too easy?
if ((adven.getTotalLevel() > ((out_enc_lev_tot(i) * 5) / 3) ) && (out_enc_lev_tot(i) < 200)
&& (party.out_c[i].what_monst.cant_flee % 10 != 1)) {
add_string_to_buf("Combat: Monsters fled! ");
party.out_c[i].exists = FALSE;
return;
}
// Delay((long) 100,&dummy);
start_outdoor_combat(party.out_c[i], out[party.p_loc.x][party.p_loc.y], party.p_loc.countWalls());
party.out_c[i].exists = FALSE;
for (m = 0; m < 6; m++)
if (adven[m].isAlive())
to_place = pc_pos[m];
for (m = 0; m < 6; m++)
for (n = 0; n < 24; n++)
if ((adven[m].isAlive() == false) && (adven[m].items[n].variety != 0)) {
place_item(adven[m].items[n],to_place,TRUE);
adven[m].items[n].variety = 0;
}
overall_mode = 10;
center = pc_pos[current_pc];
initiate_redraw();
}
void initiate_redraw()
// Draw changes in terrain, but only if terrain is onscreen
{
if ((overall_mode < 20) || (overall_mode >= 30)) draw_terrain(0);
}
Boolean handle_syskeystroke(WPARAM wParam, LPARAM,short *handled)
{
UINT kp[10] = {VK_NUMPAD0,VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3, VK_NUMPAD4,
VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7, VK_NUMPAD8, VK_NUMPAD9};
POINT terrain_click[10] = {{150,185},{120,215},{150,215},{180,215},
{120,185},{150,185},{180,185},
{120,155},{150,155},{180,135}};
POINT pass_point;
Boolean are_done = FALSE;
short i;
if (in_startup_mode == TRUE)
return FALSE;
for (i = 0; i < 10; i++)
if (wParam == kp[i]) {
if (i == 0) {
*handled = 1;
return handle_keystroke((UINT) 'z',-1);
}
else {
//*handled = 1;
pass_point.x = terrain_click[i].x;
pass_point.y = terrain_click[i].y;
wParam = 0;
FlushEvents(0);
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
}
if (overall_mode == 20) {
if (wParam == VK_ESCAPE) {
pass_point.x = preset_words[6].word_rect.left + 9;
pass_point.y = preset_words[6].word_rect.top + 9;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
}
else if (overall_mode == 21) { // shopping keystrokes
if (wParam == VK_ESCAPE) {
pass_point.x = 222;
pass_point.y = 398;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
}
if ((wParam == VK_LEFT) || (wParam == VK_RIGHT)) {
*handled = 1;
pass_point.x = (wParam == VK_LEFT) ? 120 : 180;
pass_point.y = 185;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
if ((wParam == VK_UP) || (wParam == VK_DOWN)) {
*handled = 1;
pass_point.x = 150;
pass_point.y = (wParam == VK_UP) ? 155 : 215;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
return are_done;
}
Boolean handle_keystroke(WPARAM wParam, LPARAM lParam)
{
Boolean are_done = FALSE;
POINT pass_point;
short i,j,k;
POINT terrain_click[10] = {{150,185},{120,215},{150,215},{180,215},
{120,185},{150,185},{180,185},
{120,155},{150,155},{180,135}};
char talk_chars[9] = {'l','n','j','b','s','r','d','g','a'};
char chr;
short x,y;
location loc;
if (in_startup_mode == TRUE)
return FALSE;
chr = (char) wParam;
if (overall_mode == MODE_TALKING) {
if (chr == ' ')
chr = 'g';
if (chr == '?') {
party.help_received[5] = 0;
give_help(205,6,0);
}
for (i = 0; i < 9; i++)
if (chr == talk_chars[i]) {
pass_point.x = preset_words[i].word_rect.left + 9;
pass_point.y = preset_words[i].word_rect.top + 9;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
}
else if (overall_mode == MODE_SHOPPING) { // shopping keystrokes
if (chr == '?') {
party.help_received[26] = 0;
give_help(226,27,0);
}
for (i = 0; i < 8; i++)
if (chr == 97 + i) {
pass_point.x = shopping_rects[i][1].left + 9;
pass_point.y = shopping_rects[i][1].top + 9;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
}
if ((overall_mode != MODE_TALKING) && (overall_mode != MODE_SHOPPING)) {
for (k = 0; k < (short) LOWORD(lParam); k++)
switch(chr)
{
case 'D':
if (in_scen_debug)
{
in_scen_debug = FALSE;
ASB("Debug mode OFF.");
}
else
{
in_scen_debug = TRUE;
ASB("Debug mode ON.");
}
print_buf();
break;
case '&':
add_string_to_buf("If Valorim ...");
print_buf();
break;
case '*':
add_string_to_buf("You want to save ...");
print_buf();
break;
case '(':
add_string_to_buf("Back up your save files ...");
print_buf();
break;
case ')':
add_string_to_buf("Burma Shave.");
print_buf();
break;
case '?':
if (is_out()){
FCD(1079,0);
break;
}
if (is_town()){
FCD(1080,0);
break;
}
if (is_combat()){
FCD(1081,0);
break;
}
break;
case '1': case '2': case '3': case '4': case '5': case '6':
pass_point.x = pc_buttons[((short) chr) - 49][0].left + 1 + PC_WIN_UL_X;
pass_point.y = pc_buttons[((short) chr) - 49][0].top + PC_WIN_UL_Y;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
break;
case '9':
pass_point.x = item_screen_button_rects[6].left + ITEM_WIN_UL_X;
pass_point.y = item_screen_button_rects[6].top + ITEM_WIN_UL_Y;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
break;
case ' ':
if (overall_mode == 14) { // cast multi-target spell, set # targets to 0 so that
// space clicked doesn't matter
num_targets_left = 0;
pass_point = terrain_click[5];
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
if (overall_mode == 11)
spell_cast_hit_return();
break;
case 'z':
if (((overall_mode >= 10) && (overall_mode < 20)) || (overall_mode == 37)) {
set_stat_window(current_pc);
put_item_screen(stat_window,0);
}
else {
set_stat_window(0);
put_item_screen(stat_window,0);
}
break;
case '=':
if (in_scen_debug) {
party.gold += 100;
party.food += 100;
for (i = 0; i < 6; i++) {
adven[i].main_status = MAIN_STATUS_ALIVE;
adven[i].cur_health = 100;
adven[i].cur_sp = 100;
}
adven.giveXP(25);
refresh_store_items();
for (i = 0; i < 6; i++)
for (j = 0; j < 62; j++) {
adven[i].mage_spells[j] = TRUE;
adven[i].priest_spells[j] = TRUE;
adven[i].skills[9] = 7;
adven[i].skills[10] = 7;
}
add_string_to_buf("Debug: Add stuff and heal. ");
print_buf();
put_pc_screen();
}
break;
// case 'A': Alchemy
case 'B': // Leave town
if (in_scen_debug) {
if(overall_mode != MODE_TOWN){
add_string_to_buf("Debug - Leave Town: You're not in town !");
print_buf();
break;
}
party.stuff_done[304][0] = 0;
for(i=0;i<6;i++)
if(adven[i].main_status > 9)
adven[i].main_status -= 10;
overall_mode = MODE_OUTDOORS;
position_party(party.outdoor_corner.x,party.outdoor_corner.y,party.p_loc.x,party.p_loc.y);
clear_map();
add_string_to_buf("Debug: Leaving town...");
add_string_to_buf("Choose which direction to go.");
print_buf();
redraw_screen(0);
}
break;
case 'C': // Clean up
if (in_scen_debug) {
for (i = 0; i < 6; i++) {
adven[i].status[STATUS_POISON] = 0;
if (adven[i].status[STATUS_BLESS] < 0)
adven[i].status[STATUS_BLESS] = 0;
if (adven[i].status[STATUS_HASTE] < 0)
adven[i].status[STATUS_HASTE] = 0;
adven[i].status[STATUS_WEBS] = 0;
adven[i].status[STATUS_DISEASE] = 0;
adven[i].status[STATUS_DUMB] = 0;
adven[i].status[STATUS_ASLEEP] = 0;
adven[i].status[STATUS_PARALYZED] = 0;
adven[i].status[STATUS_ACID] = 0;
}
add_string_to_buf("Debug: You get cleaned up!");
print_buf();
put_pc_screen();
}
break;
// case 'D': toggle Debug mode
//Can be moved out of this function to allow the character to switch debug mode during dialogues or shopping.
case 'E': // Miscellaneous help
if (in_scen_debug) {
party.stuff_done[305][0] = 10;
party.stuff_done[305][2] = 10;
party.stuff_done[305][3] = 10;
add_string_to_buf("Debug: Sanctuary, Detect, Lavawalk!");
print_buf();
put_pc_screen();
}
break;
case 'F': // Flight
if (in_scen_debug) {
if (overall_mode == MODE_TOWN){
add_string_to_buf("Debug - Flying: Not while in Town !");
print_buf();
break;
}
party.stuff_done[305][1] = 10;
add_string_to_buf("Debug: You start flying!");
print_buf();
}
break;
case 'G': //Ghost Mode
if(in_scen_debug){
if(ghost_mode){
ghost_mode = FALSE;
ASB("Debug: Ghost mode OFF.");
}
else{
ghost_mode = TRUE;
ASB("Debug: Ghost mode ON.");
}
print_buf();
}
break;
case 'H': // Heal PCs and restore their SP
if (in_scen_debug) {
party.gold += 100;
party.food += 100;
for (i = 0; i < 6; i++) {
if ((adven[i].main_status > MAIN_STATUS_ALIVE) && (adven[i].main_status < MAIN_STATUS_FLED))
adven[i].main_status = MAIN_STATUS_ALIVE;
}
adven.heal(250);
adven.restoreSP(100);
add_string_to_buf("Debug: Heal.");
print_buf();
put_pc_screen();
}
break;
case 'K':
if (in_scen_debug) {
for (i = 0; i < T_M; i++) {
if ((is_combat()) && (c_town.monst.dudes[i].active > 0) && (c_town.monst.dudes[i].attitude % 2 == 1))
c_town.monst.dudes[i].active = 0;
if ((c_town.monst.dudes[i].active > 0) && (c_town.monst.dudes[i].attitude % 2 == 1)
&& (dist(c_town.monst.dudes[i].m_loc,c_town.p_loc) <= 10) )
damage_monst(i, 7,1000,0, 4);
}
initiate_redraw();
add_string_to_buf("Debug: Kill things.");
print_buf();
break;
}
// case 'L': automap
// case 'M': repeat Mage spell
case 'N': // End scenario
if (in_scen_debug) {
reload_startup();
in_startup_mode = TRUE;
in_scen_debug=FALSE;
ghost_mode = FALSE;
draw_startup(0);
menu_activate(1);
if (FCD(901,0) == 2) save_file(1);
}
break;
case 'O': // Location
if (is_town()) {
loc = c_town.p_loc;
sprintf ((char *) c_line, "Debug: You're at x %d, y %d in town %d.",
(short) loc.x, (short) loc.y, c_town.town_num);
}
if (is_out()) {
loc = party.p_loc;
x = loc.x; y = loc.y;
x += 48 * party.outdoor_corner.x; y += 48 * party.outdoor_corner.y;
sprintf ((char *) c_line, "Debug: You're outside at x %d, y %d.",x,y);
}
if(is_combat()){
loc = pc_pos[current_pc];
sprintf (c_line, "Debug: You're in combat at x %d, y %d.", loc.x, loc.y);
}
add_string_to_buf((char *) c_line);
print_buf();
break;
// case 'P': repeat Priest spell
case 'I': //debug info
char buf[256]; //event timer off debug info
// sprintf(buf,"Party Age : %d, Ctown ploc : x = %d, y = %d", party.age, center.x, center.y);
sprintf(buf,"Town chop time : %d, chop key : %d",c_town.town.town_chop_time, c_town.town.town_chop_key);
give_error(buf,"",0);
break;
case 'Q': // Magic map
if (in_scen_debug) {
if (overall_mode == MODE_OUTDOORS) {
for (i = 0; i < 96; i++)
for (j = 0; j < 96; j++)
make_explored(i,j);
}
else {
for (i = 0; i < 64; i++)
for (j = 0; j < 64; j++)
make_explored(i,j);
}
clear_map();
add_string_to_buf("Debug: Magic Map.");
print_buf();
}
break;
case 'R': // Return to Start
if (in_scen_debug) {
if (party.in_boat >= 0) {
add_string_to_buf(" Not while in boat. ");
print_buf();
break;
}
if (party.in_horse >= 0) {
add_string_to_buf(" Not while on horse. ");
print_buf();
break;
}
force_town_enter(scenario.which_town_start,scenario.where_start);
start_town_mode(scenario.which_town_start,9);
position_party(scenario.out_sec_start.x,scenario.out_sec_start.y,
scenario.out_start.x,scenario.out_start.y);
center = c_town.p_loc = scenario.where_start;
redraw_screen(0);
add_string_to_buf("Debug: You are moved... ");
print_buf();
}
break;
case 'S': // Set a SDF <= can't set the SDF 0 (it's the default return value if the first character of the string is not a number)
if (in_scen_debug) { //and leave alone the 300+ SDF (game options/mechanics)
char response[256]="";
display_strings("Enter Stuff Done Flag Part A (between 1 and 299)","",0,0,0,0,"Which SDFa ?",-1,130,0);
get_text_response(873,response,0);
i = atoi(response);
if(i>0 && i <300){
display_strings("Enter Stuff Done Flag Part B (between 0 and 9)","",0,0,0,0,"Which SDFb ?",-1,130,0);
get_text_response(873,response,0);
j = atoi(response);
if(j >= 0 && j < 10){
display_strings("Enter Stuff Done Flag Part Value (outrageous values are a sure way to crash, or at least broke, the game)|Entering -1 show the value of the specified SDF.","",0,0,0,0,"Which value ?",-1,130,0);
get_text_response(873,response,0);
x = atoi(response);
if(x == -1){
sprintf(response,"SDF[%d][%d] = %d",i,j,party.stuff_done[i][j]);
give_error(response,"",0);
}
else
party.stuff_done[i][j]=x;
}
}
}
break;
case 'T': // Enter a Town
if (in_scen_debug) {
short find_direction_from;
char response[256]="";
sprintf(response,"Enter Town Number (between 0 and %d)",scenario.num_towns -1 );
display_strings(response,"",0,0,0,0,"Which Town ?",-1,130,0);
get_text_response(873,response,0);
i = atoi(response);
if(i>=0 && i < scenario.num_towns ){
if (party.direction == 0) find_direction_from = 2;
else if (party.direction == 4) find_direction_from = 0;
else if (party.direction < 4) find_direction_from = 3;
else find_direction_from = 1;
start_town_mode(i, find_direction_from);
}
}
break;
case 'W':
if(in_scen_debug){
refresh_store_items();
add_string_to_buf("Debug: Refreshed jobs/shops. ");
print_buf();
}
break;
case '<': // Advance clock by one day
if (in_scen_debug) {
ASB("Debug: One day passes...");
print_buf();
party.age += 3700;
put_pc_screen();
}
break;
case '>':
if(in_scen_debug){
ASB("Debug: Towns have short memory.");
ASB("Your deeds have been forgotten.");
print_buf();
for (i = 0; i < 4; i++)
party.creature_save[i].which_town = 200;
}
break;
case '/': // Help list
if(in_scen_debug){
ASB(" Debug hot keys");
ASB(" B: Leave town");
ASB(" C: Get cleaned up");
ASB(" D: Toggle Debug mode");
ASB(" E: Sanctuary, Detect, Lavawalk");
ASB(" F: Flight");
ASB(" G: Ghost Mode");
ASB(" H: Heal");
ASB(" K: Kill things");
ASB(" N: End Scenario");
ASB(" O: Location");
ASB(" Q: Magic map");
ASB(" R: Return to Start");
ASB(" S: Set a SDF");
ASB(" T: Enter Town");
ASB(" W: Refresh jobs/shops");
ASB(" =: Heal, increase magic skills");
ASB(" <: Make one day pass");
ASB(" >: Towns forgive you");
ASB(" /: Bring up this list");
print_buf();
}
break;
case 'a': // automap
if (overall_mode < 2) {
pass_point.x = (overall_mode == 0) ? 170 : 221;
pass_point.y = 405;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
break;
case 'b': case 'u': case 'L': // End combat, shoot and only active character <= why did you remove 'b' ?
if (overall_mode == 1) {
pass_point.x = (chr == 'u') ? 220 : 205;
pass_point.y = (chr == 'L') ? 405 : 388;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
break;
case 's': case 'x': case 'e':
if ((overall_mode == MODE_COMBAT) ||
((overall_mode == 12) && (chr == 's')) ||
((overall_mode == 13) && (chr == 's')) ) {
pass_point.x = (chr == 's') ? 205 : 240;
pass_point.y = (chr == 'e') ? 390 : 406;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
break;
case 'A': case 'M': case 'P': case 'd': case 'f': case 'g': case 'l':
case 'm': case 'p': case 'r': case 't': case 'w':
j = 50;
if ((chr == 'm') && ((overall_mode == 11) || (overall_mode == 14))) // cancel spell
j = 0;
if ((chr == 'p') && ((overall_mode == 11) || (overall_mode == 14))) // cancel spell
j = 1;
if ((overall_mode == MODE_OUTDOORS) || (overall_mode == MODE_TOWN) || (overall_mode == MODE_COMBAT)) {
switch (chr) {
case 'M': spell_forced = TRUE; j = 0; break;
case 'm': j = 0; break;
case 'P': spell_forced = TRUE; j = 1; break;
case 'p': j = 1; break;
case 'l': j = 2; break;
case 'r': if (overall_mode != 0) return FALSE;
j = 3;
break;
case 't': if (overall_mode == 1)
j = 3;
else return FALSE;
break;
case 'A':if (overall_mode == 1) {
pass_point.x = 1000;
are_done = handle_action(pass_point,wParam,-1);
}
else {
add_string_to_buf("Alchemy: In town only.");
print_buf();
return FALSE;
}
break;
case 'w':if (overall_mode == MODE_COMBAT)
j = 5;
else if (overall_mode == 1) {
pass_point.x = 1001;
are_done = handle_action(pass_point,wParam,-1);
}
else {
add_string_to_buf("Wait: In town only.");
print_buf();
return FALSE;
}
break;
case 'd': if (overall_mode != 10) return FALSE;
j = 3;
break;
case 'g': if (overall_mode == MODE_OUTDOORS) return FALSE;
j = 4;
break;
case 'f': if (overall_mode != MODE_TOWN) return FALSE;
j = 6;
break;
}
}
if (j < 50) {
pass_point.x = bottom_buttons[j].left + 5;
pass_point.y = bottom_buttons[j].top + 5;
are_done = handle_action(pass_point,wParam,-1);
return are_done;
}
break;
}
}
spell_forced = FALSE;
return are_done;
}
void menu_activate(short)
// type; // 0 - save off alter off 1 - not all off
{
HMENU menu;
menu = GetMenu(mainPtr);
if (in_startup_mode == TRUE) {
EnableMenuItem(menu,2,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,3,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,21,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,22,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,23,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,24,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,26,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,27,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,28,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,29,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,81,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,82,MF_GRAYED | MF_BYCOMMAND);
EnableMenuItem(menu,84,MF_GRAYED | MF_BYCOMMAND);
//EnableMenuItem(menu,,MF_GRAYED | MF_BYCOMMAND);
DrawMenuBar(mainPtr);
return;
}
EnableMenuItem(menu,3,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,2,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,21,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,22,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,23,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,24,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,26,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,27,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,28,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,29,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,81,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,82,MF_ENABLED | MF_BYCOMMAND);
EnableMenuItem(menu,84,MF_ENABLED | MF_BYCOMMAND);
DrawMenuBar(mainPtr);
}
void do_load()
{
load_file();
if (in_startup_mode == FALSE)
post_load();
menu_activate(1);
}
void post_load()
{
current_switch = 6;
reset_item_max();
if (overall_mode == 0)
update_explored(party.p_loc);
if (overall_mode == 1) {
make_town_trim(0);
}
make_out_trim();
create_clip_region();
redraw_screen(0);
stat_window = first_active_pc();
set_stat_window(0);
clear_map();
adjust_spell_menus();
adjust_monst_menu();
}
void do_save(short mode) //mode 0 - normal 1 - save as
{
if (overall_mode > 1) {
add_string_to_buf("Save: Only while outdoors, or in ");
add_string_to_buf(" town and not looking/casting. ");
print_buf();
return;
}
save_file(mode);
pause(6);
initiate_redraw();
put_pc_screen();
put_item_screen(stat_window,0);
print_buf();
}
void increase_age()
{
short i,j,item,how_many_short = 0,r1,store_day;
Boolean update_stat = FALSE;
// Increase age, adjust light level & stealth
store_day = calc_day();
if (is_out()) {
if (party.in_horse < 0)
party.age -= party.age % 10;
else party.age -= party.age % 5;
party.age += 5;
if (party.in_horse < 0)
party.age += 5;
}
else party.age++;
if (calc_day() != store_day) { // Day changed, so check for interesting stuff.
update_stat = TRUE;
}
move_to_zero(party.light_level);
// decrease monster present counter
move_to_zero(party.stuff_done[305][9]);
// Party spell effects
if (party.stuff_done[305][0] == 1) {reset_text_bar();
add_string_to_buf("Your footsteps grow louder. "); }
move_to_zero(party.stuff_done[305][0]);
if (party.stuff_done[305][2] == 1) {reset_text_bar();
add_string_to_buf("You stop detecting monsters. ");}
move_to_zero(party.stuff_done[305][2]);
if (party.stuff_done[305][3] == 1) {reset_text_bar();
add_string_to_buf("Your feet stop glowing. ");}
move_to_zero(party.stuff_done[305][3]);
if (party.stuff_done[305][1] == 2)
add_string_to_buf("You are starting to descend.");
if (party.stuff_done[305][1] == 1) {
if (scenario.ter_types[out[party.p_loc.x][party.p_loc.y]].blockage > 2) {
add_string_to_buf(" You plummet to your deaths. ");
adven.kill(2);
print_buf();
pause(150);
}
else add_string_to_buf(" You land safely. ");
reset_text_bar();
}
move_to_zero(party.stuff_done[305][1]);
if ((overall_mode > 0) && (c_town.town.lighting == 2))
party.light_level = max (0,party.light_level - 9);
if (c_town.town.lighting == 3) {
if (party.light_level > 0)
ASB("Your light is drained.");
party.light_level = 0;
}
// Specials countdowns
if ((party.age % 500 == 0) && (get_ran(1,0,5) == 3) && (adven.hasAbil(52) == true)) {
update_stat = TRUE;
adven.disease(2);
}
// Plants and magic shops
if (party.age % 4000 == 0) refresh_store_items();
// Protection, etc.
for (i = 0; i < NUM_OF_PCS; i++) { // Process some status things, and check if stats updated
if ((adven[i].status[STATUS_INVULNERABLE] == 1) || (adven[i].status[5] == 1) || (adven[i].status[8] == 1)
|| (adven[i].status[STATUS_ASLEEP] == 1)|| (adven[i].status[STATUS_PARALYZED] == 1))
update_stat = TRUE;
move_to_zero(adven[i].status[STATUS_INVULNERABLE]);
move_to_zero(adven[i].status[STATUS_MAGIC_RESISTANCE]);
move_to_zero(adven[i].status[STATUS_INVISIBLE]);
move_to_zero(adven[i].status[STATUS_MARTYRS_SHIELD]);
move_to_zero(adven[i].status[STATUS_ASLEEP]);
move_to_zero(adven[i].status[STATUS_PARALYZED]);
if ((party.age % 40 == 0) && (adven[i].status[0] > 0)) {
update_stat = TRUE;
move_to_zero(adven[i].status[0]);
}
}
// Food
if ((party.age % 1000 == 0) && (overall_mode < 10)) {
for (i = 0; i < NUM_OF_PCS; i++)
if (adven[i].isAlive())
how_many_short++;
how_many_short = party.takeFood (how_many_short, false);
if (how_many_short > 0) {
add_string_to_buf("Starving! ");
play_sound(66);
r1 = get_ran(3,1,6);
adven.damage(r1,4);
update_stat = TRUE;
if (overall_mode < 10)
boom_space(party.p_loc,overall_mode,0,r1,0);
}
else {
play_sound(6);
add_string_to_buf("You eat. ");
}
update_stat = TRUE;
}
// Poison, acid, disease damage
for (i = 0; i < 6; i++) // Poison
if (adven[i].status[STATUS_POISON] > 0) {
i = 6;
if (((overall_mode == 0) && (party.age % 50 == 0)) || ((overall_mode == 1) && (party.age % 20 == 0))) {
update_stat = TRUE;
do_poison();
}
}
for (i = 0; i < 6; i++) // Disease
if (adven[i].status[STATUS_DISEASE] > 0) {
i = 6;
if (((overall_mode == 0) && (party.age % 100 == 0)) || ((overall_mode == 1) && (party.age % 25 == 0))) {
update_stat = TRUE;
handle_disease();
}
}
for (i = 0; i < 6; i++) // Acid
if (adven[i].status[STATUS_ACID] > 0) {
i = 6;
update_stat = TRUE;
handle_acid();
}
// Healing and restoration of spell pts.
if (is_out()) {
if (party.age % 100 == 0) {
for (i = 0; i < 6; i++)
if ((adven[i].isAlive()) && (adven[i].cur_health < adven[i].max_health))
update_stat = TRUE;
adven.heal(2);
}
}
else {
if (party.age % 50 == 0) {
for (i = 0; i < 6; i++)
if ((adven[i].isAlive()) && (adven[i].cur_health < adven[i].max_health))
update_stat = TRUE;
adven.heal(1);
}
}
if (is_out()) {
if (party.age % 80 == 0) {
for (i = 0; i < 6; i++)
if ((adven[i].isAlive()) && (adven[i].cur_sp < adven[i].max_sp))
update_stat = TRUE;
adven.restoreSP(2);
}
}
else {
if (party.age % 40 == 0) {
for (i = 0; i < 6; i++)
if ((adven[i].isAlive()) && (adven[i].cur_sp < adven[i].max_sp))
update_stat = TRUE;
adven.restoreSP(1);
}
}
// Recuperation and chronic disease disads
for (i = 0; i < 6; i++)
if (adven[i].isAlive()) {
if ((adven[i].traits[9] > 0) && (get_ran(1,0,10) == 1) && (adven[i].cur_health < adven[i].max_health)) {
adven[i].heal(2);
update_stat = TRUE;
}
if ((adven[i].traits[13] > 0) && (get_ran(1,0,110) == 1)) {
adven[i].disease(4);
update_stat = TRUE;
}
}
// Blessing, slowed,etc.
if (party.age % 4 == 0)
for (i = 0; i < 6; i++) {
if ((adven[i].status[1] != 0) || (adven[i].status[3] != 0))
update_stat = TRUE;
move_to_zero(adven[i].status[1]);
move_to_zero(adven[i].status[3]);
if (((item = adven[i].hasAbilEquip(50)) < 24)
&& (adven[i].cur_health < adven[i].max_health)
&& ((overall_mode > 0) || (get_ran(1,0,10) == 5))){
j = get_ran(1,0,adven[i].items[item].ability_strength / 3);
if (adven[i].items[item].ability_strength / 3 == 0)
j = get_ran(1,0,1);
if (is_out()) j = j * 4;
adven[i].heal(j);
update_stat = TRUE;
}
}
dump_gold(1);
timed_special_happened = special_increase_age(0);
push_things();
if (is_town()) process_fields();
// Cancel switching PC order
current_switch = 6;
// If a change, draw stat screen
if (update_stat == TRUE) put_pc_screen();
adjust_spell_menus();
}
void switch_pc(short which)
{
pc_record_type store_pc;
if (current_switch < 6) {
if (current_switch != which) {
add_string_to_buf("Switch: OK.");
store_pc = adven[which];
adven[which] = adven[current_switch];
adven[current_switch] = store_pc;
if (current_pc == current_switch)
current_pc = which;
else if (current_pc == which)
current_pc = current_switch;
set_stat_window(current_pc);
current_switch = 6;
}
else {
ASB("Switch: Not with self.");
current_switch = 6;
}
}
else {
add_string_to_buf("Switch: Switch with who? ");
current_switch = which;
}
}
void handle_death()
{
short choice;
in_startup_mode = TRUE;
while (in_startup_mode == TRUE)
{
// Use death (or leave Exile) dialog
in_startup_mode = FALSE;
choice = FCD(1069,0); //// FCD hates it when it gets called in startup mode
// and startup graphiocs aren't loaded.
in_startup_mode = TRUE;
if (choice == 1) {
in_startup_mode = FALSE;
load_file();
if (party_toast() == FALSE) {
if (in_startup_mode == FALSE)
post_load();
else return;
}
else in_startup_mode = TRUE;
}
if (choice == 2)
start_new_game();
if (choice == 3) {
in_startup_mode = FALSE;
All_Done = TRUE;
}
}
}
void start_new_game()
{
short i;
short choice;
choice = FCD(1065,0);
if (choice == 2) return;
init_party(0);
edit_party();
// if no PCs left, forget it
for (i = 0 ; i < NUM_OF_PCS; i++)
if (adven[i].isAlive())
i = 100;
if (i == NUM_OF_PCS)
return;
// everyone gets a weapon
for (i = 0; i < NUM_OF_PCS; i++)
if (adven[i].isAlive()) {
adven[i].items[0] = start_items[adven[i].race * 2];
adven[i].equip[0] = TRUE;
adven[i].items[1] = start_items[adven[i].race * 2 + 1];
adven[i].equip[1] = TRUE;
}
// PCs get adjustments
for (i = 0; i < 6; i++)
if (adven[i].isAlive()) {
// Do stat adjs for selected race.
if (adven[i].race == RACE_NEPHIL) {
if (adven[i].skills[1] < 18)
adven[i].skills[1] += 2;
}
if (adven[i].race == RACE_SLITH) {
if (adven[i].skills[0] < 18)
adven[i].skills[0] += 2;
if (adven[i].skills[2] < 19)
adven[i].skills[2] += 1;
}
adven[i].max_sp += adven[i].skills[SKILL_MAGE_SPELLS] * 3 + adven[i].skills[SKILL_PRIEST_SPELLS] * 3;
adven[i].cur_sp = adven[i].max_sp;
}
save_file(1);
party_in_memory = TRUE;
}
location get_cur_direction(POINT the_point)
{
location store_dir;
int x = the_point.x;
int y = the_point.y;
// This is a kludgy adjustment to adjust for the screen shifting between Exile I & II
y += 5;
x += 5;
if ((x < 135) & (y >= ((x * 34) / 10) - 293) & (y <= (-1 * ((x * 34) / 10) + 663)))
store_dir.x--;
if ((x > 163) & (y <= ((x * 34) / 10) - 350) & (y >= (-1 * ((x * 34) / 10) + 721)))
store_dir.x++;
if ((y < 167) & (y <= (x / 2) + 102) & (y <= (-1 * (x / 2) + 249)))
store_dir.y--;
if ((y > 203) & (y >= (x / 2) + 123) & (y >= (-1 * (x / 2) + 268)))
store_dir.y++;
return store_dir;
}
Boolean outd_move_party(location destination,Boolean forced)
{
char create_line[60];
short boat_num,horse_num,spec_num;
location real_dest, sector_p_in;
Boolean keep_going = TRUE,check_f;
location store_corner,store_iwc;
unsigned char ter;
keep_going = check_special_terrain(destination,0,0,&spec_num,&check_f);
if (check_f == TRUE) forced = TRUE;
if (in_scen_debug && ghost_mode) forced = TRUE;
if (spec_num == 50) forced = TRUE;
// If not blocked and not put in town by a special, process move
if ((keep_going == TRUE) && (overall_mode == 0)) {
real_dest.x = destination.x - party.p_loc.x;
real_dest.y = destination.y - party.p_loc.y;
sector_p_in.x = party.outdoor_corner.x + party.i_w_c.x;
sector_p_in.y = party.outdoor_corner.y + party.i_w_c.y;
store_corner = party.outdoor_corner;
store_iwc = party.i_w_c;
// Check if party moves into new sector
if ((destination.x < 6) && (party.outdoor_corner.x > 0)) shift_universe_left();
if ((destination.x > 90) && (party.outdoor_corner.x < scenario.out_width - 1)) shift_universe_right();
if ((destination.y < 6) && (party.outdoor_corner.y > 0)) shift_universe_up();
else if ((destination.y > 90) && (party.outdoor_corner.y < scenario.out_height - 1))
shift_universe_down();
// Now stop from going off the world's edge
real_dest.x = party.p_loc.x + real_dest.x;
real_dest.y = party.p_loc.y + real_dest.y;
if ((real_dest.x < 4) && (party.outdoor_corner.x <= 0)) {
ASB("You've reached the world's edge.");
return FALSE;
}
if (((real_dest.x > 92) && (party.outdoor_corner.x >= scenario.out_width - 2)) ||
((real_dest.x > 44) && (party.outdoor_corner.x >= scenario.out_width - 1))) {
ASB("You've reached the world's edge.");
return FALSE;
}
if ((real_dest.y < 4) && (party.outdoor_corner.y <= 0)) {
ASB("You've reached the world's edge.");
return FALSE;
}
else if (((real_dest.y > 92) && (party.outdoor_corner.y >= scenario.out_height - 2)) ||
((real_dest.y > 44) && (party.outdoor_corner.y >= scenario.out_height - 1))) {
ASB("You've reached the world's edge.");
return FALSE;
}
ter = out[real_dest.x][real_dest.y];
if (party.in_boat >= 0) {
if ((outd_is_blocked(real_dest) == FALSE) //&& (outd_is_special(real_dest) == FALSE)
// not in towns
&& ((scenario.ter_types[ter].boat_over == FALSE)
|| ((real_dest.x != party.p_loc.x) && (real_dest.y != party.p_loc.y)))
&& (scenario.ter_types[ter].special != 21)) {
add_string_to_buf("You leave the boat.");
party.in_boat = -1;
}
else if (((real_dest.x != party.p_loc.x) && (real_dest.y != party.p_loc.y))
|| ((forced == FALSE) && (out_boat_there(destination) < 30)))
return FALSE;
else if ((outd_is_blocked(real_dest) == FALSE)
&& (scenario.ter_types[ter].boat_over == TRUE)
&& (scenario.ter_types[ter].special != 21) && ter != 75 && ter!=76) {
if ((fancy_choice_dialog(1086,0)) == 1)
forced = TRUE;
else {
add_string_to_buf("You leave the boat. ");
party.in_boat = -1;
}
}
else if (scenario.ter_types[ter].boat_over == TRUE)
forced = TRUE;
}
if (((boat_num = out_boat_there(real_dest)) < 30) && (party.in_boat < 0) && (party.in_horse < 0)) {
if (party.isFlying())
{
add_string_to_buf("You land first. ");
party.stuff_done[305][1] = 0;
}
give_help(61,0,0);
add_string_to_buf("Move: You board the boat. ");
party.in_boat = boat_num;
party.direction = set_direction(party.p_loc, destination);
party.p_loc = real_dest;
party.i_w_c.x = (party.p_loc.x > 48) ? 1 : 0;
party.i_w_c.y = (party.p_loc.y > 48) ? 1 : 0;
party.loc_in_sec = party.p_loc.toLocal();
if ((store_corner.x != party.outdoor_corner.x) || (store_corner.y != party.outdoor_corner.y) ||
(store_iwc.x != party.i_w_c.x) || (store_iwc.y != party.i_w_c.y))
clear_map();
return TRUE;
}
else if (((horse_num = out_horse_there(real_dest)) < 30) && (party.in_boat < 0) && (party.in_horse < 0)) {
if (party.isFlying())
{
add_string_to_buf("Land before mounting horses.");
return FALSE;
}
give_help(60,0,0);
add_string_to_buf("Move: You mount the horses. ");
play_sound(84);
party.in_horse = horse_num;
party.direction = set_direction(party.p_loc, destination);
party.p_loc = real_dest;
party.i_w_c.x = (party.p_loc.x > 48) ? 1 : 0;
party.i_w_c.y = (party.p_loc.y > 48) ? 1 : 0;
party.loc_in_sec = party.p_loc.toLocal();
if ((store_corner.x != party.outdoor_corner.x) || (store_corner.y != party.outdoor_corner.y) ||
(store_iwc.x != party.i_w_c.x) || (store_iwc.y != party.i_w_c.y))
clear_map();
return TRUE;
}
else if ((outd_is_blocked(real_dest) == FALSE) || (forced == TRUE)
// Check if can fly over
|| ((party.isFlying()) && (scenario.ter_types[ter].fly_over == TRUE)))
{
if (party.in_horse >= 0){
if ((scenario.ter_types[ter].special >= 2) && (scenario.ter_types[ter].special <= 4)) {
ASB("Your horses quite sensibly refuse.");
return FALSE;
}
if (scenario.ter_types[ter].block_horse == TRUE) {
ASB("You can't take horses there!");
return FALSE;
}
}
party.direction = set_direction(party.p_loc, destination);
if ((party.isFlying()) && (scenario.ter_types[ter].special == 21)) {
add_string_to_buf("Moved: You have to land first. ");
return FALSE;
}
party.p_loc = real_dest;
party.i_w_c.x = (party.p_loc.x > 47) ? 1 : 0;
party.i_w_c.y = (party.p_loc.y > 47) ? 1 : 0;
party.loc_in_sec = party.p_loc.toLocal();
move_sound(out[real_dest.x][real_dest.y],num_out_moves);
num_out_moves++;
if (party.in_boat >= 0) {
// Waterfall!!!
while (scenario.ter_types[out[party.p_loc.x][party.p_loc.y + 1]].special == 15) {
add_string_to_buf(" Waterfall! ");
party.p_loc.y += 2;
party.loc_in_sec.y += 2;
update_explored(party.p_loc);
initiate_redraw();
print_buf();
if ((cave_lore_present() > 0) && (get_ran(1,0,1) == 0))
add_string_to_buf(" (No supplies lost.)");
else if (party.food > 1800)
party.food -= 50;
else party.food = (party.food * 19) / 20;
put_pc_screen();
play_sound(28);
pause(8);
}
party.boats[party.in_boat].which_town = 200;
party.boats[party.in_boat].boat_loc_in_sec = party.loc_in_sec;
party.boats[party.in_boat].boat_loc = party.p_loc;
party.boats[party.in_boat].boat_sector.x = party.outdoor_corner.x + party.i_w_c.x;
party.boats[party.in_boat].boat_sector.y = party.outdoor_corner.y + party.i_w_c.y;
}
if (party.in_horse >= 0) {
party.horses[party.in_horse].which_town = 200;
party.horses[party.in_horse].horse_loc_in_sec = party.loc_in_sec;
party.horses[party.in_horse].horse_loc = party.p_loc;
party.horses[party.in_horse].horse_sector.x = party.outdoor_corner.x + party.i_w_c.x;
party.horses[party.in_horse].horse_sector.y = party.outdoor_corner.y + party.i_w_c.y;
}
if ((store_corner.x != party.outdoor_corner.x) || (store_corner.y != party.outdoor_corner.y) ||
(store_iwc.x != party.i_w_c.x) || (store_iwc.y != party.i_w_c.y))
clear_map();
return TRUE;
}
else {
sprintf ((char *) create_line, "Blocked: %s",dir_string[set_direction(party.p_loc, destination)]);
add_string_to_buf((char *) create_line);
return FALSE;
}
}
return FALSE;
}
Boolean town_move_party(location destination,short forced)
{
char create_line[60],keep_going = TRUE;
short boat_there,horse_there,spec_num;
unsigned char ter;
Boolean check_f = FALSE;
if (in_scen_debug && ghost_mode) forced = TRUE;
if (monst_there(destination) > T_M) keep_going = check_special_terrain(destination,1,0,&spec_num,&check_f);
if (check_f == TRUE) forced = TRUE;
if (spec_num == 50) forced = TRUE;
ter = t_d.terrain[destination.x][destination.y];
if (keep_going == TRUE) {
if (party.in_boat >= 0) {
if ((is_blocked(destination) == FALSE) && (is_special(destination) == FALSE)
// If to bridge, exit if heading diagonal, keep going is head horiz or vert
&& ( (scenario.ter_types[ter].boat_over == FALSE)
|| ((destination.x != c_town.p_loc.x) && (destination.y != c_town.p_loc.y)))) {
add_string_to_buf("You leave the boat. ");
party.in_boat = -1;
}
else if ((destination.x != c_town.p_loc.x) && (destination.y != c_town.p_loc.y))
return FALSE;
// Crossing bridge: land or go through
else if ((is_blocked(destination) == FALSE) && (scenario.ter_types[ter].boat_over == TRUE) && ter != 75 && ter!=76) {
if ((fancy_choice_dialog(1086,0)) == 1)
forced = TRUE;
else if (is_blocked(destination) == FALSE) {
add_string_to_buf("You leave the boat. ");
party.in_boat = -1;
}
}
// boat in destination
else if (town_boat_there(destination) < 30) {
add_string_to_buf(" Boat there already. ");
return FALSE;
}
// water or lava
else if (scenario.ter_types[ter].boat_over == TRUE)
forced = TRUE;
}
if (((boat_there = town_boat_there(destination)) < 30) && (party.in_boat < 0)) {
if (party.boats[boat_there].property == TRUE) {
add_string_to_buf(" Not your boat. ");
return FALSE;
}
give_help(61,0,0);
add_string_to_buf("Move: You board the boat. ");
party.in_boat = boat_there;
party.direction = set_direction(c_town.p_loc, destination);
c_town.p_loc = destination;
center = c_town.p_loc;
return TRUE;
}
else if (((horse_there = town_horse_there(destination)) < 30) && (party.in_horse < 0)) {
if (party.horses[horse_there].property == TRUE) {
add_string_to_buf(" Not your horses. ");
return FALSE;
}
give_help(60,0,0);
add_string_to_buf("Move: You mount the horses. ");
play_sound(84);
party.in_horse = horse_there;
party.direction = set_direction(c_town.p_loc, destination);
c_town.p_loc = destination;
center = c_town.p_loc;
return TRUE;
}
else if ((is_blocked(destination) == FALSE) || (forced == 1)) {
if (party.in_horse >= 0) {
if ((scenario.ter_types[ter].special >= 2) && (scenario.ter_types[ter].special <= 4)) {
ASB("Your horses quite sensibly refuse.");
return FALSE;
}
if (scenario.ter_types[ter].block_horse == TRUE) {
ASB("You can't take horses there!");
return FALSE;
}
if ((c_town.town.lighting > 0) && (get_ran(1,0,1) == 0)) {
ASB("The darkness spooks your horses.");
return FALSE;
}
}
party.direction = set_direction(c_town.p_loc, destination);
c_town.p_loc = destination;
move_sound(t_d.terrain[destination.x][destination.y],(short) party.age);
if (party.in_boat >= 0) { // Watchout, party.p_loc is party outdoor location !!! Town location is c_town.p_loc ...
if(party.stuff_done[309][2] > 0){
center = c_town.p_loc; //put on top of waterfall
// Waterfall!!!
while (scenario.ter_types[t_d.terrain[c_town.p_loc.x][c_town.p_loc.y + 1]].special == 15) {
add_string_to_buf(" Waterfall! ");
c_town.p_loc.y += 2;
update_explored(c_town.p_loc);
initiate_redraw();
print_buf();
if ((cave_lore_present() > 0) && (get_ran(1,0,1) == 0))
add_string_to_buf(" (No supplies lost.)");
else if (party.food > 1800)
party.food -= 50;
else party.food = (party.food * 19) / 20;
put_pc_screen();
play_sound(28);
pause(8);
}
}
party.boats[party.in_boat].boat_loc = c_town.p_loc;
party.boats[party.in_boat].which_town = c_town.town_num;
}
if (party.in_horse >= 0) {
party.horses[party.in_horse].horse_loc = c_town.p_loc;
party.horses[party.in_horse].which_town = c_town.town_num;
}
center = c_town.p_loc;
return TRUE;
}
else {
if (destination.isDoor())
sprintf ((char *) create_line, "Door locked: %s ",dir_string[set_direction(c_town.p_loc, destination)]);
else sprintf ((char *) create_line, "Blocked: %s ",dir_string[set_direction(c_town.p_loc, destination)]);
add_string_to_buf((char *) create_line);
return FALSE;
}
}
return FALSE;
}
bool pc_array::isPoisoned()
{
for (int i = 0; i < NUM_OF_PCS; i++)
if (pc[i].isAlive() && (pc[i].status[STATUS_POISON] > 0))
return true;
return false;
}
short nearest_monster()
{
short i = 100,j,s;
for (j = 0; j < 10; j++)
if (party.out_c[j].exists == TRUE) {
s = dist(party.p_loc,party.out_c[j].m_loc);
i = min(i,s);
}
return i;
}
short get_outdoor_num()
{
return (scenario.out_width * (party.outdoor_corner.y + party.i_w_c.y) + party.outdoor_corner.x + party.i_w_c.x);
}
Reference in New Issue View Git Blame Copy Permalink