shithub: pokecrystal

Download patch

ref: 4b5424368f09ff83bfdd2454a4fd06985f5ff54d
parent: fb88b2ccf8f0897f95d25b82f95444ec775aa917
author: PikalaxALT <PikalaxALT@gmail.com>
date: Mon Nov 16 07:49:42 EST 2015

Little cleanup on engine/scripting.asm

--- a/engine/scripting.asm
+++ b/engine/scripting.asm
@@ -69,13 +69,13 @@
 ; 96cb1
 
 
-ScriptCommandTable: ; 0x96cb1
-	dw Script_2call
-	dw Script_3call
-	dw Script_2ptcall
-	dw Script_2jump
-	dw Script_3jump
-	dw Script_2ptjump
+ScriptCommandTable: ; 96cb1
+	dw Script_scall
+	dw Script_farscall
+	dw Script_ptcall
+	dw Script_jump
+	dw Script_farjump
+	dw Script_ptjump
 	dw Script_if_equal
 	dw Script_if_not_equal
 	dw Script_iffalse
@@ -84,9 +84,9 @@
 	dw Script_if_less_than
 	dw Script_jumpstd
 	dw Script_callstd
-	dw Script_3callasm
+	dw Script_callasm
 	dw Script_special
-	dw Script_2ptcallasm
+	dw Script_ptcallasm
 	dw Script_checkmaptriggers
 	dw Script_domaptrigger
 	dw Script_checktriggers
@@ -144,9 +144,9 @@
 	dw Script_loadfont
 	dw Script_refreshscreen
 	dw Script_loadmovesprites
-	dw Script_loadbytec1ce
-	dw Script_3writetext
-	dw Script_2writetext
+	dw Script_loadbytec2cf
+	dw Script_farwritetext
+	dw Script_writetext
 	dw Script_repeattext
 	dw Script_yesorno
 	dw Script_loadmenudata
@@ -153,7 +153,7 @@
 	dw Script_writebackup
 	dw Script_jumptextfaceplayer
 IF _CRYSTAL
-	dw Script_3jumptext
+	dw Script_farjumptext
 ENDC
 	dw Script_jumptext
 	dw Script_closetext
@@ -242,27 +242,27 @@
 	dw Script_name
 	dw Script_wait
 	dw Script_check_save
-; 0x96e05
+; 96e05
 
-StartScript: ; 0x96e05
+StartScript: ; 96e05
 	ld hl, ScriptFlags
 	set SCRIPT_RUNNING, [hl]
 	ret
-; 0x96e0b
+; 96e0b
 
-CheckScript: ; 0x96e0b
+CheckScript: ; 96e0b
 	ld hl, ScriptFlags
 	bit SCRIPT_RUNNING, [hl]
 	ret
-; 0x96e11
+; 96e11
 
-StopScript: ; 0x96e11
+StopScript: ; 96e11
 	ld hl, ScriptFlags
 	res SCRIPT_RUNNING, [hl]
 	ret
-; 0x96e17
+; 96e17
 
-Script_3callasm: ; 0x96e17
+Script_callasm: ; 96e17
 ; script command 0xe
 ; parameters:
 ;     asm (AsmPointerParam)
@@ -276,9 +276,9 @@
 	ld a, b
 	rst FarCall
 	ret
-; 0x96e26
+; 96e26
 
-Script_special: ; 0x96e26
+Script_special: ; 96e26
 ; script command 0xf
 ; parameters:
 ;     predefined_script (MultiByteParam)
@@ -289,9 +289,9 @@
 	ld d, a
 	callba Special
 	ret
-; 0x96e35
+; 96e35
 
-Script_2ptcallasm: ; 0x96e35
+Script_ptcallasm: ; 96e35
 ; script command 0x10
 ; parameters:
 ;     asm (PointerToAsmPointerParam)
@@ -308,9 +308,9 @@
 	ld a, b
 	rst FarCall
 	ret
-; 0x96e45
+; 96e45
 
-Script_jumptextfaceplayer: ; 0x96e45
+Script_jumptextfaceplayer: ; 96e45
 ; script command 0x51
 ; parameters:
 ;     text_pointer (RawTextPointerLabelParam)
@@ -324,9 +324,9 @@
 	ld b, BANK(JumpTextFacePlayerScript)
 	ld hl, JumpTextFacePlayerScript
 	jp ScriptJump
-; 0x96e5f
+; 96e5f
 
-Script_jumptext: ; 0x96e5f
+Script_jumptext: ; 96e5f
 ; script command 0x53
 ; parameters:
 ;     text_pointer (RawTextPointerLabelParam)
@@ -340,22 +340,22 @@
 	ld b, BANK(JumpTextScript)
 	ld hl, JumpTextScript
 	jp ScriptJump
-; 0x96e79
+; 96e79
 
-JumpTextFacePlayerScript: ; 0x96e79
+JumpTextFacePlayerScript: ; 96e79
 	faceplayer
-JumpTextScript: ; 0x96e7a
+JumpTextScript: ; 96e7a
 	loadfont
 	repeattext -1, -1
 	closetext
 	loadmovesprites
 	end
-; 0x96e81
+; 96e81
 
 
 IF _CRYSTAL
 
-Script_3jumptext: ; 0x96e81
+Script_farjumptext: ; 96e81
 ; script command 0x52
 ; parameters:
 ;     text_pointer (PointerLabelBeforeBank)
@@ -369,12 +369,12 @@
 	ld b, BANK(JumpTextScript)
 	ld hl, JumpTextScript
 	jp ScriptJump
-; 0x96e9b
+; 96e9b
 
 ENDC
 
 
-Script_2writetext: ; 0x96e9b
+Script_writetext: ; 96e9b
 ; script command 0x4c
 ; parameters:
 ;     text_pointer (RawTextPointerLabelParam)
@@ -387,9 +387,9 @@
 	ld b, a
 	call MapTextbox
 	ret
-; 0x96eab
+; 96eab
 
-Script_3writetext: ; 0x96eab
+Script_farwritetext: ; 96eab
 ; script command 0x4b
 ; parameters:
 ;     text_pointer (PointerLabelBeforeBank)
@@ -402,9 +402,9 @@
 	ld h, a
 	call MapTextbox
 	ret
-; 0x96ebb
+; 96ebb
 
-Script_repeattext: ; 0x96ebb
+Script_repeattext: ; 96ebb
 ; script command 0x4d
 ; parameters:
 ;     byte (SingleByteParam)
@@ -429,15 +429,15 @@
 	ret
 .done
 	ret
-; 0x96ed9
+; 96ed9
 
-Script_closetext: ; 0x96ed9
+Script_closetext: ; 96ed9
 ; script command 0x54
 
 	jp CloseText
-; 0x96edc
+; 96edc
 
-Script_keeptextopen: ; 0x96edc
+Script_keeptextopen: ; 96edc
 ; script command 0x55
 
 	ld a, [hOAMUpdate]
@@ -449,9 +449,9 @@
 	pop af
 	ld [hOAMUpdate], a
 	ret
-; 0x96eed
+; 96eed
 
-Script_yesorno: ; 0x96eed
+Script_yesorno: ; 96eed
 ; script command 0x4e
 
 	call YesNoBox
@@ -461,9 +461,9 @@
 .no
 	ld [ScriptVar], a
 	ret
-; 0x96efa
+; 96efa
 
-Script_loadmenudata: ; 0x96efa
+Script_loadmenudata: ; 96efa
 ; script command 0x4f
 ; parameters:
 ;     data (MenuDataPointerParam)
@@ -477,17 +477,17 @@
 	call Call_a_de
 	call UpdateSprites
 	ret
-; 0x96f0f
+; 96f0f
 
-Script_writebackup: ; 0x96f0f
+Script_writebackup: ; 96f0f
 ; script command 0x50
 
 	call WriteBackup
 	call UpdateSprites
 	ret
-; 0x96f16
+; 96f16
 
-Script_pokepic: ; 0x96f16
+Script_pokepic: ; 96f16
 ; script command 0x56
 ; parameters:
 ;     pokemon (PokemonParam)
@@ -500,16 +500,16 @@
 	ld [CurPartySpecies], a
 	callba Pokepic
 	ret
-; 0x96f29
+; 96f29
 
-Script_pokepicyesorno: ; 0x96f29
+Script_pokepicyesorno: ; 96f29
 ; script command 0x57
 
 	callba PokepicYesOrNo
 	ret
