###################### Breadlords Elavation Passability ########################
## This script solves the problem of how to stop the player stepping from one ##
## tile to the next when you've mapped them to look like there a few tiles ##
## away hieght wise. To set up the different areas of 'elevation', while ##
## making the map in the editor, make an area named level:?, where ? is the ##
## elevation level you want it to have, and have the area cover the parts you ##
## want to be 'elevated'. You can have as many areas as you want with what - ##
## ever level of 'elavation' you want. Note : You can only have POSITIVE ##
## levels of elavation. Note : All parts of the map not in an area with level ##
## :whatever are counted as having a level of 0. To make a player be able to ##
## cross from 1 elavation level to an other use $game_player.level = whatever ##
## were whatever is whatever elavation level you want the player to go on, ##
## this must be put in an event directly before the place were the eleavation ##
## is what you've just set the player to go on, so say if |1| is an area with ##
## level 1 elavation and |2| is an area with level 2 elavation and |E| is an ##
## event with the command $game_player.level = 2 you would put the event like ##
## this : |1||E||2|. To set an events elavation level use $game_map.events[id]##
## .level = whatever, were id is the events id and whatever is the elavation ##
## you want it to have. ##
################################################################################

##### DO NOT EDIT # DO NOT EDIT # DO NOT EDIT # DO NOT EDIT # DO NOT EDIT #####

class Game_Character
alias init initialize
attr_accessor :level

def initialize
init
@level = 0
end

def in_area?(area)
return false if @area == nil
return false if $game_map.map_id != area.map_id
return false if @x < area.rect.x
return false if @y < area.rect.y
return false if @x >= area.rect.x + area.rect.width
return false if @y >= area.rect.y + area.rect.height
@area = area
return true
end

def in_areaxy?(area,x,y)
return false if area == nil
return false if $game_map.map_id != area.map_id
return false if x < area.rect.x
return false if y < area.rect.y
return false if x >= area.rect.x + area.rect.width
return false if y >= area.rect.y + area.rect.height
return true
end

def map_passable?(x, y)
a = nil
b = nil
for area in $data_areas.values
if in_area?(area)
c = area.name
c.split(/[\r\n]+/).each do |line|
if line.split(/[:]/)[0] == 'level'
data = line.split(/[:]/)[1]
a = data.to_i
end
end
end
if in_areaxy?(area,x,y)
c = area.name
c.split(/[\r\n]+/).each do |line|
if line.split(/[:]/)[0] == 'level'
data = line.split(/[:]/)[1]
b = data.to_i
end
end
end
end
if a != nil and b != nil
if @level != b and a != b
return false
end
@level = b
elsif a == nil and b != nil
if @level == 0
return false
end
@level = 0
elsif b == nil and a != nil
if @level != 0
return false
end
@level = 0
else
@level = 0
end
return $game_map.passable?(x, y)
end

end

class Game_Player
attr_accessor :level

def in_area?(area)
return false if area == nil
return false if $game_map.map_id != area.map_id
return false if @x < area.rect.x
return false if @y < area.rect.y
return false if @x >= area.rect.x + area.rect.width
return false if @y >= area.rect.y + area.rect.height
@area = area
return true
end

def map_passable?(x, y)
case @vehicle_type
when 0 # Boat
return $game_map.boat_passable?(x, y)
when 1 # Ship
return $game_map.ship_passable?(x, y)
when 2 # Airship
return true
else # Walking
a = nil
b = nil
for area in $data_areas.values
if in_area?(area)
c = area.name
c.split(/[\r\n]+/).each do |line|
if line.split(/[:]/)[0] == 'level'
data = line.split(/[:]/)[1]
a = data.to_i
end
end
end
if in_areaxy?(area,x,y)
c = area.name
c.split(/[\r\n]+/).each do |line|
if line.split(/[:]/)[0] == 'level'
data = line.split(/[:]/)[1]
b = data.to_i
end
end
end
end
if a != nil and b != nil
if @level != b and a != b
return false
end
@level = b
elsif a == nil and b != nil
if @level == 0
return false
end
@level = 0
elsif b == nil and a != nil
if @level != 0
return false
end
@level = 0
else
@level = 0
end
return $game_map.passable?(x, y)
end
end

end

#==================================================
# ** Onidsouza Jump System
#--------------------------------------------------
# Autor // Author : Onidsouza
# Data // Date : 17 de Maio de 2009 // 5/17/2009
# Versão // Version : 1.4
#==================================================

