C2398E A3 05 LDA $05,s
C23990 AA TAX
C23991 A9 01 LDA #$01
C23993 8D 01 34 STA $3401
C23996 E0 08 CPX #$08
C23998 B0 5F BCS $5F //如怪獸有偷取能力，去 C239F9。
C2399A C2 20 REP #$20
C2399C B9 08 33 LDA $3308,y //怪獸寶物編號
C2399F 1A INC A //加１，不過 FFFF+１=０。
C239A0 E2 21 SEP #$21
C239A2 F0 4D BEQ $4D //如等於零，表示沒有寶物或已偷了，去 C239F1 偷不到寶物處理。
C239A4 EE 01 34 INC $3401
C239A7 BD 18 3B LDA $3B18,x //讀入玩家等級
C239AA 69 32 ADC #$32 //加 50
C239AC B0 1A BCS $1A //如大過 256，去 C239C8 偷寶物程序處理。
C239AE F9 18 3B SBC $3B18,y //減去怪獸等級
C239B1 90 3E BCC $3E //如小於零，去 C239F1 偷不到寶物處理。
C239B3 30 13 BMI $13 //如大過128，去 C239C8 偷寶物程序處理。
C239B5 85 EE STA $EE //儲存能偷值
C239B7 BD 45 3C LDA $3C45,x //讀取盜賊裝備物品
C239BA 4A LSR A
C239BB 90 02 BCC $02 //如沒裝備「とうぞくのうでわ」(盜賊手環)，去 C239BF。
C239BD 06 EE ASL $EE //如裝備了盜賊手環，能偷值加倍。
C239BF A9 64 LDA #$64
C239C1 20 4D 4B JSR $4B4D //取0～99之間的亂數值
C239C4 C5 EE CMP $EE //和能偷值比較
C239C6 B0 29 BCS $29 //亂數值 > 能偷值，去 C239F1 偷不到寶物處理。
//偷寶物程序處理：
C239C8 5A PHY
C239C9 20 42 4B JSR $4B42 //取0～255之間的亂數值
C239CC C9 20 CMP #$20 //罕有寶物率
C239CE 90 01 BCC $01 //如亂數值 < 32，去 C239D1，得到罕有寶物。
C239D0 C8 INY //y：罕有寶物編號值位址，y+1：普通寶物編號值位址。
C239D1 B9 08 33 LDA $3308,y //載入寶物編號值位址
C239D4 7A PLY
C239D5 C9 FF CMP #$FF
C239D7 F0 18 BEQ $18 //如等於255， 去 C239F1 偷不到寶物處理。
C239D9 8D 35 2F STA $2F35
C239DC 9D F4 32 STA $32F4,x
C239DF BD 18 30 LDA $3018,x
C239E2 0C 8C 3A TSB $3A8C
C239E5 A9 FF LDA #$FF //偷取後，把怪獸寶物編號值設定為 FFFF。
C239E7 99 08 33 STA $3308,y
C239EA 99 09 33 STA $3309,y
C239ED EE 01 34 INC $3401
C239F0 60 RTS
//偷不到寶物處理：
C239F1 E2 20 SEP #$20
C239F3 A9 00 LDA #$00
C239F5 99 48 3D STA $3D48,y
C239F8 60 RTS
|