Sure, I'll write one up for you. Give me a second.
EDIT: Okay, Starting now
EDIT 2:
class Scene_Map
alias change_leader_modification update
def update
change_leader_modification
if Input.trigger? (Input::R)
new_lead = $game_party.actors.shift
$game_party.add_actor (new_lead.id)
end
if Input.trigger? (Input::L)
new_lead = $game_party.actors.pop
$game_party.actors.unshift (new_lead)
$game_player.refresh
end
end
end
Place it just above main
I didn't test it, but it should work. Tell me if you encounter any problems