Future/pokecrystal
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More enumeration of constants, more annotations of scripts.

Browse Source
This commit is contained in:
PikalaxALT
2015-07-15 15:48:44 -04:00
parent 67e56102ef
commit 39524cdb76
96 changed files with 2634 additions and 2501 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
engine/buena_phone_scripts.asm
View File

@@ -2,7 +2,7 @@ UnknownScript_0xa0b14:
checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
iftrue UnknownScript_0xa0b73
checkcode VAR_HOUR
if_greater_than $11, UnknownScript_0xa0b4b
if_greater_than 17, UnknownScript_0xa0b4b
scall UnknownScript_0xa0b32
jump UnknownScript_0xa0c0e
@@ -37,7 +37,7 @@ UnknownScript_0xa0b4b:
UnknownScript_0xa0b4f:
checkcode VAR_HOUR
if_greater_than $11, UnknownScript_0xa0b6e
if_greater_than 17, UnknownScript_0xa0b6e
checkmorn
iftrue UnknownScript_0xa0b64
checkday
@@ -68,27 +68,27 @@ UnknownScript_0xa0b73:
UnknownScript_0xa0b77:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue UnknownScript_0xa0b82
random $b
random 11
jump UnknownScript_0xa0b84
UnknownScript_0xa0b82:
random $e
random 14
UnknownScript_0xa0b84:
if_equal $0, UnknownScript_0xa0bbc
if_equal $1, UnknownScript_0xa0bc2
if_equal $2, UnknownScript_0xa0bc8
if_equal $3, UnknownScript_0xa0bce
if_equal $4, UnknownScript_0xa0bd4
if_equal $5, UnknownScript_0xa0bda
if_equal $6, UnknownScript_0xa0be0
if_equal $7, UnknownScript_0xa0be6
if_equal $8, UnknownScript_0xa0bec
if_equal $9, UnknownScript_0xa0bf2
if_equal $a, UnknownScript_0xa0bf8
if_equal $b, UnknownScript_0xa0bfe
if_equal $c, UnknownScript_0xa0c04
if_equal $d, UnknownScript_0xa0c0a
if_equal 0, UnknownScript_0xa0bbc
if_equal 1, UnknownScript_0xa0bc2
if_equal 2, UnknownScript_0xa0bc8
if_equal 3, UnknownScript_0xa0bce
if_equal 4, UnknownScript_0xa0bd4
if_equal 5, UnknownScript_0xa0bda
if_equal 6, UnknownScript_0xa0be0
if_equal 7, UnknownScript_0xa0be6
if_equal 8, UnknownScript_0xa0bec
if_equal 9, UnknownScript_0xa0bf2
if_equal 10, UnknownScript_0xa0bf8
if_equal 11, UnknownScript_0xa0bfe
if_equal 12, UnknownScript_0xa0c04
if_equal 13, UnknownScript_0xa0c0a
UnknownScript_0xa0bbc:
writetext UnknownText_0xa0efb
@@ -149,10 +149,10 @@ UnknownScript_0xa0c0d:
end
UnknownScript_0xa0c0e:
random $3
if_equal $0, UnknownScript_0xa0c1c
if_equal $1, UnknownScript_0xa0c20
if_equal $2, UnknownScript_0xa0c24
random 3
if_equal 0, UnknownScript_0xa0c1c
if_equal 1, UnknownScript_0xa0c20
if_equal 2, UnknownScript_0xa0c24
UnknownScript_0xa0c1c:
writetext UnknownText_0xa1c88

11
engine/color.asm
View File

@@ -806,8 +806,7 @@ Function9764: ; 9764
Function976b: ; 976b
ld l, a
ld h, 0
add hl, hl
add hl, hl
add_n_times hl, hl, 2
ld bc, TrainerPalettes
add hl, bc
ret
@@ -1975,9 +1974,7 @@ Functionb1de: ; b1de
push hl
ld l, a
ld h, 0
add hl, hl
add hl, hl
add hl, hl
add_n_times hl, hl, 3
ld de, TilesetBGPalette
add hl, de
ld e, l
@@ -2017,9 +2014,7 @@ Functionb1de: ; b1de
ld a, [MapGroup]
ld l, a
ld h, 0
add hl, hl
add hl, hl
add hl, hl
add_n_times hl, hl, 3
ld de, RoofPals
add hl, de
ld a, [TimeOfDayPal]

235
engine/events.asm
View File

