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 SLOTS_OUTOFORDER
jr z, .printOutOfOrder
cp SLOTS_OUTTOLUNCH
jr z, .printOutToLunch
cp SLOTS_SOMEONESKEYS
jr z, .printSomeonesKeys
farcall 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
ldh a, [hLoadedROMBank]
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::
text_far _GameCornerOutOfOrderText
text_end
GameCornerOutToLunchText::
text_far _GameCornerOutToLunchText
text_end
GameCornerSomeonesKeysText::
text_far _GameCornerSomeonesKeysText
text_end
|
