mirror of https://github.com/pret/pokecrystal.git
52 lines
780 B
NASM
52 lines
780 B
NASM
RepelWoreOffScript:: ; 0x13619
|
|
opentext
|
|
writetext .text
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.text ; 0x13620
|
|
; REPEL's effect wore off.
|
|
text_jump UnknownText_0x1bd308
|
|
db "@"
|
|
|
|
HiddenItemScript:: ; 0x13625
|
|
opentext
|
|
copybytetovar EngineBuffer3
|
|
itemtotext 0, 0
|
|
writetext .found_text
|
|
giveitem ITEM_FROM_MEM
|
|
iffalse .bag_full
|
|
callasm SetMemEvent
|
|
specialsound
|
|
itemnotify
|
|
jump .finish
|
|
|
|
.bag_full ; 0x1363e
|
|
buttonsound
|
|
writetext .no_room_text
|
|
waitbutton
|
|
|
|
.finish ; 13643
|
|
closetext
|
|
end
|
|
|
|
.found_text ; 0x13645
|
|
; found @ !
|
|
text_jump UnknownText_0x1bd321
|
|
db "@"
|
|
|
|
.no_room_text ; 0x1364a
|
|
; But has no space left…
|
|
text_jump UnknownText_0x1bd331
|
|
db "@"
|
|
|
|
SetMemEvent: ; 1364f
|
|
ld hl, EngineBuffer1
|
|
ld a, [hli]
|
|
ld d, [hl]
|
|
ld e, a
|
|
ld b, SET_FLAG
|
|
call EventFlagAction
|
|
ret
|