Foros de Emudesc

#==============================================================================
# ** Dynamic Maps
#==============================================================================
# Near Fantastica
# Version 3
# 02.10.05
#==============================================================================

#------------------------------------------------------------------------------
# * SDK Log Script
#------------------------------------------------------------------------------
SDK.log("Dynamic Maps", "Near Fantastica", 3, "02.10.05")

#------------------------------------------------------------------------------
# * Begin SDK Enable Test
#------------------------------------------------------------------------------
if SDK.state("Dynamic Maps") == true

module Map
#----------------------------------------------------------------------------
@items = []
@dynamic = false
@map_data = {}
@map_id = 0
@data = []
#============================================================================
class Item
#--------------------------------------------------------------------------
attr_accessor :name
attr_accessor :x
attr_accessor :y
attr_accessor :width
attr_accessor :height
attr_accessor :z
attr_accessor :id
#--------------------------------------------------------------------------
def initialize(name, id, x, y, width, height, layer = 2)
@name = name
@id = id
@x = x
@y = y
@width = width
@height = height
@z = layer - 1
end
end
#============================================================================
class Map_Data
#--------------------------------------------------------------------------
attr_accessor :map
#--------------------------------------------------------------------------
def initialize
@map = 0
end
end
#---------------------------------------------------------------------------- 
def Map.set_map(map, map_id)
@map_data[map_id] = map
end
#---------------------------------------------------------------------------- 
def Map.data(map_id)
return @map_data[map_id]
end
#----------------------------------------------------------------------------
def Map.setup_map(map_id)
@dynamic = true
@map_id = map_id
@data = []
map = load_data(sprintf("Data/Map%03d.rxdata", map_id))
list = map.events[1].pages[0].list
for item in list
break if item.parameters[0] == nil
eval(item.parameters[0]) 
end
data = []
for item in @items
data.push(item) if $game_party.item_number(item.id) != 0
end
@items = data
return
end
#----------------------------------------------------------------------------
def Map.clear
@items = []
@dynamic = false
@map_id = 0
return
end
#----------------------------------------------------------------------------
def Map.mapdata
return @data
end
#----------------------------------------------------------------------------
def Map.dynamic
return @dynamic
end
#----------------------------------------------------------------------------
def Map.items
return @items
end
#----------------------------------------------------------------------------
def Map.remove_item(item)
@items.delete(item)
end
#----------------------------------------------------------------------------
def Map.map_id
return @map_id
end
#----------------------------------------------------------------------------
def Map.draw(sz, tz, xo, yo, sx, sy, width, height)
map = load_data(sprintf("Data/Map%03d.rxdata", @map_id))
a,b = 0,0
x,y = sx,sy
width.times do |w|
height.times do |h|
$game_map.map.data[xo+w, yo+h, tz] = map.data[x+w, y+h, sz]
end
end
end
end


class Game_Map
#----------------------------------------------------------------------------
attr_accessor :map
#----------------------------------------------------------------------------
alias nf_dm_game_map_setup setup
#----------------------------------------------------------------------------
def setup(map_id)
save_map(@map_id)
if Map.data(map_id) == nil
nf_dm_game_map_setup(map_id)
else
nf_dm_game_map_setup(map_id)
load_map(map_id)
end
end
#----------------------------------------------------------------------------
def load_map(map_id)
map_data = Map.data(map_id)
@map = map_data.map
end
#----------------------------------------------------------------------------
def save_map(map_id)
return if map_id == 0
map_data = Map::Map_Data.new
map_data.map = @map
Map.set_map(map_data, map_id)
end
end

class Scene_Map
#----------------------------------------------------------------------------
alias nf_dm_scene_map_update update
#----------------------------------------------------------------------------
def update
if Input.trigger?(Input::L) and Map.dynamic
$scene = Scene_Placment.new
end
nf_dm_scene_map_update
end
end

