REParadiseCafe/ParadiseCafe.ctl

989 lines
20 KiB
Plaintext

b $4000 screen$
$4000,$1b00 #UDGTABLE { #SCR(loading) | Ecrã de entrada - screen$. } TABLE#
;b $5B00 System variables (?)
;b $5CB6 Channel infomation (?)
b $5CCB Program data (Basic?)
B $5CCB,$15c zbr
;b $5E27 Basic stacks (novo)
c $7530 Game over(?)
c $75CF
b $75E2 Prisão
E $75E2 #HTML[#CALL:decode_data($8970,$75E2)]
b $7799 Canhola - Frame 1
$7799 #HTML[#CALL:decode_data($8C30,$7799)]
b $77B6 Canhola - Frame 2
$77B6 #HTML[#CALL:decode_data($8C30,$77B6)]
b $77D5 The End
$77D5 #HTML[#CALL:decode_data($3C00,$77D5)]
z $77E4
; @label:$77EA=start
c $77EA Inicio do codigo!
$77EA,$f Espera que se pressione uma tecla
$77F9,$4 No Operation
$77FD,8 Define atributos para o fadeOut a $10 e chama-o
$7805,4 Faz um beep?
$7809,6 Define CHARS em $3C00
$780F,6 Desenha #R$788D
$7815,3 HL com #R$89A6
$7818,2 Inutil(?) é repetida abaixo em #R$7835
$781A,3 AT
$781D,3 X = $09
$7820,3 Y = 00
$7823,3 PAPER
$7826,3 $02 RED
$7829,3 INK
$782C,3 $6 YELLOW
$782F,3 BRIGHTNESS
$7832,3 $01
$7835,9 Imprime $20 (32) caracteres da string em HL
$783E,3 BRIGHTNESS
$7841,3 $00
$7844,$c Espera que se pressione uma tecla
$7850,4 Faz um beep?
; $7854,2 Começa-se sem arma
$7856,3 #R$C33D a 0
$7859,3 #R$C337 a 0
$785E,3 #R$C33C a 1
$7863,$C #R$C346 a "0000" $30 é "0" em ASCII
$786F,$E #R$C33E a "3000" - 030000$
$787D,3 Guarda o valor do FRAMES (contador de tempo +-)
$7880,2 Subtrai $80
$7882,8 Corre o "randomizer" o numero de vezes que estiver em A
; @label:$788D=frame_ecra_entrada
b $788D Ecrã de entrada
$788D #HTML[#CALL:decode_data($3C00,$788D)]
z $79EA
c $7CF0
$7CF0,7 No Operation
c $7D2B Delay(?)
b $7D35
c $7D3B pontuação e o dinheiro na status(?) / calcula distancia pra porta
c $7D8D
c $7DAB Verifica colisao com a porta(main loop)
$7DAB Le a distancia para a porta
$7DAE Está em cima?
$7DB0 Nao, volta para tras
$7DB1 Guarda o valor do FRAMES (contador de tempo +-)
$7DB4 Subtrai $80
$7DB6,8 Corre o "randomizer" o numero de vezes que estiver em A
$7DBE Knock Knock1!
$7DC1 É igual a 2?
$7DC3 Então é a puta!
$7DC6 É igual a 3?
$7DC8 Então é a velha!
$7DCB É igual a 4?
$7DCD Então é o Paradise Café!
$7DD0 Knock Knock2?
$7DD3 É igual a 1?
$7DD5 Então é o ladrão!
$7DD8 Knock Knock3?
$7DDB É igual a 2?
$7DDD Então é o senhor Policia!
z $7DE1
c $7DEA Policia
b $7EE9 Então está tudo bem?
$7EE9 #HTML[#CALL:decode_data($F641,$7EE9)]
b $7F15 Está sim seu guarda
$7F15 #HTML[#CALL:decode_data($F6A1,$7F15)]
b $7F2C Limpa balão - esquerdo
$7F2C #HTML[#CALL:decode_data($F6A1,$7F2C)]
b $7F41 Limpa chão
$7F41 #HTML[#CALL:decode_data($F701,$7F41)]
b $7F52 CHARS
;t $826A
;b $8272
;t $835B
;b $835F
;t $8474
;b $8478
;t $86D5
;b $86E2
;t $870B
;b $8710
;t $8723
;b $8728
;t $8774
;b $8778
;t $87A5
;b $87A8
;t $87CC
;b $87D8
c $8800
z $88FF
c $8900
; @label:$89A6=string_recordista
t $89A6 Recordista do jogo
b $89D2 Novo record - Introduza o seu nome .
$89D2 #HTML[#CALL:decode_data($3C00,$89D2)]
b $8A09 Esta correcto o seu nome ?
$8A09 #HTML[#CALL:decode_data($3C00,$8A09)]
b $8A29 Duas linhas pretas
$8A29 #HTML[#CALL:decode_data($3C00,$8A29)]
b $8A70 CHARS
c $9088
c $90B1
c $90D2
b $90E7 Puta - Vaginal
$90E7 #HTML[#CALL:decode_data($EB31,$90E7)]
z $9197
b $919B Puta - Vaginal - Frame 1
$919B #HTML[#CALL:decode_data($EDB9,$919B)]
z $91DF
b $91E1 Puta - Vaginal - Frame 2
$91E1 #HTML[#CALL:decode_data($EDB9,$91E1)]
b $921A Balão - Venho-me haaaaaaa
$921A #HTML[#CALL:decode_data($EED9,$921A)]
b $9231 Limpa balão @ #R$921A
$9231 #HTML[#CALL:decode_data($EDB9,$9231)]
c $9246
c $9274
c $92A3
c $92B8
c $92C1
b $92D6 Puta - Anal
$92D6 #HTML[#CALL:decode_data($EF39,$92D6)]
z $938E
b $9392 Puta - Anal - Frame 1
$9392 #HTML[#CALL:decode_data($F151,$9392)]
z $93C5
b $93C9 Puta - Anal - Frame 2
$93C9 #HTML[#CALL:decode_data($F151,$93C9)]
z $93F8
b $93FC Balão - Ahhh tão grosso
$93FC #HTML[#CALL:decode_data($F201,$93FC)]
b $9413 Limpa balão @ #R$93FC
$9413 #HTML[#CALL:decode_data($F201,$9413)]
b $9428 Balão - AAAA...
$9428 #HTML[#CALL:decode_data($F261,$9428)]
b $943F Limpa balão @ #R$9428
$943F #HTML[#CALL:decode_data($F151,$943F)]
z $9454
c $9455
z $9476
b $9479 Policia a sair - Frame 1
$9479 #HTML[#CALL:decode_data($F2C1,$9479)]
z $94DA
b $94DE Policia a sair - Frame 2
$94DE #HTML[#CALL:decode_data($F2C1,$94DE)]
z $959D
c $959F
c $95B7
b $95C7 Policia virado para a esquerda
$95C7 #HTML[#CALL:decode_data($F4B9,$95C7)]
c $9663
b $9670 Mostrar a carteira (ao policia)
$9670 #HTML[#CALL:decode_data($F881,$9670)]
c $9695
c $96B8
c $96DF
c $96F4
b $9709 Puta - Oral
$9709 #HTML[#CALL:decode_data($F8B1,$9709)]
z $97C4
b $97C8 Puta - Oral - Frame 1
$97C8 #HTML[#CALL:decode_data($FB41,$97C8)]
z $97F6
b $97FA Puta - Oral - Frame 2
$97FA #HTML[#CALL:decode_data($FB41,$9800)]
c $9826
b $9833 Puta na cama
$9833 #HTML[#CALL:decode_data($7E5A,$9833)]
c $9899
b $98A6 Reinaldo
$98A6 #HTML[#CALL:decode_data($804A,$98A6)]
c $9912
b $991F Heroi na casa da puta
$991F #HTML[#CALL:decode_data($81A2,$991F)]
z $9998
c $999A
b $9AAE Reinaldo a espreitar na porta
$9AAE #HTML[#CALL:decode_data($82CA,$9AAE)]
b $9ACF Balão - Cu cu
$9ACF #HTML[#CALL:decode_data($FD61,$9ACF)]
b $9AE2 Balão - O que foi?
$9AE2 #HTML[#CALL:decode_data($FDA1,$9AE2)]
b $9AF9 Reinaldo - Enrabadela
$9AF9 #HTML[#CALL:decode_data($8322,$9AF9)]
b $9BB1 Reinaldo - Enrabadela - Frame 1
$9BB1 #HTML[#CALL:decode_data($8502,$9BB1)]
b $9BE3 Reinaldo - Enrabadela - Frame 2
$9BE3 #HTML[#CALL:decode_data($8502,$9BE3)]
b $9C15 Balão - Ai que caralhinho
$9C15 #HTML[#CALL:decode_data($868A,$9C15)]
c $9C30
z $9C3C
c $9C40
b $9C4D Velha - Vergada
$9C4D #HTML[#CALL:decode_data($D899,$9C4D)]
c $9CD7
b $9CE4 Velha - Vestido levantado
$9CE4 #HTML[#CALL:decode_data($D899,$9CE4)]
c $9D7A
b $9D87 Velha - Pichota para fora
$9D87 #HTML[#CALL:decode_data($D899,$9D87)]
c $9DB1
b $9DBE Velha - Violar - Frame 1
$9DBE #HTML[#CALL:decode_data($D899,$9DBE)]
c $9DED
b $9DFA Velha - Violar - Frame 2
$9DFA #HTML[#CALL:decode_data($D899,$9DFA)]
c $9E2F
b $9E4A Velha a sair - Frame 1
$9E4A #HTML[#CALL:decode_data($D739,$9E4A)]
z $9E8E
b $9E92 Velha a sair - Frame 2
$9E92 #HTML[#CALL:decode_data($D739,$9E92)]
c $9F31
c $9F54 Velha
b $9FFF
$9FFF #HTML[#CALL:decode_data($DD21,$9FFF)]
c $A004
b $A00F
$A00F #HTML[#CALL:decode_data($DD21,$A00F)]
c $A014
c $A03A
c $A0D4
c $A100
c $A134
c $A143
b $A14C Balão - Ai tão grande
$A14C #HTML[#CALL:decode_data($DBB1,$A14C)]
b $A163 Limpa balão @ #R$A14C
$A163 #HTML[#CALL:decode_data($D899,$A163)]
b $A178
$A178 #HTML[#CALL:decode_data($99D8,$A178)]
z $A194
c $A195
b $A1A2
$A1A2 #HTML[#CALL:decode_data($E111,$A1A2)]
z $A1EF
c $A1F0
c $A20A
z $A214
c $A215
b $A222 Café - Sentado
$A222 #HTML[#CALL:decode_data($DE31,$A222)]
z $A35E
c $A360
b $A38B Café - Beber - Frame 1
$A38B #HTML[#CALL:decode_data($DE31,$A38B)]
z $A3D0
b $A3D2 Café - Beber - Frame 2
$A3D2 #HTML[#CALL:decode_data($DE31,$A3D2)]
c $A410
c $A416
z $A423
c $A425
c $A430
b $A465 Café - Mafioso - Frame 1
$A465 #HTML[#CALL:decode_data($E279,$A465)]
z $A4A7
b $A4AB Café - Mafioso - Frame 2
$A4AB #HTML[#CALL:decode_data($E279,$A4AB)]
z $A51A
b $A51E Café - Mafioso - Frame 3
$A51E #HTML[#CALL:decode_data($E279,$A51E)]
z $A586
c $A589
c $A5B5
b $A5D6 Café - Empregado - Frame 1
$A5D6 #HTML[#CALL:decode_data($E441,$A5D6)]
z $A620
b $A625 Café - Empregado - Frame 2
$A625 #HTML[#CALL:decode_data($E441,$A625)]
z $A6B3
c $A6B7
c $A6FE
c $A710
b $A728 Café - Empregado a servir bebida - Frame 1
$A728 #HTML[#CALL:decode_data($E441,$A728)]
z $A74A
b $A74E Café - Empregado a servir bebida - Frame 2
$A74E #HTML[#CALL:decode_data($E441,$A74E)]
c $A770
c $A799
z $A79C
c $A7A0 Café
C $A9F9 Activar a arma!
b $AB87
c $AB88
b $ABC3 Limpa algo, não sei o que
$ABC3 #HTML[#CALL:decode_data($E279,$A74E)]
b $ABCE Balão - Aceito
$ABCE #HTML[#CALL:decode_data($E659,$ABCE)]
b $ABE5 Limpa balão @ #R$ABCE
$ABE5 #HTML[#CALL:decode_data($E659,$ABE5)]
b $ABFA Balão - Sei que tem aí droga
$ABFA #HTML[#CALL:decode_data($E9F9,$ABFA)]
b $AC11 Limpa balão @ #R$ABFA
$AC11 #HTML[#CALL:decode_data($E659,$AC11)]
b $AC26 Balão - A sua conta
$AC26 #HTML[#CALL:decode_data($E779,$AC26)]
b $AC3D Limpa balão @ #R$AC26
$AC3D #HTML[#CALL:decode_data($E779,$AC3D)]
b $AC52
$AC52 #HTML[#CALL:decode_data($DE31,$AC52)]
z $AC8F
c $AC90 Café (Porta)
c $ACD3
b $ACD6
z $ACD7
b $ACD8 Café - quando a porta abre
$ACD8 #HTML[#CALL:decode_data($EA59,$ACD8)]
z $ACF4
c $ACF6
b $AD05 Puta - Quarto
$AD05 #HTML[#CALL:decode_data($EAC1,$AD05)]
c $AF6B
b $AF84 Balão - Ir-te a' cona
$AF84 #HTML[#CALL:decode_data($8DF4,$AF84)]
b $AF9B Limpa balão @ #R$AF84
$AF9B #HTML[#CALL:decode_data($FD01,$AF9B)]
c $AFB0
c $AFB8
z $AFC3
; @label:$AFC8=desenhaFrameHL
c $AFC8 Escreve o valor de HL no ecrã até achar FF
;D $AFC8 Percorre a memoria desde o endereço em HL até achar o valor FF
;D $AFC8 Escreve no ecrã o CHR$ do valor encontrado
z $AFD0
; @label:$AFD1=fadeOut
c $AFD1 Limpa o ecra (genero de fade)
$AFD1,$1e Limpa o ecra a fazer SHIFT RIGHT LOGICAL aos graficos "na memoria grafica" de $4000 a $57ff
$AFEF,$11 Define os atributos a partir do endereço $5800 com o valor definido em #R$C34F
c $B001
c $B01D
b $B0A9
$B0A9 #HTML[#CALL:decode_data($C538,$B0A9)]
E $B0A9 Esta frame é usada com CHARS a: $C538, $c328, $C420, $C538
b $B0E4 Animacao Pernas - Frame 1
$B0E4 #HTML[#CALL:decode_data($C250,$B0E4)]
b $B14C Animacao Pernas - Frame 2
$B14C #HTML[#CALL:decode_data($C328,$B14C)]
b $B1B5 Animacao Pernas - Frame 3
$B1B5 #HTML[#CALL:decode_data($C420,$B1B5)]
b $B226 Animacao Pernas - Frame 4
$B226 #HTML[#CALL:decode_data($C538,$B226)]
b $B299 Animacao Pernas - Frame 5
$B299 #HTML[#CALL:decode_data($C638,$B299)]
z $B309
c $B30A
b $B353 Entrar na porta - Frame 1
$B353 #HTML[#CALL:decode_data($C740,$B353)]
b $B3DF Entrar na porta - Frame 2
$B3DF #HTML[#CALL:decode_data($C740,$B3DF)]
c $B46C
c $B477
c $B486
z $B48E
; @label:$B48F=abrePorta
c $B48F Animação da porta a abrir
z $B4EF
; @label:$B4F1=fechaPorta
c $B4F1 Animação da porta a fechar
b $B551 Porta a abrir - Frame 1
$B551 #HTML[#CALL:decode_data($CA7A,$B551)]
b $B55F Porta a abrir - Frame 2
$B55F #HTML[#CALL:decode_data($CA7A,$B55F)]
b $B56B Porta a abrir - Frame 3
$B56B #HTML[#CALL:decode_data($CA7A,$B56B)]
c $B579
c $B583
c $B594
c $B59C Animacao da puta a sair
$B59C,$a CHARS = $C8E0
$B5A6 Endereço da frame #R$B5F0
$B5A9 Desenha a frame
$B5AC Delay
$B5AF Endereço da frame #R$B688
$B5B2,3 Desenha a frame
c $B5B6 Puta entra e porta é limpa
$B5B6,$a CHARS = $C8E0
$B5C0 Frame @ #R$B5F0 - Puta a entrar
$B5C3,3 Desenha a frame
$B5C6,3 Delay
$B5C9,$16 Limpa a porta - Imprime 5 caracteres em branco desde a posicao x = 10 y = 2 até x = 10 y = 16 #HTML(<br>)O que é printado é: 16 02 0A 80 80 80 80 80 16 03 0A 80 80 80 80 80 16 04 0A 80 80 80 80 80 16 05 0A 80 80 80 80 80 16 06 0A 80 80 80 80 80 16 07 0A 80 80 80 80 80 16 08 0A 80 80 80 80 80 16 09 0A 80 80 80 80 80 16 0A 0A 80 80 80 80 80 16 0B 0A 80 80 80 80 80 16 0C 0A 80 80 80 80 80 16 0D 0A 80 80 80 80 80 16 0E 0A 80 80 80 80 80 16 0F 0A 80 80 80 80 80 16 10 0A 80 80 80 80 80
; @label:$B5E0=imprimeEspacosB
c $B5E0 Imprime um espaço o numero de vezes que estiver em B
; @label:$B5E6=delayPuta
c $B5E6 Delay conta de $FFFF ate 0
b $B5F0 Puta a sair - Frame 1
$B5F0 #HTML[#CALL:decode_data($C8E0,$B5F0)]
b $B688 Puta a sair - Frame 2
$B688 #HTML[#CALL:decode_data($C8E0,$B688)]
; @label:$B721=random1
c $B721 Random que define quem vai aparecer na porta - 1
$B721 Carrega o valor do endereço #R$C34D (?) em A
$B724 Incrementa
$B725 Compara com $07
$B727 Se for igual - #R$B734
$B72A Guarda o valor de A no endereço #R$C34D (?)
$B72D Copia o valor de A para B
$B731,2 Decrementa B, se B > 0 salta para o CALL acima
; @label:$B734=defineAa0
c $B734 Define A = $01
c $B737
c $B745
z $B753
c $B755
c $B766
z $B76A
c $B76D Paradise Café
; @label:$B775=inputC34C
c $B775 Espera que se pressione uma tecla e guarda em #R$C34C
$B777 Endereço da ultima tecla pressionada
$B77A Mete a 00 (limpar?)
$B77C Compara a ultima tecla pressionada a A (0)
$B77D,2 Se for igual volta a comparar
$B780,3 Guarda a tecla pressionada em #R$C34C
z $B784
; @label:$B785=desenhaChaoHighscore
c $B785 Desenha o chão a linha de highscore e o azul do fundo do ecrã
$B785,8 Define atributos para o fadeOut a $10 e chama-o
$B78D,8 Desenha o chão (a $18 - 00|011|000 - roxo). $5A20 é um endereço de atributos de cor na memoria
$B795,6 Desenha #R$B7A4
$B79B,8 Desenha fundo do ecrã (a $08 - 00|001|000 - azul). $5AA0 é um endereço de atributos de cor na memoria
; @label:$B7A4=frame_linha_highscore
b $B7A4 Linha do Highscore
$B7A4 #HTML[#CALL:decode_data($3C00,$B7A4)]
; @label:$B7CC=prencheAtributos
c $B7CC Preenche desde (HL) até (HL+$60) o valor em A
$B7CC,2 Numero de vezes que vai executar
$B7CE,1 (HL) = A
$B7CF,1 HL+1
$B7D0,2 B--; Se !0 salta
c $B7D3
b $B7E6
b $B7E8
c $B7E9
z $B7FF
; @label:$B800=viraCaraPuta
c $B800 Vira a cara para a puta
$B800,$a CHARS = $CAEA
$B80A Endereço da frame #R$B811
$B80D,3 Desenha a frame
b $B811 Cara do gajo a olhar pra puta
B $B811 #HTML[#CALL:decode_data($CAEA,$B811)]
; @label:$B82E=viraCaraFrente
c $B82E Heroi vira a cara para o ecrã
$B82E O endereço $5C36 CHARS define onde a Font(?) começa
$B837 CHARS = $CE2A
$B838 Endereço da frame - #R$B83F
$B83B Desenha a frame
b $B83F Cara virada para o ecrã
B $B83F #HTML[#CALL:decode_data($CE2A,$B83F)]
z $B858
; @label:$B85A=random2
c $B85A Random que define quem vai aparecer na porta - 2
$B85A Carrega o valor do endereço #R$C34A (?) em A
$B85D Incrementa
$B85E Compara com $04
$B860 Se for igual chama #R$B867 que mete A a $00
$B863,3 Guarda o valor de A no endereço #R$C34A (?)
c $B867 Define A = $00
c $B86A Puta
$B86A,3 Abre a porta
$B86D,3 Vira a cara para a puta
$B870,3 Delay
$B873,3 Sai da porta
$B876,6 Randomize crap!
$B881,3 CHARS = $CB2A - Ola nao queres entrar?
$B884,5 Se random2 == $01
$B889 CHARS = $CBEA - Queres vir comigo?
$B88C,5 Se random2 == $02
$B891,3 CHARS = $CCAA - Queres provar?
$B894 Endereço da frame - #R$B8B1
$B897,3 Desenha a frame
$B89A,3 Espera por input do utilizador
$B8A0 Foi o "s" ?
$B8A5 Foi o "n" ?
$B8A7 Dizer que não à puta
$B8AA Foi o "q" ?
$B8AC,3 Dizer que nao à puta
$B8AF Se não foi nenhuma delas volta a pedir input
b $B8B1 Frases da puta na rua
E $B8B1 CHARS $CB2A #HTML[#CALL:decode_data($CB2A,$B8B1)]
E $B8B1 CHARS $CBEA #HTML[#CALL:decode_data($CBEA,$B8B1)]
E $B8B1 CHARS $CCAA #HTML[#CALL:decode_data($CCAA,$B8B1)]
c $B8E9
$B8E9,$a CHARS = $CD6A
$B8F3 Frame @ #R$B811 - Virar a cara
$B8F6,3 Desenha a frame
$B8F9,6 Delay
$B902,3 Delay
$B90B,3 Fecha a porta
$B90E,3 Delay
c $B914
c $B93C Recusar a puta
b $B967 Balão - Maricas
$B967 #HTML[#CALL:decode_data($CE59,$B967)]
; @label:$B97E=charsCB2A
c $B97E CHARS = $CB2A
$B97e,10 CHARS = $CB2A
; @label:$B989=charsCBEA
c $B989 CHARS = $CBEA
$B98C,3 CHARS = DE
; @label:$B994=charsCCAA
c $B994 CHARS = $CCAA
; @label:$B99F=delay1
c $B99F Delay conta de $FFFF ate 0
z $B9A9
c $B9AF Calcular variaveis/Refresh delas no ecrã
b $B9F1 SCORE=
$B9F1 #HTML[#CALL:decode_data($3C00,$B9F1)]
b $BA00 DINHEIRO:
$BA00 #HTML[#CALL:decode_data($3C00,$BA00)]
c $BA0D
c $BA21
c $BA2C
c $BA40
c $BA4B
c $BA4E
c $BA62
c $BA6D
c $BA81
c $BA8C
c $BA8F Aceitar comprar algo no café
c $BAA3
c $BAAE
c $BAC2
z $BACD
c $BAD0
c $BAE4
c $BAEF
c $BB03
z $BB0E
; @label:$BB11=ladraoAnimSai
; Animação do ladrão a saír da porta
; 1º Metade do corpo
; 2º Corpo todo virado pra frente
c $BB11 Ladrão: Animação a saír
C $BB11 O endereço $5C36 CHARS define onde a Font(?) começa
C $BB1A CHARS = $CEB9
C $BB1B Endereço da frame 1 - #R$BB38
C $BB1E Desenha a frame
C $BB21 Delay
C $BB24 Endereço da frame 2 - #R$BBA1
C $BB27 Desenha a frame
C $BB2A Delay
; @label:$BB2E=delayLadrao
c $BB2E Delay
E $BB2E Conta desde FFF0 até 0000
C $BB2E C = F0
C $BB30 B = 00
C $BB32 Decrementa B, se nao for 0 salta para si proprio
C $BB34 Decrementa C
C $BB35 Se nao for 0, salta para $BB30
; Frame
b $BB38 Ladrão a sair - Frame 1
B $BB38 #HTML[#CALL:decode_data($CEB9,$BB38)]
; Frame
b $BBA1 Ladrão a sair - Frame 2
;B $BBA1 #CALL:comment_frame($CEB9,$BBA1)
B $BBA1 #HTML[#CALL:decode_data($CEB9,$BBA1)]
z $BC67
; @label:$BC6A=ladraoViradoEsq
; Animação do ladrão a virar-se para a esquerda
c $BC6A Ladrão: Virado para a esquerda
C $BC73 CHARS = $D089
C $BC74 Endereço da frame - #R$BC7B
C $BC77 Desenha a frame
; Frame
b $BC7B Ladrão virado para a esquerda - Frame
B $BC7B #HTML[#CALL:decode_data($D089,$BC7B)]
; @label:$BD0C=deToChars
c $BD0C Define o valor de DE em $5C36 (Endereço CHARS)
c $BD15
b $BD22
z $BD94
c $BD95
z $BD9F
c $BDA0
c $BDBF Ladrão: animação a entrar na porta
c $BDDE
b $BDE8
b $BE65
c $BEC5
; @label:$BEDC=sacaAPistola
c $BEDC Saca a pistola @ #R$BEE9
b $BEE9 Frame - Sacar a pistola
B $BEE9 #HTML[#CALL:decode_data($D409,$BEE9)]
; Rotina principal do ladrão
; @label:$BF17=ladrao
c $BF17 Ladrão
$BF17,3 Abre a porta
$BF1A,5 Define a "LAST K" last pressed key = 00 (é para limpar IMEO)
$BF1F Sai da porta
$BF22 Vira-se para a esquerda
$BF25 Endereço da frame - #R$BFE0
$BF28 Desenha a frame
$BF2B Randomizer
$BF2E,6 Delay com a duracao do valor em A
$BF34,8 $5C08 Se a ultima tecla carregada foi "0" entao é para disparar!
$BF3C Tem lume?
$BF66 Saca da pistola - Passe a carteira
$BF8B Entra na porta
$BF93 Fecha a porta
$BF9E Ve se tem pistola(????)
$BFA6 Não tens pistola?
$BFC4 Merda
b $BFCF
b $BFE0 Animação Ladrão (???)
B $BFE0 #HTML[#CALL:decode_data($D089,$BFE0)]
b $BFE7 Ladrão - Saca a pistola
$BFE7 #HTML[#CALL:decode_data($D389,$BFE7)]
b $BFFA Ladrão - Tem lume? - Frame 1
$BFFA #HTML[#CALL:decode_data($D3A9,$BFFA)]
b $C00F Balão - Tem lume?
$C00F #HTML[#CALL:decode_data($D519,$C00F)]
b $C026 Limpa balão @ #R$C00F
$C026 #HTML[#CALL:decode_data($D6E9,$C026)]
b $C03B Balão - Não tenho pistola
$C03B #HTML[#CALL:decode_data($D689,$C03B)]
b $C052 Limpa balão @ #R$C03B
$C052 #HTML[#CALL:decode_data($D689,$C052)]
b $C067 Balão - Não fumo
$C067 #HTML[#CALL:decode_data($D6E9,$C067)]
b $C07C Balão - Mãezinha
$C07C #HTML[#CALL:decode_data($D5D9,$C07C)]
b $C093 Ladrão - Tem lume? - Frame 2
$C093 #HTML[#CALL:decode_data($D3A9,$C093)]
b $C0B3 Balão - Eu só queria lume!
$C0B3 #HTML[#CALL:decode_data($D579,$C0B3)]
c $C0F8
c $C192
; Rotina executada quando se tenta disparar contra o ladrão
c $C1C2 Disparar contra o ladrão
$C1C2,8 Se não tiver pistola chama #R$C23B
$C1E7,3 Saca a pistola para fora!
$C1EA,5 Delay com a duracao do valor em A
; @label:$C23B=naoTenhoPistola
c $C23B Não tenho pistola
$C23B Vira a cara para o ecrã #R$B83F
$C23E,$c Balão - Não tenho pistola, #R$C03B
$C24A,5 Delay com a duracao do valor em A
$C24F,6 Esconde o balão #R$C052
z $C258
; @label:$C259=delayEmA
c $C259 Delay (rotina corre o numero de vezes que o valor em A)
c $C266
c $C26A
z $C273
c $C27A Tentativa de venda de algo no café
D $C27A Seja a arma, droga ou a conta
D $C27A Provavelmente define alguma variavel, pq é executado antes de mostrar o preço
$C29D Mete o preço a 1000$00
z $C2A9
c $C2AA
b $C2CE DESPESA
$C2CE #HTML[#CALL:decode_data($3C00,$C2CE)]
z $C2DE
c $C2DF
b $C302 HISCORE =
$C302 #HTML[#CALL:decode_data($3C00,$C302)]
z $C314
b $C336
; @label:$C337=variavel_droga
b $C337 Inventorio: Droga
b $C338
b $C33A
b $C33B
; @label:$C33C=variavel_carteira
b $C33C Inventorio: Carteira
; @label:$C33D=variavel_arma
b $C33D Inventorio: Arma
; @label:$C33E=variavel_dinheiro
b $C33E Dinheiro
t $C33E Dinheiro (Little endian - 3081 -> 0318) -> 031800$00
b $C342
;t $C342 Highscore (Little endian - 0005 -> 0050) -> 005000 Pontos
b $C344
; @label:$C346=variavel_score
b $C346 Score
D $C346 Quatro bytes ASCII em Little Endian.
D $C346 Exemplo: 0041 fica 0014 ou seja 0014 + 00 pontos.
b $C348
b $C34A
b $C34B Distancia para a porta?
b $C34C Ultima tecla pressionada
b $C34D ??
b $C34E ??
; @label:$C34F=variavel_atributos_fadeOut
b $C34F Atributos a serem usados no fadeOut
b $C350 CHARS