pokeemmo/data/scripts/berry_tree.inc
2025-04-08 18:19:20 +08:00

465 lines
13 KiB
PHP
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

BerryTreeScript::
special ObjectEventInteractionGetBerryTreeData
switch VAR_0x8004
case BERRY_STAGE_SPARKLING, BerryTree_EventScript_Sparkling
case BERRY_STAGE_NO_BERRY, BerryTree_EventScript_CheckSoil
case BERRY_STAGE_PLANTED, BerryTree_EventScript_CheckBerryStage1
case BERRY_STAGE_SPROUTED, BerryTree_EventScript_CheckBerryStage2
case BERRY_STAGE_TALLER, BerryTree_EventScript_CheckBerryStage3
case BERRY_STAGE_TRUNK, BerryTree_EventScript_CheckBerryStageTrunk
case BERRY_STAGE_BUDDING, BerryTree_EventScript_CheckBerryStageBudding
case BERRY_STAGE_FLOWERING, BerryTree_EventScript_CheckBerryStage4
case BERRY_STAGE_BERRIES, BerryTree_EventScript_CheckBerryFullyGrown
end
BerryTree_EventScript_Sparkling::
lockall
message BerryTree_Text_ExclamationPoint
waitmessage
waitbuttonpress
releaseall
end
BerryTree_EventScript_CheckSoil::
lock
faceplayer
specialvar VAR_RESULT, PlayerHasBerries
goto_if_eq VAR_RESULT, TRUE, BerryTree_EventScript_WantToPlant
specialvar VAR_RESULT, PlayerHasMulch
goto_if_eq VAR_RESULT, TRUE, BerryTree_EventScript_WantToMulch
message BerryTree_Text_ItsSoftLoamySoil
waitmessage
waitbuttonpress
release
end
BerryTree_EventScript_WantToPlant::
specialvar VAR_RESULT, PlayerHasMulch
goto_if_eq VAR_RESULT, TRUE, BerryTree_EventScript_WantToPlantMulch
msgbox BerryTree_Text_WantToPlant, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_ChooseBerryToPlant
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_CancelPlanting
end
BerryTree_EventScript_WantToMulch::
.if OW_BERRY_MULCH_USAGE == TRUE
msgbox BerryTree_Text_WantToMulch, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_ChooseMulchToUse
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_CancelPlanting
.endif
end
BerryTree_EventScript_WantToPlantMulch::
.if OW_BERRY_MULCH_USAGE == TRUE
message BerryTree_Text_ItsSoftLoamySoil
waitmessage
multichoice 0, 0, MULTI_BERRY_PLOT, FALSE
switch VAR_RESULT
case 0, BerryTree_EventScript_ChooseMulchToUse
case 1, BerryTree_EventScript_ChooseBerryToPlant
case 2, BerryTree_EventScript_CancelPlanting
case MULTI_B_PRESSED, BerryTree_EventScript_CancelPlanting
BerryTree_EventScript_ChooseMulchToUse::
fadescreen FADE_TO_BLACK
closemessage
special Bag_ChooseMulch
waitstate
goto_if_eq VAR_ITEM_ID, 0, BerryTree_EventScript_CancelPlanting
removeitem VAR_ITEM_ID
call BerryTree_EventScript_UseMulch
.endif
BerryTree_EventScript_ChooseBerryToPlant::
fadescreen FADE_TO_BLACK
closemessage
special Bag_ChooseBerry
waitstate
goto_if_eq VAR_ITEM_ID, 0, BerryTree_EventScript_CancelPlanting
removeitem VAR_ITEM_ID
call BerryTree_EventScript_PlantBerry
BerryTree_EventScript_CancelPlanting::
release
end
BerryTree_EventScript_CheckBerryStage1::
lockall
special ObjectEventInteractionGetBerryCountString
message BerryTree_Text_BerryGrowthStage1
waitmessage
waitbuttonpress
goto BerryTree_EventScript_WantToWater
BerryTree_EventScript_CheckBerryStage2::
lockall
special ObjectEventInteractionGetBerryName
message BerryTree_Text_BerryGrowthStage2
waitmessage
waitbuttonpress
goto BerryTree_EventScript_WantToWater
BerryTree_EventScript_CheckBerryStage3::
lockall
special ObjectEventInteractionGetBerryName
message BerryTree_Text_BerryGrowthStage3
waitmessage
waitbuttonpress
goto BerryTree_EventScript_WantToWater
BerryTree_EventScript_CheckBerryStageTrunk::
lockall
special ObjectEventInteractionGetBerryName
message BerryTree_Text_BerryGrowthStageTrunk
waitmessage
waitbuttonpress
goto BerryTree_EventScript_WantToWater
BerryTree_EventScript_CheckBerryStageBudding::
lockall
special ObjectEventInteractionGetBerryName
message BerryTree_Text_BerryGrowthStageBudding
waitmessage
waitbuttonpress
goto BerryTree_EventScript_WantToWater
BerryTree_EventScript_CheckBerryStage4::
call BerryTree_EventScript_GetCareAdverb
lockall
special ObjectEventInteractionGetBerryName
message BerryTree_Text_BerryGrowthStage4
waitmessage
waitbuttonpress
goto BerryTree_EventScript_WantToWater
@ VAR_0x8005 here is the number of times watered
@ Buffered by ObjectEventInteractionGetBerryTreeData
BerryTree_EventScript_GetCareAdverb::
goto_if_eq VAR_0x8005, 0, BerryTree_EventScript_SetAdverbPoor
goto_if_eq VAR_0x8005, 4, BerryTree_EventScript_SetAdverbGreat
bufferstring STR_VAR_2, BerryTree_Text_CareAdverbGood
return
BerryTree_EventScript_SetAdverbGreat::
bufferstring STR_VAR_2, BerryTree_Text_CareAdverbGreat
return
BerryTree_EventScript_SetAdverbPoor::
bufferstring STR_VAR_2, BerryTree_Text_CareAdverbPoor
return
@ VAR_0x8006 here is the number of berries
BerryTree_EventScript_CheckBerryFullyGrown::
buffernumberstring STR_VAR_2, VAR_0x8006
lock
faceplayer
special ObjectEventInteractionGetBerryCountString
.if OW_BERRY_MUTATIONS == TRUE
goto_if_eq VAR_RESULT, TRUE, BerryTree_EventScript_CheckBerryFullyGrown_Mutation
.endif
msgbox BerryTree_Text_WantToPick, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_PickBerry
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_CancelPickingBerry
.set BERRY_NORMAL_BAG_FULL, 0
.set BERRY_NORMAL_SPACE_IN_BAG, 1
.set BERRY_MUTATION_BAG_FULL, 2
.set BERRY_MUTATION_SPACE_IN_BAG, 3
BerryTree_EventScript_PickBerry::
special ObjectEventInteractionPickBerryTree
goto_if_eq VAR_0x8004, BERRY_NORMAL_BAG_FULL, BerryTree_EventScript_BerryPocketFull
.if OW_BERRY_MUTATIONS == TRUE
goto_if_eq VAR_0x8004, BERRY_MUTATION_BAG_FULL, BerryTree_EventScript_BerryPocketFull_Mutation
goto_if_eq VAR_0x8004, BERRY_MUTATION_SPACE_IN_BAG, BerryTree_EventScript_PickBerry_Mutation
.endif
special IncrementDailyPickedBerries
special ObjectEventInteractionRemoveBerryTree
message BerryTree_Text_PickedTheBerry
delay 10
showberrydescription
playfanfare MUS_OBTAIN_BERRY
waitmessage
waitfanfare
waitbuttonpress
message BerryTree_Text_PutAwayBerry
waitmessage
waitbuttonpress
hideitemdescription
release
end
BerryTree_EventScript_BerryPocketFull::
message BerryTree_Text_BerryPocketFull
waitmessage
waitbuttonpress
release
end
BerryTree_EventScript_CancelPickingBerry::
message BerryTree_Text_BerryLeftUnpicked
waitmessage
waitbuttonpress
release
end
BerryTree_EventScript_ItemUsePlantBerry::
lockall
special ObjectEventInteractionGetBerryTreeData
call BerryTree_EventScript_PlantBerry
releaseall
end
BerryTree_EventScript_WantToWater::
.if OW_BERRY_PESTS == TRUE
call BerryTree_EventScript_CheckForPests
.endif
.if OW_BERRY_WEEDS == TRUE
call BerryTree_EventScript_CheckForWeed
.endif
checkitem ITEM_WAILMER_PAIL
goto_if_eq VAR_RESULT, FALSE, BerryTree_EventScript_DontWater
specialvar VAR_RESULT, CanWaterBerryPlot
goto_if_eq VAR_RESULT, FALSE, BerryTree_EventScript_DontWater
special ObjectEventInteractionGetBerryName
msgbox BerryTree_Text_WantToWater, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_WaterBerry
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_DontWater
BerryTree_EventScript_DontWater::
releaseall
end
BerryTree_EventScript_ItemUseWailmerPail::
special ObjectEventInteractionGetBerryTreeData
lockall
BerryTree_EventScript_WaterBerry::
special ObjectEventInteractionGetBerryName
message BerryTree_Text_WateredTheBerry
waitmessage
special ObjectEventInteractionWaterBerryTree
special DoWateringBerryTreeAnim
waitstate
message BerryTree_Text_PlantIsDelighted
waitmessage
waitbuttonpress
releaseall
end
BerryTree_EventScript_PlantBerry::
special ObjectEventInteractionPlantBerryTree
incrementgamestat GAME_STAT_PLANTED_BERRIES
special IncrementDailyPlantedBerries
special ObjectEventInteractionGetBerryCountString
message BerryTree_Text_PlantedOneBerry
waitmessage
waitbuttonpress
return
BerryTree_Text_ItsSoftLoamySoil:
.string "这是柔软的土壤。$"
BerryTree_Text_WantToPlant:
.string "这是柔软的土壤。\n"
.string "想要种植一个树果吗?$"
BerryTree_Text_PlantedOneBerry:
.string "{PLAYER}在柔软的土壤里种下了\n一个{STR_VAR_1}。$"
BerryTree_Text_BerryGrowthStage1:
.if OW_BERRY_SIX_STAGES == TRUE
.string "这里是你种下{STR_VAR_1}的地方\n!$"
.else
.string "这里种植了一个{STR_VAR_1}。$"
.endif
BerryTree_Text_BerryGrowthStage2:
.if OW_BERRY_SIX_STAGES == TRUE
.string "{STR_VAR_1}正在发芽中!$"
.else
.string "{STR_VAR_1}已经发芽了。$"
.endif
BerryTree_Text_BerryGrowthStage3:
.if OW_BERRY_SIX_STAGES == TRUE
.string "{STR_VAR_1}的幼苗长得很漂亮!$"
.else
.string "{STR_VAR_1}正在变得更高。$"
.endif
BerryTree_Text_BerryGrowthStageTrunk:
.string "{STR_VAR_1}的树干越来越粗了!$"
BerryTree_Text_BerryGrowthStageBudding:
.string "{STR_VAR_1}的树干上发芽了!$"
BerryTree_Text_BerryGrowthStage4:
.if OW_BERRY_SIX_STAGES == TRUE
.string "{STR_VAR_1}的树开花了!$"
.else
.string "{STR_VAR_1}的花正在{STR_VAR_2}盛开\n"
.endif
BerryTree_Text_CareAdverbGreat:
.string "非常美丽地$"
BerryTree_Text_CareAdverbPoor:
.string "可爱地$"
BerryTree_Text_CareAdverbGood:
.string "漂亮地$"
BerryTree_Text_WantToPick:
.string "你发现了{STR_VAR_2}个{STR_VAR_1}\p"
.string "你想要摘取\n"
.string "{STR_VAR_1}吗?$"
BerryTree_Text_PickedTheBerry:
.string "{PLAYER}摘取了{STR_VAR_2}个{STR_VAR_1}。$"
BerryTree_Text_PutAwayBerry:
.string "{PLAYER}将{STR_VAR_1}\n"
.string "放入背包的树果口袋中。\p"
.string "土壤恢复到了柔软\n"
.string "的状态。$"
BerryTree_Text_BerryPocketFull:
.string "背包的树果口袋已满。\p"
.string "{STR_VAR_1}无法被摘取。$"
BerryTree_Text_BerryLeftUnpicked:
.string "{PLAYER}没有摘取\n"
.string "{STR_VAR_1}。$"
BerryTree_Text_WantToWater:
.string "想要用吼吼鲸喷壶给{STR_VAR_1}\n"
.string "浇水吗?$"
BerryTree_Text_WateredTheBerry:
.string "{PLAYER}给{STR_VAR_1}浇了水。$"
BerryTree_Text_PlantIsDelighted:
.string "植物似乎感到很高兴。$"
BerryTree_Text_ExclamationPoint:
.string "!$"
.if OW_BERRY_MUTATIONS == TRUE
BerryTree_EventScript_CheckBerryFullyGrown_Mutation:
msgbox BerryTree_Text_WantToPick_Mutation, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_PickBerry
goto_if_eq VAR_RESULT, NO, BerryTree_EventScript_CancelPickingBerry_Mutation
BerryTree_EventScript_CancelPickingBerry_Mutation::
message BerryTree_Text_BerryLeftUnpicked_Mutation
waitmessage
waitbuttonpress
release
end
BerryTree_EventScript_BerryPocketFull_Mutation::
message BerryTree_Text_BerryPocketFull_Mutation
waitmessage
waitbuttonpress
release
end
BerryTree_EventScript_PickBerry_Mutation::
special IncrementDailyPickedBerries
special ObjectEventInteractionRemoveBerryTree
message BerryTree_Text_PickedTheBerry_Mutation
playfanfare MUS_OBTAIN_BERRY
waitmessage
waitfanfare
waitbuttonpress
message BerryTree_Text_PutAwayBerry_Mutation
waitmessage
waitbuttonpress
release
end
BerryTree_Text_WantToPick_Mutation:
.string "你找到了{STR_VAR_2} ,{STR_VAR_1}\n"
.string "与一个 {STR_VAR_3}!\p"
.string "你想要摘下它们吗??$"
BerryTree_Text_BerryLeftUnpicked_Mutation:
.string "{PLAYER} 离开了 {STR_VAR_1}\n"
.string "并且 {STR_VAR_3} 没有被采摘。$"
BerryTree_Text_BerryPocketFull_Mutation:
.string "背包的果实袋已满。\p"
.string "{STR_VAR_1} 和 {STR_VAR_3} 无法\n"
.string "被采摘。$"
BerryTree_Text_PickedTheBerry_Mutation:
.string "{PLAYER} 采摘了 {STR_VAR_2} 个 {STR_VAR_1}\n"
.string "{STR_VAR_3}。$"
BerryTree_Text_PutAwayBerry_Mutation:
.string "{PLAYER} 将 {STR_VAR_1}\n"
.string "{STR_VAR_3} 放入背包的\n"
.string "果实袋中。土壤恢复了其\n"
.string "柔软和肥沃的状态。$"
.endif
.if OW_BERRY_MULCH_USAGE == TRUE
BerryTree_EventScript_UseMulch::
special ObjectEventInteractionApplyMulch
message BerryTree_Text_ScatteredMulch
waitmessage
waitbuttonpress
return
BerryTree_Text_WantToMulch:
.string "这是松软的土壤。\n"
.string "要撒些肥料吗?$"
BerryTree_Text_ScatteredMulch:
.string "{PLAYER} 撒下了 {STR_VAR_1}的种子\n"
.string "在松软的壤土上。$"
.endif
.if OW_BERRY_WEEDS == TRUE
BerryTree_EventScript_CheckForWeed::
specialvar VAR_RESULT, ObjectEventInteractionBerryHasWeed
call_if_eq VAR_RESULT, TRUE, BerryTree_EventScript_WeedIsGrowing
return
BerryTree_EventScript_WeedIsGrowing::
msgbox BerryTree_Text_WeedIsGrowing, MSGBOX_YESNO
goto_if_eq VAR_RESULT, YES, BerryTree_EventScript_PullOutWeed
return
BerryTree_EventScript_PullOutWeed::
special ObjectEventInteractionPullBerryWeed
message BerryTree_Text_PulledOutTheWeed
waitmessage
waitbuttonpress
return
BerryTree_Text_WeedIsGrowing:
.string "这里长了杂草。\n"
.string "要拔掉它吗?$"
BerryTree_Text_PulledOutTheWeed:
.string "{PLAYER} 拔掉了杂草!$"
.endif
.if OW_BERRY_PESTS == TRUE
BerryTree_EventScript_CheckForPests::
specialvar VAR_RESULT, ObjectEventInteractionBerryHasPests
call_if_eq VAR_RESULT, TRUE, BerryTree_EventScript_EncounterPests
return
BerryTree_EventScript_EncounterPests::
message BerryTree_Text_APokemonAppeared
waitmessage
waitbuttonpress
dowildbattle
return
BerryTree_Text_APokemonAppeared:
.string "一只精灵跳出来了!$"
.endif