Files
oboe/osx/boe.party.cpp

3448 lines
104 KiB
C++

#include <iostream>
//#include "item.h"
#include "boe.global.h"
#include "classes.h"
#include "boe.fileio.h"
#include "boe.graphics.h"
#include "boe.graphutil.h"
#include "boe.newgraph.h"
#include "boe.specials.h"
#include "boe.itemdata.h"
#include "boe.infodlg.h"
#include "boe.items.h"
#include <cstring>
#include "boe.party.h"
#include "boe.monster.h"
#include "boe.town.h"
#include "boe.combat.h"
#include "boe.locutils.h"
#include "boe.fields.h"
#include "boe.text.h"
#include "soundtool.h"
#include "boe.main.h"
#include "graphtool.h"
#include "mathutil.h"
#include "dlogutil.h"
#include "fileio.h"
#include "boe.menus.h"
#include "restypes.hpp"
#include <array>
#include <boost/lexical_cast.hpp>
#include "button.h"
short skill_cost[20] = {3,3,3,2,2,2, 1,2,2,6,
5, 1,2,4,2,1, 4,2,5,0};
extern short skill_max[20] ;
short skill_g_cost[20] = {50,50,50,40,40,40,30,50,40,250,
250,25,100,200,30,20,100,80,0,0};
short skill_bonus[21] = {-3,-3,-2,-1,0,0,1,1,1,2,
2,2,3,3,3,3,4,4,4,5,5};
short spell_level[62] = {1,1,1,1,1,1,1,1,1,1, 2,2,2,2,2,2,2,2,2,2, 3,3,3,3,3,3,3,3,3,3,
4,4,4,4,4,4,4,4, 5,5,5,5,5,5,5,5, 6,6,6,6,6,6,6,6, 7,7,7,7,7,7,7,7};
short spell_cost[2][62] = {{1,1,1,1,1,2,50,2,1,3, 2,3,2,2,2,2,4,4,2,6, 3,3,5,3,3,5,6,4,6,4,
4,5,4,8,30,-1,8,6, 5,8,8,6,9,10,6,6, 7,6,8,7,12,10,12,20, 12,8,20,10,14,10,50,10},
{1,1,1,2,1,1,3,5,50,1, 2,2,2,2,3,5,8,6,4,2, 3,4,3,3,3,10,5,3,4,6,
5,5,5,15,6,5,5,8, 6,7,25,8,10,12,12,6, 8,7,8,8,14,17,8,7, 10,10,35,10,12,12,30,10}};
const char *mage_s_name[62] = {"Light","Spark","Minor Haste","Strength","Scare",
"Flame Cloud","Identify","Scry Monster","Goo","True Sight",
"Minor Poison","Flame","Slow","Dumbfound","Envenom",
"Stinking Cloud","Summon Beast","Conflagration","Dispel Field","Sleep Cloud",
"Unlock","Haste","Fireball","Long Light","Fear",
"Wall of Force","Weak Summoning","Flame Arrows","Web","Resist Magic",
"Poison","Ice Bolt","Slow Group","Magic Map",
"Capture Soul","Simulacrum","Venom Arrows","Wall of Ice",
"Stealth","Major Haste","Fire Storm","D. Barrier",
"Fire Barrier","Summoning","Shockstorm","Spray Fields",
"Major Poison","Group Fear","Kill","Paralysis",
"Daemon","Antimagic Cloud","MindDuel","Flight",
"Shockwave","M. Blessing","Mass Paralysis","Protection",
"Major Summon","Force Barrier","Quickfire","Death Arrows"};
const char *priest_s_name[62] = {"Minor Bless","Minor Heal","Weaken Poison","Turn Undead","Location",
"Sanctuary","Symbiosis","Minor Manna","Ritual - Sanctify","Stumble",
"Bless","Cure Poison","Curse","Light","Wound",
"Summon Spirit","Move Mountains","Charm Foe","Disease","Awaken",
"Heal","Light Heal All","Holy Scourge","Detect Life","Cure Paralysis",
"Manna","Forcefield","Cure Disease","Restore Mind","Smite",
"Cure Party","Curse All","Dispel Undead","Remove Curse",
"Sticks to Snakes","Martyr's Shield","Cleanse","Firewalk",
"Bless Party","Major Heal","Raise Dead","Flamestrike",
"Mass Sanctuary","Summon Host","Shatter","Dispel Fields",
"Heal All","Revive","Hyperactivity","Destone",
"Guardian","Mass Charm","Protective Circle","Pestilence",
"Revive All","Ravage Spirit","Resurrect","Divine Thud",
"Avatar","Wall of Blades","Word of Recall","Major Cleansing"};
const char *alch_names[20] = {"Weak Curing Potion (1)","Weak Healing Potion (1)","Weak Poison (1)",
"Weak Speed Potion (3)","Medium Poison (3)",
"Medium Heal Potion (4)","Strong Curing (5)","Medium Speed Potion (5)",
"Graymold Salve (7)","Weak Energy Potion (9)",
"Potion of Clarity (9)","Strong Poison (10)","Strong Heal Potion (12)","Killer Poison (12)",
"Resurrection Balm (9)","Medium Energy Ptn. (14)","Knowledge Brew (19)" ,
"Strong Strength (10)","Bliss (16)","Strong Power (20)"
};
const char *alch_names_short[20] = {"Weak Curing Potion","Weak Healing Potion","Weak Poison",
"Weak Speed Potion","Medium Poison",
"Medium Heal Potion","Strong Curing","Medium Speed Potion",
"Graymold Salve","Weak Energy Potion",
"Potion of Clarity","Strong Poison","Strong Heal Potion","Killer Poison",
"Resurrection Bal","Medium Energy Ptn.","Knowledge Brew" ,
"Strong Strength","Bliss","Strong Power"
};
// These are the IDs used to refer to the skills in the dialog
const char* skill_ids[19] = {
"str","dex","int",
"edge","bash","pole","thrown","bow","def",
"mage","priest","lore","alch","item",
"trap","lock","assassin","poison","luck"
};
short spell_w_cast[2][62] = {{0,1,1,1,1,1,3,4,1,2, 1,1,1,1,1,1,4,1,4,1, 2,1,1,0,1,1,4,1,1,0,
1,1,1,2,4,1,1,1, 2,1,1,2,4,4,1,1, 1,1,1,1,4,4,1,5, 1,4,1,4,4,4,4,1},
{1,0,0,1,3,1,1,3,2,1, 1,0,1,0,1,4,2,1,1,0, 0,0,1,2,0,3,1,0,0,1,
0,1,1,3,4,1,0,0, 1,0,3,1,1,4,2,4, 0,0,0,3,4,1,1,1, 0,1,3,1,4,1,5,0}};
// 0 - everywhere 1 - combat only 2 - town only 3 - town & outdoor only 4 - town & combat only 5 - outdoor only
bool get_mage[30] = {1,1,1,1,1,1,0,1,1,0, 1,1,1,1,1,1,0,0,1,1, 1,1,1,1,1,0,0,0,1,1};
bool get_priest[30] = {1,1,1,1,1,1,0,0,0,1, 1,1,1,1,1,0,0,0,1,1, 1,0,1,1,0,0,0,1,0,0};
short combat_percent[20] = {150,120,100,90,80,80,80,70,70,70,
70,70,67,62,57,52,47,42,40,40};
short town_spell,who_cast,which_pc_displayed;
bool spell_button_active[90];
extern cItemRec start_items[6];
char empty_string[256] = " ";
//extern stored_town_maps_type town_maps;
extern bool fast_bang;
extern bool flushingInput;
//extern party_record_type party;
extern short stat_window,current_pc/*,town_size[3]*/,town_type;
extern eGameMode overall_mode;
//extern current_town_type univ.town;
//extern big_tr_type t_d;
//extern unsigned char out[96][96],out_e[96][96];
extern fs::path progDir;
extern location pc_pos[6],center;
extern sf::RenderWindow mainPtr;
extern bool in_startup_mode,spell_forced,save_maps,suppress_stat_screen,boom_anim_active;
//extern stored_items_list_type stored_items[3];
//extern CursHandle sword_curs;
//extern setup_save_type setup_save;
extern short store_mage, store_priest;
//extern cOutdoors outdoors[2][2];
extern short store_mage_lev, store_priest_lev;
extern short store_spell_target,pc_casting,stat_screen_mode;
extern short pc_last_cast[2][6];
extern effect_pat_type null_pat,single,t,square,rad2,rad3;
extern effect_pat_type current_pat;
extern short current_spell_range;
extern short hit_chance[21],pc_parry[6],combat_active_pc;//,pc_moves[6];
extern short boom_gr[8];
//extern unsigned char beasts[5];
//extern unsigned char m1[20];
//extern unsigned char m2[16];
//extern unsigned char m3[16];
//extern stored_town_maps_type maps;
//extern stored_outdoor_maps_type o_maps;
extern short current_ground;
extern short mage_need_select[62];
extern short priest_need_select[62];
extern short pc_marked_damage[6];
extern short monst_marked_damage[60];
extern location golem_m_locs[16];
//extern town_item_list t_i;
extern cScenario scenario;
extern cUniverse univ;
//extern piles_of_stuff_dumping_type *data_store;
extern sf::Texture pc_gworld;
char c_line[60];
// Variables for spell selection
short store_situation,store_last_target_darkened,on_which_spell_page = 0;
short store_last_cast_mage = 6,store_last_cast_priest = 6;
short buttons_on[38] = {1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0};
// buttons_on determines which buttons can be hit when on the second spell page
short spell_index[38] = {38,39,40,41,42,43,44,45,90,90,46,47,48,49,50,51,52,53,90,90,
54,55,56,57,58,59,60,61,90,90, 90,90,90,90,90,90,90,90};
// Says which buttons hit which spells on second spell page, 90 means no button
bool can_choose_caster;
// Variables for spending xp
bool talk_done = false;
long val_for_text;
bool keep_change = false;
short store_skills[20],store_h,store_sp,i,store_skp,which_skill;
long store_g;
short store_train_mode,store_train_pc;
// Dialog vars
short store_mage_store ;
short store_priest_store ;
short store_store_target;
short store_graphic_pc_num ;
short store_graphic_mode ;
short store_pc_graphic;
void draw_caster_buttons();
void draw_spell_info();
void draw_spell_pc_info();
void put_pc_caster_buttons();
void put_pc_target_buttons();
void put_spell_led_buttons();
void put_spell_list();
void put_pick_spell_graphics();
//mode; // 0 - prefab 1 - regular 2 - debug
void init_party(short mode)
{
short i,j,k,l;
cVehicle null_boat;// = {{0,0},{0,0},{0,0},200,false};
cVehicle null_horse;// = {{0,0},{0,0},{0,0},200,false};
univ.party.age = 0;
univ.party.gold = 200;
univ.party.food = 100;
for (i = 0; i < 310; i++)
for (j = 0; j < 10; j++)
PSD[i][j] = 0;
univ.party.light_level = 0;
univ.party.outdoor_corner.x = 7;
univ.party.outdoor_corner.y = 8;
univ.party.i_w_c.x = 1;
univ.party.i_w_c.y = 1;
univ.party.loc_in_sec.x = 36;
univ.party.loc_in_sec.y = 36;
univ.party.p_loc.x = 84;
univ.party.p_loc.y = 84;
for (i = 0; i < 30; i++)
univ.party.boats[i] = null_boat;
for (i = 0; i < 30; i++)
univ.party.horses[i] = null_horse;
univ.party.in_boat = -1;
univ.party.in_horse = -1;
for (i = 0; i < 4; i++)
univ.party.creature_save[i].which_town = 200;
for (i = 0; i < 10; i++)
univ.party.out_c[i].exists = false;
for (i = 0; i < 5; i++)
for (j = 0; j < 10; j++)
univ.party.magic_store_items[i][j].variety = ITEM_TYPE_NO_ITEM;
for (i = 0; i < 4; i++)
univ.party.imprisoned_monst[i] = 0;
for (i = 0; i < 256; i++)
univ.party.m_seen[i] = univ.party.m_noted[i] = 0;
// for (i = 0; i < 50; i++)
// univ.party.journal_str[i] = -1;
// for (i = 0; i < 140; i++)
// for (j = 0; j < 2; j++)
// univ.party.special_notes_str[i][j] = 0;
// for (i = 0; i < 120; i++)
// univ.party.talk_save[i].personality = -1;
univ.party.journal.clear();
univ.party.special_notes.clear();
univ.party.talk_save.clear();
univ.party.total_m_killed = 0;
univ.party.total_dam_done = 0;
univ.party.total_xp_gained = 0;
univ.party.total_dam_taken = 0;
univ.party.direction = 0;
univ.party.at_which_save_slot = 0;
for (i = 0; i < 20; i++)
univ.party.alchemy[i] = 0;
for (i = 0; i < 200; i++)
univ.party.can_find_town[i] = 0;
for (i = 0; i < 20; i++)
univ.party.key_times[i] = 30000;
// for (i = 0; i < 30; i++)
// univ.party.party_event_timers[i] = 0;
univ.party.party_event_timers.clear();
for (i = 0; i < 50; i++)
univ.party.spec_items[i] = 0;
for (i = 0; i < 120; i++) {
univ.party.help_received[i] = 0;
}
for (i = 0; i < 200; i++)
univ.party.m_killed[i] = 0;
univ.party.scen_name = "";
for (i = 0; i < 200; i++)
for (j = 0; j < 8; j++)
univ.party.item_taken[i][j] = 0;
refresh_store_items();
for (i = 0; i < 6; i++) {
switch(mode){
case 0:
univ.party[i] = cPlayer('dflt',i);
break;
case 1:
univ.party[i] = cPlayer();
break;
case 2:
univ.party[i] = cPlayer('dbug',i);
break;
}
}
for (i = 0; i < 96; i++)
for (j = 0; j < 96; j++)
univ.out.out_e[i][j] = 0;
for (i = 0; i < 3;i++)
for (j = 0; j < NUM_TOWN_ITEMS; j++) {
univ.party.stored_items[i][j] = cItemRec();
}
for (i = 0; i < 200; i++)
for (j = 0; j < 8; j++)
for (k = 0; k < 64; k++)
univ.town_maps[i][j][k] = 0;
for (i = 0; i < 100; i++)
for (k = 0; k < 6; k++)
for (l = 0; l < 48; l++)
univ.out_maps[i][k][l] = 0;
// Default is save maps
PSD[SDF_NO_MAPS] = 0;
save_maps = true;
// NOT DEBUG
build_outdoors();
}
// This is only called after a scenario is loaded and the party is put into it.
// Until that time, the party scen vals are uninited
// Then, it inits the party properly for starting the scenario based
// on the loaded scenario
void init_party_scen_data()
{
short i,j,k,l;
bool stored_item = false;
short store_help;
univ.party.age = 0;
store_help = PSD[SDF_NO_INSTANT_HELP];
for (i = 0; i < 310; i++)
for (j = 0; j < 10; j++)
PSD[i][j] = 0;
PSD[SDF_NO_INSTANT_HELP] = store_help;
univ.party.light_level = 0;
univ.party.outdoor_corner.x = scenario.out_sec_start.x;
univ.party.outdoor_corner.y = scenario.out_sec_start.y;
univ.party.i_w_c.x = 0;
univ.party.i_w_c.y = 0;
univ.party.loc_in_sec.x = scenario.out_start.x;
univ.party.loc_in_sec.y = scenario.out_start.y;
univ.party.p_loc.x = scenario.out_start.x;
univ.party.p_loc.y = scenario.out_start.y;
for (i = 0; i < 30; i++)
univ.party.boats[i] = scenario.boats[i];
for (i = 0; i < 30; i++)
univ.party.horses[i] = scenario.horses[i];
for (i = 0; i < 30; i++) {
if ((scenario.boats[i].which_town >= 0) && (scenario.boats[i].loc.x >= 0)) {
if (univ.party.boats[i].exists == false) {
univ.party.boats[i] = scenario.boats[i];
univ.party.boats[i].exists = true;
}
}
if ((scenario.horses[i].which_town >= 0) && (scenario.horses[i].loc.x >= 0)) {
if (univ.party.horses[i].exists == false) {
univ.party.horses[i] = scenario.horses[i];
univ.party.horses[i].exists = true;
}
}
}
univ.party.in_boat = -1;
univ.party.in_horse = -1;
for (i = 0; i < 4; i++)
univ.party.creature_save[i].which_town = 200;
for (i = 0; i < 10; i++)
univ.party.out_c[i].exists = false;
for (i = 0; i < 5; i++)
for (j = 0; j < 10; j++)
univ.party.magic_store_items[i][j].variety = ITEM_TYPE_NO_ITEM;
for (i = 0; i < 4; i++)
univ.party.imprisoned_monst[i] = 0;
for (i = 0; i < 256; i++)
univ.party.m_seen[i] = univ.party.m_noted[i] = 0;
// for (i = 0; i < 50; i++)
// univ.party.journal_str[i] = -1;
// for (i = 0; i < 140; i++)
// for (j = 0; j < 2; j++)
// univ.party.special_notes_str[i][j] = 0;
// for (i = 0; i < 120; i++)
// univ.party.talk_save[i].personality = -1;
// TODO: The journal at least should persist across scenarios; the other two, maybe, maybe not
univ.party.journal.clear();
univ.party.special_notes.clear();
univ.party.talk_save.clear();
univ.party.direction = 0;
univ.party.at_which_save_slot = 0;
for (i = 0; i < 200; i++)
univ.party.can_find_town[i] = 1 - scenario.town_hidden[i];
for (i = 0; i < 20; i++)
univ.party.key_times[i] = 30000;
// for (i = 0; i < 30; i++)
// univ.party.party_event_timers[i] = 0;
univ.party.party_event_timers.clear();
for (i = 0; i < 50; i++)
univ.party.spec_items[i] = (scenario.special_items[i] >= 10) ? 1 : 0;
for (i = 0; i < 200; i++)
univ.party.m_killed[i] = 0;
for (i = 0; i < 200; i++)
for (j = 0; j < 8; j++)
univ.party.item_taken[i][j] = 0;
refresh_store_items();
for (i = 0; i < 96; i++)
for (j = 0; j < 96; j++)
univ.out.out_e[i][j] = 0;
for (i = 0; i < 3;i++)
for (j = 0; j < NUM_TOWN_ITEMS; j++)
if (univ.party.stored_items[i][j].variety != 0)
stored_item = true;
if (stored_item == true)
if(cChoiceDlog("keep-stored-items.xml", {"yes", "no"}).show() == "yes") {
// TODO: Consider allowing them to pick and choose the items to take, using the get items dialog
for (i = 0; i < 3;i++)
for (j = 0; j < NUM_TOWN_ITEMS; j++)
if (univ.party.stored_items[i][j].variety != 0)
if (!give_to_party(univ.party.stored_items[i][j],false)) {
i = 20; j = NUM_TOWN_ITEMS + 1;
}
}
for (i = 0; i < 3;i++)
for (j = 0; j < NUM_TOWN_ITEMS; j++) {
univ.party.stored_items[i][j] = cItemRec();
}
for (i = 0; i < 200; i++)
for (j = 0; j < 8; j++)
for (k = 0; k < 64; k++)
univ.town_maps[i][j][k] = 0;
for (i = 0; i < 100; i++)
for (k = 0; k < 6; k++)
for (l = 0; l < 48; l++)
univ.out_maps[i][k][l] = 0;
}
// When the party is placed into a scen from the startinbg screen, this is called to put the game into game
// mode and load in the scen and init the party info
// party record already contains scen name
void put_party_in_scen(std::string scen_name)
{
short i,j;
std::array<std::string, 6> strs;
std::array<short, 3> buttons = {-1,-1,-1};
bool item_took = false;
for (j = 0; j < 6; j++)
for (i = 0; i < 15; i++)
univ.party[j].status[i] = 0;
for (j = 0; j < 6; j++) {
if (univ.party[j].main_status >= MAIN_STATUS_SPLIT)
univ.party[j].main_status -= MAIN_STATUS_SPLIT;
univ.party[j].cur_health = univ.party[j].max_health;
univ.party[j].cur_sp = univ.party[j].max_sp;
}
for (j = 0; j < 6; j++)
for (i = 23; i >= 0; i--) {
univ.party[j].items[i].special_class = 0;
// TODO: Don't take items just because they have a special graphic
if (univ.party[j].items[i].graphic_num >= 150) {
take_item(j,i + 30); // strip away special items
item_took = true;
}
if (univ.party[j].items[i].ability == 119) {
take_item(j,i + 30); // strip away summoning items
item_took = true;
}
if (univ.party[j].items[i].ability == 120) {
take_item(j,i + 30); // strip away summoning items
item_took = true;
}
}
if (item_took == true)
cChoiceDlog("removed-special-items.xml").show();
univ.party.age = 0;
for (i = 0; i < 200; i++)
univ.party.m_killed[i] = 0;
// for (i = 0; i < 30; i++)
// univ.party.party_event_timers[i] = 0;
univ.party.party_event_timers.clear();
fs::path path;
//std::cout << progDir;
path = progDir/"Blades of Exile Scenarios";
path /= scen_name;
std::cout<<"Searching for scenario at:\n"<<path<<'\n';
if (!load_scenario(path))
return;
init_party_scen_data();
// if at this point, startup must be over, so make this call to make sure we're ready,
// graphics wise
end_startup();
in_startup_mode = false;
load_outdoors(loc(univ.party.outdoor_corner.x + 1,univ.party.outdoor_corner.y + 1),univ.out.outdoors[1][1]);
load_outdoors(loc(univ.party.outdoor_corner.x,univ.party.outdoor_corner.y + 1),univ.out.outdoors[0][1]);
load_outdoors(loc(univ.party.outdoor_corner.x + 1,univ.party.outdoor_corner.y),univ.out.outdoors[1][0]);
load_outdoors(loc(univ.party.outdoor_corner.x,univ.party.outdoor_corner.y),univ.out.outdoors[0][0]);
stat_screen_mode = 0;
build_outdoors();
erase_out_specials();
current_pc = first_active_pc();
force_town_enter(scenario.which_town_start,scenario.where_start);
start_town_mode(scenario.which_town_start,9);
center = scenario.where_start;
update_explored(scenario.where_start);
overall_mode = MODE_TOWN;
redraw_screen();
// TODO: Maybe I should just be calling mainPtr.display() in redraw_screen()...
mainPtr.display();
set_stat_window(0);
adjust_spell_menus();
adjust_monst_menu();
// Throw up intro dialog
buttons[0] = 1;
for (j = 0; j < 6; j++)
if (strlen( scenario.scen_strs(4 + j)) > 0) {
for (i = 0; i < 6; i++)
strs[i] = scenario.scen_strs(4 + i);
custom_choice_dialog(strs,scenario.intro_pic,PIC_SCEN,buttons) ;
j = 6;
}
give_help(1,2);
// this is kludgy, put here to prevent problems
for (i = 0; i < 50; i++)
univ.party.spec_items[i] = (scenario.special_items[i] >= 10) ? 1 : 0;
// Compatibility flags
if(scenario.format.prog_make_ver[0] < 2){
PSD[SDF_RESURRECT_NO_BALM] = 1;
} else {
PSD[SDF_RESURRECT_NO_BALM] = 0;
}
}
bool create_pc(short spot,cDialog* parent)
//spot; // if spot is 6, find one
{
bool still_ok = true;
if (spot == 6) {
for (spot = 0; spot < 6; spot++)
if (univ.party[spot].main_status == 0)
break;
}
if (spot == 6)
return false;
univ.party[spot] = cPlayer();
pick_race_abil(&univ.party[spot],0,parent);
// TODO: Not sure if these initial draws are needed
// if (parent != NULL)
// cd_initial_draw(989);
still_ok = spend_xp(spot,0,parent);
if (still_ok == false)
return false;
univ.party[spot].cur_health = univ.party[spot].max_health;
univ.party[spot].cur_sp = univ.party[spot].max_sp;
// if (parent != NULL)
// cd_initial_draw(989);
pick_pc_graphic(spot,0,parent);
// if (parent != NULL)
// cd_initial_draw(989);
pick_pc_name(spot,parent);
univ.party[spot].main_status = MAIN_STATUS_ALIVE;
if (in_startup_mode == false) {
univ.party[spot].items[0] = start_items[univ.party[spot].race * 2];
univ.party[spot].equip[0] = true;
univ.party[spot].items[1] = start_items[univ.party[spot].race * 2 + 1];
univ.party[spot].equip[1] = true;
// Do stat adjs for selected race.
if (univ.party[spot].race == 1)
univ.party[spot].skills[1] += 2;
if (univ.party[spot].race == 2) {
univ.party[spot].skills[0] += 2;
univ.party[spot].skills[2] += 1;
}
univ.party[spot].max_sp += univ.party[spot].skills[9] * 3 + univ.party[spot].skills[10] * 3;
univ.party[spot].cur_sp = univ.party[spot].max_sp;
}
return true;
}
bool take_sp(short pc_num,short amt)
{
if (univ.party[pc_num].cur_sp < amt)
return false;
univ.party[pc_num].cur_sp -= amt;
return true;
}
void heal_pc(short pc_num,short amt)
{
if (univ.party[pc_num].cur_health > univ.party[pc_num].max_health)
return;
if (univ.party[pc_num].main_status != MAIN_STATUS_ALIVE)
return;
univ.party[pc_num].cur_health += amt;
if (univ.party[pc_num].cur_health > univ.party[pc_num].max_health)
univ.party[pc_num].cur_health = univ.party[pc_num].max_health;
}
void heal_party(short amt)
{
short i;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == MAIN_STATUS_ALIVE )
heal_pc(i,amt);
}
void cure_pc(short pc_num,short amt)
{
if (univ.party[pc_num].main_status != 1)
return;
if (univ.party[pc_num].status[2] <= amt)
univ.party[pc_num].status[2] = 0;
else univ.party[pc_num].status[2] -= amt;
one_sound(51);
}
void cure_party(short amt)
{
short i;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1)
cure_pc(i,amt);
}
// if how_much < 0, bless
void curse_pc(short which_pc,short how_much)
{
if (univ.party[which_pc].main_status != 1)
return;
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].status[1] = minmax(-8,8,univ.party[which_pc].status[1] - how_much);
if(how_much < 0)
sprintf ((char *) c_line, " %s blessed.",(char *) univ.party[which_pc].name.c_str());
else sprintf ((char *) c_line, " %s cursed.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
}
put_pc_screen();
if (how_much < 0)
give_help(59,0);
}
void dumbfound_pc(short which_pc,short how_much)
{
short r1;
if (univ.party[which_pc].main_status != 1)
return;
r1 = get_ran(1,0,90);
if (pc_has_abil_equip(which_pc,53) < 24) {////
add_string_to_buf(" Ring of Will glows.");
r1 -= 10;
}
if (r1 < univ.party[which_pc].level)
how_much -= 2;
if (how_much <= 0) {
sprintf ((char *) c_line, " %s saved.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
return;
}
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].status[9] = min(univ.party[which_pc].status[9] + how_much,8);
sprintf ((char *) c_line, " %s dumbfounded.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
}
one_sound(67);
put_pc_screen();
adjust_spell_menus();
give_help(28,0);
}
void disease_pc(short which_pc,short how_much)
{
short r1,level;
if (univ.party[which_pc].main_status != 1)
return;
r1 = get_ran(1,1,100);
if (r1 < univ.party[which_pc].level * 2)
how_much -= 2;
if (how_much <= 0) {
sprintf ((char *) c_line, " %s saved.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
return;
}
if ((level = get_prot_level(which_pc,62)) > 0)////
how_much -= level / 2;
if ((univ.party[which_pc].traits[12] == true) &&
(how_much > 1))
how_much++;
if ((univ.party[which_pc].traits[12] == true) &&
(how_much == 1) && (get_ran(1,0,1) == 0))
how_much++;
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].status[7] = min(univ.party[which_pc].status[7] + how_much,8);
sprintf ((char *) c_line, " %s diseased.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
}
one_sound(66);
put_pc_screen();
give_help(29,0);
}
void sleep_pc(short which_pc,short how_much,eStatus what_type,short adjust)
// higher adjust, less chance of saving
{
short r1,level;
if (univ.party[which_pc].main_status != 1)
return;
if (how_much == 0)
return;
if ((what_type == 11) || (what_type == 12)) { ////
if ((level = get_prot_level(which_pc,53)) > 0)
how_much -= level / 2;
if ((level = get_prot_level(which_pc,54)) > 0)
how_much -= (what_type == 11) ? level : level * 300;
}
r1 = get_ran(1,1,100) + adjust;
if (r1 < 30 + univ.party[which_pc].level * 2)
how_much = -1;
if ((what_type == 11) && ((univ.party[which_pc].traits[7] > 0) || (univ.party[which_pc].status[11] < 0)))
how_much = -1;
if (how_much <= 0) {
sprintf ((char *) c_line, " %s resisted.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
return;
}
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].status[what_type] = how_much;
if (what_type == 11)
sprintf ((char *) c_line, " %s falls asleep.",(char *) univ.party[which_pc].name.c_str());
else sprintf ((char *) c_line, " %s paralyzed.",(char *) univ.party[which_pc].name.c_str());
if (what_type == 11)
play_sound(96);
else play_sound(90);
add_string_to_buf((char *) c_line);
univ.party[which_pc].ap = 0;
}
put_pc_screen();
if (what_type == 11)
give_help(30,0);
else give_help(32,0);
}
// if how_much < 0, haste
void slow_pc(short which_pc,short how_much)////
{
if (univ.party[which_pc].main_status != 1)
return;
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].status[3] = minmax(-8,8,univ.party[which_pc].status[3] - how_much);
if (how_much < 0)
sprintf ((char *) c_line, " %s hasted.",(char *) univ.party[which_pc].name.c_str());
else sprintf ((char *) c_line, " %s slowed.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
}
put_pc_screen();
if (how_much < 0)
give_help(35,0);
}
void web_pc(short which_pc,short how_much)
{
if (univ.party[which_pc].main_status != 1)
return;
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].status[6] = min(univ.party[which_pc].status[6] + how_much,8);
sprintf ((char *) c_line, " %s webbed.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
one_sound(17);
}
put_pc_screen();
give_help(31,0);
}
void acid_pc(short which_pc,short how_much)
{
if (univ.party[which_pc].main_status != 1)
return;
if (pc_has_abil_equip(which_pc,36) < 24) {
sprintf ((char *) c_line, " %s resists acid.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
return;
}
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].status[13] += how_much;
sprintf ((char *) c_line, " %s covered with acid!",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
one_sound(42);
}
put_pc_screen();
}
void increase_light(short amt)
{
short i;
location where;
univ.party.light_level += amt;
if (is_combat()) {
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1) {
update_explored(pc_pos[i]);
}
}
else {
where = get_cur_loc();
update_explored(where);
}
put_pc_screen();
}
void restore_sp_pc(short pc_num,short amt)
{
if (univ.party[pc_num].cur_sp > univ.party[pc_num].max_sp)
return;
univ.party[pc_num].cur_sp += amt;
if (univ.party[pc_num].cur_sp > univ.party[pc_num].max_sp)
univ.party[pc_num].cur_sp = univ.party[pc_num].max_sp;
}
void restore_sp_party(short amt)
{
short i;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1)
restore_sp_pc(i,amt);
}
void award_party_xp(short amt)
{
short i;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1)
award_xp(i,amt);
}
void award_xp(short pc_num,short amt)
{
short adjust,add_hp;
short xp_percent[30] = {150,120,100,90,80,70,60,50,50,50,
45,40,40,40,40,35,30,25,23,20,
15,15,15,15,15,15,15,15,15,15};
if (univ.party[pc_num].level > 49) {
univ.party[pc_num].level = 50;
return;
}
if (amt > 200) { // debug
// TODO: Play an error sound here
ASB("Oops! Too much xp!");
ASB("Report this!");
return;
}
if (amt < 0) { // debug
// TODO: Play an error sound here
ASB("Oops! Negative xp!");
ASB("Report this!");
return;
}
if (univ.party[pc_num].main_status != 1)
return;
if (univ.party[pc_num].level >= 40)
adjust = 15;
else adjust = xp_percent[univ.party[pc_num].level / 2];
if ((amt > 0) && (univ.party[pc_num].level > 7)) {
if (get_ran(1,1,100) < xp_percent[univ.party[pc_num].level / 2])
amt--;
}
if (amt <= 0)
return;
// univ.party[pc_num].experience += (max(((amt * adjust) / 100), 0) * univ.party[pc_num].exp_adj) / 100;
// univ.party.total_xp_gained += (max(((amt * adjust) / 100), 0) * univ.party[pc_num].exp_adj) / 100;
univ.party[pc_num].experience += (max(((amt * adjust) / 100), 0) * 100) / 100;
univ.party.total_xp_gained += (max(((amt * adjust) / 100), 0) * 100) / 100;
// if (univ.party[pc_num].experience < 0) {
// SysBeep(50); SysBeep(50);
// ASB("Oops! Xp became negative somehow!");
// ASB("Report this!");
// univ.party[pc_num].experience = univ.party[pc_num].level * (univ.party[pc_num].get_tnl()) - 1;
// return;
// }
if (univ.party[pc_num].experience > 15000) {
univ.party[pc_num].experience = 15000;
return;
}
while (univ.party[pc_num].experience >= (univ.party[pc_num].level * (univ.party[pc_num].get_tnl()))) {
play_sound(7);
univ.party[pc_num].level++;
sprintf ((char *) c_line, " %s is level %d! ",(char *) univ.party[pc_num].name.c_str(),univ.party[pc_num].level);
add_string_to_buf((char *) c_line);
univ.party[pc_num].skill_pts += (univ.party[pc_num].level < 20) ? 5 : 4;
add_hp = (univ.party[pc_num].level < 26) ? get_ran(1,2,6) + skill_bonus[univ.party[pc_num].skills[0]]
: max (skill_bonus[univ.party[pc_num].skills[0]],0);
if (add_hp < 0)
add_hp = 0;
univ.party[pc_num].max_health += add_hp;
if (univ.party[pc_num].max_health > 250)
univ.party[pc_num].max_health = 250;
univ.party[pc_num].cur_health += add_hp;
if (univ.party[pc_num].cur_health > 250)
univ.party[pc_num].cur_health = 250;
put_pc_screen();
}
}
void drain_pc(short which_pc,short how_much)
{
if (univ.party[which_pc].main_status == 1) {
univ.party[which_pc].experience = max(univ.party[which_pc].experience - how_much,0);
sprintf ((char *) c_line, " %s drained.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
}
}
// TODO: This dialog needs some kind of context system really badly to avoid the rampant globals
// MARK: Start spend XP dialog
void do_xp_keep(short pc_num,short mode)
{
for (i = 0; i < 20; i++)
univ.party[pc_num].skills[i] = store_skills[i];
univ.party[pc_num].cur_health += store_h - univ.party[pc_num].max_health;
univ.party[pc_num].max_health = store_h;
univ.party[pc_num].cur_sp += store_sp - univ.party[pc_num].max_sp;
univ.party[pc_num].max_sp = store_sp;
if (mode == 1)
univ.party.gold = store_g;
univ.party[pc_num].skill_pts = store_skp;
}
void draw_xp_skills(cDialog& me)
{
short i;
// TODO: Wouldn't it make more sense for it to be red when you can't buy the skill rather than red when you can?
for (i = 0; i < 19; i++) {
cControl& cur = me[skill_ids[i]];
if ((store_skp >= skill_cost[i]) && (store_g >= skill_g_cost[i]))
cur.setColour(sf::Color::Red);
else cur.setColour(me.getDefTextClr());
cur.setTextToNum(store_skills[i]);
}
cControl& sp = me["sp"];
cControl& hp = me["hp"];
if ((store_skp >= 1) && (store_g >= 10))
hp.setColour(sf::Color::Red);
else hp.setColour(me.getDefTextClr());
hp.setTextToNum(store_h);
if ((store_skp >= 1) && (store_g >= 15))
sp.setColour(sf::Color::Red);
else sp.setColour(me.getDefTextClr());
sp.setTextToNum(store_sp);
}
void update_gold_skills(cDialog& me) {
me["gold"].setTextToNum(((store_train_mode == 0) ? 0 : store_g));
me["skp"].setTextToNum(store_skp);
}
void do_xp_draw(cDialog& me)
{
char get_text[256];
short mode,pc_num;
mode = store_train_mode;
pc_num = store_train_pc;
if (mode == 0) {
if (univ.party[pc_num].main_status == 1)
sprintf((char *) get_text, "%s",(char *) univ.party[pc_num].name.c_str());
else sprintf((char *) get_text, "New PC");
}
else sprintf((char *) get_text, "%s",(char *) univ.party[pc_num].name.c_str());
me["recipient"].setText(get_text);
for (i = 0; i < 20; i++)
store_skills[i] = univ.party[pc_num].skills[i];
store_h = univ.party[pc_num].max_health;
store_sp = univ.party[pc_num].max_sp;
store_g = (mode == 0) ? 20000 : univ.party.gold;
store_skp = univ.party[pc_num].skill_pts;
draw_xp_skills(me);
update_gold_skills(me);
}
bool spend_xp_navigate_filter(cDialog& me, std::string item_hit, eKeyMod mods)
{
short mode,pc_num;
bool talk_done = false;
mode = store_train_mode;
pc_num = store_train_pc;
if(item_hit == "cancel") {
if ((mode == 0) && (univ.party[pc_num].main_status < MAIN_STATUS_ABSENT))
univ.party[pc_num].main_status = MAIN_STATUS_ABSENT;
me.setResult(false);
talk_done = true;
} else if(item_hit == "help") {
univ.party.help_received[10] = 0;
give_help(210,11,me);
} else if(item_hit == "keep") {
do_xp_keep(pc_num,mode);
me.setResult(true);
talk_done = true;
} else if(item_hit == "left") {
// TODO: Try not forcing a commit when using the arrows?
if (mode != 0) {
do_xp_keep(pc_num,mode);
do {
pc_num = (pc_num == 0) ? 5 : pc_num - 1;
} while (univ.party[pc_num].main_status != 1);
store_train_pc = pc_num;
do_xp_draw(me);
} // else TODO: Play an error sound here
} else if(item_hit == "right") {
// TODO: If they don't work in mode 0, why are they visible?
if (mode != 0) {
do_xp_keep(pc_num,mode);
do {
pc_num = (pc_num == 5) ? 0 : pc_num + 1;
} while (univ.party[pc_num].main_status != 1);
store_train_pc = pc_num;
do_xp_draw(me);
} // else TODO: Play an error sound here
}
store_train_pc = pc_num;
if (talk_done == true) {
me.toast();
}
}
bool spend_xp_event_filter(cDialog& me, std::string item_hit, eKeyMod mods) {
short mode = store_train_mode, pc_num = store_train_pc;
if(item_hit.substr(0,2) == "hp") {
if(mod_contains(mods, mod_alt)) {
cStrDlog aboutHP(get_str("help",63),"","About Health",24,PIC_DLOG,&me);
aboutHP.setSound(57);
aboutHP.show();
} else if (((store_h >= 250) && (item_hit[3] == 'p')) ||
((store_h == univ.party[pc_num].max_health) && (item_hit[3] == 'm') && (mode == 1)) ||
((store_h == 6) && (item_hit[3] == 'm') && (mode == 0)))
; // TODO: Play an error sound here
else if(item_hit == "hp-m") {
store_g += 10;
store_h -= 2;
store_skp += 1;
}
else {
if ((store_g < 10) || (store_skp < 1)) {
if (store_g < 10)
give_help(24,0,me);
else give_help(25,0,me);
}
else {
store_g -= 10;
store_h += 2;
store_skp -= 1;
}
}
update_gold_skills(me);
me["hp"].setTextToNum(store_h);
draw_xp_skills(me);
} else if(item_hit.substr(0,2) == "sp") {
if(mod_contains(mods, mod_alt)) {
cStrDlog aboutSP(get_str("help",64),"","About Spell Points",24,PIC_DLOG,&me);
aboutSP.setSound(57);
aboutSP.show();
} else if (((store_sp >= 150) && (item_hit[3] == 'p')) ||
((store_sp == univ.party[pc_num].max_sp) && (item_hit[3] == 'm') && (mode == 1)) ||
((store_sp == 0) && (item_hit[3] == 'm') && (mode == 0)))
; // TODO: Play an error sound here
else if(item_hit == "sp-m") {
store_g += 15;
store_sp -= 1;
store_skp += 1;
}
else {
if ((store_g < 15) || (store_skp < 1)) {
if (store_g < 15)
give_help(24,0,me);
else give_help(25,0,me);
}
else {
store_sp += 1;
store_g -= 15;
store_skp -= 1;
}
}
update_gold_skills(me);
me["sp"].setTextToNum(store_sp);
draw_xp_skills(me);
} else {
for(int i = 0; i < 19; i++) {
int n = strlen(skill_ids[i]);
if(item_hit.length() < n + 2) continue;
if(item_hit.substr(0, item_hit.length() - 2) == skill_ids[i]) {
which_skill = i;
break;
}
}
if(mod_contains(mods, mod_alt)) display_skills(which_skill,&me);
else {
char dir = item_hit[item_hit.length() - 1];
if (((store_skills[which_skill] >= skill_max[which_skill]) && (dir == 'p')) ||
((store_skills[which_skill] == univ.party[pc_num].skills[which_skill]) && (dir == 'm') && (mode == 1)) ||
((store_skills[which_skill] == 0) && (dir == 'm') && (mode == 0) && (which_skill > 2)) ||
((store_skills[which_skill] == 1) && (dir == 'm') && (mode == 0) && (which_skill <= 2)))
; // TODO: Play an error sound here
else {
if(dir == 'm') {
store_g += skill_g_cost[which_skill];
store_skills[which_skill] -= 1;
store_skp += skill_cost[which_skill];
}
else {
if ((store_g < skill_g_cost[which_skill]) || (store_skp < skill_cost[which_skill])) {
if (store_g < skill_g_cost[which_skill])
give_help(24,0,me);
else give_help(25,0,me);
}
else {
store_skills[which_skill] += 1;
store_g -= skill_g_cost[which_skill];
store_skp -= skill_cost[which_skill];
}
}
update_gold_skills(me);
me[skill_ids[which_skill]].setTextToNum(store_skills[which_skill]);
draw_xp_skills(me);
}
}
}
}
bool spend_xp(short pc_num, short mode, cDialog* parent)
//short mode; // 0 - create 1 - train
// returns 1 if cancelled
{
store_train_pc = pc_num;
store_train_mode = mode;
make_cursor_sword();
cDialog xpDlog("spend-xp.xml",parent);
xpDlog.addLabelFor("hp","Health (1/10)",LABEL_LEFT,75,true);
xpDlog.addLabelFor("sp","Spell Pts. (1/15)",LABEL_LEFT,75,true);
std::string minus = "-m", plus = "-p";
for (i = 54; i < 73; i++) {
std::ostringstream sout;
sout << get_str("skills",1 + 2 * (i - 54)) << ' ' << '(';
sout << skill_cost[i - 54] << '/' << skill_g_cost[i - 54] << ')';
xpDlog.addLabelFor(skill_ids[i - 54],sout.str(),LABEL_LEFT,(i < 63) ? 75 : 69,true);
xpDlog[skill_ids[i - 54] + minus].attachClickHandler(spend_xp_event_filter);
xpDlog[skill_ids[i - 54] + plus].attachClickHandler(spend_xp_event_filter);
}
do_xp_draw(xpDlog);
xpDlog.attachClickHandlers(spend_xp_navigate_filter,{"keep","cancel","left","right","help"});
xpDlog.attachClickHandlers(spend_xp_event_filter,{"sp-m","sp-p","hp-m","hp-p"});
if (univ.party.help_received[10] == 0) {
// TODO: Is an initial draw even needed?
// cd_initial_draw(1010);
give_help(10,11,xpDlog);
}
xpDlog.run();
return xpDlog.getResult<bool>();
}
short mage_lore_total()
{
short total = 0,i;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1)
total += univ.party[i].skills[11];
return total;
}
bool poison_weapon( short pc_num, short how_much,short safe)
//short safe; // 1 - always succeeds
{
short i,weap = 24,p_level,r1;
short p_chance[21] = {40,72,81,85,88,89,90,
91,92,93,94,94,95,95,96,97,98,100,100,100,100};
for (i = 0; i < 24; i++)
if ((univ.party[pc_num].equip[i] == true) && (is_weapon(pc_num,i) == true)) {
weap = i;
i = 30;
}
if (weap == 24) {
add_string_to_buf(" No weapon equipped. ");
return false;
}
else {
p_level = how_much;
add_string_to_buf(" You poison your weapon. ");
r1 = get_ran(1,1,100);
// Nimble?
if (univ.party[pc_num].traits[TRAIT_NIMBLE])
r1 -= 6;
if ((r1 > p_chance[univ.party[pc_num].skills[17]]) && (safe == 0)) {
add_string_to_buf(" Poison put on badly. ");
p_level = p_level / 2;
r1 = get_ran(1,1,100);
if (r1 > p_chance[univ.party[pc_num].skills[17]] + 10) {
add_string_to_buf(" You nick yourself. ");
univ.party[pc_num].status[2] += p_level;
}
}
if (safe != 1)
play_sound(55);
univ.party[pc_num].weap_poisoned = weap;
univ.party[pc_num].status[0] = max (univ.party[pc_num].status[0],
p_level);
return true;
}
}
bool is_weapon(short pc_num,short item)
{
if ((univ.party[pc_num].items[item].variety == 1) ||
(univ.party[pc_num].items[item].variety == 2) ||
(univ.party[pc_num].items[item].variety == 5) ||
(univ.party[pc_num].items[item].variety == 24))
return true;
else return false;
}
void cast_spell(short type,short situation)
//short type; // 0 - mage 1 - priest
//short situation; // 0 - out 1 - town
{
short spell;
if ((is_town()) && (univ.town.is_antimagic(univ.town.p_loc.x,univ.town.p_loc.y))) {
add_string_to_buf(" Not in antimagic field.");
return;
}
if (spell_forced == false)
spell = pick_spell(6, type, situation);
else {
if (repeat_cast_ok(type) == false)
return;
spell = (type == 0) ? store_mage : store_priest;
}
if (spell < 70) {
print_spell_cast(spell,type);
if (type == 0)
do_mage_spell(pc_casting,spell);
else do_priest_spell(pc_casting,spell);
put_pc_screen();
}
}
bool repeat_cast_ok(short type)
{
short store_select,who_would_cast,what_spell;
if (overall_mode == MODE_COMBAT)
who_would_cast = current_pc;
else if (overall_mode < MODE_TALK_TOWN)
who_would_cast = pc_casting;
else return false;
if (is_combat())
what_spell = pc_last_cast[type][who_would_cast];
else what_spell = (type == 0) ? store_mage : store_priest;
if (pc_can_cast_spell(who_would_cast,type,what_spell) == false) {
add_string_to_buf("Repeat cast: Can't cast.");
return false;
}
store_select = (type == 0) ? mage_need_select[what_spell] :
priest_need_select[what_spell];
if ((store_select > 0) && (store_spell_target == 6)) {
add_string_to_buf("Repeat cast: No target stored.");
return false;
}
if ((store_select == 2) &&
((univ.party[store_spell_target].main_status == 0) ||
(univ.party[store_spell_target].main_status > 4))) {
add_string_to_buf("Repeat cast: No target stored.");
return false;
}
if ((store_select == 1) &&
(univ.party[store_spell_target].main_status != 1)) {
add_string_to_buf("Repeat cast: No target stored.");
return false;
}
return true;
}
void give_party_spell(short which) ////
//which; // 100 + x : priest spell x
{
short i;
bool sound_done = false;
char str[60];
if ((which < 0) || (which > 161) || ((which > 61) && (which < 100))) {
giveError("The scenario has tried to give you a non-existant spell.");
return;}
if (which < 100)
for (i = 0; i < 6; i++)
if (univ.party[i].mage_spells[which] == false) {
univ.party[i].mage_spells[which] = true;
if (univ.party[i].main_status == 1)
sprintf((char *) str,"%s learns spell.",univ.party[i].name.c_str());
give_help(41,0);
if (sound_done == false) {sound_done = true; play_sound(62);};
}
if (which >= 100)
for (i = 0; i < 6; i++)
if (univ.party[i].priest_spells[which - 100] == false) {
univ.party[i].priest_spells[which - 100] = true;
if (univ.party[i].main_status == 1)
sprintf((char *) str,"%s learns spell.",univ.party[i].name.c_str());
give_help(41,0);
if (sound_done == false) {sound_done = true; play_sound(62);};
}
}
void do_mage_spell(short pc_num,short spell_num)
{
short i,j,item,target,r1,adj,store;
location where;
where = univ.town.p_loc;
play_sound(25);
current_spell_range = 8;
adj = stat_adj(who_cast,2);
switch (spell_num) {
case 0: // Light
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
increase_light(50);
break;
case 6: // Identify
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
ASB("All of your items are identified.");
for (i = 0; i < 6; i++)
for (j = 0; j < 24; j++)
univ.party[i].items[j].ident = true;
break;
case 9: // true sight
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
for (where.x = 0; where.x < 64; where.x++)
for (where.y = 0; where.y < 64; where.y++)
if (dist(where,univ.town.p_loc) <= 2)
make_explored(where.x,where.y);
clear_map();
break;
case 16: // summon beast ////
r1 = get_summon_monster(1);
if (r1 < 0) break;
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
store = get_ran(3,1,4) + adj;
if (summon_monster(r1,where,store,2) == false)
add_string_to_buf(" Summon failed.");
break;
case 26: // summon 1
store = univ.party[who_cast].level / 5 + stat_adj(who_cast,2) / 3 + get_ran(1,0,2);
j = minmax(1,7,store);
r1 = get_summon_monster(1); ////
if (r1 < 0) break;
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
store = get_ran(4,1,4) + adj;
for (i = 0; i < j; i++)
if (summon_monster(r1,where,store,2) == false)
add_string_to_buf(" Summon failed.");
break;
case 43: // summon 2
store = univ.party[who_cast].level / 7 + stat_adj(who_cast,2) / 3 + get_ran(1,0,1);
j = minmax(1,6,store);
r1 = get_summon_monster(2); ////
if (r1 < 0) break;
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
store = get_ran(5,1,4) + adj;
for (i = 0; i < j; i++)
if (summon_monster(r1,where,store,2) == false)
add_string_to_buf(" Summon failed.");
break;
case 58: // summon 3
store = univ.party[who_cast].level / 10 + stat_adj(who_cast,2) / 3 + get_ran(1,0,1);
j = minmax(1,5,store);
r1 = get_summon_monster(3); ////
if (r1 < 0) break;
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
store = get_ran(7,1,4) + stat_adj(who_cast,2);
for (i = 0; i < j; i++)
if (summon_monster(r1,where,store,2) == false)
add_string_to_buf(" Summon failed.");
break;
case 50:
store = get_ran(5,1,4) + 2 * stat_adj(who_cast,2);
if (summon_monster(85,where,store,2) == false)
add_string_to_buf(" Summon failed.");
else univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
break;
case 18: // dispel field
add_string_to_buf(" Target spell. ");
current_pat = square;
overall_mode = MODE_TOWN_TARGET;
set_town_spell(spell_num,pc_num);
break;
case 23: // Long light
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
increase_light(200);
break;
case 33: // Magic map
item = pc_has_abil(pc_num,158);////
if (item == 24)
add_string_to_buf(" You need a sapphire. ");
else if (univ.town->defy_scrying || univ.town->defy_mapping)
add_string_to_buf(" The spell fails. ");
else {
remove_charge(pc_num,item);
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
add_string_to_buf(" As the sapphire dissolves, ");
add_string_to_buf(" you have a vision. ");
for (i = 0; i < 64; i++)
for (j = 0; j < 64; j++)
make_explored(i,j);
clear_map();
}
break;
case 38: // Stealth
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
PSD[SDF_PARTY_STEALTHY] += max(6,univ.party[pc_num].level * 2);
break;
case 7: case 20: case 34: case 41: // Scry monster, Unlock, disp. barrier, Capture SOul
add_string_to_buf(" Target spell. ");
current_pat = single;
overall_mode = MODE_TOWN_TARGET;
set_town_spell(spell_num,pc_num);
break;
case 42: case 59: case 60: // fire and force barriers, quickfire
add_string_to_buf(" Target spell. ");
overall_mode = MODE_TOWN_TARGET;
current_pat = single;
set_town_spell(spell_num,pc_num);
break;
case 51: // antimagic
add_string_to_buf(" Target spell. ");
overall_mode = MODE_TOWN_TARGET;
current_pat = rad2;
set_town_spell(spell_num,pc_num);
break;
case 53: // fly
if (PSD[SDF_PARTY_FLIGHT] > 0) {
add_string_to_buf(" Not while already flying. ");
return;
}
if (univ.party.in_boat >= 0)
add_string_to_buf(" Leave boat first. ");
else if (univ.party.in_horse >= 0) ////
add_string_to_buf(" Leave horse first. ");
else {
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
add_string_to_buf(" You start flying! ");
PSD[SDF_PARTY_FLIGHT] = 3;
}
break;
case 29: case 57: // resist magic protection
target = store_spell_target;
if (target < 6)
univ.party[pc_num].cur_sp -= spell_cost[0][spell_num];
if ((spell_num == 57) && (target < 6)) {
univ.party[target].status[4] += 2 + stat_adj(pc_num,2) + get_ran(2,1,2);
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1) {
univ.party[i].status[5] += 4 + univ.party[pc_num].level / 3 + stat_adj(pc_num,2);
}
sprintf ((char *) c_line, " Party protected. ");
}
if ((spell_num == 29) && (target < 6)) {
univ.party[target].status[5] += 2 + stat_adj(pc_num,2) + get_ran(2,1,2);
sprintf ((char *) c_line, " %s protected.",univ.party[target].name.c_str());
}
add_string_to_buf((char *) c_line);
break;
}
}
void do_priest_spell(short pc_num,short spell_num) ////
{
short r1,r2, target, i,item,store,adj,x,y;
location loc;
location where;
short store_victim_health,store_caster_health,targ_damaged; // for symbiosis
where = univ.town.p_loc;
adj = stat_adj(pc_num,2);
play_sound(24);
current_spell_range = 8;
switch (spell_num) {
case 4: ////
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
if (is_town()) {
loc = (overall_mode == MODE_OUTDOORS) ? univ.party.p_loc : univ.town.p_loc;
sprintf ((char *) c_line, " You're at: x %d y %d.",
(short) loc.x, (short) loc.y);
}
if (is_out()) {
loc = (overall_mode == MODE_OUTDOORS) ? univ.party.p_loc : univ.town.p_loc;
x = loc.x; y = loc.y;
x += 48 * univ.party.outdoor_corner.x; y += 48 * univ.party.outdoor_corner.y;
sprintf ((char *) c_line, " You're outside at: x %d y %d.",x,y);
}
add_string_to_buf((char *) c_line);
break;
case 7: case 25: // manna spells
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
store = univ.party[pc_num].level / 3 + 2 * stat_adj(who_cast,2) + get_ran(2,1,4);
r1 = max(0,store);
if (spell_num == 7)
r1 = r1 / 3;
sprintf ((char *) c_line, " You gain %d food. ",r1);
add_string_to_buf((char *) c_line);
give_food(r1,true);
break;
case 8: // Ritual - Sanctify
add_string_to_buf(" Sanctify which space? ");
current_pat = single;
overall_mode = MODE_TOWN_TARGET;
set_town_spell(100 + spell_num,pc_num);
break;
case 13:
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
univ.party.light_level += 210;
break;
case 15:
store = stat_adj(who_cast,2);
if (summon_monster(125,where,get_ran(2,1,4) + store,2) == false)
add_string_to_buf(" Summon failed.");
else univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
break;
case 34:
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
r1 = univ.party[who_cast].level / 6 + stat_adj(who_cast,2) / 3 + get_ran(1,0,1);
for (i = 0; i < r1; i++) {
r2 = get_ran(1,0,7);
store = get_ran(2,1,5) + stat_adj(who_cast,2);
if (summon_monster((r2 == 1) ? 100 : 99,where,store,2 ) == false)
add_string_to_buf(" Summon failed.");
}
break;
case 43:
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
store = get_ran(2,1,4) + stat_adj(who_cast,2);
if (summon_monster(126,where,store,2) == false)
add_string_to_buf(" Summon failed.");
for (i = 0; i < 4; i++) {
store = get_ran(2,1,4) + stat_adj(who_cast,2);
if (summon_monster(125,where,store,2) == false)
add_string_to_buf(" Summon failed.");
}
break;
case 50:
store = get_ran(6,1,4) + stat_adj(who_cast,2);
if (summon_monster(122,where,store,2) == false)
add_string_to_buf(" Summon failed.");
else univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
break;
case 16:
add_string_to_buf(" Destroy what? ");
current_pat = (spell_num == 16) ? single : square;
overall_mode = MODE_TOWN_TARGET;
set_town_spell(100 + spell_num,pc_num);
break;
case 45: // dispelling fields
add_string_to_buf(" Target spell. ");
current_pat = (spell_num == 19) ? single : rad2;
overall_mode = MODE_TOWN_TARGET;
set_town_spell(100 + spell_num,pc_num);
break;
case 23: // Detect life
add_string_to_buf(" Monsters now on map. ");
PSD[SDF_PARTY_DETECT_LIFE] += 6 + get_ran(1,0,6);
clear_map();
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
break;
case 37: // firewalk
add_string_to_buf(" You are now firewalking. ");
PSD[SDF_PARTY_FIREWALK] += univ.party[pc_num].level / 12 + 2;
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
break;
case 44: // shatter
add_string_to_buf(" You send out a burst of energy. ");
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
for (loc.x = where.x - 1;loc.x < where.x + 2; loc.x++)
for (loc.y = where.y - 1;loc.y < where.y + 2; loc.y++)
crumble_wall(loc);
update_explored(univ.town.p_loc);
break;
case 60:
if (overall_mode > MODE_OUTDOORS) {
add_string_to_buf(" Can only cast outdoors. ");
return;
}
if (univ.party.in_boat >= 0) {
add_string_to_buf(" Not while in boat. ");
return;
}
if (univ.party.in_horse >= 0) {////
add_string_to_buf(" Not while on horseback. ");
return;
}
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
add_string_to_buf(" You are moved... ");
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 = univ.town.p_loc = scenario.where_start;
// overall_mode = MODE_OUTDOORS;
// center = univ.party.p_loc;
// update_explored(univ.party.p_loc);
redraw_screen();
break;
case 1: case 20: case 39: case 2: case 11: case 27: case 28: case 36: case 19: case 24:
// target = select_pc(11,0);
target = store_spell_target;
if (target < 6) {
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
switch(spell_num) {
case 1: case 20: case 39:
r1 = get_ran(2 + 2 * (spell_num / 6), 1, 4);
sprintf ((char *) c_line, " %s healed %d. ",
(char *) univ.party[target].name.c_str(),r1);
heal_pc(target,r1);
one_sound(52);
break;
case 2: case 11:
sprintf ((char *) c_line, " %s cured. "
,(char *) univ.party[target].name.c_str());
r1 = ((spell_num == 2) ? 1 : 3) + get_ran(1,0,2) + stat_adj(pc_num,2) / 2;
cure_pc(target,r1);
break;
case 19: // awaken
if (univ.party[target].status[11] <= 0) {
sprintf ((char *) c_line, " %s is already awake! "
,(char *) univ.party[target].name.c_str());
break;
}
sprintf ((char *) c_line, " %s wakes up. "
,(char *) univ.party[target].name.c_str());
univ.party[target].status[11] = 0;
break;
case 24: // cure paralysis
if (univ.party[target].status[12] <= 0) {
sprintf ((char *) c_line, " %s isn't paralyzed! "
,(char *) univ.party[target].name.c_str());
break;
}
sprintf ((char *) c_line, " %s can move now. "
,(char *) univ.party[target].name.c_str());
univ.party[target].status[12] = 0;
break;
case 27:
sprintf ((char *) c_line, " %s recovers. "
,(char *) univ.party[target].name.c_str());
r1 = 2 + get_ran(1,0,2) + stat_adj(pc_num,2) / 2;
univ.party[target].status[7] = max(0,univ.party[target].status[7] - r1);
break;
case 28:
sprintf ((char *) c_line, " %s restored. "
,(char *) univ.party[target].name.c_str());
r1 = 1 + get_ran(1,0,2) + stat_adj(pc_num,2) / 2;
univ.party[target].status[9] = max(0,univ.party[target].status[9] - r1);
break;
case 36:
sprintf ((char *) c_line, " %s cleansed. "
,(char *) univ.party[target].name.c_str());
univ.party[target].status[7] = 0;
univ.party[target].status[6] = 0;
break;
}
}
add_string_to_buf((char *) c_line);
put_pc_screen();
break;
case 47: case 49: case 40: case 56: case 33: case 5: case 6: case 35:
target = store_spell_target;
if (target < 6) {
if ((spell_num == 6) && (target == pc_num)) { // check symbiosis
add_string_to_buf(" Can't cast on self.");
return;
}
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
if (spell_num == 35) { // martyr's shield
sprintf ((char *) c_line, " %s shielded. ",
(char *) univ.party[target].name.c_str());
r1 = max(1,get_ran((univ.party[pc_num].level + 5) / 5,1,3) + adj);
univ.party[target].status[10] += r1;
}
if (spell_num == 5) { // sanctuary
sprintf ((char *) c_line, " %s hidden. ",
(char *) univ.party[target].name.c_str());
r1 = max(0,get_ran(0,1,3) + univ.party[pc_num].level / 4 + adj);
univ.party[target].status[8] += r1;
}
if (spell_num == 6) { // symbiosis
store_victim_health = univ.party[target].cur_health;
store_caster_health = univ.party[pc_num].cur_health;
targ_damaged = univ.party[target].max_health - univ.party[target].cur_health;
while ((targ_damaged > 0) && (univ.party[pc_num].cur_health > 0)) {
univ.party[target].cur_health++;
r1 = get_ran(1,1,100) + univ.party[pc_num].level / 2 + 3 * adj;
if (r1 < 100)
univ.party[pc_num].cur_health--;
if (r1 < 50)
univ.party[pc_num].cur_health = move_to_zero(univ.party[pc_num].cur_health);
targ_damaged = univ.party[target].max_health - univ.party[target].cur_health;
}
add_string_to_buf(" You absorb damage.");
sprintf ((char *) c_line, " %s healed %d. ", (char *) univ.party[target].name.c_str(),
univ.party[target].cur_health - store_victim_health);
add_string_to_buf ((char *) c_line);
sprintf ((char *) c_line, " %s takes %d. ", (char *) univ.party[pc_num].name.c_str(),
store_caster_health - univ.party[pc_num].cur_health);
}
if (spell_num == 47) {
sprintf ((char *) c_line, " %s healed. ",
(char *) univ.party[target].name.c_str());
heal_pc(target,250);
univ.party[target].status[2] = 0;
one_sound(-53); one_sound(52);
}
if (spell_num == 49) {
if (univ.party[target].main_status == MAIN_STATUS_STONE) {
univ.party[target].main_status = MAIN_STATUS_ALIVE;
sprintf ((char *) c_line, " %s destoned. ",
(char *) univ.party[target].name.c_str());
play_sound(53);
}
else sprintf ((char *) c_line," Wasn't stoned. ");
}
if (spell_num == 33) {
for (i = 0; i < 24; i++)
if (univ.party[target].items[i].cursed){
r1 = get_ran(1,0,200) - 10 * stat_adj(pc_num,2);
if (r1 < 60) {
univ.party[target].items[i].cursed = univ.party[target].items[i].unsellable = false;
}
}
play_sound(52);
sprintf ((char *) c_line," Your items glow. ");
}
if (!PSD[SDF_RESURRECT_NO_BALM] && ((spell_num == 40) || (spell_num == 56)))
if ((item = pc_has_abil(pc_num,160)) == 24) {
add_string_to_buf(" Need resurrection balm. ");
spell_num = 500;
}
else take_item(pc_num,item);
if (spell_num == 40) {
if (univ.party[target].main_status == 2)
if (get_ran(1,1,univ.party[pc_num].level / 2) == 1) {
sprintf ((char *) c_line, " %s now dust. ",
(char *) univ.party[target].name.c_str());
play_sound(5);
univ.party[target].main_status = MAIN_STATUS_DUST;
}
else {
univ.party[target].main_status = MAIN_STATUS_ALIVE;
for (i = 0; i < 3; i++)
if (get_ran(1,0,2) < 2)
univ.party[target].skills[i] -= (univ.party[target].skills[i] > 1) ? 1 : 0;
univ.party[target].cur_health = 1;
sprintf ((char *) c_line, " %s raised. ",
(char *) univ.party[target].name.c_str());
play_sound(52);
}
else sprintf ((char *) c_line," Didn't work. ");
}
if (spell_num == 56) {
if (univ.party[target].main_status != MAIN_STATUS_ALIVE) {
univ.party[target].main_status = MAIN_STATUS_ALIVE;
for (i = 0; i < 3; i++)
if (get_ran(1,0,2) < 1)
univ.party[target].skills[i] -= (univ.party[target].skills[i] > 1) ? 1 : 0;
univ.party[target].cur_health = 1;
sprintf ((char *) c_line, " %s raised.",
(char *) univ.party[target].name.c_str());
play_sound(52);
}
else sprintf ((char *) c_line," Was OK. ");
}
add_string_to_buf((char *) c_line);
put_pc_screen();
}
break;
case 21: case 46: case 54:
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
r1 = get_ran(spell_num / 7 + adj, 1, 4);
if (spell_num < 54) {
sprintf ((char *) c_line, " Party healed %d. ", r1);
add_string_to_buf((char *) c_line);
heal_party(r1);
play_sound(52);
}
else if (spell_num == 54) {
sprintf ((char *) c_line, " Party revived. ");
add_string_to_buf((char *) c_line);
r1 = r1 * 2;
heal_party(r1);
play_sound(-53);
play_sound(-52);
cure_party(3 + adj);
}
break;
case 30:
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
sprintf ((char *) c_line, " Party cured. ");
add_string_to_buf((char *) c_line);
cure_party(3 + stat_adj(pc_num,2));
break;
case 42: case 61: case 48:
univ.party[pc_num].cur_sp -= spell_cost[1][spell_num];
switch (spell_num) {
case 42: add_string_to_buf(" Party hidden.");break;
case 61: add_string_to_buf(" Party cleansed.");break;
case 48: add_string_to_buf(" Party is now really, REALLY awake.");break;
}
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1) {
if (spell_num == 42) {
store = get_ran(0,1,3) + univ.party[pc_num].level / 6 + stat_adj(pc_num,2);
r1 = max(0,store);
univ.party[i].status[8] += r1;
}
if (spell_num == 61) {
univ.party[i].status[6] = 0;
univ.party[i].status[7] = 0;
}
if (spell_num == 48) { // Hyperactivity
univ.party[i].status[11] -= 6 + 2 * stat_adj(pc_num,2);
univ.party[i].status[3] = max(0,univ.party[i].status[3]);
}
}
break;
}
}
void cast_town_spell(location where) ////
{
short adjust,r1,targ,store;
location loc;
ter_num_t ter;
if ((where.x <= univ.town->in_town_rect.left) ||
(where.x >= univ.town->in_town_rect.right) ||
(where.y <= univ.town->in_town_rect.top) ||
(where.y >= univ.town->in_town_rect.bottom)) {
add_string_to_buf(" Can't target outside town.");
return;
}
adjust = can_see(univ.town.p_loc,where,0);
if (town_spell < 1000)
univ.party[who_cast].cur_sp -= spell_cost[town_spell / 100][town_spell % 100];
else town_spell -= 1000;
ter = univ.town->terrain(where.x,where.y);
if (adjust > 4)
add_string_to_buf(" Can't see target. ");
else switch (town_spell) {
case 7: case 34: // Scry, Capture Soul
targ = monst_there(where);
if (targ < univ.town->max_monst()) {
if (town_spell == 7) {
univ.party.m_noted[univ.town.monst[targ].number] = true;
adjust_monst_menu();
display_monst(0,&univ.town.monst[targ],0);
}
else record_monst(&univ.town.monst[targ]);
}
else add_string_to_buf(" No monster there.");
break;
case 119: case 145: case 18:
add_string_to_buf(" You attempt to dispel. ");
place_spell_pattern(current_pat,where,11,false,7);
break;
case 116: // Move M.
add_string_to_buf(" You blast the area. ");
crumble_wall(where);
update_explored(univ.town.p_loc);
break;
case 42:
if ((get_obscurity(where.x,where.y) == 5) || (monst_there(where) < 90)) {
add_string_to_buf(" Target space obstructed.");
break;
}
univ.town.set_fire_barr(where.x,where.y,true);
if (univ.town.is_fire_barr(where.x,where.y))
add_string_to_buf(" You create the barrier. ");
else add_string_to_buf(" Failed.");
break;
case 59:
if ((get_obscurity(where.x,where.y) == 5) || (monst_there(where) < 90)) {
add_string_to_buf(" Target space obstructed.");
break;
}
univ.town.set_force_barr(where.x,where.y,true);
if (univ.town.is_force_barr(where.x,where.y))
add_string_to_buf(" You create the barrier. ");
else add_string_to_buf(" Failed.");
break;
case 60:
univ.town.set_quickfire(where.x,where.y,true);
if (univ.town.is_quickfire(where.x,where.y))
add_string_to_buf(" You create quickfire. ");
else add_string_to_buf(" Failed.");
break;
case 51: // am cloud
add_string_to_buf(" You create an antimagic cloud. ");
for (loc.x = 0; loc.x < univ.town->max_dim(); loc.x++)
for (loc.y = 0; loc.y < univ.town->max_dim(); loc.y++)
if ((dist(where,loc) <= 2) && (can_see(where,loc,2) < 5) &&
((abs(loc.x - where.x) < 2) || (abs(loc.y - where.y) < 2)))
make_antimagic(loc.x,loc.y);
break;
case 108: // RItual - sanctify
sanctify_space(where);
break;
case 20:
if (scenario.ter_types[ter].special == TER_SPEC_UNLOCKABLE){
if (scenario.ter_types[ter].flag2.u == 10)
r1 = 10000;
else{
r1 = get_ran(1,1,100) - 5 * stat_adj(who_cast,2) + 5 * univ.town.difficulty;
r1 += scenario.ter_types[ter].flag2.u * 7;
}
if (r1 < (135 - combat_percent[min(19,univ.party[who_cast].level)])) {
add_string_to_buf(" Door unlocked. ");
play_sound(9);
univ.town->terrain(where.x,where.y) = scenario.ter_types[ter].flag1.u;
}
else {
play_sound(41);
add_string_to_buf(" Didn't work. ");
}
}else
add_string_to_buf(" Wrong terrain type. ");
break;
case 41:
if ((univ.town.is_fire_barr(where.x,where.y)) || (univ.town.is_force_barr(where.x,where.y))) {
r1 = get_ran(1,1,100) - 5 * stat_adj(who_cast,2) + 5 * (univ.town.difficulty / 10);
if (univ.town.is_fire_barr(where.x,where.y))
r1 -= 8;
if (r1 < (120 - combat_percent[min(19,univ.party[who_cast].level)])) {
add_string_to_buf(" Barrier broken. ");
univ.town.set_fire_barr(where.x,where.y,false);
univ.town.set_force_barr(where.x,where.y,false);
// Now, show party new things
update_explored(univ.town.p_loc);
}
else {
store = get_ran(1,0,1);
play_sound(41);
add_string_to_buf(" Didn't work. ");
}
}
else add_string_to_buf(" No barrier there.");
break;
}
}
void sanctify_space(location where)
{
short i,s1,s2,s3;
for (i = 0; i < 50; i++)
if (where == univ.town->special_locs[i]) {
if (univ.town->specials[univ.town->spec_id[i]].type == 24)
run_special(16,2,univ.town->spec_id[i],where,&s1,&s2,&s3);
return;
}
add_string_to_buf(" Nothing happens.");
}
void crumble_wall(location where) // TODO: Add something like this to the spreading quickfire function
{
ter_num_t ter;
if (loc_off_act_area(where) == true)
return;
ter = univ.town->terrain(where.x,where.y);
if (scenario.ter_types[ter].special == TER_SPEC_CRUMBLING && scenario.ter_types[ter].flag3.u < 2) {
play_sound(60);
univ.town->terrain(where.x,where.y) = scenario.ter_types[ter].flag1.u;
add_string_to_buf(" Barrier crumbles.");
}
}
void do_mindduel(short pc_num,cCreature *monst)
{
short i = 0,adjust,r1,r2,balance = 0;
adjust = (univ.party[pc_num].level + univ.party[pc_num].skills[2]) / 2 - monst->level * 2;
if ((i = get_prot_level(pc_num,53)) > 0)
adjust += i * 5;
if (monst->attitude % 2 != 1)
make_town_hostile();
monst->attitude = 1;
add_string_to_buf("Mindduel!");
while ((univ.party[pc_num].main_status == 1) && (monst->active > 0) && (i < 10)) {
play_sound(1);
r1 = get_ran(1,1,100) + adjust;
r1 += 5 * (monst->status[9] - univ.party[pc_num].status[9]);
r1 += 5 * balance;
r2 = get_ran(1,1,6);
if (r1 < 30) {
sprintf((char *)c_line, " %s is drained %d.",univ.party[pc_num].name.c_str(),r2);
add_string_to_buf((char *) c_line);
monst->mp += r2;
balance++;
if (univ.party[pc_num].cur_sp == 0) {
univ.party[pc_num].status[9] += 2;
sprintf((char *) c_line," %s is dumbfounded.",univ.party[pc_num].name.c_str());
add_string_to_buf((char *) c_line);
if (univ.party[pc_num].status[9] > 7) {
sprintf((char *) c_line," %s is killed!",univ.party[pc_num].name.c_str());
add_string_to_buf((char *) c_line);
kill_pc(pc_num,MAIN_STATUS_DEAD);
}
}
else {
univ.party[pc_num].cur_sp = max(0,univ.party[pc_num].cur_sp - r2);
}
}
if (r1 > 70) {
sprintf((char *)c_line, " %s drains %d.",univ.party[pc_num].name.c_str(),r2);
add_string_to_buf((char *) c_line);
univ.party[pc_num].cur_sp += r2;
balance--;
if (monst->mp == 0) {
monst->status[9] += 2;
monst_spell_note(monst->number,22);
if (monst->status[9] > 7) {
kill_monst(monst,pc_num);
}
}
else {
monst->mp = max(0,monst->mp - r2);
}
}
print_buf();
i++;
}
}
// mode 0 - dispel spell, 1 - always take 2 - always take and take fire and force too
void dispel_fields(short i,short j,short mode)
{
short r1;
if (mode == 2) {
univ.town.set_fire_barr(i,j,false);
univ.town.set_force_barr(i,j,false);
univ.town.set_barrel(i,j,false);
univ.town.set_crate(i,j,false);
univ.town.set_web(i,j,false);
}
if (mode >= 1)
mode = -10;
univ.town.set_fire_wall(i,j,false);
univ.town.set_force_wall(i,j,false);
univ.town.set_scloud(i,j,false);
r1 = get_ran(1,1,6) + mode;
if (r1 <= 1)
univ.town.set_web(i,j,false);
r1 = get_ran(1,1,6) + mode;
if (r1 < 6)
univ.town.set_ice_wall(i,j,false);
r1 = get_ran(1,1,6) + mode;
if (r1 < 5)
univ.town.set_sleep_cloud(i,j,false);
r1 = get_ran(1,1,8) + mode;
if (r1 <= 1)
univ.town.set_quickfire(i,j,false);
r1 = get_ran(1,1,7) + mode;
if (r1 < 5)
univ.town.set_blade_wall(i,j,false);
}
bool pc_can_cast_spell(short pc_num,short type,short spell_num)
//short type; // 0 - mage 1 - priest
{
short level,store_w_cast;
level = spell_level[spell_num];
if ((spell_num < 0) || (spell_num > 61))
return false;
if (univ.party[pc_num].skills[9 + type] < level)
return false;
if (univ.party[pc_num].main_status != 1)
return false;
if (univ.party[pc_num].cur_sp < spell_cost[type][spell_num])
return false;
if ((type == 0) && (univ.party[pc_num].mage_spells[spell_num] == false))
return false;
if ((type == 1) && (univ.party[pc_num].priest_spells[spell_num] == false))
return false;
if (univ.party[pc_num].status[9] >= 8 - level)
return false;
if (univ.party[pc_num].status[12] != 0)
return false;
if (univ.party[pc_num].status[11] > 0)
return false;
// 0 - everywhere 1 - combat only 2 - town only 3 - town & outdoor only 4 - town & combat only 5 - outdoor only
store_w_cast = spell_w_cast[type][spell_num];
if (is_out()) {
if ((store_w_cast == 1) || (store_w_cast == 2) || (store_w_cast == 4)) {
return false;
}
}
if (is_town()) {
if ((store_w_cast == 1) || (store_w_cast == 5)) {
return false;
}
}
if (is_combat()) {
if ((store_w_cast == 2) || (store_w_cast == 3) || (store_w_cast == 5)) {
return false;
}
}
return true;
}
// MARK: Begin spellcasting dialog
void draw_caster_buttons(cDialog& me)
{
short i;
for(i = 0; i < 6; i++) {
std::string id = "caster" + boost::lexical_cast<std::string>(i + 1);
if(!can_choose_caster) {
if (i == pc_casting) {
me[id].show();
}
else {
me[id].hide();
}
}
else {
if(pc_can_cast_spell(i,store_situation,store_situation)) {
me[id].show();
}
else {
me[id].hide();
}
}
}
}
void draw_spell_info(cDialog& me)
{
if (((store_situation == 0) && (store_mage == 70)) ||
((store_situation == 1) && (store_priest == 70))) { // No spell selected
for (i = 0; i < 6; i++) {
std::string id = "target" + boost::lexical_cast<std::string>(i + 1);
me[id].hide();
}
}
else { // Spell selected
for (i = 0; i < 6; i++) {
std::string id = "target" + boost::lexical_cast<std::string>(i + 1);
// TODO: Make this thing an enum
switch (((store_situation == 0) ?
mage_need_select[store_mage] : priest_need_select[store_priest])) {
case 0:
me[id].hide();
break;
case 1:
if (univ.party[i].main_status != 1) {
me[id].hide();
}
else {
me[id].show();
}
break;
case 2:
if (univ.party[i].main_status > 0) {
me[id].show();
}
else {
me[id].hide();
}
break;
}
}
}
}
void draw_spell_pc_info(cDialog& me)
{
short i;
for (i = 0; i < 6; i++) {
std::string n = boost::lexical_cast<std::string>(i + 1);
if (univ.party[i].main_status != 0) {
me["pc" + n].setText(univ.party[i].name);
//if (pc_casting == i)
// cd_text_frame(1098,24 + store_spell_target,11);
// else cd_text_frame(1098,24 + store_spell_target,1);
if (univ.party[i].main_status == 1) {
me["hp" + n].setTextToNum(univ.party[i].cur_health);
me["sp" + n].setTextToNum(univ.party[i].cur_sp);
}
}
}
}
void put_pc_caster_buttons(cDialog& me)
{
short i;
for(i = 0; i < 6; i++) {
std::string n = boost::lexical_cast<std::string>(i + 1);
if(me["caster" + n].isVisible()) {
if (i == pc_casting)
me["pc" + n].setColour(sf::Color::Red);
else me["pc" + n].setColour(me.getDefTextClr());
}
}
}
void put_pc_target_buttons(cDialog& me)
{
if (store_spell_target < 6) {
std::string n = boost::lexical_cast<std::string>(store_spell_target + 1);
me["hp" + n].setColour(sf::Color::Red);
me["sp" + n].setColour(sf::Color::Red);
}
if ((store_last_target_darkened < 6) && (store_last_target_darkened != store_spell_target)) {
std::string n = boost::lexical_cast<std::string>(store_last_target_darkened + 1);
me["hp" + n].setColour(me.getDefTextClr());
me["sp" + n].setColour(me.getDefTextClr());
}
store_last_target_darkened = store_spell_target;
}
// TODO: This stuff may be better handled by using an LED group with a custom focus handler
void put_spell_led_buttons(cDialog& me)
{
short i,spell_for_this_button;
for (i = 0; i < 38; i++) {
spell_for_this_button = (on_which_spell_page == 0) ? i : spell_index[i];
std::string id = "spell" + boost::lexical_cast<std::string>(i + 1);
cLed& led = dynamic_cast<cLed&>(me[id]);
if (spell_for_this_button < 90) {
if (((store_situation == 0) && (store_mage == spell_for_this_button)) ||
((store_situation == 1) && (store_priest == spell_for_this_button))) {
led.setState(led_green);
}
else if (pc_can_cast_spell(pc_casting,store_situation,spell_for_this_button) == true) {
led.setState(led_red);
}
else {
led.setState(led_off);
}
}
}
}
void put_spell_list(cDialog& me)
{
short i;
char add_text[256];
if (on_which_spell_page == 0) {
me["col1"].setText("Level 1:");
me["col2"].setText("Level 2:");
me["col3"].setText("Level 3:");
me["col4"].setText("Level 4:");
for (i = 0; i < 38; i++) {
std::string id = "spell" + boost::lexical_cast<std::string>(i + 1);
if (store_situation == 0) {
if (i == 35)
sprintf((char *) add_text,"%s %c ?",mage_s_name[i],
(char) ((97 + i > 122) ? 65 + (i - 26) : 97 + i));
else sprintf((char *) add_text,"%s %c %d",mage_s_name[i],
(char) ((97 + i > 122) ? 65 + (i - 26) : 97 + i),spell_cost[0][i]);
}
else sprintf((char *) add_text,"%s %c %d",priest_s_name[i],
(char) ((97 + i > 122) ? 65 + (i - 26) : 97 + i),spell_cost[1][i]);
//for (j = 0; j < 30; i++)
// if (add_text[j] == '&')
// add_text[j] = (char) ((97 + i > 122) ? 65 + (i - 26) : 97 + i);
me[id].setText(add_text);
if (spell_index[i] == 90)
me[id].show();
}
}
else {
me["col1"].setText("Level 5:");
me["col2"].setText("Level 6:");
me["col3"].setText("Level 7:");
me["col4"].setText("");
for (i = 0; i < 38; i++) {
std::string id = "spell" + boost::lexical_cast<std::string>(i + 1);
if (spell_index[i] < 90) {
if (store_situation == 0)
sprintf((char *) add_text,"%s %c %d",mage_s_name[spell_index[i]],
(char) ((97 + i > 122) ? 65 + (i - 26) : 97 + i),spell_cost[0][spell_index[i]]);
else sprintf((char *) add_text,"%s %c %d",priest_s_name[spell_index[i]],
(char) ((97 + i > 122) ? 65 + (i - 26) : 97 + i),spell_cost[1][spell_index[i]]);
me[id].setText(add_text);
}
else me[id].hide();
}
}
}
void put_pick_spell_graphics(cDialog& me)
{
short i;
put_spell_list(me);
put_pc_caster_buttons(me);
put_pc_target_buttons(me);
put_spell_led_buttons(me);
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1)
draw_pc_effects(10 + i); // TODO: This line might mean that the "kludge" from the old code is already handled here; verify?
}
bool pick_spell_caster(cDialog& me, std::string id, eKeyMod mods) {
short item_hit = id[id.length() - 1] - '1';
// TODO: This visibility check is probably not needed; wouldn't the dialog framework only trigger on visible elements?
if(me[id].isVisible()) {
pc_casting = item_hit;
if (pc_can_cast_spell(pc_casting,store_situation,
((store_situation == 0) ? store_mage : store_priest)) == false) {
if (store_situation == 0)
store_mage = 70;
else store_priest = 70;
store_spell_target = 6;
}
draw_spell_info(me);
draw_spell_pc_info(me);
put_spell_led_buttons(me);
put_pc_caster_buttons(me);
put_pc_target_buttons(me);
}
}
bool pick_spell_target(cDialog& me, std::string id, eKeyMod mods) {
static const char*const no_target = " No target needed.";
static const char*const bad_target = " Can't cast on him/her.";
static const char*const got_target = " Target selected.";
short item_hit = id[id.length() - 1] - '1';
std::string casting = id;
casting[casting.length() - 1] = pc_casting + '1';
if(!me[casting].isVisible()) {
me["feedback"].setText(no_target);
} else if(!me[id].isVisible()) {
me["feedback"].setText(bad_target);
} else {
me["feedback"].setText(got_target);
store_spell_target = item_hit;
draw_spell_info(me);
put_pc_target_buttons(me);
}
}
void finish_pick_spell(cDialog& me, bool spell_toast);
bool pick_spell_event_filter(cDialog& me, std::string item_hit, eKeyMod mods) {
bool spell_toast = false,dialog_done = false;
if(item_hit == "cancel") {
spell_toast = true;
dialog_done = true;
} else if(item_hit == "cast") {
dialog_done = true;
} else if(item_hit == "other") {
on_which_spell_page = 1 - on_which_spell_page;
put_spell_list(me);
put_spell_led_buttons(me);
} else if(item_hit == "help") {
univ.party.help_received[7] = 0;
give_help(207,8,me);
}
if(dialog_done) finish_pick_spell(me, spell_toast);
}
bool pick_spell_select_led(cDialog& me, std::string id, eKeyMod mods) {
static const char*const choose_target = " Now pick a target.";
static const char*const bad_spell = " Spell not available.";
short item_hit = id[id.length() - 1] - '1';
if(mod_contains(mods, mod_alt)) {
i = (on_which_spell_page == 0) ? item_hit : spell_index[item_hit];
display_spells(store_situation,i,&me);
}
else if(dynamic_cast<cLed&>(me[id]).getState() == led_off) {
me["feedback"].setText(bad_spell);
}
else {
if (store_situation == 0)
store_mage = (on_which_spell_page == 0) ? item_hit - 37 : spell_index[item_hit - 37];
else store_priest = (on_which_spell_page == 0) ? item_hit - 37 : spell_index[item_hit - 37];
draw_spell_info(me);
put_spell_led_buttons(me);
if (store_spell_target < 6) {
std::string targ = "target" + boost::lexical_cast<std::string>(store_spell_target + 1);
if(!me[targ].isVisible()) {
store_spell_target = 6;
draw_spell_info(me);
put_pc_target_buttons(me);
}
}
// Cute trick now... if a target is needed, caster can always be picked
std::string targ = "target" + boost::lexical_cast<std::string>(pc_casting + 1);
if ((store_spell_target == 6) && me[targ].isVisible()) {
me["feedback"].setText(choose_target);
draw_spell_info(me);
play_sound(45); // formerly force_play_sound
}
else if(!me[targ].isVisible()) {
store_spell_target = 6;
put_pc_target_buttons(me);
}
}
}
void finish_pick_spell(cDialog& me, bool spell_toast) {
if (spell_toast == true) {
store_mage = store_mage_store;
store_priest = store_priest_store;
store_spell_target = store_store_target ;
if (store_situation == 0)
store_last_cast_mage = pc_casting;
else store_last_cast_priest = pc_casting;
me.toast();
me.setResult<short>(70);
return;
}
if (((store_situation == 0) && (store_mage == 70)) ||
((store_situation == 1) && (store_priest == 70))) {
add_string_to_buf("Cast: No spell selected.");
store_mage = store_mage_store;
store_priest = store_priest_store;
store_spell_target = store_store_target ;
me.toast();
me.setResult<short>(70);
return;
}
if ((store_situation == 0) && (mage_need_select[store_mage] == 0)) {
store_last_cast_mage = pc_casting;
pc_last_cast[store_situation][pc_casting] = store_mage;
me.toast();
me.setResult<short>(store_mage);
return;
}
if ((store_situation == 1) && (priest_need_select[store_priest] == 0)) {
store_last_cast_priest = pc_casting;
pc_last_cast[store_situation][pc_casting] = store_priest;
me.toast();
me.setResult<short>(store_priest);
return;
}
if (store_spell_target == 6) {
add_string_to_buf("Cast: Need to select target.");
store_mage = store_mage_store;
store_priest = store_priest_store;
store_spell_target = store_store_target ;
me.toast();
give_help(39,0,me);
me.setResult<short>(70);
return;
}
me.setResult<short>((store_situation == 0) ? store_mage : store_priest);
if (store_situation == 0)
store_last_cast_mage = pc_casting;
else store_last_cast_priest = pc_casting;
pc_last_cast[store_situation][pc_casting] = ((store_situation == 0) ? store_mage : store_priest);
me.toast();
}
short pick_spell(short pc_num,short type,short situation) // 70 - no spell OW spell num
//short pc_num; // if 6, anyone
//short type; // 0 - mage 1 - priest
//short situation; // 0 - out 1 - town 2 - combat
{
short item_hit;
store_mage_store = store_mage;
store_priest_store = store_priest;
store_store_target = store_spell_target;
store_situation = type;
store_last_target_darkened = 6;
can_choose_caster = (pc_num < 6) ? false : true;
pc_casting = (type == 0) ? store_last_cast_mage : store_last_cast_priest;
if (pc_casting == 6)
pc_casting = current_pc;
if (pc_num == 6) { // See if can keep same caster
can_choose_caster = true;
if (pc_can_cast_spell(pc_casting,type,type) == false) {
for (i = 0; i < 6; i++)
if (pc_can_cast_spell(i,type,type)) {
pc_casting = i;
i = 500;
}
if (i == 6) {
add_string_to_buf("Cast: Nobody can.");
return 70;
}
}
}
else {
can_choose_caster = false;
pc_casting = pc_num;
}
if (can_choose_caster == false) {
if ((type == 0) && (univ.party[pc_num].skills[9] == 0)) {
add_string_to_buf("Cast: No mage skill.");
return 70;
}
if ((type == 1) && (univ.party[pc_num].skills[10] == 0)) {
add_string_to_buf("Cast: No priest skill.");
return 70;
}
if (univ.party[pc_casting].cur_sp == 0) {
add_string_to_buf("Cast: No spell points.");
return 70;
}
}
// If in combat, make the spell being cast this PCs most recent spell
if (is_combat()) {
if (type == 0)
store_mage = pc_last_cast[0][pc_casting];
else store_priest = pc_last_cast[1][pc_casting];
}
// Keep the stored spell, if it's still castable
if (pc_can_cast_spell(pc_casting,type,((type == 0) ? store_mage : store_priest)) == false) {
if (type == 0) {
store_mage = 0;
store_mage_lev = 1;
}
else {
store_priest = 1;
store_priest_lev = 1;
}
}
// If a target is needed, keep the same target if that PC still targetable
if (((type == 0) && (mage_need_select[store_mage] > 0)) ||
((type == 1) && (priest_need_select[store_priest] > 0))) {
if (univ.party[store_spell_target].main_status != 1)
store_spell_target = 6;
}
else store_spell_target = 6;
// Set the spell page, based on starting spell
if (((type == 0) && (store_mage >= 38)) || ((type == 1) && (store_priest >= 38)))
on_which_spell_page = 1;
else on_which_spell_page = 0;
make_cursor_sword();
cDialog castSpell("cast-spell.xml");
castSpell.attachClickHandlers(pick_spell_caster, {"caster1","caster2","caster3","caster4","caster5","caster6"});
castSpell.attachClickHandlers(pick_spell_target, {"target1","target2","target3","target4","target5","target6"});
castSpell.attachClickHandlers(pick_spell_event_filter, {"cancel", "cast", "other", "help"});
dynamic_cast<cPict&>(castSpell["pic"]).setPict(14 + type,PIC_DLOG);
for(i = 0; i < 38; i++) {
std::string id = "spell" + boost::lexical_cast<std::string>(i + 1);
if (i > 25)
castSpell[id].attachKey({false, static_cast<unsigned char>('a' + i - 26), mod_shift});
else castSpell[id].attachKey({false, static_cast<unsigned char>('a' + i), mod_none});
cLed& led = dynamic_cast<cLed&>(castSpell[id]);
led.setState((pc_can_cast_spell(pc_casting,type, (on_which_spell_page == 0) ? i : spell_index[i]))
? led_red : led_green);
led.attachClickHandler(pick_spell_select_led);
}
put_spell_list(castSpell);
draw_spell_info(castSpell);
put_pc_caster_buttons(castSpell);
draw_spell_pc_info(castSpell);
draw_caster_buttons(castSpell);
put_spell_led_buttons(castSpell);
if (univ.party.help_received[7] == 0) {
// TODO: Not sure if this initial draw is needed
// cd_initial_draw(1098);
give_help(7,8,castSpell);
}
castSpell.run();
return castSpell.getResult<short>();
}
void print_spell_cast(short spell_num,short which)
//short which; // 0 - mage 1 - priest
{
sprintf ((char *) c_line, "Spell: %s ",
(which == 0) ? (char *) mage_s_name[spell_num] : (char *) priest_s_name[spell_num]);
add_string_to_buf((char *) c_line);
}
short stat_adj(short pc_num,short which)
{
short tr;
tr = skill_bonus[univ.party[pc_num].skills[which]];
if (which == 2) {
if (univ.party[pc_num].traits[1] == true)
tr++;
if (pc_has_abil_equip(pc_num,40) < 24)
tr++;
}
if (which == 0) {
if (univ.party[pc_num].traits[8] == true)
tr++;
if (pc_has_abil_equip(pc_num,38) < 24)
tr++;
}
if (which == 1) {
if (pc_has_abil_equip(pc_num,39) < 24)
tr++;
}
return tr;
}
void set_town_spell(short s_num,short who_c)
{
town_spell = s_num;
who_cast = who_c;
}
void do_alchemy() ////
{
static const short ingred1_needed[20] = {
150,151,150,151,153,
152,152,153,156,153,
156,154,156,157,155,
157,157,152,156,157
};
static const short ingred2_needed[20] = {
0,0,0,153,0,
0,0,152,0,154,
150,0,151,0,0,
154,155,155,154,155
};
static const short difficulty[20] = {
1,1,1,3,3,
4,5,5,7,9,
9,10,12,12,9,
14,19,10,16,20
};
static const short fail_chance[20] = {
50,40,30,20,10,
8,6,4,2,0,
0,0,0,0,0,
0,0,0,0,0
};
short which_p,which_item,which_item2,r1;
short pc_num;
cItemRec store_i('alch');// = {7,0, 0,0,0,1,0,0, 50,0,0,0,0, 0, 8,0, {0,0},"Potion","Potion",0,5,0,0};
// {7,0,0,0,0,1,1,30,59,0,0,250,1,0,1,{0,0},"Graymold Salve","Potion"},
// {7,0,0,0,0,1,1,30,13,0,0,250,1,0,1,{0,0},"Resurrection Balm","Potion"},
static const short potion_abils[20] = {
72,87,70,73,70,
87,72,73,77,88,
79,70,87,70,160,
88,86,71,84,88
};
static const short potion_strs[20] = {
2,2,2,2,4, 5,8,5,4,2,
8,6,8,8,0, 5,2,8,5,8
};
static const short potion_val[20] = {
40,60,15,50,50,
180,200,100,150,100,
200,150,300,400,100,
300,500,175,250,500
};
pc_num = select_pc(1,0);
if (pc_num == 6)
return;
which_p = alch_choice(pc_num);
if (which_p < 20) {
if (pc_has_space(pc_num) == 24) {
add_string_to_buf("Alchemy: Can't carry another item.");
return;
}
if (((which_item = pc_has_abil(pc_num,ingred1_needed[which_p])) == 24) ||
((ingred2_needed[which_p] > 0) && ((which_item2 = pc_has_abil(pc_num,ingred2_needed[which_p])) == 24))) {
add_string_to_buf("Alchemy: Don't have ingredients.");
return;
}
play_sound(8);
remove_charge(pc_num,which_item);
if (ingred2_needed[which_p] > 0)
remove_charge(pc_num,which_item2);
r1 = get_ran(1,1,100);
if (r1 < fail_chance[univ.party[pc_num].skills[12] - difficulty[which_p]]) {
add_string_to_buf("Alchemy: Failed. ");
r1 = get_ran(1,0,1);
play_sound(41 );
}
else {
store_i.value = potion_val[which_p];
store_i.ability_strength = potion_strs[which_p];
store_i.ability = (eItemAbil) potion_abils[which_p];
if (which_p == 8)
store_i.magic_use_type = 2;
store_i.full_name = alch_names_short[which_p];
if (univ.party[pc_num].skills[12] - difficulty[which_p] >= 5)
store_i.charges++;
if (univ.party[pc_num].skills[12] - difficulty[which_p] >= 11)
store_i.charges++;
if (store_i.variety == 7)
store_i.graphic_num += get_ran(1,0,2);
if (give_to_pc(pc_num,store_i,0) == false) {
ASB("No room in inventory.");
ASB(" Potion placed on floor.");
place_item(store_i,univ.town.p_loc,true);
}
else add_string_to_buf("Alchemy: Successful. ");
}
put_item_screen(stat_window,0);
}
}
bool alch_choice_event_filter(cDialog& me, std::string item_hit, eKeyMod mods)
{
if(item_hit == "help") {
univ.party.help_received[20] = 0;
give_help(20,21,me);
return true;
}
if(item_hit == "cancel")
me.setResult<short>(20);
else {
me.setResult<short>(item_hit[6] - '1');
}
me.toast();
}
short alch_choice(short pc_num)
{
short difficulty[20] = {1,1,1,3,3, 4,5,5,7,9, 9,10,12,12,9, 14,19,10,16,20};
short i,item_hit,store_alchemy_pc;
char get_text[256];
make_cursor_sword();
store_alchemy_pc = pc_num;
cDialog chooseAlchemy("pick-potion.xml");
chooseAlchemy.attachClickHandlers(alch_choice_event_filter, {"cancel", "help"});
for (i = 0; i < 20; i++) {
std::string n = boost::lexical_cast<std::string>(i + 1);
chooseAlchemy["label" + n].setText(alch_names[i]);
chooseAlchemy["potion" + n].attachClickHandler(alch_choice_event_filter);
if ((univ.party[pc_num].skills[12] < difficulty[i]) || (univ.party.alchemy[i] == 0))
chooseAlchemy["potion" + n].hide();
}
sprintf((char *) get_text, "%s (skill %d)",
univ.party[pc_num].name.c_str(),univ.party[pc_num].skills[12]);
chooseAlchemy["mixer"].setText(get_text);
if (univ.party.help_received[20] == 0) {
// TODO: I'm not sure if the initial draw is needed
// cd_initial_draw(1047);
give_help(20,21,chooseAlchemy);
}
chooseAlchemy.run();
return chooseAlchemy.getResult<short>();
}
extern bool pc_gworld_loaded;
bool pick_pc_graphic(short pc_num,short mode,cDialog* parent)
// mode ... 0 - create 1 - created
{
short i,item_hit;
bool munch_pc_graphic = false;
store_graphic_pc_num = pc_num;
store_graphic_mode = mode;
make_cursor_sword();
if (!pc_gworld_loaded) {
munch_pc_graphic = true;
pc_gworld.loadFromImage(*ResMgr::get<ImageRsrc>("pcs"));
}
cPictChoice pcPic(0,36,PIC_PC,parent);
// Customize it for this special case of choosing a PC graphic
dynamic_cast<cPict&>(pcPic->getControl("mainpic")).setPict(7);
pcPic->getControl("prompt").setText("Select a graphic for your PC:");
pcPic->getControl("help").setText("Click button to left of graphic to select.");
pic_num_t choice = pcPic.show(36, univ.party[pc_num].which_graphic);
if(mode == 0 && choice == 36 && univ.party[pc_num].main_status < MAIN_STATUS_ABSENT)
univ.party[pc_num].main_status = MAIN_STATUS_ABSENT;
else if(choice != 36)
univ.party[pc_num].which_graphic = choice;
return choice != 36;
}
bool pc_name_event_filter(cDialog& me, std::string item_hit, eKeyMod mods)
{
std::string pcName = me["name"].getText();
if(!isalpha(pcName[0])) {
me["error"].setText("Must begin with a letter.");
}
else {
// TODO: This was originally truncated to 18 characters; is that really necessary?
univ.party[store_train_pc].name = pcName;
me.toast();
}
}
bool pick_pc_name(short pc_num,cDialog* parent)
//town_num; // Will be 0 - 200 for town, 200 - 290 for outdoors
//short sign_type; // terrain type
{
short item_hit;
store_train_pc = pc_num;
make_cursor_sword();
cDialog pcPickName("pick-pc-name.xml", parent);
pcPickName["name"].setText(univ.party[store_train_pc].name);
pcPickName["okay"].attachClickHandler(pc_name_event_filter);
pcPickName.run();
return 1;
}
m_num_t pick_trapped_monst()
// ignore parent in Mac version
{
short item_hit,i;
std::string sp;
cMonster get_monst;
make_cursor_sword();
cChoiceDlog soulCrystal("soul-crystal.xml",{"cancel","pick1","pick2","pick3","pick4"});
for (i = 0; i < 4; i++) {
std::string n = boost::lexical_cast<std::string>(i + 1);
if (univ.party.imprisoned_monst[i] == 0) {
soulCrystal->getControl("pick" + n).hide();
}
else {
sp = get_m_name(univ.party.imprisoned_monst[i]);
soulCrystal->getControl("slot" + n).setText(sp);
get_monst = scenario.scen_monsters[univ.party.imprisoned_monst[i]];
soulCrystal->getControl("lvl" + n).setTextToNum(get_monst.level);
}
}
std::string result = soulCrystal.show();
if(result == "cancel")
return 0;
else return univ.party.imprisoned_monst[result[4] - '1'];
}
bool flying()
{
if (PSD[SDF_PARTY_FLIGHT] == 0)
return false;
else return true;
}
void poison_pc(short which_pc,short how_much)
{
short level;
if (univ.party[which_pc].main_status == 1) {
if ((level = get_prot_level(which_pc,34)) > 0)////
how_much -= level / 2;
if ((level = get_prot_level(which_pc,31)) > 0)////
how_much -= level / 3;
if ((univ.party[which_pc].traits[12] == true) &&
(how_much > 1))
how_much++;
if ((univ.party[which_pc].traits[12] == true) &&
(how_much == 1) && (get_ran(1,0,1) == 0))
how_much++;
if (how_much > 0) {
univ.party[which_pc].status[2] = min(univ.party[which_pc].status[2] + how_much,8);
sprintf ((char *) c_line, " %s poisoned.",
(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
one_sound(17);
give_help(33,0);
}
}
put_pc_screen();
}
void poison_party(short how_much)
{
short i;
for (i = 0; i < 6; i++)
poison_pc(i,how_much);
}
void affect_pc(short which_pc,eStatus type,short how_much)////
//type; // which status to affect
{
if (univ.party[which_pc].main_status != 1)
return;
univ.party[which_pc].status[type] = minmax (-8,8,univ.party[which_pc].status[type] + how_much);
if (((type >= 4) && (type <= 10)) || (type == 12) || (type == 13))
univ.party[which_pc].status[type] = max(univ.party[which_pc].status[type],0);
put_pc_screen();
}
void affect_party(eStatus type,short how_much)
//type; // which status to affect
{
short i;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == 1)
univ.party[i].status[type] = minmax (-8,8,univ.party[i].status[type] + how_much);
put_pc_screen();
}
void void_sanctuary(short pc_num)
{
if (univ.party[pc_num].status[8] > 0) {
add_string_to_buf("You become visible!");
univ.party[pc_num].status[8] = 0;
}
}
void hit_party(short how_much,eDamageType damage_type)
{
short i;
bool dummy;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == MAIN_STATUS_ALIVE)
dummy = damage_pc(i,how_much,damage_type,MONSTER_TYPE_UNKNOWN,0);
// dummy = damage_pc(i,how_much,damage_type + 30);
put_pc_screen();
}
void slay_party(eMainStatus mode)
{
short i;
boom_anim_active = false;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status == MAIN_STATUS_ALIVE)
univ.party[i].main_status = mode;
put_pc_screen();
}
bool damage_pc(short which_pc,short how_much,eDamageType damage_type,eMonsterType type_of_attacker, short sound_type)
//short damage_type; // 0 - weapon 1 - fire 2 - poison 3 - general magic 4 - unblockable
// 5 - cold 6 - undead attack 7 - demon attack
// 10 - marked damage, from during anim mode ... no boom, and totally unblockable
// 30 + * same as *, but no print
// 100s digit - sound data
{
short i, r1,level;
bool do_print = true;
if (univ.party[which_pc].main_status != 1)
return false;
//sound_type = damage_type / 100;
//damage_type = damage_type % 100;
if (damage_type >= DAMAGE_NO_PRINT) {
do_print = false;
damage_type -= DAMAGE_NO_PRINT;
}
if (sound_type == 0) {
if ((damage_type == 1) || (damage_type == 4) )
sound_type = 5;
if (damage_type == 3)
sound_type = 12;
if (damage_type == 5)
sound_type = 7;
if (damage_type == 2)
sound_type = 11;
}
// armor
if ((damage_type == 0) || (damage_type == 6) ||(damage_type == 7)) {
how_much -= minmax(-5,5,univ.party[which_pc].status[1]);
for (i = 0; i < 24; i++)
if ((univ.party[which_pc].items[i].variety != 0) && (univ.party[which_pc].equip[i] == true)) {
if ((univ.party[which_pc].items[i].variety >= 12) && (univ.party[which_pc].items[i].variety <= 17)) {
r1 = get_ran(1,1,univ.party[which_pc].items[i].item_level);
how_much -= r1;
// bonus for magical items
if (univ.party[which_pc].items[i].bonus > 0) {
r1 = get_ran(1,1,univ.party[which_pc].items[i].bonus);
how_much -= r1;
how_much -= univ.party[which_pc].items[i].bonus / 2;
}
if (univ.party[which_pc].items[i].bonus < 0) {
how_much = how_much - univ.party[which_pc].items[i].bonus;
}
r1 = get_ran(1,1,100);
if (r1 < hit_chance[univ.party[which_pc].skills[8]] - 20)
how_much -= 1;
}
if (univ.party[which_pc].items[i].protection > 0) {
r1 = get_ran(1,1,univ.party[which_pc].items[i].protection);
how_much -= r1;
}
if (univ.party[which_pc].items[i].protection < 0) {
r1 = get_ran(1,1,-1 * univ.party[which_pc].items[i].protection);
how_much += r1;
}
}
}
// parry
if ((damage_type < 2) && (pc_parry[which_pc] < 100))
how_much -= pc_parry[which_pc] / 4;
if (damage_type != 10) {
if (PSD[SDF_EASY_MODE] > 0)
how_much -= 3;
// toughness
if (univ.party[which_pc].traits[0] == true)
how_much--;
// luck
if (get_ran(1,1,100) < 2 * (hit_chance[univ.party[which_pc].skills[18]] - 20))
how_much -= 1;
}
if ((damage_type == DAMAGE_WEAPON) && ((level = get_prot_level(which_pc,30)) > 0))
how_much = how_much - level;
if ((damage_type == DAMAGE_UNDEAD) && ((level = get_prot_level(which_pc,57)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
if ((damage_type == DAMAGE_DEMON) && ((level = get_prot_level(which_pc,58)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
if ((type_of_attacker == MONSTER_TYPE_HUMANOID) && ((level = get_prot_level(which_pc,59)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
if ((type_of_attacker == MONSTER_TYPE_REPTILE) && ((level = get_prot_level(which_pc,60)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
if ((type_of_attacker == MONSTER_TYPE_GIANT) && ((level = get_prot_level(which_pc,61)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
// invuln
if (univ.party[which_pc].status[4] > 0)
how_much = 0;
// magic resistance
if ((damage_type == 3) && ((level = get_prot_level(which_pc,35)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
// Mag. res helps w. fire and cold
if (((damage_type == 1) || (damage_type == 5)) &&
(univ.party[which_pc].status[5] > 0))
how_much = how_much / 2;
// fire res.
if ((damage_type == 1) && ((level = get_prot_level(which_pc,32)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
// cold res.
if ((damage_type == 5) && ((level = get_prot_level(which_pc,33)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
// major resistance
if (((damage_type == 1) || (damage_type == 2) || (damage_type == 3) || (damage_type == 5))
&& ((level = get_prot_level(which_pc,31)) > 0))
how_much = how_much / ((level >= 7) ? 4 : 2);
if (boom_anim_active == true) {
if (how_much < 0)
how_much = 0;
pc_marked_damage[which_pc] += how_much;
if (is_town())
add_explosion(univ.town.p_loc,how_much,0,(damage_type > 2) ? 2 : 0,0,0);
else add_explosion(pc_pos[which_pc],how_much,0,(damage_type > 2) ? 2 : 0,0,0);
// sprintf ((char *) c_line, " %s takes %d. ",(char *) univ.party[which_pc].name, how_much);
// if (do_print == true)
// add_string_to_buf((char *) c_line);
if (how_much == 0)
return false;
else return true;
}
if (how_much <= 0) {
if ((damage_type == 0) || (damage_type == 6) || (damage_type == 7))
play_sound(2);
add_string_to_buf (" No damage.");
return false;
}
else {
// if asleep, get bonus
if (univ.party[which_pc].status[11] > 0)
univ.party[which_pc].status[11]--;
sprintf ((char *) c_line, " %s takes %d. ",(char *) univ.party[which_pc].name.c_str(), how_much);
if (do_print == true)
add_string_to_buf((char *) c_line);
if (damage_type != 10) {
if (is_combat())
boom_space(pc_pos[which_pc],overall_mode,boom_gr[damage_type],how_much,sound_type);
else if (is_town())
boom_space(univ.town.p_loc,overall_mode,boom_gr[damage_type],how_much,sound_type);
else boom_space(univ.town.p_loc,100,boom_gr[damage_type],how_much,sound_type);
}
// TODO: When outdoors it flushed only key events, not mouse events. Why?
flushingInput = true;
}
univ.party.total_dam_taken += how_much;
if (univ.party[which_pc].cur_health >= how_much)
univ.party[which_pc].cur_health = univ.party[which_pc].cur_health - how_much;
else if (univ.party[which_pc].cur_health > 0)
univ.party[which_pc].cur_health = 0;
else // Check if PC can die
if (how_much > 25) {
sprintf ((char *) c_line, " %s is obliterated. ",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
kill_pc(which_pc, MAIN_STATUS_DUST);
}
else {
sprintf ((char *) c_line, " %s is killed.",(char *) univ.party[which_pc].name.c_str());
add_string_to_buf((char *) c_line);
kill_pc(which_pc,MAIN_STATUS_DEAD);
}
if ((univ.party[which_pc].cur_health == 0) && (univ.party[which_pc].main_status == 1))
play_sound(3);
put_pc_screen();
return true;
}
void kill_pc(short which_pc,eMainStatus type)
{
short i = 24;
bool dummy,no_save = false;
location item_loc;
if (type >= MAIN_STATUS_SPLIT) {
type -= MAIN_STATUS_SPLIT;
no_save = true;
}
if (type != MAIN_STATUS_STONE)
i = pc_has_abil_equip(which_pc,48);
if ((no_save == false) && (type != MAIN_STATUS_ABSENT) && (univ.party[which_pc].skills[18] > 0) &&
(get_ran(1,1,100) < hit_chance[univ.party[which_pc].skills[18]])) {
add_string_to_buf(" But you luck out! ");
univ.party[which_pc].cur_health = 0;
}
else if ((i == 24) || (type == MAIN_STATUS_ABSENT)) {
if (combat_active_pc == which_pc)
combat_active_pc = 6;
for (i = 0; i < 24; i++)
univ.party[which_pc].equip[i] = false;
item_loc = (overall_mode >= MODE_COMBAT) ? pc_pos[which_pc] : univ.town.p_loc;
if (type == MAIN_STATUS_DEAD)
make_sfx(item_loc.x,item_loc.y,3);
else if (type == 3)
make_sfx(item_loc.x,item_loc.y,6);
if (overall_mode != MODE_OUTDOORS)
for (i = 0; i < 24; i++)
if (univ.party[which_pc].items[i].variety != 0) {
dummy = place_item(univ.party[which_pc].items[i],item_loc,true);
univ.party[which_pc].items[i].variety = ITEM_TYPE_NO_ITEM;
}
if ((type == MAIN_STATUS_DEAD) || (type == MAIN_STATUS_DUST))
play_sound(21);
univ.party[which_pc].main_status = type;
univ.party[which_pc].ap = 0;
}
else {
add_string_to_buf(" Life saved! ");
take_item(which_pc,i);
heal_pc(which_pc,200);
}
if (univ.party[current_pc].main_status != MAIN_STATUS_ALIVE)
current_pc = first_active_pc();
put_pc_screen();
set_stat_window(current_pc);
}
void set_pc_moves()
{
short i,r,i_level;
for (i = 0; i < 6; i++)
if (univ.party[i].main_status != 1)
univ.party[i].ap = 0;
else {
univ.party[i].ap = (univ.party[i].traits[10] == true) ? 3 : 4;
r = get_encumberance(i);
univ.party[i].ap = minmax(1,8,univ.party[i].ap - (r / 3));
if ((i_level = get_prot_level(i,55)) > 0)
univ.party[i].ap += i_level / 7 + 1;
if ((i_level = get_prot_level(i,56)) > 0)
univ.party[i].ap -= i_level / 5;
if ((univ.party[i].status[3] < 0) && (univ.party.age % 2 == 1)) // slowed?
univ.party[i].ap = 0;
else { // do webs
univ.party[i].ap = max(0,univ.party[i].ap - univ.party[i].status[6] / 2);
if (univ.party[i].ap == 0) {
sprintf((char *) c_line,"%s must clean webs.",univ.party[i].name.c_str());
add_string_to_buf((char *) c_line);
univ.party[i].status[6] = max(0,univ.party[i].status[6] - 3);
}
}
if (univ.party[i].status[3] > 7)
univ.party[i].ap = univ.party[i].ap * 3;
else if (univ.party[i].status[3] > 0)
univ.party[i].ap = univ.party[i].ap * 2;
if ((univ.party[i].status[11] > 0) || (univ.party[i].status[12] > 0))
univ.party[i].ap = 0;
}
}
void take_ap(short num)
{
univ.party[current_pc].ap = max(0,univ.party[current_pc].ap - num);
}
short cave_lore_present()
{
short i,ret = 0;
for (i = 0; i < 6; i++)
if ((univ.party[i].main_status == 1) && (univ.party[i].traits[4] > 0))
ret += 1;
return ret;
}
short woodsman_present()
{
short i,ret = 0;
for (i = 0; i < 6; i++)
if ((univ.party[i].main_status == 1) && (univ.party[i].traits[5] > 0))
ret += 1;
return ret;
}