void ultimate_bio(WORD p_a0)
{
character_texture_load(p_a0,CHAR_VS,p1_heap,SYNC_LOAD);
current_proc->a0=p_a0;
slide_in_left(p1_heap);
process_sleep(4);
lm_setup(pf_bio);
freeze_2_pages();
background_clear();
f_auto_erase=0;
text_draw=1;
mk_printf(bio_titles[p_a0]);
text_draw=0;
process_sleep(1);
noflip=1;
process_sleep(0x10);
//-DHS- send_code_a3(0x25);
process_sleep(0x40*10);
//-DHS- send_code_a3(0x27);
process_sleep(0x40*2);
noflip=0;
f_auto_erase=1;
murder_myoinit_score();
clr_scrn();
process_sleep(10);
return;
}
/**
* @brief Cleans up and frees memory after the backgrounds.
*/
void background_free (void)
{
/* Free the Lua. */
background_clear();
if (bkg_def_L != NULL)
lua_close( bkg_def_L );
bkg_def_L = NULL;
/* Free the images. */
if (bkg_image_arr_ft != NULL) {
array_free( bkg_image_arr_ft );
bkg_image_arr_ft = NULL;
}
if (bkg_image_arr_bk != NULL) {
array_free( bkg_image_arr_bk );
bkg_image_arr_bk = NULL;
}
/* Free the Lua. */
if (bkg_cur_L == bkg_def_L) {
if (bkg_cur_L != NULL)
lua_close( bkg_cur_L );
bkg_cur_L = NULL;
bkg_def_L = NULL;
}
else {
if (bkg_cur_L != NULL)
lua_close( bkg_cur_L );
if (bkg_def_L != NULL)
lua_close( bkg_def_L );
bkg_cur_L = NULL;
bkg_def_L = NULL;
}
/* Free the stars. */
if (star_vertex != NULL) {
free(star_vertex);
star_vertex = NULL;
}
if (star_colour != NULL) {
free(star_colour);
star_colour = NULL;
}
nstars = 0;
mstars = 0;
}
/**
* @brief Clears any backgrounds that may currently be displaying.
*
* @luafunc clear()
*/
static int bkgL_clear( lua_State *L )
{
(void) L;
background_clear();
return 0;
}