@@ -24,91 +24,91 @@ OverworldLoop:: ; 966b0
; 966cb
Function966cb: ; 966cb
ClearAllScriptFlags3: ; 966cb
xor a
ld [ScriptFlags3], a
ret
; 966d0
Function966d0:: ; 966d0
SetAll_ScriptFlags3:: ; 966d0
ld a, $ff
ld [ScriptFlags3], a
ret
; 966d6
Function966d6: ; 966d6
CheckBit5_ScriptFlags3: ; 966d6
ld hl, ScriptFlags3
bit 5, [hl]
ret
; 966dc
Function966dc: ; 966dc
ResetBit2_ScriptFlags3: ; 966dc
ld hl, ScriptFlags3
res 2, [hl]
ret
; 966e2
Function966e2: ; 966e2
ResetBit1_ScriptFlags3: ; 966e2
ld hl, ScriptFlags3
res 1, [hl]
ret
; 966e8
Function966e8: ; 966e8
ResetBit0_ScriptFlags3: ; 966e8
ld hl, ScriptFlags3
res 0, [hl]
ret
; 966ee
Function966ee: ; 966ee
ResetBit4_ScriptFlags3: ; 966ee
ld hl, ScriptFlags3
res 4, [hl]
ret
; 966f4
Function966f4: ; 966f4
SetBit2_ScriptFlags3: ; 966f4
ld hl, ScriptFlags3
set 2, [hl]
ret
; 966fa
Function966fa: ; 966fa
SetBit1_ScriptFlags3: ; 966fa
ld hl, ScriptFlags3
set 1, [hl]
ret
; 96700
Function96700: ; 96700
SetBit0_ScriptFlags3: ; 96700
ld hl, ScriptFlags3
set 0, [hl]
ret
; 96706
Function96706: ; 96706
SetBit4_ScriptFlags3: ; 96706
ld hl, ScriptFlags3
set 4, [hl]
ret
; 9670c
Function9670c: ; 9670c
CheckBit2_ScriptFlags3: ; 9670c
ld hl, ScriptFlags3
bit 2, [hl]
ret
; 96712
Function96712: ; 96712
CheckBit1_ScriptFlags3: ; 96712
ld hl, ScriptFlags3
bit 1, [hl]
ret
; 96718
Function96718: ; 96718
CheckBit0_ScriptFlags3: ; 96718
ld hl, ScriptFlags3
bit 0, [hl]
ret
; 9671e
Function9671e: ; 9671e
CheckBit4_ScriptFlags3: ; 9671e
ld hl, ScriptFlags3
bit 4, [hl]
ret
@@ -135,20 +135,20 @@ EnterMap: ; 9673e
ld [wd454], a
call Function968d1
callba RunMapSetupScript
call Function966cb
call ClearAllScriptFlags3
ld a, [$ff9f]
cp $f7
jr nz, .asm_9675a
call Function966d0
.asm_9675a
jr nz, .dontset
call SetAll_ScriptFlags3
.dontset
ld a, [$ff9f]
cp $f3
jr nz, .asm_96764
jr nz, .dontresetpoison
xor a
ld [PoisonStepCount], a
.asm_96764
.dontresetpoison
xor a
ld [$ff9f], a
@@ -197,7 +197,7 @@ MapEvents: ; 96795
.events ; 967a1
call PlayerEvents
call Function966cb
call ClearAllScriptFlags3
callba ScriptEvents
ret
; 967ae
@@ -254,19 +254,19 @@ Function967e1: ; 967e1
Function967f4: ; 967f4
ld a, [wd150]
bit 5, a
jr z, .asm_96806
jr z, .events
bit 6, a
jr z, .asm_9680c
jr z, .noevents
bit 4, a
jr nz, .asm_9680c
call Function966d0
jr nz, .noevents
call SetAll_ScriptFlags3
.asm_96806
.events
ld a, 0 ; events
ld [MapEventStatus], a
ret
.asm_9680c
.noevents
ld a, 1 ; no events
ld [MapEventStatus], a
ret
@@ -293,44 +293,44 @@ PlayerEvents: ; 9681f
call Function968e4
call CheckTrainerBattle3
jr c, .asm_96848
jr c, .ok
call CheckTileEvent
jr c, .asm_96848
jr c, .ok
call Function97c30
jr c, .asm_96848
jr c, .ok
call Function968ec
jr c, .asm_96848
jr c, .ok
call Function9693a
jr c, .asm_96848
jr c, .ok
call OWPlayerInput
jr c, .asm_96848
jr c, .ok
xor a
ret
.asm_96848
.ok
push af
callba Function96c56
callba EnableScriptMode
pop af
ld [ScriptRunning], a
call Function96beb
ld a, [ScriptRunning]
cp 4
jr z, .asm_96865
jr z, .ok2
cp 9
jr z, .asm_96865
jr z, .ok2
xor a
ld [wc2da], a
.asm_96865
.ok2
scf
ret
; 96867
@@ -340,13 +340,13 @@ CheckTrainerBattle3: ; 96867
nop
nop
call CheckTrainerBattle2
jr nc, .asm_96872
jr nc, .nope
ld a, 1
scf
ret
.asm_96872
.nope
xor a
ret
; 96874
@@ -355,47 +355,47 @@ CheckTrainerBattle3: ; 96867
CheckTileEvent: ; 96874
; Check for warps, tile triggers or wild battles.
call Function9670c
jr z, .asm_96886
call CheckBit2_ScriptFlags3
jr z, .bit2
callba Function104820
jr c, .asm_968a6
jr c, .return4
call Function2238
jr c, .asm_968aa
jr c, .return6
.asm_96886
call Function96712
jr z, .asm_96890
.bit2
call CheckBit1_ScriptFlags3
jr z, .bit1
call Function2ad4
jr c, .asm_968ba
jr c, .movement
.asm_96890
call Function96718
jr z, .asm_96899
.bit1
call CheckBit0_ScriptFlags3
jr z, .bit0
call CountStep
ret c
.asm_96899
call Function9671e
jr z, .asm_968a4
.bit0
call CheckBit4_ScriptFlags3
jr z, .ok
call Function97cc0
ret c
jr .asm_968a4
jr .ok
.asm_968a4
.ok
xor a
ret
.asm_968a6
.return4
ld a, 4
scf
ret
.asm_968aa
.return6
ld a, [StandingTile]
call CheckPitTile
jr nz, .asm_968b6
@@ -408,7 +408,7 @@ CheckTileEvent: ; 96874
scf
ret
.asm_968ba
.movement
ld hl, MovementAnimation
ld a, [hli]
ld h, [hl]
@@ -450,7 +450,7 @@ Function968d8: ; 968d8
; 968e4
Function968e4: ; 968e4
call Function966d6
call CheckBit5_ScriptFlags3
ret z
call Function2f3e
ret
@@ -459,12 +459,12 @@ Function968e4: ; 968e4
Function968ec: ; 968ec
ld a, [wdc07]
and a
jr z, .asm_96938
jr z, .nope
ld c, a
call Function211b
call CheckTriggers
cp c
jr nc, .asm_96938
jr nc, .nope
ld e, a
ld d, 0
@@ -472,11 +472,8 @@ Function968ec: ; 968ec
ld a, [hli]
ld h, [hl]
ld l, a
add hl, de
add hl, de
add hl, de
add hl, de
add_n_times hl, de, 4
call GetMapScriptHeaderBank
call GetFarHalfword
call GetMapScriptHeaderBank
@@ -485,12 +482,12 @@ Function968ec: ; 968ec
ld hl, ScriptFlags
res 3, [hl]
callba Function96c56
callba EnableScriptMode
callba ScriptEvents
ld hl, ScriptFlags
bit 3, [hl]
jr z, .asm_96938
jr z, .nope
ld hl, ScriptDelay + 2
ld a, [hli]
@@ -501,7 +498,7 @@ Function968ec: ; 968ec
scf
ret
.asm_96938
.nope
xor a
ret
; 9693a
@@ -608,25 +605,25 @@ TryObjectEvent: ; 969b5
.IsObject
call PlayTalkObject
ld a, [hConnectedMapWidth]
call Function1ae5
ld hl, $0001
call GetObjectStruct
ld hl, OBJECT_MAP_OBJECT_INDEX
add hl, bc
ld a, [hl]
ld [$ffe0], a
ld a, [$ffe0]
call GetMapObject
ld hl, $0008
ld hl, MAPOBJECT_COLOR
add hl, bc
ld a, [hl]
and $f
and %00001111
; Bug: If IsInArray returns nc, data at bc will be executed as code.
push bc
ld de, 3
ld hl, .data_969ee
ld hl, .pointers
call IsInArray
jr nc, .asm_969ec
jr nc, .nope_bugged
pop bc
inc hl
@@ -635,11 +632,11 @@ TryObjectEvent: ; 969b5
ld l, a
jp [hl]
.asm_969ec
.nope_bugged
xor a
ret
.data_969ee
.pointers
dbw 0, .zero
dbw 1, .one
dbw 2, .two
@@ -647,11 +644,11 @@ TryObjectEvent: ; 969b5
dbw 4, .four
dbw 5, .five
dbw 6, .six
db $ff
db -1
; 96a04
.zero ; 96a04
ld hl, $000a
ld hl, MAPOBJECT_POINTER_LO
add hl, bc
ld a, [hli]
ld h, [hl]
@@ -663,7 +660,7 @@ TryObjectEvent: ; 969b5
; 96a12
.one ; 96a12
ld hl, $000a
ld hl, MAPOBJECT_POINTER_LO
add hl, bc
ld a, [hli]
ld h, [hl]
@@ -712,7 +709,7 @@ TryReadSign: ; 96a38
ret
.IsSign
ld a, [MartPointer]
ld a, [wd040]
ld hl, .signs
rst JumpTable
ret
@@ -726,7 +723,7 @@ TryReadSign: ; 96a38
dw .ifset
dw .ifnotset
dw .itemifset
dw .asm_96aa2
dw .copy
; 96a59
.up
@@ -773,7 +770,7 @@ TryReadSign: ; 96a38
scf
ret
.asm_96aa2
.copy
call CheckSignFlag
jr nz, .dontread
call GetMapScriptHeaderBank
@@ -785,13 +782,13 @@ TryReadSign: ; 96a38
.ifset
call CheckSignFlag
jr z, .dontread
jr .asm_96ac1
jr .thenread
.ifnotset
call CheckSignFlag
jr nz, .dontread
.asm_96ac1
.thenread
push hl
call PlayTalkObject
pop hl
@@ -878,8 +875,8 @@ PlayerMovement: ; 96af0
.three ; 96b20
; force the player to move in some direction
ld a, BANK(UnknownScript_0x1253d)
ld hl, UnknownScript_0x1253d
ld a, BANK(Script_ForcedMovement)
ld hl, Script_ForcedMovement
call CallScript
; ld a, -1
ld c, a
@@ -941,8 +938,8 @@ SelectMenuScript: ; 96b5f
StartMenuCallback:
SelectMenuCallback: ; 96b66
copybytetovar $ffa0
if_equal $80, .Script
if_equal $ff, .Asm
if_equal %10000000, .Script
if_equal -1, .Asm
end
; 96b72
@@ -959,13 +956,13 @@ SelectMenuCallback: ; 96b66
CountStep: ; 96b79
ld a, [InLinkBattle]
and a
jr nz, .asm_96bc9
jr nz, .done
callba Function90136
jr c, .asm_96bcb
jr c, .setminus1
call Function96bd7
jr c, .asm_96bcb
jr c, .setminus1
ld hl, PoisonStepCount
inc [hl]
@@ -981,7 +978,7 @@ CountStep: ; 96b79
jr nz, .asm_96bab
callba Function16f3e
jr nz, .asm_96bcf
jr nz, .set8
.asm_96bab
callba DaycareStep
@@ -989,25 +986,25 @@ CountStep: ; 96b79
ld hl, PoisonStepCount
ld a, [hl]
cp 4
jr c, .asm_96bc3
jr c, .poisoned
ld [hl], 0
callba Function505da
jr c, .asm_96bcb
jr c, .setminus1
.asm_96bc3
.poisoned
callba Function97db3
.asm_96bc9
.done
xor a
ret
.asm_96bcb
.setminus1
ld a, -1
scf
ret
.asm_96bcf
.set8
ld a, 8
scf
ret
@@ -1015,7 +1012,7 @@ CountStep: ; 96b79
Function96bd3: ; 96bd3
ld a, $7
ld a, 7
scf
ret
; 96bd7
@@ -1038,17 +1035,15 @@ Function96beb: ; 96beb
ld a, [ScriptRunning]
and a
ret z
cp $ff
cp -1
ret z
cp $a
cp 10
ret nc
ld c, a
ld b, 0
ld hl, ScriptPointers96c0c
add hl, bc
add hl, bc
add hl, bc
add_n_times hl, bc, 3
ld a, [hli]
ld [ScriptBank], a
ld a, [hli]
@@ -1059,20 +1054,20 @@ Function96beb: ; 96beb
; 96c0c
ScriptPointers96c0c: ; 96c0c
dbw BANK(UnknownScript_0x96c2d), UnknownScript_0x96c2d
dbw BANK(UnknownScript_0xbe675), UnknownScript_0xbe675
dbw BANK(UnknownScript_0xbe66a), UnknownScript_0xbe66a
dbw BANK(UnknownScript_0x122ce), UnknownScript_0x122ce
dbw BANK(Invalid_0x96c2d), Invalid_0x96c2d
dbw BANK(SeenByTrainerScript), SeenByTrainerScript
dbw BANK(TalkToTrainerScript), TalkToTrainerScript
dbw BANK(FindItemInBallScript), FindItemInBallScript
dbw BANK(UnknownScript_0x96c4d), UnknownScript_0x96c4d
dbw BANK(UnknownScript_0x96c34), UnknownScript_0x96c34
dbw BANK(WarpToNewMapScript), WarpToNewMapScript
dbw BANK(FallIntoMapScript), FallIntoMapScript
dbw BANK(UnknownScript_0x124c8), UnknownScript_0x124c8
dbw BANK(UnknownScript_0x96c2f), UnknownScript_0x96c2f
dbw BANK(HatchEggScript), HatchEggScript
dbw BANK(UnknownScript_0x96c4f), UnknownScript_0x96c4f
dbw BANK(UnknownScript_0x96c2d), UnknownScript_0x96c2d
dbw BANK(Invalid_0x96c2d), Invalid_0x96c2d
; 96c2d
UnknownScript_0x96c2d: ; 96c2d
Invalid_0x96c2d: ; 96c2d
end
; 96c2e
@@ -1080,12 +1075,12 @@ UnknownScript_0x96c2e: ; 96c2e
end
; 96c2f
UnknownScript_0x96c2f: ; 96c2f
callasm Function16f5e
HatchEggScript: ; 96c2f
callasm OverworldHatchEgg
end
; 96c34
UnknownScript_0x96c34: ; 96c34
WarpToNewMapScript: ; 96c34
warpsound
newloadmap $f5
end
@@ -1116,7 +1111,7 @@ UnknownScript_0x96c4d: ; 96c4d
UnknownScript_0x96c4f: ; 96c4f
deactivatefacing $3
callasm Function96706
callasm SetBit4_ScriptFlags3
end
; 96c56

