Routines
Prev: 37445 Up: Map Next: 37573
37464: Handler: Raising
Used by the routine at PlayerAction_Raise.
HandlerRaising 37464 LD A,104 A=INK: BLACK, PAPER: CYAN (BRIGHT) .
37466 LD HL,23189 HL=23189 (attribute buffer location).
37469 CALL UpdateCursorAttribute Call UpdateCursorAttribute.
Messaging options:
ID Message ID Message
1 message-17-00 2 message-17-01
3 message-17-02
37472 LD A,17 Call Messaging_Girl using message block 17.
37474 CALL Messaging_Girl
RaisingCollectUserInput 37477 LD A,1 Write 1 to *37573.
37479 LD (37573),A
37482 POP IX Restore IX from the stack.
37484 CALL Controls Call Controls.
37487 PUSH IX Stash IX on the stack.
37489 OR A Jump to HandlerRaising_0 if A is zero.
37490 JR Z,HandlerRaising_0
37492 DEC A Decrease A by one.
37493 JR Z,DecreaseRaiseAmount Jump to DecreaseRaiseAmount if A is zero.
37495 DEC A Decrease A by one.
37496 JR Z,IncreaseRaiseAmount Jump to IncreaseRaiseAmount if A is zero.
37498 JR RaisingCollectUserInput Jump to RaisingCollectUserInput.
HandlerRaising_0 37500 LD A,120 A=INK: BLACK, PAPER: WHITE (BRIGHT) .
37502 LD HL,23189 HL=23189 (attribute buffer location).
37505 CALL UpdateCursorAttribute Call UpdateCursorAttribute.
37508 LD A,(38583) B=*CurrentRaiseValue.
37511 LD B,A
37512 RET Return.
IncreaseRaiseAmount 37513 LD A,(38583) A=*CurrentRaiseValue.
37516 INC A Increment A by one.
37517 CP 21 Jump to RaisingCollectUserInput if A is higher than 21.
37519 JR NC,RaisingCollectUserInput
37521 LD B,A B=A.
37522 LD A,(38581) Jump to RaisingCollectUserInput if *PlayerCash is lower than B.
37525 CP B
37526 JR C,RaisingCollectUserInput
37528 LD A,(38582) Jump to RaisingCollectUserInput if *GirlCash is lower than B.
37531 CP B
37532 JR C,RaisingCollectUserInput
37534 LD A,B A=B.
37535 LD (38583),A Write A to *CurrentRaiseValue.
37538 CALL PrintStats Call PrintStats.
37541 JR HandlerRaising_1 Jump to HandlerRaising_1.
DecreaseRaiseAmount 37543 LD A,(38583) A=*CurrentRaiseValue.
37546 DEC A Decrease A by one.
37547 JR Z,RaisingCollectUserInput Jump to RaisingCollectUserInput if A is zero.
37549 LD (38583),A Write A to *CurrentRaiseValue.
37552 CALL PrintStats Call PrintStats.
HandlerRaising_1 37555 LD A,104 A=INK: BLACK, PAPER: CYAN (BRIGHT) .
37557 LD HL,23189 HL=23189 (attribute buffer location).
37560 CALL UpdateCursorAttribute Call UpdateCursorAttribute.
37563 LD BC,16384 BC=16384 (screen buffer location).
RaisePause_Loop 37566 DEC C Decrease C by one.
37567 JR NZ,RaisePause_Loop Jump to RaisePause_Loop until C is zero.
37569 DJNZ RaisePause_Loop Decrease counter by one and loop back to RaisePause_Loop until counter is zero.
37571 JR RaisingCollectUserInput Jump to RaisingCollectUserInput.
Prev: 37445 Up: Map Next: 37573