source: abuse/trunk/src/config.cpp @ 56 Tweet

/*
 *  Abuse - dark 2D side-scrolling platform game
 *  Copyright (c) 1995 Crack dot Com
 *
 *  This software was released into the Public Domain. As with most public
 *  domain software, no warranty is made or implied by Crack dot Com or
 *  Jonathan Clark.
 */

#include "config.h"

#include <ctype.h>

#include "keys.hpp"
#include "lisp.hpp"
#include "joy.hpp"
#include "jwindow.hpp"
#include "config.hpp"
#include "game.hpp"

extern int get_key_binding(char const *dir, int i);

extern window_manager *eh;
int key_players = 0;
int morph_detail = MEDIUM_DETAIL;

struct player_keys
{
        int joy, left, right, up, down, b1, b2, b3, b4;
};

player_keys *key_map = NULL;

int binding_for_player( int player )
{
        char tmp[40];
        sprintf( tmp, "player%d", player );
        Cell *f = find_symbol( tmp );
        if( !NILP( f ) && DEFINEDP( symbol_value( f ) ) )
        {
                void *what = symbol_value( f );
                if( what == make_find_symbol( "keyboard" ) )
                        return 1;
                else if( what == make_find_symbol( "joystick" ) )
                        return 2;
        }
        return 0;
}

/*
int get_key_binding(char const *dir, int i)
{
        char tmp[100], kn[50];
        sprintf( tmp, "player%d-%s", i, dir );
        Cell *f = find_symbol( tmp );
        if( NILP(f) || !DEFINEDP( symbol_value( f ) ) )
                return 0;
        void *k = symbol_value( f );

        if( item_type( k ) != L_SYMBOL )
                return 0;

#ifdef SCADALISP
        strcpy( tmp, symbol_name( k ) );
#else
        strcpy( tmp, lstring_value( symbol_name( k ) ) );
#endif

        for( char *c = tmp; *c; c++ )
        {
                *c = tolower( *c );
                if( *c == '_' )
                        *c = ' ';
        }

        for( int j = 0; j < JK_MAX_KEY; j++ )
        {
                key_name( j, kn );
                for( char *c = kn; *c; c++ )
                {
                        *c = tolower(*c);
                }
                if( !strcmp( kn, tmp ) )
                        return j;
        }
        return 0;
}
*/

/*
void get_key_bindings()
{
        if( key_map )
        {
                jfree( key_map );
        }
        key_map = NULL;

        for( key_players = 0; binding_for_player( key_players + 1); key_players++ );
        if( key_players )
        {
                key_map = ( player_keys *)jmalloc(sizeof(player_keys)*key_players,"key bindings");
                for( int i = 0; i < key_players; i++ )
                {
                        key_map[i].joy = ( binding_for_player( i + 1 ) == 2 );
                        if( !key_map[i].joy )
                        {
                                key_map[i].left = get_key_binding( "left", i + 1 );
                                key_map[i].right = get_key_binding( "right", i + 1 );
                                key_map[i].up = get_key_binding( "up", i + 1 );
                                key_map[i].down = get_key_binding( "down", i + 1 );
                                key_map[i].b4 = get_key_binding( "b4", i + 1 );
                                key_map[i].b3 = get_key_binding( "b3", i + 1 );
                                key_map[i].b2 = get_key_binding( "b2", i + 1 );
                                key_map[i].b1 = get_key_binding( "b1", i + 1 );
                        }
                }
        }
        else
        {
                key_map = NULL;
        }
}*/

// AK
void get_key_bindings()
{
        if( key_map )
        {
                jfree( key_map );
        }
        key_map = NULL;

        key_players = 1;
        key_map = (player_keys *)jmalloc( sizeof( player_keys ) * key_players, "key bindings" );
        for( int i = 0; i < key_players; i++ )
        {
                key_map[i].joy = 0;
                key_map[i].left = get_key_binding( "left", i + 1 );
                key_map[i].right = get_key_binding( "right", i + 1 );
                key_map[i].up = get_key_binding( "up", i + 1 );
                key_map[i].down = get_key_binding( "down", i + 1 );
                key_map[i].b4 = get_key_binding( "b4", i + 1 );
                key_map[i].b3 = get_key_binding( "b3", i + 1 );
                key_map[i].b2 = get_key_binding( "b2", i + 1 );
                key_map[i].b1 = get_key_binding( "b1", i + 1 );
        }
}


#define is_pressed(x) the_game->key_down(x)

void get_movement(int player, int &x, int &y, int &b1, int &b2, int &b3, int &b4)
{
        if( player < key_players )
        {
/*              if( key_map[player].joy )
                {
                        joy_status( b1,b2,b3,x,y );
                        b3 = ( b1 && b2 );
                        b4 = 0;
                }
                else if( !eh )
                {
                        x = y = b1 = b2 = b3 = b4 = 0;
                }
                else*/
                {
                        if( is_pressed( key_map[player].left ) )
                                x = -1;
                        else if( is_pressed( key_map[player].right ) )
                                x=1;
                        else
                                x = 0;

                        if( is_pressed( key_map[player].up ) )
                                y = -1;
                        else if( is_pressed( key_map[player].down ) )
                                y = 1;
                        else y = 0;

                        if( is_pressed( key_map[player].b1 ) )
                                b1 = 1;
                        else
                                b1 = 0;

                        if( is_pressed( key_map[player].b2 ) )
                                b2 = 1;
                        else
                                b2 = 0;

                        if( is_pressed( key_map[player].b3 ) )
                                b3 = 1;
                        else
                                b3 = 0;

                        if( is_pressed( key_map[player].b4 ) )
                                b4 = 1;
                        else
                                b4 = 0;
                }
        }
        else
        {
                x = y = b1 = b2 = b3 = 0;
        }
}

void key_bindings(int player, int &left, int &right, int &up, int &down, int &b1, int &b2, int &b3, int &b4)
{
        left = key_map[player].left;
        right = key_map[player].right;
        up = key_map[player].up;
        down = key_map[player].down;
        b1 = key_map[player].b1;
        b2 = key_map[player].b2;
        b3 = key_map[player].b3;
        b3 = key_map[player].b4;
}


void config_cleanup()
{
        if( key_map )
        {
                jfree( key_map );
        }
}

//
// Get the keycode for the string 'str'
// Returns -1 for an invalid key code
//
int get_keycode(char const *str)
{
        if( !str[0] )
        {
                return -1;
        }
        else if( !str[1] )
        {
                return str[0];
        }
        else
        {
                int j;
                char buf[20];
                for( j = 256; j < JK_MAX_KEY; j++ )
                {
                        key_name( j, buf );
                        char *c = buf;
                        for( ; *c; c++ )
                        {
                                if( *c == ' ' )
                                {
                                        *c = '_';
                                }
                                else
                                {
                                        *c = tolower( *c );
                                }
                        }
                        if( strcmp( str, buf ) == 0 )
                        {
                                return j;
                        }
                }
        }
        return -1;
}