-; 0x96f30
+; 96f30
 
-Script_interpretmenu2: ; 0x96f30
+Script_interpretmenu2: ; 96f30
 ; script command 0x59
 
 	ld a, [ScriptBank]
@@ -521,9 +521,9 @@
 .ok
 	ld [ScriptVar], a
 	ret
-; 0x96f41
+; 96f41
 
-Script_interpretmenu: ; 0x96f41
+Script_interpretmenu: ; 96f41
 ; script command 0x58
 
 	ld a, [ScriptBank]
@@ -535,9 +535,9 @@
 .ok
 	ld [ScriptVar], a
 	ret
-; 0x96f52
+; 96f52
 
-Script_battletowertext: ; 0x96f52
+Script_battletowertext: ; 96f52
 ; script command 0xa4
 ; parameters:
 ;     pointer (PointerLabelBeforeBank)
@@ -548,9 +548,9 @@
 	ld c, a
 	callba BattleTowerText
 	ret
-; 0x96f60
+; 96f60
 
-Script_verbosegiveitem: ; 0x96f60
+Script_verbosegiveitem: ; 96f60
 ; script command 0x9e
 ; parameters:
 ;     item (ItemLabelByte)
@@ -564,7 +564,7 @@
 	ld b, BANK(GiveItemScript)
 	ld de, GiveItemScript
 	jp ScriptCall
-; 0x96f76
+; 96f76
 
 
 ret_96f76: ; 96f76
@@ -593,7 +593,7 @@
 ; 96f8e
 
 
-Script_verbosegiveitem2: ; 0x96f8e
+Script_verbosegiveitem2: ; 96f8e
 ; script command 0x9f
 ; parameters:
 ;     item (ItemLabelByte)
@@ -623,9 +623,9 @@
 	ld b, BANK(GiveItemScript)
 	ld de, GiveItemScript
 	jp ScriptCall
-; 0x96fc6
+; 96fc6
 
-Script_itemnotify: ; 0x96fc6
+Script_itemnotify: ; 96fc6
 ; script command 0x45
 
 	call GetPocketName
@@ -634,9 +634,9 @@
 	ld hl, PutItemInPocketText
 	call MapTextbox
 	ret
-; 0x96fd5
+; 96fd5
 
-Script_pocketisfull: ; 0x96fd5
+Script_pocketisfull: ; 96fd5
 ; script command 0x46
 
 	call GetPocketName
@@ -645,9 +645,9 @@
 	ld hl, PocketIsFullText
 	call MapTextbox
 	ret
-; 0x96fe4
+; 96fe4
 
-Script_specialsound: ; 0x96fe4
+Script_specialsound: ; 96fe4
 ; script command 0x88
 
 	callba CheckItemPocket
@@ -660,7 +660,7 @@
 	call PlaySFX
 	call WaitSFX
 	ret
-; 0x96ffe
+; 96ffe
 
 
 GetPocketName: ; 96ffe
@@ -715,7 +715,7 @@
 ; 97065
 
 
-Script_pokemart: ; 0x97065
+Script_pokemart: ; 97065
 ; script command 0x94
 ; parameters:
 ;     dialog_id (SingleByteParam)
@@ -731,9 +731,9 @@
 	ld b, a
 	callba OpenMartDialog
 	ret
-; 0x9707c
+; 9707c
 
-Script_elevator: ; 0x9707c
+Script_elevator: ; 9707c
 ; script command 0x95
 ; parameters:
 ;     floor_list_pointer (PointerLabelParam)
@@ -751,9 +751,9 @@
 	ld a, $1
 	ld [ScriptVar], a
 	ret
-; 0x97099
+; 97099
 
-Script_trade: ; 0x97099
+Script_trade: ; 97099
 ; script command 0x96
 ; parameters:
 ;     trade_id (SingleByteParam)
@@ -762,9 +762,9 @@
 	ld e, a
 	callba NPCTrade
 	ret
-; 0x970a4
+; 970a4
 
-Script_phonecall: ; 0x970a4
+Script_phonecall: ; 970a4
 ; script command 0x98
 ; parameters:
 ;     caller_name (RawTextPointerLabelParam)
@@ -777,16 +777,16 @@
 	ld b, a
 	callba PhoneCall
 	ret
-; 0x970b7
+; 970b7
 
-Script_hangup: ; 0x970b7
+Script_hangup: ; 970b7
 ; script command 0x99
 
 	callba HangUp
 	ret
-; 0x970be
+; 970be
 
-Script_askforphonenumber: ; 0x970be
+Script_askforphonenumber: ; 970be
 ; script command 0x97
 ; parameters:
 ;     number (SingleByteParam)
@@ -808,9 +808,9 @@
 .done
 	ld [ScriptVar], a
 	ret
-; 0x970df
+; 970df
 
-Script_describedecoration: ; 0x970df
+Script_describedecoration: ; 970df
 ; script command 0x9a
 ; parameters:
 ;     byte (SingleByteParam)
@@ -821,9 +821,9 @@
 	ld h, d
 	ld l, e
 	jp ScriptJump
-; 0x970ee
+; 970ee
 
-Script_fruittree: ; 0x970ee
+Script_fruittree: ; 970ee
 ; script command 0x9b
 ; parameters:
 ;     tree_id (SingleByteParam)
@@ -833,9 +833,9 @@
 	ld b, BANK(FruitTreeScript)
 	ld hl, FruitTreeScript
 	jp ScriptJump
-; 0x970fc
+; 970fc
 
-Script_loadwilddata: ; 0x970fc
+Script_loadwilddata: ; 970fc
 ; script command 0xa0
 ; parameters:
 ;     flag (SingleByteParam)
@@ -850,9 +850,9 @@
 	ld e, a
 	callba LoadWildData
 	ret
-; 0x9710f
+; 9710f
 
-Script_trainertext: ; 0x9710f
+Script_trainertext: ; 9710f
 ; script command 0x62
 ; parameters:
 ;     which_text (SingleByteParam)
@@ -871,9 +871,9 @@
 	ld b, a
 	call MapTextbox
 	ret
-; 0x97125
+; 97125
 
-Script_scripttalkafter: ; 0x97125
+Script_scripttalkafter: ; 97125
 ; script command 0x65
 
 	ld hl, wd04b
@@ -883,9 +883,9 @@
 	ld a, [EngineBuffer1]
 	ld b, a
 	jp ScriptJump
-; 0x97132
+; 97132
 
-Script_trainerstatus: ; 0x97132
+Script_trainerstatus: ; 97132
 ; script command 0x63
 ; parameters:
 ;     action (SingleByteParam)
@@ -905,9 +905,9 @@
 	ld a, 1
 	ld [ScriptVar], a
 	ret
-; 0x9714c
+; 9714c
 
-Script_winlosstext: ; 0x9714c
+Script_winlosstext: ; 9714c
 ; script command 0x64
 ; parameters:
 ;     win_text_pointer (TextPointerLabelParam)
@@ -924,9 +924,9 @@
 	call GetScriptByte
 	ld [hli], a
 	ret
-; 0x97163
+; 97163
 
-Script_talkaftercancel: ; 0x97163
+Script_talkaftercancel: ; 97163
 ; script command 0x66
 
 	ld a, [wd04d]
@@ -933,9 +933,9 @@
 	and a
 	ret z
 	jp Script_end
-; 0x9716b
+; 9716b
 
-Script_talkaftercheck: ; 0x9716b
+Script_talkaftercheck: ; 9716b
 ; script command 0x67
 
 	ld a, 1
@@ -946,9 +946,9 @@
 	xor a
 	ld [ScriptVar], a
 	ret
-; 0x9717a
+; 9717a
 
-Script_playrammusic: ; 0x9717a
+Script_playrammusic: ; 9717a
 ; script command 0x80
 
 	ld a, [OtherTrainerClass]
@@ -955,16 +955,16 @@
 	ld e, a
 	callba PlayTrainerEncounterMusic
 	ret
-; 0x97185
+; 97185
 
-Script_playmapmusic: ; 0x97185
+Script_playmapmusic: ; 97185
 ; script command 0x82
 
 	call PlayMapMusic
 	ret
-; 0x97189
+; 97189
 
-Script_playmusic: ; 0x97189
+Script_playmusic: ; 97189
 ; script command 0x7f
 ; parameters:
 ;     music_pointer (MultiByteParam)
