1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
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 "@"
|
