pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2025-04-09 05:44:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

More annotations and interpretations of functions and scripts

Browse Source
This commit is contained in:
PikalaxALT
2015-07-17 17:17:10 -04:00
parent 894955f9d9
commit 0fcef5fc08
32 changed files with 1157 additions and 1157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
engine/events_2.asm
View File

@@ -271,21 +271,21 @@ Function97db3:: ; 97db3
Function97db5: ; 97db5
ld hl, StatusFlags2
bit 4, [hl]
jr z, .asm_97df7
jr z, .NoCall
ld a, [PlayerState]
cp $1
jr nz, .asm_97df7
cp 1
jr nz, .NoCall
call Function2d05
and a
jr nz, .asm_97df7
jr nz, .NoCall
ld hl, wdca1 + 1
ld a, [hli]
ld d, a
ld e, [hl]
cp $ff
cp -1
jr nz, .asm_97dd8
ld a, e
cp $ff
cp -1
jr z, .asm_97ddc
.asm_97dd8
@@ -297,34 +297,34 @@ Function97db5: ; 97db5
.asm_97ddc
ld a, d
cp $4
jr c, .asm_97df7
ld a, [wdc31]
jr c, .NoCall
ld a, [wSpecialPhoneCallID]
and a
jr nz, .asm_97df7
ld a, $6
ld [wdc31], a
jr nz, .NoCall
ld a, 6
ld [wSpecialPhoneCallID], a
xor a
ld [wdc31 + 1], a
ld [wSpecialPhoneCallID + 1], a
ld hl, StatusFlags2
res 4, [hl]
scf
ret
.asm_97df7
.NoCall
xor a
ret
; 97df9
Function97df9:: ; 97df9
ld hl, wd6de
ld de, $0006
ld c, $4
ld de, 6
ld c, 4
xor a
.asm_97e02
.loop
ld [hl], a
add hl, de
dec c
jr nz, .asm_97e02
jr nz, .loop
ret
; 97e08

2
engine/more_phone_scripts.asm
View File

@@ -1656,5 +1656,5 @@ UnknownScript_0xa0b04:
UnknownScript_0xa0b09:
farwritetext UnknownText_0x174000
clearflag ENGINE_BIKE_SHOP_CALL_ENABLED
specialphonecall $0000
specialphonecall ELMCALL_NONE
end

16
engine/phone_scripts.asm
View File

@@ -139,7 +139,7 @@ MomPhoneNoGymQuestScript: ; 0xbcfac
MomPhoneLectureScript: ; 0xbcfb1
setevent EVENT_TALKED_TO_MOM_AFTER_MYSTERY_EGG_QUEST
setflag ENGINE_DST
specialphonecall $0000
specialphonecall ELMCALL_NONE
farwritetext MomPhoneLectureText
yesorno
iftrue MomPhoneSaveMoneyScript
@@ -247,7 +247,7 @@ ElmPhoneScript1: ; 0xbd00d
.pokerus ; 0xbd079
farwritetext ElmPhonePokerusText
specialphonecall $0000
specialphonecall ELMCALL_NONE
end
ElmPhoneScript2: ; 0xbd081
@@ -258,35 +258,35 @@ ElmPhoneScript2: ; 0xbd081
if_equal $5, .gift
if_equal $8, .gift
farwritetext ElmPhonePokerusText
specialphonecall $0000
specialphonecall ELMCALL_NONE
end
.disaster ; 0xbd09f
farwritetext ElmPhoneDisasterText
specialphonecall $0000
specialphonecall ELMCALL_NONE
setevent EVENT_ELM_CALLED_ABOUT_STOLEN_POKEMON
end
.assistant ; 0xbd0aa
farwritetext ElmPhoneEggAssistantText
specialphonecall $0000
specialphonecall ELMCALL_NONE
clearevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER
setevent EVENT_ELMS_AIDE_IN_LAB
end
.rocket ; 0xbd0b8
farwritetext ElmPhoneRocketText
specialphonecall $0000
specialphonecall ELMCALL_NONE
end
.gift ; 0xbd0c0
farwritetext ElmPhoneGiftText
specialphonecall $0000
specialphonecall ELMCALL_NONE
end
.unused ; 0xbd0c8
farwritetext ElmPhoneUnusedText
specialphonecall $0000
specialphonecall ELMCALL_NONE
end
; bd0d0

100
engine/scripting.asm
View File