@@ -980,9 +980,9 @@
 	ld d, a
 	call PlayMusic
 	ret
-; 0x971a2
+; 971a2
 
-Script_musicfadeout: ; 0x971a2
+Script_musicfadeout: ; 971a2
 ; script command 0x81
 ; parameters:
 ;     music (MultiByteParam)
@@ -996,9 +996,9 @@
 	and $7f
 	ld [MusicFade], a
 	ret
-; 0x971b7
+; 971b7
 
-Script_playsound: ; 0x971b7
+Script_playsound: ; 971b7
 ; script command 0x85
 ; parameters:
 ;     sound_pointer (MultiByteParam)
@@ -1009,24 +1009,24 @@
 	ld d, a
 	call PlaySFX
 	ret
-; 0x971c3
+; 971c3
 
-Script_waitbutton: ; 0x971c3
+Script_waitbutton: ; 971c3
 ; script command 0x86
 
 	call WaitSFX
 	ret
-; 0x971c7
+; 971c7
 
-Script_warpsound: ; 0x971c7
+Script_warpsound: ; 971c7
 ; script command 0x87
 
 	callba Function14a07
 	call PlaySFX
 	ret
-; 0x971d1
+; 971d1
 
-Script_cry: ; 0x971d1
+Script_cry: ; 971d1
 ; script command 0x84
 ; parameters:
 ;     cry_id (MultiByteParam)
@@ -1041,9 +1041,9 @@
 .ok
 	call PlayCry
 	ret
-; 0x971e3
+; 971e3
 
-GetScriptPerson: ; 0x971e3
+GetScriptPerson: ; 971e3
 	and a
 	ret z
 	cp LAST_TALKED
@@ -1050,9 +1050,9 @@
 	ret z
 	dec a
 	ret
-; 0x971ea
+; 971ea
 
-Script_setlasttalked: ; 0x971ea
+Script_setlasttalked: ; 971ea
 ; script command 0x68
 ; parameters:
 ;     person (SingleByteParam)
@@ -1061,9 +1061,9 @@
 	call GetScriptPerson
 	ld [hLastTalked], a
 	ret
-; 0x971f3
+; 971f3
 
-Script_applymovement: ; 0x971f3
+Script_applymovement: ; 971f3
 ; script command 0x69
 ; parameters:
 ;     person (SingleByteParam)
@@ -1097,14 +1097,14 @@
 	ld [ScriptMode], a
 	call StopScript
 	ret
-; 0x97221
+; 97221
 
-SetFlagsForMovement_2: ; 0x97221
+SetFlagsForMovement_2: ; 97221
 	callba _SetFlagsForMovement_2
 	ret
-; 0x97228
+; 97228
 
-Script_applymovement2: ; 0x97228
+Script_applymovement2: ; 97228
 ; apply movement to last talked
 ; script command 0x6a
 ; parameters:
@@ -1113,9 +1113,9 @@
 	ld a, [hLastTalked]
 	ld c, a
 	jp ApplyMovement
-; 0x9722e
+; 9722e
 
-Script_faceplayer: ; 0x9722e
+Script_faceplayer: ; 9722e
 ; script command 0x6b
 
 	ld a, [hLastTalked]
@@ -1134,9 +1134,9 @@
 	ld d, a
 	call ApplyPersonFacing
 	ret
-; 0x97248
+; 97248
 
-Script_faceperson: ; 0x97248
+Script_faceperson: ; 97248
 ; script command 0x6c
 ; parameters:
 ;     person1 (SingleByteParam)
@@ -1168,9 +1168,9 @@
 	ld d, c
 	call ApplyPersonFacing
 	ret
-; 0x97274
+; 97274
 
-Script_spriteface: ; 0x97274
+Script_spriteface: ; 97274
 ; script command 0x76
 ; parameters:
 ;     person (SingleByteParam)
@@ -1190,9 +1190,9 @@
 	ld e, a
 	call ApplyPersonFacing
 	ret
-; 0x9728b
+; 9728b
 
-ApplyPersonFacing: ; 0x9728b
+ApplyPersonFacing: ; 9728b
 	ld a, d
 	push de
 	call CheckObjectVisibility
@@ -1223,9 +1223,9 @@
 	pop de
 	scf
 	ret
-; 0x972bc
+; 972bc
 
-.DisableTextTiles: ; 0x972bc
+.DisableTextTiles: ; 972bc
 	call LoadMapPart
 	hlcoord 0, 0
 	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
@@ -1237,9 +1237,9 @@
 	or c
 	jr nz, .loop
 	ret
-; 0x972ce
+; 972ce
 
-Script_variablesprite: ; 0x972ce
+Script_variablesprite: ; 972ce
 ; script command 0x6d
 ; parameters:
 ;     byte (SingleByteParam)
@@ -1253,9 +1253,9 @@
 	call GetScriptByte
 	ld [hl], a
 	ret
-; 0x972dd
+; 972dd
 
-Script_appear: ; 0x972dd
+Script_appear: ; 972dd
 ; script command 0x6f
 ; parameters:
 ;     person (SingleByteParam)
@@ -1267,9 +1267,9 @@
 	ld b, 0 ; clear
 	call ApplyEventActionAppearDisappear
 	ret
-; 0x972ee
+; 972ee
 
-Script_disappear: ; 0x972ee
+Script_disappear: ; 972ee
 ; script command 0x6e
 ; parameters:
 ;     person (SingleByteParam)
@@ -1286,9 +1286,9 @@
 	call ApplyEventActionAppearDisappear
 	callba _UpdateSprites
 	ret
-; 0x9730b
+; 9730b
 
-ApplyEventActionAppearDisappear: ; 0x9730b
+ApplyEventActionAppearDisappear: ; 9730b
 	push bc
 	call GetMapObject
 	ld hl, MAPOBJECT_EVENT_FLAG
@@ -1307,9 +1307,9 @@
 .okay
 	call EventFlagAction
 	ret
-; 0x97325
+; 97325
 
-Script_follow: ; 0x97325
+Script_follow: ; 97325
 ; script command 0x70
 ; parameters:
 ;     person2 (SingleByteParam)
@@ -1323,16 +1323,16 @@
 	ld c, a
 	callba StartFollow
 	ret
-; 0x9733a
+; 9733a
 
-Script_stopfollow: ; 0x9733a
+Script_stopfollow: ; 9733a
 ; script command 0x71
 
 	callba StopFollow
 	ret
-; 0x97341
+; 97341
 
-Script_moveperson: ; 0x97341
+Script_moveperson: ; 97341
 ; script command 0x72
 ; parameters:
 ;     person (SingleByteParam)
@@ -1350,9 +1350,9 @@
 	ld e, a
 	callba CopyDECoordsToMapObject
 	ret
-; 0x9735b
+; 9735b
 
-Script_writepersonxy: ; 0x9735b
+Script_writepersonxy: ; 9735b
 ; script command 0x73
 ; parameters:
 ;     person (SingleByteParam)
@@ -1366,9 +1366,9 @@
 	ld b, a
 	callba WritePersonXY
 	ret
-; 0x9736f
+; 9736f
 
-Script_follownotexact: ; 0x9736f
+Script_follownotexact: ; 9736f
 ; script command 0x77
 ; parameters:
 ;     person2 (SingleByteParam)
@@ -1382,9 +1382,9 @@
 	ld c, a
 	callba FollowNotExact
 	ret
-; 0x97384
+; 97384
 
-Script_loademote: ; 0x97384
+Script_loademote: ; 97384
 ; script command 0x74
 ; parameters:
 ;     bubble (SingleByteParam)
@@ -1397,9 +1397,9 @@
 	ld c, a
 	callba LoadEmote
 	ret
-; 0x97396
+; 97396
 
-Script_showemote: ; 0x97396
+Script_showemote: ; 97396
 ; script command 0x75
 ; parameters:
 ;     bubble (SingleByteParam)
@@ -1419,7 +1419,7 @@
 	ld b, BANK(ShowEmoteScript)
 	ld de, ShowEmoteScript
 	jp ScriptCall
-; 0x973b6
+; 973b6
 
 ShowEmoteScript: ; 973b6
 	loademote EMOTE_MEM
@@ -1440,7 +1440,7 @@
 ; 973c7
 
 
-Script_earthquake: ; 0x973c7
+Script_earthquake: ; 973c7
 ; script command 0x78
 ; parameters:
 ;     param (DecimalParam)