4
engine/events_2.asm
View File

@@ -125,8 +125,8 @@ Function97cc0:: ; 97cc0
jr .asm_97cf4
.asm_97ced
ld a, BANK(UnknownScript_0x135eb)
ld hl, UnknownScript_0x135eb
ld a, BANK(BugCatchingContestBattleScript)
ld hl, BugCatchingContestBattleScript
jr .asm_97cf4
.asm_97cf4

1071
engine/map_objects.asm
View File

File diff suppressed because it is too large Load Diff

2
engine/map_setup.asm
View File

@@ -306,7 +306,7 @@ MapSetupCommands: ; 15440
dbw BANK(Function24cd), Function24cd
dbw BANK(Function28e3), Function28e3
dbw BANK(Function289d), Function289d
dbw BANK(Function2879), Function2879
dbw BANK(BufferScreen), BufferScreen
dbw BANK(Function1047cf), Function1047cf
dbw BANK(LoadTilesetHeader), LoadTilesetHeader
dbw BANK(Function104750), Function104750

26
engine/pack.asm
View File

@@ -62,7 +62,7 @@ Function10056: ; 10056 (4:4056)
Function10067: ; 10067 (4:4067)
ld hl, MenuDataHeader_0x10a4f
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0d9]
ld [wcf88], a
ld a, [wd0df]
@@ -90,7 +90,7 @@ Function10094: ; 10094 (4:4094)
Function100a6: ; 100a6 (4:40a6)
ld hl, MenuDataHeader_0x10a7f
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0da]
ld [wcf88], a
ld a, [wd0e0]
@@ -137,7 +137,7 @@ Function100e8: ; 100e8 (4:40e8)
.asm_10110
push de
call LoadMenuDataHeader
call Function1d81
call InterpretMenu2
call Function1c07
pop hl
ret c
@@ -220,7 +220,7 @@ Function10186: ; 10186 (4:4186)
Function10198: ; 10198 (4:4198)
ld hl, MenuDataHeader_0x10aaf
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0db]
ld [wcf88], a
ld a, [wd0e1]
@@ -289,7 +289,7 @@ Function101c5: ; 101c5 (4:41c5)
.asm_10235
push de
call LoadMenuDataHeader
call Function1d81
call InterpretMenu2
call Function1c07
pop hl
ret c
@@ -709,7 +709,7 @@ Function104e9: ; 104e9 (4:44e9)
Function104fa: ; 104fa (4:44fa)
ld hl, MenuDataHeader_0x10a4f
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0d9]
ld [wcf88], a
ld a, [wd0df]
@@ -737,7 +737,7 @@ Function10527: ; 10527 (4:4527)
Function10539: ; 10539 (4:4539)
ld hl, MenuDataHeader_0x10a7f
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0da]
ld [wcf88], a
ld a, [wd0e0]
@@ -788,7 +788,7 @@ Function10594: ; 10594 (4:4594)
Function105a6: ; 105a6 (4:45a6)
ld hl, MenuDataHeader_0x10aaf
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0db]
ld [wcf88], a
ld a, [wd0e1]
@@ -821,7 +821,7 @@ Function105dc: ; 105dc (4:45dc)
.asm_105ed
push de
call LoadMenuDataHeader
call Function1d81
call InterpretMenu2
call Function1c07
pop hl
ret c
@@ -992,7 +992,7 @@ Function106d9: ; 106d9 (4:46d9)
xor a
call Function10762
ld hl, MenuDataHeader_0x10a67
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0d9]
ld [wcf88], a
ld a, [wd0df]
@@ -1008,7 +1008,7 @@ Function106ff: ; 106ff (4:46ff)
ld a, $2
call Function10762
ld hl, MenuDataHeader_0x10a97
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0da]
ld [wcf88], a
ld a, [wd0e0]
@@ -1033,7 +1033,7 @@ Function1073b: ; 1073b (4:473b)
ld a, $1
call Function10762
ld hl, MenuDataHeader_0x10ac7
call Function1d3c
call CopyMenuDataHeader
ld a, [wd0db]
ld [wcf88], a
ld a, [wd0e1]
@@ -1223,7 +1223,7 @@ Function1085a: ; 1085a (4:485a)
push hl
call Function10762
pop hl
call Function1d3c
call CopyMenuDataHeader
call Function350c
ret

