openboe/oboe-original
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
515a9a090418ee17011c18a1cf3926e45c437b60
oboe-original/Macintosh Code Release 3/Blades of Exile Char Editor/ed.fileio.c
Nat Quayle Nelson 8555d53110 Fix line endings
2025-05-14 09:39:09 -05:00

795 lines
19 KiB
C
Executable File
Raw Blame History

#include <Memory.h>
#include <Menus.h>
#include <Windows.h>
#include <TextEdit.h>
#include <Dialogs.h>
#include <ToolUtils.h>
#include <Files.h>
#include <StandardFile.h>
#include <Resources.h>
#include <QDOffscreen.h>
#include <string.h>
#include "stdio.h"
#include "ed.global.h"
#include "ed.fileio.h"
#include "ed.graphics.h"
#include "ed.sound.h"
#include "ed.editors.h"
#define DONE_BUTTON_ITEM 1
#define IN_FRONT (WindowPtr)-1L
#define NIL 0L
DialogPtr the_dialog;
/* Adventure globals */
extern party_record_type party;
extern pc_record_type adven[6];
extern outdoor_record_type outdoors[2][2];
extern current_town_type c_town;
extern big_tr_type t_d;
extern town_item_list t_i;
extern unsigned char misc_i[64][64],sfx[64][64];
extern unsigned char out[96][96],out_e[96][96];
extern setup_save_type setup_save;
extern stored_items_list_type stored_items[3];
extern stored_town_maps_type town_maps;
extern stored_outdoor_maps_type o_maps;
extern Boolean registered,play_sounds,sys_7_avail,save_blocked,ed_reg;
extern short current_active_pc;
extern long register_flag,stored_key;
extern WindowPtr mainPtr;
extern long ed_flag,ed_key;
extern Boolean file_in_mem,party_in_scen;
Boolean ae_loading = FALSE;
typedef struct {
char expl[96][96];
} out_info_type;
char *party_encryptor;
Str63 last_load_file = "\pBlades of Exile Save";
FSSpec file_to_load;
extern short store_flags[3];
FSSpec store_file_reply;
short give_intro_hint,display_mode;
void load_file()
{
SFReply reply;
StandardFileReply s_reply;
Point where = {40,40};
Str255 message = "Select saved game:";
long file_size;
OSErr error;
SFTypeList type_list;
short file_id,i,j,k;
Boolean town_restore = FALSE;
Boolean maps_there = FALSE;
Boolean map_doh = FALSE;
Boolean in_scen = FALSE;
flag_type fred;
flag_type *store;
char flag_data[8];
town_item_list *item_ptr;
long len,store_len,count;
out_info_type *explored_ptr;
char *party_ptr;
char *pc_ptr;
flag_type flag;
flag_type *flag_ptr;
stored_items_list_type *items_ptr;
short flags[3][2] = {{5790,1342}, // slot 0 ... 5790 - out 1342 - town
{100,200}, // slot 1 100 in scenario, 200 not in
{3422,5567}}; // slot 2 ... 3422 - no maps 5567 - maps
type_list[0] = 'beSV';
type_list[1] = 'TEXT';
if (sys_7_avail == FALSE) {
SFPGetFile(where,message, NULL, 1, type_list, NULL, &reply,-2000,NULL);
if (reply.good == 0) {
return;
}
if ((error = FSOpen(reply.fName,reply.vRefNum,&file_id)) > 0){
FCD(1064,0);
SysBeep(2);
return;
}
}
else {
if (ae_loading == FALSE) {
StandardGetFile(NULL,1,type_list,&s_reply);
if (s_reply.sfGood == FALSE)
return;
file_to_load = s_reply.sfFile;
}
if ((error = FSpOpenDF(&file_to_load,1,&file_id)) != 0) {
FCD(1064,0);
SysBeep(2);
return;
}
}
file_size = sizeof(party_record_type);
len = sizeof(flag_type);
// sprintf((char *) debug, " Len %d ", (short) len);
// add_string_to_buf((char *) debug);
for (i = 0; i < 3; i++) {
if ((error = FSRead(file_id, &len, (char *) flag_data)) != 0) {
FSClose(file_id);
FCD(1064,0);
return;
}
flag_ptr = (flag_type *) flag_data;
flag = *flag_ptr;
store_flags[i] = (short) flag.i;
if ((flag.i != flags[i][0]) && (flag.i != flags[i][1])) { // OK BoE save file?
FSClose(file_id);
FCD(1063,0);
return;
}
if ((i == 0) && (flag.i == flags[i][1]))
town_restore = TRUE;
if ((i == 1) && (flag.i == flags[i][0])) {
in_scen = TRUE;
}
if ((i == 2) && (flag.i == flags[i][1]))
maps_there = TRUE;
}
// LOAD PARTY
len = (long) sizeof(party_record_type);
store_len = len;
party_ptr = (char *) &party;
if ((error = FSRead(file_id, &len, (char *) party_ptr)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
for (count = 0; count < store_len; count++)
party_ptr[count] ^= 0x5C;
// LOAD SETUP
len = (long) sizeof(setup_save_type);
if ((error = FSRead(file_id, &len, (char *) &setup_save)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
// LOAD PCS
store_len = (long) sizeof(pc_record_type);
for (i = 0; i < 6; i++) {
len = store_len;
pc_ptr = (char *) &adven[i];
if ((error = FSRead(file_id, &len, (char *) pc_ptr)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
for (count = 0; count < store_len; count++)
pc_ptr[count] ^= 0x6B;
}
if (in_scen == TRUE) {
// LOAD OUTDOOR MAP
len = (long) sizeof(out_info_type);
if ((error = FSRead(file_id, &len, (char *) out_e)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
// LOAD TOWN
if (town_restore == TRUE) {
len = (long) sizeof(current_town_type);
if ((error = FSRead(file_id, &len, (char *) &c_town)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
len = (long) sizeof(big_tr_type);
if ((error = FSRead(file_id, &len, (char *) &t_d)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
len = (long) sizeof(town_item_list);
if ((error = FSRead(file_id, &len, (char *) &t_i)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
}
// LOAD STORED ITEMS
for (i = 0; i < 3; i++) {
len = (long) sizeof(stored_items_list_type);
if ((error = FSRead(file_id, &len, (char *) &stored_items[i])) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
}
// LOAD SAVED MAPS
if (maps_there == TRUE) {
len = (long) sizeof(stored_town_maps_type);
if ((error = FSRead(file_id, &len, (char *) &(town_maps))) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
len = (long) sizeof(stored_outdoor_maps_type);
if ((error = FSRead(file_id, &len, (char *) &o_maps)) != 0) {
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
}
// LOAD SFX & MISC_I
len = (long) (64 * 64);
if ((error = FSRead(file_id, &len, (char *) sfx)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
if ((error = FSRead(file_id, &len, (char *) misc_i)) != 0){
FSClose(file_id);
SysBeep(2);
FCD(1064,0);
return;
}
} // end if_scen
if ((error = FSClose(file_id)) != 0){
add_string_to_buf("Load: Can't close file. ");
SysBeep(2);
return;
}
for (i = 0; i < 6; i++)
if (adven[i].main_status > 0) {
current_active_pc = i;
i = 6;
}
file_in_mem = TRUE;
save_blocked = FALSE;
party_in_scen = in_scen;
if ((sys_7_avail == FALSE) && (ae_loading == FALSE))
strcpy ((char *) last_load_file, (char *) reply.fName);
else {
strcpy ((char *) last_load_file, (char *) file_to_load.name);
store_file_reply = file_to_load;
}
redraw_screen();
}
void save_file(short mode)
//short mode; // 0 - normal 1 - save as
{
SFReply reply2;
StandardFileReply reply;
Point where = {40,40};
Str255 message = "\pSelect saved game: ";
long file_size;
OSErr error;
short file_id;
Boolean got_error = FALSE,in_scen = FALSE,town_save = FALSE,save_maps = FALSE;
Str63 store_name;
FSSpec to_load;
short i,j;
long len,store_len,count;
flag_type flag;
flag_type *store;
party_record_type *party_ptr;
setup_save_type *setup_ptr;
pc_record_type *pc_ptr;
// out_info_type store_explored;
out_info_type *explored_ptr;
current_town_type *town_ptr;
big_tr_type *town_data_ptr;
town_item_list *item_ptr;
stored_items_list_type *items_ptr;
stored_town_maps_type *maps_ptr;
stored_outdoor_maps_type *o_maps_ptr;
char *party_encryptor;
char debug[60];
if (file_in_mem == FALSE)
return;
if (save_blocked == TRUE) {
FCD(903,0);
return;
}
if (store_flags[0] == 1342)
town_save = TRUE;
else town_save = FALSE;
if (store_flags[1] == 100)
in_scen = TRUE;
else in_scen = FALSE;
if (store_flags[2] == 5567)
save_maps = TRUE;
else save_maps = FALSE;
strcpy ((char *) store_name, (char *) last_load_file);
if (sys_7_avail == FALSE) {
SFPPutFile(where,message, (ConstStr255Param) store_name
, NULL, &reply2, -2001, NULL);
if (reply2.good == 0) {
return;
}
error = (Create(reply2.fName, reply2.vRefNum, 'blx!', 'beSV'));
if ((error = FSOpen(reply2.fName,reply2.vRefNum,&file_id)) != 0){
add_string_to_buf("Save: Couldn't open file. ");
SysBeep(2);
return;
}
strcpy ((char *) last_load_file, (char *) reply2.fName);
}
else {
//if ((mode == 1) || (loaded_yet == FALSE)) {
StandardPutFile(message,last_load_file,&reply);
if (reply.sfGood == FALSE)
return;
to_load = reply.sfFile;
// loaded_yet = TRUE;
// }
// else to_load = store_file_reply;
error = FSpCreate(&to_load,'blx!', 'beSV',reply.sfScript);
if ((error != 0) && (error != dupFNErr)) {
add_string_to_buf("Save: Couldn't create file. ");
SysBeep(2);
return;
}
if ((error = FSpOpenDF(&to_load,3,&file_id)) != 0) {
add_string_to_buf("Save: Couldn't open file. ");
SysBeep(2);
return;
}
strcpy ((char *) last_load_file, (char *) to_load.name);
store_file_reply = to_load;
}
store = &flag;
len = sizeof(flag_type);
flag.i = store_flags[0];
if ((error = FSWrite(file_id, &len, (char *) store)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
}
flag.i = store_flags[1];
if ((error = FSWrite(file_id, &len, (char *) store)) != 0) {
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
flag.i = store_flags[2];
if ((error = FSWrite(file_id, &len, (char *) store)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
// SAVE PARTY
party_ptr = &party;
len = sizeof(party_record_type);
store_len = len;
party_encryptor = (char *) party_ptr;
for (count = 0; count < store_len; count++)
party_encryptor[count] ^= 0x5C;
if ((error = FSWrite(file_id, &len, (char *) party_ptr)) != 0) {
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
for (count = 0; count < store_len; count++)
party_encryptor[count] ^= 0x5C;
SysBeep(2);
return;
}
for (count = 0; count < store_len; count++)
party_encryptor[count] ^= 0x5C;
// SAVE SETUP
setup_ptr = &setup_save;
len = sizeof(setup_save_type);
if ((error = FSWrite(file_id, &len, (char *) setup_ptr)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
// SAVE PCS
store_len = sizeof(pc_record_type);
for (i = 0; i < 6; i++) {
pc_ptr = &adven[i];
len = store_len;
party_encryptor = (char *) pc_ptr;
for (count = 0; count < store_len; count++)
party_encryptor[count] ^= 0x6B;
if ((error = FSWrite(file_id, &len, (char *) pc_ptr)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
for (count = 0; count < store_len; count++)
party_encryptor[count] ^= 0x6B;
SysBeep(2);
return;
}
for (count = 0; count < store_len; count++)
party_encryptor[count] ^= 0x6B;
}
if (party_in_scen == TRUE) {
// SAVE OUT DATA
len = sizeof(out_info_type);
if ((error = FSWrite(file_id, &len, (char *) out_e)) != 0) {
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
if (town_save == TRUE) {
town_ptr = &c_town;
len = sizeof(current_town_type);
if ((error = FSWrite(file_id, &len, (char *) town_ptr)) != 0) {
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
town_data_ptr = &t_d;
len = sizeof(big_tr_type);
if ((error = FSWrite(file_id, &len, (char *) town_data_ptr)) != 0) {
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
item_ptr = &t_i;
len = sizeof(town_item_list);
if ((error = FSWrite(file_id, &len, (char *) item_ptr)) != 0) {
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
}
// Save stored items
for (i = 0; i < 3; i++) {
items_ptr = &stored_items[i];
len = (long) sizeof(stored_items_list_type);
if ((error = FSWrite(file_id, &len, (char *) items_ptr)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
}
// If saving maps, save maps
if (save_maps == TRUE) {
maps_ptr = &(town_maps);
len = (long) sizeof(stored_town_maps_type);
if ((error = FSWrite(file_id, &len, (char *) maps_ptr)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
o_maps_ptr = &o_maps;
len = (long) sizeof(stored_outdoor_maps_type);
if ((error = FSWrite(file_id, &len, (char *) o_maps_ptr)) != 0) {
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
}
// SAVE SFX and MISC_I
len = (long) (64 * 64);
if ((error = FSWrite(file_id, &len, (char *) sfx)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
if ((error = FSWrite(file_id, &len, (char *) misc_i)) != 0){
add_string_to_buf("Save: Couldn't write to file. ");
FSClose(file_id);
SysBeep(2);
return;
}
}
if ((error = FSClose(file_id)) != 0) {
add_string_to_buf("Save: Couldn't close file. ");
SysBeep(2);
return;
}
}
void leave_town()
{
store_flags[0] = 5790;
}
void remove_party_from_scen()
{
store_flags[1] = 200;
party_in_scen = FALSE;
}
long open_pref_file()
{
Str255 pref_name;
short vol_ref = 0;
long dir_ID = 0,stored_key;
FSSpec pref;
short file_ref_num;
PrefHandle data_handle;
GetIndString(pref_name,5,19);
if (sys_7_avail == TRUE)
FindFolder(kOnSystemDisk,kPreferencesFolderType,
kDontCreateFolder,&vol_ref,&dir_ID);
FSMakeFSSpec(vol_ref,dir_ID,pref_name,&pref);
file_ref_num = FSpOpenResFile(&pref,fsCurPerm);
if (file_ref_num == -1) {
save_prefs();
//make_pref_file(pref);
return -1;
}
UseResFile(file_ref_num);
data_handle = (PrefHandle) Get1Resource('PRFN',128);
if ((**data_handle).l[2] != 0)
give_intro_hint = TRUE;
else give_intro_hint = FALSE;
display_mode = (short) ((**data_handle).l[3]);
play_sounds = (short) ((**data_handle).l[4]);
register_flag = (long) (800000) - (**data_handle).l[5];
stored_key = (long) (700000) - (**data_handle).l[7];
ed_flag = (long) (800000) - (**data_handle).l[6];
ed_key = (long) (700000) - (**data_handle).l[8];
if ((registered == TRUE) && (stored_key != init_data(register_flag))) {
display_mode = 0;
CloseResFile(file_ref_num);
save_prefs();
return -100;
}
if ((stored_key != init_data(register_flag)) && ((register_flag < 10000) || (register_flag > 30000)
|| (display_mode < 0) || (display_mode > 5) || (ed_flag < 0) || (ed_flag > 10000)) ) {
registered = FALSE;
if ((register_flag < 10000) || (register_flag > 30000))
register_flag = get_ran(1,10000,30000);
if ((ed_flag < 0) || (ed_flag > 10000))
ed_flag = 10000;
stored_key = 0;
display_mode = 0;
CloseResFile(file_ref_num);
save_prefs();
return -100;
}
CloseResFile(file_ref_num);
return stored_key;
}
void make_pref_file(FSSpec pref)
{
short file_ref_num;
Handle app_handle;
short res_ID;
ResType res_type;
Str255 res_name = "xxx";
short res_attributes;
short i,rf;
// rf = CurResFile();
// UseResFile(rf);
// app_handle = Get1Resource('PRFN',128);
// for (i = 0; i < 10; i++)
// (**(PrefHandle)app_handle).l[i] = (long) (get_ran(1,-20000,20000)) * (i + 2);
// (**(PrefHandle)app_handle).l[2] = (long) (give_intro_hint);
// (**(PrefHandle)app_handle).l[3] = (long) (display_mode);
// (**(PrefHandle)app_handle).l[4] = (long) (play_sounds);
// if (register_flag == 0) {
// register_flag = (long) get_ran(1,10000,20000);
// ed_flag = get_ran(1,5000,9999);
// }
// Amputating this code, cause it's broken, while save prefs code works OK
// (**(PrefHandle)app_handle).l[5] = (long) (800000) - register_flag;
// if (registered == TRUE)
// (**(PrefHandle)app_handle).l[7] = (long) (700000) - init_data(register_flag);
// (**(PrefHandle)app_handle).l[6] = (long) (800000) - ed_flag;
// if (ed_reg == TRUE)
// (**(PrefHandle)app_handle).l[8] = (long) (700000) - init_data(ed_flag);
// GetResInfo((Handle) app_handle,&res_ID,&res_type,res_name);
// res_attributes = GetResAttrs(app_handle);
// DetachResource(app_handle);
FSpCreateResFile(&pref,'EX3!','E3PR',smSystemScript);
// save_prefs();
return;
// FSpCreateResFile(&pref,'RSED','rsrc',smSystemScript);
file_ref_num = FSpOpenResFile(&pref,fsCurPerm);
UseResFile(file_ref_num);
AddResource(app_handle,res_type,res_ID,res_name);
SetResAttrs(app_handle,res_attributes);
ChangedResource(app_handle);
WriteResource(app_handle);
ReleaseResource(app_handle);
CloseResFile(file_ref_num);
}
void save_prefs()
{
short file_ref_num;
Handle old_handle,data_handle;
short vol_ref,i;
short res_ID;
long dir_ID;
ResType res_type = 'PRFN';
Str255 res_name;
short res_attributes;
StringPtr source_str;
Size byte_count;
FSSpec pref;
short app_res_num;
Str255 pref_name;
app_res_num = CurResFile();
GetIndString(pref_name,5,19);
if (sys_7_avail == TRUE)
FindFolder(kOnSystemDisk,kPreferencesFolderType,
kDontCreateFolder,&vol_ref,&dir_ID);
FSMakeFSSpec(vol_ref,dir_ID,pref_name,&pref);
file_ref_num = FSpOpenResFile(&pref,fsCurPerm);
if (file_ref_num == -1) {
make_pref_file(pref);
file_ref_num = FSpOpenResFile(&pref,fsCurPerm);
// return;
}
UseResFile(file_ref_num);
data_handle = NewHandleClear(sizeof(PrefRecord));
HLock(data_handle);
for (i = 0; i < 10; i++)
(**(PrefHandle)data_handle).l[i] = (long) (get_ran(1,-20000,20000)) * (i + 2);
(**(PrefHandle)data_handle).l[2] = (long) (give_intro_hint);
(**(PrefHandle)data_handle).l[3] = (long) (display_mode);
(**(PrefHandle)data_handle).l[4] = (long) (play_sounds);
if (register_flag == 0) {
register_flag = (long) get_ran(1,10000,20000);
ed_flag = get_ran(1,5000,9999);
}
(**(PrefHandle)data_handle).l[5] = (long) (800000) - register_flag;
(**(PrefHandle)data_handle).l[6] = (long) (800000) - ed_flag;
if (registered == TRUE)
(**(PrefHandle)data_handle).l[7] = (long) (700000) - init_data(register_flag);
if (ed_reg == TRUE)
(**(PrefHandle)data_handle).l[8] = (long) (700000) - init_data(ed_flag);
old_handle = Get1Resource('PRFN',128);
GetResInfo(old_handle,&res_ID,&res_type,res_name);
res_attributes = GetResAttrs(old_handle);
RemoveResource(old_handle);
AddResource(data_handle,'PRFN',128,res_name);
WriteResource(data_handle);
HUnlock(data_handle);
ReleaseResource(data_handle);
CloseResFile(file_ref_num);
UseResFile(app_res_num);
}
Reference in New Issue View Git Blame Copy Permalink