openboe/oboe-original
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
oboe-original/Macintosh Code Release 3/info.dialogs.c
Nat Quayle Nelson 8555d53110 Fix line endings
2025-05-14 09:39:09 -05:00

1488 lines
37 KiB
C
Executable File
Raw Permalink Blame History

#include <Dialogs.h>
#include <TextUtils.h>
#include <Windows.h>
#include <Quickdraw.h>
#include <Events.h>
#include <QDOffscreen.h>
#include "stdio.h"
#include "global.h"
#include "blxgraphics.h"
#include "newgraph.h"
#include "items.h"
#include "string.h"
#include "monster.h"
#include "dlogtool.h"
#include "party.h"
#include "fields.h"
#include "loc_utils.h"
#include "text.h"
#include "Exile.sound.h"
#include "info.dialogs.h"
#include "blxfileio.h"
short mage_spell_pos = 0,priest_spell_pos = 0,skill_pos = 0;
pc_record_type *store_pc;
creature_data_type *store_m;
short store_trait_mode,store_item_pc,store_pc_num;
item_record_type store_i;
extern short spell_w_cast[2][62];
extern short spell_level[62];
extern short skill_cost[20];
extern short skill_max[20];
extern short skill_g_cost[20];
extern pc_record_type adven[6];
extern short which_pc_displayed;
extern party_record_type party;
extern short mage_range[66],priest_range[66];
extern short spell_cost[2][62],cur_town_talk_loaded;
extern Boolean in_startup_mode,give_intro_hint;
extern pascal Boolean cd_event_filter();
extern Boolean dialog_not_toast;
extern WindowPtr mainPtr;
extern short on_monst_menu[256];
extern big_tr_type t_d;
extern ModalFilterUPP main_dialog_UPP;
extern location tinraya_portculli[12];
extern piles_of_stuff_dumping_type *data_store;
Boolean full_roster = FALSE;
extern short dest_personalities[40];
extern location dest_locs[40];
extern short dest_personalities[40];
location source_locs[6] = {{2,9},{0,6},{3,6},{3,4},{6,2},{0,0}};
extern location dest_locs[40] ;
extern char *alch_names[];
extern scenario_data_type scenario;
// Displaying string vars
short store_str1a;
short store_str1b;
short store_str2a;
short store_str2b;
short store_which_string_dlog;
short store_page_on,store_num_i;
short store_str_label_1,store_str_label_2,store_str_label_1b,store_str_label_2b;
// Misc dialog vars
short store_display_mode,store_displayed_item,position,cur_entry,num_entries,store_help_mode;
creature_data_type hold_m;
void put_spell_info()
{
Str255 store_text;
short pos,res,ran;
pos = (store_display_mode == 0) ? mage_spell_pos : priest_spell_pos;
res = (store_display_mode == 0) ? 7 : 8;
ran = (store_display_mode == 0) ? mage_range[pos] : priest_range[pos];
get_str (store_text, res, pos * 2 + 1);
cd_set_item_text(1096,4,(char *) store_text);
if (spell_cost[store_display_mode][pos] > 0)
sprintf((char *) store_text, "%d/%d",spell_level[pos],spell_cost[store_display_mode][pos]);
else sprintf((char *) store_text, "%d/?",spell_level[pos]);
cd_set_item_text(1096,5,(char *) store_text);
if (ran == 0) {
cd_set_item_text(1096,6,"");
}
else cd_set_item_num(1096,6,ran);
get_str (store_text, res, pos * 2 + 2);
cd_set_item_text(1096,7,(char *) store_text);
get_str (store_text, 11, 1 + spell_w_cast[store_display_mode][pos]);
cd_set_item_text(1096,11,(char *) store_text);
}
Boolean display_spells_event_filter (short item_hit)
{
short store;
switch (item_hit) {
case 1: case 8:
dialog_not_toast = FALSE;
break;
case 9: case 10:
store = (store_display_mode == 0) ? mage_spell_pos : priest_spell_pos;
if (item_hit == 9) {
store = (store == 0) ? 61 : store - 1;
}
else {
store = (store + 1) % 62;
}
if (store_display_mode == 0)
mage_spell_pos = store;
else priest_spell_pos = store;
put_spell_info();
break;
}
return FALSE;
}
void display_spells(short mode,short force_spell,short parent_num)
//short mode; // 0 - mage 1 - priest
//short force_spell; // if 100, ignore
{
short buy_val,i,store,item_hit;
Str255 get_text;
store_display_mode = mode;
if (force_spell < 100) {
if (mode == 0)
mage_spell_pos = force_spell;
else priest_spell_pos = force_spell;
}
make_cursor_sword();
cd_create_dialog_parent_num(1096,parent_num);
cd_set_pict(1096,18,714 + mode);
put_spell_info();
if (mode == 0)
csit(1096,3,"Mage Spells");
else csit(1096,3,"Priest Spells");
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(1096,0);
}
void put_skill_info()
{
Str255 store_text;
short pos;
pos = skill_pos;
get_str(store_text,9,pos * 2 + 1);
cd_set_item_text(1097,3,(char *) store_text);
cd_set_item_num(1097,4,skill_cost[pos]);
cd_set_item_num(1097,5,skill_g_cost[pos]);
cd_set_item_num(1097,6,skill_max[pos]);
get_str (store_text, 9, pos * 2 + 2);
cd_set_item_text(1097,7,(char *) store_text);
get_str (store_text, 12, 1 + pos);
cd_set_item_text(1097,8,(char *) store_text);
}
Boolean display_skills_event_filter (short item_hit)
{
switch (item_hit) {
case 1: case 11:
dialog_not_toast = FALSE;
break;
case 10: case 9:
if (item_hit == 9) {
skill_pos = (skill_pos == 0) ? 18 : skill_pos - 1;
}
else {
skill_pos = (skill_pos + 1) % 19;
}
put_skill_info();
break;
}
return FALSE;
}
void display_skills(short force_skill,short parent)
{
long val_for_text;
short buy_val,i,store,item_hit;
if (force_skill < 100)
skill_pos = force_skill;
if (skill_pos < 0)
skill_pos = 0;
make_cursor_sword();
cd_create_dialog_parent_num(1097,parent);
put_skill_info();
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(1097,0);
}
void put_pc_graphics()
{
short item_hit,what_talk_field,i;
for (i = 3; i < 65; i++) {
if (((store_trait_mode == 0) && (adven[which_pc_displayed].mage_spells[i - 3] == TRUE)) ||
((store_trait_mode == 1) && (adven[which_pc_displayed].priest_spells[i - 3] == TRUE)))
cd_set_led(991,i,1);
else cd_set_led(991,i,0);
}
cd_set_item_text(991,69,adven[which_pc_displayed].name);
}
Boolean display_pc_event_filter (short item_hit)
{
short pc_num;
pc_num = which_pc_displayed;
switch (item_hit) {
case 1: case 65:
dialog_not_toast = FALSE;
break;
case 66:
do {
pc_num = (pc_num == 0) ? 5 : pc_num - 1;
} while (adven[pc_num].main_status == 0);
which_pc_displayed = pc_num;
put_pc_graphics();
break;
case 67:
do {
pc_num = (pc_num == 5) ? 0 : pc_num + 1;
} while (adven[pc_num].main_status == 0);
which_pc_displayed = pc_num;
put_pc_graphics();
break;
case 100:
break;
}
return FALSE;
}
void display_pc(short pc_num,short mode,short parent)
{
short i,item_hit;
Str255 label_str;
if (adven[pc_num].main_status == 0) {
for (pc_num = 0; pc_num < 6; pc_num++)
if (adven[pc_num].main_status == 1)
break;
}
which_pc_displayed = pc_num;
store_trait_mode = mode;
make_cursor_sword();
cd_create_dialog_parent_num(991,parent);
for (i = 3; i < 65; i++) {
get_str(label_str,(mode == 0) ? 7 : 8,(i - 3) * 2 + 1);
cd_add_label(991,i,(char *)label_str,46);
}
put_pc_graphics();
cd_set_pict(991,2,714 + mode);
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(991,0);
}
void put_item_info(short pc,short item)////
{
char store_text[256];
Str255 desc_str;
short pos,i;
item_record_type s_i;
char *item_types[] = {"","1-Handed weapon","2-Handed weapon","","Bow","Arrows","Thrown missile",
"Potion/Magic Item","Scroll/Magic Item","Wand","Tool","","Shield","Armor","Helm",
"Gloves","Shield","Boots","Ring","Necklace",
"Weapon Poison","Gem, Stone, Etc.","Pants","Crossbow","Bolts","Missile Weapon"};
s_i = store_i;
csp(998,1,950);
if (s_i.graphic_num >= 150)
csp(998,1,s_i.graphic_num - 150 + 2000);
else csp(998,1,1800 + s_i.graphic_num);
// id? magic?
if ((is_magic(store_i) == TRUE) && (is_ident(store_i) == TRUE))
cd_set_led(998,17,1);
else cd_set_led(998,17,0);
if (is_ident(store_i) == TRUE)
cd_set_led(998,16,1);
else cd_set_led(998,16,0);
cd_set_item_text(998,4, item_types[s_i.variety]);
// Clear fields
for (i = 5; i < 13; i++) {
cd_set_item_text(998,i, "");
}
if (is_ident(s_i) == FALSE) {
cd_set_item_text(998,3, s_i.name);
return;
}
cd_set_item_text(998,3, s_i.full_name);
i = item_weight(s_i);
cd_set_item_num(998,20,i);
cd_set_item_num(998,5,(s_i.charges > 0) ? s_i.value * s_i.charges : s_i.value);
if (s_i.ability > 0) {////
get_str(desc_str,23,s_i.ability + 1);
cd_set_item_text(998,12,(char *) desc_str);
}
if (s_i.charges > 0)
cd_set_item_num(998,10,s_i.charges);
if (s_i.protection > 0)
cd_set_item_num(998,8,s_i.protection);
switch (s_i.variety) {
case 1: case 2:
cd_set_item_num(998,6,s_i.item_level);
cd_set_item_num(998,7,s_i.bonus);
switch (s_i.type) {
case 1:sprintf((char *) store_text, "Edged weapon");
break;
case 2:sprintf((char *) store_text, "Bashing weapon");
break;
case 3:sprintf((char *) store_text, "Pole weapon");
break;
}
if (s_i.ability == 0)
cd_set_item_text(998,12,store_text);
break;
case 4: case 23:
cd_set_item_num(998,6,s_i.item_level);
cd_set_item_num(998,7,s_i.bonus);
break;
case 5: case 6: case 24: case 25:
cd_set_item_num(998,6,s_i.item_level);
cd_set_item_num(998,7,s_i.bonus);
break;
case 7: case 18:
cd_set_item_num(998,11,s_i.item_level);
break;
case 12: case 13: case 14: case 15: case 16: case 17:
cd_set_item_num(998,7,s_i.bonus + s_i.protection);
cd_set_item_num(998,8,s_i.item_level);
cd_set_item_num(998,9,s_i.awkward);
break;
case 20:
cd_set_item_num(998,11,s_i.item_level);
break;
}
}
Boolean display_pc_item_event_filter (short item_hit)
{
short item,pc_num;
item = store_displayed_item;
pc_num = store_item_pc;
switch (item_hit) {
case 1: case 13:
dialog_not_toast = FALSE;
break;
case 14:
do {
item = (item == 0) ? 23 : item - 1;
} while (adven[pc_num].items[item].variety == 0);
store_displayed_item = item;
store_i = adven[pc_num].items[item];
put_item_info(pc_num,item);
break;
case 15:
do {
item = (item == 23) ? 0 : item + 1;
} while (adven[pc_num].items[item].variety == 0);
store_displayed_item = item;
store_i = adven[pc_num].items[item];
put_item_info(pc_num,item);
break;
case 100:
break;
}
return FALSE;
}
void display_pc_item(short pc_num,short item,item_record_type si,short parent)
{
short item_hit;
store_item_pc = pc_num;
if (pc_num == 6)
store_i = si;
else store_i = adven[pc_num].items[item];
store_displayed_item = item;
make_cursor_sword();
if (cd_create_dialog_parent_num(998,parent) < 0)
return;
if (store_item_pc >= 6) {
cd_activate_item(998,14,0);
cd_activate_item(998,15,0);
}
cd_add_label(998,3,"Name:",1026);
cd_add_label(998,4,"Type:",1026);
cd_add_label(998,5,"Value:",1020);
cd_add_label(998,6,"Damage:",1026);
cd_add_label(998,7,"Bonus:",1024);
cd_add_label(998,8,"Defend:",1025);
cd_add_label(998,9,"Encumb.:",1029);
cd_add_label(998,10,"Uses:",1019);
cd_add_label(998,11,"Item Level:",1037);
cd_add_label(998,12,"Ability:",1026);
cd_add_label(998,16,"ID?",1013);
cd_add_label(998,17,"Magic?",1022);
cd_add_label(998,20 ,"Weight",1027);
cd_activate_item(998,18,0);
cd_activate_item(998,19,0);
put_item_info(pc_num,item);
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(998,0);
}
void put_monst_info()////
{
char store_text[256];
Str255 str;
short abil,i;
if ( store_m->m_d.spec_skill == 11)
cd_set_pict(999,4,400);
else if (store_m->m_d.picture_num < 1000)
cd_set_pict(999,4,400 + store_m->m_d.picture_num);
else cd_set_pict(999,4,2000 + (store_m->m_d.picture_num % 1000));
get_m_name((char *) store_text,store_m->number);
cd_set_item_text(999,5,store_text);
// Clear fields
for (i = 6; i < 20; i++) {
cd_set_item_text(999,i,"");
}
abil = store_m->m_d.spec_skill;
get_str(str,20,abil + 1);
cd_set_item_text(999,19,(char *) str);
get_str(str,20,store_m->m_d.radiate_1 + 50);
cd_set_item_text(999,31,(char *) str);
for (i = 0; i < 3; i++)
if (store_m->m_d.a[i] > 0) {
sprintf((char *) store_text," %dd%d ",
store_m->m_d.a[i] / 100 + 1, store_m->m_d.a[i] % 100);
cd_set_item_text(999,13 + i,store_text);
}
cd_set_item_num(999,6,store_m->m_d.level);
cd_set_item_num(999,7,store_m->m_d.health);
cd_set_item_num(999,8,store_m->m_d.mp);
cd_set_item_num(999,9,store_m->m_d.armor);
cd_set_item_num(999,10,store_m->m_d.skill);
cd_set_item_num(999,11,store_m->m_d.morale);
cd_set_item_num(999,12,store_m->m_d.speed);
cd_set_item_num(999,16,store_m->m_d.mu);
cd_set_item_num(999,17,store_m->m_d.cl);
cd_set_item_num(999,18,store_m->m_d.poison);
// 2140 - lit 2141 - dark
// immunities
for (i = 0; i < 8; i++)
if (store_m->m_d.immunities & (char)(s_pow(2,i)))
cd_set_led(999,20 + i,1);
else cd_set_led(999,20 + i,0);
}
Boolean display_monst_event_filter (short item_hit)
{
short i,dummy = 0;
switch (item_hit) {
case 1: case 3:
dialog_not_toast = FALSE;
break;
case 28:
if (position == 0) {
for (i = 255; on_monst_menu[i] < 0 && i > 0; i--)
dummy++;
position = i;
}
else position--;
if (on_monst_menu[position] < 0)
position = 0;
store_m->number = (unsigned char)on_monst_menu[position];
store_m->m_d = return_monster_template((unsigned char)on_monst_menu[position]);
put_monst_info();
break;
case 29:
position++;
if (on_monst_menu[position] < 0)
position = 0;
store_m->number = (unsigned char)on_monst_menu[position];
store_m->m_d = return_monster_template((unsigned char)on_monst_menu[position]);
put_monst_info();
break;
case 100:
break;
}
return FALSE;
}
void display_monst(short array_pos,creature_data_type *which_m,short mode)
//creature_data_type *which_m; // if NULL, show full roster
//short mode; // if 1, full roster, else use monster from storwhich_me_m
{
short item_hit;
position = array_pos;
full_roster = FALSE;
if (mode == 1) {
full_roster = TRUE;
store_m = &hold_m;
store_m->number = on_monst_menu[array_pos];
store_m->m_d = return_monster_template((unsigned char)on_monst_menu[array_pos]);
}
else {
hold_m = *which_m;
store_m = which_m;
}
make_cursor_sword();
cd_create_dialog(999,mainPtr);
if (full_roster == FALSE) {
cd_activate_item(999,28,0);
cd_activate_item(999,29,0);
}
cd_add_label(999,5,"Name",1026);
cd_add_label(999,6,"Level",1021);
cd_add_label(999,7,"Health",1024);
cd_add_label(999,8,"Magic Pts.",1032);
cd_add_label(999,9,"Armor",1023);
cd_add_label(999,10,"Skill",1018);
cd_add_label(999,11,"Morale",1023);
cd_add_label(999,12,"Speed",1019);
cd_add_label(999,13,"Att #1",1026);
cd_add_label(999,14,"Att #2",1023);
cd_add_label(999,15,"Att #3",1022);
cd_add_label(999,16,"Mage L.",1034);
cd_add_label(999,17,"Priest L.",1030);
cd_add_label(999,18,"Poison",1023);
cd_add_label(999,19,"Ability 1",1029);
cd_add_label(999,31,"Ability 2",1029);
cd_add_label(999,20,"Magic Resistant",45);
cd_add_label(999,21,"Immune To Magic",45);
cd_add_label(999,22,"Fire Resistant",45);
cd_add_label(999,23,"Immune To Fire",45);
cd_add_label(999,24,"Cold Resistant",45);
cd_add_label(999,25,"Immune To Cold",45);
cd_add_label(999,26,"Poison Resistant",45);
cd_add_label(999,27,"Immune To Poison",45);
put_monst_info();
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(999,0);
}
Boolean display_help_event_filter (short item_hit)
{
Str255 get_text;
switch (item_hit) {
case 1: case 3:
dialog_not_toast = FALSE;
break;
case 4: case 5:
if (item_hit == 4)
cur_entry = (cur_entry == 3) ? num_entries + 2 : cur_entry - 1;
else cur_entry = (cur_entry == num_entries + 2) ? 3 : cur_entry + 1;
get_str (get_text, 25 + store_help_mode, cur_entry);
cd_set_item_text(997,7,(char *) get_text);
break;
}
return FALSE;
}
void display_help(short mode,short parent)
{
Str255 get_text;
long get_val;
short item_hit;
store_help_mode = mode;
cur_entry = 3;
make_cursor_sword();
cd_create_dialog_parent_num(997,parent);
get_str (get_text, 25 + mode, 1);
csit( 997,6,(char *) get_text);
GetIndString (get_text, 25 + mode, 2);
StringToNum(get_text,&get_val);
num_entries = (short) get_val;
get_str (get_text, 25 + mode, cur_entry);
csit( 997,7,(char *) get_text);
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(997,0);
}
Boolean display_alchemy_event_filter (short item_hit)
{
switch (item_hit) {
case 1: case 3:
dialog_not_toast = FALSE;
break;
}
return FALSE;
}
void display_alchemy()
{
short i,item_hit;
make_cursor_sword();
cd_create_dialog_parent_num(996,1019);
for (i = 0; i < 20; i++) {
cd_add_label(996,i + 4,alch_names[i],1083);
if (party.alchemy[i] > 0)
cd_set_led(996,i + 4,1);
else cd_set_led(996,i + 4,0);
}
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(996,0);
dialog_not_toast = TRUE;
}
void display_traits_graphics()
{
short i,store;
Str255 str;
for (i = 0; i < 3; i++) {
cd_set_led(1013,4 + i,(store_pc->race == i) ? 1 : 0);
}
for (i = 0; i < 10; i++) {
cd_set_led(1013,7 + i,(store_pc->traits[i] > 0) ? 1 : 0);
}
for (i = 0; i < 5; i++) {
cd_set_led(1013,36 + i,(store_pc->traits[10 + i] > 0) ? 1 : 0);
}
store = get_tnl(store_pc);
cdsin(1013,18,store);
}
void pick_race_abil_event_filter(short item_hit)
{
Str255 abil_str;
pc_record_type *pc;
pc = store_pc;
switch (item_hit) {
case 3:
dialog_not_toast = FALSE;
break;
case 4: case 5: case 6:
if (store_trait_mode == 0)
pc->race = item_hit - 4;
display_traits_graphics();
get_str(abil_str,5,12 + item_hit);
csit(1013,19,(char *) abil_str);
break;
case 36: case 37: case 38: case 39: case 40:
if (store_trait_mode != 1)
pc->traits[item_hit - 36 + 10] = (pc->traits[item_hit - 36 + 10] == TRUE) ? FALSE : TRUE;
display_traits_graphics();
get_str(abil_str,5,item_hit - 36 + 11);
csit(1013,19,(char *) abil_str);
break;
default:
if (item_hit >= 100)
return;
if (store_trait_mode != 1)
pc->traits[item_hit - 7] = (pc->traits[item_hit - 7] == TRUE) ? FALSE : TRUE;
display_traits_graphics();
get_str(abil_str,5,item_hit - 6);
csit(1013,19,(char *) abil_str);
break;
}
}
void pick_race_abil(pc_record_type *pc,short mode,short parent_num)
//mode; // 0 - edit 1 - just display 2 - can't change race
{
char *start_str1 = "Click on button by name for description.";
char *start_str2 = "Click on advantage button to add/remove.";
short item_hit;
store_trait_mode = mode;
store_pc = pc;
make_cursor_sword();
cd_create_dialog_parent_num(1013,parent_num);
display_traits_graphics();
if (mode == 1)
csit(1013,19,start_str1);
else csit(1013,19,start_str2);
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(1013,0);
dialog_not_toast = TRUE;
}
void display_pc_info()
{
short i,store;
Str255 str;
short pc;
char to_draw[60];
short weap1 = 24,weap2 = 24,hit_adj = 0, dam_adj = 0,skill_item;
pc = store_pc_num;
store = pc_carry_weight(pc);
i = amount_pc_can_carry(pc);
sprintf ((char *) to_draw, "%s is carrying %d stones out of %d.",adven[pc].name,store,i);
csit(1019,69,(char *) to_draw);
sprintf((char *) str,"%d out of %d.",
adven[pc].cur_health,adven[pc].max_health);
csit(1019,65,(char *) str);
sprintf((char *) str,"%d out of %d.",
adven[pc].cur_sp,adven[pc].max_sp);
csit(1019,67,(char *) str);
for (i = 0; i < 19; i++) {
cdsin(1019,18 + i * 2,adven[pc].skills[i]);
}
store = total_encumberance(pc);
cdsin(1019,62,store);
csit(1019,9,adven[pc].name);
cdsin(1019,11,adven[pc].level);
cdsin(1019,13,adven[pc].experience);
cdsin(1019,71,adven[pc].skill_pts);
store = adven[pc].level * get_tnl(&adven[pc]);
cdsin(1019,15,store);
csp(1019,7,800 + adven[pc].which_graphic);
// Fight bonuses
for (i = 0; i < 24; i++)
if (((adven[pc].items[i].variety == 1) || (adven[pc].items[i].variety == 2)) &&
(adven[pc].equip[i] == TRUE)) {
if (weap1 == 24)
weap1 = i;
else weap2 = i;
}
hit_adj = stat_adj(pc,1) * 5 - (total_encumberance(pc)) * 5
+ 5 * minmax(-8,8,adven[pc].status[1]);
if ((adven[pc].traits[2] == FALSE) && (weap2 < 24))
hit_adj -= 25;
dam_adj = stat_adj(pc,0) + minmax(-8,8,adven[pc].status[1]);
if ((skill_item = text_pc_has_abil_equip(pc,37)) < 24) {
hit_adj += 5 * (adven[pc].items[skill_item].item_level / 2 + 1);
dam_adj += adven[pc].items[skill_item].item_level / 2;
}
if ((skill_item = text_pc_has_abil_equip(pc,43)) < 24) {
dam_adj += adven[pc].items[skill_item].item_level;
hit_adj += adven[pc].items[skill_item].item_level * 2;
}
csit(1019,56,"No weapon.");
csit(1019,57,"");
csit(1019,59,"No weapon.");
csit(1019,60,"");
if (weap1 < 24) {
if (is_ident(adven[pc].items[weap1]) == FALSE)
csit(1019,56,"Not identified.");
else {
if (hit_adj + 5 * adven[pc].items[weap1].bonus < 0)
sprintf(to_draw,"Penalty to hit: %%%d",hit_adj + 5 * adven[pc].items[weap1].bonus);
else sprintf(to_draw,"Bonus to hit: +%%%d",hit_adj + 5 * adven[pc].items[weap1].bonus);
csit(1019,56,to_draw);
sprintf(to_draw,"Damage: (1-%d) + %d",adven[pc].items[weap1].item_level
,dam_adj + adven[pc].items[weap1].bonus);
csit(1019,57,to_draw);
}
}
if (weap2 < 24) {
if (is_ident(adven[pc].items[weap2]) == FALSE)
csit(1019,59,"Not identified.");
else {
if (hit_adj + 5 * adven[pc].items[weap2].bonus < 0)
sprintf(to_draw,"Penalty to hit: %%%d",hit_adj + 5 * adven[pc].items[weap2].bonus);
else sprintf(to_draw,"Bonus to hit: +%%%d",hit_adj + 5 * adven[pc].items[weap2].bonus);
csit(1019,59,to_draw);
sprintf(to_draw,"Damage: (1-%d) + %d",adven[pc].items[weap2].item_level
,dam_adj + adven[pc].items[weap2].bonus);
csit(1019,60,to_draw);
}
}
}
void give_pc_info_event_filter(short item_hit)
{
Str255 abil_str;
short pc;
pc = store_pc_num;
switch (item_hit) {
case 1:
dialog_not_toast = FALSE;
break;
case 2:
do
store_pc_num = (store_pc_num == 0) ? 5 : store_pc_num - 1;
while (adven[store_pc_num].main_status != 1);
display_pc_info();
break;
case 3:
do
store_pc_num = (store_pc_num + 1) % 6;
while (adven[store_pc_num].main_status != 1);
display_pc_info();
break;
case 4:
display_pc(pc,0,1019);
break;
case 5:
display_pc(pc,1,1019);
break;
case 6:
pick_race_abil(&adven[pc],1,1019);
break;
case 68:
display_alchemy();
break;
}
}
void give_pc_info(short pc_num)
{
short item_hit ,i;
Str255 str;
store_pc_num = pc_num;
make_cursor_sword();
cd_create_dialog_parent_num(1019,0);
for (i = 0; i < 19; i++) {
get_str(str,9,1 + i * 2);
csit(1019,17 + i * 2,(char *) str);
}
display_pc_info();
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(1019,0);
}
void adventure_notes_event_filter (short item_hit)
{
short i;
Str255 place_str;
switch (item_hit) {
case 1:
dialog_not_toast = FALSE;
break;
case 7: case 8:
if (item_hit == 7) {
if (store_page_on == 0)
store_page_on = (store_num_i - 1) / 3;
else store_page_on--;
}
else {
if (store_page_on == (store_num_i - 1) / 3)
store_page_on = 0;
else store_page_on++;
}
break;
case 10: case 9: case 11:
party.special_notes_str[(store_page_on * 3) + item_hit - 9][0] = -1;
break;
}
for (i = 0; i < 3; i++) {
if (party.special_notes_str[i][0] > 0) {
switch (party.special_notes_str[i][0] / 1000) {
case 0: strcpy((char *) place_str,data_store->scen_strs[party.special_notes_str[i][0] % 1000]); break;
case 1:
load_outdoors(party.special_notes_str[i][1] % scenario.out_width,
party.special_notes_str[i][1] / scenario.out_width,
0,0,1,party.special_notes_str[i][0] % 1000,(char *)place_str);
break;
case 2: load_town(party.special_notes_str[i][1],2,party.special_notes_str[i][0],(char *)place_str); break;
}
get_str(place_str,party.special_notes_str[i][0],party.special_notes_str[i][1]);
csit(961,3 + i,(char *) place_str);
cd_activate_item(961,9 + i,1);
}
else cd_activate_item(961,9 + i,0);
}
for (i = store_page_on * 3; i < (store_page_on * 3) + 3; i++) {
if (party.special_notes_str[i][0] > 0) {
switch (party.special_notes_str[i][0] / 1000) {
case 0: strcpy((char *) place_str,data_store->scen_strs[party.special_notes_str[i][0] % 1000]); break;
case 1:
load_outdoors(party.special_notes_str[i][1] % scenario.out_width,
party.special_notes_str[i][1] / scenario.out_width,
0,0,1,party.special_notes_str[i][0] % 1000,(char *)place_str);
break;
case 2: load_town(party.special_notes_str[i][1],2,party.special_notes_str[i][0] % 1000,(char *)place_str); break;
}
csit(961,3 + (i - store_page_on * 3),(char *) place_str);
cd_activate_item(961,9 + (i - store_page_on * 3),1);
}
else {
csit(961,3 + (i - store_page_on * 3),"");
cd_activate_item(961,9 + (i - store_page_on * 3),0);
}
}
}
void adventure_notes()
{
long val_for_text;
short i,item_hit;
Str255 place_str;
store_num_i = 0;
for (i = 0; i < 140; i++)
if (party.special_notes_str[i][0] > 0)
store_num_i = i + 1;
store_page_on = 0;
if (store_num_i == 0) {
ASB("Nothing in your journal.");
print_buf();
return;
}
make_cursor_sword();
cd_create_dialog_parent_num(961,0);
for (i = 0; i < 3; i++) {
if (party.special_notes_str[i][0] > 0) {
switch (party.special_notes_str[i][0] / 1000) {
case 0: strcpy((char *) place_str,data_store->scen_strs[party.special_notes_str[i][0] % 1000]); break;
case 1:
load_outdoors(party.special_notes_str[i][1] % scenario.out_width,
party.special_notes_str[i][1] / scenario.out_width,
0,0,1,party.special_notes_str[i][0] % 1000,(char *)place_str);
break;
case 2: load_town(party.special_notes_str[i][1],2,party.special_notes_str[i][0] % 1000,(char *)place_str); break;
}
csit(961,3 + i,(char *) place_str);
cd_activate_item(961,9 + i,1);
}
else cd_activate_item(961,9 + i,0);
}
if (store_num_i <= 3) {
cd_activate_item(961,7,0);
cd_activate_item(961,8,0);
}
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(961,0);
}
void put_talk()
{
short personality;
Str255 place_str;
csit(960,3,"");
csit(960,5,"");
csit(960,7,"");
csit(960,9,"");
if ((personality = party.talk_save[store_page_on].personality) >= 0) {
if (personality / 10 != cur_town_talk_loaded)
load_town(personality / 10,1,0,NULL);
load_town(party.talk_save[store_page_on].town_num,2,0,(char *) place_str);
csit(960,9,(char *) place_str);
//get_str(place_str,120 + ((personality - 1) / 10),((personality - 1) % 10) + 1);
csit(960,7,data_store->talk_strs[personality % 10]);
if (party.talk_save[store_page_on].str1 >= 1000) {
if (party.talk_save[store_page_on].str1 >= 3000)
csit(960,3,data_store->scen_strs[party.talk_save[store_page_on].str1 - 3000 ]);
else {
load_town(party.talk_save[store_page_on].town_num,2,
party.talk_save[store_page_on].str1 - 2000 ,(char *) place_str);
csit(960,3,(char *) place_str);
}
}
else if (party.talk_save[store_page_on].str1 > 0)
csit(960,3,data_store->talk_strs[party.talk_save[store_page_on].str1]);
if (party.talk_save[store_page_on].str2 >= 1000) {
if (party.talk_save[store_page_on].str2 >= 3000)
csit(960,5,data_store->scen_strs[party.talk_save[store_page_on].str2 - 3000 + 160]);
else {
load_town(party.talk_save[store_page_on].town_num,2,
party.talk_save[store_page_on].str2 - 2000 + 20,(char *) place_str);
csit(960,5,(char *) place_str);
}
}
else if (party.talk_save[store_page_on].str2 > 0)
csit(960,5,data_store->talk_strs[party.talk_save[store_page_on].str2]);
}
}
void talk_notes_event_filter (short item_hit)
{
short i;
Str255 place_str;
switch (item_hit) {
case 1:
dialog_not_toast = FALSE;
break;
case 10: case 11:
if (item_hit == 10) {
if (store_page_on == 0)
store_page_on = store_num_i - 1;
else store_page_on--;
}
else {
if (store_page_on == store_num_i - 1)
store_page_on = 0;
else store_page_on++;
}
break;
case 12:
party.talk_save[store_page_on].personality = -1;
break;
}
put_talk();
}
void talk_notes()
{
long val_for_text;
short i,item_hit;
Str255 place_str;
store_num_i = 0;
for (i = 0; i < 120; i++)
if (party.talk_save[i].personality != -1)
store_num_i = i + 1;
store_page_on = 0;
if (store_num_i == 0) {
ASB("Nothing in your talk journal.");
print_buf();
return;
}
make_cursor_sword();
cd_create_dialog_parent_num(960,0);
put_talk();
if (store_num_i == 1) {
cd_activate_item(960,10,0);
cd_activate_item(960,11,0);
}
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(960,0);
}
void journal_event_filter (short item_hit)
{
short i;
Str255 place_str;
switch (item_hit) {
case 1:
dialog_not_toast = FALSE;
break;
case 7: case 8:
if (item_hit == 7) {
if (store_page_on == 0)
store_page_on = (store_num_i - 1) / 3;
else store_page_on--;
}
else {
if (store_page_on == (store_num_i - 1) / 3)
store_page_on = 0;
else store_page_on++;
}
break;
}
for (i = 0; i < 3; i++) {
if (party.journal_str[i + (store_page_on * 3)] > 0) {
////get_str(place_str,17,party.journal_str[i + (store_page_on * 3)]);
csit(962,3 + i,data_store->scen_strs[party.journal_str[i] + 10]);
sprintf((char *)place_str,"Day: %d",party.journal_day[i + (store_page_on * 3)]);
csit(962,9 + i,(char *)place_str);
}
else {csit(962,3 + i,"");csit(962,9 + i,"");}
}
}
void journal()
{
long val_for_text;
short i,item_hit;
Str255 place_str;
store_num_i = 0;
for (i = 0; i < 120; i++)
if (party.journal_str[i] > 0)
store_num_i = i + 1;
store_page_on = 0;
make_cursor_sword();
cd_create_dialog_parent_num(962,0);
for (i = 0; i < 3; i++) {
if (party.journal_str[i] > 0) {
////get_str(place_str,17,party.journal_str[i]);
csit(962,3 + i,data_store->scen_strs[party.journal_str[i] + 10]);
sprintf((char *)place_str,"Day: %d",party.journal_day[i]);
csit(962,9 + i,(char *)place_str);
}
}
if (store_num_i <= 3) {
cd_activate_item(962,7,0);
cd_activate_item(962,8,0);
}
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
cd_kill_dialog(962,0);
}
void add_to_journal(short event)
{
short i;
for (i = 0; i < 120; i++)
if (party.journal_str[i] == 0) {
party.journal_str[i] = event;
party.journal_day[i] = calc_day();
i = 120;
}
ASB("Something was added to your journal.");
}
// Only call these when main window is in foreground!
void display_enc_string(short val1,short val2,short sound)
{
// display_strings(val1,val2,0,0,"",sound,708,0);
}
void display_2_enc_string(short val1,short val2,short val3,short val4,short sound)
{
// display_strings(val1,val2,val3,val4,"",sound,708,0);
}
// Call call this anywhere, but don't forget parent!!!
void give_help(short help1,short help2,short parent_num)
{
Boolean help_forced = FALSE;
Str255 str1,str2;
if (help1 >= 200) {
help_forced = TRUE;
help1 -= 200;
}
if ((PSD[306][4] > 0) && (help_forced == FALSE))
return;
if (party.help_received[help1] > 0)
return;
//if (help1 >= 20)
party.help_received[help1] = 1;
get_str(str1,10,help1);
if (help2 > 0)
get_str(str2,10,help2);
if (help2 == 0)
display_strings((char *)str1, "",-1,-1,-1,-1,"Instant Help",57,724, parent_num);
else display_strings((char *)str1,(char *)str2,-1,-1,-1,-1,"Instant Help",57,724, parent_num);
}
void put_spec_item_info (short which_i)
{
Str255 item_name;
display_strings(data_store->scen_strs[60 + 1 + which_i * 2],"",
-1,-1,-1,-1,
data_store->scen_strs[60 + which_i * 2],57,1600 + scenario.intro_pic,0);
//get_str(item_name,6,1 + which_i * 2);
//display_strings(6,2 + which_i * 2,0,0,
//(char *)item_name,-1,702,0);
}
void display_strings_event_filter (short item_hit)////
{
short i;
Boolean had1 = FALSE, had2 = FALSE;
switch (item_hit) {
case 1:
dialog_not_toast = FALSE;
break;
case 2:
play_sound(0);
for (i = 0; i < 140; i++)
if ((store_str_label_1 == party.special_notes_str[i][0]) &&
(store_str_label_1b == party.special_notes_str[i][1]))
had1 = TRUE;
if (had1 == FALSE) {
//give_help(58,0,store_which_string_dlog);
for (i = 0; i < 140; i++)
if (party.special_notes_str[i][0] <= 0) {
party.special_notes_str[i][0] = store_str_label_1;
party.special_notes_str[i][1] = store_str_label_1b;
//party.special_notes_str[i][1] = store_str1b;
ASB("Info added to Encounter Notes.");
i = 140;
}
}
for (i = 0; i < 140; i++)
if ((store_str_label_2 == party.special_notes_str[i][0]) &&
(store_str_label_2b == party.special_notes_str[i][1]))
had2 = TRUE;
if (had2 == FALSE) {
for (i = 0; i < 140; i++)
if (party.special_notes_str[i][0] <= 0) {
party.special_notes_str[i][0] = store_str_label_2;
party.special_notes_str[i][1] = store_str_label_2b;
//party.special_notes_str[i][1] = store_str2b;
i = 140;
}
}
break;
}
}
// str_label_1 & str_label_2 uysed for saving button for journal
// 1000 + x scen 2000 + x out 3000 + x town
void display_strings(char *text1, char *text2,short str_label_1,short str_label_2,short str_label_1b,
short str_label_2b,
char *title,short sound_num,short graphic_num,short parent_num)
{
short item_hit;
Str255 sign_text;
location view_loc;
Boolean sound_done = FALSE;
make_cursor_sword();
store_str_label_1 = str_label_1;
store_str_label_2 = str_label_2;
store_str_label_1b = str_label_1b;
store_str_label_2b = str_label_2b;
// store_str1a = str1a;
// store_str1b = str1b;
// store_str2a = str2a;
// store_str2b = str2b;
// if ((str1a <= 0) || (str1b <= 0))
// return;
store_which_string_dlog = 970;
if (strlen(title) > 0)
store_which_string_dlog += 2;
if ((text2 != NULL) && (text2[0] != 0))
store_which_string_dlog++;
cd_create_dialog_parent_num(store_which_string_dlog,parent_num);
csp(store_which_string_dlog,store_which_string_dlog,graphic_num);
csit(store_which_string_dlog,4,(char *) text1);
if (text2 != NULL) {
csit(store_which_string_dlog,5,(char *) text2);
}
if (strlen(title) > 0)
csit(store_which_string_dlog,6,title);
csp(store_which_string_dlog,3,graphic_num);
if (sound_num >= 0)
play_sound(sound_num);
if ((str_label_1 < 0) && (str_label_2 < 0))
cd_activate_item(store_which_string_dlog,2,0);
#ifndef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog((ModalFilterProcPtr) cd_event_filter, &item_hit);
#endif
#ifdef EXILE_BIG_GUNS
while (dialog_not_toast)
ModalDialog(main_dialog_UPP, &item_hit);
#endif
//cd_kill_dialog(store_which_string_dlog,0);
final_process_dialog(store_which_string_dlog);
}
void give_error(char *text1, char *text2,short parent_num)
{
display_strings(text1,text2,-1,-1,-1,-1,"Error!",57,716,parent_num);
}
void display_strings_with_nums(short a1,short a2, short b1, short b2,
char *title,short sound_num,short graphic_num,short parent_num)
{
Str255 str1 = "", str2 = "";
if ((a1 > 0) && (a2 > 0))
get_str(str1,a1,a2);
if ((b1 > 0) && (b2 > 0))
get_str(str2,b1,b2);
display_strings((char *) str1,(char *) str2,-1,-1,-1,-1,
title, sound_num, graphic_num, parent_num);
}
Reference in New Issue View Git Blame Copy Permalink