class Scene_Placment
#--------------------------------------------------------------------------
def main
@z = 1
@item = nil
@place = false
@move = false
@remove = false
@draw = false
@cursor = Sprite.new
@cursor.x = 0
@cursor.y = 0
@cursor.z = 5000
@cursor.opacity = 160
@spriteset = Spriteset_Map.new
s1 = "Place"
s2 = "Move"
s3 = "Remove"
s4 = "Exit"
@command_window = Window_Command.new(192, [s1, s2, s3, s4])
@command_window.back_opacity = 160
@command_window.height = 480
@command_window.disable_item(0) if Map.items == []
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@spriteset.dispose
@command_window.dispose
end
#--------------------------------------------------------------------------
def update
@command_window.update
@spriteset.update
if @draw == true
cursor
elsif @place == true
placement
elsif @move == true
movement
elsif @remove == true
removement
elsif Input.trigger?(Input::C)
case @command_window.index
when 0
return if Map.items == []
$game_system.se_play($data_system.decision_se)
@place = true
@command_window.visible = false
data = []
for item in Map.items
data.push(item.name)
end
@placement_window = Window_Command.new(192, data)
@placement_window.back_opacity = 160
@placement_window.height = 480
when 1
return if Map.mapdata == []
$game_system.se_play($data_system.decision_se)
@move = true
@command_window.visible = false
data = []
for item in Map.mapdata
data.push(item.name)
end
@moveement_window = Window_Command.new(192, data)
@moveement_window.back_opacity = 160
@moveement_window.height = 480
when 2
$game_system.se_play($data_system.decision_se)
@remove = true
@command_window.visible = false
data = []
for item in Map.mapdata
data.push(item.name)
end
@removeement_window = Window_Command.new(192, data)
@removeement_window.back_opacity = 160
@removeement_window.height = 480
when 3
$game_system.se_play($data_system.decision_se)
$scene = Scene_Map.new
end
elsif Input.trigger?(Input::B)
$game_system.se_play($data_system.decision_se)
$scene = Scene_Map.new
end
end
#--------------------------------------------------------------------------
def cursor
if @place == true
@cursor.y += 32 if Input.trigger?(Input::DOWN)
@cursor.x -= 32 if Input.trigger?(Input::LEFT)
@cursor.x += 32 if Input.trigger?(Input::RIGHT)
@cursor.y -= 32 if Input.trigger?(Input::UP)
if Input.trigger?(Input::L)
@z = 1
color = Color.new(0, 255, 0) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
end
if Input.trigger?(Input::R)
@z = 2
color = Color.new(0, 0, 255) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
end
@cursor.update
if Input.trigger?(Input::B)
@draw = false
@cursor.bitmap.dispose
@placement_window.visible = true
end
if Input.trigger?(Input::C)
x = @cursor.x/32
y = @cursor.y /32
Map.draw(@item.z, @z, x, y, @item.x, @item.y, @item.width, @item.height)
$game_system.se_play($data_system.decision_se)
$game_party.lose_item(@item.id, 1)
Map.remove_item(@item) if $game_party.item_number(@item.id) == 0
item = Map::Item.new(@item.name, @item.id, x, y, @item.width, @item.height, @z+1)
Map.mapdata.push(item)
@cursor.bitmap.dispose
$scene = Scene_Map.new
end
elsif @move == true
@cursor.y += 32 if Input.trigger?(Input::DOWN)
@cursor.x -= 32 if Input.trigger?(Input::LEFT)
@cursor.x += 32 if Input.trigger?(Input::RIGHT)
@cursor.y -= 32 if Input.trigger?(Input::UP)
if Input.trigger?(Input::L)
@z = 1
color = Color.new(0, 255, 0) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
end
if Input.trigger?(Input::R)
@z = 2
color = Color.new(0, 0, 255) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
end
@cursor.update
if Input.trigger?(Input::C)
data = nil
for item in Map.items
if item.name == @item.name
data = item
break
end 
end
x = @cursor.x/32
y = @cursor.y /32
Map.draw(data.z, @z, x, y, data.x, data.y, data.width, data.height)
$game_system.se_play($data_system.decision_se)
$game_party.lose_item(data.id, 1)
Map.remove_item(data) if $game_party.item_number(data.id) == 0
Map.mapdata.delete(@item)
item = Map::Item.new(data.name, data.id, x, y, data.width, data.height, @z)
Map.mapdata.push(item)
@cursor.bitmap.dispose
$scene = Scene_Map.new
end
if Input.trigger?(Input::B)
@draw = false
@cursor.bitmap.dispose
@placement_window.visible = true
end
elsif @remove == true
if Input.trigger?(Input::C)
@cursor.bitmap.dispose
$scene = Scene_Map.new
end
if Input.trigger?(Input::B)
@cursor.bitmap.dispose
$scene = Scene_Map.new
end
end
end
#--------------------------------------------------------------------------
def placement
@placement_window.update
if Input.trigger?(Input::B)
@place = false
@placement_window.dispose
@command_window.visible = true
elsif Input.trigger?(Input::C)
@draw = true
@placement_window.visible = false
@item = Map.items[@placement_window.index]
@cursor.bitmap = Bitmap.new(@item.width * 32, @item.height * 32)
color = Color.new(0, 255, 0) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
@z = 1
end
end
#--------------------------------------------------------------------------
def movement
@moveement_window.update
if Input.trigger?(Input::B)
@move = false
@moveement_window.dispose
@command_window.visible = true
elsif Input.trigger?(Input::C)
@draw = true
@moveement_window.visible = false
@item = Map.mapdata[@moveement_window.index]
@z = @item.z
@cursor.bitmap = Bitmap.new(@item.width * 32, @item.height * 32)
if @z == 1
color = Color.new(0, 255, 0) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
elsif @z == 2
color = Color.new(0, 0, 255) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
end
@cursor.x = @item.x*32
@cursor.y = @item.y*32
$game_party.gain_item(@item.id, 1)
x,y = @item.x,@item.y
@item.width.times do |w|
@item.height.times do |h|
$game_map.map.data[x+w, y+h, @z] = 0
end
end
end
end
#--------------------------------------------------------------------------
def removement
@removeement_window.update
if Input.trigger?(Input::B)
@remove = false
@removeement_window.dispose
@command_window.visible = true
elsif Input.trigger?(Input::C)
@draw = true
@removeement_window.visible = false
@item = Map.mapdata[@removeement_window.index]
@z = @item.z
@cursor.bitmap = Bitmap.new(@item.width * 32, @item.height * 32)
color = Color.new(255, 0, 0) 
@cursor.bitmap.fill_rect(0, 0, @item.width * 32, @item.height * 32, color) 
@cursor.x = @item.x*32
@cursor.y = @item.y*32
$game_party.gain_item(@item.id, 1)
x,y = @item.x,@item.y
@item.width.times do |w|
@item.height.times do |h|
$game_map.map.data[x+w, y+h, @z] = 0
end
end
end
end
end

