Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- .doTheThings
- ld a, [MenuSelection2]
- cp 0
- jr z, .OK0
- cp 1
- jr z, .OK1
- cp 2
- jr z, .OK2
- cp 3
- jr z, .OK3
- cp 4
- jr z, .OK4
- ret ; how the hell is the program counter supposed to get HERE? regardless, i'll put a ret in to stop any funny ideas.
- .OK0
- ld hl, Examine
- ld a, BANK(Examine)
- jp CallScript
- .OK1
- ld hl, Talk
- ld a, BANK(Talk)
- jp CallScript
- .OK2
- ld hl, Take
- ld a, BANK(Take)
- jp CallScript
- .OK3
- ld hl, Attack
- ld a, BANK(Attack)
- jp CallScript
- .OK4
- ld hl, Use
- ld a, BANK(Use)
- jp CallScript
- .script ; 96a04
- call LoadFont
- ld hl, .DoWhat
- call PrintText
- ld hl, .MenuDataHeader_Actions
- call LoadMenuDataHeader
- call InterpretMenu2
- call LoadMoveSprites
- ret c
- call .doTheThings
- ld hl, testScript
- call CallScript
- ld hl, MAPOBJECT_SCRIPT_POINTER
- add hl, bc
- ld a, [hli]
- ld h, [hl]
- ld l, a
- call GetMapScriptHeaderBank
- jp CallScript
- .DoWhat
- text "Do what?"
- prompt
- .MenuDataHeader_Actions:
- db $40 ; flags
- db 00, 00 ; start coords
- db 12, 08 ; end coords
- dw .menudata2
- db 1 ; default option
- .menudata2:
- db $80 ; strings
- db 5 ; items
- db "Look@"
- db "Talk@"
- db "Take@"
- db "Attack@"
- db "Use@"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement