Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[C decompilation] [th02/op] High score screen

This commit is contained in:
nmlgc 2015-03-03 04:25:19 +01:00
parent 87b1fb9e14
commit 63299cdf42
8 changed files with 274 additions and 854 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile.mak
View File

@ -39,7 +39,7 @@ bin\th01\fuuin.exe: bin\th01\fuuin.obj th01\fuuin_11.c th01\fuuin_13.c
$**
|
bin\th02\op.exe: bin\th02\op.obj th02\op_03.c th02\op_05.c th02\op_06.c
bin\th02\op.exe: bin\th02\op.obj th02\op_03.c th02\op_04.c th02\op_05.c th02\op_06.c
$(CC) $(CFLAGS) -ml -Z -DGAME=2 -nbin\th02\ -eOP.EXE @&&|
$**
|

9
th01/ranks.h Normal file
View File

@ -0,0 +1,9 @@
// Rank definitions
typedef enum {
RANK_EASY,
RANK_NORMAL,
RANK_HARD,
RANK_LUNATIC,
RANK_EXTRA,
RANK_COUNT
} rank_t;

15
th02/maine_04.c
View File

@ -6,7 +6,7 @@
#include <master.h>
#include "th02\th02.h"
#include "th02\strings\score.c"
#include "th02\score.c"
extern char rank;
extern long score;
@ -34,7 +34,7 @@ void pascal score_defaults_set(void)
}
}
#include "th02\formats\scorelod.c"
#include "th02\scorelod.c"
#define score_init() \
if(!file_exist(SCORE_FN)) { \
@ -67,13 +67,6 @@ void pascal score_points_put(unsigned y, long points, unsigned atrb)
#define ALPHABET_PUTCA(col, row, atrb) \
gaiji_putca(10 + (col * 2), 18 + row, gALPHABET[row][col], atrb);
#define ATRB_SET \
if(i == place_to_highlight) { \
atrb = TX_GREEN; \
} else { \
atrb = TX_WHITE; \
}
void pascal near scores_put(int place_to_highlight)
{
unsigned atrb = TX_WHITE;
@ -92,7 +85,7 @@ void pascal near scores_put(int place_to_highlight)
ALPHABET_PUTCA(0, 0, TX_GREEN | TX_REVERSE);
}
for(i = 0; i < SCORE_PLACES; i++) {
ATRB_SET;
ATRB_SET(i);
gaiji_putsa(10, 6+i, (const char*)hi.score.g_name[i], atrb);
score_points_put(6+i, hi.score.points[i], atrb);
if(hi.score.stage[i] != STAGE_ALL) {
@ -102,7 +95,7 @@ void pascal near scores_put(int place_to_highlight)
}
}
for(i = 0; i < SCORE_PLACES; i++) {
ATRB_SET;
ATRB_SET(i);
if(i != 9) {
gaiji_putca(6, 6+i, GB_DIGITS+i+1, atrb);
} else {

217
th02/op_04.c Normal file
View File

@ -0,0 +1,217 @@
/* ReC98
* -----
* Code segment #4 of TH02's OP.EXE
*/
#include <master.h>
#include <mbctype.h>
#include <mbstring.h>
#include "th02\th02.h"
char rank = RANK_NORMAL;
#include "th02\score.c"
const unsigned char gbcRANK[4][8] = {
gb_SP, gb_E_, gb_A_, gb_S_, gb_Y_, gb_SP, gb_SP, 0,
gb_N_, gb_O_, gb_R_, gb_M_, gb_A_, gb_L_, gb_SP, 0,
gb_SP, gb_H_, gb_A_, gb_R_, gb_D_, gb_SP, gb_SP, 0,
gb_L_, gb_U_, gb_N_, gb_A_, gb_T_, gb_I_, gb_C_, 0,
};
const char *SHOTTYPES[] = {"高機動", "防御", "攻撃"};
int logo_step = 0;
char need_op_h_bft = 1;
score_file_t hi;
char extra_unlocked;
unsigned score_duration;
#include "th02\scorelod.c"
// Slightly differs from the same function in MAINE.EXE!
void pascal near score_points_put(unsigned y, long points, unsigned atrb)
{
unsigned digit = GB_DIGITS;
long divisor = 10000000;
long result;
char putting = 0;
int i;
for(i = 0; i < 8; i++) {
result = divisor ? (points / divisor) % 10 : points % 10;
divisor /= 10;
digit = result + GB_DIGITS;
if(result) {
putting = 1;
}
if(putting) {
gaiji_putca((i * 2) + 26, y, digit, atrb);
}
}
}
void pascal near shottype_put(int y, int type, int atrb)
{
text_putsa(48, y, SHOTTYPES[type], atrb);
}
void int_to_string(char *str, int val, int chars)
{
int divisor = 1;
int c = 1;
while(c < chars) {
divisor *= 10;
c++;
}
c = 0;
while(c < chars) {
int result = (val / divisor) % 10;
str[c] = result + '0';
divisor /= 10;
c++;
}
str[c] = 0;
}
void pascal near score_date_put(int y, int place, int atrb)
{
char str[6];
int_to_string(str, hi.score.date[place].da_year, 4);
text_putsa(56, y, str, atrb);
int_to_string(str, hi.score.date[place].da_mon, 2);
text_putca(60, y, '/', atrb);
text_putsa(61, y, str, atrb);
int_to_string(str, hi.score.date[place].da_day, 2);
text_putca(63, y, '/', atrb);
text_putsa(64, y, str, atrb);
}
void pascal near scores_put(int place_to_highlight)
{
unsigned atrb = TX_WHITE;
int i;
gaiji_putsa(22, 2, gbHI_SCORE, TX_GREEN);
gaiji_putsa(40, 2, gbcRANK[rank], TX_GREEN);
text_putsa(
8, 4,
" お名前　　　　　　得点　　　 STAGE TYPE 日付",
TX_GREEN
);
for(i = 0; i < SCORE_PLACES; i++) {
ATRB_SET(i);
gaiji_putsa(12, 7+i, hi.score.g_name[i], atrb);
score_points_put(7+i, hi.score.points[i], atrb);
if(hi.score.stage[i] != STAGE_ALL) {
gaiji_putca(44, 7+i, hi.score.stage[i] + GB_DIGITS, atrb);
} else {
gaiji_putca(44, 7+i, gs_ALL, atrb);
}
shottype_put(7+i, hi.score.shottype[i], atrb);
score_date_put(7+i, i, atrb);
}
for(i = 0; i < SCORE_PLACES; i++) {
ATRB_SET(i);
if(i != 9) {
gaiji_putca(9, 7+i, GB_DIGITS+i+1, atrb);
} else {
gaiji_putca(8, 16, gb_1_, atrb);
gaiji_putca(10, 16, gb_0_, atrb);
}
}
}
void pascal near logo_render(void)
{
int i;
int x, y;
grcg_setcolor(GC_RMW, 10);
grcg_fill();
grcg_off();
logo_step++;
#define RENDER(offset) for(i = 0; i < 4; i++) { \
x = logo_step + (160 * i) + offset; \
x %= 640; \
y = (i * 100) - logo_step; \
while(1) { \
if(y < 0) { \
y += 400; \
} else { \
break; \
} \
} \
super_put_rect(x, y, 0); \
super_put_rect(x + 64, y, 1); \
}
RENDER(0);
RENDER(320);
}
void pascal score_menu(void)
{
int input_allowed = 0;
char page = 0;
score_load();
graph_accesspage(0); graph_clear();
graph_accesspage(1); graph_clear();
if(need_op_h_bft) {
need_op_h_bft = 0;
super_entry_bfnt("op_h.bft");
}
palette_entry_rgb("op_h.rgb");
palette_show();
grc_setclip(128, 96, 512, 304);
grcg_setcolor(GC_RMW, 10);
grcg_fill();
grcg_off();
scores_put(-1);
logo_step = 0;
graph_accesspage(0);
page = 1 - page;
graph_showpage(1);
do {
input_sense();
if(!input_allowed && !input) {
input_allowed = 1;
} else if(input_allowed == 1 && input) {
break;
}
logo_render();
frame_delay(1);
graph_accesspage(page);
graph_showpage(page = 1 - page);
} while(logo_step <= score_duration);
input = 0;
frame_delay(20);
grc_setclip(0, 0, 639, 399);
}
int pascal score_cleared_load(void)
{
int game_clear_constants[SHOTTYPE_COUNT] = GAME_CLEAR_CONSTANTS;
unsigned char extra_clear_flags[SHOTTYPE_COUNT] = EXTRA_CLEAR_FLAGS;
int extra_unlocked = 1;
int shottype;
for(rank = 0; rank < 3; rank++) {
score_load();
if(hi.score.cleared != game_clear_constants[rank]) {
cleared_game_with[rank] = 0;
extra_unlocked = 0;
} else {
cleared_game_with[rank] = 1;
}
}
rank = 3;
score_load();
for(shottype = 0; shottype < 3; shottype++) {
if(hi.score.cleared & extra_clear_flags[shottype]) {
cleared_extra_with[shottype] = 1;
} else {
cleared_extra_with[shottype] = 0;
}
}
return extra_unlocked;
}

12
th02/strings/score.c → th02/score.c
View File

@ -1,3 +1,8 @@
/* ReC98
* -----
* Shared high score code
*/
const char *SCORE_FN = "huuhi.dat";
const unsigned char gbHI_SCORE[] = {
gb_H_, gb_I_, gb_SP, gb_S_, gb_C_, gb_O_, gb_R_, gb_E_, 0
@ -19,3 +24,10 @@ const unsigned char gALPHABET[ALPHABET_ROWS][ALPHABET_COLS] = {
const unsigned char gbNAME[] = {gb_N_, gb_A_, gb_M_, gb_E_, 0};
const unsigned char gbPOINT[] = {gb_P_, gb_O_, gb_I_, gb_N_, gb_T_, 0};
const unsigned char gbST[] = {gb_S_, gb_T_, 0};
#define ATRB_SET(place) \
if((place) == place_to_highlight) { \
atrb = TX_GREEN; \
} else { \
atrb = TX_WHITE; \
}

0
th02/formats/scorelod.c → th02/scorelod.c
View File

4
th02/th02.h
View File

@ -4,6 +4,7 @@
*/
#include "ReC98.h"
#include "th01\ranks.h"
// Formats
#define PI_SLOTS 6
@ -206,3 +207,6 @@ typedef struct {
score_t score;
long score_sum; // Sum of all bytes in score, pre-encraption
} score_file_t;
extern char cleared_game_with[SHOTTYPE_COUNT];
extern char cleared_extra_with[SHOTTYPE_COUNT];

869
th02_op.asm
View File

@ -175,7 +175,7 @@ loc_9C0E:
push 8
call file_read
mov al, [bp+var_8]
mov byte_DC34, al
mov _rank, al
mov al, [bp+var_7]
mov _snd_bgm_mode, al
mov al, [bp+var_6]
@ -248,7 +248,7 @@ var_2 = word ptr -2
mov [bp+var_2], ds
mov [bp+var_4], 163h
mov [bp+var_5], 0
mov al, byte_DC34
mov al, _rank
mov [bp+var_C], al
mov al, _snd_bgm_mode
mov [bp+var_B], al
@ -527,7 +527,7 @@ sub_9FAF proc far
mov bp, sp
call sub_9F37
les bx, _mikoconfig
mov al, byte_DC34
mov al, _rank
mov es:[bx+mikoconfig_t.rank], al
mov es:[bx+mikoconfig_t.stage], 0
call sub_9CA2
@ -720,7 +720,7 @@ sub_A150 proc near
push 174h
push 10h
push ds
mov al, byte_DC34
mov al, _rank
cbw
shl ax, 3
add ax, offset gcEASY
@ -801,7 +801,7 @@ loc_A248:
loc_A24E:
cmp si, 1
jnz short loc_A274
cmp byte_F4A2, 0
cmp _extra_unlocked, 0
jz short loc_A265
push 29
push 17
@ -826,7 +826,7 @@ loc_A274:
push 38
push 23
push ds
mov al, byte_DC34
mov al, _rank
cbw
shl ax, 3
add ax, offset gcEASY
@ -858,7 +858,7 @@ arg_2 = byte ptr 6
add byte_D6C0, al
cmp byte_D6C1, 0
jnz short loc_A2D1
cmp byte_F4A2, 0
cmp _extra_unlocked, 0
jnz short loc_A2D1
cmp byte_D6C0, 1
jnz short loc_A2D1
@ -994,9 +994,9 @@ loc_A3B5:
; ---------------------------------------------------------------------------
loc_A3BC:
mov word_F4A4, 7D0h
mov _score_duration, 7D0h
call text_clear
call sub_B77E
call score_menu
mov dx, 0A6h ; '¦'
mov al, 1
out dx, al
@ -1155,7 +1155,7 @@ arg_2 = word ptr 6
push 42
push 16
push ds
mov al, byte_DC34
mov al, _rank
cbw
shl ax, 3
add ax, offset gcEASY
@ -1171,7 +1171,7 @@ arg_2 = word ptr 6
push 104h
push 10h
push ds
mov al, byte_DC34
mov al, _rank
cbw
shl ax, 3
add ax, offset gcEASY
@ -1472,10 +1472,10 @@ loc_A7DB:
jmp cs:off_A9AF[bx]
loc_A7F8:
inc byte_DC34
cmp byte_DC34, 3
inc _rank
cmp _rank, 3
jle short loc_A851
mov byte_DC34, 0
mov _rank, 0
jmp short loc_A851
; ---------------------------------------------------------------------------
@ -1536,10 +1536,10 @@ loc_A866:
jmp cs:off_A9A5[bx]
loc_A883:
dec byte_DC34
cmp byte_DC34, 0
dec _rank
cmp _rank, 0
jge short loc_A8DC
mov byte_DC34, 3
mov _rank, 3
jmp short loc_A8DC
; ---------------------------------------------------------------------------
@ -1602,7 +1602,7 @@ loc_A8F8:
; ---------------------------------------------------------------------------
loc_A908:
mov byte_DC34, 1
mov _rank, 1
mov _snd_bgm_mode, SND_BGM_FM
kajacall KAJA_SONG_STOP
mov _snd_midi_active, 0
@ -1686,8 +1686,8 @@ _envp = dword ptr 0Ch
; ---------------------------------------------------------------------------
loc_A9DD:
call sub_B86E
mov byte_F4A2, al
call score_cleared_load
mov _extra_unlocked, al
call sub_9BF0
cmp ax, 1
jnz short loc_A9F3
@ -1722,8 +1722,8 @@ loc_AA1C:
mov byte_E8FE, 1
loc_AA35:
mov word_F4A4, 15Eh
call sub_B77E
mov _score_duration, 15Eh
call score_menu
mov dx, 0A4h ; '¤'
mov al, 0
out dx, al
@ -2390,748 +2390,8 @@ op_03_TEXT ends
; Segment type: Pure code
op_04_TEXT segment byte public 'CODE' use16
assume cs:op_04_TEXT
;org 1
assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B3B1 proc near
push bp
mov bp, sp
push si
push word ptr HUUHI_DAT+2
push word ptr HUUHI_DAT
call file_ropen
mov al, byte_DC34
cbw
imul ax, 0B6h
push 0
push ax
push 0
call file_seek
push ds
push offset word_F3EC
push 0B6h ; 'ｶ'
call file_read
xor si, si
jmp short loc_B3EF
; ---------------------------------------------------------------------------
loc_B3E4:
mov al, [si+1DBCh]
add al, 0EEh
mov [si+1DBCh], al
inc si
loc_B3EF:
cmp si, 0B2h ; 'ｲ'
jl short loc_B3E4
call file_close
pop si
pop bp
retn
sub_B3B1 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B3FD proc near
var_9 = byte ptr -9
var_8 = word ptr -8
var_6 = word ptr -6
var_4 = word ptr -4
var_2 = word ptr -2
arg_0 = word ptr 4
arg_2 = word ptr 6
arg_4 = word ptr 8
arg_6 = word ptr 0Ah
enter 0Ah, 0
push si
push di
mov di, 0A0h
mov [bp+var_2], 98h
mov [bp+var_4], 9680h
mov [bp+var_9], 0
xor si, si
jmp short loc_B492
; ---------------------------------------------------------------------------
loc_B418:
mov ax, [bp+var_4]
or ax, [bp+var_2]
jz short loc_B439
push 0
push 0Ah
push [bp+var_2]
push [bp+var_4]
push [bp+arg_4]
push [bp+arg_2]
call far ptr LDIV@
push dx
push ax
jmp short loc_B443
; ---------------------------------------------------------------------------
loc_B439:
push 0
push 0Ah
push [bp+arg_4]
push [bp+arg_2]
loc_B443:
call far ptr F_LMOD@
mov [bp+var_6], dx
mov [bp+var_8], ax
push 0
push 0Ah
push [bp+var_2]
push [bp+var_4]
call far ptr LDIV@
mov [bp+var_2], dx
mov [bp+var_4], ax
mov ax, [bp+var_8]
add ax, 0A0h
mov di, ax
mov ax, [bp+var_8]
or ax, [bp+var_6]
jz short loc_B477
mov [bp+var_9], 1
loc_B477:
cmp [bp+var_9], 0
jz short loc_B491
mov ax, si
add ax, ax
add ax, 1Ah
call gaiji_putca pascal, ax, [bp+arg_6], di, [bp+arg_0]
loc_B491:
inc si
loc_B492:
cmp si, 8
jl short loc_B418
pop di
pop si
leave
retn 8
sub_B3FD endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B49D proc near
arg_0 = word ptr 4
arg_2 = word ptr 6
arg_4 = word ptr 8
push bp
mov bp, sp
push 48
push [bp+arg_4]
mov bx, [bp+arg_2]
shl bx, 2
push word ptr (HISCORE_TYPE+2)[bx]
push word ptr HISCORE_TYPE[bx]
push [bp+arg_0]
call text_putsa
pop bp
retn 6
sub_B49D endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B4BF proc far
var_2 = word ptr -2
arg_0 = dword ptr 6
arg_4 = word ptr 0Ah
arg_6 = word ptr 0Ch
enter 2, 0
push si
push di
mov di, [bp+arg_6]
mov si, 1
mov cx, 1
jmp short loc_B4D8
; ---------------------------------------------------------------------------
loc_B4D0:
mov ax, 0Ah
imul si
mov si, ax
inc cx
loc_B4D8:
cmp cx, di
jl short loc_B4D0
xor cx, cx
jmp short loc_B507
; ---------------------------------------------------------------------------
loc_B4E0:
mov ax, [bp+arg_4]
cwd
idiv si
mov bx, 0Ah
cwd
idiv bx
mov [bp+var_2], dx
les bx, [bp+arg_0]
add bx, cx
mov al, byte ptr [bp+var_2]
add al, 30h ; '0'
mov es:[bx], al
mov bx, 0Ah
mov ax, si
cwd
idiv bx
mov si, ax
inc cx
loc_B507:
cmp cx, di
jl short loc_B4E0
les bx, [bp+arg_0]
add bx, cx
mov byte ptr es:[bx], 0
pop di
pop si
leave
retf
sub_B4BF endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B518 proc near
var_6 = byte ptr -6
arg_0 = word ptr 4
arg_2 = word ptr 6
arg_4 = word ptr 8
enter 6, 0
push si
push di
mov si, [bp+arg_4]
mov di, [bp+arg_0]
push 4
mov bx, [bp+arg_2]
shl bx, 2
push word ptr [bx+1E3Ch]
push ss
lea ax, [bp+var_6]
push ax
call sub_B4BF
push 56
push si
push ss
lea ax, [bp+var_6]
push ax
push di
call text_putsa
push 2
mov bx, [bp+arg_2]
shl bx, 2
mov al, [bx+1E3Fh]
cbw
push ax
push ss
lea ax, [bp+var_6]
push ax
call sub_B4BF
call text_putca pascal, 60, si, '/', di
push 61
push si
push ss
lea ax, [bp+var_6]
push ax
push di
call text_putsa
push 2
mov bx, [bp+arg_2]
shl bx, 2
mov al, [bx+1E3Eh]
cbw
push ax
push ss
lea ax, [bp+var_6]
push ax
call sub_B4BF
add sp, 18h
call text_putca pascal, 63, si, '/', di
push 64
push si
push ss
lea ax, [bp+var_6]
push ax
push di
call text_putsa
pop di
pop si
leave
retn 6
sub_B518 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B5B0 proc near
arg_0 = word ptr 4
push bp
mov bp, sp
push si
push di
mov di, TX_WHITE
call gaiji_putsa pascal, 22, 2, ds, offset gHI_SCORE, TX_GREEN
push 40
push 2
push ds
mov al, byte_DC34
cbw
shl ax, 3
add ax, offset gcEASY_0
push ax
push TX_GREEN
call gaiji_putsa
call text_putsa pascal, 8, 4, ds, offset aHISCORE_HEAD, TX_GREEN
xor si, si
jmp short loc_B66D
; ---------------------------------------------------------------------------
loc_B5F4:
cmp si, [bp+arg_0]
jnz short loc_B5FE
mov di, TX_GREEN
jmp short loc_B601
; ---------------------------------------------------------------------------
loc_B5FE:
mov di, TX_WHITE
loc_B601:
push 0Ch
lea ax, [si+7]
push ax
push ds
mov ax, si
imul ax, 7
add ax, 1DEAh
push ax
push di
call gaiji_putsa
lea ax, [si+7]
push ax
mov bx, si
shl bx, 2
push word ptr [bx+1DC0h]
push word ptr [bx+1DBEh]
push di
call sub_B3FD
cmp byte ptr [si+1E31h], 7Fh
jz short loc_B645
push 2Ch ; ','
lea ax, [si+7]
push ax
mov al, [si+1E31h]
mov ah, 0
add ax, 0A0h
push ax
jmp short loc_B64E
; ---------------------------------------------------------------------------
loc_B645:
push 44
lea ax, [si+7]
push ax
push 0F0h
loc_B64E:
push di
call gaiji_putca
lea ax, [si+7]
push ax
mov al, [si+1E64h]
mov ah, 0
push ax
push di
call sub_B49D
lea ax, [si+7]
push ax
push si
push di
call sub_B518
inc si
loc_B66D:
cmp si, 0Ah
jl short loc_B5F4
xor si, si
jmp short loc_B6B0
; ---------------------------------------------------------------------------
loc_B676:
cmp si, [bp+arg_0]
jnz short loc_B680
mov di, TX_GREEN
jmp short loc_B683
; ---------------------------------------------------------------------------
loc_B680:
mov di, TX_WHITE
loc_B683:
cmp si, 9
jz short loc_B695
push 9
lea ax, [si+7]
push ax
lea ax, [si+0A1h]
push ax
jmp short loc_B6A9
; ---------------------------------------------------------------------------
loc_B695:
call gaiji_putca pascal, 8, 16, 0A1h, di
push 10
push 16
push 0A0h
loc_B6A9:
push di
call gaiji_putca
inc si
loc_B6B0:
cmp si, 0Ah
jl short loc_B676
pop di
pop si
pop bp
retn 2
sub_B5B0 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B6BB proc near
var_2 = word ptr -2
enter 2, 0
push si
push di
call grcg_setcolor pascal, GC_RMW, 10
call grcg_fill
call grcg_off
inc word_DCB0
xor si, si
jmp short loc_B723
; ---------------------------------------------------------------------------
loc_B6DD:
mov ax, si
imul ax, 0A0h
add ax, word_DCB0
mov [bp+var_2], ax
mov bx, 280h
cwd
idiv bx
mov [bp+var_2], dx
mov ax, si
imul ax, 64h
sub ax, word_DCB0
mov di, ax
loc_B6FE:
or di, di
jge short loc_B708
add di, 190h
jmp short loc_B6FE
; ---------------------------------------------------------------------------
loc_B708:
push [bp+var_2]
push di
push 0
call super_put_rect
mov ax, [bp+var_2]
add ax, 40h
push ax
push di
push 1
call super_put_rect
inc si
loc_B723:
cmp si, 4
jl short loc_B6DD
xor si, si
jmp short loc_B775
; ---------------------------------------------------------------------------
loc_B72C:
mov ax, si
imul ax, 0A0h
add ax, word_DCB0
add ax, 140h
mov [bp+var_2], ax
mov bx, 280h
cwd
idiv bx
mov [bp+var_2], dx
mov ax, si
imul ax, 64h
sub ax, word_DCB0
mov di, ax
loc_B750:
or di, di
jge short loc_B75A
add di, 190h
jmp short loc_B750
; ---------------------------------------------------------------------------
loc_B75A:
push [bp+var_2]
push di
push 0
call super_put_rect
mov ax, [bp+var_2]
add ax, 40h
push ax
push di
push 1
call super_put_rect
inc si
loc_B775:
cmp si, 4
jl short loc_B72C
pop di
pop si
leave
retn
sub_B6BB endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B77E proc far
var_1 = byte ptr -1
enter 2, 0
push si
xor si, si
mov [bp+var_1], 0
call sub_B3B1
mov dx, 0A6h ; 'ｦ'
mov al, 0
out dx, al
call graph_clear
mov dx, 0A6h ; 'ｦ'
mov al, 1
out dx, al
call graph_clear
cmp byte_DCB2, 0
jz short loc_B7B7
mov byte_DCB2, 0
push ds
push offset aOp_h_bft ; "op_h.bft"
call super_entry_bfnt
loc_B7B7:
push ds
push offset aOp_h_rgb ; "op_h.rgb"
call palette_entry_rgb
call far ptr palette_show
push 80h
push 60h
push 200h
push 130h
call grc_setclip
call grcg_setcolor pascal, GC_RMW, 10
call grcg_fill
call grcg_off
push 0FFFFh
call sub_B5B0
mov word_DCB0, 0
mov dx, 0A6h ; 'ｦ'
mov al, 0
out dx, al
mov al, 1
sub al, [bp+var_1]
mov [bp+var_1], al
mov dx, 0A4h ; '､'
mov al, 1
out dx, al
loc_B808:
call _input_sense
or si, si
jnz short loc_B81D
cmp _input, 0
jnz short loc_B81D
mov si, 1
jmp short loc_B829
; ---------------------------------------------------------------------------
loc_B81D:
cmp si, 1
jnz short loc_B829
cmp _input, 0
jnz short loc_B84F
loc_B829:
call sub_B6BB
push 1
call frame_delay
mov dx, 0A6h ; 'ｦ'
mov al, [bp+var_1]
out dx, al
mov al, 1
sub al, [bp+var_1]
mov [bp+var_1], al
mov dx, 0A4h ; '､'
out dx, al
mov ax, word_DCB0
cmp ax, word_F4A4
jbe short loc_B808
loc_B84F:
mov _input, 0
push 14h
call frame_delay
push 0
push 0
push 27Fh
push 18Fh
call grc_setclip
pop si
leave
retf
sub_B77E endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B86E proc far
var_A = byte ptr -0Ah
var_6 = byte ptr -6
enter 0Ah, 0
push si
push di
lea ax, [bp+var_6]
push ss
push ax
push ds
push offset unk_DCB4
mov cx, 6
call SCOPY@
lea ax, [bp+var_A]
push ss
push ax
push ds
push offset unk_DCBA
mov cx, 3
call SCOPY@
mov di, 1
mov byte_DC34, 0
jmp short loc_B8D7
; ---------------------------------------------------------------------------
loc_B8A0:
call sub_B3B1
mov al, byte_DC34
cbw
add ax, ax
lea dx, [bp+var_6]
add ax, dx
mov bx, ax
mov ax, ss:[bx]
cmp ax, word_F3EC
jz short loc_B8C8
mov al, byte_DC34
cbw
mov bx, ax
mov byte ptr [bx+1E76h], 0
xor di, di
jmp short loc_B8D3
; ---------------------------------------------------------------------------
loc_B8C8:
mov al, byte_DC34
cbw
mov bx, ax
mov byte ptr [bx+1E76h], 1
loc_B8D3:
inc byte_DC34
loc_B8D7:
cmp byte_DC34, 3
jl short loc_B8A0
mov byte_DC34, 3
call sub_B3B1
xor si, si
jmp short loc_B902
; ---------------------------------------------------------------------------
loc_B8EA:
mov al, [bp+si+var_A]
mov ah, 0
test word_F3EC, ax
jz short loc_B8FC
mov byte ptr [si+1E79h], 1
jmp short loc_B901
; ---------------------------------------------------------------------------
loc_B8FC:
mov byte ptr [si+1E79h], 0
loc_B901:
inc si
loc_B902:
cmp si, 3
jl short loc_B8EA
mov ax, di
pop di
pop si
leave
retf
sub_B86E endp
extern SCORE_MENU:proc
extern SCORE_CLEARED_LOAD:proc
op_04_TEXT ends
; ===========================================================================
@ -3225,35 +2485,7 @@ aUmx db '
_snd_active db 0
db 0
include th02/hardware/snd_se[data].asm
byte_DC34 db 1
db 0
include th02/strings/hiscore[data].asm
gcEASY_0 db 0CFh, 0AEh, 0AAh, 0BCh, 0C2h, 0CFh, 0CFh, 0
gcNORMAL_0 db 0B6h, 0B8h, 0BBh, 0B7h, 0AAh, 0B5h, 0CFh, 0
gcHARD_0 db 0CFh, 0B1h, 0AAh, 0BBh, 0ADh, 0CFh, 0CFh, 0
gcLUNATIC_0 db 0B5h, 0BEh, 0B6h, 0AAh, 0BDh, 0B2h, 0ACh, 0
HISCORE_TYPE dd aKOUKIDOU ; "高機動"
dd aBOUGYO ; "防御"
dd aKOUGEKI ; "攻撃"
word_DCB0 dw 0
byte_DCB2 db 1
db 0
unk_DCB4 db 3Eh ; >
db 1
db 76h ; v
db 0
db 0DAh ; ﾚ
db 0
unk_DCBA db 1
db 2
db 4
aHuuhi_dat db 'huuhi.dat',0
aKOUKIDOU db '高機動',0
aBOUGYO db '防御',0
aKOUGEKI db '攻撃',0
aHISCORE_HEAD db ' お名前　　　　　　得点　　　 STAGE TYPE 日付',0
aOp_h_bft db 'op_h.bft',0
aOp_h_rgb db 'op_h.rgb',0
extern _rank:byte
.data?
@ -3287,54 +2519,7 @@ byte_F3E2 db ?
dd ? ;
dd ? ;
db ? ;
word_F3EC dw ?
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
byte_F4A2 db ?
db ?
word_F4A4 dw ?
extern _extra_unlocked:byte
extern _score_duration:word
end