eb6d36e943bbbda1b55d1082d79d7b04c473aade
2 Copyright (C) Prikol Software 1996-1997
3 Copyright (C) Aleksey Volynskov 1996-1997
4 Copyright (C) <ARembo@gmail.com> 2011
6 This file is part of the Doom2D:Rembo project.
8 Doom2D:Rembo is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License version 2 as
10 published by the Free Software Foundation.
12 Doom2D:Rembo is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, see <http://www.gnu.org/licenses/> or
19 write to the Free Software Foundation, Inc.,
20 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
35 char *S_getinfo(void);
50 void G_savegame(FILE*);
51 void W_savegame(FILE*);
52 void DOT_savegame(FILE*);
53 void SMK_savegame(FILE*);
54 void FX_savegame(FILE*);
55 void IT_savegame(FILE*);
56 void MN_savegame(FILE*);
57 void PL_savegame(FILE*);
58 void SW_savegame(FILE*);
59 void WP_savegame(FILE*);
61 void G_loadgame(FILE*);
62 void W_loadgame(FILE*);
63 void DOT_loadgame(FILE*);
64 void SMK_loadgame(FILE*);
65 void FX_loadgame(FILE*);
66 void IT_loadgame(FILE*);
67 void MN_loadgame(FILE*);
68 void PL_loadgame(FILE*);
69 void SW_loadgame(FILE*);
70 void WP_loadgame(FILE*);
72 byte savname
[7][24],savok
[7];
74 int d_start
,d_end
,m_start
,m_end
,s_start
,s_end
,wad_num
;
77 char wads
[MAX_WADS
][__MAX_PATH
];
78 static FILE* wadh
[MAX_WADS
];
80 char f_drive
[__MAX_DRIVE
],f_dir
[__MAX_DIR
],f_name
[__MAX_FNAME
],f_ext
[__MAX_EXT
],
83 void F_startup(void) {
84 logo("F_startup: настройка файловой системы\n");
85 memset(wads
,0,sizeof(wads
));
88 char *getsavfpname(int n
, int ro
)
90 static char fn
[]="savgame0.dat";
94 char *e
= getenv("HOME");
96 strcat(p
,"/.doom2d-rembo");
97 if (!ro
) mkdir(p
, S_IRWXU
| S_IRWXG
| S_IROTH
| S_IXOTH
);
106 void F_getsavnames(void) {
113 p
= getsavfpname(i
,1);
114 memset(savname
[i
],0,24);savok
[i
]=0;
115 if((h
=fopen(p
,"rb"))==NULL
) continue; //if((h=open(n,O_RDONLY|O_BINARY))==-1) continue;
116 myfread(savname
[i
],1,24,h
);ver
=-1;myfread(&ver
,1,2,h
);
117 fclose(h
);savname
[i
][23]=0;savok
[i
]=(ver
==3)?1:0;//savok[i]=(ver==2)?1:0;
121 void F_savegame(int n
,char *s
) {
126 if((h
=fopen(p
,"wb"))==NULL
) return;
127 myfwrite(s
,1,24,h
);myfwrite("\3\0",1,2,h
);//myfwrite("\2\0",1,2,h);
141 void F_loadgame(int n
) {
147 if((h
=fopen(p
,"rb"))==NULL
) return;//if((h=open(fn,O_BINARY|O_RDONLY))==-1) return;
148 fseek(h
,24,SEEK_SET
);myfread(&ver
,1,2,h
);if(ver
!=3) return;//if(ver!=2) return;
162 void F_addwad(char *fn
) {
165 for(i
=0;i
<MAX_WADS
;++i
) if(wads
[i
][0]==0) {
166 strcpy(wads
[i
],fn
);return;
168 ERR_failinit("Не могу добавить WAD %s",fn
);
172 int myfilelength(FILE *h
)
175 fseek (h
, 0, SEEK_END
);
177 fseek (h
, pos
, SEEK_SET
);
181 extern void mysplitpath(const char* path
, char* drv
, char* dir
, char* name
, char* ext
);
183 static int myread_int32 (FILE *f
) {
185 myfread(&x
, 4, 1, f
);
189 // build wad directory
190 void F_initwads (void) {
197 logo("F_initwads: подключение WAD-файлов\n");
198 for (i
= 0; i
< MAX_WAD
; ++i
) {
202 logo(" подключается %s\n", wads
[0]);
203 if ((wadh
[0] = h
= fopen(wads
[0], "rb")) == NULL
) {
204 ERR_failinit("Не могу открыть файл: %s", wads
[0]);
209 if (strncmp(s
, "IWAD", 4) != 0 && strncmp(s
, "PWAD", 4) != 0) {
210 ERR_failinit("Нет подписи IWAD или PWAD (1)");
214 n
= myread_int32(h
); // num
215 o
= myread_int32(h
); // offset
216 fseek(h
, o
, SEEK_SET
);
217 for (j
= 0; j
< n
; ++j
) {
218 w
.o
= myread_int32(h
); // offset
219 w
.l
= myread_int32(h
); // len
220 myfread(w
.n
, 1, 8, h
); // name
222 ERR_failinit("Слишком много элементов WAD'а");
226 memcpy(wad
[p
].n
, w
.n
, 8);
233 for (i
= 1; i
< MAX_WADS
; ++i
) {
234 if (wads
[i
][0] != 0) {
235 logo(" подключается %s\n", wads
[i
]);
236 if ((wadh
[i
] = h
= fopen(wads
[i
], "rb")) == NULL
) {
237 ERR_failinit("Не могу открыть файл2: %s", wads
[i
]);
239 mysplitpath(wads
[i
], f_drive
, f_dir
, f_name
, f_ext
);
240 if (strcasecmp(f_ext
, ".lmp") == 0) {
241 for (k
= 0; k
< MAX_WAD
; ++k
) {
242 if (strncasecmp(wad
[k
].n
, f_name
, 8) == 0) {
244 wad
[k
].l
= myfilelength(h
);
250 ERR_failinit("Слишком много элементов WAD'а");
252 memset(wad
[p
].n
, 0, 8);
253 strncpy(wad
[p
].n
, f_name
, 8);
255 wad
[p
].l
= myfilelength(h
);
263 if (strncmp(s
, "IWAD", 4) != 0 && strncmp(s
, "PWAD", 4) != 0) {
264 ERR_failinit("Нет подписи IWAD или PWAD (2)");
266 n
= myread_int32(h
); // num
267 o
= myread_int32(h
); // offset
268 fseek(h
, o
, SEEK_SET
);
269 for (j
= 0; j
< n
; ++j
) {
270 w
.o
= myread_int32(h
); // offset
271 w
.l
= myread_int32(h
); // len
272 myfread(w
.n
, 1, 8, h
); // name
273 for (k
= 0; k
< MAX_WAD
; ++k
) {
274 if (strncasecmp(wad
[k
].n
, w
.n
, 8) == 0) {
282 ERR_failinit("Слишком много элементов WAD'а");
284 memcpy(wad
[p
].n
, w
.n
, 8);
299 // allocate resources
300 // (called from M_startup)
301 void F_allocres(void) {
302 d_start
=F_getresid("D_START");
303 d_end
=F_getresid("D_END");
304 m_start
=F_getresid("M_START");
305 m_end
=F_getresid("M_END");
306 s_start
=F_getresid("S_START");
307 s_end
=F_getresid("S_END");
311 void F_loadres(int r
,void *p
,dword o
,dword l
) {
317 oo
=ftell(fh
=wadh
[wad
[r
].f
]);
319 if(fseek(fh
,wad
[r
].o
+o
,SEEK_SET
)!=0)
320 ERR_fatal("Ошибка при чтении файла");
322 if((dword
)myfreadc(p
,1,l
,fh
)!=l
)
323 ERR_fatal("Ошибка при загрузке ресурса %.8s",wad
[r
].n
);
325 fseek(fh
,oo
,SEEK_SET
);
330 void F_saveres(int r
,void *p
,dword o
,dword l
) {
334 oo
=ftell(fh
=wadh
[wad
[r
].f
]);
335 if(fseek(fh
,wad
[r
].o
+o
,SEEK_SET
)!=0)
336 ERR_fatal("Ошибка при чтении файла");
338 fseek(fh
,oo
,SEEK_SET
);
343 int F_getresid(char *n
) {
346 for(i
=0;i
<wad_num
;++i
) if(strncasecmp(wad
[i
].n
,n
,8)==0) return i
;
347 ERR_fatal("F_getresid: ресурс %.8s не найден",n
);
352 int F_findres(char *n
) {
355 for(i
=0;i
<wad_num
;++i
) if(strncasecmp(wad
[i
].n
,n
,8)==0) return i
;
359 void F_getresname(char *n
,int r
) {
360 memcpy(n
,wad
[r
].n
,8);
364 int F_getsprid(char n
[4],int s
,int d
) {
369 for(i
=s_start
+1;i
<s_end
;++i
)
370 if(strncasecmp(wad
[i
].n
,n
,4)==0 && (wad
[i
].n
[4]==s
|| wad
[i
].n
[6]==s
)) {
371 if(wad
[i
].n
[4]==s
) a
=wad
[i
].n
[5]; else a
=0;
372 if(wad
[i
].n
[6]==s
) b
=wad
[i
].n
[7]; else b
=0;
374 if(b
=='0') return(i
|0x8000);
376 if(b
==d
) return(i
|0x8000);
378 ERR_fatal("F_getsprid: изображение %.4s%c%c не найдено",n
,(byte
)s
,(byte
)d
);
382 int F_getreslen(int r
) {
386 void F_nextmus(char *s
) {
389 if(i
<=m_start
|| i
>=m_end
) i
=m_start
;
391 if(i
>=m_end
) i
=m_start
+1;
393 if (strcasecmp(wad
[i
].n
,"MENU") == 0 ||
394 strcasecmp(wad
[i
].n
,"INTERMUS") == 0 ||
395 strcasecmp(wad
[i
].n
,"\x8a\x8e\x8d\x85\x96\x0") == 0)
398 if(strncasecmp(wad
[i
].n
,"DMI",3)!=0) break;
400 memcpy(s
,wad
[i
].n
,8);
403 void F_randmus(char *s
) {
406 for (i
=0; i
<n
; i
++) {
411 // reads bytes from file until CR
412 void F_readstr(FILE* h
, char *s
, int m
) {
418 len
= myfreadc(&c
, 1, 1, h
);
419 if (len
== 0 || c
== 13 || c
== 10) {
428 // reads bytes from file until NUL
429 void F_readstrz(FILE* h
,char *s
,int m
) {
435 len
= myfreadc(&c
, 1, 1, h
);
436 if (len
== 0 || c
== 0) {
447 void F_loadmap(char n
[8]) {
456 fseek(h
=wadh
[wad
[r
].f
],wad
[r
].o
,SEEK_SET
);
457 myfread(&hdr
,1,sizeof(hdr
),h
);
458 hdr
.ver
= short2host(hdr
.ver
);
459 if(memcmp(hdr
.id
,"Doom2D\x1A",8)!=0)
460 ERR_fatal("%.8s не является уровнем",n
);
462 myfread(&blk
,1,sizeof(blk
),h
);
463 blk
.t
= short2host(blk
.t
);
464 blk
.st
= short2host(blk
.st
);
465 blk
.sz
= int2host(blk
.sz
);
466 if(blk
.t
==MB_END
) break;
467 if(blk
.t
==MB_COMMENT
)
468 {fseek(h
,blk
.sz
,SEEK_CUR
);continue;}
474 ERR_fatal("Неизвестный блок %d(%d) в уровне %.8s",blk
.t
,blk
.st
,n
);
480 /*void F_freemus(void) {
486 free(pat);free(patp);
487 for(i=0;i<inum;++i) if(dmi[i]!=NULL) free(dmi[i]);
494 /*void F_loadmus(char n[8]) {
503 struct{byte t;char n[13];word r;}di;
505 if((r=F_findres(n))==-1) return;
506 fseek(h=wadh[wad[r].f],wad[r].o,SEEK_SET);
507 myfread(&d,1,sizeof(d),h);
508 if(memcmp(d.id,"DMM",4)!=0) return;
509 if(!(pat=malloc(d.psz<<2))) return;
510 myfread(pat,1,d.psz<<2,h);
511 myfread(&seqn,1,1,h);if(seqn) myfread(seq,1,seqn,h);
512 inum=0;myfread(&inum,1,1,h);
513 if(!(dmi=malloc(inum*4))) {free(pat);pat=NULL;return;}
514 if(!(patp=malloc((word)d.pat*32))) {free(pat);free(dmi);pat=NULL;return;}
515 for(i=0;i<inum;++i) {
517 myfread(&di,1,16,h);o=ftell(h);
518 for(r=0;r<12;++r) if(di.n[r]=='.') di.n[r]=0;
519 if((r=F_findres(di.n))==-1) continue;
520 if(!(dmi[i]=malloc(wad[r].l+8))) continue;
522 F_loadres(r,dmi[i],0,2);
523 F_loadres(r,(int*)dmi[i]+1,2,2);
524 F_loadres(r,(int*)dmi[i]+2,4,2);
525 F_loadres(r,(int*)dmi[i]+3,6,2);
526 F_loadres(r,(int*)dmi[i]+4,8,wad[r].l-8);
529 for(i=r=0,j=(word)d.pat<<3;i<j;++i) {
531 while(pat[r++].v!=0x80);