openboe/oboe
2
0
Fork 0
Code Issues 146 Pull Requests 4 Actions Packages Projects Releases Wiki Activity
Files
7573c1ed988c3ddade962612c9a670b7a9d92926
oboe/osx/boe.town.cpp
Celtic Minstrel 7573c1ed98 - Fixed some bugs and inconsistencies in the dialog code 
- Started a utility to quickly preview a dialog
- Moved the ppats from the individual applications into the Graphics file; reduces redudancy

git-svn-id: http://openexile.googlecode.com/svn/trunk@26 4ebdad44-0ea0-11de-aab3-ff745001d230
2009-04-20 16:20:34 +00:00

1750 lines
54 KiB
C++
Raw Blame History

#include <stdio.h>
#include "boe.global.h"
#include "boe.graphutil.h"
#include "boe.graphics.h"
#include "boe.newgraph.h"
#include "boe.fileio.h"
#include "boe.items.h"
#include "boe.itemdata.h"
#include "boe.monster.h"
#include "boe.town.h"
#include "boe.combat.h"
#include "boe.party.h"
#include "boe.text.h"
#include "soundtool.h"
#include "boe.fields.h"
#include "boe.locutils.h"
#include "dlgtool.h"
#include "boe.specials.h"
#include "boe.infodlg.h"
#include "dlglowlevel.h"
#include "dlgconsts.h"
#include "mathutil.h"
#include "boe.main.h"
#include "graphtool.h"
extern current_town_type c_town;
extern party_record_type party;
extern pc_record_type adven[6];
extern town_item_list t_i;
extern short stat_window,overall_mode,store_spell_target,which_combat_type,current_pc,combat_active_pc;
extern location center;
extern WindowPtr mainPtr;
extern short monst_target[T_M]; // 0-5 target that pc 6 - no target 100 + x - target monster x
extern unsigned char combat_terrain[64][64];
extern outdoor_record_type outdoors[2][2];
extern unsigned char misc_i[64][64];
extern short store_current_pc,current_ground;
extern pascal Boolean cd_event_filter();
extern short dungeon_font_num,geneva_font_num;
extern short store_pre_shop_mode,store_pre_talk_mode;
extern location monster_targs[T_M];
extern short special_queue[20];
extern Boolean modeless_exists[18],diff_depth_ok,belt_present;
extern short modeless_key[18];
extern DialogPtr modeless_dialogs[18];
extern unsigned char out[96][96],out_e[96][96],sfx[64][64];
extern stored_items_list_type stored_items[3];
extern stored_town_maps_type maps;
extern stored_outdoor_maps_type o_maps;
extern big_tr_type t_d;
extern short town_size[3];
extern short town_type;
extern setup_save_type setup_save;
extern Boolean web,crate,barrel,fire_barrier,force_barrier,quickfire,force_wall,fire_wall,antimagic,scloud,ice_wall,blade_wall;
extern location pc_pos[6];
extern short last_attacked[6],pc_dir[6],pc_parry[6],pc_moves[6];
extern location hor_vert_place[14];
extern location diag_place[14];
extern short terrain_pic[256];
extern char terrain_blocked[256];
extern location golem_m_locs[16];
extern ModalFilterUPP main_dialog_UPP;
extern scenario_data_type scenario;
extern piles_of_stuff_dumping_type *data_store;
extern GWorldPtr spec_scen_g;
Boolean need_map_full_refresh = TRUE,forcing_map_button_redraw = FALSE;
extern GWorldPtr map_gworld,tiny_map_graphics;
RGBColor parchment = {65535,65535,52428};
PixPatHandle map_pat[25];
unsigned char map_pats[256] = {1,1,2,2,2,7,7,7,7,7, ////
7,7,7,7,7,7,7,7,3,3,
3,3,3,3,3,3,3,3,3,3,
3,3,5,5,5,5,5,5,5,5,
5,5,5,5,5,5,4,4,4,4,
4,4,4,4,4,4,4,4,4,0, // 50
0,0,0,0,0,0,0,24,24,24,
16,16,25,25,0,0,0,0,18,8,
8,9,2,15,15,10,10,10,6,0,
0,0,0,0,0,0,0,0,0,0,
19,0,0,0,0,0,0,0,0,0, // 100
23,0,0,0,0,0,0,0,0,0,
0,0,0,11,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,12,0,0, // 150
0,0,0,13,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,18,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 200
0,0,0,0,0,17,17,0,17,17,
17,17,17,17,17,17,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0};// 250
unsigned char anim_map_pats[18] = {14,0,0,0,22, 0,0,21,20,21, 20,0,0,0,0, 0,0,0};
long pause_dummy;
location town_map_adj = {0,0};
short town_force = 200,store_which_shop,store_min,store_max,store_shop,store_selling_pc;
short sell_offset = 0;
location town_force_loc;
Boolean shop_button_active[12];
Rect map_title_rect = {8,50,20,300};
// Rect map_bar_rect = {285,47,301,218};
Rect map_bar_rect = {2,230,10,400};
unsigned char map_graphic_placed[8][64]; // keeps track of what's been filled on map
UserItemUPP map_draw_UPP = NULL;
void force_town_enter(short which_town,location where_start)
{
town_force = which_town;
town_force_loc = where_start;
}
////
void start_town_mode(short which_town, short entry_dir)
//short entry_dir; // if 9, go to forced
{
short i,m,n;
char message[60];
GrafPtr old_port;
short j,k,town_number;
short at_which_save_slot,former_town;
Boolean monsters_loaded = FALSE,town_toast = FALSE;
location loc;
unsigned char temp;
Boolean play_town_sound = FALSE;
GetPort(&old_port);
SetPort(GetWindowPort(mainPtr));
if (town_force < 200)
which_town = town_force;
else if (PSD[304][9] == 0) {
play_town_sound = TRUE;
}
former_town = town_number = which_town;
if ((town_number < 0) || (town_number >= scenario.num_towns)) {
SetPort(GetWindowPort(mainPtr));
give_error("The scenario tried to put you into a town that doesn't exist.","",0);
return;
}
// Now adjust town number as necessary.
for (i = 0; i < 10; i++)
if ((scenario.town_to_add_to[i] >= 0) && (scenario.town_to_add_to[i] < 200) &&
(town_number == scenario.town_to_add_to[i]) &&
(sd_legit(scenario.flag_to_add_to_town[i][0],scenario.flag_to_add_to_town[i][1]) == TRUE)) {
former_town = town_number;
town_number += PSD[scenario.flag_to_add_to_town[i][0]][scenario.flag_to_add_to_town[i][1]];
// Now update horses & boats
for (i = 0; i < 30; i++)
if ((party.horses[i].exists == TRUE) && (party.horses[i].which_town == former_town))
party.horses[i].which_town = town_number;
for (i = 0; i < 30; i++)
if ((party.boats[i].exists == TRUE) && (party.boats[i].which_town == former_town))
party.boats[i].which_town = town_number;
}
if ((town_number < 0) || (town_number >= scenario.num_towns)) {
SetPort(GetWindowPort(mainPtr));
give_error("The scenario tried to put you into a town that doesn't exist.","",0);
return;
}
overall_mode = MODE_TOWN;
load_town(town_number,0,0,NULL);
c_town.town_num = town_number;
if (play_town_sound == TRUE) {
if (c_town.town.lighting > 0)
play_sound(95);
else play_sound(16);
}
belt_present = FALSE;
// Set up map, using stored map
for (i = 0; i < town_size[town_type]; i++)
for (j = 0; j < town_size[town_type]; j++) {
c_town.explored[i][j] = 0;
//sfx[i][j] = 0;
if (data_store->town_maps.town_maps[c_town.town_num][i / 8][j] & (char)(s_pow(2,i % 8)))
make_explored(i,j);
if (t_d.terrain[i][j] == 0)
current_ground = 0;
else if (t_d.terrain[i][j] == 2)
current_ground = 2;
if ((scenario.ter_types[t_d.terrain[i][j]].special >= 16) &&
(scenario.ter_types[t_d.terrain[i][j]].special <= 19))
belt_present = TRUE;
}
c_town.hostile = 0;
c_town.monst.which_town = town_number;
c_town.monst.friendly = 0;
at_which_save_slot = party.at_which_save_slot;
for (i = 0; i < 4; i++)
if (town_number == party.creature_save[i].which_town) {
c_town.monst = party.creature_save[i];
monsters_loaded = TRUE;
for (j = 0; j < T_M; j++) {
if (loc_off_act_area(c_town.monst.dudes[j].m_loc) == TRUE)
c_town.monst.dudes[j].active = 0;
if (c_town.monst.dudes[j].active == 2)
c_town.monst.dudes[j].active = 1;
c_town.monst.dudes[j].m_loc = t_d.creatures[j].start_loc;
c_town.monst.dudes[j].m_d.health = c_town.monst.dudes[j].m_d.m_health;
c_town.monst.dudes[j].m_d.mp = c_town.monst.dudes[j].m_d.max_mp;
c_town.monst.dudes[j].m_d.morale = c_town.monst.dudes[j].m_d.m_morale;
for (k = 0; k < 15; k++)
c_town.monst.dudes[j].m_d.status[k] = 0;
if (c_town.monst.dudes[j].summoned > 0)
c_town.monst.dudes[j].active = 0;
monst_target[j] = 6;
}
// Now, travelling NPCs might have arrived. Go through and put them in.
// These should have protected status (i.e. spec1 >= 200, spec1 <= 204)
for (j = 0; j < T_M; j++) {
switch (c_town.monst.dudes[j].monst_start.time_flag){
case 4: case 5 : //case 6:
if ((((short) (party.age / 1000) % 3) + 4) != c_town.monst.dudes[j].monst_start.time_flag)
c_town.monst.dudes[j].active = 0;
else {
c_town.monst.dudes[j].active = 1;
c_town.monst.dudes[j].monst_start.spec_enc_code = 0;
// Now remove time flag so it doesn't get reappearing
c_town.monst.dudes[j].monst_start.time_flag = 0;
c_town.monst.dudes[j].m_loc = t_d.creatures[j].start_loc;
c_town.monst.dudes[j].m_d.health = c_town.monst.dudes[j].m_d.m_health;
}
break ;
// Now, appearing/disappearing monsters might have arrived/disappeared.
case 1:
if (day_reached(c_town.monst.dudes[j].monst_start.monster_time, c_town.monst.dudes[j].monst_start.time_code) == TRUE)
{
c_town.monst.dudes[j].active = 1;
c_town.monst.dudes[j].monst_start.time_flag=0; // Now remove time flag so it doesn't get reappearing
}
break;
case 2:
if (day_reached(c_town.monst.dudes[j].monst_start.monster_time, c_town.monst.dudes[j].monst_start.time_code) == TRUE)
{
c_town.monst.dudes[j].active = 0;
c_town.monst.dudes[j].monst_start.time_flag=0; // Now remove time flag so it doesn't get disappearing again
}
break;
case 7:
if (calc_day() >= party.key_times[c_town.monst.dudes[j].monst_start.time_code]){ //calc_day is used because of the "definition" of party.key_times
c_town.monst.dudes[j].active = 1;
c_town.monst.dudes[j].monst_start.time_flag=0; // Now remove time flag so it doesn't get reappearing
}
break;
case 8:
if (calc_day() >= party.key_times[c_town.monst.dudes[j].monst_start.time_code]){
c_town.monst.dudes[j].active = 0;
c_town.monst.dudes[j].monst_start.time_flag=0; // Now remove time flag so it doesn't get disappearing again
}
break;
}
}
for (j = 0; j < town_size[town_type]; j++)
for (k = 0; k < town_size[town_type]; k++) { // now load in saved setup,
// except that barrels and crates restore to orig locs
temp = setup_save.setup[i][j][k] & 231;
misc_i[j][k] = (misc_i[j][k] & 24) | temp;//setup_save.setup[i][j][k];
}
}
if (!monsters_loaded) {
for (i = 0; i < T_M; i++){
if (t_d.creatures[i].number == 0) {
c_town.monst.dudes[i].active = 0;
c_town.monst.dudes[i].number = 0;
c_town.monst.dudes[i].monst_start.time_flag = 0;
c_town.monst.dudes[i].m_loc.x = 80;
}
else {
// First set up the values.
monst_target[i] = 6;
c_town.monst.dudes[i].active = 1;
c_town.monst.dudes[i].number = t_d.creatures[i].number;
c_town.monst.dudes[i].attitude = t_d.creatures[i].start_attitude;
c_town.monst.dudes[i].m_loc = t_d.creatures[i].start_loc;
c_town.monst.dudes[i].mobile = t_d.creatures[i].mobile;
c_town.monst.dudes[i].m_d = return_monster_template(c_town.monst.dudes[i].number);
c_town.monst.dudes[i].summoned = 0;
c_town.monst.dudes[i].monst_start = t_d.creatures[i];
if (c_town.monst.dudes[i].monst_start.spec_enc_code > 0)
c_town.monst.dudes[i].active = 0;
// Now, if necessary, fry the monster.
switch (c_town.monst.dudes[i].monst_start.time_flag) {
case 1:
if (!day_reached(c_town.monst.dudes[i].monst_start.monster_time,
c_town.monst.dudes[i].monst_start.time_code))
c_town.monst.dudes[i].active = 0;
break;
case 2:
if (day_reached(c_town.monst.dudes[i].monst_start.monster_time,
c_town.monst.dudes[i].monst_start.time_code))
c_town.monst.dudes[i].active = 0;
break;
case 3:
// unused
break;
case 4: case 5: case 6:
if ((((short) (party.age / 1000) % 3) + 4) != c_town.monst.dudes[i].monst_start.time_flag) {
c_town.monst.dudes[i].active = 0;
c_town.monst.dudes[i].monst_start.spec_enc_code = 50;
}
else {
c_town.monst.dudes[i].active = 1;
// Now remove time flag so it doesn't keep reappearing
c_town.monst.dudes[i].monst_start.time_flag = 0;
}
break;
case 7:
if (calc_day() < party.key_times[c_town.monst.dudes[i].monst_start.time_code])
c_town.monst.dudes[i].active = 0;
break;
case 8:
if (calc_day() >= party.key_times[c_town.monst.dudes[i].monst_start.time_code])
c_town.monst.dudes[i].active = 0;
break;
case 9:
if (c_town.town.town_chop_time > 0)
if (day_reached(c_town.town.town_chop_time,c_town.town.town_chop_key)) {
c_town.monst.dudes[i].active += 10;
break;
}
c_town.monst.dudes[i].active = 0;
break;
case 0:
break;
default:
ASB("ERROR! Odd character data.");
print_nums(0,i,c_town.monst.dudes[i].monst_start.time_flag);
break;
}
}
}
}
// Now munch all large monsters that are misplaced
// only large monsters, as some smaller monsters are intentionally placed
// where they cannot be
for (i = 0; i < T_M; i++) {
if (c_town.monst.dudes[i].active > 0)
if (((c_town.monst.dudes[i].m_d.x_width > 1) || (c_town.monst.dudes[i].m_d.y_width > 1)) &&
(monst_can_be_there(c_town.monst.dudes[i].m_loc,i) == FALSE))
c_town.monst.dudes[i].active = 0;
}
// Thrash town?
if (party.m_killed[c_town.town_num] > c_town.town.max_num_monst)
{
town_toast = TRUE;
add_string_to_buf("Area has been cleaned out.");
}
if (c_town.town.town_chop_time > 0) {
if (day_reached(c_town.town.town_chop_time,c_town.town.town_chop_key) == TRUE)
{
//add_string_to_buf("Area has been abandoned.");
for (i = 0; i < T_M; i++)
if ((c_town.monst.dudes[i].active > 0) && (c_town.monst.dudes[i].active < 10) &&
(c_town.monst.dudes[i].attitude % 2 == 1))
c_town.monst.dudes[i].active += 10;
town_toast = TRUE;
}
}
if (town_toast == TRUE) {
for (i = 0; i < T_M; i++)
if (c_town.monst.dudes[i].active >= 10)
c_town.monst.dudes[i].active -= 10;
else c_town.monst.dudes[i].active = 0;
}
handle_town_specials(town_number, (short) town_toast,(entry_dir < 9) ? c_town.town.start_locs[entry_dir] : town_force_loc);
// Flush excess doomguards and viscous goos
for (i = 0; i < T_M; i++)
if ((c_town.monst.dudes[i].m_d.spec_skill == 12) &&
(c_town.monst.dudes[i].number != t_d.creatures[i].number))
c_town.monst.dudes[i].active = 0;
quickfire = FALSE;
crate = FALSE;
barrel = FALSE;
web = FALSE;
fire_barrier = FALSE;
force_barrier = FALSE;
// Set up field booleans, correct for doors
for (j = 0; j < town_size[town_type]; j++)
for (k = 0; k < town_size[town_type]; k++) {
loc.x = j; loc.y = k;
if (is_door(loc) == TRUE)
misc_i[j][k] = misc_i[j][k] & 3;
if (is_web(j,k) == TRUE)
web = TRUE;
if (is_crate(j,k) == TRUE)
crate = TRUE;
if (is_barrel(j,k) == TRUE)
barrel = TRUE;
if (is_fire_barrier(j,k) == TRUE)
fire_barrier = TRUE;
if (is_force_barrier(j,k) == TRUE)
force_barrier = TRUE;
if (is_quickfire(j,k) == TRUE)
quickfire = TRUE;
}
// Set up items, maybe place items already there
for (i = 0; i < NUM_TOWN_ITEMS; i++)
t_i.items[i] = return_dummy_item();
for (j = 0; j < 3; j++)
if (scenario.store_item_towns[j] == town_number) {
for (i = 0; i < NUM_TOWN_ITEMS; i++)
t_i.items[i] = stored_items[j].items[i];
}
for (i = 0; i < 64; i++)
if ((c_town.town.preset_items[i].item_code >= 0)
&& (((party.item_taken[c_town.town_num][i / 8] & s_pow(2,i % 8)) == 0) ||
(c_town.town.preset_items[i].always_there == TRUE))) {
for (j = 0; j < NUM_TOWN_ITEMS; j++)
// place the preset item, if party hasn't gotten it already
if (t_i.items[j].variety == 0) {
t_i.items[j] = get_stored_item(c_town.town.preset_items[i].item_code);
t_i.items[j].item_loc = c_town.town.preset_items[i].item_loc;
// Not use the items data flags, starting with forcing an ability
if (c_town.town.preset_items[i].ability >= 0) {
switch (t_i.items[j].variety) {
case 3: case 11: // If gold or food, this value is amount
if (c_town.town.preset_items[i].ability > 0)
t_i.items[j].item_level = c_town.town.preset_items[i].ability;
break;
}
}
if (c_town.town.preset_items[i].property == TRUE)
t_i.items[j].item_properties = t_i.items[j].item_properties | 2;
if (town_toast == TRUE)
t_i.items[j].item_properties = t_i.items[j].item_properties & 253;
if (c_town.town.preset_items[i].contained == TRUE)
t_i.items[j].item_properties = t_i.items[j].item_properties | 8;
t_i.items[j].is_special = i + 1;
j = NUM_TOWN_ITEMS;
}
}
for (i = 0; i < T_M; i++)
if (loc_off_act_area(c_town.monst.dudes[i].m_loc) == TRUE)
c_town.monst.dudes[i].active = 0;
for (i = 0; i < NUM_TOWN_ITEMS; i++)
if (loc_off_act_area(t_i.items[i].item_loc) == TRUE)
t_i.items[i].variety = 0;
// Clean out unwanted monsters
for (i = 0; i < T_M; i++)
if (sd_legit(c_town.monst.dudes[i].monst_start.spec1,c_town.monst.dudes[i].monst_start.spec2) == TRUE) {
if (party.stuff_done[c_town.monst.dudes[i].monst_start.spec1][c_town.monst.dudes[i].monst_start.spec2] > 0)
c_town.monst.dudes[i].active = 0;
}
erase_specials();
make_town_trim(0);
load_area_graphics();
c_town.p_loc = (entry_dir < 9) ? c_town.town.start_locs[entry_dir] : town_force_loc;
center = c_town.p_loc;
if (party.in_boat >= 0) {
party.boats[party.in_boat].which_town = which_town;
party.boats[party.in_boat].boat_loc = c_town.p_loc;
}
if (party.in_horse >= 0) {
party.horses[party.in_horse].which_town = which_town;
party.horses[party.in_horse].horse_loc = c_town.p_loc;
}
// End flying
if (party.stuff_done[SDF_PARTY_FLIGHT] > 0) {
party.stuff_done[SDF_PARTY_FLIGHT] = 0;
add_string_to_buf("You land, and enter. ");
}
// No hostile monsters present.
party.stuff_done[SDF_HOSTILES_PRESENT] = 0;
add_string_to_buf("Now entering:");
sprintf ((char *) message, " %-30.30s ",data_store->town_strs[0]);
add_string_to_buf((char *) message);
// clear entry space, and check exploration
misc_i[c_town.p_loc.x][c_town.p_loc.y] = misc_i[c_town.p_loc.x][c_town.p_loc.y] & 3;
update_explored(c_town.p_loc);
// If a PC dead, drop his items
for (m = 0; m < 6; m++)
for (n = 0; n < 24; n++)
if ((adven[m].main_status != 1) && (adven[m].items[n].variety != 0)) {
place_item(adven[m].items[n],c_town.p_loc,TRUE);
adven[m].items[n].variety = 0;
}
for (i = 0; i < T_M; i++)
{monster_targs[i].x = 0; monster_targs[i].y = 0;}
//// check horses
for (i = 0; i < 30; i++) {
if ((scenario.scen_boats[i].which_town >= 0) && (scenario.scen_boats[i].boat_loc.x >= 0)) {
if (party.boats[i].exists == FALSE) {
party.boats[i] = scenario.scen_boats[i];
party.boats[i].exists = TRUE;
}
}
if ((scenario.scen_horses[i].which_town >= 0) && (scenario.scen_horses[i].horse_loc.x >= 0)) {
if (party.horses[i].exists == FALSE) {
party.horses[i] = scenario.scen_horses[i];
party.horses[i].exists = TRUE;
}
}
}
// Place correct graphics
redraw_screen();
clear_map();
reset_item_max();
town_force = 200;
SetPort(old_port);
}
location end_town_mode(short switching_level,location destination) // returns new party location
{
location to_return;
Boolean data_saved = FALSE,combat_end = FALSE;
GrafPtr old_port;
short i,j,k;
if (is_combat())
combat_end = TRUE;
GetPort(&old_port);
SetPort(GetWindowPort(mainPtr));
if (overall_mode == MODE_TOWN) {
for (i = 0; i < 4; i++)
if (party.creature_save[i].which_town == c_town.town_num) {
party.creature_save[i] = c_town.monst;
for (j = 0; j < town_size[town_type]; j++)
for (k = 0; k < town_size[town_type]; k++)
setup_save.setup[i][j][k] = misc_i[j][k];
data_saved = TRUE;
}
if (data_saved == FALSE) {
party.creature_save[party.at_which_save_slot] = c_town.monst;
for (j = 0; j < town_size[town_type]; j++)
for (k = 0; k < town_size[town_type]; k++)
setup_save.setup[party.at_which_save_slot][j][k] = misc_i[j][k];
party.at_which_save_slot = (party.at_which_save_slot == 3) ? 0 : party.at_which_save_slot + 1;
}
// Store items, if necessary
for (j = 0; j < 3; j++)
if (scenario.store_item_towns[j] == c_town.town_num) {
for (i = 0; i < NUM_TOWN_ITEMS; i++)
if ((t_i.items[i].variety != 0) && (t_i.items[i].is_special == 0) &&
((t_i.items[i].item_loc.x >= scenario.store_item_rects[j].left) &&
(t_i.items[i].item_loc.x <= scenario.store_item_rects[j].right) &&
(t_i.items[i].item_loc.y >= scenario.store_item_rects[j].top) &&
(t_i.items[i].item_loc.y <= scenario.store_item_rects[j].bottom)) ) {
stored_items[j].items[i] = t_i.items[i];
}
else stored_items[j].items[i].variety = 0;
}
// Clean up special data, just in case
for (i = 0; i < T_M; i++) {
c_town.monst.dudes[i].monst_start.spec1 = 0;
c_town.monst.dudes[i].monst_start.spec2 = 0;
}
// Now store map
//if (c_town.town_num < 120) {
for (i = 0; i < town_size[town_type]; i++)
for (j = 0; j < town_size[town_type]; j++)
if (is_explored(i,j) > 0) {
data_store->town_maps.town_maps[c_town.town_num][i / 8][j] = data_store->town_maps.town_maps[c_town.town_num][i / 8][j] |
(char) (s_pow(2,i % 8));
}
// }
to_return = party.p_loc;
for (i = 0; i < 30; i++)
if ((party.party_event_timers[i] > 0) && (party.global_or_town[i] == 1))
party.party_event_timers[i] = 0;
}
// Check for exit specials, if leaving town
if (switching_level == 0) {
to_return = party.p_loc;
if (is_town()) {
if (destination.x <= c_town.town.in_town_rect.left) {
if (c_town.town.exit_locs[1].x > 0)
to_return = local_to_global(c_town.town.exit_locs[1]);
else to_return.x--;
party.p_loc = to_return; party.p_loc.x++;
handle_leave_town_specials(c_town.town_num, c_town.town.exit_specs[1],destination) ;
}
else if (destination.x >= c_town.town.in_town_rect.right) {
if (c_town.town.exit_locs[3].x > 0)
to_return = local_to_global(c_town.town.exit_locs[3]);
else to_return.x++;
party.p_loc = to_return; party.p_loc.x--;
handle_leave_town_specials(c_town.town_num, c_town.town.exit_specs[3],destination) ;
}
else if (destination.y <= c_town.town.in_town_rect.top) {
if (c_town.town.exit_locs[0].x > 0)
to_return = local_to_global(c_town.town.exit_locs[0]);
else to_return.y--;
party.p_loc = to_return; party.p_loc.y++;
handle_leave_town_specials(c_town.town_num, c_town.town.exit_specs[0],destination) ;
}
else if (destination.y >= c_town.town.in_town_rect.bottom) {
if (c_town.town.exit_locs[2].x > 0)
to_return = local_to_global(c_town.town.exit_locs[2]);
else to_return.y++;
party.p_loc = to_return; party.p_loc.y--;
handle_leave_town_specials(c_town.town_num, c_town.town.exit_specs[2],destination) ;
}
}
}
if (switching_level == 0) {
fix_boats();
overall_mode = MODE_OUTDOORS;
erase_out_specials();
load_area_graphics();
party.stuff_done[SDF_PARTY_STEALTHY] = 0;
for (i = 0; i < 6; i++)
for (j = 0; j < 15; j++)
if ((j != 2) && (j != 7) && (j != 9))
adven[i].status[j] = 0;
update_explored(to_return);
redraw_screen();
}
SetPort(old_port);
if (combat_end == FALSE)
clear_map();
return to_return;
}
// actually, entry_dir is non zero is town is dead - kludge!
void handle_town_specials(short town_number, short entry_dir,location start_loc)
{
//if (entry_dir > 0)
// run_special(5,2,c_town.town.spec_on_entry_if_dead,start_loc,&s1,&s2,&s3);
// else run_special(5,2,c_town.town.spec_on_entry,start_loc,&s1,&s2,&s3);
if (entry_dir > 0)
special_queue[0] = c_town.town.spec_on_entry_if_dead;
else special_queue[0] = c_town.town.spec_on_entry;
}
void handle_leave_town_specials(short town_number, short which_spec,location start_loc)
{
//run_special(6,2,which_spec,start_loc,&s1,&s2,&s3);
special_queue[1] = which_spec;
}
Boolean abil_exists(short abil) // use when outdoors
{
short i,j;
for (i = 0; i < 6; i++)
for (j = 0; j < 24; j++)
if ((adven[i].items[j].variety != 0) && (adven[i].items[j].ability == abil))
return TRUE;
for (i = 0; i < 3; i++)
for (j = 0; j < NUM_TOWN_ITEMS; j++)
if ((stored_items[i].items[j].variety != 0) && (stored_items[i].items[j].ability == abil))
return TRUE;
return FALSE;
}
void start_town_combat(short direction)
{
short i;
create_town_combat_terrain();
place_party(direction);
center = pc_pos[current_pc];
which_combat_type = 1;
overall_mode = MODE_COMBAT;
combat_active_pc = 6;
for (i = 0; i < T_M; i++)
monst_target[i] = 6;
for (i = 0; i < 6; i++) {
last_attacked[i] = T_M + 10;
pc_parry[i] = 0;
pc_dir[i] = direction;
adven[current_pc].direction = direction;
if (adven[i].main_status == 1)
update_explored(pc_pos[i]);
}
store_current_pc = current_pc;
current_pc = 0;
set_pc_moves();
pick_next_pc();
center = pc_pos[current_pc];
draw_buttons(0);
put_pc_screen();
set_stat_window(current_pc);
give_help(48,49,0);
}
short end_town_combat()
{
short num_tries = 0,r1,i;
r1 = get_ran(1,0,5);
while ((adven[r1].main_status != 1) && (num_tries++ < 1000))
r1 = get_ran(1,0,5);
c_town.p_loc = pc_pos[r1];
overall_mode = MODE_TOWN;
current_pc = store_current_pc;
if (adven[current_pc].main_status != 1)
current_pc = first_active_pc();
for (i = 0; i < 6; i++) {
pc_parry[i] = 0;
}
return pc_dir[r1];
}
void place_party(short direction)
{
Boolean spot_ok[14] = {TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,
TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE};
location pos_locs[14];
location check_loc;
short x_adj,y_adj,how_many_ok = 1,where_in_a = 0,i;
for (i = 0; i < 14; i++) {
check_loc = c_town.p_loc;
if (direction % 4 < 2)
x_adj = ((direction % 2 == 0) ? hor_vert_place[i].x : diag_place[i].x);
else x_adj = ((direction % 2 == 0) ? hor_vert_place[i].y : diag_place[i].y);
if (direction % 2 == 0)
x_adj = (direction < 4) ? x_adj : -1 * x_adj;
else x_adj = ((direction == 1) || (direction == 7)) ? -1 * x_adj : x_adj;
check_loc.x -= x_adj;
if (direction % 4 < 2)
y_adj = ((direction % 2 == 0) ? hor_vert_place[i].y : diag_place[i].y);
else y_adj = ((direction % 2 == 0) ? hor_vert_place[i].x : diag_place[i].x);
if (direction % 2 == 0)
y_adj = ((direction > 1) && (direction < 6)) ? y_adj : -1 * y_adj;
else y_adj = ((direction == 3) || (direction == 1)) ? -1 * y_adj : y_adj;
check_loc.y -= y_adj;
pos_locs[i] = check_loc;
if ((is_blocked(check_loc) == FALSE) && (is_special(check_loc) == FALSE) && (get_obscurity(check_loc.x,check_loc.y) == 0)
&& (can_see(c_town.p_loc,check_loc,1) < 1) && (loc_off_act_area(check_loc) == FALSE)) {
spot_ok[i] = TRUE;
how_many_ok += (i > 1) ? 1 : 0;
}
else spot_ok[i] = FALSE;
if (i == 0)
spot_ok[i] = TRUE;
}
i = 0;
while (i < 6) {
if (adven[i].main_status == 1) {
if (how_many_ok == 1)
pc_pos[i] = pos_locs[where_in_a];
else {
pc_pos[i] = pos_locs[where_in_a];
if (how_many_ok > 1)
where_in_a++;
how_many_ok--;
// if (how_many_ok > 1) {
while (spot_ok[where_in_a] == FALSE)
where_in_a++;
// }
}
}
i++;
}
}
void create_town_combat_terrain()
{
location where;
for (where.x = 0; where.x < town_size[town_type]; where.x++)
for (where.y = 0; where.y < town_size[town_type]; where.y++)
combat_terrain[where.x][where.y] = t_d.terrain[where.x][where.y];
}
void create_out_combat_terrain(short type,short num_walls,short spec_code)
// spec_code is encounter's spec_code
{
short i,j,k,r1,ter_type;
// 0 grass 1 cave 2 mntn 3 bridge 4 cave bridge 5 rubble cave 6 cave tree 7 cave mush
// 8 cave swamp 9 surfac eorcks 10 surf swamp 11 surface woods 12 s. shrub 13 stalags
short general_types[260] = {1,1,0,0,0,1,1,1,1,1,
1,1,1,1,1,1,1,1,2,2,
2,2,2,2,2,2,2,2,2,2,
2,2,2,2,2,2,2,2,2,2,
2,2,2,2,2,2,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,// 50
0,3,3,3,3,3,3,5,5,5,
6,6,7,7,1,1,8,9,10,11,
10,11,12,13,13,9,9,9,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,// 100
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,// 150
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,
1,0,1,1,1,1,1,1,1,0,
0,0,0,0,1,0,0,0,0,0,
0,0,1,0,2,0,0,1,1,1,// 200
1,0,2,1,1,0,1,1,1,1,
1,1,0,0,0,0,1,0,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1};// 250
short ter_base[14] = {2,0,36,50,71, 0,0,0,0,2, 2,2,2,0};
short ground_type[14] = {2,0,36,50,71, 0,0,0,0,2, 2,2,2,0};
location special_ter_locs[15] = {{11,10},{11,14},{10,20},{11,26},{9,30},
{15,19},{23,19},{19,29},{20,11},{28,16},
{28,24},{27,19},{27,29},{15,28},{19,19}};
unsigned char cave_pillar[4][4] = {{0,14,11,1},{14,19,20,11},{17,18,21,8},{1,17,8,0}};
unsigned char mntn_pillar[4][4] = {{37,29,27,36},{29,33,34,27},{31,32,35,25},{36,31,25,37}};
unsigned char surf_lake[4][4] = {{56,55,54,3},{57,50,61,54},{58,51,59,53},{3,4,58,52}};
unsigned char cave_lake[4][4] = {{93,96,71,71},{96,71,71,71},{71,71,71,96},{71,71,71,96}};
location stuff_ul;
short terrain_odds[14][10] = {{3,80,4,40,115,20,114,10,112,1},
{1,50,93,25,94,5,98,10,95,1},
{37,20,0,0,0,0,0,0,0,0},
{64,3,63,1,0,0,0,0,0,0},
{74,1,0,0,0,0,0,0,0,0},
{84,700,97,30,98,20,92,4,95,1},
{93,280,91,300,92,270,95,7,98,10},
{1,800,93,600,94,10,92,10,95,4},
{1,700,96,200,95,100,92,10,112,5},
{3,600,87,90,110,20,114,6,113,2},
{3,200,4,400,111,250,0,0,0,0},
{3,200,4,300,112,50,113,60,114,100},
{3,100,4,250,115,120,114,30,112,2},
{1,25,84,15,98,300,97,280,0,0}}; // ter then odds then ter then odds ...
ter_type = scenario.ter_types[type].picture;
if (ter_type > 260)
ter_type = 1;
else ter_type = general_types[ter_type];
for (i = 0; i < 48; i++)
for (j = 0; j < 48; j++) {
c_town.explored[i][j] = 0;
misc_i[i][j] = 0;
sfx[i][j] = 0;
if ((j <= 8) || (j >= 35) || (i <= 8) || (i >= 35))
t_d.terrain[i][j] = 90;
else t_d.terrain[i][j] = ter_base[ter_type];
}
for (i = 0; i < 48; i++)
for (j = 0; j < 48; j++)
for (k = 0; k < 5; k++)
if ((t_d.terrain[i][j] != 90) && (get_ran(1,1,1000) < terrain_odds[ter_type][k * 2 + 1]))
t_d.terrain[i][j] = terrain_odds[ter_type][k * 2];
t_d.terrain[0][0] = ter_base[ter_type];
if ((ter_type == 3) || (ter_type == 4) ) {
t_d.terrain[0][0] = 83;
for (i = 15; i < 26; i++)
for (j = 9; j < 35; j++)
t_d.terrain[i][j] = 83;
}
if ((type >= 79) && (type <= 81)) {
t_d.terrain[0][0] = 82;
for (i = 19; i < 23; i++)
for (j = 9; j < 35; j++)
t_d.terrain[i][j] = 82;
}
// Now place special lakes, etc.
if (ter_type == 2)
for (i = 0; i < 15; i++)
if (get_ran(1,0,5) == 1) {
stuff_ul = special_ter_locs[i];
for (j = 0; j < 4; j++)
for (k = 0; k < 4; k++)
t_d.terrain[stuff_ul.x + j][stuff_ul.y + k] = mntn_pillar[k][j];
}
if (t_d.terrain[0][0] == 0)
for (i = 0; i < 15; i++)
if (get_ran(1,0,25) == 1) {
stuff_ul = special_ter_locs[i];
for (j = 0; j < 4; j++)
for (k = 0; k < 4; k++)
t_d.terrain[stuff_ul.x + j][stuff_ul.y + k] = cave_pillar[k][j];
}
if (t_d.terrain[0][0] == 0)
for (i = 0; i < 15; i++)
if (get_ran(1,0,40) == 1) {
stuff_ul = special_ter_locs[i];
for (j = 0; j < 4; j++)
for (k = 0; k < 4; k++)
t_d.terrain[stuff_ul.x + j][stuff_ul.y + k] = cave_lake[k][j];
}
if (t_d.terrain[0][0] == 2)
for (i = 0; i < 15; i++)
if (get_ran(1,0,40) == 1) {
stuff_ul = special_ter_locs[i];
for (j = 0; j < 4; j++)
for (k = 0; k < 4; k++)
t_d.terrain[stuff_ul.x + j][stuff_ul.y + k] = surf_lake[k][j];
}
if (ground_type[ter_type] == 0) {
for (i = 0; i < num_walls; i++) {
r1 = get_ran(1,0,3);
for (j = 9; j < 35; j++)
switch (r1) {
case 0:
t_d.terrain[j][8] = 6;
break;
case 1:
t_d.terrain[8][j] = 9;
break;
case 2:
t_d.terrain[j][35] = 12;
break;
case 3:
t_d.terrain[32][j] = 15;
break;
}
}
if ((t_d.terrain[17][8] == 6) && (t_d.terrain[8][20] == 9))
t_d.terrain[8][8] = 21;
if ((t_d.terrain[32][20] == 15) && (t_d.terrain[17][35] == 12))
t_d.terrain[32][35] = 19;
if ((t_d.terrain[17][8] == 6) && (t_d.terrain[32][20] == 15))
t_d.terrain[32][8] = 32;
if ((t_d.terrain[8][20] == 9) && (t_d.terrain[17][35] == 12))
t_d.terrain[8][35] = 20;
}
if (ground_type[ter_type] == 36) {
for (i = 0; i < num_walls; i++) {
r1 = get_ran(1,0,3);
for (j = 9; j < 35; j++)
switch (r1) {
case 0:
t_d.terrain[j][8] = 24;
break;
case 1:
t_d.terrain[8][j] = 26;
break;
case 2:
t_d.terrain[j][35] = 28;
break;
case 3:
t_d.terrain[32][j] = 30;
break;
}
}
if ((t_d.terrain[17][8] == 6) && (t_d.terrain[8][20] == 9))
t_d.terrain[8][8] = 35;
if ((t_d.terrain[32][20] == 15) && (t_d.terrain[17][35] == 12))
t_d.terrain[32][35] = 33;
if ((t_d.terrain[17][8] == 6) && (t_d.terrain[32][20] == 15))
t_d.terrain[32][8] = 32;
if ((t_d.terrain[8][20] == 9) && (t_d.terrain[17][35] == 12))
t_d.terrain[8][35] = 34;
}
for (i = 0; i < 48; i++)
for (j = 0; j < 48; j++)
combat_terrain[i][j] = t_d.terrain[i][j];
make_town_trim(1);
}
void elim_monst(unsigned char which,short spec_a,short spec_b)
{
short i;
if (sd_legit(spec_a,spec_b) == FALSE)
return;
if (party.stuff_done[spec_a][spec_b] > 0) {
for (i = 0; i < T_M; i++)
if (c_town.monst.dudes[i].number == which) {
c_town.monst.dudes[i].active = 0;
}
}
}
void dump_gold(short print_mes)
//short print_mes; // 0 - no 1 - yes
{
// Mildly kludgy gold check
if (party.gold > 30000) {
party.gold = 30000;
if (print_mes == 1) {
put_pc_screen();
add_string_to_buf("Excess gold dropped. ");
print_buf();
}
}
if (party.food > 25000) {
party.food = 25000;
if (print_mes == 1) {
put_pc_screen();
add_string_to_buf("Excess food dropped. ");
print_buf();
}
}
}
void pick_lock(location where,short pc_num)
{
unsigned char terrain;
short r1,which_item;
Boolean will_break = FALSE;
short unlock_adjust;
terrain = t_d.terrain[where.x][where.y];
which_item = pc_has_abil_equip(pc_num,161);
if (which_item == 24) {
add_string_to_buf(" Need lockpick equipped. ");
return;
}
r1 = get_ran(1,0,100) + adven[pc_num].items[which_item].ability_strength * 7;
if (r1 < 75)
will_break = TRUE;
r1 = get_ran(1,0,100) - 5 * stat_adj(pc_num,1) + c_town.difficulty * 7
- 5 * adven[pc_num].skills[15] - adven[pc_num].items[which_item].ability_strength * 7;
// Nimble?
if (adven[pc_num].traits[TRAIT_NIMBLE])
r1 -= 8;
if (pc_has_abil_equip(pc_num,42) < 24)
r1 = r1 - 12;
if ((scenario.ter_types[terrain].special < 9) || (scenario.ter_types[terrain].special > 10)) {
add_string_to_buf(" Wrong terrain type. ");
return;
}
unlock_adjust = scenario.ter_types[terrain].flag2;
if ((unlock_adjust >= 5) || (r1 > (unlock_adjust * 15 + 30))) {
add_string_to_buf(" Didn't work. ");
if (will_break == TRUE) {
add_string_to_buf(" Pick breaks. ");
remove_charge(pc_num,which_item);
}
play_sound(41);
}
else {
add_string_to_buf(" Door unlocked. ");
play_sound(9);
t_d.terrain[where.x][where.y] = scenario.ter_types[terrain].flag1;
}
}
void bash_door(location where,short pc_num) ////
{
unsigned char terrain;
short r1,unlock_adjust;
terrain = t_d.terrain[where.x][where.y];
r1 = get_ran(1,0,100) - 15 * stat_adj(pc_num,0) + c_town.difficulty * 4;
if ((scenario.ter_types[terrain].special < 9) || (scenario.ter_types[terrain].special > 10)) {
add_string_to_buf(" Wrong terrain type. ");
return;
}
unlock_adjust = scenario.ter_types[terrain].flag2;
if ((unlock_adjust >= 5) || (r1 > (unlock_adjust * 15 + 40)) || (scenario.ter_types[terrain].special != 10)) {
add_string_to_buf(" Didn't work. ");
damage_pc(pc_num,get_ran(1,1,4),4,-1);
}
else {
add_string_to_buf(" Lock breaks. ");
play_sound(9);
t_d.terrain[where.x][where.y] = scenario.ter_types[terrain].flag1;
}
}
void erase_specials()////
{
location where;
short k,sd1,sd2;
special_node_type sn;
if ((is_combat()) && (which_combat_type == 0))
return;
if ((is_town() == FALSE) && (is_combat() == FALSE))
return;
for (k = 0; k < 50; k++) {
if (c_town.town.spec_id[k] >= 0) {
sn = c_town.town.specials[c_town.town.spec_id[k]];
sd1 = sn.sd1; sd2 = sn.sd2;
if ((sd_legit(sd1,sd2) == TRUE) && (PSD[sd1][sd2] == 250)) {
where = c_town.town.special_locs[k];
if ((where.x != 100) && ((where.x > town_size[town_type]) || (where.y > town_size[town_type])
|| (where.x < 0) || (where.y < 0))) {
SysBeep(2);
add_string_to_buf("Town corrupt. Problem fixed.");
print_nums(where.x,where.y,k);
c_town.town.special_locs[k].x = 0;
}
if (where.x != 100) {
switch (scenario.ter_types[t_d.terrain[where.x][where.y]].picture) {
case 207: t_d.terrain[where.x][where.y] = 0; break;
case 208: t_d.terrain[where.x][where.y] = 170; break;
case 209: t_d.terrain[where.x][where.y] = 210; break;
case 210: t_d.terrain[where.x][where.y] = 217; break;
case 211: t_d.terrain[where.x][where.y] = 2; break;
case 212: t_d.terrain[where.x][where.y] = 36; break;
}
take_special(where.x,where.y);
}
}
}
}
}
void erase_out_specials()
{
short i,j,k,l,m,out_num;
special_node_type sn;
short sd1,sd2;
location where;
for (k = 0; k < 2; k++)
for (l = 0; l < 2; l++)
if (quadrant_legal(k,l) == TRUE) {
for (m = 0; m < 8; m++)
if ((outdoors[k][l].exit_dests[m] >= 0) &&
(outdoors[k][l].exit_locs[m].x == minmax(0,47,outdoors[k][l].exit_locs[m].x)) &&
(outdoors[k][l].exit_locs[m].y == minmax(0,47,outdoors[k][l].exit_locs[m].y))) {
if (party.can_find_town[outdoors[k][l].exit_dests[m]] == 0) {
out[48 * k + outdoors[k][l].exit_locs[m].x][48 * l + outdoors[k][l].exit_locs[m].y] =
scenario.ter_types[outdoors[k][l].terrain[outdoors[k][l].exit_locs[m].x][outdoors[k][l].exit_locs[m].y]].flag1;
//exit_g_type[out[48 * k + outdoors[k][l].exit_locs[m].x][48 * l + outdoors[k][l].exit_locs[m].y] - 217];
}
else if (party.can_find_town[outdoors[k][l].exit_dests[m]] > 0) {
out[48 * k + outdoors[k][l].exit_locs[m].x][48 * l + outdoors[k][l].exit_locs[m].y] =
outdoors[k][l].terrain[outdoors[k][l].exit_locs[m].x][outdoors[k][l].exit_locs[m].y];
}
}
}
for (i = 0; i < 2; i++)
for (j = 0; j < 2; j++)
if (quadrant_legal(i,j) == TRUE) {
for (k = 0; k < 18; k++)
if (outdoors[i][j].special_id[k] >= 0) {
out_num = scenario.out_width * (party.outdoor_corner.y + j) + party.outdoor_corner.x + i;
sn = outdoors[i][j].specials[outdoors[i][j].special_id[k]];
sd1 = sn.sd1; sd2 = sn.sd2;
if ((sd_legit(sd1,sd2) == TRUE) && (PSD[sd1][sd2] == 250)) {
where = outdoors[i][j].special_locs[k];
if (where.x != 100) {
if ((where.x > 48) || (where.y > 48)
|| (where.x < 0) || (where.y < 0)) {
SysBeep(2);
add_string_to_buf("Outdoor section corrupt. Problem fixed.");
outdoors[i][j].special_id[k] = -1;
}
switch (scenario.ter_types[outdoors[i][j].terrain[where.x][where.y]].picture) {
case 207: out[48 * i + where.x][48 * j + where.y] = 0; break;
case 208: out[48 * i + where.x][48 * j + where.y] = 170; break;
case 209: out[48 * i + where.x][48 * j + where.y] = 210; break;
case 210: out[48 * i + where.x][48 * j + where.y] = 217; break;
case 211: out[48 * i + where.x][48 * j + where.y] = 2; break;
case 212: out[48 * i + where.x][48 * j + where.y] = 36; break;
}
}
}
}
}
}
// returns id # of special at where, or 50 if there is none.
short get_town_spec_id(location where)
{
short i = 0;
while ((same_point(c_town.town.special_locs[i],where) == FALSE) && (i < 50))
i++;
return i;
}
void clear_map()
{
Rect map_world_rect;
GrafPtr old_port;
GetPortBounds(map_gworld, &map_world_rect);
// if (modeless_exists[5] == FALSE) {
// return;
// }
// draw_map(modeless_dialogs[5],11);
GetPort(&old_port);
SetPort( map_gworld);
PaintRect(&map_world_rect);
SetPort(old_port);
draw_map(modeless_dialogs[5],10);
}
pascal void draw_map (DialogPtr the_dialog, short the_item)
//the_item; // Being sneaky - if this gets value of 5, this is not a full restore -
// just update near party, if it gets 11, blank out middle and leave
// No redrawing in gworld
// If a 10, do a regular full restore
// Also, can get a 5 even when the window is not up, so have to make
// sure dialog exists before accessing it.
{
short i,j,pic,pic2;
Rect the_rect,map_world_rect = {0,0,384,384};
GrafPtr old_port;
location where;
location kludge;
Rect draw_rect,orig_draw_rect = {0,0,6,6},ter_temp_from;
Rect dlogpicrect = {6,6,42,42};
Boolean draw_pcs = TRUE,out_mode;
Rect view_rect= {0,0,48,48},tiny_rect = {0,0,32,32},
redraw_rect = {0,0,48,48},big_rect = {0,0,64,64}; // Rectangle visible in view screen
Rect area_to_draw_from,area_to_draw_on = {29,47,269,287};
short small_adj = 0;
unsigned char what_ter,what_ter2;
Boolean draw_surroundings = FALSE,expl,expl2;
short total_size = 48; // if full redraw, use this to figure out everything
Rect area_to_put_on_map_rect;
Rect custom_from;
//if (forcing_map_button_redraw == TRUE) {
// forcing_map_button_redraw = FALSE;
// return;
// }
if (the_item == 4) {
draw_surroundings = TRUE;
the_item = 5;
}
if ((modeless_exists[5] == FALSE) && (the_item == 5) && (need_map_full_refresh == TRUE))
return;
if ((modeless_exists[5] == FALSE) && (the_item == 10)) {
need_map_full_refresh = TRUE;
return;
}
if ((modeless_exists[5] == TRUE) && (the_item != 11) && (need_map_full_refresh == TRUE)) {
need_map_full_refresh = FALSE;
the_item = 10;
}
if (the_item == 10) {
for (i = 0; i < 8; i++)
for (j = 0; j < 64; j++)
map_graphic_placed[i][j] = 0;
}
town_map_adj.x = 0;
town_map_adj.y = 0;
// view rect is rect that is visible, redraw rect is area to redraw now
// area_to_draw_from is final draw from rect
// area_to_draw_on is final draw to rect
// extern short store_pre_shop_mode,store_pre_talk_mode;
if ((is_out()) || ((is_combat()) && (which_combat_type == 0)) ||
((overall_mode == MODE_TALKING) && (store_pre_talk_mode == 0)) ||
((overall_mode == MODE_SHOPPING) && (store_pre_shop_mode == 0))) {
view_rect.left = minmax(0,8,party.loc_in_sec.x - 20);
view_rect.right = view_rect.left + 40;
view_rect.top = minmax(0,8,party.loc_in_sec.y - 20);
view_rect.bottom = view_rect.top + 40;
redraw_rect = view_rect;
}
else {
switch (town_type) {
case 0:
view_rect.left = minmax(0,24,c_town.p_loc.x - 20);
view_rect.right = view_rect.left + 40;
view_rect.top = minmax(0,24,c_town.p_loc.y - 20);
view_rect.bottom = view_rect.top + 40;
if (the_item == 5)
redraw_rect = view_rect;
else redraw_rect = big_rect;
total_size = 64;
break;
case 1:
view_rect.left = minmax(0,8,c_town.p_loc.x - 20);
view_rect.right = view_rect.left + 40;
view_rect.top = minmax(0,8,c_town.p_loc.y - 20);
view_rect.bottom = view_rect.top + 40;
redraw_rect = view_rect;
break;
case 2:
view_rect = tiny_rect;
redraw_rect = view_rect;
//InsetRect(&area_to_draw_to,48,48);
total_size = 32;
break;
}
}
if ((is_out()) || ((is_combat()) && (which_combat_type == 0)) ||
((overall_mode == MODE_TALKING) && (store_pre_talk_mode == 0)) ||
((overall_mode == MODE_SHOPPING) && (store_pre_shop_mode == 0)) ||
(((is_town()) || (is_combat())) && (town_type != 2))) {
area_to_draw_from = view_rect;
area_to_draw_from.left *= 6;
area_to_draw_from.right *= 6;
area_to_draw_from.top *= 6;
area_to_draw_from.bottom *= 6;
}
else {
area_to_draw_from = area_to_draw_on;
OffsetRect(&area_to_draw_from,-1 * area_to_draw_from.left,-1 * area_to_draw_from.top);
small_adj = 0;
}
if (is_combat())
draw_pcs = FALSE;
GetPort(&old_port);
SetPort( map_gworld);
TextFont(geneva_font_num);
if (modeless_exists[5] == TRUE) {
//GetDialogItem(the_dialog, 5, &the_type, &the_handle, &the_rect);
//map_rect = the_rect;
}
if (the_item == 11) {
PaintRect(&map_world_rect);
draw_pcs = FALSE;
}
/* else if ((is_combat()) && (which_combat_type == 0)) {
if (modeless_exists[5] == TRUE) {
PaintRect(&map_world_rect);
//GetDialogItem (the_dialog, 4, &the_type, &the_handle, &the_rect);
//SetDialogItemText (the_handle, comb_mess);
//FillCRect(&map_bar_rect,bg[4]);
//char_win_draw_string( modeless_dialogs[5],
// map_bar_rect,"No map in combat.",0,12);
draw_pcs = FALSE;
}
else {
SetPort(old_port);
return;
}
} */
else if ((is_town()) && ((c_town.town_num == -1) || (c_town.town_num == -1)))
{
if (modeless_exists[5] == TRUE) {
SetPort(GetDialogPort(the_dialog));
FillCRect(&map_bar_rect,bg[4]);
char_port_draw_string( GetDialogPort(modeless_dialogs[5]),
map_bar_rect,"No map here.",0,12,false);
draw_pcs = FALSE;
SetPort( map_gworld);
}
else {
SetPort(old_port);
return;
}
}
else {
if (modeless_exists[5] == TRUE) {
//SetPort(the_dialog);
//FillCRect(&map_bar_rect,bg[4]);
SetPort( map_gworld);
//char_win_draw_string( modeless_dialogs[5],
// map_bar_rect,"Hit Escape to close.",0,12);
}
if (the_item == 10) {
PaintRect(&map_world_rect);
}
// Now, if doing just partial restore, crop redraw_rect to save time.
if (the_item == 5) {
if ((is_out()) || ((is_combat()) && (which_combat_type == 0)) ||
((overall_mode == MODE_TALKING) && (store_pre_talk_mode == 0)) ||
((overall_mode == MODE_SHOPPING) && (store_pre_shop_mode == 0)))
kludge = global_to_local(party.p_loc);
else if (is_combat())
kludge = pc_pos[current_pc];
else kludge = c_town.p_loc;
redraw_rect.left = max(0,kludge.x - 4);
redraw_rect.right = min(view_rect.right,kludge.x + 5);
redraw_rect.top = max(0,kludge.y - 4);
redraw_rect.bottom = min(view_rect.bottom,kludge.y + 5);
}
// Now, if shopping or talking, just don't touch anything.
if ((overall_mode == MODE_SHOPPING) || (overall_mode == MODE_TALKING))
redraw_rect.right = -1;
if ((is_out()) ||
((is_combat()) && (which_combat_type == 0)) ||
((overall_mode == MODE_TALKING) && (store_pre_talk_mode == 0)) ||
((overall_mode == MODE_SHOPPING) && (store_pre_shop_mode == 0)))
out_mode = TRUE;
else out_mode = FALSE;
area_to_put_on_map_rect = redraw_rect;
if (the_item == 10) {
area_to_put_on_map_rect.top = area_to_put_on_map_rect.left = 0;
area_to_put_on_map_rect.right = area_to_put_on_map_rect.bottom = total_size;
}
for (where.x= area_to_put_on_map_rect.left; where.x < area_to_put_on_map_rect.right; where.x++)
for (where.y= area_to_put_on_map_rect.top; where.y < area_to_put_on_map_rect.bottom; where.y++)
if ((map_graphic_placed[where.x / 8][where.y] & (unsigned char)(s_pow(2,where.x % 8))) == 0)
{
draw_rect = orig_draw_rect;
OffsetRect(&draw_rect,6 * where.x + small_adj, 6 * where.y + small_adj);
if (out_mode == TRUE)
what_ter = out[where.x + 48 * party.i_w_c.x][where.y + 48 * party.i_w_c.y];
else what_ter = t_d.terrain[where.x][where.y];
ter_temp_from = orig_draw_rect;
if (out_mode == TRUE)
expl = out_e[where.x + 48 * party.i_w_c.x][where.y + 48 * party.i_w_c.y];
else expl = is_explored(where.x,where.y);
if (expl != 0) {
map_graphic_placed[where.x / 8][where.y] =
map_graphic_placed[where.x / 8][where.y] | (unsigned char)(s_pow(2,where.x % 8));
pic = scenario.ter_types[what_ter].picture;
if (pic >= 1000) {
if (spec_scen_g != NULL) {
//print_nums(0,99,pic);
pic = pic % 1000;
custom_from = coord_to_rect(pic % 10, pic / 10);
OffsetRect(&custom_from,-13,-13);
rect_draw_some_item(spec_scen_g,custom_from,map_gworld,draw_rect,0,0);
}
}
else switch ((pic >= 400) ? anim_map_pats[pic - 400] : map_pats[pic]) {
case 0: case 10: case 11:
if (terrain_pic[what_ter] < 400)
OffsetRect(&ter_temp_from,
6 * (terrain_pic[what_ter] % 10),6 * (terrain_pic[what_ter] / 10));
else OffsetRect(&ter_temp_from,
24 * ((terrain_pic[what_ter] - 400) / 5),6 * ((terrain_pic[what_ter] - 400) % 5) + 156);
rect_draw_some_item(tiny_map_graphics,ter_temp_from,
map_gworld,draw_rect,0,0);
break;
default:
if (((pic >= 400) ? anim_map_pats[pic - 400] : map_pats[pic]) < 30) {
// Try a little optimization
if ((pic < 400) && (where.x < area_to_put_on_map_rect.right - 1)) {
if (out_mode == TRUE)
what_ter2 = out[(where.x + 1)+ 48 * party.i_w_c.x][where.y + 48 * party.i_w_c.y];
else what_ter2 = t_d.terrain[where.x + 1][where.y];
if (out_mode == TRUE)
expl2 = out_e[(where.x + 1) + 48 * party.i_w_c.x][where.y + 48 * party.i_w_c.y];
else expl2 = is_explored(where.x + 1,where.y);
pic2 = scenario.ter_types[what_ter2].picture;
if ((map_pats[pic2] == map_pats[pic]) && (expl2 != 0)) {
draw_rect.right += 6;
kludge = where; kludge.x++; // I don't know why I need to
// do this, but it seems I do
map_graphic_placed[kludge.x / 8][kludge.y] =
map_graphic_placed[kludge.x / 8][kludge.y] | (unsigned char)(s_pow(2,kludge.x % 8));
}
}
FillCRect(&draw_rect,map_pat[((pic >= 400) ? anim_map_pats[pic - 400] : map_pats[pic]) - 1]);
break;
}
//OffsetRect(&ter_temp_from,
// 24 * ((map_pats[pic] - 30) / 5),
// 138 + 6 * ((map_pats[pic] - 30) % 5));
//rect_draw_some_item(tiny_map_graphics,ter_temp_from,
// map_gworld,draw_rect,0,0);
break;
}
}
}
}
// Now place terrain map gworld
if (modeless_exists[5] == TRUE) {
SetPort(GetDialogPort(the_dialog));
TextFont(geneva_font_num);
TextSize(10);
TextFace(bold);
if ((draw_surroundings == TRUE) || (the_item != 5)) { // redraw much stuff
GetPortBounds(GetDialogPort(the_dialog),&the_rect);
FillCRect(&the_rect,bg[4]);
draw_dialog_graphic( GetDialogPort(the_dialog), dlogpicrect,
21, PICT_DLG_TYPE, FALSE,0);
ForeColor(whiteColor);
char_port_draw_string( GetDialogPort(modeless_dialogs[5]),
map_title_rect,"Your map: (Hit Escape to close.)",0,12,false);
ForeColor(blackColor);
/*SetPort( the_dialog);
GetDialogItem(the_dialog, 1, &the_type, &the_handle, &the_rect);
PenSize(3,3);
InsetRect(&the_rect, -4, -4);
FrameRoundRect(&the_rect, 16, 16);
PenSize(1,1); */
}
rect_draw_some_item(map_gworld,area_to_draw_from,map_gworld,area_to_draw_on,0,2);
}
// Now place PCs and monsters
if ((draw_pcs == TRUE) && (modeless_exists[5] == TRUE)) {
if ((is_town()) && (party.stuff_done[SDF_PARTY_DETECT_LIFE] > 0))
for (i = 0; i < T_M; i++)
if (c_town.monst.dudes[i].active > 0) {
where = c_town.monst.dudes[i].m_loc;
if ((is_explored(where.x,where.y)) &&
((where.x >= view_rect.left) && (where.x < view_rect.right)
&& (where.y >= view_rect.top) && (where.x < view_rect.bottom))){
draw_rect.left = area_to_draw_on.left + 6 * (where.x - view_rect.left);
draw_rect.top = area_to_draw_on.top + 6 * (where.y - view_rect.top);
//if ((!is_out()) && (town_type == 2)) {
// draw_rect.left += 48;
// draw_rect.top += 48;
// }
draw_rect.right = draw_rect.left + 6;
draw_rect.bottom = draw_rect.top + 6;
map_graphic_placed[where.x / 8][where.y] =
map_graphic_placed[where.x / 8][where.y] & ~((unsigned char)(s_pow(2,where.x % 8)));
ForeColor(greenColor);
PaintRect(&draw_rect);
ForeColor(blueColor);
FrameOval(&draw_rect);
}
}
if ((overall_mode != MODE_SHOPPING) && (overall_mode != MODE_TALKING)) {
where = (is_town()) ? c_town.p_loc : global_to_local(party.p_loc);
draw_rect.left = area_to_draw_on.left + 6 * (where.x - view_rect.left);
draw_rect.top = area_to_draw_on.top + 6 * (where.y - view_rect.top);
//if ((!is_out()) && (town_type == 2)) {
// draw_rect.left += 48;
// draw_rect.top += 48;
// }
draw_rect.right = draw_rect.left + 6;
draw_rect.bottom = draw_rect.top + 6;
map_graphic_placed[where.x / 8][where.y] =
map_graphic_placed[where.x / 8][where.y] & ~((unsigned char)(s_pow(2,where.x % 8)));
ForeColor(redColor);
PaintRect(&draw_rect);
ForeColor(blackColor);
FrameOval(&draw_rect);
}
}
ForeColor(blackColor);
// Now exit gracefully
SetPort(old_port);
}
Boolean is_door(location destination)
{
if ((scenario.ter_types[t_d.terrain[destination.x][destination.y]].special == 9) ||
(scenario.ter_types[t_d.terrain[destination.x][destination.y]].special == 1) ||
(scenario.ter_types[t_d.terrain[destination.x][destination.y]].special == 10))
return TRUE;
return FALSE;
}
void display_map()
{
short the_type;
Handle the_handle = NULL;
Rect the_rect;
//create_modeless_dialog(1046);
ShowWindow(GetDialogWindow(modeless_dialogs[5]));
SetPort(GetDialogPort(modeless_dialogs[5]));
modeless_exists[5] = TRUE;
BringToFront(GetDialogWindow(modeless_dialogs[5]));
HiliteWindow(GetDialogWindow(modeless_dialogs[5]),TRUE);
// draw_map(modeless_dialogs[5],10);
// the_rect = modeless_dialogs[5]->portRect;
// FillCRect(&the_rect,bg[4]);
// draw_dialog_graphic( modeless_dialogs[5], dlogpicrect,
// 721, TRUE,0);
//DrawDialog(modeless_dialogs[5]);
// char_win_draw_string( modeless_dialogs[5],
// map_title_rect,"Your map:",0,12);
#ifndef EXILE_BIG_GUNS
GetDialogItem( modeless_dialogs[5], 5, &the_type, &the_handle, &the_rect);
SetDialogItem( modeless_dialogs[5], 5, the_type, (Handle)draw_map, &the_rect);
GetDialogItem( modeless_dialogs[5], 4, &the_type, &the_handle, &the_rect);
SetDialogItem( modeless_dialogs[5], 4, the_type, (Handle)draw_map, &the_rect);
#endif
#ifdef EXILE_BIG_GUNS
if (map_draw_UPP == NULL)
map_draw_UPP = NewUserItemProc(draw_map);
GetDialogItem( modeless_dialogs[5], 5, &the_type, &the_handle, &the_rect);
SetDialogItem( modeless_dialogs[5], 5, the_type, (Handle)map_draw_UPP, &the_rect);
GetDialogItem( modeless_dialogs[5], 4, &the_type, &the_handle, &the_rect);
SetDialogItem( modeless_dialogs[5], 4, the_type, (Handle)map_draw_UPP, &the_rect);
#endif
}
void check_done() {
}
Boolean quadrant_legal(short i, short j)
{
if (party.outdoor_corner.x + i >= scenario.out_width)
return FALSE;
if (party.outdoor_corner.y + j >= scenario.out_height)
return FALSE;
if (party.outdoor_corner.x + i < 0)
return FALSE;
if (party.outdoor_corner.y + j < 0)
return FALSE;
return TRUE;
}
Reference in New Issue View Git Blame Copy Permalink