Asynchronous co-op multiplayer

    case button
      when Input::DOWN
        return [0x28] # Down
      when Input::LEFT
        return [0x25] # Left
      when Input::RIGHT
        return [0x27] # Right
      when Input::UP
        return [0x26] # Up
      when Input::A
        return [0x5A,0x10] # Z, Shift
      when Input::B
        return [0x58,0x1B] # X, ESC 
      when Input::C
        return [0x43,0x0d,0x20] # C, ENTER, Space
      when Input::X
        return [0x41] # A
      when Input::Y
        return [0x53] # S
      when Input::Z
        return [0x44] # D
      when Input::L
        return [0x51,0x21] # Q, Page Up
      when Input::R
        return [0x57,0x22] # W, Page Down

    $PokemonSystem.multiplayer = 0 if $PokemonSystem.multiplayer == nil
    $PokemonSystem.cur_player = 0 if $PokemonSystem.cur_player == nil
    case button
      when Input::DOWN                                      # DOWN
        if $PokemonSystem.multiplayer == 1 && $PokemonSystem.cur_player == 1
          return [0x53] # S (Only for player 2 when co-op)
        else  # Player 1, or solo
          return [0x28] # Down
        end
      when Input::LEFT                                      # LEFT
        if $PokemonSystem.multiplayer == 1 && $PokemonSystem.cur_player == 1
          return [0x41] # A
        else
          return [0x25] # Left
        end
      when Input::RIGHT                                     # RIGHT
        if $PokemonSystem.multiplayer == 1 && $PokemonSystem.cur_player == 1
          return [0x44] # D
        else
          return [0x27] # Right
        end
      when Input::UP                                        # UP
        if $PokemonSystem.multiplayer == 1 && $PokemonSystem.cur_player == 1
          return [0x57] # W
        else
          return [0x26] # Up
        end
      when Input::A                                     # MENU / Start
        if $PokemonSystem.multiplayer == 0  # Solo
          return [0x5A,0x10,0x63] # Z, Shift, Num 3
        else
          if $PokemonSystem.cur_player == 0 # Player 1
            return [0x63] # Num 3
          else                              # Player 2
            return [0x48] # H
          end
        end
      when Input::B                                     # B / Cancel
        if $PokemonSystem.multiplayer == 0
          return [0x58,0x1B,0x62] # X, ESC , Num 2
        else
          if $PokemonSystem.cur_player == 0
            return [0x62] # Num 2
          else
            return [0x47] # G
          end
        end
      when Input::C                                     # A / Accept
        if $PokemonSystem.multiplayer == 0
          return [0x43,0x0d,0x20,0x61] # C, ENTER, Space, Num 1
        else
          if $PokemonSystem.cur_player == 0
            return [0x61,0x0d] # Num 1 (,Enter)
          else
            return [0x46] # F
          end
        end
      when Input::X
        if $PokemonSystem.multiplayer == 0
          return [0x41,0x66] # A, Num 6
        else
          if $PokemonSystem.cur_player == 0
            return [0x66] # Num 6
          else
            return [0x59] # Y
          end
        end
      when Input::Y
        if $PokemonSystem.multiplayer == 0
          return [0x53,0x65] # S, Num 5
        else
          if $PokemonSystem.cur_player == 0
            return [0x65] # Num 5
          else
            return [0x54] # T
          end
        end
      when Input::Z
        if $PokemonSystem.multiplayer == 0
          return [0x44,0x64] # D, Num 4
        else
          if $PokemonSystem.cur_player == 0
            return [0x64] # Num 4
          else
            return [0x52] # R
          end
        end
      when Input::L                                     # L
        if $PokemonSystem.multiplayer == 0
          return [0x51,0x21,0x60] # Q, Page Up, Num 0
        else
          if $PokemonSystem.cur_player == 0
            return [0x60] # Num 0
          else
            return [0x51] # Q
          end
        end
      when Input::R                                     # R
        if $PokemonSystem.multiplayer == 0
          return [0x57,0x22,0x6E] # W, Page Down, Decimal
        else
          if $PokemonSystem.cur_player == 0
            return [0x6E] # Num Decimal
          else
            return [0x45] # E
          end
        end

       EnumOption.new(_INTL("Players"),[_INTL("Solo"),_INTL("Co-op")],
          proc { $PokemonSystem.multiplayer },
          proc {|value|  $PokemonSystem.multiplayer=value
          }
       ),

    if @player.is_a?(Array) #If has partner trainer, yet no curtrainer id
      return false if index==2 && $PokemonSystem.multiplayer == 0
    end

  def pbPartyExact(index)
    return party1 if index==0
    return party1 if index==2 && [email protected]_a?(Array)
    return party2 if index==1
    return party2 if index==3 && [email protected]_a?(Array)
    if index==2 && @player.is_a?(Array)
      party = []
      for i in 0...6; party.push(party1[6+i]); end
    elsif index==3 && @opponent.is_a?(Array)
      party = []
      for i in 0...6; party.push(party2[6+i]); end
    end
    return party
  end
  
  def pbController(index) #returns 0 if player 1, 1 if partner, etc.
    ret = 0
    if @player.is_a?(Array) && index==2 && $PokemonSystem.multiplayer == 1
      ret = 1   #if partner trainer and co-op is turned on
    end
    return ret
  end
  
  def SetInputPlayer(index)
    # Single player is always P1
	  if $PokemonSystem.multiplayer == 0
	    $PokemonSystem.cur_player = 0
	  else	# Co-op controls are enabled
	    # Player 1:
      if @player.is_a?(Array) && index==0
        $PokemonSystem.cur_player = 0
	    # Player 2:
      elsif @player.is_a?(Array) && index==2
        $PokemonSystem.cur_player = 1
      end
	  end
    return
  end