[VX Ace] Случайное перемещение эвентов

Event_Shuffle.start([список-эвентов],период,[список-тэгов])

Event_Shuffle.stop

=begin Скрипт, который случайным образом перебрасывает эвенты по карте Автор: Cerberus =end module Event_Shuffle @events = nil @shuffling = false @x = @y = nil @x_to = @y_to = nil @freq = nil @turns = nil @tags = [] def self.start(events, frequency, tags=nil) stop if @shuffling @shuffling = true @freq = frequency @turns = 1 @events = events @tags = Array.new(64) {|i| i } @tags = tags unless tags==nil end def self.turn return unless @shuffling @turns -= 1 return unless @turns==0 @turns = @freq @events.each do |i| next if $game_map.events[i].nil? @correct = false until @correct do @correct = true if $game_map.loop_horizontal? @x = rand($game_map.width) - $game_map.width / 2 else @x = rand(2 * [$game_map.events[i].x, $game_map.width - $game_map.events[i].x].min) - [$game_map.events[i].x, $game_map.width - $game_map.events[i].x].min end if $game_map.loop_vertical? @y = rand($game_map.height) - $game_map.height / 2 else @y = rand(2 * [$game_map.events[i].y, $game_map.height - $game_map.events[i].y].min) - [$game_map.events[i].y, $game_map.height - $game_map.events[i].y].min end @x_to = $game_map.events[i].x + @x @y_to = $game_map.events[i].y + @y @correct = false unless @tags.include?($game_map.terrain_tag(@x_to, @y_to)) for j in (1..$game_map.events.size) do next if $game_map.events[j].nil? correct = false if ($game_map.events[j].x == @x_to && $game_map.events[j].y == @y_to) end correct = false if ($game_player.x == @x_to && $game_player.y == @y_to) end $game_map.events[i].jump(@x, @y) end end def self.stop @events = nil @shuffling = false @x = @y = nil @x_to = @y_to = nil @freq = nil @turns = nil @tags = [] end end class Scene_Base alias event_shuffle_update update def update Event_Shuffle.turn event_shuffle_update end end class Scene_Map < Scene_Base alias event_shuffle_pre_transfer pre_transfer def pre_transfer Event_Shuffle.stop event_shuffle_pre_transfer end end