No funciona nada....
A ver, yo uso las funciones de Splinter internamente, o sea, no uso el import, os pongo la estrutura de como declaro sus variables.
Program blala;
CONST
....
#define _key(k,ev) ((ev==_key_down)?( _key_state[ k ][ _key_use ] && !_key_state[ k ][ _key_use ^ 1 ] ): \
(ev==_key_up )?( !_key_state[ k ][ _key_use ] && _key_state[ k ][ _key_use ^ 1 ] ): \
( _key_state[ k ][ _key_use ]))
#define _key_pressed 0
#define _key_down 1
#define _key_up 2
global
_key_use = 0;
_key_state[127][1];
....
begin
set_mode(224, 256, 16);
set_fps(24, 0);
....
game();
end
PROCESS game();
BEGIN
....
_key_init();
LOOP
IF ( _key( _6, _key_up ) )
write(0,100,100,0,"Funciona");
END
if ( _key( _5, _key_down ) )
Creditos += 1;
end
IF (key(_esc) OR exit_status == 1)
exit("esto si funciona",0);
END
FRAME;
END
END
process _key_init()
private
ii;
pid;
begin
if ( ( pid = exists( type _key_init ) ) && pid.id != id ) return; end
priority = 1000;
loop
_key_use ^= 1;
for ( ii = 0; ii < 127; ii++ )
_key_state[ ii ][ _key_use ] = key( ii );
end
frame;
end
end
function _key_exit()
begin
signal( type _key_init, s_kill );
end