@@ -1456,7 +1456,7 @@
 	ld b, BANK(.script)
 	ld de, .script
 	jp ScriptCall
-; 0x973e6
+; 973e6
 
 .script: ; 973e6
 	applymovement PLAYER, wd002
@@ -1471,7 +1471,7 @@
 ; 973f0
 
 
-Script_loadpikachudata: ; 0x973f0
+Script_loadpikachudata: ; 973f0
 ; script command 0x5a
 
 	ld a, PIKACHU
@@ -1479,17 +1479,17 @@
 	ld a, 5
 	ld [CurPartyLevel], a
 	ret
-; 0x973fb
+; 973fb
 
-Script_battlecheck: ; 0x973fb
+Script_battlecheck: ; 973fb
 ; script command 0x5b
 
 	xor a
 	ld [wd459], a
 	ret
-; 0x97400
+; 97400
 
-Script_loadtrainerdata: ; 0x97400
+Script_loadtrainerdata: ; 97400
 ; script command 0x5c
 
 	ld a, (1 << 7) | 1
@@ -1499,9 +1499,9 @@
 	ld a, [FacingDirection]
 	ld [OtherTrainerID], a
 	ret
-; 0x97412
+; 97412
 
-Script_loadpokedata: ; 0x97412
+Script_loadpokedata: ; 97412
 ; script command 0x5d
 ; parameters:
 ;     pokemon (PokemonParam)
@@ -1514,9 +1514,9 @@
 	call GetScriptByte
 	ld [CurPartyLevel], a
 	ret
-; 0x97424
+; 97424
 
-Script_loadtrainer: ; 0x97424
+Script_loadtrainer: ; 97424
 ; script command 0x5e
 ; parameters:
 ;     trainer_group (TrainerGroupParam)
@@ -1529,9 +1529,9 @@
 	call GetScriptByte
 	ld [OtherTrainerID], a
 	ret
-; 0x97436
+; 97436
 
-Script_startbattle: ; 0x97436
+Script_startbattle: ; 97436
 ; script command 0x5f
 
 	call BufferScreen
@@ -1540,9 +1540,9 @@
 	and $3f
 	ld [ScriptVar], a
 	ret
-; 0x97447
+; 97447
 
-Script_catchtutorial: ; 0x97447
+Script_catchtutorial: ; 97447
 ; script command 0x61
 ; parameters:
 ;     byte (SingleByteParam)
@@ -1552,9 +1552,9 @@
 	call BufferScreen
 	callba CatchTutorial
 	jp Script_reloadmap
-; 0x97459
+; 97459
 
-Script_returnafterbattle: ; 0x97459
+Script_returnafterbattle: ; 97459
 ; script command 0x60
 
 	ld hl, wd459
@@ -1583,9 +1583,9 @@
 	callba LoadScriptBDE
 .done
 	jp Script_reloadmap
-; 0x97491
+; 97491
 
-Script_reloadmap: ; 0x97491
+Script_reloadmap: ; 97491
 ; script command 0x7b
 
 	xor a
@@ -1596,9 +1596,9 @@
 	call LoadMapStatus
 	call StopScript
 	ret
-; 0x974a2
+; 974a2
 
-Script_2call: ; 0x974a2
+Script_scall: ; 974a2
 ; script command 0x0
 ; parameters:
 ;     pointer (ScriptPointerLabelParam)
@@ -1610,9 +1610,9 @@
 	call GetScriptByte
 	ld d, a
 	jr ScriptCall
-; 0x974b0
+; 974b0
 
-Script_3call: ; 0x974b0
+Script_farscall: ; 974b0
 ; script command 0x1
 ; parameters:
 ;     pointer (ScriptPointerLabelBeforeBank)
@@ -1624,9 +1624,9 @@
 	call GetScriptByte
 	ld d, a
 	jr ScriptCall
-; 0x974be
+; 974be
 
-Script_2ptcall: ; 0x974be
+Script_ptcall: ; 974be
 ; script command 0x2
 ; parameters:
 ;     pointer (PointerLabelToScriptPointer)
@@ -1642,7 +1642,7 @@
 	ld d, [hl]
 	; fallthrough
 
-ScriptCall: ; 0x974cb
+ScriptCall: ; 974cb
 ; Bug: The script stack has a capacity of 5 scripts, yet there is
 ; nothing to stop you from pushing a sixth script.  The high part
 ; of the script address can then be overwritten by modifications
@@ -1672,16 +1672,16 @@
 	ld a, d
 	ld [ScriptPos + 1], a
 	ret
-; 0x974f3
+; 974f3
 
-CallCallback:: ; 0x974f3
+CallCallback:: ; 974f3
 	ld a, [ScriptBank]
 	or $80
 	ld [ScriptBank], a
 	jp ScriptCall
-; 0x974fe
+; 974fe
 
-Script_2jump: ; 0x974fe
+Script_jump: ; 974fe
 ; script command 0x3
 ; parameters:
 ;     pointer (ScriptPointerLabelParam)
@@ -1693,9 +1693,9 @@
 	ld a, [ScriptBank]
 	ld b, a
 	jp ScriptJump
-; 0x9750d
+; 9750d
 
-Script_3jump: ; 0x9750d
+Script_farjump: ; 9750d
 ; script command 0x4
 ; parameters:
 ;     pointer (ScriptPointerLabelBeforeBank)
@@ -1707,9 +1707,9 @@
 	call GetScriptByte
 	ld h, a
 	jp ScriptJump
-; 0x9751c
+; 9751c
 
-Script_2ptjump: ; 0x9751c
+Script_ptjump: ; 9751c
 ; script command 0x5
 ; parameters:
 ;     pointer (PointerLabelToScriptPointer)
@@ -1724,9 +1724,9 @@
 	ld h, [hl]
 	ld l, a
 	jp ScriptJump
-; 0x9752c
+; 9752c
 
-Script_iffalse: ; 0x9752c
+Script_iffalse: ; 9752c
 ; script command 0x8
 ; parameters:
 ;     pointer (ScriptPointerLabelParam)
@@ -1734,10 +1734,10 @@
 	ld a, [ScriptVar]
 	and a
 	jp nz, SkipTwoScriptBytes
-	jp Script_2jump
-; 0x97536
+	jp Script_jump
+; 97536
 
-Script_iftrue: ; 0x97536
+Script_iftrue: ; 97536
 ; script command 0x9
 ; parameters:
 ;     pointer (ScriptPointerLabelParam)
@@ -1744,11 +1744,11 @@
 
 	ld a, [ScriptVar]
 	and a
-	jp nz, Script_2jump
+	jp nz, Script_jump
 	jp SkipTwoScriptBytes
-; 0x97540
+; 97540
 
-Script_if_equal: ; 0x97540
+Script_if_equal: ; 97540
 ; script command 0x6
 ; parameters:
 ;     byte (SingleByteParam)
@@ -1757,11 +1757,11 @@
 	call GetScriptByte
 	ld hl, ScriptVar
 	cp [hl]
-	jr z, Script_2jump
+	jr z, Script_jump
 	jr SkipTwoScriptBytes
-; 0x9754b
+; 9754b
 
-Script_if_not_equal: ; 0x9754b
+Script_if_not_equal: ; 9754b
 ; script command 0x7
 ; parameters:
 ;     byte (SingleByteParam)
@@ -1770,11 +1770,11 @@
 	call GetScriptByte
 	ld hl, ScriptVar
 	cp [hl]
-	jr nz, Script_2jump
+	jr nz, Script_jump
 	jr SkipTwoScriptBytes
-; 0x97556
+; 97556
 
-Script_if_greater_than: ; 0x97556
+Script_if_greater_than: ; 97556
 ; script command 0xa
 ; parameters:
 ;     byte (SingleByteParam)
@@ -1784,11 +1784,11 @@
 	ld b, a
 	call GetScriptByte
 	cp b
-	jr c, Script_2jump
+	jr c, Script_jump
 	jr SkipTwoScriptBytes
-; 0x97562
+; 97562
 
-Script_if_less_than: ; 0x97562
+Script_if_less_than: ; 97562
 ; script command 0xb
 ; parameters:
 ;     byte (SingleByteParam)
@@ -1798,11 +1798,11 @@
 	ld b, a
 	ld a, [ScriptVar]
 	cp b
-	jr c, Script_2jump
+	jr c, Script_jump
 	jr SkipTwoScriptBytes
-; 0x9756e
+; 9756e
 
