openboe/oboe
2
0
Fork 0
Code Issues 146 Pull Requests 4 Actions Packages Projects Releases Wiki Activity
Files
3efed5dcc765c96ee69530383d00abe352b8055d
oboe/osx/Scenario Editor/scen.fileio.cpp
Celtic Minstrel 3efed5dcc7 - Tidied scenario editor code – proper indentation applied, no more multiple statements on one line, etc 
- Changed various terrain arrays from unsigned char to unsigned short to support more than 256 terrain types.

git-svn-id: http://openexile.googlecode.com/svn/trunk@42 4ebdad44-0ea0-11de-aab3-ff745001d230
2009-04-28 16:45:32 +00:00

1608 lines
55 KiB
C++
Raw Blame History

#include <string.h>
#include "scen.global.h"
#include "classes.h"
#include <iostream>
#include "scen.fileio.h"
#include "scen.keydlgs.h"
#include "graphtool.h"
#include "scen.core.h"
#include "soundtool.h"
#include "mathutil.h"
#include "oldstructs.h"
#include "fileio.h"
#import <fstream>
using std::endl;
#define DONE_BUTTON_ITEM 1
#define IN_FRONT (WindowPtr)-1L
extern cScenario scenario;
DialogPtr the_dialog;
extern cTown* town;
//extern short town_type, max_dim[3]; // 0 - big 1 - ave 2 - small
extern short cur_town,/*overall_mode,*/given_password,user_given_password;
extern location cur_out;
//extern piles_of_stuff_dumping_type *data_store;
//extern cSpeech talking;
extern cOutdoors current_terrain;
extern unsigned char borders[4][50];
extern bool change_made;
extern GWorldPtr spec_scen_g;
extern bool mac_is_intel;
short specials_res_id,data_dump_file_id;
Str255 start_name;
short start_volume,data_volume,jl = 0;
long start_dir,data_dir;
FSSpec temp_file_to_load;
Str63 last_load_file = "\pBlades of Exile Scenario";
std::string progDir;
bool cur_scen_is_mac = true;
ResFileRefNum mainRef, graphicsRef, soundRef;
void print_write_position ();
void load_spec_graphics();
void init_directories() {
short error;
char thing[60];
// Str255 data_name = "\pExile III data";
//
// HGetVol((StringPtr) start_name,&start_volume,&start_dir);
// HGetVol((StringPtr) data_name,&data_volume,&data_dir);
//
// error = HOpenResFile(start_volume,start_dir,"\p::::boescen.rsrc",1);
// OSErr re = ResError();
// if (re != 0) {
// return;
// }
// error = HOpenResFile(start_volume,start_dir,"\p::::Blades of Exile Graphics",1);
// if (ResError() != 0) {
// Alert(984,NIL);
// ExitToShell();
// }
// error = HOpenResFile(start_volume,start_dir,"\p::::Blades of Exile Sounds",1);
// if (ResError() != 0) {
// Alert(984,NIL);
// ExitToShell();
// }
//error = CoreEndianInstallFlipper ('rsrc', 'PICT', flip_pict, NULL);
char cPath[768];
CFBundleRef mainBundle=CFBundleGetMainBundle();
CFURLRef graphicsURL = CFBundleCopyResourceURL(mainBundle,CFSTR("BOEScen.rsrc"),CFSTR(""),NULL);
CFStringRef graphicsPath = CFURLCopyFileSystemPath(graphicsURL, kCFURLPOSIXPathStyle);
CFStringGetCString(graphicsPath, cPath, 512, kCFStringEncodingUTF8);
FSRef gRef, sRef;
FSPathMakeRef((UInt8*)cPath, &gRef, false);
error = FSOpenResourceFile(&gRef, 0, NULL, fsRdPerm, &mainRef);
if (error != noErr) {
printf("Error! Main resource file not found.\n");
ExitToShell();
}
char *path = "Blades of Exile Graphics";
error = FSPathMakeRef((UInt8*) path, &gRef, false);
error = FSOpenResourceFile(&gRef, 0, NULL, fsRdPerm, &graphicsRef);
if (error != noErr) {
//SysBeep(1);
printf("Error! File Blades of Exile Graphics not found.\n");
ExitToShell();
}
path = "Blades of Exile Sounds";
FSPathMakeRef((UInt8*) path, &sRef, false);
error = FSOpenResourceFile(&sRef, 0, NULL, fsRdPerm, &soundRef);
if (error != noErr) {
//SysBeep(1);
printf("Error! File Blades of Exile Sounds not found.\n");
ExitToShell();
}
CFStringRef progURL = CFURLCopyFileSystemPath(CFBundleCopyBundleURL(mainBundle), kCFURLPOSIXPathStyle);
const char* tmp = CFStringGetCStringPtr(progURL, kCFStringEncodingASCII);//kCFStringEncodingUTF8);
if(tmp == NULL){
bool success = CFStringGetCString(progURL, cPath, sizeof(cPath), kCFStringEncodingUTF8);
if(success) {
progDir = cPath;
std::cout << cPath << "\n\n" << progDir << "\n\n";
} else {
std::cout << "Couldn't retrieve application path.\n";
exit(1);
}
}else progDir = tmp;
//progDir = cPath;
size_t last_slash = progDir.find_last_of('/');
progDir.erase(last_slash);
std::cout<<progDir<<'\n';
}
// Here we go. this is going to hurt.
// Note no save as is available for scenarios.
//At this point, store_file_reply MUST contain the FSSPEC for the currently edited scen.
// Strategy ... assemble a big Dummy file containing the whole scenario
//chunk by chunk, copy the dummy over the original, and delete the dummy
// the whole scenario is too big be be shifted around at once
void save_scenario() {
// short i,j,k,num_outdoors;
// FSSpec to_load,dummy_file;
// NavReplyRecord reply;
// short dummy_f,scen_f;
// char *buffer = NULL;
// //Size buf_len = 100000;
// OSErr error;
// short out_num;
// long len,scen_ptr_move = 0,save_town_size = 0,save_out_size = 0;
// legacy::outdoor_record_type *dummy_out_ptr;
// legacy::town_record_type *dummy_town_ptr;
// legacy::talking_record_type *dummy_talk_ptr;
// legacy::big_tr_type t_d;
// legacy::ave_tr_type ave_t;
// legacy::tiny_tr_type tiny_t;
//
// /*if (check_p(user_given_password) == false) {
// fancy_choice_dialog(868,0);
// return;
// }
// user_given_password = given_password; */
//
// //OK. FIrst find out what file name we're working with, and make the dummy file
// // which we'll build the new scenario in
// to_load = file_to_load;
// FSMakeFSSpec(file_to_load.vRefNum,file_to_load.parID,"\pBlades scenario temp",&dummy_file);
// FSpDelete(&dummy_file);
// error = FSpCreate(&dummy_file,'blx!','BETM',reply.keyScript);
// if ((error != 0) && (error != dupFNErr)) {
// if (error != 0) {oops_error(11);}
// return;
// }
// if ((error = FSpOpenDF(&dummy_file,3,&dummy_f)) != 0) {
// oops_error(12);
// return;
// }
// if ((error = FSpOpenDF(&to_load,3,&scen_f)) != 0) {
// oops_error(13);
// return;
// }
//
// // Now we need to set up a buffer for moving the data over to the dummy
// //buffer = (char *) NewPtr(buf_len);
// buffer = new char[100000];
// if (buffer == NULL) {
// FSClose(scen_f);
// FSClose(dummy_f);
// oops_error(14);
// return;
// }
//
// scenario.format.prog_make_ver[0] = 1;
// scenario.format.prog_make_ver[1] = 0;
// scenario.format.prog_make_ver[2] = 0;
//
// // Now, the pointer in scen_f needs to move along, so that the correct towns are sucked in.
// // To do so, we'll remember the size of the saved town and out now.
// out_num = cur_out.y * scenario.out_width + cur_out.x;
// save_out_size = (long) (scenario.out_data_size[out_num][0]) + (long) (scenario.out_data_size[out_num][1]);
// save_town_size = (long) (scenario.town_data_size[cur_town][0]) + (long) (scenario.town_data_size[cur_town][1])
// + (long) (scenario.town_data_size[cur_town][2]) + (long) (scenario.town_data_size[cur_town][3])
// + (long) (scenario.town_data_size[cur_town][4]);
// scen_ptr_move = sizeof(legacy::scenario_data_type); // 41942
// scen_ptr_move += sizeof(scen_item_data_type); // 39200
// for (i = 0; i < 270; i++) // scenario strings
// scen_ptr_move += scenario.scen_str_len[i];
//
//
//
// // We're finally set up. Let's first set up the new scenario field
// // We need the new info for the current town and outdoors, which may have been changed
// scenario.town_data_size[cur_town][0] = sizeof(legacy::town_record_type); // 3506
// if (scenario.town_size[cur_town] == 0)
// scenario.town_data_size[cur_town][0] += sizeof(legacy::big_tr_type); // 6056
// else if (scenario.town_size[cur_town] == 1)
// scenario.town_data_size[cur_town][0] += sizeof(legacy::ave_tr_type); // 3600
// else scenario.town_data_size[cur_town][0] += sizeof(legacy::tiny_tr_type); // 1940
// scenario.town_data_size[cur_town][1] = 0;
// for (i = 0; i < 60; i++)
// scenario.town_data_size[cur_town][1] += strlen(data_store->town_strs[i]);
// scenario.town_data_size[cur_town][2] = 0;
// for (i = 60; i < 140; i++)
// scenario.town_data_size[cur_town][2] += strlen(data_store->town_strs[i]);
// scenario.town_data_size[cur_town][3] = sizeof(legacy::talking_record_type);
// for (i = 0; i < 80; i++)
// scenario.town_data_size[cur_town][3] += strlen(data_store->talk_strs[i]);
// scenario.town_data_size[cur_town][4] = 0;
// for (i = 80; i < 170; i++)
// scenario.town_data_size[cur_town][4] += strlen(data_store->talk_strs[i]);
//
// scenario.out_data_size[out_num][0] = sizeof(legacy::outdoor_record_type); // 4146
// scenario.out_data_size[out_num][1] = 0;
// for (i = 0; i < 120; i++)
// scenario.out_data_size[out_num][1] += strlen(data_store->out_strs[i]);
//
// for (i = 0; i < 300; i++)
// scenario.scen_str_len[i] = 0;
// for (i = 0; i < 270; i++)
// scenario.scen_str_len[i] = strlen(data_store->scen_strs[i]);
// scenario.last_town_edited = cur_town;
// scenario.last_out_edited = cur_out;
//
// // now write scenario data
// scenario.format.flag1 = 10;
// scenario.format.flag2 = 20;
// scenario.format.flag3 = 30;
// scenario.format.flag4 = 40; /// these mean made on mac
//
// if(given_password){
// // now flags
// scenario.flag_a = sizeof(legacy::scenario_data_type) + get_ran(1,-1000,1000);
// scenario.flag_b = town_s(user_given_password);
// scenario.flag_c = out_s(user_given_password);
// scenario.flag_e = str_size_1(user_given_password);
// scenario.flag_f = str_size_2(user_given_password);
// scenario.flag_h = str_size_3(user_given_password);
// scenario.flag_g = 10000 + get_ran(1,0,5000);
// scenario.flag_d = init_data(user_given_password);
// }
//
// give_error("File saving is currently disabled due to instabilities.","",0);
// return;
//
// len = sizeof(legacy::scenario_data_type); // scenario data; 41942
// if ((error = FSWrite(dummy_f, &len, (char *) &scenario)) != 0) {
// SysBeep(2); FSClose(scen_f); FSClose(dummy_f);oops_error(15);
// return;
// }
// len = sizeof(scen_item_data_type); // item data; 39200
// if ((error = FSWrite(dummy_f, &len, (char *) &(data_store->scen_item_list))) != 0) {
// SysBeep(2); FSClose(scen_f); FSClose(dummy_f);oops_error(16);
// return;
// }
// for (i = 0; i < 270; i++) { // scenario strings
// len = (long) scenario.scen_str_len[i];
// if ((error = FSWrite(dummy_f, &len, (char *) &(data_store->scen_strs[i]))) != 0) {
// SysBeep(2); FSClose(scen_f); FSClose(dummy_f);oops_error(17);
// return;
// }
// }
//
// SetFPos(scen_f,1,scen_ptr_move);
//
// // OK ... scenario written. Now outdoors.
// num_outdoors = scenario.out_width * scenario.out_height;
// for (i = 0; i < num_outdoors; i++)
// if (i == out_num) {
// // write outdoors
// for (j = 0; j < 180; j++)
// current_terrain.strlens[j] = 0;
// for (j = 0; j < 120; j++)
// current_terrain.strlens[j] = strlen(data_store->out_strs[j]);
// len = sizeof(legacy::outdoor_record_type); // 4146
// error = FSWrite(dummy_f, &len, (char *) &current_terrain);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(18);}
//
// for (j = 0; j < 120; j++) {
// len = (long) current_terrain.strlens[j];
// FSWrite(dummy_f, &len, (char *) &(data_store->out_strs[j]));
// }
//
// SetFPos(scen_f,3,save_out_size);
// }
// else {
// len = (long) (scenario.out_data_size[i][0]) + (long) (scenario.out_data_size[i][1]);
// error = FSRead(scen_f, &len, buffer);
// dummy_out_ptr = (legacy::outdoor_record_type *) buffer;
// port_out(dummy_out_ptr);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(19);}
// if ((error = FSWrite(dummy_f, &len, buffer)) != 0) {
// SysBeep(2); FSClose(scen_f); FSClose(dummy_f);oops_error(20);
// return;
// }
// }
//
// // now, finally, write towns.
// for (k = 0; k < scenario.num_towns; k++)
// if (k == cur_town) {
// for (i = 0; i < 180; i++)
// town->strlens[i] = 0;
// for (i = 0; i < 140; i++)
// town->strlens[i] = strlen(data_store->town_strs[i]);
//
// // write towns
// len = sizeof(legacy::town_record_type); // 3506
// error = FSWrite(dummy_f, &len, (char *) &town);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(21);}
//
// switch (scenario.town_size[cur_town]) {
// case 0:
// len = sizeof(legacy::big_tr_type); // 6056
// FSWrite(dummy_f, &len, (char *) &t_d);
// break;
//
// case 1:
// for (i = 0; i < 48; i++)
// for (j = 0; j < 48; j++) {
// ave_t.terrain[i][j] = town->terrain(i,j);
// ave_t.lighting[i / 8][j] = town->lighting(i / 8,j);
// }
// for (i = 0; i < 16; i++) {
// //ave_t.room_rect[i] = town->room_rect(i);
// }
// for (i = 0; i < 40; i++) {
// //ave_t.creatures[i] = town->creatures(i);
// }
// len = sizeof(legacy::ave_tr_type); // 3600
// FSWrite(dummy_f, &len, (char *) &ave_t);
// break;
//
//
// case 2:
// for (i = 0; i < 32; i++)
// for (j = 0; j < 32; j++) {
// tiny_t.terrain[i][j] = town->terrain(i,j);
// tiny_t.lighting[i / 8][j] = town->lighting(i / 8,j);
// }
// for (i = 0; i < 16; i++) {
// tiny_t.room_rect[i] = town->room_rect(i);
// }
// for (i = 0; i < 30; i++) {
// //tiny_t.creatures[i] = town->creatures(i);
// }
// len = sizeof(legacy::tiny_tr_type); // 1940
// FSWrite(dummy_f, &len, (char *) &tiny_t);
// break;
// }
// for (j = 0; j < 140; j++) {
// len = (long) town->strlens[j];
// FSWrite(dummy_f, &len, (char *) &(data_store->town_strs[j]));
// }
//
// for (i = 0; i < 200; i++)
// talking.strlens[i] = 0;
// for (i = 0; i < 170; i++)
// talking.strlens[i] = strlen(data_store->talk_strs[i]);
// len = sizeof(legacy::talking_record_type); // 1400
// error = FSWrite(dummy_f, &len, (char *) &talking);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(22);}
// for (j = 0; j < 170; j++) {
// len = (long) talking.strlens[j];
// FSWrite(dummy_f, &len, (char *) &(data_store->talk_strs[j]));
// }
//
// SetFPos(scen_f,3,save_town_size);
// }
// else { /// load unedited town into buffer and save, doing translataions when necessary
//
// len = (long) (sizeof(legacy::town_record_type)); // 3506
// error = FSRead(scen_f, &len, buffer);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(24);}
// dummy_town_ptr = (legacy::town_record_type *) buffer;
// port_town(dummy_town_ptr);
// if ((error = FSWrite(dummy_f, &len, buffer)) != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(23);return;}
//
// if (scenario.town_size[k] == 0)
// len = (long) ( sizeof(legacy::big_tr_type)); // 6056
// else if (scenario.town_size[k] == 1)
// len = (long) ( sizeof(legacy::ave_tr_type)); // 3600
// else len = (long) ( sizeof(legacy::tiny_tr_type)); // 1940
// error = FSRead(scen_f, &len, buffer);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(24);}
// port_dummy_t_d(scenario.town_size[k],buffer);
// if ((error = FSWrite(dummy_f, &len, buffer)) != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(23);return;}
//
// len = (long) (scenario.town_data_size[k][1])
// + (long) (scenario.town_data_size[k][2]);
// error = FSRead(scen_f, &len, buffer);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(24);}
// if ((error = FSWrite(dummy_f, &len, buffer)) != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(23);return;}
//
// len = (long) (scenario.town_data_size[k][3]);
// error = FSRead(scen_f, &len, buffer);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(24);}
// dummy_talk_ptr = (legacy::talking_record_type *) buffer;
// port_talk_nodes(dummy_talk_ptr);
// if ((error = FSWrite(dummy_f, &len, buffer)) != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(23);return;}
// len = (long) (scenario.town_data_size[k][4]);
// error = FSRead(scen_f, &len, buffer);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(24);}
// if ((error = FSWrite(dummy_f, &len, buffer)) != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(23);return;}
// }
//
// change_made = false;
// // now, everything is moved over. Delete the original, and rename the dummy
// error = FSClose(scen_f);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(25);}
// cur_scen_is_mac = true;
// error = FSClose(dummy_f);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(26);}
// error = FSpExchangeFiles(&to_load,&dummy_file);
// if (error != 0) {FSClose(scen_f); FSClose(dummy_f);oops_error(27);}
// DisposePtr(buffer);
// FSMakeFSSpec(file_to_load.vRefNum,file_to_load.parID,"\pBlades scenario temp",&dummy_file);
// FSpDelete(&dummy_file);
//
}
GWorldPtr load_bmp_from_file(Str255 filename) {
short file_id;
long length;
if (HOpen(start_volume,start_dir,filename,1,&file_id) != 0) return NULL;
GetEOF(file_id,&length);
if (length < 54) {
FSClose(file_id);
return NULL;
}
unsigned char * data = new unsigned char[length];
FSRead(file_id,&length,data);
FSClose(file_id);
GWorldPtr ret = load_bmp(data,length);
delete [] data;
return ret;
}
void augment_terrain(location to_create) {
location to_load;
short i,j;
for (i = 0 ; i < 4; i++)
for (j = 0 ; j < 50; j++)
borders[i][j] = 90;
to_load = to_create;
if (to_create.y > 0) {
to_load.y--;
load_outdoors(to_load, 1, borders);
}
to_load = to_create;
if (to_create.y < scenario.out_height - 1) {
to_load.y++;
load_outdoors(to_load, 3, borders);
}
to_load = to_create;
if (to_create.x < scenario.out_width - 1) {
to_load.x++;
load_outdoors(to_load, 2, borders);
}
to_load = to_create;
if (to_create.x > 0) {
to_load.x--;
load_outdoors(to_load, 4, borders);
}
}
void create_basic_scenario() {
// short i,j,k,num_outdoors;
// FSSpec to_load,new_file,dummy_file;
// NavReplyRecord reply;
// short dummy_f;
// char *buffer = NULL;
// Size buf_len = 100000;
// OSErr error;
// short out_num;
// long len;
// Str255 message = "\pSelect saved game: ";
// legacy::big_tr_type t_d;
// legacy::ave_tr_type ave_t;
// legacy::tiny_tr_type tiny_t;
//
// //FSMakeFSSpec(start_volume,start_dir,"\pBlades of Exile Base",&new_file);
//
// //FSpDelete(&new_file);
// //error = FSpCreate(&new_file,'blx!','BETM',smSystemScript);
// //OK. FIrst find out what file name we're working with, and make the dummy file
// // which we'll build the new scenario in
// //to_load = store_file_reply;
// FSMakeFSSpec(start_volume,start_dir,"\p::::Blades of Exile Base",&dummy_file);
// FSpDelete(&dummy_file);
// error = FSpCreate(&dummy_file,'blx!','BETM',reply.keyScript);
// if ((error != 0) && (error != dupFNErr)) {
// //add_string_to_buf("Save: Couldn't create file. ");
// SysBeep(2);
// return;
// }
// if ((error = FSpOpenDF(&dummy_file,3,&dummy_f)) != 0) {
// SysBeep(2);
// return;
// }
//
//
// // Now we need to set up a buffer for moving the data over to the dummy
// buffer = (char *) NewPtr(buf_len);
// if (buffer == NULL) {
// SysBeep(2); FSClose(dummy_f);
// return;
// }
//
// cur_town = 0;
// scenario.num_towns = 1;
// scenario.town_size[0] = 1;
// scenario.out_width = 1;
// scenario.out_height = 1;
// cur_out.x = 0;
// cur_out.y = 0;
// scenario.last_out_edited = cur_out;
// // We're finally set up. Let's first set up the new scenario field
// // We need the new info for the current town and outdoors, which may have been changed
// scenario.town_data_size[cur_town][0] = sizeof(legacy::town_record_type);
// if (scenario.town_size[cur_town] == 0)
// scenario.town_data_size[cur_town][0] += sizeof(legacy::big_tr_type);
// else if (scenario.town_size[cur_town] == 1)
// scenario.town_data_size[cur_town][0] += sizeof(legacy::ave_tr_type);
// else scenario.town_data_size[cur_town][0] += sizeof(legacy::tiny_tr_type);
// scenario.town_data_size[cur_town][1] = 0;
// for (i = 0; i < 60; i++)
// scenario.town_data_size[cur_town][1] += strlen(data_store->town_strs[i]);
// scenario.town_data_size[cur_town][2] = 0;
// for (i = 60; i < 140; i++)
// scenario.town_data_size[cur_town][2] += strlen(data_store->town_strs[i]);
// scenario.town_data_size[cur_town][3] = sizeof(legacy::talking_record_type);
// for (i = 0; i < 80; i++)
// scenario.town_data_size[cur_town][3] += strlen(data_store->talk_strs[i]);
// scenario.town_data_size[cur_town][4] = 0;
// for (i = 80; i < 170; i++)
// scenario.town_data_size[cur_town][4] += strlen(data_store->talk_strs[i]);
//
// out_num = cur_out.y * scenario.out_width + cur_out.x;
// scenario.out_data_size[out_num][0] = sizeof(legacy::outdoor_record_type);
// scenario.out_data_size[out_num][1] = 0;
// for (i = 0; i < 120; i++)
// scenario.out_data_size[out_num][1] += strlen(data_store->out_strs[i]);
//
// for (i = 0; i < 300; i++)
// scenario.scen_str_len[i] = 0;
// for (i = 0; i < 270; i++)
// scenario.scen_str_len[i] = strlen(data_store->scen_strs[i]);
// scenario.last_town_edited = cur_town;
// scenario.last_out_edited = cur_out;
//
// // now write scenario data
// scenario.format.flag1 = 10;
// scenario.format.flag2 = 20;
// scenario.format.flag3 = 30;
// scenario.format.flag4 = 40; /// these mean made on mac
// len = sizeof(legacy::scenario_data_type); // scenario data
// if ((error = FSWrite(dummy_f, &len, (char *) &scenario)) != 0) {
// SysBeep(2); FSClose(dummy_f);
// return;
// }
// len = sizeof(scen_item_data_type); // item data
// if ((error = FSWrite(dummy_f, &len, (char *) &(data_store->scen_item_list))) != 0) {
// SysBeep(2); FSClose(dummy_f);
// return;
// }
// for (i = 0; i < 270; i++) { // scenario strings
// len = (long) scenario.scen_str_len[i];
// if ((error = FSWrite(dummy_f, &len, (char *) &(data_store->scen_strs[i]))) != 0) {
// SysBeep(2); FSClose(dummy_f);
// return;
// }
// }
//
// // OK ... scenario written. Now outdoors.
// num_outdoors = scenario.out_width * scenario.out_height;
// for (i = 0; i < num_outdoors; i++)
// if (i == out_num) {
// // write outdoors
// for (j = 0; j < 180; j++)
// current_terrain.strlens[j] = 0;
// for (j = 0; j < 120; j++)
// current_terrain.strlens[j] = strlen(data_store->out_strs[j]);
// len = sizeof(legacy::outdoor_record_type);
// FSWrite(dummy_f, &len, (char *) &current_terrain);
//
// for (j = 0; j < 120; j++) {
// len = (long) current_terrain.strlens[j];
// FSWrite(dummy_f, &len, (char *) &(data_store->out_strs[j]));
// }
// }
//
// // now, finally, write towns.
// for (k = 0; k < scenario.num_towns; k++)
// if (k == cur_town) {
// for (i = 0; i < 180; i++)
// town->strlens[i] = 0;
// for (i = 0; i < 140; i++)
// town->strlens[i] = strlen(data_store->town_strs[i]);
//
// // write towns
// len = sizeof(legacy::town_record_type);
// FSWrite(dummy_f, &len, (char *) &town);
//
// switch (scenario.town_size[cur_town]) {
// case 0:
// len = sizeof(legacy::big_tr_type);
// FSWrite(dummy_f, &len, (char *) &t_d);
// break;
//
// case 1:
// for (i = 0; i < 48; i++)
// for (j = 0; j < 48; j++) {
// ave_t.terrain[i][j] = town->terrain(i,j);
// ave_t.lighting[i / 8][j] = town->lighting(i / 8,j);
// }
// for (i = 0; i < 16; i++) {
// ave_t.room_rect[i] = town->room_rect(i);
// }
// for (i = 0; i < 40; i++) {
// //ave_t.creatures[i] = town->creatures(i);
// }
// len = sizeof(legacy::ave_tr_type);
// FSWrite(dummy_f, &len, (char *) &ave_t);
// break;
//
//
// case 2:
// for (i = 0; i < 32; i++)
// for (j = 0; j < 32; j++) {
// tiny_t.terrain[i][j] = town->terrain(i,j);
// tiny_t.lighting[i / 8][j] = town->lighting(i / 8,j);
// }
// for (i = 0; i < 16; i++) {
// tiny_t.room_rect[i] = town->room_rect(i);
// }
// for (i = 0; i < 30; i++) {
// //tiny_t.creatures[i] = town->creatures(i);
// }
// len = sizeof(legacy::tiny_tr_type);
// FSWrite(dummy_f, &len, (char *) &tiny_t);
// break;
// }
// for (j = 0; j < 140; j++) {
// len = (long) town->strlens[j];
// FSWrite(dummy_f, &len, (char *) &(data_store->town_strs[j]));
// }
//
// for (i = 0; i < 200; i++)
// talking.strlens[i] = 0;
// for (i = 0; i < 170; i++)
// talking.strlens[i] = strlen(data_store->talk_strs[i]);
// len = sizeof(legacy::talking_record_type);
// FSWrite(dummy_f, &len, (char *) &talking);
// for (j = 0; j < 170; j++) {
// len = (long) talking.strlens[j];
// FSWrite(dummy_f, &len, (char *) &(data_store->talk_strs[j]));
// }
//
// }
//
//
// // now, everything is moved over. Delete the original, and rename the dummy
// FSClose(dummy_f);
// DisposePtr(buffer);
printf("Scenario not created; creation currently disabled.\n");
}
// if which_town is -1, load town from base
void import_town(short which_town,FSSpec temp_file_to_load) {
printf("Town import currently disabled.\n");
// short i,j,k,l,file_id;
// bool file_ok = false;
// OSErr error;
// long len,len_to_jump = 0,store;
// Size buf_len = 100000;
// char *buffer = NULL;
// short import_user_given_password;
// legacy::big_tr_type t_d;
// legacy::ave_tr_type ave_t;
// legacy::tiny_tr_type tiny_t;
// legacy::talking_record_type talking;
// legacy::scenario_data_type *temp_scenario;
//
// if ((error = FSpOpenDF(&temp_file_to_load,1,&file_id)) != 0) {
// oops_error(42); return;
// }
//
// buffer = new char[100000];
// if (buffer == NULL) {
// oops_error(41);
// return;
// }
// scenario_header_flags temp_vers;
// len = (long) sizeof(scenario_header_flags);
// if ((error = FSRead(file_id, &len, &temp_vers)) != 0){
// FSClose(file_id); oops_error(43); return;
// }
//
// if ((temp_vers.flag1 == 10) && (temp_vers.flag2 == 20) &&
// (temp_vers.flag3 == 30) && (temp_vers.flag4 == 40)) {
// file_ok = true;
// }
// if (file_ok == false) {
// FSClose(file_id); give_error("This is not a legitimate Blades of Exile scenario.","",0); return;
// DisposePtr(buffer); FSClose(file_id); give_error("This is not a legitimate Blades of Exile scenario. If it is a scenario, note that it needs to have been saved by the Macintosh scenario editor.","",0); return;
// }
// if (which_town >= temp_vers.num_towns) {
// give_error("Oops ... the selected scenario doesn't have enough towns. The town you selected doesn't exist inside this scenario.","",0);
// DisposePtr(buffer); FSClose(file_id);
// return;
// }
//
// len = (long) sizeof(legacy::scenario_data_type);
// if ((error = FSRead(file_id, &len, buffer)) != 0){
// FSClose(file_id); oops_error(43); return;
// }
// temp_scenario = (legacy::scenario_data_type *) buffer;
//
// if (temp_scenario->town_size[which_town] != scenario.town_size[cur_town]) {
// give_error("Oops ... the town in the selected scenario and the current town are different sizes. Import failed.","",0);
// DisposePtr(buffer); FSClose(file_id);
// return;
// }
//
//
//// // Now check password
//// if (import_check_p(0) == false) {
//// import_user_given_password = enter_password();
//// if (import_check_p(import_user_given_password) == false) {
//// fancy_choice_dialog(868,0);
//// if (overall_mode != 61) {
//// import_user_given_password = enter_password();
//// if (import_check_p(import_user_given_password) == false)
//// ExitToShell();
//// }
//// else return;
//// }
//// }
//
// len_to_jump = sizeof(legacy::scenario_data_type);
// len_to_jump += sizeof(scen_item_data_type);
// for (i = 0; i < 300; i++)
// len_to_jump += (long) temp_scenario->scen_str_len[i];
// store = 0;
// for (i = 0; i < 100; i++)
// for (j = 0; j < 2; j++)
// store += (long) (temp_scenario->out_data_size[i][j]);
// for (i = 0; i < which_town; i++)
// for (j = 0; j < 5; j++)
// store += (long) (temp_scenario->town_data_size[i][j]);
// len_to_jump += store;
// error = SetFPos (file_id, 1, len_to_jump);
// if (error != 0) {FSClose(file_id);oops_error(44);}
//
// len = sizeof(legacy::town_record_type);
// error = FSRead(file_id, &len , (char *) &town);
// if (error != 0) {FSClose(file_id);oops_error(45);}
//
// switch (temp_scenario->town_size[which_town]) {
// case 0:
// len = sizeof(legacy::big_tr_type);
// FSRead(file_id, &len, (char *) &t_d);
// break;
//
// case 1:
// len = sizeof(legacy::ave_tr_type);
// FSRead(file_id, &len, (char *) &ave_t);
// for (i = 0; i < 48; i++)
// for (j = 0; j < 48; j++) {
// town->terrain(i,j) = ave_t.terrain[i][j];
// town->lighting(i / 8,j) = ave_t.lighting[i / 8][j];
// }
// for (i = 0; i < 16; i++) {
// town->room_rect(i) = ave_t.room_rect[i];
// }
// for (i = 0; i < 40; i++) {
// //town->creatures(i) = ave_t.creatures[i];
// }
// for (i = 40; i < 60; i++) {
// town->creatures(i).number = 0;
// }
// break;
//
// case 2:
// len = sizeof(legacy::tiny_tr_type);
// FSRead(file_id,&len , (char *) &tiny_t);
// for (i = 0; i < 32; i++)
// for (j = 0; j < 32; j++) {
// town->terrain(i,j) = tiny_t.terrain[i][j];
// town->lighting(i / 8,j) = tiny_t.lighting[i / 8][j];
// }
// for (i = 0; i < 16; i++) {
// town->room_rect(i) = tiny_t.room_rect[i];
// }
// for (i = 0; i < 30; i++) {
// //town->creatures(i) = tiny_t.creatures[i];
// }
// for (i = 30; i < 60; i++) {
// town->creatures(i).number = 0;
// }
// break;
// }
//
// for (i = 0; i < 140; i++) {
// len = (long) (town->strlens[i]);
// FSRead(file_id, &len, (char *) &(town->town_strs(i)));
// town->town_strs(i)[len] = 0;
// }
//
// len = sizeof(legacy::talking_record_type);
// error = FSRead(file_id, &len , (char *) &talking);
// if (error != 0) {FSClose(file_id);oops_error(46);}
//
// for (i = 0; i < 170; i++) {
// len = (long) (talking.strlens[i]);
// FSRead(file_id, &len, (char *) &(town->talking.talk_strs[i]));
// town->talking.talk_strs[i][len] = 0;
// }
//
// town->talking = talking;
// error = FSClose(file_id);
// if (error != 0) {FSClose(file_id);oops_error(47);}
// DisposePtr(buffer);
}
// When this is called, the current town is the town to make town 0.
void make_new_scenario(Str255 file_name,short out_width,short out_height,short making_warriors_grove,
short use_grass) {
// short i,j,k,num_outdoors;
// FSSpec dummy_file;
// NavReplyRecord reply;
// short dummy_f,file_id;
// Size buf_len = 100000;
// OSErr error;
// short out_num;
// long len,scen_ptr_move = 0,save_town_size = 0,save_out_size = 0;
// location loc;
// short x,y;
// legacy::big_tr_type t_d;
// legacy::ave_tr_type ave_t;
// legacy::tiny_tr_type tiny_t;
//
// // Step 1 - load scenario file from scenario base. It contains all the monsters and
// // items done up properly!
// error = FSMakeFSSpec(start_volume,start_dir,"\p::::Blades of Exile Base",&temp_file_to_load);
// if (error != 0) {oops_error(80);}
//
// if ((error = FSpOpenDF(&temp_file_to_load,1,&file_id)) != 0) {
// give_error("Could not find the file 'Blades of Exile Base', which needs to be in the Scenario Editor folder. If you no longer have it, you need to redownload Blades of Exile.","",0);
// oops_error(81); return;
// }
//
// len = (long) sizeof(legacy::scenario_data_type);
// if ((error = FSRead(file_id, &len, (char *) &scenario)) != 0){
// FSClose(file_id); oops_error(82); return;
// }
//
// len = sizeof(scen_item_data_type); // item data
// if ((error = FSRead(file_id, &len, (char *) &(data_store->scen_item_list))) != 0){
// FSClose(file_id); oops_error(83); return;
// }
// for (i = 0; i < 270; i++) {
// len = (long) (scenario.scen_str_len[i]);
// FSRead(file_id, &len, (char *) &(data_store->scen_strs[i]));
// data_store->scen_strs[i][len] = 0;
// }
// FSClose(file_id);
//
// Str255 newname = "::::";
// strcat((char*)newname,(char*)file_name);
//
// // now write scenario
// c2pstr((char*) newname);
//
// //OK. FIrst find out what file name we're working with, and make the dummy file
// // which we'll build the new scenario in Blades of Exile Base
// FSMakeFSSpec(file_to_load.vRefNum,file_to_load.parID,newname,&dummy_file);
// FSpDelete(&dummy_file);
// error = FSpCreate(&dummy_file,'blx!','BETM',smSystemScript);
// if ((error != 0) && (error != dupFNErr)) {
// oops_error(1);
// return;
// }
// if ((error = FSpOpenDF(&dummy_file,3,&dummy_f)) != 0) {
// oops_error(2);
// return;
// }
//
//
// scenario.format.prog_make_ver[0] = 1;
// scenario.format.prog_make_ver[1] = 0;
// scenario.format.prog_make_ver[2] = 0;
// cur_town = 0;
// town_type = 1;
// scenario.num_towns = 1;
// scenario.town_size[0] = 1;
// scenario.out_width = out_width;
// scenario.out_height = out_height;
// cur_out.x = 0;
// cur_out.y = 0;
// scenario.last_out_edited = cur_out;
//
// // We're finally set up. Let's first set up the new scenario field
// // We need the new info for the current town and outdoors, which may have been changed
// scenario.town_data_size[cur_town][0] = sizeof(legacy::town_record_type);
// if (scenario.town_size[cur_town] == 0)
// scenario.town_data_size[cur_town][0] += sizeof(legacy::big_tr_type);
// else if (scenario.town_size[cur_town] == 1)
// scenario.town_data_size[cur_town][0] += sizeof(legacy::ave_tr_type);
// else scenario.town_data_size[cur_town][0] += sizeof(legacy::tiny_tr_type);
// scenario.town_data_size[cur_town][1] = 0;
// for (i = 0; i < 60; i++)
// scenario.town_data_size[cur_town][1] += strlen(data_store->town_strs[i]);
// scenario.town_data_size[cur_town][2] = 0;
// for (i = 60; i < 140; i++)
// scenario.town_data_size[cur_town][2] += strlen(data_store->town_strs[i]);
// scenario.town_data_size[cur_town][3] = sizeof(legacy::talking_record_type);
// for (i = 0; i < 80; i++)
// scenario.town_data_size[cur_town][3] += strlen(data_store->talk_strs[i]);
// scenario.town_data_size[cur_town][4] = 0;
// for (i = 80; i < 170; i++)
// scenario.town_data_size[cur_town][4] += strlen(data_store->talk_strs[i]);
//
// num_outdoors = scenario.out_width * scenario.out_height;
// for (i = 0; i < num_outdoors; i++) {
// scenario.out_data_size[i][0] = sizeof(legacy::outdoor_record_type);
// scenario.out_data_size[i][1] = 0;
// for (j = 0; j < 120; j++)
// scenario.out_data_size[i][1] += strlen(data_store->out_strs[j]);
// }
//
// for (i = 0; i < 300; i++)
// scenario.scen_str_len[i] = 0;
// for (i = 0; i < 270; i++)
// scenario.scen_str_len[i] = strlen(data_store->scen_strs[i]);
// scenario.last_town_edited = cur_town;
// scenario.last_out_edited = cur_out;
//
// // now write scenario data
// scenario.format.flag1 = 10;
// scenario.format.flag2 = 20;
// scenario.format.flag3 = 30;
// scenario.format.flag4 = 40; /// these mean made on mac
// // now flags
// scenario.flag_a = sizeof(legacy::scenario_data_type) + get_ran(1,-1000,1000);
// scenario.flag_b = town_s(user_given_password);
// scenario.flag_c = out_s(user_given_password);
// scenario.flag_e = str_size_1(user_given_password);
// scenario.flag_f = str_size_2(user_given_password);
// scenario.flag_h = str_size_3(user_given_password);
// scenario.flag_g = 10000 + get_ran(1,0,5000);
// scenario.flag_d = init_data(user_given_password);
//
// len = sizeof(legacy::scenario_data_type); // scenario data
// scen_ptr_move += len;
// if ((error = FSWrite(dummy_f, &len, (char *) &scenario)) != 0) {
// FSClose(dummy_f);
// oops_error(3);
// return;
// }
// len = sizeof(scen_item_data_type); // item data
// scen_ptr_move += len;
// if ((error = FSWrite(dummy_f, &len, (char *) &(data_store->scen_item_list))) != 0) {
// FSClose(dummy_f);
// oops_error(4);
// return;
// }
// for (i = 0; i < 270; i++) { // scenario strings
// len = (long) scenario.scen_str_len[i];
// scen_ptr_move += len;
// if ((error = FSWrite(dummy_f, &len, (char *) &(scenario.scen_strs(i)))) != 0) {
// FSClose(dummy_f);oops_error(5);
// return;
// }
// }
//
//
// // OK ... scenario written. Now outdoors.
// num_outdoors = scenario.out_width * scenario.out_height;
// for (i = 0; i < num_outdoors; i++)
// {
// loc.x = i % scenario.out_width;
// loc.y = i / scenario.out_width;
//
// for (x = 0; x < 48; x++)
// for (y = 0; y < 48; y++) {
// current_terrain.terrain[x][y] = (use_grass > 0) ? 2 : 0;
//
// if ((x < 4) && (loc.x == 0))
// current_terrain.terrain[x][y] = (use_grass > 0) ? 22 : 5;
// if ((y < 4) && (loc.y == 0))
// current_terrain.terrain[x][y] = (use_grass > 0) ? 22 : 5;
// if ((x > 43) && (loc.x == scenario.out_width - 1))
// current_terrain.terrain[x][y] = (use_grass > 0) ? 22 : 5;
// if ((y > 43) && (loc.y == scenario.out_height - 1))
// current_terrain.terrain[x][y] = (use_grass > 0) ? 22 : 5;
// if ((i == 0) && (making_warriors_grove > 0)) {
// current_terrain.terrain[24][24] = (use_grass > 0) ? 234 : 232;
// current_terrain.exit_locs[0].x = 24;
// current_terrain.exit_locs[0].y = 24;
// current_terrain.exit_dests[0] = 0;
// }
// else current_terrain.exit_locs[0].x = 100;
// }
//
// // write outdoors
// for (j = 0; j < 180; j++)
// current_terrain.strlens[j] = 0;
// for (j = 0; j < 120; j++)
// current_terrain.strlens[j] = strlen(current_terrain.out_strs(j));
// len = sizeof(legacy::outdoor_record_type);
// error = FSWrite(dummy_f, &len, (char *) &current_terrain);
// if (error != 0) {FSClose(dummy_f);oops_error(6);}
//
// for (j = 0; j < 120; j++) {
// len = (long) current_terrain.strlens[j];
// error = FSWrite(dummy_f, &len, (char *) &(current_terrain.out_strs(j)));
// if (error != 0) {
// FSClose(dummy_f);
// oops_error(7);
// }
// }
// }
//
//
// // now, finally, write towns.
// for (k = 0; k < scenario.num_towns; k++)
// {
// for (i = 0; i < 180; i++)
// town->strlens[i] = 0;
// for (i = 0; i < 140; i++)
// town->strlens[i] = strlen(town->town_strs[i]);
//
// // write towns
// len = sizeof(legacy::town_record_type);
// error = FSWrite(dummy_f, &len, (char *) &town);
// if (error != 0) {FSClose(dummy_f);oops_error(8);}
//
// switch (scenario.town_size[cur_town]) {
// case 0:
// len = sizeof(legacy::big_tr_type);
// FSWrite(dummy_f, &len, (char *) &t_d);
// break;
//
// case 1:
// for (i = 0; i < 48; i++)
// for (j = 0; j < 48; j++) {
// ave_t.terrain[i][j] = town->terrain(i,j);
// ave_t.lighting[i / 8][j] = town->lighting(i / 8,j);
// }
// for (i = 0; i < 16; i++) {
// ave_t.room_rect[i] = town->room_rect(i);
// }
// for (i = 0; i < 40; i++) {
// //ave_t.creatures[i] = town->creatures(i);
// }
// len = sizeof(legacy::ave_tr_type);
// FSWrite(dummy_f, &len, (char *) &ave_t);
// break;
//
//
// case 2:
// for (i = 0; i < 32; i++)
// for (j = 0; j < 32; j++) {
// tiny_t.terrain[i][j] = town->terrain(i,j);
// tiny_t.lighting[i / 8][j] = town->lighting(i / 8,j);
// }
// for (i = 0; i < 16; i++) {
// tiny_t.room_rect[i] = town->room_rect(i);
// }
// for (i = 0; i < 30; i++) {
// //tiny_t.creatures[i] = town->creatures(i);
// }
// len = sizeof(legacy::tiny_tr_type);
// FSWrite(dummy_f, &len, (char *) &tiny_t);
// break;
// }
// for (j = 0; j < 140; j++) {
// len = (long) town->strlens[j];
// FSWrite(dummy_f, &len, (char *) &(town->town_strs[j]));
// }
//
// for (i = 0; i < 200; i++)
// talking.strlens[i] = 0;
// for (i = 0; i < 170; i++)
// talking.strlens[i] = strlen(town->talk_strs[i]);
// len = sizeof(legacy::talking_record_type);
// error = FSWrite(dummy_f, &len, (char *) &talking);
// if (error != 0) {FSClose(dummy_f);oops_error(9);}
// for (j = 0; j < 170; j++) {
// len = (long) talking.strlens[j];
// FSWrite(dummy_f, &len, (char *) &(town->talk_strs[j]));
// }
//
// }
//
//
// change_made = true;
// // now, everything is moved over. Delete the original, and rename the dummy
// error = FSClose(dummy_f);
// if (error != 0) {FSClose(dummy_f);oops_error(10);}
// file_to_load = dummy_file;
printf("Scenario not created; creation is currently disabled.\n");
}
bool check_p (short pword) {
if (scenario.flag_b != town_s(pword))
return false;
if (scenario.flag_c != out_s(pword))
return false;
if (scenario.flag_e != str_size_1(pword))
return false;
if (scenario.flag_f != str_size_2(pword))
return false;
if (scenario.flag_h != str_size_3(pword))
return false;
if (scenario.flag_d != init_data(pword))
return false;
return true;
}
bool check_p2 (short pword) {
if (scenario.flag_b != town_s(pword))
return false;
if (scenario.flag_c != out_s(pword))
return false;
if (scenario.flag_e != str_size_1(pword))
return false;
if (scenario.flag_f != str_size_2(pword))
return false;
if (scenario.flag_h != str_size_3(pword))
return false;
if (scenario.flag_d != init_data(pword))
return false;
return true;
}
bool check_p3 (short pword) {
if (scenario.flag_b != town_s(pword))
return false;
if (scenario.flag_c != out_s(pword))
return false;
if (scenario.flag_e != str_size_1(pword))
return false;
if (scenario.flag_f != str_size_2(pword))
return false;
if (scenario.flag_h != str_size_3(pword))
return false;
if (scenario.flag_d != init_data(pword))
return false;
return true;
}
bool import_check_p (short flag_d,short pword) {
if (flag_d != init_data(pword))
return false;
return true;
}
short init_data(short flag) {
long k = 0;
k = (long) flag;
k = k * k;
jl = jl * jl + 84 + k;
k = k + 51;
jl = jl * 2 + 1234 + k;
k = k % 3000;
jl = jl * 54;
jl = jl * 2 + 1234 + k;
k = k * 82;
k = k % 10000;
k = k + 10000;
return (short) k;
}
short town_s(short flag) {
long k = 0;
k = (long) flag;
k = k * k * k;
jl = jl * 54;
jl = jl * 2 + 1234 + k;
k = k + 51;
k = k % 3000;
jl = jl * 2 + 1234 + k;
k = k * scenario.num_towns;
k = k % 10000;
jl = jl * jl + 84 + k;
k = k + 10000;
return (short) k;
}
short out_s(short flag) {
long k = 0;
k = (long) flag;
k = k * k * k;
jl = jl * jl + 84 + k;
k = k + scenario.out_data_size[0][1];
k = k % 3000;
k = k * 4;
jl = jl * 2 + 1234 + k;
jl = jl * 54;
jl = jl * 2 + 1234 + k;
k = k % 10000;
k = k + 4;
return (short) k;
}
short str_size_1(short flag) {
long k = 0;
k = (long) flag;
k = k * k;
jl = jl * 2 + 1234 + k;
jl = jl * jl + 84 + k;
k = k + scenario.scen_str_len[0] + scenario.scen_str_len[1] + scenario.scen_str_len[2];
jl = jl * 2 + 1234 + k;
k = k % 3000;
jl = jl * 54;
jl = jl * jl + 84 + k;
k = k * 4;
k = k % 5000;
k = k - 9099;
return (short) k;
}
short str_size_2(short flag) {
long k = 0;
k = (long) flag;
jl = jl * jl + 84 + k;
k = k * k * k * k;
jl = jl * 54;
k = k + 80;
k = k % 3000;
jl = jl * 2 + 1234 + k;
k = k * scenario.out_width * scenario.out_height;
jl = jl * jl + 84 + k;
k = k % 3124;
k = k - 5426;
return (short) k;
}
short str_size_3(short flag) {
long k = 0;
k = (long) flag;
k = k * (scenario.town_data_size[0][0] + scenario.town_data_size[0][1] + scenario.town_data_size[0][2] + scenario.town_data_size[0][3]);
k = k + 80;
jl = jl * jl + 84 + k;
k = k % 3000;
jl = jl * 2 + 1234 + k;
k = k * 45;
jl = jl * 54;
jl = jl * jl + 84 + k;
k = k % 887;
k = k + 9452;
return (short) k;
}
short get_buf_ptr(short flag) {
long k = 0;
k = (long) flag;
jl = jl * jl + 84 + k;
k = k * (scenario.out_width + scenario.out_width + scenario.out_height + scenario.town_data_size[0][3]);
k = k + 80;
jl = jl * jl + 84 + k;
k = k % 2443;
jl = jl * 54;
k = k * 322;
jl = jl * 2 + 1234 + k;
k = k % 2542;
jl = jl * jl + 84 + k;
k = k + 234;
return (short) k;
}
void reset_pwd() {
// now flags
scenario.flag_a = sizeof(scenario_header_flags) + sizeof(legacy::scenario_data_type) + get_ran(1,-1000,1000);
scenario.flag_b = town_s(user_given_password);
scenario.flag_c = out_s(user_given_password);
scenario.flag_e = str_size_1(user_given_password);
scenario.flag_f = str_size_2(user_given_password);
scenario.flag_h = str_size_3(user_given_password);
scenario.flag_g = 10000 + get_ran(1,0,5000);
scenario.flag_d = init_data(user_given_password);
}
void start_data_dump() {
short i;
char* scen_name = scenario.scen_strs(0);
std::ofstream fout("Scenario Data.txt");
fout << "Scenario data for " << scen_name << ':' << endl << endl;
fout << "Terrain types for " << scen_name << ':' << endl;
for(i = 0; i < 256; i++)
fout << " Terrain type " << i << ": " << scenario.ter_names[i] << endl;
fout << endl << "Monster types for " << scen_name << ':' << endl;
for(i = 0; i < 256; i++)
fout << " Monster type " << i << ": " << scenario.scen_monsters[i].m_name << endl;
fout << endl << "Item types for " << scen_name << ':' << endl;
for(i = 0; i < 400; i++)
fout << " Item type " << i << ": " << scenario.scen_items[i].full_name << endl;
fout.close();
}
void scen_text_dump(){
short i;
location out_sec;
std::ofstream fout("Scenario Text.txt");
fout << "Scenario text for " << scenario.scen_strs(0) << ':' << endl << endl;
fout << "Scenario Text:" << endl;
for(i = 1; i < 260; i++)
if(scenario.scen_strs(i)[0] != '*')
fout << " Message " << i << ": " << scenario.scen_strs(i) << endl;
fout << endl << "Outdoor Sections Text:" << endl << endl;
for (out_sec.x = 0; out_sec.x < scenario.out_width ; out_sec.x++) {
for (out_sec.y = 0; out_sec.y < scenario.out_height ; out_sec.y++) {
fout << " Section (x = " << (short)out_sec.x << ", y = " << (short)out_sec.y << "):" << endl;
load_outdoors(out_sec,current_terrain);
for (i = 0; i < 108; i++)
if (current_terrain.out_strs(i)[0] != '*')
fout << " Message " << i << ": " << current_terrain.out_strs(i) << endl;
fout << endl;
}
}
load_outdoors(cur_out,current_terrain);
augment_terrain(cur_out);
fout << "Town Text:" << endl << endl;
for (short j = 0; j < scenario.num_towns; j++) {
fout << " Town " << j << ':' << endl;
load_town(j,town);
for (i = 0; i < 135; i++)
if (town->town_strs(i)[0] != '*')
fout << " Message " << i << ": " << town->town_strs(i) << endl;
fout << endl;
for (i = 0; i < 10; i++) {
fout << " Personality " << i << " (" << town->talking.talk_strs[i] << "): " << endl;
fout << " look: " << town->talking.talk_strs[i + 10] << endl;
fout << " name: " << town->talking.talk_strs[i + 20] << endl;
fout << " job: " << town->talking.talk_strs[i + 30] << endl;
fout << " confused: " << town->talking.talk_strs[i + 160] << endl;
}
for (i = 40; i < 160; i++)
if (strlen((char *) (town->talking.talk_strs[i])) > 0)
fout << " Node " << i << ": " << town->talking.talk_strs[i] << endl;
fout << endl;
}
fout.close();
load_town(cur_town,town);
}
//void start_data_dump()
//{
// short i;
// short j,k;
// long val_store,to_return = 0;
// short the_type,data_dump_file_id;
// Handle the_handle = NULL;
// Rect the_rect;
// Str255 the_string,store_name;
// char get_text[280];
// FSSpec dump_file;
// OSErr error;
// long len,empty_len;
//
// FSMakeFSSpec(start_volume,start_dir,"\pScenario data",&dump_file);
// FSpDelete(&dump_file);
// error = FSpCreate(&dump_file,'ttxt','TEXT',smSystemScript);
// if ((error = FSpOpenDF(&dump_file,3,&data_dump_file_id)) != 0) {
// SysBeep(50);
// return;
// }
//
//
//// sprintf((char *)empty_line,"\r");
//// empty_len = (long) (strlen((char *)empty_line));
//
// SetFPos (data_dump_file_id, 2, 0);
//
// sprintf((char *)get_text,"Scenario data for %s:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// sprintf((char *)get_text,"Terrain types for %s:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
//
// for (i = 0; i < 256; i++) {
// sprintf((char *)get_text," Terrain type %d: %s\r",i,data_store->scen_item_list.ter_names[i]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// }
//
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// sprintf((char *)get_text,"Monster types for %s:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// for (i = 0; i < 256; i++) {
// sprintf((char *)get_text," Monster type %d: %s\r",i,data_store->scen_item_list.monst_names[i]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// }
//
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// sprintf((char *)get_text,"Item types for %s:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// for (i = 0; i < 400; i++) {
// sprintf((char *)get_text," Item type %d: %s\r",i,data_store->scen_item_list.scen_items[i].full_name);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// }
// FSClose(data_dump_file_id);
//
//}
//
//void scen_text_dump()
//{
// short i;
// short j,k;
// long val_store,to_return = 0;
// short the_type,data_dump_file_id;
// Handle the_handle = NULL;
// Rect the_rect;
// Str255 the_string,store_name;
// char get_text[300];
// FSSpec dump_file;
// OSErr error;
// long len,empty_len;
// location out_sec;
//
// FSMakeFSSpec(start_volume,start_dir,"\pScenario text",&dump_file);
// FSpDelete(&dump_file);
// error = FSpCreate(&dump_file,'ttxt','TEXT',smSystemScript);
// if ((error = FSpOpenDF(&dump_file,3,&data_dump_file_id)) != 0) {
// SysBeep(50);
// return;
// }
//
//
//// sprintf((char *)empty_line,"\r");
//// empty_len = (long) (strlen((char *)empty_line));
//
// SetFPos (data_dump_file_id, 2, 0);
//
// sprintf((char *)get_text,"Scenario text for %s:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// sprintf((char *)get_text,"Scenario Text:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// for (i = 0; i < 260; i++)
// if (data_store->scen_strs[i][0] != '*') {
// sprintf((char *)get_text," Message %d: %s\r",i,data_store->scen_strs[i]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// }
//
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"Outdoor Sections Text:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// for (out_sec.x = 0; out_sec.x < scenario.out_width ; out_sec.x++)
// for (out_sec.y = 0; out_sec.y < scenario.out_height ; out_sec.y++) {
// sprintf((char *)get_text," Section X = %d, Y = %d:\r",(short) out_sec.x,(short) out_sec.y);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// load_outdoors(out_sec,0);
// for (i = 0; i < 108; i++)
// if (data_store->out_strs[i][0] != '*') {
// sprintf((char *)get_text," Message %d: %s\r",i,data_store->out_strs[i]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// }
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// }
// augment_terrain(out_sec);
//
// sprintf((char *)get_text,"Town Text:\r",data_store->scen_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// for (j = 0; j < scenario.num_towns; j++) {
// load_town(j);
//
// sprintf((char *)get_text," Town: %s\r",data_store->town_strs[0]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text," Town Messages:",data_store->town_strs[j]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// for (i = 0; i < 135; i++)
// if (data_store->town_strs[i][0] != '*') {
// sprintf((char *)get_text," Message %d: %s\r",i,data_store->town_strs[i]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// }
//
// sprintf((char *)get_text," Town Dialogue:",data_store->town_strs[j]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// for (i = 0; i < 10; i++) {
// sprintf((char *)get_text," Personality %d name: %s\r",j * 10 + i,data_store->talk_strs[i]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text," Personality %d look: %s\r",j * 10 + i,data_store->talk_strs[i + 10]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text," Personality %d ask name: %s\r",j * 10 + i,data_store->talk_strs[i + 20]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text," Personality %d ask job: %s\r",j * 10 + i,data_store->talk_strs[i + 30]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// sprintf((char *)get_text," Personality %d confused: %s\r",j * 10 + i,data_store->talk_strs[i + 160]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// }
//
// for (i = 40; i < 160; i++)
// if (strlen((char *) (data_store->talk_strs[i])) > 0) {
// sprintf((char *)get_text," Node %d: %s\r",(i - 40) / 2,data_store->talk_strs[i]);
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
// }
//
// sprintf((char *)get_text,"\r");
// len = (long) (strlen((char *)get_text));
// FSWrite(data_dump_file_id, &len, (char *) get_text);
//
// }
//
// FSClose(data_dump_file_id);
//
//}r->right = a;
Reference in New Issue View Git Blame Copy Permalink