@@ -2450,7 +2450,7 @@ GetMoneyAccount: ; 0x97861
; 0x9786d
LoadMoneyAmountToMem: ; 0x9786d
ld bc, $ffc3
ld bc, hMoneyTemp
push bc
call GetScriptByte
ld [bc], a
@@ -2498,8 +2498,8 @@ LoadCoinAmountToMem: ; 978a0
call GetScriptByte
ld [$ffc4], a
call GetScriptByte
ld [$ffc3], a
ld bc, $ffc3
ld [hMoneyTemp], a
ld bc, hMoneyTemp
ret
; 0x978ae
@@ -2572,6 +2572,7 @@ Script_checkcellnum: ; 0x97904
; script command 0x2a
; parameters:
; person (SingleByteParam)
; returns false if the cell number is not in your phone
xor a
ld [ScriptVar], a
@@ -2590,16 +2591,17 @@ Script_specialphonecall: ; 0x97919
; call_id (MultiByteParam)
call GetScriptByte
ld [wdc31], a
ld [wSpecialPhoneCallID], a
call GetScriptByte
ld [wdc31 + 1], a
ld [wSpecialPhoneCallID + 1], a
ret
; 0x97926
Script_checkphonecall: ; 0x97926
; script command 0x9d
; returns false if no special phone call is stored
ld a, [wdc31]
ld a, [wSpecialPhoneCallID]
and a
jr z, .ok
ld a, 1
@@ -2648,6 +2650,7 @@ Script_giveegg: ; 0x97968
; parameters:
; pkmn (PokemonParam)
; level (DecimalParam)
; if no room in the party, return 0 in ScriptVar; else, return 2
xor a
ld [ScriptVar], a
@@ -2658,7 +2661,7 @@ Script_giveegg: ; 0x97968
ld [CurPartyLevel], a
callba GiveEgg
ret nc
ld a, $2
ld a, 2
ld [ScriptVar], a
ret
; 0x97988
@@ -2672,7 +2675,7 @@ Script_setevent: ; 0x97988
ld e, a
call GetScriptByte
ld d, a
ld b, $1
ld b, 1 ; set
call EventFlagAction
ret
; 0x97996
@@ -2686,7 +2689,7 @@ Script_clearevent: ; 0x97996
ld e, a
call GetScriptByte
ld d, a
ld b, $0
ld b, 0 ; clear
call EventFlagAction
ret
; 0x979a4
@@ -2700,13 +2703,13 @@ Script_checkevent: ; 0x979a4
ld e, a
call GetScriptByte
ld d, a
ld b, $2
ld b, 2 ; check
call EventFlagAction
ld a, c
and a
jr z, .asm_979b7 ; 0x979b3 $2
ld a, $1
.asm_979b7
jr z, .false ; 0x979b3 $2
ld a, 1
.false
ld [ScriptVar], a
ret
; 0x979bb
@@ -2720,7 +2723,7 @@ Script_setflag: ; 0x979bb
ld e, a
call GetScriptByte
ld d, a
ld b, $1
ld b, 1 ; set
call _EngineFlagAction
ret
; 0x979c9
@@ -2734,7 +2737,7 @@ Script_clearflag: ; 0x979c9
ld e, a
call GetScriptByte
ld d, a
ld b, $0
ld b, 0 ; clear
call _EngineFlagAction
ret
; 0x979d7
@@ -2748,13 +2751,13 @@ Script_checkflag: ; 0x979d7
ld e, a
call GetScriptByte
ld d, a
ld b, $2
ld b, 2 ; check
call _EngineFlagAction
ld a, c
and a
jr z, .asm_979ea ; 0x979e6 $2
ld a, $1
.asm_979ea
jr z, .false ; 0x979e6 $2
ld a, 1
.false
ld [ScriptVar], a
ret
; 0x979ee
@@ -2808,7 +2811,7 @@ Script_warpfacing: ; 0x97a0e
set 5, a
or c
ld [wd45b], a
; 0x97a1d
; fall through
Script_warp: ; 0x97a1d
; script command 0x3c
@@ -2818,6 +2821,7 @@ Script_warp: ; 0x97a1d
; x (SingleByteParam)
; y (SingleByteParam)
; This seems to be some sort of error handling case.
call GetScriptByte
and a
jr z, .not_ok ; 0x97a21 $27
@@ -2828,11 +2832,11 @@ Script_warp: ; 0x97a1d
ld [XCoord], a
call GetScriptByte
ld [YCoord], a
ld a, $ff
ld a, -1
ld [wd001], a
ld a, $f1
ld a, -15
ld [$ff9f], a
ld a, $1
ld a, 1
call LoadMapStatus
call StopScript
ret
@@ -2840,11 +2844,11 @@ Script_warp: ; 0x97a1d
call GetScriptByte
call GetScriptByte
call GetScriptByte
ld a, $ff
ld a, -1
ld [wd001], a
ld a, $fb
ld a, -5
ld [$ff9f], a
ld a, $1
ld a, 1
call LoadMapStatus
call StopScript
ret
@@ -2882,7 +2886,7 @@ Script_blackoutmod: ; 0x97a78
Script_reloadmapmusic: ; 0x97a85
; script command 0x83
ld a, $1
ld a, 1
ld [wc2c1], a
ret
; 0x97a8b
@@ -2913,7 +2917,7 @@ Script_delcmdqueue: ; 0x97a9e
ld b, a
callba Function97e5c
ret c
ld a, $1
ld a, 1
ld [ScriptVar], a
ret
; 0x97ab3
@@ -2942,10 +2946,10 @@ Script_changeblock: ; 0x97acc
; block (SingleByteParam)
call GetScriptByte
add $4
add 4
ld d, a
call GetScriptByte
add $4
add 4
ld e, a
call GetBlockLocation
call GetScriptByte
@@ -2987,7 +2991,7 @@ Script_newloadmap: ; 0x97b08
call GetScriptByte
ld [$ff9f], a
ld a, $1
ld a, 1
call LoadMapStatus
call StopScript
ret
@@ -3064,14 +3068,14 @@ Script_pause: ; 0x97b47
call GetScriptByte
and a
jr z, .asm_97b50 ; 0x97b4b $3
jr z, .loop ; 0x97b4b $3
ld [ScriptDelay], a
.asm_97b50
.loop
ld c, 2
call DelayFrames
ld hl, ScriptDelay
dec [hl]
jr nz, .asm_97b50 ; 0x97b59 $f5
jr nz, .loop ; 0x97b59 $f5
ret
; 0x97b5c
@@ -3082,9 +3086,9 @@ Script_deactivatefacing: ; 0x97b5c
call GetScriptByte
and a
jr z, .asm_97b65 ; 0x97b60 $3
jr z, .no_time ; 0x97b60 $3
ld [ScriptDelay], a
.asm_97b65
.no_time
ld a, SCRIPT_WAIT
ld [ScriptMode], a
call StopScript
@@ -3104,9 +3108,9 @@ Script_end: ; 0x97b74
; script command 0x91
call ExitScriptSubroutine
jr c, .asm_97b7a
jr c, .resume
ret
.asm_97b7a
.resume
xor a
ld [ScriptRunning], a
ld a, SCRIPT_OFF
@@ -3121,8 +3125,8 @@ Script_return: ; 0x97b8c
; script command 0x90
call ExitScriptSubroutine
jr c, .asm_97b91
.asm_97b91
jr c, .dummy
.dummy
ld hl, ScriptFlags
res 0, [hl]
call StopScript
@@ -3135,17 +3139,15 @@ ExitScriptSubroutine: ; 0x97b9a
ld hl, wd43c
ld a, [hl]
and a
jr z, .asm_97bbe ; 0x97b9f $1d
jr z, .done ; 0x97b9f $1d
dec [hl]
ld e, [hl]
ld d, $0
ld hl, wd43d
add hl, de
add hl, de
add hl, de
add_n_times hl, de, 3
ld a, [hli]
ld b, a
and $7f
and " "
ld [ScriptBank], a
ld a, [hli]
ld e, a
@@ -3155,7 +3157,7 @@ ExitScriptSubroutine: ; 0x97b9a
ld [ScriptPos + 1], a
and a
ret
.asm_97bbe
.done
scf
ret
; 0x97bc0
@@ -3208,13 +3210,13 @@ Script_wait: ; 0x97c05
push bc
call GetScriptByte
.asm_97c09
.loop
push af
ld c, 6
call DelayFrames
pop af
dec a
jr nz, .asm_97c09 ; 0x97c11 $f6
jr nz, .loop ; 0x97c11 $f6
pop bc
ret
; 0x97c15
@@ -3229,7 +3231,7 @@ Script_unknown0xa9: ; 0x97c15
; 0x97c20
Function97c20: ; 97c20
Function97c20: ; 97c20 unreferenced
ld a, [.byte]
ld [ScriptVar], a
ret