-Script_jumpstd: ; 0x9756e
+Script_jumpstd: ; 9756e
 ; script command 0xc
 ; parameters:
 ;     predefined_script (MultiByteParam)
@@ -1809,9 +1809,9 @@
 
 	call StdScript
 	jr ScriptJump
-; 0x97573
+; 97573
 
-Script_callstd: ; 0x97573
+Script_callstd: ; 97573
 ; script command 0xd
 ; parameters:
 ;     predefined_script (MultiByteParam)
@@ -1820,9 +1820,9 @@
 	ld d, h
 	ld e, l
 	jp ScriptCall
-; 0x9757b
+; 9757b
 
-StdScript: ; 0x9757b
+StdScript: ; 9757b
 	call GetScriptByte
 	ld e, a
 	call GetScriptByte
@@ -1838,15 +1838,15 @@
 	ld a, BANK(StdScripts)
 	call GetFarHalfword
 	ret
-; 0x97596
+; 97596
 
-SkipTwoScriptBytes: ; 0x97596
+SkipTwoScriptBytes: ; 97596
 	call GetScriptByte
 	call GetScriptByte
 	ret
-; 0x9759d
+; 9759d
 
-ScriptJump: ; 0x9759d
+ScriptJump: ; 9759d
 	ld a, b
 	ld [ScriptBank], a
 	ld a, l
@@ -1854,9 +1854,9 @@
 	ld a, h
 	ld [ScriptPos + 1], a
 	ret
-; 0x975aa
+; 975aa
 
-Script_priorityjump: ; 0x975aa
+Script_priorityjump: ; 975aa
 ; script command 0x8d
 ; parameters:
 ;     pointer (ScriptPointerLabelParam)
@@ -1870,22 +1870,23 @@
 	ld hl, ScriptFlags
 	set 3, [hl]
 	ret
-; 0x975c2
+; 975c2
 
-Script_checktriggers: ; 0x975c2
+Script_checktriggers: ; 975c2
 ; script command 0x13
 
 	call CheckTriggers
-	jr z, .asm_975cb
+	jr z, .no_triggers
 	ld [ScriptVar], a
 	ret
-.asm_975cb
+
+.no_triggers
 	ld a, $ff
 	ld [ScriptVar], a
 	ret
-; 0x975d1
+; 975d1
 
-Script_checkmaptriggers: ; 0x975d1
+Script_checkmaptriggers: ; 975d1
 ; script command 0x11
 ; parameters:
 ;     map_group (SingleByteParam)
@@ -1898,17 +1899,18 @@
 	call GetMapTrigger
 	ld a, d
 	or e
-	jr z, .asm_975e5
+	jr z, .no_triggers
 	ld a, [de]
 	ld [ScriptVar], a
 	ret
-.asm_975e5
+
+.no_triggers
 	ld a, $ff
 	ld [ScriptVar], a
 	ret
-; 0x975eb
+; 975eb
 
-Script_dotrigger: ; 0x975eb
+Script_dotrigger: ; 975eb
 ; script command 0x14
 ; parameters:
 ;     trigger_id (SingleByteParam)
@@ -1917,10 +1919,10 @@
 	ld b, a
 	ld a, [MapNumber]
 	ld c, a
-	jr Unknown_975fd
-; 0x975f5
+	jr DoTrigger
+; 975f5
 
-Script_domaptrigger: ; 0x975f5
+Script_domaptrigger: ; 975f5
 ; script command 0x12
 ; parameters:
 ;     map_group (MapGroupParam)
@@ -1931,20 +1933,18 @@
 	ld b, a
 	call GetScriptByte
 	ld c, a
-	; fallthrough
-
-Unknown_975fd: ; 0x975fd
+DoTrigger: ; 975fd
 	call GetMapTrigger
 	ld a, d
 	or e
-	jr z, .asm_97608
+	jr z, .no_trigger
 	call GetScriptByte
 	ld [de], a
-.asm_97608
+.no_trigger
 	ret
-; 0x97609
+; 97609
 
-Script_copybytetovar: ; 0x97609
+Script_copybytetovar: ; 97609
 ; script command 0x19
 ; parameters:
 ;     address (RAMAddressParam)
@@ -1956,9 +1956,9 @@
 	ld a, [hl]
 	ld [ScriptVar], a
 	ret
-; 0x97616
+; 97616
 
-Script_copyvartobyte: ; 0x97616
+Script_copyvartobyte: ; 97616
 ; script command 0x1a
 ; parameters:
 ;     address (RAMAddressParam)
@@ -1970,9 +1970,9 @@
 	ld a, [ScriptVar]
 	ld [hl], a
 	ret
-; 0x97623
+; 97623
 
-Script_loadvar: ; 0x97623
+Script_loadvar: ; 97623
 ; script command 0x1b
 ; parameters:
 ;     address (RAMAddressParam)
@@ -1985,9 +1985,9 @@
 	call GetScriptByte
 	ld [hl], a
 	ret
-; 0x97630
+; 97630
 
-Script_writebyte: ; 0x97630
+Script_writebyte: ; 97630
 ; script command 0x15
 ; parameters:
 ;     value (SingleByteParam)
@@ -1995,9 +1995,9 @@
 	call GetScriptByte
 	ld [ScriptVar], a
 	ret
-; 0x97637
+; 97637
 
-Script_addvar: ; 0x97637
+Script_addvar: ; 97637
 ; script command 0x16
 ; parameters:
 ;     value (SingleByteParam)
@@ -2007,9 +2007,9 @@
 	add [hl]
 	ld [hl], a
 	ret
-; 0x97640
+; 97640
 
-Script_random: ; 0x97640
+Script_random: ; 97640
 ; script command 0x17
 ; parameters:
 ;     input (SingleByteParam)
@@ -2050,9 +2050,9 @@
 	call SimpleDivide
 	ld [ScriptVar], a
 	ret
-; 0x97673
+; 97673
 
-.Divide256byC: ; 0x97673
+.Divide256byC: ; 97673
 	xor a
 	ld b, a
 	sub c
@@ -2063,9 +2063,9 @@
 	dec b
 	add c
 	ret
-; 0x9767d
+; 9767d
 
-Script_checkcode: ; 0x9767d
+Script_checkcode: ; 9767d
 ; script command 0x1c
 ; parameters:
 ;     variable_id (SingleByteParam)
@@ -2075,9 +2075,9 @@
 	ld a, [de]
 	ld [ScriptVar], a
 	ret
-; 0x97688
+; 97688
 
-Script_writevarcode: ; 0x97688
+Script_writevarcode: ; 97688
 ; script command 0x1d
 ; parameters:
 ;     variable_id (SingleByteParam)
@@ -2087,9 +2087,9 @@
 	ld a, [ScriptVar]
 	ld [de], a
 	ret
-; 0x97693
+; 97693
 
-Script_writecode: ; 0x97693
+Script_writecode: ; 97693
 ; script command 0x1e
 ; parameters:
 ;     variable_id (SingleByteParam)
@@ -2100,27 +2100,27 @@
 	call GetScriptByte
 	ld [de], a
 	ret
-; 0x9769e
+; 9769e
 
-GetVarAction: ; 0x9769e
+GetVarAction: ; 9769e
 	ld c, a
 	callba _GetVarAction
 	ret
-; 0x976a6
+; 976a6
 
-Script_checkver: ; 0x976a6
+Script_checkver: ; 976a6
 ; script command 0x18
 
 	ld a, [Version]
 	ld [ScriptVar], a
 	ret
-; 0x976ad
+; 976ad
 
 Version: ; 976ad
 	db VERSION
 ; 976ae
 
-Script_pokenamemem: ; 0x976ae
+Script_pokenamemem: ; 976ae
 ; script command 0x40
 ; parameters:
 ;     pokemon (PokemonParam); leave $0 to draw from script var
@@ -2135,7 +2135,7 @@
 	call GetPokemonName
 	ld de, StringBuffer1
 
-ConvertMemToText: ; 0x976c0
+ConvertMemToText: ; 976c0
 	call GetScriptByte
 	cp 3
 	jr c, .ok
@@ -2148,9 +2148,9 @@
 	call AddNTimes
 	call CopyName2
 	ret
-; 0x976d5
+; 976d5
 
-Script_itemtotext: ; 0x976d5
+Script_itemtotext: ; 976d5
 ; script command 0x41
 ; parameters:
 ;     item (ItemLabelByte)
