Routines |
Prev: 37445 | Up: Map | Next: 37573 |
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:
|
||||||||||||||
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 |