Stormbringer (48k): Routine at 45685

45685: If A is 4 then display "THE BEAR SAYS..." message and wait for fire to be pressed

Used by the routines at 41578, 41748, 41924, 42257, 42638, 43494, 43636, 44337, 44635 and 45095.

Input
A	Index of an object

Output
A	Index of an object (same as input value)

45685

CP 4

If object of interest is not 4 (Teddy Bear)...

45687

RET NZ

...then return

45688

PUSH HL

Store HL

45689

PUSH DE

Store DE

45690

PUSH BC

Store BC

45691

PUSH IX

Store IX

45693

LD HL,51885

Load HL with address of "THE BEAR SAYS..." text

45696

LD DE,49212

Adjust height of a window 22 to accommodate text...

45699

CALL 45617

...

45702

PUSH HL

Store HL (address of text to print)

45703

LD A,22

Draw window 22...

45705

CALL 47193

...

45708

POP HL

Restore HL (address of text to print)

45709

CALL 46902

Print "THE BEAR SAYS..." text

45712

CALL 64230

Wait for interrupt then display "PRESS FIRE TO CONTINUE" window and wait for fire to be pressed

45715

LD A,4

Load A with 4 (restore original value of A)

45717

POP IX

Restore IX

45719

POP BC

Restore BC

45720

POP DE

Restore DE

45721

POP HL

Restore HL

45722

RET

Return