@@ -2165,9 +2165,9 @@
 	call GetItemName
 	ld de, StringBuffer1
 	jr ConvertMemToText
-; 0x976e9
+; 976e9
 
-Script_mapnametotext: ; 0x976e9
+Script_mapnametotext: ; 976e9
 ; script command 0x42
 ; parameters:
 ;     memory (SingleByteParam)
@@ -2178,14 +2178,14 @@
 	ld c, a
 	call GetWorldMapLocation
 
-ConvertLandmarkToText: ; 0x976f4
+ConvertLandmarkToText: ; 976f4
 	ld e, a
 	callba GetLandmarkName
 	ld de, StringBuffer1
 	jp ConvertMemToText
-; 0x97701
+; 97701
 
-Script_displaylocation: ; 0x97701
+Script_displaylocation: ; 97701
 ; script command 0xa5
 ; parameters:
 ;     id (SingleByteParam)
@@ -2193,9 +2193,9 @@
 
 	call GetScriptByte
 	jr ConvertLandmarkToText
-; 0x97706
+; 97706
 
-Script_trainertotext: ; 0x97706
+Script_trainertotext: ; 97706
 ; script command 0x43
 ; parameters:
 ;     trainer_id (TrainerGroupParam)
@@ -2208,9 +2208,9 @@
 	ld b, a
 	callba GetTrainerName
 	jr ConvertMemToText
-; 0x97716
+; 97716
 
-Script_name: ; 0x97716
+Script_name: ; 97716
 ; script command 0xa7
 ; parameters:
 ;     type (SingleByteParam)
@@ -2220,15 +2220,15 @@
 	call GetScriptByte
 	ld [wNamedObjectTypeBuffer], a
 
-ContinueToGetName: ; 0x9771c
+ContinueToGetName: ; 9771c
 	call GetScriptByte
 	ld [CurSpecies], a
 	call GetName
 	ld de, StringBuffer1
 	jp ConvertMemToText
-; 0x9772b
+; 9772b
 
-Script_trainerclassname: ; 0x9772b
+Script_trainerclassname: ; 9772b
 ; script command 0xa6
 ; parameters:
 ;     id (SingleByteParam)
@@ -2237,9 +2237,9 @@
 	ld a, TRAINER_NAME
 	ld [wNamedObjectTypeBuffer], a
 	jr ContinueToGetName
-; 0x97732
+; 97732
 
-Script_readmoney: ; 0x97732
+Script_readmoney: ; 97732
 ; script command 0x3d
 ; parameters:
 ;     account (SingleByteParam)
@@ -2252,9 +2252,9 @@
 	call PrintNum
 	ld de, StringBuffer1
 	jp ConvertMemToText
-; 0x97747
+; 97747
 
-Script_readcoins: ; 0x97747
+Script_readcoins: ; 97747
 ; script command 0x3e
 ; parameters:
 ;     memory (SingleByteParam)
@@ -2266,9 +2266,9 @@
 	call PrintNum
 	ld de, StringBuffer1
 	jp ConvertMemToText
-; 0x9775c
+; 9775c
 
-Script_RAM2MEM: ; 0x9775c
+Script_RAM2MEM: ; 9775c
 ; script command 0x3f
 ; parameters:
 ;     memory (SingleByteParam)
@@ -2280,17 +2280,17 @@
 	call PrintNum
 	ld de, StringBuffer1
 	jp ConvertMemToText
-; 0x97771
+; 97771
 
-ResetStringBuffer1: ; 0x97771
+ResetStringBuffer1: ; 97771
 	ld hl, StringBuffer1
 	ld bc, NAME_LENGTH
 	ld a, "@"
 	call ByteFill
 	ret
-; 0x9777d
+; 9777d
 
-Script_stringtotext: ; 0x9777d
+Script_stringtotext: ; 9777d
 ; script command 0x44
 ; parameters:
 ;     text_pointer (EncodedTextLabelParam)
@@ -2305,9 +2305,9 @@
 	rst FarCall
 	ld de, StringBuffer2
 	jp ConvertMemToText
-; 0x97792
+; 97792
 
-Script_givepokeitem: ; 0x97792
+Script_givepokeitem: ; 97792
 ; script command 0x2f
 ; parameters:
 ;     pointer (PointerParamToItemAndLetter)
@@ -2328,9 +2328,9 @@
 	pop bc
 	callba GivePokeItem
 	ret
-; 0x977b7
+; 977b7
 
-Script_checkpokeitem: ; 0x977b7
+Script_checkpokeitem: ; 977b7
 ; script command 0x30
 ; parameters:
 ;     pointer (PointerParamToItemAndLetter)
@@ -2343,9 +2343,9 @@
 	ld b, a
 	callba Function44654
 	ret
-; 0x977ca
+; 977ca
 
-Script_giveitem: ; 0x977ca
+Script_giveitem: ; 977ca
 ; script command 0x1f
 ; parameters:
 ;     item (ItemLabelByte)
@@ -2369,9 +2369,9 @@
 	xor a
 	ld [ScriptVar], a
 	ret
-; 0x977f0
+; 977f0
 
-Script_takeitem: ; 0x977f0
+Script_takeitem: ; 977f0
 ; script command 0x20
 ; parameters:
 ;     item (ItemLabelByte)
@@ -2391,9 +2391,9 @@
 	ld a, $1
 	ld [ScriptVar], a
 	ret
-; 0x97812
+; 97812
 
-Script_checkitem: ; 0x97812
+Script_checkitem: ; 97812
 ; script command 0x21
 ; parameters:
 ;     item (ItemLabelByte)
@@ -2408,9 +2408,9 @@
 	ld a, 1
 	ld [ScriptVar], a
 	ret
-; 0x97829
+; 97829
 
-Script_givemoney: ; 0x97829
+Script_givemoney: ; 97829
 ; script command 0x22
 ; parameters:
 ;     account (SingleByteParam)
@@ -2420,9 +2420,9 @@
 	call LoadMoneyAmountToMem
 	callba GiveMoney
 	ret
-; 0x97836
+; 97836
 
-Script_takemoney: ; 0x97836
+Script_takemoney: ; 97836
 ; script command 0x23
 ; parameters:
 ;     account (SingleByteParam)
@@ -2432,9 +2432,9 @@
 	call LoadMoneyAmountToMem
 	callba TakeMoney
 	ret
-; 0x97843
+; 97843
 
-Script_checkmoney: ; 0x97843
+Script_checkmoney: ; 97843
 ; script command 0x24
 ; parameters:
 ;     account (SingleByteParam)
@@ -2443,9 +2443,9 @@
 	call GetMoneyAccount
 	call LoadMoneyAmountToMem
 	callba CompareMoney
-; 0x9784f
+; 9784f
 
-CompareMoneyAction: ; 0x9784f
+CompareMoneyAction: ; 9784f
 	jr c, .two
 	jr z, .one
 	ld a, 0
@@ -2458,9 +2458,9 @@
 .done
 	ld [ScriptVar], a
 	ret
-; 0x97861
+; 97861
 
-GetMoneyAccount: ; 0x97861
+GetMoneyAccount: ; 97861
 	call GetScriptByte
 	and a
 	ld de, Money
@@ -2467,9 +2467,9 @@
 	ret z
 	ld de, wMomsMoney
 	ret
-; 0x9786d
+; 9786d
 
-LoadMoneyAmountToMem: ; 0x9786d
+LoadMoneyAmountToMem: ; 9786d
 	ld bc, hMoneyTemp
 	push bc
 	call GetScriptByte
@@ -2482,9 +2482,9 @@
 	ld [bc], a
 	pop bc
 	ret
-; 0x97881
+; 97881
 
-Script_givecoins: ; 0x97881
+Script_givecoins: ; 97881
 ; script command 0x25
 ; parameters:
 ;     coins (CoinByteParam)
@@ -2492,9 +2492,9 @@
 	call LoadCoinAmountToMem
 	callba GiveCoins
 	ret
-; 0x9788b
+; 9788b
 
-Script_takecoins: ; 0x9788b
+Script_takecoins: ; 9788b
 ; script command 0x26
 ; parameters:
 ;     coins (CoinByteParam)
@@ -2502,9 +2502,9 @@
 	call LoadCoinAmountToMem
 	callba TakeCoins
 	ret
-; 0x97895
+; 97895
 