24
engine/phone_scripts.asm
View File

@@ -654,7 +654,7 @@ UnknownScript_0xbd3d1:
UnknownScript_0xbd3f6:
farscall UnknownScript_0xbde3f
if_equal $0, UnknownScript_0xbd412
checkflag ENGINE_51
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue UnknownScript_0xbd412
checkcode VAR_WEEKDAY
if_equal $2, UnknownScript_0xbd416
@@ -680,7 +680,7 @@ UnknownScript_0xbd428:
farscall UnknownScript_0xbe1b6
farscall UnknownScript_0xbde3f
if_equal $0, UnknownScript_0xbd44c
checkflag ENGINE_51
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue UnknownScript_0xbd44c
checkcode VAR_WEEKDAY
if_equal $2, UnknownScript_0xbd480
@@ -1381,7 +1381,7 @@ UnknownScript_0xbda35:
iftrue UnknownScript_0xbda67
farscall UnknownScript_0xbde3f
if_equal $0, UnknownScript_0xbda5f
checkflag ENGINE_51
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue UnknownScript_0xbda5f
checkcode VAR_WEEKDAY
if_equal $2, UnknownScript_0xbda63
@@ -1403,7 +1403,7 @@ UnknownScript_0xbda6e:
farscall UnknownScript_0xbe1b6
farscall UnknownScript_0xbde3f
if_equal $0, UnknownScript_0xbda92
checkflag ENGINE_51
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue UnknownScript_0xbda92
checkcode VAR_WEEKDAY
if_equal $2, UnknownScript_0xbda9e
@@ -3104,27 +3104,27 @@ String_be65b: db "Sister@"
String_be662: db "Brother@"
UnknownScript_0xbe66a:: ; 0xbe66a
TalkToTrainerScript:: ; 0xbe66a
faceplayer
trainerstatus $2
iftrue UnknownScript_0xbe698
iftrue AlreadyBeatenTrainerScript
loadtrainerdata
playrammusic
jump UnknownScript_0xbe68a
jump StartBattleWithMapTrainerScript
; 0xbe675
UnknownScript_0xbe675:: ; 0xbe675
SeenByTrainerScript:: ; 0xbe675
loadtrainerdata
playrammusic
showemote $0, $fe, 30
showemote EMOTE_SHOCK, $fe, 30
callasm Function831e
applymovement2 MovementBuffer
writepersonxy $fe
faceperson $0, $fe
jump UnknownScript_0xbe68a
jump StartBattleWithMapTrainerScript
; 0xbe68a
UnknownScript_0xbe68a: ; 0xbe68a
StartBattleWithMapTrainerScript: ; 0xbe68a
loadfont
trainertext $0
closetext
@@ -3135,6 +3135,6 @@ UnknownScript_0xbe68a: ; 0xbe68a
trainerstatus $1
loadvar wd04d, $ff
UnknownScript_0xbe698:
AlreadyBeatenTrainerScript:
scripttalkafter
; 0xbe699

342
engine/scripting.asm
View File

File diff suppressed because it is too large Load Diff

35
engine/spawn_points.asm
View File

@@ -41,22 +41,22 @@ ENDM
spawn BLACKTHORN, BLACKTHORN_CITY, 21, 30
spawn MT_SILVER, SILVER_CAVE_OUTSIDE, 23, 20
spawn FAST_SHIP, FAST_SHIP_CABINS_SW_SSW_NW, 6, 2
const_value = -1
spawn N_A, N_A, -1, -1
db -1, -1, -1, -1
const NUM_SPAWNS
NUM_SPAWNS EQU const_value
LoadSpawnPoint: ; 1531f
; loads the spawn point in wd001
push hl
push de
ld a, [wd001]
cp -1
jr z, .asm_15341
cp SPAWN_N_A
jr z, .spawn_n_a
ld l, a
ld h, 0
add hl, hl
add hl, hl
add_n_times hl, hl, 2 ; multiply hl by 4
ld de, SpawnPoints
add hl, de
ld a, [hli]
@@ -67,7 +67,7 @@ LoadSpawnPoint: ; 1531f
ld [XCoord], a
ld a, [hli]
ld [YCoord], a
.asm_15341
.spawn_n_a
pop de
pop hl
ret
@@ -75,32 +75,33 @@ LoadSpawnPoint: ; 1531f
IsSpawnPoint: ; 15344
; Checks if the map loaded in de is a spawn point. Returns carry if it's a spawn point.
ld hl, SpawnPoints
ld c, 0
.asm_15349
.loop
ld a, [hl]
cp -1
jr z, .asm_1535f
cp SPAWN_N_A
jr z, .nope
cp d
jr nz, .asm_15356
jr nz, .next
inc hl
ld a, [hld]
cp e
jr z, .asm_15361
jr z, .yes
.asm_15356
.next
push bc
ld bc, 4
add hl, bc
pop bc
inc c
jr .asm_15349
jr .loop
.asm_1535f
.nope
and a
ret
.asm_15361
.yes
scf
ret
; 15363

25
engine/specials.asm
View File

@@ -36,10 +36,10 @@ SpecialsPointers:: ; c029
add_special Functionc2f6
add_special Functionc309
add_special Function1050b9
add_special Functionc34a
add_special Function4d9e5
add_special BugContestJudging
add_special CheckPartyFullAfterContest
add_special Function13a12
add_special Function13a31
add_special ContestReturnMons
add_special Function135db
add_special Functionfbb32
add_special Functionfbcd2
@@ -71,7 +71,7 @@ SpecialsPointers:: ; c029
add_special WhiteBGMap
add_special UpdateTimePals
add_special ClearTileMap
add_special Function1ad2
add_special DrawOnMap
add_special Functione4a
add_special Functionc230
add_special SpecialSeenMon
@@ -105,7 +105,7 @@ SpecialsPointers:: ; c029
add_special Function88018
add_special SpecialNameRater
add_special Functionc2da
add_special Function718d
add_special GetFirstPokemonHappiness
add_special Function71ac
add_special Function2a4ab
add_special Function2a51f
@@ -173,7 +173,7 @@ SpecialsPointers:: ; c029
add_special Function10366e
add_special Function1037eb
add_special Function10383c
add_special Function1060a2
add_special Mobile_HealParty
add_special Function14168
add_special Function1037c2
add_special Function10630f
@@ -358,8 +358,8 @@ UnknownText_0xc345: ; 0xc345
db "@"
; 0xc34a
Functionc34a: ; c34a
callba Function1369d
BugContestJudging: ; c34a
callba _BugContestJudging
ld a, b
ld [ScriptVar], a
ret
@@ -463,7 +463,7 @@ UnknownText_0xc3d6: ; 0xc3d6
Functionc3db: ; c3db
call WhiteBGMap
call Function2879
call BufferScreen
ret
; c3e2
@@ -492,17 +492,18 @@ Functionc3fc: ; c3fc
; c403
Functionc403:: ; c403
LoadWildData:: ; c403
ld a, c
and a
jr nz, .asm_c410
jr nz, .swarm_route35
; swarm dark cave violet entrance
ld a, d
ld [wdfcc], a
ld a, e
ld [wdfcd], a
ret
.asm_c410
.swarm_route35
ld a, d
ld [wdc5a], a
ld a, e

