mirror of https://github.com/pret/pokecrystal.git
44 lines
943 B
NASM
44 lines
943 B
NASM
GiveParkBalls:
|
|
xor a
|
|
ld [wContestMon], a
|
|
ld a, 20
|
|
ld [wParkBallsRemaining], a
|
|
farcall StartBugContestTimer
|
|
ret
|
|
|
|
BugCatchingContestBattleScript::
|
|
writecode VAR_BATTLETYPE, BATTLETYPE_CONTEST
|
|
randomwildmon
|
|
startbattle
|
|
reloadmapafterbattle
|
|
copybytetovar wParkBallsRemaining
|
|
iffalse BugCatchingContestOutOfBallsScript
|
|
end
|
|
|
|
BugCatchingContestOverScript::
|
|
playsound SFX_ELEVATOR_END
|
|
opentext
|
|
writetext BugCatchingContestText_BeeepTimesUp
|
|
waitbutton
|
|
jump BugCatchingContestReturnToGateScript
|
|
|
|
BugCatchingContestOutOfBallsScript:
|
|
playsound SFX_ELEVATOR_END
|
|
opentext
|
|
writetext BugCatchingContestText_ContestIsOver
|
|
waitbutton
|
|
|
|
BugCatchingContestReturnToGateScript:
|
|
closetext
|
|
jumpstd bugcontestresultswarp
|
|
|
|
BugCatchingContestText_BeeepTimesUp:
|
|
; ANNOUNCER: BEEEP! Time's up!
|
|
text_jump UnknownText_0x1bd2ca
|
|
db "@"
|
|
|
|
BugCatchingContestText_ContestIsOver:
|
|
; ANNOUNCER: The Contest is over!
|
|
text_jump UnknownText_0x1bd2e7
|
|
db "@"
|