-Script_checkcoins: ; 0x97895
+Script_checkcoins: ; 97895
 ; script command 0x27
 ; parameters:
 ;     coins (CoinByteParam)
@@ -2521,9 +2521,9 @@
 	ld [hMoneyTemp], a
 	ld bc, hMoneyTemp
 	ret
-; 0x978ae
+; 978ae
 
-Script_checktime: ; 0x978ae
+Script_checktime: ; 978ae
 ; script command 0x2b
 ; parameters:
 ;     time (SingleByteParam)
@@ -2537,9 +2537,9 @@
 	ld a, $1
 	ld [ScriptVar], a
 	ret
-; 0x978c3
+; 978c3
 
-Script_checkpoke: ; 0x978c3
+Script_checkpoke: ; 978c3
 ; script command 0x2c
 ; parameters:
 ;     pkmn (PokemonParam)
@@ -2554,9 +2554,9 @@
 	ld a, 1
 	ld [ScriptVar], a
 	ret
-; 0x978da
+; 978da
 
-Script_addcellnum: ; 0x978da
+Script_addcellnum: ; 978da
 ; script command 0x28
 ; parameters:
 ;     person (SingleByteParam)
@@ -2570,9 +2570,9 @@
 	ld a, $1
 	ld [ScriptVar], a
 	ret
-; 0x978ef
+; 978ef
 
-Script_delcellnum: ; 0x978ef
+Script_delcellnum: ; 978ef
 ; script command 0x29
 ; parameters:
 ;     person (SingleByteParam)
@@ -2586,9 +2586,9 @@
 	ld a, $1
 	ld [ScriptVar], a
 	ret
-; 0x97904
+; 97904
 
-Script_checkcellnum: ; 0x97904
+Script_checkcellnum: ; 97904
 ; script command 0x2a
 ; parameters:
 ;     person (SingleByteParam)
@@ -2603,9 +2603,9 @@
 	ld a, $1
 	ld [ScriptVar], a
 	ret
-; 0x97919
+; 97919
 
-Script_specialphonecall: ; 0x97919
+Script_specialphonecall: ; 97919
 ; script command 0x9c
 ; parameters:
 ;     call_id (MultiByteParam)
@@ -2615,9 +2615,9 @@
 	call GetScriptByte
 	ld [wSpecialPhoneCallID + 1], a
 	ret
-; 0x97926
+; 97926
 
-Script_checkphonecall: ; 0x97926
+Script_checkphonecall: ; 97926
 ; script command 0x9d
 ; returns false if no special phone call is stored
 
@@ -2628,9 +2628,9 @@
 .ok
 	ld [ScriptVar], a
 	ret
-; 0x97932
+; 97932
 
-Script_givepoke: ; 0x97932
+Script_givepoke: ; 97932
 ; script command 0x2d
 ; parameters:
 ;     pokemon (PokemonParam)
@@ -2663,9 +2663,9 @@
 	ld a, b
 	ld [ScriptVar], a
 	ret
-; 0x97968
+; 97968
 
-Script_giveegg: ; 0x97968
+Script_giveegg: ; 97968
 ; script command 0x2e
 ; parameters:
 ;     pkmn (PokemonParam)
@@ -2684,9 +2684,9 @@
 	ld a, 2
 	ld [ScriptVar], a
 	ret
-; 0x97988
+; 97988
 
-Script_setevent: ; 0x97988
+Script_setevent: ; 97988
 ; script command 0x33
 ; parameters:
 ;     bit_number (MultiByteParam)
@@ -2698,9 +2698,9 @@
 	ld b, SET_FLAG
 	call EventFlagAction
 	ret
-; 0x97996
+; 97996
 
-Script_clearevent: ; 0x97996
+Script_clearevent: ; 97996
 ; script command 0x32
 ; parameters:
 ;     bit_number (MultiByteParam)
@@ -2712,9 +2712,9 @@
 	ld b, RESET_FLAG
 	call EventFlagAction
 	ret
-; 0x979a4
+; 979a4
 
-Script_checkevent: ; 0x979a4
+Script_checkevent: ; 979a4
 ; script command 0x31
 ; parameters:
 ;     bit_number (MultiByteParam)
@@ -2732,9 +2732,9 @@
 .false
 	ld [ScriptVar], a
 	ret
-; 0x979bb
+; 979bb
 
-Script_setflag: ; 0x979bb
+Script_setflag: ; 979bb
 ; script command 0x36
 ; parameters:
 ;     bit_number (MultiByteParam)
@@ -2746,9 +2746,9 @@
 	ld b, 1 ; set
 	call _EngineFlagAction
 	ret
-; 0x979c9
+; 979c9
 
-Script_clearflag: ; 0x979c9
+Script_clearflag: ; 979c9
 ; script command 0x35
 ; parameters:
 ;     bit_number (MultiByteParam)
@@ -2760,9 +2760,9 @@
 	ld b, 0 ; clear
 	call _EngineFlagAction
 	ret
-; 0x979d7
+; 979d7
 
-Script_checkflag: ; 0x979d7
+Script_checkflag: ; 979d7
 ; script command 0x34
 ; parameters:
 ;     bit_number (MultiByteParam)
@@ -2780,30 +2780,30 @@
 .false
 	ld [ScriptVar], a
 	ret
-; 0x979ee
+; 979ee
 
-_EngineFlagAction: ; 0x979ee
+_EngineFlagAction: ; 979ee
 	callba EngineFlagAction
 	ret
-; 0x979f5
+; 979f5
 
-Script_wildoff: ; 0x979f5
+Script_wildoff: ; 979f5
 ; script command 0x38
 
 	ld hl, StatusFlags
 	set 5, [hl]
 	ret
-; 0x979fb
+; 979fb
 
-Script_wildon: ; 0x979fb
+Script_wildon: ; 979fb
 ; script command 0x37
 
 	ld hl, StatusFlags
 	res 5, [hl]
 	ret
-; 0x97a01
+; 97a01
 
-Script_xycompare: ; 0x97a01
+Script_xycompare: ; 97a01
 ; script command 0x39
 ; parameters:
 ;     pointer (MultiByteParam)
@@ -2813,9 +2813,9 @@
 	call GetScriptByte
 	ld [wd454], a
 	ret
-; 0x97a0e
+; 97a0e
 
-Script_warpfacing: ; 0x97a0e
+Script_warpfacing: ; 97a0e
 ; script command 0xa3
 ; parameters:
 ;     facing (SingleByteParam)
@@ -2833,7 +2833,7 @@
 	ld [wPlayerSpriteSetupFlags], a
 ; fall through
 
-Script_warp: ; 0x97a1d
+Script_warp: ; 97a1d
 ; script command 0x3c
 ; parameters:
 ;     map_group (MapGroupParam)
@@ -2873,9 +2873,9 @@
 	call LoadMapStatus
 	call StopScript
 	ret
-; 0x97a65
+; 97a65
 
-Script_warpmod: ; 0x97a65
+Script_warpmod: ; 97a65
 ; script command 0x3a
 ; parameters:
 ;     warp_id (SingleByteParam)
@@ -2889,9 +2889,9 @@
 	call GetScriptByte
 	ld [BackupMapNumber], a
 	ret
-; 0x97a78
+; 97a78
 
-Script_blackoutmod: ; 0x97a78
+Script_blackoutmod: ; 97a78
 ; script command 0x3b
 ; parameters:
 ;     map_group (MapGroupParam)
@@ -2902,17 +2902,17 @@
 	call GetScriptByte
 	ld [wLastSpawnMapNumber], a
 	ret
-; 0x97a85
+; 97a85
 
-Script_reloadmapmusic: ; 0x97a85
+Script_reloadmapmusic: ; 97a85
 ; script command 0x83
 
 	ld a, 1
 	ld [wc2c1], a
 	ret
-; 0x97a8b
+; 97a8b
 
-Script_writecmdqueue: ; 0x97a8b
+Script_writecmdqueue: ; 97a8b
 ; script command 0x7d
 ; parameters:
 ;     queue_pointer (MultiByteParam)
@@ -2925,9 +2925,9 @@
 	ld b, a
 	callba Function97e31
 	ret
-; 0x97a9e
+; 97a9e
 
-Script_delcmdqueue: ; 0x97a9e
+Script_delcmdqueue: ; 97a9e
 ; script command 0x7e
 ; parameters:
 ;     byte (SingleByteParam)
@@ -2941,9 +2941,9 @@
 	ld a, 1
 	ld [ScriptVar], a
 	ret