592
engine/std_scripts.asm
View File

@@ -46,10 +46,10 @@ StdScripts::
dbw BANK(RematchGiftFScript), RematchGiftFScript
dbw BANK(GymStatue1Script), GymStatue1Script
dbw BANK(GymStatue2Script), GymStatue2Script
dbw BANK(UnknownScript_0xbcdb9), UnknownScript_0xbcdb9
dbw BANK(UnknownScript_0xbcdc3), UnknownScript_0xbcdc3
dbw BANK(ReceiveItemScript), ReceiveItemScript
dbw BANK(ReceiveTogepiEggScript), ReceiveTogepiEggScript
dbw BANK(PCScript), PCScript
dbw BANK(UnknownScript_0xbcdcd), UnknownScript_0xbcdcd
dbw BANK(GameCornerCoinVendorScript), GameCornerCoinVendorScript
dbw BANK(HappinessCheckScript), HappinessCheckScript
PokeCenterNurseScript:
@@ -107,12 +107,12 @@ PokeCenterNurseScript:
farwritetext UnknownText_0x1b01bd
pause 20
special Function1060a2
special Mobile_HealParty
spriteface $fe, LEFT
pause 10
special HealParty
playmusic MUSIC_NONE
writebyte 0
writebyte 0 ; Machine is at a Pokemon Center
special HealMachineAnim
pause 30
special RestartMapMusic
@@ -303,57 +303,57 @@ RadioTowerRocketsScript:
BugContestResultsWarpScript:
special WhiteBGMap
scall UnknownScript_0xbc380
scall BugContestResults_EnsureNoDuplicateSprites
setevent EVENT_747
clearevent EVENT_748
setevent EVENT_2D2
warp GROUP_ROUTE_36_NATIONAL_PARK_GATE, MAP_ROUTE_36_NATIONAL_PARK_GATE, $0, $4
applymovement $0, MovementData_0xbcea1
applymovement $0, Movement_ContestResults_WalkAfterWarp
BugContestResultsScript:
clearflag ENGINE_BUG_CONTEST_TIMER
clearevent EVENT_2D2
clearevent EVENT_313
clearevent EVENT_314
clearevent EVENT_315
clearevent EVENT_316
clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
clearevent EVENT_CONTEST_OFFICER_HAS_BERRY
loadfont
farwritetext UnknownText_0x1b05bf
farwritetext ContestResults_ReadyToJudgeText
closetext
special Functionc34a
special BugContestJudging
RAM2MEM $0
if_equal $1, UnknownScript_0xbc31e
if_equal $2, UnknownScript_0xbc332
if_equal $3, UnknownScript_0xbc343
farwritetext UnknownText_0x1b0681
if_equal 1, BugContestResults_FirstPlace
if_equal 2, BugContestResults_SecondPlace
if_equal 3, BugContestResults_ThirdPlace
farwritetext ContestResults_ConsolationPrizeText
keeptextopen
waitbutton
verbosegiveitem BERRY, 1
iffalse UnknownScript_0xbc375
iffalse BugContestResults_NoRoomForBerry
UnknownScript_0xbc2a9:
farwritetext UnknownText_0x1b06b7
BugContestResults_DidNotWin
farwritetext ContestResults_DidNotWinText
keeptextopen
jump UnknownScript_0xbc2b6
jump BugContestResults_FinishUp
; 0xbc2b1
UnknownScript_0xbc2b1: ; 0xbc2b1
farwritetext UnknownText_0x1b065b
BugContestResults_ReturnAfterWinnersPrize ; 0xbc2b1
farwritetext ContestResults_JoinUsNextTimeText
keeptextopen
UnknownScript_0xbc2b6:
checkevent EVENT_308
iffalse UnknownScript_0xbc2c4
farwritetext UnknownText_0x1b06d9
BugContestResults_FinishUp
checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
iffalse BugContestResults_DidNotLeaveMons
farwritetext ContestResults_ReturnPartyText
closetext
special Function13a31
UnknownScript_0xbc2c4:
special Function4d9e5
if_equal $0, UnknownScript_0xbc2d4
if_equal $2, UnknownScript_0xbc2d4
farwritetext UnknownText_0x1b070d
special ContestReturnMons
BugContestResults_DidNotLeaveMons
special CheckPartyFullAfterContest
if_equal $0, BugContestResults_CleanUp
if_equal $2, BugContestResults_CleanUp
farwritetext ContestResults_PartyFullText
closetext
UnknownScript_0xbc2d4:
BugContestResults_CleanUp
loadmovesprites
dotrigger $0
domaptrigger GROUP_ROUTE_35_NATIONAL_PARK_GATE, MAP_ROUTE_35_NATIONAL_PARK_GATE, $0
@@ -377,68 +377,68 @@ UnknownScript_0xbc2d4:
setevent EVENT_727
setevent EVENT_728
setevent EVENT_729
setflag ENGINE_51
setflag ENGINE_DAILY_BUG_CONTEST
special PlayMapMusic
end
; 0xbc31e
UnknownScript_0xbc31e: ; 0xbc31e
BugContestResults_FirstPlace ; 0xbc31e
setevent EVENT_000
itemtotext SUN_STONE, $1
farwritetext UnknownText_0x1b0621
farwritetext ContestResults_PlayerWonAPrizeText
closetext
verbosegiveitem SUN_STONE, 1
iffalse UnknownScript_0xbc354
jump UnknownScript_0xbc2b1
iffalse BugContestResults_NoRoomForSunStone
jump BugContestResults_ReturnAfterWinnersPrize
; 0xbc332
UnknownScript_0xbc332: ; 0xbc332
BugContestResults_SecondPlace ; 0xbc332
itemtotext EVERSTONE, $1
farwritetext UnknownText_0x1b0621
farwritetext ContestResults_PlayerWonAPrizeText
closetext
verbosegiveitem EVERSTONE, 1
iffalse UnknownScript_0xbc35f
jump UnknownScript_0xbc2b1
iffalse BugContestResults_NoRoomForEverstone
jump BugContestResults_ReturnAfterWinnersPrize
; 0xbc343
UnknownScript_0xbc343: ; 0xbc343
BugContestResults_ThirdPlace ; 0xbc343
itemtotext GOLD_BERRY, $1
farwritetext UnknownText_0x1b0621
farwritetext ContestResults_PlayerWonAPrizeText
closetext
verbosegiveitem GOLD_BERRY, 1
iffalse UnknownScript_0xbc36a
jump UnknownScript_0xbc2b1
iffalse BugContestResults_NoRoomForGoldBerry
jump BugContestResults_ReturnAfterWinnersPrize
; 0xbc354
UnknownScript_0xbc354: ; 0xbc354
BugContestResults_NoRoomForSunStone ; 0xbc354
farwritetext UnknownText_0x1b08cc
keeptextopen
setevent EVENT_313
jump UnknownScript_0xbc2b1
setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
jump BugContestResults_ReturnAfterWinnersPrize
; 0xbc35f
UnknownScript_0xbc35f: ; 0xbc35f
BugContestResults_NoRoomForEverstone ; 0xbc35f
farwritetext UnknownText_0x1b08cc
keeptextopen
setevent EVENT_314
jump UnknownScript_0xbc2b1
setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
jump BugContestResults_ReturnAfterWinnersPrize
; 0xbc36a
UnknownScript_0xbc36a: ; 0xbc36a
BugContestResults_NoRoomForGoldBerry ; 0xbc36a
farwritetext UnknownText_0x1b08cc
keeptextopen
setevent EVENT_315
jump UnknownScript_0xbc2b1
setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
jump BugContestResults_ReturnAfterWinnersPrize
; 0xbc375
UnknownScript_0xbc375: ; 0xbc375
BugContestResults_NoRoomForBerry ; 0xbc375
farwritetext UnknownText_0x1b08cc
keeptextopen
setevent EVENT_316
jump UnknownScript_0xbc2a9
setevent EVENT_CONTEST_OFFICER_HAS_BERRY
jump BugContestResults_DidNotWin
; 0xbc380
UnknownScript_0xbc380: ; 0xbc380
BugContestResults_EnsureNoDuplicateSprites ; 0xbc380
checkevent EVENT_716
iftrue .skip1
clearevent EVENT_720
@@ -561,7 +561,7 @@ InitializeEventsScript:
setevent EVENT_731
setevent EVENT_74A
setevent EVENT_RED_IN_MT_SILVER
setevent EVENT_738
setevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
setevent EVENT_73A
setevent EVENT_73B
setevent EVENT_733
@@ -623,26 +623,26 @@ InitializeEventsScript:
AskNumber1MScript:
special RandomPhoneMon
checkcode VAR_CALLERID
if_equal $5, .Jack
if_equal $7, .Huey
if_equal $b, .Gaven
if_equal $d, .Jose
if_equal $f, .Joey
if_equal $10, .Wade
if_equal $11, .Ralph
if_equal $13, .Anthony
if_equal $14, .Todd
if_equal $16, .Irwin
if_equal $17, .Arnie
if_equal $18, .Alan
if_equal $1b, .Chad
if_equal $1c, .Derek
if_equal $1d, .Tully
if_equal $1e, .Brent
if_equal $20, .Vance
if_equal $21, .Wilton
if_equal $22, .Kenji
if_equal $23, .Parry
if_equal PHONE_SCHOOLBOY_JACK, .Jack
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_FISHER_RALPH, .Ralph
if_equal PHONE_HIKER_ANTHONY, .Anthony
if_equal PHONE_CAMPER_TODD, .Todd
if_equal PHONE_JUGGLER_IRWIN, .Irwin
if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_SCHOOLBOY_CHAD, .Chad
if_equal PHONE_POKEFANM_DEREK, .Derek
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_POKEMANIAC_BRENT, .Brent
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_BLACKBELT_KENJI, .Kenji
if_equal PHONE_HIKER_PARRY, .Parry
.Jack
farwritetext JackAskNumber1Text
@@ -708,26 +708,26 @@ AskNumber1MScript:
AskNumber2MScript:
special RandomPhoneMon
checkcode VAR_CALLERID
if_equal $5, .Jack
if_equal $7, .Huey
if_equal $b, .Gaven
if_equal $d, .Jose
if_equal $f, .Joey
if_equal $10, .Wade
if_equal $11, .Ralph
if_equal $13, .Anthony
if_equal $14, .Todd
if_equal $16, .Irwin
if_equal $17, .Arnie
if_equal $18, .Alan
if_equal $1b, .Chad
if_equal $1c, .Derek
if_equal $1d, .Tully
if_equal $1e, .Brent
if_equal $20, .Vance
if_equal $21, .Wilton
if_equal $22, .Kenji
if_equal $23, .Parry
if_equal PHONE_SCHOOLBOY_JACK, .Jack
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_FISHER_RALPH, .Ralph
if_equal PHONE_HIKER_ANTHONY, .Anthony
if_equal PHONE_CAMPER_TODD, .Todd
if_equal PHONE_JUGGLER_IRWIN, .Irwin
if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_SCHOOLBOY_CHAD, .Chad
if_equal PHONE_POKEFANM_DEREK, .Derek
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_POKEMANIAC_BRENT, .Brent
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_BLACKBELT_KENJI, .Kenji
if_equal PHONE_HIKER_PARRY, .Parry
.Jack
farwritetext JackAskNumber2Text
@@ -799,26 +799,26 @@ RegisteredNumberMScript:
NumberAcceptedMScript:
checkcode VAR_CALLERID
if_equal $5, .Jack
if_equal $7, .Huey
if_equal $b, .Gaven
if_equal $d, .Jose
if_equal $f, .Joey
if_equal $10, .Wade
if_equal $11, .Ralph
if_equal $13, .Anthony
if_equal $14, .Todd
if_equal $16, .Irwin
if_equal $17, .Arnie
if_equal $18, .Alan
if_equal $1b, .Chad
if_equal $1c, .Derek
if_equal $1d, .Tully
if_equal $1e, .Brent
if_equal $20, .Vance
if_equal $21, .Wilton
if_equal $22, .Kenji
if_equal $23, .Parry
if_equal PHONE_SCHOOLBOY_JACK, .Jack
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_FISHER_RALPH, .Ralph
if_equal PHONE_HIKER_ANTHONY, .Anthony
if_equal PHONE_CAMPER_TODD, .Todd
if_equal PHONE_JUGGLER_IRWIN, .Irwin
if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_SCHOOLBOY_CHAD, .Chad
if_equal PHONE_POKEFANM_DEREK, .Derek
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_POKEMANIAC_BRENT, .Brent
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_BLACKBELT_KENJI, .Kenji
if_equal PHONE_HIKER_PARRY, .Parry
.Jack
farwritetext JackNumberAcceptedText
@@ -923,26 +923,26 @@ NumberAcceptedMScript:
NumberDeclinedMScript:
checkcode VAR_CALLERID
if_equal $5, .Jack
if_equal $7, .Huey
if_equal $b, .Gaven
if_equal $d, .Jose
if_equal $f, .Joey
if_equal $10, .Wade
if_equal $11, .Ralph
if_equal $13, .Anthony
if_equal $14, .Todd
if_equal $16, .Irwin
if_equal $17, .Arnie
if_equal $18, .Alan
if_equal $1b, .Chad
if_equal $1c, .Derek
if_equal $1d, .Tully
if_equal $1e, .Brent
if_equal $20, .Vance
if_equal $21, .Wilton
if_equal $22, .Kenji
if_equal $23, .Parry
if_equal PHONE_SCHOOLBOY_JACK, .Jack
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_FISHER_RALPH, .Ralph
if_equal PHONE_HIKER_ANTHONY, .Anthony
if_equal PHONE_CAMPER_TODD, .Todd
if_equal PHONE_JUGGLER_IRWIN, .Irwin
if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_SCHOOLBOY_CHAD, .Chad
if_equal PHONE_POKEFANM_DEREK, .Derek
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_POKEMANIAC_BRENT, .Brent
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_BLACKBELT_KENJI, .Kenji
if_equal PHONE_HIKER_PARRY, .Parry
.Jack
farwritetext JackNumberDeclinedText
@@ -1047,26 +1047,26 @@ NumberDeclinedMScript:
PhoneFullMScript:
checkcode VAR_CALLERID
if_equal $5, .Jack
if_equal $7, .Huey
if_equal $b, .Gaven
if_equal $d, .Jose
if_equal $f, .Joey
if_equal $10, .Wade
if_equal $11, .Ralph
if_equal $13, .Anthony
if_equal $14, .Todd
if_equal $16, .Irwin
if_equal $17, .Arnie
if_equal $18, .Alan
if_equal $1b, .Chad
if_equal $1c, .Derek
if_equal $1d, .Tully
if_equal $1e, .Brent
if_equal $20, .Vance
if_equal $21, .Wilton
if_equal $22, .Kenji
if_equal $23, .Parry
if_equal PHONE_SCHOOLBOY_JACK, .Jack
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_FISHER_RALPH, .Ralph
if_equal PHONE_HIKER_ANTHONY, .Anthony
if_equal PHONE_CAMPER_TODD, .Todd
if_equal PHONE_JUGGLER_IRWIN, .Irwin
if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_SCHOOLBOY_CHAD, .Chad
if_equal PHONE_POKEFANM_DEREK, .Derek
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_POKEMANIAC_BRENT, .Brent
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_BLACKBELT_KENJI, .Kenji
if_equal PHONE_HIKER_PARRY, .Parry
.Jack
farwritetext JackPhoneFullText
@@ -1171,23 +1171,23 @@ PhoneFullMScript:
RematchMScript:
checkcode VAR_CALLERID
if_equal $5, .Jack
if_equal $7, .Huey
if_equal $b, .Gaven
if_equal $d, .Jose
if_equal $f, .Joey
if_equal $10, .Wade
if_equal $11, .Ralph
if_equal $13, .Anthony
if_equal $14, .Todd
if_equal $17, .Arnie
if_equal $18, .Alan
if_equal $1b, .Chad
if_equal $1d, .Tully
if_equal $1e, .Brent
if_equal $20, .Vance
if_equal $21, .Wilton
if_equal $23, .Parry
if_equal PHONE_SCHOOLBOY_JACK, .Jack
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_FISHER_RALPH, .Ralph
if_equal PHONE_HIKER_ANTHONY, .Anthony
if_equal PHONE_CAMPER_TODD, .Todd
if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_SCHOOLBOY_CHAD, .Chad
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_POKEMANIAC_BRENT, .Brent
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_HIKER_PARRY, .Parry
.Jack
farwritetext JackRematchText
@@ -1277,13 +1277,13 @@ RematchMScript:
GiftMScript:
checkcode VAR_CALLERID
if_equal $d, .Jose
if_equal $10, .Wade
if_equal $18, .Alan
if_equal $1c, .Derek
if_equal $1d, .Tully
if_equal $21, .Wilton
if_equal $22, .Kenji
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_POKEFANM_DEREK, .Derek
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_BLACKBELT_KENJI, .Kenji
.Jose
farwritetext JoseGiftText
@@ -1316,17 +1316,17 @@ GiftMScript:
PackFullMScript:
checkcode VAR_CALLERID
if_equal $7, .Huey
if_equal $d, .Jose
if_equal $f, .Joey
if_equal $10, .Wade
if_equal $18, .Alan
if_equal $1c, .Derek
if_equal $1d, .Tully
if_equal $20, .Vance
if_equal $21, .Wilton
if_equal $22, .Kenji
if_equal $23, .Parry
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_BIRDKEEPER_JOSE, .Jose
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BUG_CATCHER_WADE, .Wade
if_equal PHONE_SCHOOLBOY_ALAN, .Alan
if_equal PHONE_POKEFANM_DEREK, .Derek
if_equal PHONE_FISHER_TULLY, .Tully
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_FISHER_WILTON, .Wilton
if_equal PHONE_BLACKBELT_KENJI, .Kenji
if_equal PHONE_HIKER_PARRY, .Parry
.Huey
farwritetext HueyPackFullText
@@ -1387,10 +1387,10 @@ PackFullMScript:
RematchGiftMScript:
loadfont
checkcode VAR_CALLERID
if_equal $7, .Huey
if_equal $f, .Joey
if_equal $20, .Vance
if_equal $23, .Parry
if_equal PHONE_SAILOR_HUEY, .Huey
if_equal PHONE_YOUNGSTER_JOEY, .Joey
if_equal PHONE_BIRDKEEPER_VANCE, .Vance
if_equal PHONE_HIKER_PARRY, .Parry
.Huey
farwritetext HueyRematchGiftText
@@ -1411,14 +1411,14 @@ RematchGiftMScript:
AskNumber1FScript:
checkcode VAR_CALLERID
if_equal $6, .Beverly
if_equal $c, .Beth
if_equal $e, .Reena
if_equal $12, .Liz
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal $24, .Erin
if_equal PHONE_POKEFAN_BEVERLY, .Beverly
if_equal PHONE_COOLTRAINERF_BETH, .Beth
if_equal PHONE_COOLTRAINERF_REENA, .Reena
if_equal PHONE_PICNICKER_LIZ, .Liz
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
if_equal PHONE_PICNICKER_ERIN, .Erin
.Beverly
farwritetext BeverlyAskNumber1Text
@@ -1447,14 +1447,14 @@ AskNumber1FScript:
AskNumber2FScript:
checkcode VAR_CALLERID
if_equal $6, .Beverly
if_equal $c, .Beth
if_equal $e, .Reena
if_equal $12, .Liz
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal $24, .Erin
if_equal PHONE_POKEFAN_BEVERLY, .Beverly
if_equal PHONE_COOLTRAINERF_BETH, .Beth
if_equal PHONE_COOLTRAINERF_REENA, .Reena
if_equal PHONE_PICNICKER_LIZ, .Liz
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
if_equal PHONE_PICNICKER_ERIN, .Erin
.Beverly
farwritetext BeverlyAskNumber2Text
@@ -1490,14 +1490,14 @@ RegisteredNumberFScript:
NumberAcceptedFScript: ; 0xbcbd3
checkcode VAR_CALLERID
if_equal $6, .Beverly
if_equal $c, .Beth
if_equal $e, .Reena
if_equal $12, .Liz
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal $24, .Erin
if_equal PHONE_POKEFAN_BEVERLY, .Beverly
if_equal PHONE_COOLTRAINERF_BETH, .Beth
if_equal PHONE_COOLTRAINERF_REENA, .Reena
if_equal PHONE_PICNICKER_LIZ, .Liz
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
if_equal PHONE_PICNICKER_ERIN, .Erin
.Beverly
farwritetext BeverlyNumberAcceptedText
@@ -1542,14 +1542,14 @@ NumberAcceptedFScript: ; 0xbcbd3
NumberDeclinedFScript:
checkcode VAR_CALLERID
if_equal $6, .Beverly
if_equal $c, .Beth
if_equal $e, .Reena
if_equal $12, .Liz
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal $24, .Erin
if_equal PHONE_POKEFAN_BEVERLY, .Beverly
if_equal PHONE_COOLTRAINERF_BETH, .Beth
if_equal PHONE_COOLTRAINERF_REENA, .Reena
if_equal PHONE_PICNICKER_LIZ, .Liz
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
if_equal PHONE_PICNICKER_ERIN, .Erin
.Beverly
farwritetext BeverlyNumberDeclinedText
@@ -1594,14 +1594,14 @@ NumberDeclinedFScript:
PhoneFullFScript:
checkcode VAR_CALLERID
if_equal $6, .Beverly
if_equal $c, .Beth
if_equal $e, .Reena
if_equal $12, .Liz
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal $24, .Erin
if_equal PHONE_POKEFAN_BEVERLY, .Beverly
if_equal PHONE_COOLTRAINERF_BETH, .Beth
if_equal PHONE_COOLTRAINERF_REENA, .Reena
if_equal PHONE_PICNICKER_LIZ, .Liz
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
if_equal PHONE_PICNICKER_ERIN, .Erin
.Beverly
farwritetext BeverlyPhoneFullText
@@ -1646,13 +1646,13 @@ PhoneFullFScript:
RematchFScript:
checkcode VAR_CALLERID
if_equal $c, .Beth
if_equal $e, .Reena
if_equal $12, .Liz
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal $24, .Erin
if_equal PHONE_COOLTRAINERF_BETH, .Beth
if_equal PHONE_COOLTRAINERF_REENA, .Reena
if_equal PHONE_PICNICKER_LIZ, .Liz
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
if_equal PHONE_PICNICKER_ERIN, .Erin
.Beth
farwritetext BethRematchText
@@ -1692,10 +1692,10 @@ RematchFScript:
GiftFScript:
checkcode VAR_CALLERID
if_equal $6, .Beverly
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal PHONE_POKEFAN_BEVERLY, .Beverly
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
.Beverly
farwritetext BeverlyGiftText
@@ -1716,11 +1716,11 @@ GiftFScript:
PackFullFScript:
checkcode VAR_CALLERID
if_equal $6, .Beverly
if_equal $15, .Gina
if_equal $1a, .Dana
if_equal $1f, .Tiffany
if_equal $24, .Erin
if_equal PHONE_POKEFAN_BEVERLY, .Beverly
if_equal PHONE_PICNICKER_GINA, .Gina
if_equal PHONE_LASS_DANA, .Dana
if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
if_equal PHONE_PICNICKER_ERIN, .Erin
.Beverly
farwritetext BeverlyPackFullText
@@ -1750,7 +1750,7 @@ PackFullFScript:
RematchGiftFScript:
checkcode VAR_CALLERID
if_equal $24, .Erin
if_equal PHONE_PICNICKER_ERIN, .Erin
.Erin
loadfont
@@ -1761,7 +1761,7 @@ RematchGiftFScript:
GymStatue1Script:
mapnametotext $0
loadfont
farwritetext UnknownText_0x1b074e
farwritetext GymStatue_CityGymText
closetext
loadmovesprites
end
@@ -1769,114 +1769,114 @@ GymStatue1Script:
GymStatue2Script:
mapnametotext $0
loadfont
farwritetext UnknownText_0x1b074e
farwritetext GymStatue_CityGymText
keeptextopen
farwritetext UnknownText_0x1b075c
farwritetext GymStatue_WinningTrainersText
closetext
loadmovesprites
end
UnknownScript_0xbcdb9: ; 0xbcdb9
ReceiveItemScript: ; 0xbcdb9
waitbutton
farwritetext UnknownText_0x1b0648
farwritetext ReceivedItemText
playsound SFX_ITEM
waitbutton
end
; 0xbcdc3
UnknownScript_0xbcdc3: ; 0xbcdc3
ReceiveTogepiEggScript: ; 0xbcdc3
waitbutton
farwritetext UnknownText_0x1b0648
farwritetext ReceivedItemText
playsound SFX_GET_EGG_FROM_DAYCARE_LADY
waitbutton
end
; 0xbcdcd
UnknownScript_0xbcdcd: ; 0xbcdcd
GameCornerCoinVendorScript: ; 0xbcdcd
faceplayer
loadfont
farwritetext UnknownText_0x1b077f
farwritetext CoinVendor_WelcomeText
keeptextopen
checkitem COIN_CASE
iftrue UnknownScript_0xbcde0
farwritetext UnknownText_0x1b079c
iftrue CoinVendor_IntroScript
farwritetext CoinVendor_NoCoinCaseText
closetext
loadmovesprites
end
; 0xbcde0
UnknownScript_0xbcde0: ; 0xbcde0
farwritetext UnknownText_0x1b07e3
CoinVendor_IntroScript: ; 0xbcde0
farwritetext CoinVendor_IntroText
UnknownScript_0xbcde4: ; 0xbcde4
CoinVendor_SellCoinsMenuScript: ; 0xbcde4
special Function24b4e
loadmenudata MenuDataHeader_0xbce54
loadmenudata CoinVendor_MenuDataHeader
interpretmenu2
writebackup
if_equal $1, UnknownScript_0xbcdf7
if_equal $2, UnknownScript_0xbce1b
jump UnknownScript_0xbce4d
if_equal $1, CoinVendor_Buy50CoinsScript
if_equal $2, CoinVendor_Buy500CoinsScript
jump CoinVendor_CancelScript
; 0xbcdf7
UnknownScript_0xbcdf7: ; 0xbcdf7
CoinVendor_Buy50CoinsScript: ; 0xbcdf7
checkcoins 9949
if_equal $0, UnknownScript_0xbce46
if_equal $0, CoinVendor_CoinCaseFullScript
checkmoney $0, 1000
if_equal $2, UnknownScript_0xbce3f
if_equal $2, CoinVendor_NotEnoughMoneyScript
givecoins 50
takemoney $0, 1000
waitbutton
playsound SFX_TRANSACTION
farwritetext UnknownText_0x1b0830
farwritetext CoinVendor_Buy50CoinsText
closetext
jump UnknownScript_0xbcde4
jump CoinVendor_SellCoinsMenuScript
; 0xbce1b
UnknownScript_0xbce1b: ; 0xbce1b
CoinVendor_Buy500CoinsScript: ; 0xbce1b
checkcoins 9499
if_equal $0, UnknownScript_0xbce46
if_equal $0, CoinVendor_CoinCaseFullScript
checkmoney $0, 10000
if_equal $2, UnknownScript_0xbce3f
if_equal $2, CoinVendor_NotEnoughMoneyScript
givecoins 500
takemoney $0, 10000
waitbutton
playsound SFX_TRANSACTION
farwritetext UnknownText_0x1b084f
farwritetext CoinVendor_Buy500CoinsText
closetext
jump UnknownScript_0xbcde4
jump CoinVendor_SellCoinsMenuScript
; 0xbce3f
UnknownScript_0xbce3f: ; 0xbce3f
farwritetext UnknownText_0x1b086f
CoinVendor_NotEnoughMoneyScript: ; 0xbce3f
farwritetext CoinVendor_NotEnoughMoneyText
closetext
loadmovesprites
end
; 0xbce46
UnknownScript_0xbce46: ; 0xbce46
farwritetext UnknownText_0x1b088c
CoinVendor_CoinCaseFullScript: ; 0xbce46
farwritetext CoinVendor_CoinCaseFullText
closetext
loadmovesprites
end
; 0xbce4d
UnknownScript_0xbce4d: ; 0xbce4d
farwritetext UnknownText_0x1b08ad
CoinVendor_CancelScript: ; 0xbce4d
farwritetext CoinVendor_CancelText
closetext
loadmovesprites
end
; 0xbce54
MenuDataHeader_0xbce54: ; 0xbce54
CoinVendor_MenuDataHeader: ; 0xbce54
db $40 ; flags
db 04, 00 ; start coords
db 11, 15 ; end coords
dw MenuData2_0xbce5c
dw CoinVendor_MenuData2
db 1 ; default option
; 0xbce5c
MenuData2_0xbce5c: ; 0xbce5c
CoinVendor_MenuData2: ; 0xbce5c
db $80 ; flags
db 3 ; items
db " 50 : ¥1000@"
@@ -1888,7 +1888,7 @@ MenuData2_0xbce5c: ; 0xbce5c
HappinessCheckScript:
faceplayer
loadfont
special Function718d
special GetFirstPokemonHappiness
if_less_than 50, .Unhappy
if_less_than 150, .KindaHappy
farwritetext HappinessText3
@@ -1908,7 +1908,7 @@ HappinessCheckScript:
loadmovesprites
end
MovementData_0xbcea1: ; bcea1
Movement_ContestResults_WalkAfterWarp: ; bcea1
step_right
step_down
turn_head_up