module OJS

OnOffSwitch = 1 # Switch que desliga ou liga os pulos
# Switch that turns on and off the jumps

Input = Input::C # Constante do módulo Input. Control é o default
# Input module constant. Control is the default

Sound = true # Tocar som quando não se pode pular
# Play Sound when can't jump

Long = 3 # Distância que o jogador pode pular, em tiles
# How long the player can jump, in tiles.

UseVariable = false # Jump length is controlled by a variable
# Distância do pulo é controlada por uma variavél

VariableID = 1 #Id da Variável
# Variavle ID.

Cooldown = 30 # Tempo de cooldown do pulo, em frames
# Jump cooldown time, in frames

end

class Game_Player

alias ojsinitialize initialize
attr_accessor :jump_cooldown

def height_pass(x,y,direction)
b = height
c = heightxy(x,y)
if b != c
return true
else
return true
end
end

def height
a = 0
for area in $data_areas.values
if in_area?(area)
c = area.name
c.split(/[\r\n]+/).each do |line|
if line.split(/[:]/)[0] == 'level'
data = line.split(/[:]/)[1]
a = data.to_i
end
end
end
return a
end
end

def heightxy(x,y)
a = 0
for area in $data_areas.values
if in_areaxy?(area,x,y)
c = area.name
c.split(/[\r\n]+/).each do |line|
if line.split(/[:]/)[0] == 'level'
data = line.split(/[:]/)[1]
a = data.to_i
end
end
end
return a
end
end

def initialize
ojsinitialize
@jump_cooldown = OJS::Cooldown
end

def jump_direction
direcao = []
if OJS::UseVariable
long = $game_variables[OJS::VariableID]
else
long = OJS::Long
end
case @direction
when 2 # Para Trás / Back
direcao[0] = 0; direcao[1] = 1
when 4 # Esquerda / Left
direcao[0] = -1; direcao[1] = 0
when 6 # Direita / Rigth
direcao[0] = 1; direcao[1] = 0
when 8 # Frente / Up
direcao[0] = 0; direcao[1] = -1
end
direcao[0] = direcao[0] * long; direcao[1] = direcao[1] * long
return direcao
end

def jump_higth_pass?
dire = jump_direction
to_verify = []
case @direction
when 2
to_verify = [@x, @y]
when 4
to_verify = [@x - 1, @y - 1]
when 6
to_verify = [@x + 1, @y - 1]
when 8
to_verify = [@x, @y - 2]
end

id = $game_map.data[to_verify[0], to_verify[1], 2]
pass = $game_map.passages[id]
if pass == 22
return false
end

return true
end

def event_passable?(x, y)
for event in $game_map.events_xy(x, y)
pass = event.page.priority_type
return false if pass == 1
end
return true
end

def jump_foward
if @jump_cooldown == 30
@jump_cooldown = 0
direcao = jump_direction
jump(direcao[0], direcao[1])
end
end

end

class Scene_Map

alias ojsupdate update

def update
ojsupdate
unless $game_message.visible
update_jump_player
end
unless $game_player.jump_cooldown == 30
$game_player.jump_cooldown += 1
end
end

def update_jump_player
player = $game_player
direct = player.jump_direction
x = player.x + direct[0]
y = player.y + direct[1]
if $game_switches[OJS::OnOffSwitch] == true
if player.map_passable?(x, y) && player.jump_higth_pass? && player.event_passable?(x, y) && player.height_pass(x,y,direct)
if Input.trigger?(OJS::Input)
$game_player.jump_foward
$game_party.steps += OJS::Long
end
else
player.level += 1
if player.map_passable?(x, y) && player.jump_higth_pass? && player.event_passable?(x, y) && player.height_pass(x,y,direct)
if Input.trigger?(OJS::Input)
$game_player.jump_foward
$game_party.steps += OJS::Long
end
else
player.level -= 2
if player.map_passable?(x, y) && player.jump_higth_pass? && player.event_passable?(x, y) && player.height_pass(x,y,direct)
if Input.trigger?(OJS::Input)
$game_player.jump_foward
$game_party.steps += OJS::Long
end
elsif Input.trigger?(OJS::Input)
if OJS::Sound == true
Sound.play_buzzer
end
end
end
end
player.level += 1
end
end

end

class Game_Party

attr_accessor :steps

end

class Game_Map

attr_reader :map

end

class Game_Event < Game_Character

attr_reader :event
attr_reader :page

end