mirror of https://github.com/nmlgc/ReC98.git
76 lines
1.6 KiB
C
76 lines
1.6 KiB
C
|
/* ReC98
|
||
|
|
* -----
|
||
|
|
* 2nd part of ZUN_RES.COM. Initializes the high score lists.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "th02/th02.h"
|
||
|
|
|
||
|
|
extern score_file_t hi;
|
||
|
|
extern const char *SCORE_FN;
|
||
|
|
|
||
|
|
char rank;
|
||
|
|
|
||
|
|
// Slightly differs from the same function in MAINE.EXE!
|
||
|
|
// And seriously, I wasted half a week trying to figure out how to get these
|
||
|
|
// exact same instructions out of the compiler, and it just didn't work.
|
||
|
|
void pascal score_defaults_set(void)
|
||
|
|
{
|
||
|
|
_SI = 0;
|
||
|
|
_DI = 1000 * SCORE_PLACES;
|
||
|
|
goto place_loop;
|
||
|
|
|
||
|
|
place_set:
|
||
|
|
hi.score.cleared = 0;
|
||
|
|
hi.score.points[_SI] = _DI;
|
||
|
|
_DI -= 1000;
|
||
|
|
hi.score.stage[_SI] = 5 - ((int)_SI >> 1);
|
||
|
|
_BX = _SI;
|
||
|
|
asm {
|
||
|
|
imul bx, bx, 7
|
||
|
|
mov cx, 6
|
||
|
|
|
||
|
|
name_loop:
|
||
|
|
mov byte ptr hi.(score_file_t)score.g_name[bx], gs_BULLET
|
||
|
|
inc bx
|
||
|
|
loop name_loop
|
||
|
|
mov byte ptr hi.(score_file_t)score.g_name[bx], 0
|
||
|
|
}
|
||
|
|
_BX = _SI;
|
||
|
|
_BX <<= 2;
|
||
|
|
asm {
|
||
|
|
mov word ptr hi.(score_file_t)score.date[bx].da_year, 1900
|
||
|
|
mov byte ptr hi.(score_file_t)score.date[bx].da_day, 1
|
||
|
|
mov byte ptr hi.(score_file_t)score.date[bx].da_mon, 1
|
||
|
|
mov byte ptr hi.(score_file_t)score.shottype[si], 1
|
||
|
|
inc si
|
||
|
|
|
||
|
|
place_loop:
|
||
|
|
cmp si, SCORE_PLACES
|
||
|
|
jge end
|
||
|
|
jmp place_set
|
||
|
|
}
|
||
|
|
end:
|
||
|
|
}
|
||
|
|
|
||
|
|
#include "th02/scoreenc.c"
|
||
|
|
|
||
|
|
void pascal score_create(void)
|
||
|
|
{
|
||
|
|
HI_SCORE_ENCODE();
|
||
|
|
file_create(SCORE_FN);
|
||
|
|
file_write(&hi, sizeof(hi));
|
||
|
|
file_write(&hi, sizeof(hi));
|
||
|
|
file_write(&hi, sizeof(hi));
|
||
|
|
file_write(&hi, sizeof(hi));
|
||
|
|
file_write(&hi, sizeof(hi));
|
||
|
|
file_close();
|
||
|
|
}
|
||
|
|
|
||
|
|
void pascal score_recreate(void)
|
||
|
|
{
|
||
|
|
score_defaults_set();
|
||
|
|
score_create();
|
||
|
|
}
|
||
|
|
|
||
|
|
#include "th02\scorelod.c"
|