pokecrystal-board/maps/Route39Barn.asm

211 lines
3.4 KiB
NASM

const_value set 2
const ROUTE39BARN_TWIN1
const ROUTE39BARN_TWIN2
const ROUTE39BARN_MOOMOO
Route39Barn_MapScripts:
.SceneScripts:
db 0
.MapCallbacks:
db 0
TwinScript_0x9cc76:
faceplayer
opentext
checkevent EVENT_HEALED_MOOMOO
iftrue .FeedingMooMoo
writetext Text_MoomooIsSick
waitbutton
closetext
spriteface ROUTE39BARN_TWIN1, RIGHT
end
.FeedingMooMoo:
writetext Text_WereFeedingMoomoo
waitbutton
closetext
spriteface ROUTE39BARN_TWIN1, RIGHT
end
TwinScript_0x9cc90:
faceplayer
opentext
checkevent EVENT_HEALED_MOOMOO
iftrue .FeedingMooMoo
writetext Text_MoomooIsSick
waitbutton
closetext
spriteface ROUTE39BARN_TWIN2, LEFT
end
.FeedingMooMoo:
writetext Text_WereFeedingMoomoo
waitbutton
closetext
spriteface ROUTE39BARN_TWIN2, LEFT
end
MooMoo:
opentext
checkevent EVENT_HEALED_MOOMOO
iftrue .HappyCow
writetext Text_WeakMoo
writebyte MILTANK
special PlaySlowCry
buttonsound
writetext Text_ItsCryIsWeak
checkevent EVENT_TALKED_TO_FARMER_ABOUT_MOOMOO
iftrue .GiveBerry
waitbutton
closetext
end
.GiveBerry:
buttonsound
writetext Text_AskGiveBerry
yesorno
iffalse .Refused
checkitem BERRY
iffalse .NoBerriesInBag
takeitem BERRY
copybytetovar MooMooBerries
addvar 1
copyvartobyte MooMooBerries
if_equal 3, .ThreeBerries
if_equal 5, .FiveBerries
if_equal 7, .SevenBerries
writetext Text_GaveBerry
waitbutton
closetext
end
.ThreeBerries:
writetext Text_GaveBerry
buttonsound
writetext Text_LittleHealthier
waitbutton
closetext
end
.FiveBerries:
writetext Text_GaveBerry
buttonsound
writetext Text_QuiteHealthy
waitbutton
closetext
end
.SevenBerries:
playmusic MUSIC_HEAL
writetext Text_GaveBerry
pause 60
buttonsound
special RestartMapMusic
writetext Text_TotallyHealthy
waitbutton
closetext
setevent EVENT_HEALED_MOOMOO
end
.NoBerriesInBag:
writetext Text_NoBerries
waitbutton
closetext
end
.Refused:
writetext Text_RefusedToGiveBerry
waitbutton
closetext
end
.HappyCow:
writetext UnknownText_0x9cd92
cry MILTANK
waitbutton
closetext
end
Text_MoomooIsSick:
text "MOOMOO is sick…"
para "She needs lots of"
line "BERRIES."
done
Text_WereFeedingMoomoo:
text "We're feeding"
line "MOOMOO!"
done
Text_WeakMoo:
text "MILTANK: …Moo…"
done
Text_ItsCryIsWeak:
text "Its cry is weak…"
done
UnknownText_0x9cd92:
text "MILTANK: Mooo!"
done
Text_AskGiveBerry:
text "Give a BERRY to"
line "MILTANK?"
done
Text_GaveBerry:
text "<PLAYER> gave a"
line "BERRY to MILTANK."
done
Text_LittleHealthier:
text "MILTANK became a"
line "little healthier!"
done
Text_QuiteHealthy:
text "MILTANK became"
line "quite healthy!"
done
Text_TotallyHealthy:
text "MILTANK became"
line "totally healthy!"
done
Text_NoBerries:
text "<PLAYER> has no"
line "BERRIES…"
done
Text_RefusedToGiveBerry:
text "<PLAYER> wouldn't"
line "give a BERRY."
para "MILTANK looks sad."
done
Route39Barn_MapEvents:
; filler
db 0, 0
.Warps:
db 2
warp_def 3, 7, 1, ROUTE_39
warp_def 4, 7, 1, ROUTE_39
.CoordEvents:
db 0
.BGEvents:
db 0
.ObjectEvents:
db 3
object_event 2, 3, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, TwinScript_0x9cc76, -1
object_event 4, 3, SPRITE_TWIN, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, TwinScript_0x9cc90, -1
object_event 3, 3, SPRITE_TAUROS, SPRITEMOVEDATA_POKEMON, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MooMoo, -1