int save_s_player (s_player * s, PACKFILE * f)
{
int i;
pack_fwrite (s->name, sizeof (s->name), f);
pack_putc (0, f); /* alignment */
pack_putc (0, f); /* alignment */
pack_putc (0, f); /* alignment */
pack_iputl (s->xp, f);
pack_iputl (s->next, f);
pack_iputl (s->lvl, f);
pack_iputl (s->mrp, f);
pack_iputl (s->hp, f);
pack_iputl (s->mhp, f);
pack_iputl (s->mp, f);
pack_iputl (s->mmp, f);
for (i = 0; i < NUM_STATS; ++i) {
pack_iputl (s->stats[i], f);
}
for (i = 0; i < 16; ++i) {
pack_putc (s->res[i], f);
}
for (i = 0; i < 24; ++i) {
pack_putc (s->sts[i], f);
}
for (i = 0; i < 6; ++i) {
pack_putc (s->eqp[i], f);
}
for (i = 0; i < 60; ++i) {
pack_putc (s->spells[i], f);
}
pack_putc (0, f); /* alignment */
pack_putc (0, f); /* alignment */
return 0;
}
void save_entity(PACKFILE *file, ENTITY* data) {
pack_iputl(data->x,file);
pack_iputl(data->y,file);
pack_iputl(data->speed,file);
pack_putc(data->type,file);
pack_iputw(data->data1,file);
pack_iputw(data->data2,file);
pack_iputw(data->data3,file);
pack_iputw(data->data4,file);
pack_iputw(data->health,file);
pack_iputl(data->maxcooldown,file);
}
int save_s_entity(s_entity *s, PACKFILE *f)
{
pack_putc(s->chrx, f);
pack_putc(0, f); /* alignment */
pack_iputw(s->x, f);
pack_iputw(s->y, f);
pack_iputw(s->tilex, f);
pack_iputw(s->tiley, f);
pack_putc(s->eid, f);
pack_putc(s->active, f);
pack_putc(s->facing, f);
pack_putc(s->moving, f);
pack_putc(s->movcnt, f);
pack_putc(s->framectr, f);
pack_putc(s->movemode, f);
pack_putc(s->obsmode, f);
pack_putc(s->delay, f);
pack_putc(s->delayctr, f);
pack_putc(s->speed, f);
pack_putc(s->scount, f);
pack_putc(s->cmd, f);
pack_putc(s->sidx, f);
pack_putc(s->extra, f);
pack_putc(s->chasing, f);
pack_iputw(0, f); /* alignment */
pack_iputl(s->cmdnum, f);
pack_putc(s->atype, f);
pack_putc(s->snapback, f);
pack_putc(s->facehero, f);
pack_putc(s->transl, f);
pack_fwrite(s->script, sizeof(s->script), f);
return 0;
}
int save_s_map (s_map * sm, PACKFILE * f)
{
int i;
/* pack_putc (sm->map_no, f); */
pack_putc (0, f); /* To maintain compatibility. */
pack_putc (sm->zero_zone, f);
pack_putc (sm->map_mode, f);
pack_putc (sm->can_save, f);
pack_putc (sm->tileset, f);
pack_putc (sm->use_sstone, f);
pack_putc (sm->can_warp, f);
pack_putc (sm->extra_byte, f);
pack_iputl (sm->xsize, f);
pack_iputl (sm->ysize, f);
pack_iputl (sm->pmult, f);
pack_iputl (sm->pdiv, f);
pack_iputl (sm->stx, f);
pack_iputl (sm->sty, f);
pack_iputl (sm->warpx, f);
pack_iputl (sm->warpy, f);
//pack_iputl (1, f); /* Revision 1 */
sm->revision = 2; // Force new revision: 2
pack_iputl (sm->revision, f); /* Revision 2 */
pack_iputl (sm->extra_sdword2, f);
pack_fwrite (sm->song_file, sizeof (sm->song_file), f);
pack_fwrite (sm->map_desc, sizeof (sm->map_desc), f);
/* Markers */
pack_iputw (sm->num_markers, f);
for (i = 0; i < sm->num_markers; ++i) {
save_s_marker (&sm->markers[i], f);
}
/* Bounding boxes */
pack_iputw (sm->num_bound_boxes, f);
for (i = 0; i < sm->num_bound_boxes; ++i) {
save_s_bound (&sm->bound_box[i], f);
}
return 0;
}
/* exports a sample into an external file */
static int export_sample(AL_CONST DATAFILE *dat, AL_CONST char *filename)
{
SAMPLE *spl = (SAMPLE *)dat->dat;
int bps = spl->bits/8 * ((spl->stereo) ? 2 : 1);
int len = spl->len * bps;
int i;
int16_t s;
PACKFILE *f;
errno = 0;
f = pack_fopen(filename, F_WRITE);
if (f) {
pack_fputs("RIFF", f); /* RIFF header */
pack_iputl(36+len, f); /* size of RIFF chunk */
pack_fputs("WAVE", f); /* WAV definition */
pack_fputs("fmt ", f); /* format chunk */
pack_iputl(16, f); /* size of format chunk */
pack_iputw(1, f); /* PCM data */
pack_iputw((spl->stereo) ? 2 : 1, f); /* mono/stereo data */
pack_iputl(spl->freq, f); /* sample frequency */
pack_iputl(spl->freq*bps, f); /* avg. bytes per sec */
pack_iputw(bps, f); /* block alignment */
pack_iputw(spl->bits, f); /* bits per sample */
pack_fputs("data", f); /* data chunk */
pack_iputl(len, f); /* actual data length */
if (spl->bits == 8) {
pack_fwrite(spl->data, len, f); /* write the data */
}
else {
for (i=0; i < (int)spl->len * ((spl->stereo) ? 2 : 1); i++) {
s = ((int16_t *)spl->data)[i];
pack_iputw(s^0x8000, f);
}
}
pack_fclose(f);
}
return (errno == 0);
}
int save_s_map(s_map *sm, PACKFILE *f)
{
size_t i;
assert(sm && "sm == NULL");
assert(f && "f == NULL");
/* pack_putc (sm->map_no, f); */
pack_putc(0, f); /* To maintain compatibility. */
pack_putc(sm->zero_zone, f);
pack_putc(sm->map_mode, f);
pack_putc(sm->can_save, f);
pack_putc(sm->tileset, f);
pack_putc(sm->use_sstone, f);
pack_putc(sm->can_warp, f);
pack_putc(sm->extra_byte, f);
pack_iputl(sm->xsize, f);
pack_iputl(sm->ysize, f);
pack_iputl(sm->pmult, f);
pack_iputl(sm->pdiv, f);
pack_iputl(sm->stx, f);
pack_iputl(sm->sty, f);
pack_iputl(sm->warpx, f);
pack_iputl(sm->warpy, f);
//pack_iputl (1, f); /* Revision 1 */
sm->revision = 2; // Force new revision: 2
pack_iputl(sm->revision, f); /* Revision 2 */
pack_iputl(sm->extra_sdword2, f);
pack_fwrite(sm->song_file, sizeof(sm->song_file), f);
pack_fwrite(sm->map_desc, sizeof(sm->map_desc), f);
/* Markers */
save_markers(&sm->markers, f);
/* Bounding boxes */
save_bounds(&sm->bounds, f);
return 0;
}
/*! \brief Save game 92
*
* Save the game, using KQ Save Game Format 92 (Beta)
* Author: Winter Knight
*
* \returns 0 if save failed, 1 if success
*/
static int save_game_92 (void)
{
size_t a, b, c, d;
PACKFILE *sdat;
for (b = 0; b < PSIZE; b++) {
sid[save_ptr][b] = 0;
shp[save_ptr][b] = 0;
smp[save_ptr][b] = 0;
slv[save_ptr][b] = 0;
}
for (b = 0; b < numchrs; b++) {
sid[save_ptr][b] = pidx[b];
shp[save_ptr][b] = party[pidx[b]].hp * 100 / party[pidx[b]].mhp;
if (party[pidx[b]].mmp > 0)
smp[save_ptr][b] = party[pidx[b]].mp * 100 / party[pidx[b]].mmp;
slv[save_ptr][b] = party[pidx[b]].lvl;
}
snc[save_ptr] = numchrs;
sgp[save_ptr] = gp;
smin[save_ptr] = kmin;
shr[save_ptr] = khr;
sprintf (strbuf, "sg%d.sav", save_ptr);
sdat = pack_fopen (kqres (SAVE_DIR, strbuf), F_WRITE_PACKED);
if (!sdat) {
message (_("Could not save game data."), 255, 0, 0, 0);
return 0;
}
pack_putc (kq_version, sdat);
pack_iputl (gp, sdat);
pack_iputw (shr[save_ptr], sdat);
pack_iputw (smin[save_ptr], sdat);
/* Save number of, and which characters are in the party */
pack_iputw (numchrs, sdat);
for (a = 0; a < numchrs; a++) {
pack_iputw (pidx[a], sdat);
}
/* Save number of, and data on all characters in game */
pack_iputw (MAXCHRS, sdat);
for (a = 0; a < MAXCHRS; a++) {
save_s_player (&party[a], sdat);
}
/* Save map name and location */
pack_iputw (strlen (curmap), sdat);
pack_fwrite (curmap, strlen (curmap), sdat);
pack_iputw (g_ent[0].tilex, sdat);
pack_iputw (g_ent[0].tiley, sdat);
/* Save quest info */
for (a = sizeof (progress); a > 0; a--) {
if (progress[a - 1] > 0)
break;
}
pack_iputw (a, sdat);
for (b = 0; b < a; b++)
pack_putc (progress[b], sdat);
/* Save treasure info */
for (a = sizeof (treasure); a > 0; a--) {
if (treasure[a - 1] > 0)
break;
}
pack_iputw (a, sdat);
for (b = 0; b < a; b++)
pack_putc (treasure[b], sdat);
/* Save spell info (P_REPULSE is 48) */
pack_iputw (sizeof (save_spells), sdat);
for (a = 0; a < sizeof (save_spells); a++) { /* sizeof(save_spells) is 50 */
pack_putc (save_spells[a], sdat);
}
/* Save player inventory */
pack_iputw (MAX_INV, sdat);
for (a = 0; a < MAX_INV; a++) {
pack_iputw (g_inv[a][0], sdat);
pack_iputw (g_inv[a][1], sdat);
}
/* Save special items */
for (a = MAX_SPECIAL_ITEMS + 1; a > 0; a--) {
if (player_special_items[a - 1])
break;
}
pack_iputw (a, sdat);
for (b = 0; b < a; b++) {
pack_putc (player_special_items[b], sdat);
}
/* Save shop info (last visit time and number of items) */
/* Find last index of shop that the player has visited. */
for (a = num_shops; a > 0; a--) {
if (shop_time[a - 1] > 0)
break;
}
pack_iputw (a, sdat);
for (b = 0; b < a; b++) {
pack_iputw (shop_time[b], sdat);
/* Find last valid (non-zero) shop item for this shop */
for (c = SHOPITEMS; c > 0; c--)
if (shops[b].items[c - 1] > 0)
break;
pack_iputw (c, sdat);
for (d = 0; d < c; d++)
pack_iputw (shops[b].items_current[d], sdat);
}
pack_fclose (sdat);
return 1;
}
/*! \brief Save game
*
* You guessed it... save the game.
*
* \returns 0 if save failed, 1 if success
*/
static int save_game (void)
{
PACKFILE *sdat;
size_t a, b;
return save_game_92 ();
/* Rest of this function is no longer used */
for (b = 0; b < PSIZE; b++) {
sid[save_ptr][b] = 0;
shp[save_ptr][b] = 0;
smp[save_ptr][b] = 0;
slv[save_ptr][b] = 0;
}
for (b = 0; b < numchrs; b++) {
sid[save_ptr][b] = pidx[b];
shp[save_ptr][b] = party[pidx[b]].hp * 100 / party[pidx[b]].mhp;
if (party[pidx[b]].mmp > 0)
smp[save_ptr][b] = party[pidx[b]].mp * 100 / party[pidx[b]].mmp;
slv[save_ptr][b] = party[pidx[b]].lvl;
}
snc[save_ptr] = numchrs;
sgp[save_ptr] = gp;
smin[save_ptr] = kmin;
shr[save_ptr] = khr;
sprintf (strbuf, "sg%d.sav", save_ptr);
sdat = pack_fopen (kqres (SAVE_DIR, strbuf), F_WRITE_PACKED);
if (!sdat) {
message (_("Could not save game data."), 255, 0, 0, 0);
return 0;
}
pack_putc (kq_version, sdat);
pack_iputl (numchrs, sdat);
pack_iputl (gp, sdat);
pack_iputl (shr[save_ptr], sdat);
pack_iputl (smin[save_ptr], sdat);
for (a = 0; a < PSIZE; a++) {
pack_iputl (pidx[a], sdat);
}
for (a = 0; a < MAXCHRS; a++) {
save_s_player (&party[a], sdat);
}
pack_fwrite (curmap, 16, sdat);
for (a = 0; a < sizeof (progress); a++) { /* sizeof(progress) is 1750 */
pack_putc (progress[a], sdat);
}
for (a = 0; a < NUMSHOPS; a++) { /* NUMSHOPS is 50 */
pack_putc (shop_time[a], sdat);
}
for (a = 0; a < SIZE_SAVE_RESERVE1; a++) { /* SAVE_RESERVE_SIZE1 is 150 */
pack_putc (0, sdat);
}
for (a = 0; a < sizeof (save_spells); a++) { /* sizeof(save_spells) is 50 */
pack_putc (save_spells[a], sdat);
}
for (a = 0; a < sizeof (treasure); a++) { /* sizeof(treasure) is 1000 */
pack_putc (treasure[a], sdat);
}
for (a = 0; a < NUMSHOPS; a++) {
for (b = 0; b < SHOPITEMS; b++) {
pack_iputw (shops[a].items_current[b], sdat);
}
}
for (a = 0; a < MAX_INV; a++) {
pack_iputw (g_inv[a][0], sdat);
pack_iputw (g_inv[a][1], sdat);
}
/* PH FIXME: do we _really_ want things like controls and screen */
/* mode to be saved/loaded ? */
/* WK: No. */
pack_iputl (gsvol, sdat);
pack_iputl (gmvol, sdat);
pack_putc (windowed, sdat);
pack_putc (stretch_view, sdat);
pack_putc (wait_retrace, sdat);
pack_iputl (kup, sdat);
pack_iputl (kdown, sdat);
pack_iputl (kleft, sdat);
pack_iputl (kright, sdat);
pack_iputl (kalt, sdat);
pack_iputl (kctrl, sdat);
pack_iputl (kenter, sdat);
pack_iputl (kesc, sdat);
pack_iputl (jbalt, sdat);
pack_iputl (jbctrl, sdat);
pack_iputl (jbenter, sdat);
pack_iputl (jbesc, sdat);
/* End worthless */
pack_iputw (g_ent[0].tilex, sdat);
pack_iputw (g_ent[0].tiley, sdat);
pack_fclose (sdat);
return 1;
}
/* saves a wave file to file pointer */
static int save_wav_fp(SAMPLE * sp, PACKFILE * fp)
{
size_t channels, bits, freq;
size_t data_size;
size_t samples;
size_t i, n;
void * pval = NULL;
unsigned short *data;
eof_log("save_wav_fp() entered", 1);
if(!sp || !fp)
{
return 0;
}
channels = sp->stereo ? (size_t)2 : (size_t)1;
bits = (size_t)sp->bits;
samples = (size_t)sp->len;
data_size = samples * channels * (bits / 8);
n = samples * channels;
freq = (size_t)sp->freq;
(void) pack_fputs("RIFF", fp);
(void) pack_iputl(36 + (long)data_size, fp);
(void) pack_fputs("WAVE", fp);
(void) pack_fputs("fmt ", fp);
(void) pack_iputl(16, fp);
(void) pack_iputw(1, fp);
(void) pack_iputw((int)channels, fp);
(void) pack_iputl((long)freq, fp);
(void) pack_iputl((long)(freq * channels * (bits / 8)), fp); //ByteRate = SampleRate * NumChannels * BitsPerSample/8
(void) pack_iputw((int)(channels * (bits / 8)), fp);
(void) pack_iputw((int)bits, fp);
(void) pack_fputs("data", fp);
(void) pack_iputl((long)data_size, fp);
if(bits == 8)
{
pval = sp->data;
(void) pack_fwrite(pval, (long)(samples * channels), fp);
}
else if(bits == 16)
{
data = (unsigned short *)sp->data;
for (i = 0; i < n; i++)
{
(void) pack_iputw((short)(data[i] - 0x8000), fp);
}
}
else
{
(void) snprintf(eof_log_string, sizeof(eof_log_string) - 1, "Unknown audio depth (%lu) when saving wav ALLEGRO_FILE.", (unsigned long) bits);
eof_log(eof_log_string, 1);
return 0;
}
return 1;
}
