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 // build wad directory
184 void F_initwads(void) {
191 logo("F_initwads: подключение WAD-файлов\n");
192 for(i
=0;i
<MAX_WAD
;++i
) wad
[i
].n
[0]=0;
193 logo(" подключается %s\n",wads
[0]);
194 if((wadh
[0]=h
=fopen(wads
[0],"rb"))==NULL
)//if((wadh[0]=h=open(wads[0],O_RDWR|O_BINARY))==-1)
195 ERR_failinit("Не могу открыть файл: %s",wads
[0]);//sys_errlist[errno]);
196 *s
=0;myfread(s
,1,4,h
);
197 if(strncmp(s
,"IWAD",4)!=0 && strncmp(s
,"PWAD",4)!=0)
198 ERR_failinit("Нет подписи IWAD или PWAD");
199 myfread(&n
,1,4,h
);myfread(&o
,1,4,h
);fseek(h
,o
,SEEK_SET
);
200 for(j
=0,p
=0;j
<n
;++j
) {
202 if(p
>=MAX_WAD
) ERR_failinit("Слишком много элементов WAD'а");
203 memcpy(wad
[p
].n
,w
.n
,8);
204 wad
[p
].o
=w
.o
;wad
[p
].l
=w
.l
;wad
[p
].f
=0;
208 for(i
=1;i
<MAX_WADS
;++i
) if(wads
[i
][0]!=0) {
210 logo(" подключается %s\n",wads
[i
]);
211 if((wadh
[i
]=h
=fopen(wads
[i
], "rb"))==NULL
) //if((wadh[i]=h=open(wads[i],O_RDONLY|O_BINARY))==-1)
212 ERR_failinit("Не могу открыть файл2: %s",wads
[i
]);//sys_errlist[errno]);
213 mysplitpath(wads
[i
],f_drive
,f_dir
,f_name
,f_ext
);
214 if(strcasecmp(f_ext
,".lmp")==0) {
215 for(k
=0;k
<MAX_WAD
;++k
) if(strncasecmp(wad
[k
].n
,f_name
,8)==0)
216 {wad
[k
].o
=0L;wad
[k
].l
=myfilelength(h
);wad
[k
].f
=i
;break;}
218 if(p
>=MAX_WAD
) ERR_failinit("Слишком много элементов WAD'а");
219 memset(wad
[p
].n
,0,8);
220 strncpy(wad
[p
].n
,f_name
,8);
221 wad
[p
].o
=0L;wad
[p
].l
=myfilelength(h
);wad
[p
].f
=i
;
226 *s
=0;myfread(s
,1,4,h
);
227 if(strncmp(s
,"IWAD",4)!=0 && strncmp(s
,"PWAD",4)!=0)
228 ERR_failinit("Нет подписи IWAD или PWAD");
229 myfread(&n
,1,4,h
);myfread(&o
,1,4,h
);fseek(h
,o
,SEEK_SET
);
232 for(k
=0;k
<MAX_WAD
;++k
) if(strncasecmp(wad
[k
].n
,w
.n
,8)==0)
233 {wad
[k
].o
=w
.o
;wad
[k
].l
=w
.l
;wad
[k
].f
=i
;break;}
235 if(p
>=MAX_WAD
) ERR_failinit("Слишком много элементов WAD'а");
236 memcpy(wad
[p
].n
,w
.n
,8);
237 wad
[p
].o
=w
.o
;wad
[p
].l
=w
.l
;wad
[p
].f
=i
;
246 // allocate resources
247 // (called from M_startup)
248 void F_allocres(void) {
249 d_start
=F_getresid("D_START");
250 d_end
=F_getresid("D_END");
251 m_start
=F_getresid("M_START");
252 m_end
=F_getresid("M_END");
253 s_start
=F_getresid("S_START");
254 s_end
=F_getresid("S_END");
258 void F_loadres(int r
,void *p
,dword o
,dword l
) {
264 oo
=ftell(fh
=wadh
[wad
[r
].f
]);
266 if(fseek(fh
,wad
[r
].o
+o
,SEEK_SET
)!=0)
267 ERR_fatal("Ошибка при чтении файла");
269 if((dword
)myfreadc(p
,1,l
,fh
)!=l
)
270 ERR_fatal("Ошибка при загрузке ресурса %.8s",wad
[r
].n
);
272 fseek(fh
,oo
,SEEK_SET
);
277 void F_saveres(int r
,void *p
,dword o
,dword l
) {
281 oo
=ftell(fh
=wadh
[wad
[r
].f
]);
282 if(fseek(fh
,wad
[r
].o
+o
,SEEK_SET
)!=0)
283 ERR_fatal("Ошибка при чтении файла");
285 fseek(fh
,oo
,SEEK_SET
);
290 int F_getresid(char *n
) {
293 for(i
=0;i
<wad_num
;++i
) if(strncasecmp(wad
[i
].n
,n
,8)==0) return i
;
294 ERR_fatal("F_getresid: ресурс %.8s не найден",n
);
299 int F_findres(char *n
) {
302 for(i
=0;i
<wad_num
;++i
) if(strncasecmp(wad
[i
].n
,n
,8)==0) return i
;
306 void F_getresname(char *n
,int r
) {
307 memcpy(n
,wad
[r
].n
,8);
311 int F_getsprid(char n
[4],int s
,int d
) {
316 for(i
=s_start
+1;i
<s_end
;++i
)
317 if(strncasecmp(wad
[i
].n
,n
,4)==0 && (wad
[i
].n
[4]==s
|| wad
[i
].n
[6]==s
)) {
318 if(wad
[i
].n
[4]==s
) a
=wad
[i
].n
[5]; else a
=0;
319 if(wad
[i
].n
[6]==s
) b
=wad
[i
].n
[7]; else b
=0;
321 if(b
=='0') return(i
|0x8000);
323 if(b
==d
) return(i
|0x8000);
325 ERR_fatal("F_getsprid: изображение %.4s%c%c не найдено",n
,(byte
)s
,(byte
)d
);
329 int F_getreslen(int r
) {
333 void F_nextmus(char *s
) {
336 if(i
<=m_start
|| i
>=m_end
) i
=m_start
;
338 if(i
>=m_end
) i
=m_start
+1;
340 if (strcasecmp(wad
[i
].n
,"MENU") == 0 ||
341 strcasecmp(wad
[i
].n
,"INTERMUS") == 0 ||
342 strcasecmp(wad
[i
].n
,"\x8a\x8e\x8d\x85\x96\x0") == 0)
345 if(strncasecmp(wad
[i
].n
,"DMI",3)!=0) break;
347 memcpy(s
,wad
[i
].n
,8);
350 void F_randmus(char *s
) {
353 for (i
=0; i
<n
; i
++) {
358 // reads bytes from file until CR
359 void F_readstr(FILE* h
,char *s
,int m
) {
372 // reads bytes from file until NUL
373 void F_readstrz(FILE* h
,char *s
,int m
) {
388 void F_loadmap(char n
[8]) {
397 fseek(h
=wadh
[wad
[r
].f
],wad
[r
].o
,SEEK_SET
);
398 myfread(&hdr
,1,sizeof(hdr
),h
);
399 if(memcmp(hdr
.id
,"Doom2D\x1A",8)!=0)
400 ERR_fatal("%.8s не является уровнем",n
);
402 myfread(&blk
,1,sizeof(blk
),h
);
403 if(blk
.t
==MB_END
) break;
404 if(blk
.t
==MB_COMMENT
)
405 {fseek(h
,blk
.sz
,SEEK_CUR
);continue;}
411 ERR_fatal("Неизвестный блок %d(%d) в уровне %.8s",blk
.t
,blk
.st
,n
);
417 /*void F_freemus(void) {
423 free(pat);free(patp);
424 for(i=0;i<inum;++i) if(dmi[i]!=NULL) free(dmi[i]);
431 /*void F_loadmus(char n[8]) {
440 struct{byte t;char n[13];word r;}di;
442 if((r=F_findres(n))==-1) return;
443 fseek(h=wadh[wad[r].f],wad[r].o,SEEK_SET);
444 myfread(&d,1,sizeof(d),h);
445 if(memcmp(d.id,"DMM",4)!=0) return;
446 if(!(pat=malloc(d.psz<<2))) return;
447 myfread(pat,1,d.psz<<2,h);
448 myfread(&seqn,1,1,h);if(seqn) myfread(seq,1,seqn,h);
449 inum=0;myfread(&inum,1,1,h);
450 if(!(dmi=malloc(inum*4))) {free(pat);pat=NULL;return;}
451 if(!(patp=malloc((word)d.pat*32))) {free(pat);free(dmi);pat=NULL;return;}
452 for(i=0;i<inum;++i) {
454 myfread(&di,1,16,h);o=ftell(h);
455 for(r=0;r<12;++r) if(di.n[r]=='.') di.n[r]=0;
456 if((r=F_findres(di.n))==-1) continue;
457 if(!(dmi[i]=malloc(wad[r].l+8))) continue;
459 F_loadres(r,dmi[i],0,2);
460 F_loadres(r,(int*)dmi[i]+1,2,2);
461 F_loadres(r,(int*)dmi[i]+2,4,2);
462 F_loadres(r,(int*)dmi[i]+3,6,2);
463 F_loadres(r,(int*)dmi[i]+4,8,wad[r].l-8);
466 for(i=r=0,j=(word)d.pat<<3;i<j;++i) {
468 while(pat[r++].v!=0x80);