int
convert(void)
{
int ch;
char* mode = "w";
if (!checksignature())
return (-1);
if (!readscreen())
return (-1);
while ((ch = getc(infile)) != ';' && ch != EOF) {
switch (ch) {
case '\0': break; /* this kludge for non-standard files */
case ',': if (!readgifimage(mode))
return (-1);
mode = "a"; /* subsequent images append */
break;
case '!': if (!readextension())
return (-1);
break;
default: fprintf(stderr, "illegal GIF block type\n");
return (-1);
}
}
return (0);
}
static void save_check(RDArsrc *mtnrsrc,mtnstruct *mtn,short update_list)
{
char deleteflag=0,*warnmessage=NULL,*desc=NULL;
int selDEFtype=0;
readscreen(mtnrsrc,mtn);
FINDFLDGETCHAR(MASTER->passkey->fileno,"DELETEFLAG",&deleteflag);
if(!deleteflag)
{
FINDRSCGETINT(mtnrsrc,"DEFINITION TYPES",&selDEFtype);
if(!RDAstrcmp(mtn->DEFtypes->libs[selDEFtype],"No Definitions Available") || !RDAstrcmp(mtn->DEFtypes->libs[selDEFtype],"Invalid-Definition Type"))
{
warnmessage=Rmalloc(201);
sprintf(warnmessage,"The DEFINITION TYPE selected is invalid. This must be corrected before this record can be saved.");
WARNINGDIALOG("WARNING DIALOG SCREEN","INVALID DEFINITION TYPE!",warnmessage,NULL,NULL,TRUE,NULL);
if(warnmessage!=NULL) Rfree(warnmessage);
return;
}
}
if(!SAVE_CHECK(mtnrsrc,MASTER,SCRNvirtualSubData,(void *)mtnrsrc))
{
return;
}
if(!isEMPTY(MASTER->save_expression))
{
if(EVALUATEbol(MASTER->save_expression,SCRNvirtualSubData,mtnrsrc))
{
desc=EVALUATEstr(MASTER->save_error_desc,
SCRNvirtualSubData,mtnrsrc);
ERRORDIALOG("SAVE ERROR",desc,NULL,FALSE);
if(desc!=NULL) Rfree(desc);
return;
}
}
if(!isEMPTY(MASTER->save_warning))
{
if(EVALUATEbol(MASTER->save_warning,SCRNvirtualSubData,mtnrsrc))
{
desc=EVALUATEstr(MASTER->save_warning_desc,
SCRNvirtualSubData,mtnrsrc);
ADVWARNINGDIALOG("SAVE WARNING DIALOG SCREEN",
"SAVE WARNING",desc,
(update_list?save_record_now:save_record_now1),
NULL,FALSE,2,mtnrsrc,mtn,NULL);
if(desc!=NULL) Rfree(desc);
return;
}
}
save_record(mtnrsrc,mtn,update_list);
}
static void save_check(RDArsrc *mtnrsrc,short update_list,RDATData *previous)
{
char *desc=NULL;
readscreen(mtnrsrc,previous);
if(!getsupportingrecords(mtnrsrc,TRUE,TRUE))
{
return;
}
if(!SAVE_CHECK(mtnrsrc,MASTER,SCRNvirtualSubData,(void *)mtnrsrc))
{
return;
}
if(!isEMPTY(MASTER->save_expression))
{
if(EVALUATEbol(MASTER->save_expression,SCRNvirtualSubData,mtnrsrc))
{
desc=EVALUATEstr(MASTER->save_error_desc,
SCRNvirtualSubData,mtnrsrc);
ERRORDIALOG("SAVE ERROR",desc,NULL,FALSE);
if(desc!=NULL) Rfree(desc);
return;
}
}
if(!isEMPTY(MASTER->save_warning))
{
if(EVALUATEbol(MASTER->save_warning,SCRNvirtualSubData,mtnrsrc))
{
desc=EVALUATEstr(MASTER->save_warning_desc,
SCRNvirtualSubData,mtnrsrc);
ADVWARNINGDIALOG("SAVE WARNING DIALOG SCREEN","SAVE WARNING",
desc,(update_list ? save_record_now:save_record_now1),
NULL,FALSE,2,mtnrsrc,previous,NULL);
if(desc!=NULL) Rfree(desc);
return;
}
}
save_record(mtnrsrc,update_list,previous);
}
short play() {
short c;
short ret;
short undolock = 1; /* locked for undo */
showscreen();
tmpsave();
ret = 0;
while( ret == 0) {
switch( (c = getch())) {
case 'q': /* quit the game */
ret = E_ENDGAME;
break;
case 's': /* save the games */
if( (ret = savegame()) == 0)
ret = E_SAVED;
break;
case '?': /* show the help file */
showhelp();
showscreen();
break;
case CNTL_R: /* refresh the screen */
clear();
showscreen();
break;
case 'c': /* temporary save */
tmpsave();
break;
case CNTL_U: /* reset to temporary save */
tmpreset();
undolock = 1;
showscreen();
break;
case 'U': /* undo this level */
moves = pushes = 0;
if( (ret = readscreen()) == 0) {
showscreen();
undolock = 1;
}
break;
case 'u': /* undo last move */
if( ! undolock) {
undomove();
undolock = 1;
}
break;
case 'k': /* up */
case 'K': /* run up */
case CNTL_K: /* run up, stop before object */
case 'j': /* down */
case 'J': /* run down */
case CNTL_J: /* run down, stop before object */
case 'l': /* right */
case 'L': /* run right */
case CNTL_L: /* run right, stop before object */
case 'h': /* left */
case 'H': /* run left */
case CNTL_H: /* run left, stop before object */
do {
if( (action = testmove( c)) != 0) {
lastaction = action;
lastppos.x = ppos.x; lastppos.y = ppos.y;
lppc = map[ppos.x][ppos.y];
lasttpos1.x = tpos1.x; lasttpos1.y = tpos1.y;
ltp1c = map[tpos1.x][tpos1.y];
lasttpos2.x = tpos2.x; lasttpos2.y = tpos2.y;
ltp2c = map[tpos2.x][tpos2.y];
domove( lastaction);
undolock = 0;
}
} while( (action != 0) && (! islower( c))
&& (packets != savepack));
break;
default: helpmessage(); break;
}
if( (ret == 0) && (packets == savepack)) {
scorelevel = level;
scoremoves = moves;
scorepushes = pushes;
break;
}
}
return( ret);
}
int play() {
short c;
short ret;
short testmove();
short undolock = 1; /* locked for undo */
#if ATARIST /* Mess up keyboard to make cursor keys work */
KEY_TABLES *kbt;
KEY_TABLES old_kbt;
int i;
kbt = Keytbl(-1, -1, -1);
old_kbt = *kbt;
for (i = 0; i < 128; i++) {
unshifted[i] = kbt->unshifted[i];
shifted[i] = kbt->shifted[i];
}
unshifted[0x48] = 'k'; /* Up */
unshifted[0x50] = 'j'; /* Down */
unshifted[0x4b] = 'h'; /* Left */
unshifted[0x4d] = 'l'; /* Right */
unshifted[0x61] = 'u'; /* Undo */
unshifted[0x62] = '?'; /* Help */
shifted[0x48] = '\013'; /* Up ^K */
shifted[0x50] = '\012'; /* Down ^J */
shifted[0x4b] = '\010'; /* Left ^H */
shifted[0x4d] = '\014'; /* Right ^L */
shifted[0x61] = 'q'; /* Undo */
Keytbl(unshifted, shifted, -1);
#endif
showscreen();
tmpsave();
ret = 0;
while( ret == 0) {
switch( (c = get_char())) {
case 'q': /* quit the game */
ret = E_ENDGAME;
break;
case 's': /* save the games */
if( (ret = savegame()) == 0)
ret = E_SAVED;
break;
case '?': /* show the help file */
showhelp();
showscreen();
break;
case CNTL_R: /* refresh the screen */
clear();
showscreen();
break;
case 'c': /* temporary save */
tmpsave();
break;
case CNTL_U: /* reset to temporary save */
tmpreset();
undolock = 1;
showscreen();
break;
case 'U': /* undo this level */
moves = pushes = 0;
if( (ret = readscreen()) == 0) {
showscreen();
undolock = 1;
}
break;
case 'u': /* undo last move */
if(state_num > 0) {
undomove();
undolock = 0; /*1*/
}
break;
case 'k': /* up */
case 'K': /* run up */
case CNTL_K: /* run up, stop before object */
case 'j': /* down */
case 'J': /* run down */
case CNTL_J: /* run down, stop before object */
case 'l': /* right */
case 'L': /* run right */
case CNTL_L: /* run right, stop before object */
case 'h': /* left */
case 'H': /* run left */
case CNTL_H: /* run left, stop before object */
do {
if( (action = testmove( c)) != 0) {
soko_state *s;
s = &state[state_num];
s->action = action;
s->ppos = ppos;
s->lppc = map[ppos.x][ppos.y];
s->tpos1 = tpos1;
s->ltp1c = map[tpos1.x][tpos1.y];
s->tpos2 = tpos2;
s->ltp2c = map[tpos2.x][tpos2.y];
domove( s->action);
undolock = 0;
state_num++;
}
} while( (action != 0) && (! islower( c))
&& (packets != savepack));
break;
default: helpmessage(); break;
}
if( (ret == 0) && (packets == savepack)) {
scorelevel = level;
scoremoves = moves;
scorepushes = pushes;
break;
}
}
#if ATARIST
kbt = Keytbl(-1, -1, -1);
kbt->unshifted = old_kbt.unshifted;
kbt->shifted = old_kbt.shifted;
/* Keytbl(old_kbt.unshifted, old_kbt.shifted, old_kbt.capslock);*/
#endif
return ret;
}
static void save_record_nup(RDArsrc *mtnrsrc,RDATData *previous)
{
readscreen(mtnrsrc,previous);
save_check(mtnrsrc,previous,FALSE);
}
void RAND_screen(void) /* function available for backward compatibility */
{
RAND_poll();
readscreen();
}
static void save_record_nup(RDArsrc *mtnrsrc,mtnstruct *mtn)
{
readscreen(mtnrsrc,mtn);
save_check(mtnrsrc,mtn,FALSE);
}
