pokered/engine/game_corner_slots.asm

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 "@"
remove address comments 2016-06-12 00:24:04 +00:00			`StartSlotMachine:`
comment slot machine 2015-07-13 20:35:35 +00:00			`ld a, [wHiddenObjectFunctionArgument]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`cp $fd`
			`jr z, .printOutOfOrder`
			`cp $fe`
			`jr z, .printOutToLunch`
			`cp $ff`
			`jr z, .printSomeonesKeys`
			`callba AbleToPlaySlotsCheck`
misc 2015-07-19 03:49:52 +00:00			`ld a, [wCanPlaySlots]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`and a`
			`ret z`
comment slot machine 2015-07-13 20:35:35 +00:00			`ld a, [wLuckySlotHiddenObjectIndex]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld b, a`
comment slot machine 2015-07-13 20:35:35 +00:00			`ld a, [wHiddenObjectIndex]`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc a`
			`cp b`
comment slot machine 2015-07-13 20:35:35 +00:00			`jr z, .match`
			`ld a, 253`
			`jr .next`
			`.match`
			`ld a, 250`
			`.next`
			`ld [wSlotMachineSevenAndBarModeChance], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [H_LOADEDROMBANK]`
comment slot machine 2015-07-13 20:35:35 +00:00			`ld [wSlotMachineSavedROMBank], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PromptUserToPlaySlots`
			`ret`
			`.printOutOfOrder`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_id GameCornerOutOfOrderText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr .printText`
			`.printOutToLunch`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_id GameCornerOutToLunchText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`jr .printText`
			`.printSomeonesKeys`
Start using text predef macros also sprite direction constants 2015-07-04 05:44:12 +00:00			`tx_pre_id GameCornerSomeonesKeysText`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`.printText`
			`push af`
			`call EnableAutoTextBoxDrawing`
			`pop af`
			`call PrintPredefTextID`
			`ret`

remove address comments 2016-06-12 00:24:04 +00:00			`GameCornerOutOfOrderText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _GameCornerOutOfOrderText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`GameCornerOutToLunchText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _GameCornerOutToLunchText`
			`db "@"`

remove address comments 2016-06-12 00:24:04 +00:00			`GameCornerSomeonesKeysText:`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`TX_FAR _GameCornerSomeonesKeysText`
			`db "@"`