thorn/kep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/kep-hack.git synced 2025-09-16 18:30:50 +12:00
Code Issues Actions Packages Projects Releases Wiki Activity

Improve labels for Yellow Safari Zone entrance.

Browse source
This commit is contained in:
IIMarckus 2014-10-18 08:57:53 -06:00
parent a36e090d43
commit 519dd7fd56
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scripts/safarizoneentrance-yellow.asm
View file

@ -137,38 +137,37 @@ SafariZoneEntranceAutoWalk:
jp StartSimulatingJoypadStates jp StartSimulatingJoypadStates
.xf2077 .xf2077
ld hl,$d346 ld hl,wPlayerMoney
ld de,$ff9f ld de,$ff9f
ld bc,3 ld bc,3
call $1b call $b1 ; yellow $00b1
xor a xor a
ld [$ffa2],a ld [$ffa2],a
ld [$ffa3],a ld [$ffa3],a
ld a,$17 ld a,$17 ; ¥17 per safari ball
ld [$ffa4],a ld [$ffa4],a
ld a,$d predef DivideBCDPredef3
call $3eb4
ld a,[$ffa4] ld a,[$ffa4]
call .xf211e call .xf211e
pop af pop af
ld hl,$d346 ld hl,$d346
xor a xor a
ld bc,3 ld bc,3
call $166e call FillMemory
ld hl,.OhAllRightText ld hl,.OhAllRightText
call $3c46 call Func_3c59
ld a,$13 ld a,$13
ld a,[$d124] ld a,[$d124]
call $3010 call DisplayTextBoxID
ld hl,.CantGive30BallsText ld hl,.CantGive30BallsText
call PrintText call PrintText
pop af pop af
inc a inc a
jr z,.xf20bd jr z,.xf20bd
cp $1d cp 29
jr c,.xf20bf jr c,.xf20bf
.xf20bd .xf20bd
ld a,$1d ld a,29
.xf20bf .xf20bf
ld hl,$1f6 ld hl,$1f6
and a and a