pokered/engine/game_corner_slots.asm
2016-06-11 17:24:04 -07:00

54 lines
994 B
NASM
Executable file

StartSlotMachine:
ld a, [wHiddenObjectFunctionArgument]
cp $fd
jr z, .printOutOfOrder
cp $fe
jr z, .printOutToLunch
cp $ff
jr z, .printSomeonesKeys
callba AbleToPlaySlotsCheck
ld a, [wCanPlaySlots]
and a
ret z
ld a, [wLuckySlotHiddenObjectIndex]
ld b, a
ld a, [wHiddenObjectIndex]
inc a
cp b
jr z, .match
ld a, 253
jr .next
.match
ld a, 250
.next
ld [wSlotMachineSevenAndBarModeChance], a
ld a, [H_LOADEDROMBANK]
ld [wSlotMachineSavedROMBank], a
call PromptUserToPlaySlots
ret
.printOutOfOrder
tx_pre_id GameCornerOutOfOrderText
jr .printText
.printOutToLunch
tx_pre_id GameCornerOutToLunchText
jr .printText
.printSomeonesKeys
tx_pre_id GameCornerSomeonesKeysText
.printText
push af
call EnableAutoTextBoxDrawing
pop af
call PrintPredefTextID
ret
GameCornerOutOfOrderText:
TX_FAR _GameCornerOutOfOrderText
db "@"
GameCornerOutToLunchText:
TX_FAR _GameCornerOutToLunchText
db "@"
GameCornerSomeonesKeysText:
TX_FAR _GameCornerSomeonesKeysText
db "@"