8
engine/std_scripts.asm
View File

@@ -159,7 +159,7 @@ PokeCenterNurseScript:
.pokerus_done
setflag ENGINE_POKERUS
specialphonecall 1 ; elm calls about pokerus
specialphonecall ELMCALL_POKERUS
end
DifficultBookshelfScript:
@@ -297,7 +297,7 @@ RadioTowerRocketsScript:
clearevent EVENT_6CE
clearevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER
setevent EVENT_756
specialphonecall $0004
specialphonecall ELMCALL_WEIRDBROADCAST
domaptrigger GROUP_MAHOGANY_TOWN, MAP_MAHOGANY_TOWN, $1
end
@@ -383,7 +383,7 @@ BugContestResults_CleanUp
; 0xbc31e
BugContestResults_FirstPlace ; 0xbc31e
setevent EVENT_CHRIS1_IN_CABLE_CLUB
setevent EVENT_000
itemtotext SUN_STONE, $1
farwritetext ContestResults_PlayerWonAPrizeText
closetext
@@ -581,7 +581,7 @@ InitializeEventsScript:
setevent EVENT_7A5
setevent EVENT_6EC
setevent EVENT_6ED
setevent EVENT_6F0
setevent EVENT_GOLDENROD_SALE_OFF
setevent EVENT_7A9
setevent EVENT_EUSINE_IN_BURNED_TOWER
setevent EVENT_6C8