[VX/VXA Script] KRandomTeleport VX + ACE

Code:
# * KRandomTeleport VX & ACE

#  Scripter : Kyonides Arkanthes

#  v0.2.0 - 2022-11-13

#  v0.1.0 - 2021-08-22



# This scriptlet allows you to transfer a player to a random location on a given

# map. The condition is that you need to define a rectangular area first.

# You would no longer need to setup several event commands in a row there.



# * Script Calls * #

# - Send to Same Map -

# $game_player.random_transfer(MIN_X, MAX_X, MIN_Y, MAX_Y)

# - Send to Another Map -

# $game_player.random_transfer(MIN_X, MAX_X, MIN_Y, MAX_Y, MAPID)

# - Undo Random Transfer (Clears Transfer Data)

# $game_player.undo_random_transfer

# - Clear Random Transfer Data Manually!

# $game_player.clear_pre_teleport_coords



class Game_Player

  def clear_pre_teleport_coords

    @tp_x = nil

    @tp_y = nil

    @tp_map_id = nil

  end



  def save_last_xy_map

    @tp_x = @x

    @tp_y = @y

    @tp_map_id = $game_map.map_id

  end



  def random_transfer(min_x, max_x, min_y, max_y, map_id=$game_map.map_id)

    save_last_xy_map

    new_x = rand(max_x + 1 - min_x) + min_x

    new_y = rand(max_y + 1 - min_y) + min_y

    reserve_transfer(map_id, new_x, new_y, @direction)

  end



  def undo_random_transfer

    return unless @tp_x

    reserve_transfer(@tp_map_id, @tp_x, @tp_y, @direction)

    clear_pre_teleport_coords

  end

end