#------------------------------------------------------------------------------
# * End SDK Enable Test
#------------------------------------------------------------------------------
end

#--------------------------------------------------------------------------
#Para moverse abajo a la izquierda
#--------------------------------------------------------------------------
def move_down_left(turn_ok = true)
if passable?(@x-1, @y+1) # 通行可能
turn_down
@y = $game_map.round_y(@y+1)
@real_y = (@y-1)*256
@x = $game_map.round_x(@x-1)
@real_x = (@x+1)*256
increase_steps
@move_failed = false
else # 通行不可能
turn_down if turn_ok
check_event_trigger_touch(@x, @y+1) # 接触イベントの起動判定
@move_failed = true
end
end
#--------------------------------------------------------------------------
#Para moverse arriba a la izquierda
#--------------------------------------------------------------------------
def move_up_left(turn_ok = true)
if passable?(@x-1, @y-1) # 通行可能
turn_up
@y = $game_map.round_y(@y-1)
@real_y = (@y+1)*256
@x = $game_map.round_x(@x-1)
@real_x = (@x+1)*256
increase_steps
@move_failed = false
else # 通行不可能
turn_up if turn_ok
check_event_trigger_touch(@x, @y+1) # 接触イベントの起動判定
@move_failed = true
end
end
#--------------------------------------------------------------------------
#Para moverse abajo a la derecha
#--------------------------------------------------------------------------
def move_down_right(turn_ok = true)
if passable?(@x+1, @y+1) # 通行可能
turn_down
@y = $game_map.round_y(@y+1)
@real_y = (@y-1)*256
@x = $game_map.round_x(@x+1)
@real_x = (@x-1)*256
increase_steps
@move_failed = false
else # 通行不可能
turn_down if turn_ok
check_event_trigger_touch(@x, @y+1) # 接触イベントの起動判定
@move_failed = true
end
end
#--------------------------------------------------------------------------
#Para moverse arriba a la derecha
#--------------------------------------------------------------------------
def move_up_right(turn_ok = true)
if passable?(@x+1, @y-1) # 通行可能
turn_up
@y = $game_map.round_y(@y-1)
@real_y = (@y+1)*256
@x = $game_map.round_x(@x+1)
@real_x = (@x-1)*256
increase_steps
@move_failed = false
else # 通行不可能
turn_up if turn_ok
check_event_trigger_touch(@x, @y+1) # 接触イベントの起動判定
@move_failed = true
end
end

def move_by_input
return unless movable?
return if $game_map.interpreter.running?
case Input.dir8
when 1 
move_down_left 
when 2 
move_down
when 3 
move_down_right
when 4 
move_left
when 6 
move_right
when 7 
move_up_left 
when 8 
move_up
when 9 
move_up_right
end
end