Escape from ASYLUM!
Moderador: na_th_an
Re: Escape from ASYLUM!
En WOS hay algunos que suelen ser muy suyos. El primero se queja de que parece apresurado, parece que no entiende que ha sido apresurado adrede. Andrew simplemente dice que preparará el hack pack pronto Es un crack, no entiendo como saca los POKEs tan pronto.
Como diría Rorshach: "Urm..."
Re: Escape from ASYLUM!
AJUDA!
Necesito detectar si el usuario pulsa, joy (kempston o sinclair) en la música, por que si eligen joystick no pueden salir de la música de batalla. Esta es la función en music.h
$this->bbcode_second_pass_code('', '.play_note
; Read keyboard
LD E,A
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
LD A,E
LD E,0
')
¿como podría añadir que salga con joy también?
Un saludo y gracias chicos :_
Necesito detectar si el usuario pulsa, joy (kempston o sinclair) en la música, por que si eligen joystick no pueden salir de la música de batalla. Esta es la función en music.h
$this->bbcode_second_pass_code('', '.play_note
; Read keyboard
LD E,A
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
LD A,E
LD E,0
')
¿como podría añadir que salga con joy también?
Un saludo y gracias chicos :_
David Skywalker
Weblog: http://david.dantoine.org
Weblog: http://david.dantoine.org
Re: Escape from ASYLUM!
El joystick sinclair está mapeado al teclado (1-5 o 6-0 dependiendo del puerto), así que este no te da problemas.
Para el kempston habría que leer el puerto ¿31? y si da diferente de ¿0? es que hay algo pulsado. Tendría que investigarlo.
Sería añadir esa comprobación detrás del jr nz, exit_player.
Para el kempston habría que leer el puerto ¿31? y si da diferente de ¿0? es que hay algo pulsado. Tendría que investigarlo.
Sería añadir esa comprobación detrás del jr nz, exit_player.
Como diría Rorshach: "Urm..."
Re: Escape from ASYLUM!
No lo he probado, pero debería ser tan sencillo como añadir esto después de jr nz,exit_player:
$this->bbcode_second_pass_code('', 'in a, 31
jr nz, exit_player')
Leemos el valor del puerto 31 y si no es cero (el joystick se mueve en alguna dirección) saltamos a exit_player también.
Si se quiere restringir al botón, supongo que habría que hacer un and con 16, porque el kempston levanta el bit 4 con el botón:
$this->bbcode_second_pass_code('', 'in a, 31
and 16
jr nz, exit_player')
http://chuntey.wordpress.com/2010/01/06 ... -programs/
$this->bbcode_second_pass_code('', 'in a, 31
jr nz, exit_player')
Leemos el valor del puerto 31 y si no es cero (el joystick se mueve en alguna dirección) saltamos a exit_player también.
Si se quiere restringir al botón, supongo que habría que hacer un and con 16, porque el kempston levanta el bit 4 con el botón:
$this->bbcode_second_pass_code('', 'in a, 31
and 16
jr nz, exit_player')
http://chuntey.wordpress.com/2010/01/06 ... -programs/
Como diría Rorshach: "Urm..."
Re: Escape from ASYLUM!
Nop, no sale del bucle de la musica :_
[UPDATE1]
Espera es un error de compilacion...
[UPDATE2]
$this->bbcode_second_pass_code('', ' IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
')
Así funciona pero la música va muy mal, supongo por que tiene que hacer dos lecturas de puerto...
Completo:
$this->bbcode_second_pass_code('', '.play_note
; Read Kempston
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
; Read keyboard
LD E,A
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
LD A,E
')
[UPDATE1]
Espera es un error de compilacion...
[UPDATE2]
$this->bbcode_second_pass_code('', ' IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
')
Así funciona pero la música va muy mal, supongo por que tiene que hacer dos lecturas de puerto...
Completo:
$this->bbcode_second_pass_code('', '.play_note
; Read Kempston
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
; Read keyboard
LD E,A
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
LD A,E
')
David Skywalker
Weblog: http://david.dantoine.org
Weblog: http://david.dantoine.org
Re: Escape from ASYLUM!
Yo decía de ponerlo después del jr nz, exit_player otro que hay más abajo. Si lo pones donde lo has puesto tú te estás cargando el registro A que se usa justo después y por eso te estás cargando la música.
$this->bbcode_second_pass_code('', '.play_note
; Read keyboard
LD E,A
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
; AQUI
; Read Kempston
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
; %%%
LD A,E
')
$this->bbcode_second_pass_code('', '.play_note
; Read keyboard
LD E,A
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
; AQUI
; Read Kempston
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
; %%%
LD A,E
')
Como diría Rorshach: "Urm..."
Re: Escape from ASYLUM!
Estaba justo probándolo y se come notas
$this->bbcode_second_pass_code('', '.play_note
LD E,A
XOR A
; Read keyboard
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
.player_wait_joy
; Read Kempston
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
.player_wait_end
LD A,E
.l8168 EXX
EX AF,AF ; beware!
ADD HL,BC
OUT ($FE),A
JR C,L8171
JR L8173
.l8171 XOR $10
.l8173 ADD IX,DE
JR C,L8179
JR L817B
.l8179 XOR $10
')
$this->bbcode_second_pass_code('', '.play_note
LD E,A
XOR A
; Read keyboard
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
.player_wait_joy
; Read Kempston
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
.player_wait_end
LD A,E
.l8168 EXX
EX AF,AF ; beware!
ADD HL,BC
OUT ($FE),A
JR C,L8171
JR L8173
.l8171 XOR $10
.l8173 ADD IX,DE
JR C,L8179
JR L817B
.l8179 XOR $10
')
David Skywalker
Weblog: http://david.dantoine.org
Weblog: http://david.dantoine.org
Re: Escape from ASYLUM!
La verdad es que no tengo muy claro cómo se engloba el cacho de código que has puesto con todo el player, y ahora mismo aquí no lo puedo mirar.
Prueba así:
$this->bbcode_second_pass_code('', '.play_note
LD E,A
; Read Kempston
XOR A
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
; Read keyboard
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
LD A,E')
Prueba así:
$this->bbcode_second_pass_code('', '.play_note
LD E,A
; Read Kempston
XOR A
IN A,($1F)
AND 31
JR NZ,EXIT_PLAYER
; Read keyboard
XOR A
IN A,($FE)
OR $E0
INC A
.player_wait_key
JR NZ,EXIT_PLAYER
LD A,E')
Como diría Rorshach: "Urm..."
Re: Escape from ASYLUM!
He añadido un poco más por si vale...
Espera el problema parece otro, he dejado todo como estaba y sigue mal.
Me había comido un ...
$this->bbcode_second_pass_code('', '.player_wait_end
LD A,E
LD E,0
')
Bendito git diff XD
Ahora necesito una variable para cuando este en batallas con kempston
Por que si no lo tienes enchufado, siempre devuelve 255 al parecer...
Espera el problema parece otro, he dejado todo como estaba y sigue mal.
Me había comido un ...
$this->bbcode_second_pass_code('', '.player_wait_end
LD A,E
LD E,0
')
Bendito git diff XD
Ahora necesito una variable para cuando este en batallas con kempston
Por que si no lo tienes enchufado, siempre devuelve 255 al parecer...
David Skywalker
Weblog: http://david.dantoine.org
Weblog: http://david.dantoine.org
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 75 invitados