// seg000:0D20
void __pascal far load_lev_spr(int level) {
dat_type* dathandle;
short guardtype;
char filename[20];
dathandle = NULL;
current_level = next_level = level;
draw_rect(&screen_rect, 0);
free_optsnd_chtab();
snprintf(filename, sizeof(filename), "%s%s.DAT",
tbl_envir_gr[graphics_mode],
tbl_envir_ki[tbl_level_type[current_level]]
);
load_chtab_from_file(id_chtab_6_environment, 200, filename, 1<<5);
load_more_opt_graf(filename);
guardtype = tbl_guard_type[current_level];
if (guardtype != -1) {
if (guardtype == 0) {
dathandle = open_dat(tbl_level_type[current_level] ? "GUARD1.DAT" : "GUARD2.DAT", 0);
}
load_chtab_from_file(id_chtab_5_guard, 750, tbl_guard_dat[guardtype], 1<<8);
if (dathandle) {
close_dat(dathandle);
}
}
curr_guard_color = 0;
load_chtab_from_file(id_chtab_7_environmentwall, 360, filename, 1<<6);
// Level colors (1.3)
if (graphics_mode == gmMcgaVga && level_var_palettes != NULL) {
int level_color = tbl_level_color[current_level];
if (level_color != 0) {
byte* env_pal = level_var_palettes + 0x30*(level_color-1);
byte* wall_pal = env_pal + 0x30 * tbl_level_type[current_level];
set_pal_arr(0x50, 0x10, (rgb_type*)env_pal, 1);
set_pal_arr(0x60, 0x10, (rgb_type*)wall_pal, 1);
set_chtab_palette(chtab_addrs[id_chtab_6_environment], env_pal, 0x10);
set_chtab_palette(chtab_addrs[id_chtab_7_environmentwall], wall_pal, 0x10);
}
}
/*if (comp_skeleton[current_level])*/ {
load_opt_sounds(44, 44); // skel alive
}
/*if (comp_mirror[current_level])*/ {
load_opt_sounds(45, 45); // mirror
}
/*if (comp_chomper[current_level])*/ {
load_opt_sounds(46, 47); // something chopped, chomper
}
/*if (comp_spike[current_level])*/ {
load_opt_sounds(48, 49); // something spiked, spikes
}
}
// seg000:024F
void __pascal far init_game_main() {
doorlink1_ad = /*&*/level.doorlinks1;
doorlink2_ad = /*&*/level.doorlinks2;
prandom(1);
if (graphics_mode == gmMcgaVga) {
// Guard palettes
guard_palettes = (byte*) load_from_opendats_alloc(10, "bin", NULL, NULL);
// (blood, hurt flash) #E00030 = red
set_pal(12, 0x38, 0x00, 0x0C, 1);
// (palace wall pattern) #C09850 = light brown
set_pal( 6, 0x30, 0x26, 0x14, 0);
// Level color variations (1.3)
level_var_palettes = load_from_opendats_alloc(20, "bin", NULL, NULL);
}
// PRINCE.DAT: sword
chtab_addrs[id_chtab_0_sword] = load_sprites_from_file(700, 1<<2, 1);
// PRINCE.DAT: flame, sword on floor, potion
chtab_addrs[id_chtab_1_flameswordpotion] = load_sprites_from_file(150, 1<<3, 1);
close_dat(dathandle);
load_sounds(0, 43);
load_opt_sounds(43, 56); //added
hof_read();
show_use_fixes_and_enhancements_prompt(); // added
start_game();
}
// seg001:09D7
void __pascal far end_sequence() {
peel_type* peel;
short bgcolor;
short color;
rect_type rect;
short hof_index;
short i;
color = 0;
bgcolor = 15;
load_intro(1, &end_sequence_anim, 1);
clear_screen_and_sounds();
load_opt_sounds(sound_56_ending_music, sound_56_ending_music); // winning theme
play_sound_from_buffer(sound_pointers[sound_56_ending_music]); // winning theme
if(offscreen_surface) free_surface(offscreen_surface); // missing in original
offscreen_surface = make_offscreen_buffer(&screen_rect);
load_title_images(0);
current_target_surface = offscreen_surface;
draw_image_2(0 /*story frame*/, chtab_title40, 0, 0, 0);
draw_image_2(3 /*The tyrant Jaffar*/, chtab_title40, 24, 25, get_text_color(15, color_15_brightwhite, 0x800));
fade_in_2(offscreen_surface, 0x800);
pop_wait(timer_0, 900);
start_timer(timer_0, 240);
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, 0);
transition_ltr();
do_wait(timer_0);
for (hof_index = 0; hof_index < hof_count; ++hof_index) {
if (hof[hof_index].min < rem_min ||
(hof[hof_index].min == rem_min && hof[hof_index].tick < rem_tick)
) break;
}
if (hof_index < MAX_HOF_COUNT && hof_index <= hof_count) {
fade_out_2(0x1000);
for (i = 5; hof_index + 1 <= i; --i) {
hof[i] = hof[i - 1];
}
hof[i].name[0] = 0;
hof[i].min = rem_min;
hof[i].tick = rem_tick;
if (hof_count < MAX_HOF_COUNT) {
++hof_count;
}
draw_image_2(0 /*story frame*/, chtab_title40, 0, 0, 0);
draw_image_2(3 /*Prince Of Persia*/, chtab_title50, 24, 24, blitters_10h_transp);
show_hof();
offset4_rect_add(&rect, &hof_rects[hof_index], -4, -1, -40, -1);
peel = read_peel_from_screen(&rect);
if (graphics_mode == gmMcgaVga) {
color = 0xBE;
bgcolor = 0xB7;
}
draw_rect(&rect, bgcolor);
fade_in_2(offscreen_surface, 0x1800);
current_target_surface = onscreen_surface_;
while(input_str(&rect, hof[hof_index].name, 24, "", 0, 4, color, bgcolor) <= 0);
restore_peel(peel);
show_hof_text(&hof_rects[hof_index], -1, 0, hof[hof_index].name);
hof_write();
pop_wait(timer_0, 120);
current_target_surface = offscreen_surface;
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, blitters_0_no_transp);
transition_ltr();
}
while (check_sound_playing() && !key_test_quit()) idle();
fade_out_2(0x1000);
start_level = 0;
start_game();
}
// seg000:17E6
void __pascal far show_title() {
word textcolor;
load_opt_sounds(sound_50_story_2_princess, sound_55_story_1_absence); // main theme, story, princess door
textcolor = get_text_color(15, color_15_white, 0x800);
dont_reset_time = 0;
if(offscreen_surface) free_surface(offscreen_surface); // missing in original
offscreen_surface = make_offscreen_buffer(&screen_rect);
load_title_images(1);
current_target_surface = offscreen_surface;
do_wait(timer_0);
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, blitters_0_no_transp);
fade_in_2(offscreen_surface, 0x1000); //STUB
method_1_blit_rect(onscreen_surface_, offscreen_surface, &screen_rect, &screen_rect, blitters_0_no_transp);
play_sound_from_buffer(sound_pointers[54]); // main theme
start_timer(timer_0, 0x82);
draw_image_2(1 /*Broderbund Software presents*/, chtab_title50, 96, 106, blitters_0_no_transp);
do_wait(timer_0);
start_timer(timer_0,0xCD);
method_1_blit_rect(onscreen_surface_, offscreen_surface, &rect_titles, &rect_titles, blitters_0_no_transp);
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, blitters_0_no_transp);
do_wait(timer_0);
start_timer(timer_0,0x41);
method_1_blit_rect(onscreen_surface_, offscreen_surface, &rect_titles, &rect_titles, blitters_0_no_transp);
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, blitters_0_no_transp);
draw_image_2(2 /*a game by Jordan Mechner*/, chtab_title50, 96, 122, blitters_0_no_transp);
do_wait(timer_0);
start_timer(timer_0,0x10E);
method_1_blit_rect(onscreen_surface_, offscreen_surface, &rect_titles, &rect_titles, blitters_0_no_transp);
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, blitters_0_no_transp);
do_wait(timer_0);
start_timer(timer_0,0xEB);
method_1_blit_rect(onscreen_surface_, offscreen_surface, &rect_titles, &rect_titles, blitters_0_no_transp);
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, blitters_0_no_transp);
draw_image_2(3 /*Prince Of Persia*/, chtab_title50, 24, 107, blitters_10h_transp);
draw_image_2(4 /*Copyright 1990 Jordan Mechner*/, chtab_title50, 48, 184, blitters_0_no_transp);
do_wait(timer_0);
method_1_blit_rect(onscreen_surface_, offscreen_surface, &rect_titles, &rect_titles, blitters_0_no_transp);
draw_image_2(0 /*story frame*/, chtab_title40, 0, 0, blitters_0_no_transp);
draw_image_2(1 /*In the Sultan's absence*/, chtab_title40, 24, 25, textcolor);
current_target_surface = onscreen_surface_;
while (check_sound_playing()) {
idle();
do_paused();
}
// method_1_blit_rect(onscreen_surface_, offscreen_surface, &screen_rect, &screen_rect, blitters_0_no_transp);
play_sound_from_buffer(sound_pointers[sound_55_story_1_absence]); // story 1: In the absence
transition_ltr();
pop_wait(timer_0, 0x258);
fade_out_2(0x800);
release_title_images();
load_intro(0, &pv_scene, 0);
load_title_images(1);
current_target_surface = offscreen_surface;
draw_image_2(0 /*story frame*/, chtab_title40, 0, 0, blitters_0_no_transp);
draw_image_2(2 /*Marry Jaffar*/, chtab_title40, 24, 25, textcolor);
fade_in_2(offscreen_surface, 0x800);
draw_image_2(0 /*main title image*/, chtab_title50, 0, 0, blitters_0_no_transp);
draw_image_2(3 /*Prince Of Persia*/, chtab_title50, 24, 107, blitters_10h_transp);
draw_image_2(4 /*Copyright 1990 Jordan Mechner*/, chtab_title50, 48, 184, blitters_0_no_transp);
while (check_sound_playing()) {
idle();
do_paused();
}
transition_ltr();
pop_wait(timer_0, 0x78);
draw_image_2(0 /*story frame*/, chtab_title40, 0, 0, blitters_0_no_transp);
draw_image_2(4 /*credits*/, chtab_title40, 24, 26, textcolor);
transition_ltr();
pop_wait(timer_0, 0x168);
if (hof_count) {
draw_image_2(0 /*story frame*/, chtab_title40, 0, 0, blitters_0_no_transp);
draw_image_2(3 /*Prince Of Persia*/, chtab_title50, 24, 24, blitters_10h_transp);
show_hof();
transition_ltr();
pop_wait(timer_0, 0xF0);
}
current_target_surface = onscreen_surface_;
while (check_sound_playing()) {
idle();
do_paused();
}
fade_out_2(0x1800);
free_surface(offscreen_surface);
offscreen_surface = NULL; // added
release_title_images();
init_game(0);
}
