Add table assertions to slot machine data

This commit is contained in:
Rangi 2021-10-15 22:15:00 -04:00
parent 81f0cacefb
commit d4a6a1b2bc

View File

@ -1,12 +1,16 @@
SLOTS_NO_BIAS EQU -1 ; wSlotMatched values
const_def 0, 4
const SLOTS_SEVEN ; $00
const SLOTS_POKEBALL ; $04
const SLOTS_CHERRY ; $08
const SLOTS_PIKACHU ; $0c
const SLOTS_SQUIRTLE ; $10
const SLOTS_STARYU ; $14
NUM_SLOT_REELS EQU const_value / 4 ; 6
SLOTS_NO_MATCH EQU -1 SLOTS_NO_MATCH EQU -1
SLOTS_SEVEN EQU $00 ; wSlotBias values
SLOTS_POKEBALL EQU $04 SLOTS_NO_BIAS EQU -1
SLOTS_CHERRY EQU $08
SLOTS_PIKACHU EQU $0c
SLOTS_SQUIRTLE EQU $10
SLOTS_STARYU EQU $14
REEL_SIZE EQU 15 REEL_SIZE EQU 15
@ -860,12 +864,14 @@ GetUnknownSlotReelData: ; unreferenced
ret ret
.data: .data:
table_width 1, GetUnknownSlotReelData.data
db 0 ; SLOTS_SEVEN db 0 ; SLOTS_SEVEN
db 1 ; SLOTS_POKEBALL db 1 ; SLOTS_POKEBALL
db 2 ; SLOTS_CHERRY db 2 ; SLOTS_CHERRY
db 3 ; SLOTS_PIKACHU db 3 ; SLOTS_PIKACHU
db 4 ; SLOTS_SQUIRTLE db 4 ; SLOTS_SQUIRTLE
db 5 ; SLOTS_STARYU db 5 ; SLOTS_STARYU
assert_table_length NUM_SLOT_REELS
ReelActionJumptable: ReelActionJumptable:
ld hl, REEL_ACTION ld hl, REEL_ACTION
@ -1834,12 +1840,14 @@ Slots_GetPayout:
ret ret
.PayoutTable: .PayoutTable:
dw 300 table_width 2, Slots_GetPayout.PayoutTable
dw 50 dw 300 ; SLOTS_SEVEN
dw 6 dw 50 ; SLOTS_POKEBALL
dw 8 dw 6 ; SLOTS_CHERRY
dw 10 dw 8 ; SLOTS_PIKACHU
dw 15 dw 10 ; SLOTS_SQUIRTLE
dw 15 ; SLOTS_STARYU
assert_table_length NUM_SLOT_REELS
.no_win .no_win
ld hl, wPayout ld hl, wPayout
@ -1882,12 +1890,14 @@ Slots_PayoutText:
ret ret
.PayoutStrings: .PayoutStrings:
dbw "300@", .LinedUpSevens table_width 6, Slots_PayoutText.PayoutStrings
dbw "50@@", .LinedUpPokeballs dbw "300@", .LinedUpSevens ; SLOTS_SEVEN
dbw "6@@@", .LinedUpMonOrCherry dbw "50@@", .LinedUpPokeballs ; SLOTS_POKEBALL
dbw "8@@@", .LinedUpMonOrCherry dbw "6@@@", .LinedUpMonOrCherry ; SLOTS_CHERRY
dbw "10@@", .LinedUpMonOrCherry dbw "8@@@", .LinedUpMonOrCherry ; SLOTS_PIKACHU
dbw "15@@", .LinedUpMonOrCherry dbw "10@@", .LinedUpMonOrCherry ; SLOTS_SQUIRTLE
dbw "15@@", .LinedUpMonOrCherry ; SLOTS_STARYU
assert_table_length NUM_SLOT_REELS
.Text_PrintPayout: .Text_PrintPayout:
text_asm text_asm