-; 0x97ab3
+; 97ab3
 
-Script_changemap: ; 0x97ab3
+Script_changemap: ; 97ab3
 ; script command 0x79
 ; parameters:
 ;     map_data_pointer (MapDataPointerParam)
@@ -2957,9 +2957,9 @@
 	call ChangeMap
 	call BufferScreen
 	ret
-; 0x97acc
+; 97acc
 
-Script_changeblock: ; 0x97acc
+Script_changeblock: ; 97acc
 ; script command 0x7a
 ; parameters:
 ;     x (SingleByteParam)
@@ -2977,9 +2977,9 @@
 	ld [hl], a
 	call BufferScreen
 	ret
-; 0x97ae3
+; 97ae3
 
-Script_reloadmappart:: ; 0x97ae3
+Script_reloadmappart:: ; 97ae3
 ; script command 0x7c
 
 	xor a
@@ -2989,9 +2989,9 @@
 	callba Function104061
 	call UpdateSprites
 	ret
-; 0x97af6
+; 97af6
 
-Script_warpcheck: ; 0x97af6
+Script_warpcheck: ; 97af6
 ; script command 0x8e
 
 	call WarpCheck
@@ -2998,14 +2998,14 @@
 	ret nc
 	callba EnableEvents
 	ret
-; 0x97b01
+; 97b01
 
 Script_enableevents: ; unreferenced
 	callba EnableEvents
 	ret
-; 0x97b08
+; 97b08
 
-Script_newloadmap: ; 0x97b08
+Script_newloadmap: ; 97b08
 ; script command 0x8a
 ; parameters:
 ;     which_method (SingleByteParam)
@@ -3016,23 +3016,23 @@
 	call LoadMapStatus
 	call StopScript
 	ret
-; 0x97b16
+; 97b16
 
-Script_reloadandreturn: ; 0x97b16
+Script_reloadandreturn: ; 97b16
 ; script command 0x92
 
 	call Script_newloadmap
 	jp Script_end
-; 0x97b1c
+; 97b1c
 
-Script_loadfont: ; 0x97b1c
+Script_loadfont: ; 97b1c
 ; script command 0x47
 
 	call LoadFont
 	ret
-; 0x97b20
+; 97b20
 
-Script_refreshscreen: ; 0x97b20
+Script_refreshscreen: ; 97b20
 ; script command 0x48
 ; parameters:
 ;     dummy (SingleByteParam)
@@ -3040,9 +3040,9 @@
 	call ResetWindow
 	call GetScriptByte
 	ret
-; 0x97b27
+; 97b27
 
-Script_loadbytec1ce: ; 0x97b27
+Script_loadbytec2cf: ; 97b27
 ; script command 0x4a
 ; parameters:
 ;     byte (SingleByteParam)
@@ -3050,7 +3050,7 @@
 	call GetScriptByte
 	ld [wc2cf], a
 	ret
-; 0x97b2e
+; 97b2e
 
 
 LoadMoveSpritesScript: ; 97b2e
@@ -3057,16 +3057,16 @@
 	loadmovesprites
 ; 97b2f
 
-Script_loadmovesprites: ; 0x97b2f
+Script_loadmovesprites: ; 97b2f
 ; script command 0x49
 
 	call Function2e20
 	call LoadMoveSprites
 	ret
-; 0x97b36
+; 97b36
 
 
-Script_passtoengine: ; 0x97b36
+Script_passtoengine: ; 97b36
 ; script command 0x89
 ; parameters:
 ;     data_pointer (PointerLabelBeforeBank)
@@ -3080,9 +3080,9 @@
 	pop af
 	call StartAutoInput
 	ret
-; 0x97b47
+; 97b47
 
-Script_pause: ; 0x97b47
+Script_pause: ; 97b47
 ; script command 0x8b
 ; parameters:
 ;     length (DecimalParam)
@@ -3098,9 +3098,9 @@
 	dec [hl]
 	jr nz, .loop
 	ret
-; 0x97b5c
+; 97b5c
 
-Script_deactivatefacing: ; 0x97b5c
+Script_deactivatefacing: ; 97b5c
 ; script command 0x8c
 ; parameters:
 ;     time (SingleByteParam)
@@ -3114,18 +3114,18 @@
 	ld [ScriptMode], a
 	call StopScript
 	ret
-; 0x97b6e
+; 97b6e
 
-Script_ptpriorityjump: ; 0x97b6e
+Script_ptpriorityjump: ; 97b6e
 ; script command 0x8f
 ; parameters:
 ;     pointer (ScriptPointerLabelParam)
 
 	call StopScript
-	jp Script_2jump
-; 0x97b74
+	jp Script_jump
+; 97b74
 
-Script_end: ; 0x97b74
+Script_end: ; 97b74
 ; script command 0x91
 
 	call ExitScriptSubroutine
@@ -3141,9 +3141,9 @@
 	res 0, [hl]
 	call StopScript
 	ret
-; 0x97b8c
+; 97b8c
 
-Script_return: ; 0x97b8c
+Script_return: ; 97b8c
 ; script command 0x90
 
 	call ExitScriptSubroutine
@@ -3153,9 +3153,9 @@
 	res 0, [hl]
 	call StopScript
 	ret
-; 0x97b9a
+; 97b9a
 
-ExitScriptSubroutine: ; 0x97b9a
+ExitScriptSubroutine: ; 97b9a
 ; Return carry if there's no parent to return to.
 
 	ld hl, wScriptStackSize
@@ -3184,9 +3184,9 @@
 .done
 	scf
 	ret
-; 0x97bc0
+; 97bc0
 
-Script_resetfuncs: ; 0x97bc0
+Script_resetfuncs: ; 97bc0
 ; script command 0x93
 
 	xor a
@@ -3198,9 +3198,9 @@
 	res 0, [hl]
 	call StopScript
 	ret
-; 0x97bd5
+; 97bd5
 
-Script_halloffame: ; 0x97bd5
+Script_halloffame: ; 97bd5
 ; script command 0xa1
 
 	ld hl, GameTimerPause
@@ -3211,9 +3211,9 @@
 	ld hl, GameTimerPause
 	set 0, [hl]
 	jr DisplayCredits
-; 0x97bf3
+; 97bf3
 
-Script_credits: ; 0x97bf3
+Script_credits: ; 97bf3
 ; script command 0xa2
 
 	callba RedCredits
@@ -3225,9 +3225,9 @@
 	call LoadMapStatus
 	call StopScript
 	ret
-; 0x97c051
+; 97c051
 
-Script_wait: ; 0x97c05
+Script_wait: ; 97c05
 ; script command 0xa8
 ; parameters:
 ;     unknown (SingleByteParam)
@@ -3243,9 +3243,9 @@
 	jr nz, .loop
 	pop bc
 	ret
-; 0x97c15
+; 97c15
 
-Script_check_save: ; 0x97c15
+Script_check_save: ; 97c15
 ; script command 0xa9
 
 	callba CheckSave
@@ -3252,7 +3252,7 @@
 	ld a, c
 	ld [ScriptVar], a
 	ret
-; 0x97c20
+; 97c20
 
 
 ; 97c20 unreferenced
--- a/macros/event.asm
+++ b/macros/event.asm
@@ -293,9 +293,9 @@
 	db \1 ; time
 	endm
 
-checkmorn EQUS "checktime 1"
-checkday  EQUS "checktime 2"
-checknite EQUS "checktime 4"
+checkmorn EQUS "checktime 1 << MORN"
+checkday  EQUS "checktime 1 << DAY"
+checknite EQUS "checktime 1 << NITE"
 
 	enum checkpoke_command
 checkpoke: macro
@@ -496,9 +496,9 @@
 	db loadmovesprites_command
 	endm
 
-	enum loadbytec1ce_command
-loadbytec1ce: macro
-	db loadbytec1ce_command
+	enum loadbytec2cf_command
+loadbytec2cf: macro
+	db loadbytec2cf_command
 	db \1 ; byte
 	endm
 
@@ -544,6 +544,7 @@
 	dw \1 ; text_pointer
 	endm
 
+; IF _CRYSTAL
 	enum farjumptext_command
 farjumptext: macro
 	db farjumptext_command
@@ -550,6 +551,7 @@
 	db BANK(\1)
 	dw \1
 	endm
+; ENDC
 
 	enum jumptext_command
 jumptext: macro