OpenBOR - Beats of Rage Engine Selection.sh

#!/bin/bash
# Graphical Menu to select OpenBOR custom files
# Thank to @darknior for working on OpenBOR on RetroPie forum
# Follow him @chronocrash official forum
# For setup read more here
# https://retropie.org.uk/forum/topic/13784
#
# I'm using @darkniors file nameing convention so every game episode uses
# gameepisode.bor/data directory structure
#
# The purposes?
# Reason 1: To make use of runcommand.sh for better compatibility to RetroPie setups
# Reason 2: To automate setup of joypad for each game
#             > copy a cfg file to $BORBASE_DIR and name it master.bor.cfg
#             > so a once done setup file must be copied from $KEYCONF_DIR to $BORBASE_DIR
#
# For setup: please edit nano /opt/retropie/configs/ports/openbor/emulators.cfg
#            and add a %ROM% after OpenBOR binary call
#
# coded by cyperghost
# For https://retropie.org.uk/

###### --------------------- INIT ---------------------
readonly VERSION="0.99_070218"
readonly TITLE="OpenBOR - cyperghosts Episode selector"
readonly BORBASE_DIR="/home/pi/RetroPie/roms/ports/openbor"
readonly ROOTDIR="/opt/retropie"
readonly KEYCONF_DIR="$ROOTDIR/configs/ports/openbor/Saves"
###### --------------------- INIT ---------------------




###### --------------------- JOY00 ---------------------

function start_joy(){

   ### >>>> RIPPED OUT OF RUNCOMMAND.SH ---- Please improve!

        # call joy2key.py: arguments are curses capability names or hex values starting with '0x'
        # see: http://pubs.opengroup.org/onlinepubs/7908799/xcurses/terminfo.html
        "$ROOTDIR/supplementary/runcommand/joy2key.py" "/dev/input/js0" kcub1 kcuf1 kcuu1 kcud1 0x0a 0x09 &
        JOY2KEY_PID=$!
}

function end_joy(){

   ### >>>> RIPPED OUT OF RUNCOMMAND.SH ---- Please improve!


    if [[ -n "$JOY2KEY_PID" ]]; then
        kill -INT "$JOY2KEY_PID"
    fi

}

###### --------------- Dialog Functions ---------------

# Show Infobox // $1 = Textmessage, $2 = seconds box will appear, $3 = Boxtitlemessage

function show_msg() {
    dialog --title " $3 " --backtitle " $TITLE - $VERSION " --infobox "$1" 0 0
    sleep "$2"; clear
	}

# This builds dialog for OpenBOR directories
# We need to create valid array (dialog_array) before
# I disabled tags, so selections are showen exactly as in ES ROM section

function dialog_selectBOR() {

    # Create array for dialog
    local dialog_array
    local i
    for i in "${array[@]}"; do
        dialog_array+=("$i" "${i:2:-4}")
    done

    # old file array isn't needed anymore!
    unset array

    # -- Begin Dialog
    local cmd=(dialog --backtitle "$TITLE - $VERSION " \
                      --title " Select your Beats of Rage Episode " \
                      --ok-label " Select " \
                      --cancel-label " Exit to ES " \
                      --no-tags --stdout \
                      --menu "There are $((${#dialog_array[@]}/2)) games available\nWhich you want to play:" 16 70 16)
    local choices=$("${cmd[@]}" "${dialog_array[@]}")
    echo "$choices"
    # -- End Dialog
}

###### --------------- Dialog Functions ---------------




###### --------------- Array Functions ---------------

# Rebuild Filenames, if $i starts with "./" an new filename is found
# Array postion 1 is always empty, we can use that later

function build_find_array() {

    local i;local ii
    local filefind="$1"

    for i in $filefind; do
        if [[ ${i:0:2} == "./" ]]; then
            array+=("$ii")
            ii=
            ii="$i"
         else
            ii="$ii $i"
         fi
    done
    array[0]="$ii"

}

###### --------------- Array Functions ---------------




###### -------------- M A I N B U I L D --------------

# Get OpenBOR-directories and build valid array, make precheck

if [[ -d $BORBASE_DIR ]]; then
    cd "$BORBASE_DIR"
    bor_files=$(find -maxdepth 1 -iname "*.bor" -type d 2>/dev/null)
else
    show_msg "No $BORBASE_DIR found!" "3" "Fatal error!"
    exit
fi

# Are there any BOR Directories available?

if [[ -z $bor_files ]]; then
    show_msg "No BOR directories found in location:\n\n$BORBASE_DIR" "3" "Error!"
    exit
fi

# Start Selection Dialog

start_joy

build_find_array "$bor_files"
BOR_file=$("dialog_selectBOR")
clear
end_joy; sleep 0.5

if [[ -z $BOR_file ]]; then
    show_msg "No Selection made...Returning to ES!" "2" "Really? :("
    exit
fi

# Is there a config file (I don't want to setup each file one by one)
# If not I use the Masterfile which I copied to $BORBASE_DIR
# master file is names master.bor.cfg
# I use a good configuration file from a older setup to copy key settings for new games ;)
BOR_cfg="$KEYCONF_DIR${BOR_file#.*}.cfg"
if [[ ! -f $BOR_cfg && -f $BORBASE_DIR/master.bor.cfg  ]]; then
    cp "$BORBASE_DIR/master.bor.cfg" "$BOR_cfg"
    show_msg "Copied config-file from:\n$BORBASE_DIR/master.bor.cfg\n    to:\n$BOR_cfg\n\nStarting game ${BOR_file:2:-4} in a few seconds!" "8" "Setup"
fi

# Finally using RUNCOMMAND.SH to initiate prober start of games

BOR_file="$BORBASE_DIR${BOR_file#.*}"
"$ROOTDIR/supplementary/runcommand/runcommand.sh" 0 _PORT_ "openbor" "$BOR_file"