gtc/h/legacy/ezgensc
2018-01-31 14:14:00 +00:00

43 lines
702 B
Plaintext

#include "inclgen"
#include "genle"
#include "sccomm"
#include "scliba"
#ifdef RESOURCE
FILE *resf;
#endif
void gl_main();
int gl_load() {
GLB
int hd;
gl_init();
gl_init_dscreen(&g scr1, &hd);
if (!hd) goto nohd;
gl_push_hd(hd);
gl_init_dscreen(&g scr2, &hd);
if (!hd) goto nohd;
gl_push_hd(hd);
gl_upd();
#ifdef RESOURCE
resf=fopen(RESOURCE,"rb");
if (!resf) goto nohd;
(void *)g data=*(void **)resf;
#ifdef GFX_RES
gl_set_spr_xy(0,0);
gl_set_spr_tile(g data);
#endif
#endif
return 1;
nohd:
return 0;
}
void _main() {
if (gl_load()) gl_main();
#ifdef RESOURCE
if (resf) fclose(resf);
#endif
gl_wait_no_key();
gl_free_hd();
gl_quit();
}