pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2024-11-16 11:27:33 -08:00
Code Issues Packages Projects Releases Wiki Activity

Add table assertions to slot machine data

Browse Source
This commit is contained in:
Rangi 2021-10-15 22:15:00 -04:00
parent 81f0cacefb
commit d4a6a1b2bc
1 changed files with 29 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
engine/games/slot_machine.asm
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_SEVEN EQU $00
SLOTS_POKEBALL EQU $04
SLOTS_CHERRY EQU $08
SLOTS_PIKACHU EQU $0c
SLOTS_SQUIRTLE EQU $10
SLOTS_STARYU EQU $14
; wSlotBias values
SLOTS_NO_BIAS EQU -1
REEL_SIZE EQU 15
@ -860,12 +864,14 @@ GetUnknownSlotReelData: ; unreferenced
ret
.data:
table_width 1, GetUnknownSlotReelData.data
db 0 ; SLOTS_SEVEN
db 1 ; SLOTS_POKEBALL
db 2 ; SLOTS_CHERRY
db 3 ; SLOTS_PIKACHU
db 4 ; SLOTS_SQUIRTLE
db 5 ; SLOTS_STARYU
assert_table_length NUM_SLOT_REELS
ReelActionJumptable:
ld hl, REEL_ACTION
@ -1834,12 +1840,14 @@ Slots_GetPayout:
ret
.PayoutTable:
dw 300
dw 50
dw 6
dw 8
dw 10
dw 15
table_width 2, Slots_GetPayout.PayoutTable
dw 300 ; SLOTS_SEVEN
dw 50 ; SLOTS_POKEBALL
dw 6 ; SLOTS_CHERRY
dw 8 ; SLOTS_PIKACHU
dw 10 ; SLOTS_SQUIRTLE
dw 15 ; SLOTS_STARYU
assert_table_length NUM_SLOT_REELS
.no_win
ld hl, wPayout
@ -1882,12 +1890,14 @@ Slots_PayoutText:
ret
.PayoutStrings:
dbw "300@", .LinedUpSevens
dbw "50@@", .LinedUpPokeballs
dbw "6@@@", .LinedUpMonOrCherry
dbw "8@@@", .LinedUpMonOrCherry
dbw "10@@", .LinedUpMonOrCherry
dbw "15@@", .LinedUpMonOrCherry
table_width 6, Slots_PayoutText.PayoutStrings
dbw "300@", .LinedUpSevens ; SLOTS_SEVEN
dbw "50@@", .LinedUpPokeballs ; SLOTS_POKEBALL
dbw "6@@@", .LinedUpMonOrCherry ; SLOTS_CHERRY
dbw "8@@@", .LinedUpMonOrCherry ; SLOTS_PIKACHU
dbw "10@@", .LinedUpMonOrCherry ; SLOTS_SQUIRTLE
dbw "15@@", .LinedUpMonOrCherry ; SLOTS_STARYU
assert_table_length NUM_SLOT_REELS
.Text_PrintPayout:
text_asm