Trainerpic command and Fossils

engine/events/pokepic.asm

@@ -13,6 +13,7 @@ Pokepic::
 	call GetBaseData
 	ld de, vTiles1
 	predef GetMonFrontpic
+_Displaypic:
 	ld a, [wMenuBorderTopCoord]
 	inc a
 	ld b, a
@@ -26,7 +27,22 @@ Pokepic::
 	predef PlaceGraphic
 	call WaitBGMap
 	ret
-
+	
+Trainerpic::
+	ld hl, PokepicMenuHeader
+	call CopyMenuHeader
+	call MenuBox
+	call UpdateSprites
+	call ApplyTilemap
+	ld b, SCGB_POKEPIC
+	call GetSGBLayout
+	xor a
+	ldh [hBGMapMode], a
+	ld a, [wTrainerClass]
+	ld de, vTiles1
+	predef GetTrainerPic
+	jr _Displaypic
+	
 ClosePokepic::
 	ld hl, PokepicMenuHeader
 	call CopyMenuHeader

engine/overworld/scripting.asm

@@ -234,8 +234,9 @@ ScriptCommandTable:
 	dw Script_getname                    ; a7
 	dw Script_wait                       ; a8
 	dw Script_checksave                  ; a9
-	dw Script_loadmonindex               ; aa
-	dw Script_checkmaplockedmons         ; ab
+	dw Script_trainerpic				 ; aa
+	dw Script_loadmonindex               ; ab
+	dw Script_checkmaplockedmons         ; ac
 	assert_table_length NUM_EVENT_COMMANDS
 
 StartScript:
@@ -2348,6 +2349,12 @@ Script_checkver_duplicate: ; unreferenced
 .gs_version:
 	db GS_VERSION
 
+Script_trainerpic:
+	call GetScriptByte
+	ld [wTrainerClass], a
+	farcall Trainerpic
+	ret
+
 Script_loadmonindex:
 ; script command 0xaa
 	call LoadScriptPokemonID