Fog of War
#1
Hello i need help with this script -  Fog of War

Anyone can help me add function to reveal map via events with specific ids?
Reply }
#2
I don't know.  I've used it in the past...

And wow!  Revisiting it, I was a bit  Dizzy ...   Its demo is so old, it still had the original Japanese scripts within.  A 2005 script, it isn't up to what was later considered 'standard' coding.

NOT to say it is sloppy, but it is hard to read, doesn't have the game classes arranged within properly defined orders, doesn't have the configuration variables within a module...

I'm looking at it... kinda... to see about (at least) proper formatting.

I will say that the use of ALIAS is correct, the coder using his name, the name of the script, and the name of the method within.  Its possible that he set the standard for alias renaming within the RMXP SDK project since he was a member of that team.

As to your request, I would assume that it would be that you want certain events (heroic NPCs) to reveal the map area as if they were the player.  I am unsure if it can be done.   BUT... I need to examine this... thing!!!!


Attached Files Thumbnail(s)
   
Up is down, left is right and sideways is straight ahead. - Cord "Circle of Iron", 1978 (written by Bruce Lee and James Coburn... really...)

[Image: QrnbKlx.jpg]
[Image: sGz1ErF.png]    [Image: liM4ikn.png]    [Image: fdzKgZA.png]    [Image: sj0H81z.png]
[Image: QL7oRau.png]    [Image: uSqjY09.png]    [Image: GAA3qE9.png]    [Image: 2Hmnx1G.png]    [Image: BwtNdKw.png%5B]
  Above are clickable links
Reply }
#3
EDIT 1:

Well, I said I was considering 'proper formatting'... It sure helped.  Consider THIS:


  #--------------------------------------------------------------------------
  # * Get map name
  #--------------------------------------------------------------------------
  def map_name
    return load_data('Data/MapInfos.rxdata')[@map_id].name
  end
  #--------------------------------------------------------------------------
  # * Frame Update: What tiles have been discovered or not currently covered
  #--------------------------------------------------------------------------
  def update_fow_grid
    px = $game_player.x
    py = $game_player.y
    x = px - @fow_range
    start_y = py
    y = start_y
    count = 1
    mod = 1


I think I kinda found WHERE to perform a simple bit of 'surgery' to the original script.  The below change works:


  #--------------------------------------------------------------------------
  # * Frame Update: What tiles have been discovered or not currently covered
  #    px : (Optional) x coordinate for target event revealing map
  #    py : (Optional) y coordinate for target event revealing map
  #--------------------------------------------------------------------------
  def update_fow_grid(px=$game_player.x, py=$game_player.y)
   
    # Define x/y update coordinates based on passed x/y values
    x       = px - @fow_range
    start_y = py
    y       = start_y
    count   = 1
    mod     = 1


AND... it actually works.

By doing so, I can insert x/y coordinates into the  command to reveal 'areas' outside of the player's coordinates, assuming I also pass a couple other commands too:

[Image: attachment.php?aid=2731]

This was the result, the events around me vanished while the events in the 'circled' dynamic area were visible.  Fixed by re-executing the commands with the focus on the player.

Current WIP demo:

.zip   Fog of War Demo - Copy.zip (Size: 936.37 KB / Downloads: 1)
Up is down, left is right and sideways is straight ahead. - Cord "Circle of Iron", 1978 (written by Bruce Lee and James Coburn... really...)

[Image: QrnbKlx.jpg]
[Image: sGz1ErF.png]    [Image: liM4ikn.png]    [Image: fdzKgZA.png]    [Image: sj0H81z.png]
[Image: QL7oRau.png]    [Image: uSqjY09.png]    [Image: GAA3qE9.png]    [Image: 2Hmnx1G.png]    [Image: BwtNdKw.png%5B]
  Above are clickable links
Reply }
#4
I've updated this script a bit and moved all the configuration options to the module, I'll make it available as soon as I'm on the computer. What you've shown is some progress. Although we still need to think about how to define events in the module table that can explore the map with the player but independently of him and assign them their own visibility radius. I haven't tested your demo yet so I don't know if this is exactly what I was thinking.

-------------------------------------------

Ou I see Your code is very very clearly than what i have done with original. But...i have one more option.
In my code You can set options of the map in script not in map name. This is helpful when You use location script and he download map name.

Code:
#==============================================================================
# ** Fog of War
#------------------------------------------------------------------------------
# Version 2.0, 2005-11-21
# by Wachunga
#==============================================================================
=begin
0.8 - original release
0.85
   - added colour parameter to map names
   - fixed bug where map grids overlapped
0.9
   - switched over to a tilemap (from a sprite)
   - now more compatible with minimap scripts (but they'll have to take
   extra tilemap into account)
1.0
   - switched over to an autotile instead of using a custom tileset
     * edges looks nicer, but gradual fading had to be removed
     * colour parameter no longer possible (set by autotile)
   - move event (including jumping and speed changes) bug fixed
   - teleportation bug fixed
   - some optimization
   - made compatible with Cogwheel's Pixel Movement script
     (see http://www.rmxp.net/forums/index.php?showtopic=24716 for details)
1.01
   - fixed bug when teleporting from map without fow to a map with fow
2.0
   - now two independent types of fog of war:
      * static, which never returns (i.e. typical RTS "terrain" fog)
      * dynamic, which returns once out of visual range and can optionally
        hide map events (i.e. typical RTS "unit" fog)
   - now using a compact version of Near's Dynamic Maps script
   - fog of war is now above weather and normal fog
   - added support for much larger visual ranges (0 - 9)
   - added support for option to set up fog of war from a call script event
     command
   - optimization

A map specified as having "fog of war" (fow) has tiles that are (fully or
partially) obscured until the player gets within visual range. The amount of
fow to disappear as the player moves depends on the visual range specified.
Gamers with experience playing Real Time Strategy games like Warcraft, Age of
Empires, etc. should be quite familiar with the concept.

This script supports two kinds of fog of war: static and dynamic.

Static fow is the kind that typically hides terrain in RTS games. It covers
the entire map until the player explores the area, discovering the underlying
terrain. Once static fow disappears from an area of the map, it stays gone
indefinitely (even if loading a saved game, leaving the map and returning
later, going to the menu, etc).

Dynamic fow is identical to the static kind except that it doesn't stay gone
forever: as soon as the player leaves visual range of an explored tile,
dynamic fow covers it again. This kind of fow is typically used to hide enemy
units in RTS games.

SETUP:

There's no need to add the autotile via the database. Just place the
file in the autotile folder, import it, and change the FOW_AT_NAME constant
to the appropriate filename. To change the colour of the fog of war you must
create a new autotile. (However, opacity is customizable by constants below.)

To indicate a map is to have either (or both) of these kinds of fog of war,
include <fow> in its name (via "Map properties"). To enable both static and
dynamic fow, you can either add nothing more (since it's the default), or
add <s><d> (or <d><s>). To enable one or the other, just add the appropriate
one (e.g. <s> for static, <d> for dynamic). You may also optionally specify a
visual range between 0 and 9 in the map name (e.g. <5>), noting that 3 is
the default. Here are some example map names:
"your-map-name <fow><2>" (defaults to static&dynamic on; range specified as 2)
"your-map-name <fow><s>" (only static fow is on; range defaults to 3)
"your-map-name <fow><d><8>" (only dynamic fow is on; range specified as 8)

Alternatively, fog of war can be setup via a call script event command using
the fog_of_war global method. Detailed instructions are just before
the method itself.

Finally, an edited version of Near Fantastica's Dynamic Maps script needs
to be below this one. You may find it at the following URL:
http://www.rmxp.net/forums/index.php?showtopic=24716

The ranges work as follows:
range = 0 reveals just the square on which the player stands

range = 1 is the same as range 0 plus four adjacent tiles
i.e.   @
       @P@
        @

range = 2 is the same as range 1 plus eight additional tiles
  i.e.  @
       @@@
      @@P@@
       @@@
        @

range = 3 (default) is the same as range 2 plus twelve additional tiles
  i.e.  @
       @@@
      @@@@@
     @@@P@@@
      @@@@@
       @@@
        @

etc.

Note: I've taken great pains to optimize this script as much as possible
(which unfortunately reduces the readability of the code). There shouldn't be
much visible effect on frame rate.

=end

module FogOfWarSettings 
  #------------------------------------------------------------------------------ 
  # filename of the fog of war autotile (used for both):
  FOW_AT_NAME = 'fow_default'  # Użyj odpowiedniego indeksu autotile zamiast nazwy
  # the opacity of static (non-returning) and dynamic (returning) fog of war
  # (value between 0 and 255)
  FOW_STATIC_OPACITY = 255
  FOW_DYNAMIC_OPACITY = 0
  # whether or not dynamic fow hides map events
  FOW_DYNAMIC_HIDES_EVENTS = false
  # default range of fog of war (if not specified in map name)
  FOW_RANGE_DEFAULT = 3
  #------------------------------------------------------------------------------ 
  # internal constants - no need to edit
  FOW = 0b00
  REVEALED = 0b01
  # tiles with no surrounding fog are flagged "SKIP" for efficiency
  SKIP = 0b10
  #------------------------------------------------------------------------------
 
  MAP_OPTIONS = [
    { :id => 1, :enabled => false, :visibility_radius => 3 },
    { :id => 2, :enabled => false },
    { :id => 3, :enabled => true, :visibility_radius => 5 },
    { :id => 5, :enabled => true, :visibility_radius => 5 }
  ]

  # Method to retrieve settings for a given map
  def self.settings_for_map(map_id)
    option = MAP_OPTIONS.find { |map| map[:id] == map_id }
    option || { :enabled => false }
  end
end

def fog_of_war(static, dynamic, range = FOW_RANGE_DEFAULT, reset = false)
  if static == nil or dynamic == nil
    print 'Two true/false parameters are required in call to fog_of_war.'
    exit
  elsif range < 0 or range > 9
    print 'Invalid range in call to fog_of_war (only 0-9 is valid).'
    exit
  end
  $game_map.fow_static = static
  $game_map.fow_dynamic = dynamic
  $game_map.fow_range = range
  if reset
    $game_map.fow_grid = nil
  end
  if not $game_map.fow_static and not $game_map.fow_dynamic
    $game_map.fow = false
    $scene.spriteset.fow_tilemap.dispose
    # set all events back to visible
    for i in $game_map.events.keys
      $game_map.events[i].transparent = false
    end
  else
    # static or dynamic fow (or both) are on
    $game_map.fow = true
    if $game_map.fow_grid == nil # only if not already defined
      $game_map.fow_grid = Table.new($game_map.width, $game_map.height, 2)
      for i in 0...$game_map.fow_grid.xsize
        for j in 0...$game_map.fow_grid.ysize
          $game_map.fow_grid[i,j,1] = $game_map.fow_grid[i,j,0] = FogOfWarSettings::FOW
        end
      end
    end
    if $game_map.fow_dynamic
      $game_map.fow_revealed = $game_map.fow_last_revealed = []
    end
    $scene.spriteset.initialize_fow
  end
end

class Game_Map
  attr_accessor :fow
  attr_accessor :fow_static
  attr_accessor :fow_dynamic
  attr_accessor :fow_grid
  attr_accessor :fow_range
  attr_accessor :fow_revealed
  attr_accessor :fow_last_revealed

  alias wachunga_fow_gm_setup setup
  def setup(map_id)
    wachunga_fow_gm_setup(map_id)
    @fow = false
    @fow_dynamic = false
    @fow_static = false
    @fow_grid = nil
    @fow_range = nil
    # Use settings from FogOfWarSettings module
    settings = FogOfWarSettings.settings_for_map(map_id)
    @fow = settings[:enabled]
    @fow_static = true if @fow # default to true if fog of war is enabled
    @fow_dynamic = true if @fow
    @fow_range = settings[:visibility_radius] if settings[:visibility_radius]

    if @fow
      if @fow_grid == nil # only if not already defined
        @fow_grid = Table.new(@map.width, @map.height, 2)
        for i in 0...@fow_grid.xsize
          for j in 0...@fow_grid.ysize
            @fow_grid[i,j,1] = @fow_grid[i,j,0] = FogOfWarSettings::FOW
          end
        end
      end
      @fow_revealed = @fow_last_revealed = [] if @fow_dynamic
    end
  end

  def map_name
    return load_data('Data/MapInfos.rxdata')[@map_id].name
  end

  def update_fow_grid
    px = $game_player.x
    py = $game_player.y
    x = px - @fow_range
    start_y = py
    y = start_y
    count = 1
    mod = 1
    # loop through all tiles in visible range
    until x == (px + @fow_range + 1)
      i = count
      while i > 0
        if valid?(x,y)
          if @fow_static
            @fow_grid[x,y,1] |= FogOfWarSettings::REVEALED
          end
          if @fow_dynamic
            @fow_grid[x,y,0] = FogOfWarSettings::REVEALED if @fow_grid[x,y,0] == FogOfWarSettings::FOW
            @fow_revealed.push([x,y])
          end
        end
        y -= 1
        i -= 1
      end
      if x == px
        mod = -1
      end
      x += 1
      start_y += 1 * mod
      y = start_y
      count += 2 * mod
    end
    if @fow_dynamic
      if @fow_last_revealed != []
        # make dynamic fog return once out of visual range
        for t in @fow_last_revealed - @fow_revealed
          @fow_grid[t[0],t[1],0] = FogOfWarSettings::FOW
        end
      end
      @fow_last_revealed = @fow_revealed
      @fow_revealed = []
    end
  end
end

#------------------------------------------------------------------------------ 

class Spriteset_Map

attr_reader :fow_tilemap
 
alias wachunga_fow_ssm_initialize initialize
def initialize
   initialize_fow if $game_map.fow
   wachunga_fow_ssm_initialize
end

=begin
Initializes fog of war.
=end
def initialize_fow
   @fow_tilemap = Tilemap.new     
   @fow_tilemap.map_data = Table.new($game_map.width, $game_map.height, 3)
   @fow_tilemap.priorities = Table.new(144)
   @fow_autotiles = Hash.new(0)
   j = 48 # starting autotile index
   for i in Autotile_Keys
     @fow_autotiles[i] = j
     j += 1
   end
   # add duplicates
   for i in Duplicate_Keys.keys
     @fow_autotiles[i] = @fow_autotiles[Duplicate_Keys[i]]
   end     
   if $game_map.fow_static
     for m in 0...$game_map.fow_grid.xsize
       for n in 0...$game_map.fow_grid.ysize
         # reset SKIP flag
         $game_map.fow_grid[m,n,1] &= ~FogOfWarSettings::SKIP
       end
     end
     at = Bitmap.new(96,128)
     at.blt(0,0,RPG::Cache.autotile(FogOfWarSettings::FOW_AT_NAME),\
            Rect.new(0,0,96,128),FogOfWarSettings::FOW_STATIC_OPACITY)       
     @fow_tilemap.autotiles[0] = at
     # set everything to fog
     for x in 0...$game_map.width
       for y in 0...$game_map.height
         @fow_tilemap.map_data[x,y,2] = 48 # fog
       end
     end
     # set to highest priority
     for i in 48...96
       @fow_tilemap.priorities[i] = 5
     end
   end
   if $game_map.fow_dynamic
     bm = Bitmap.new(96,128)
     bm.blt(0,0,RPG::Cache.autotile(FogOfWarSettings::FOW_AT_NAME),\
            Rect.new(0,0,96,128),FogOfWarSettings::FOW_DYNAMIC_OPACITY)
     @fow_tilemap.autotiles[1] = bm
     # unlike tilemap for static, set everything to clear
     for x in 0...$game_map.width
       for y in 0...$game_map.height
         @fow_tilemap.map_data[x,y,1] = 0
       end
     end
     # set to highest priority
     for i in 96...144
       @fow_tilemap.priorities[i] = 5
     end
   end
   $game_map.update_fow_grid
   update_fow_tilemap
   update_event_transparency if $game_map.fow_dynamic
end


=begin
Updates the (static and/or dynamic) fog of war tilemap based on the map's
underlying grid.
=end
def update_fow_tilemap
   if $game_map.fow_static
     checked = Table.new($game_map.width,$game_map.height)
     for j in 0...$game_map.width
       for k in 0...$game_map.height
         checked[j,k] = 0
       end
     end
   end
   dx = ($game_map.display_x/128).round
   dy = ($game_map.display_y/128).round
   # to increase performance, only process fow currently on the screen
   for x in dx-1 .. dx+21
     for y in dy-1 .. dy+16
       # check boundaries
       if not $game_map.valid?(x,y) then next end
       if $game_map.fow_dynamic
         if $game_map.fow_grid[x,y,0] == FogOfWarSettings::REVEALED
           @fow_tilemap.map_data[x,y,1] = 0 if @fow_tilemap.map_data[x,y,1]!=0
         else
           @fow_tilemap.map_data[x,y,1]=96 if @fow_tilemap.map_data[x,y,1]!=96
         end         
       end           
       if $game_map.fow_static
         if $game_map.fow_grid[x,y,1] == FogOfWarSettings::REVEALED # (but not SKIP)
           others = false;
           @fow_tilemap.map_data[x,y,2] = 0 if @fow_tilemap.map_data[x,y,2]!=0
           for i in x-1 .. x+1
             for j in y-1 .. y+1
               # check new boundaries
               if not $game_map.valid?(i,j) then next end
               if $game_map.fow_grid[i,j,1] == FogOfWarSettings::FOW
                 others = true # can't flag as SKIP because there's nearby fog
                 if checked[i,j] == 0
                   checked[i,j] = 1
                   # only fill if not already revealed
                   if @fow_tilemap.map_data[i,j,2] != 0
                     adj = check_adjacent(i,j,1,$game_map.fow_grid,FogOfWarSettings::REVEALED)
                     if adj != nil
                       @fow_tilemap.map_data[i,j,2] =
                         eval '@fow_autotiles[adj.to_i]'
                     end
                   end
                 end
               end
             end
           end
           if not others
             # no adjacent static fog found, so flag tile to avoid reprocessing
             $game_map.fow_grid[x,y,1] |= FogOfWarSettings::SKIP
           end
         end   
       end # fow_static
     end # for
   end # for
   if $game_map.fow_dynamic
     if $game_map.fow_static
       for x in dx-1 .. dx+21
         for y in dy-1 .. dy+16
           # erase dynamic fow if static fow is above it anyway
           if @fow_tilemap.map_data[x,y,2] == 48
             @fow_tilemap.map_data[x,y,1]=0 if @fow_tilemap.map_data[x,y,1]!=0
           end
         end
       end
     end
     # calculate autotiles for dynamic fow (around player)
     px = $game_player.x
     py = $game_player.y
     tiles = []
     x = px - ($game_map.fow_range+1)
     y_top = py
     mod_top = -1
     y_bot = py
     mod_bot = 1
     until x == px + ($game_map.fow_range+2)
       tiles.push([x,y_top]) if $game_map.valid?(x,y_top)
       tiles.push([x,y_bot]) if $game_map.valid?(x,y_bot)
       if x == px
         mod_top = 1
         mod_bot = -1
         x+=1
         next
       end
       y_top+=1*mod_top
       y_bot+=1*mod_bot
       tiles.push([x,y_top]) if $game_map.valid?(x,y_top)
       tiles.push([x,y_bot]) if $game_map.valid?(x,y_bot)
       x+=1       
     end
     tiles.uniq.each do |t|
       adj = check_adjacent(t[0],t[1],0,$game_map.fow_grid,FogOfWarSettings::REVEALED)
       if adj != nil
         @fow_tilemap.map_data[t[0],t[1],1] =
           (eval '@fow_autotiles[adj.to_i]') + 48
       end
     end
   end
end

=begin
Update event transparency based on dynamic fog.

Note that if a specific character is passed as a parameter then only
its transparency is updated; otherwise, all events are processed.
=end
def update_event_transparency(pChar = nil)
   return if not FogOfWarSettings::FOW_DYNAMIC_HIDES_EVENTS
   if pChar == nil
     # check them all
     for i in $game_map.events.keys
       event = $game_map.events[i]
       if $game_map.fow_grid[event.x,event.y,0] == FogOfWarSettings::FOW
         event.transparent = true
       else
         event.transparent = false
       end
     end
   else
     # just check the one
     pChar.transparent=($game_map.fow_grid[pChar.x,pChar.y,0]==FogOfWarSettings::FOW) ?true:false
   end
end

# create a list of tiles adjacent to a specific tile that don't match a flag
# (used for calculating tiles within an autotile)
def check_adjacent(i,j,k,grid,flag)
   return if not $game_map.valid?(i,j) or grid == nil or flag == nil
   adj = ''
   if (i == 0)
     adj << '147'
   else
     if (j == 0) then adj << '1'
     else
       if (grid[i-1,j-1,k] != flag) then adj << '1' end
     end
     if (grid[i-1,j,k] != flag) then adj << '4' end
     if (j == $game_map.height-1) then adj << '7'
     else
       if (grid[i-1,j+1,k] != flag) then adj << '7' end
     end
   end
   if (i == $game_map.width-1)
     adj << '369'
   else
     if (j == 0) then adj << '3'
     else
       if (grid[i+1,j-1,k] != flag) then adj << '3' end
     end
     if (grid[i+1,j,k] != flag) then adj << '6' end
     if (j == $game_map.height-1) then adj << '9'
     else
       if (grid[i+1,j+1,k] != flag) then adj << '9' end
     end
   end
   if (j == 0)
     adj << '2'
   else
     if (grid[i,j-1,k] != flag) then adj << '2' end
   end
   if (j == $game_map.height-1)
     adj << '8'
   else
     if (grid[i,j+1,k] != flag) then adj << '8' end
   end
   # if no adjacent fog, set it as 0
   if (adj == '') then adj = '0' end
   # convert to an array, sort, and then back to a string
   return adj.split(//).sort.join
end

alias wachunga_fow_ssm_dispose dispose
def dispose
   @fow_tilemap.dispose if @fow_tilemap != nil
   wachunga_fow_ssm_dispose
end

alias wachunga_fow_ssm_update update
def update
   if $game_map.fow
     @fow_tilemap.ox = $game_map.display_x / 4
     @fow_tilemap.oy = $game_map.display_y / 4
     @fow_tilemap.update
   end
   wachunga_fow_ssm_update
end
end

#------------------------------------------------------------------------------

class Game_Character
  alias wachunga_fow_gch_initialize initialize
  def initialize
    wachunga_fow_gch_initialize
    @last_x = @x
    @last_y = @y
  end

  alias wachunga_fow_gch_update_move update_move
  def update_move
    wachunga_fow_gch_update_move
    if $game_map.fow
      if $game_map.fow_dynamic and (@x != @last_x or @y != @last_y)\
        and self != $game_player
      end
    end
    @last_x = @x
    @last_y = @y
  end
end

#------------------------------------------------------------------------------

class Game_Player

def update_jump
   super
   # only update when about to land, not revealing anything jumped over
   if $game_map.fow and @jump_count == 0
     $game_map.update_fow_grid
     $scene.spriteset.update_event_transparency if $game_map.fow_dynamic
     $scene.spriteset.update_fow_tilemap
   end
end

def update_move
   if $game_map.fow and (@x != @last_x or @y != @last_y)
     unless jumping?
       $game_map.update_fow_grid
       $scene.spriteset.update_event_transparency if $game_map.fow_dynamic
       $scene.spriteset.update_fow_tilemap
     end
   end
   super
end

end

#------------------------------------------------------------------------------

class Scene_Map
  attr_reader :spriteset
end

=begin
       Autotile in column 2:

row\col| 1  2  3  4  5  6  7  8
    ---------------------------
    1 | 48 49 50 51 52 53 54 55
    2 | 56 57 58 59 60 61 62 63
    3 | 64 65 66 67 68 69 70 71
    4 | 72 73 74 75 76 77 78 79
    5 | 80 81 82 83 84 85 86 87
    6 | 88 89 90 91 92 93 94 95

    The function to return the index of a single tile within an autotile
    (given by at_index) is (at_index-1)*48 + col-1 + (row-1)*8
    (where row, col, and at_index are again NOT zero-indexed)
=end

=begin
   The following array lists systematic keys which are based on adjacent
   walls (where 'W' is the wall itself):
   1 2 3
   4 W 6
   7 8 9
   e.g. 268 is the key that will be used to refer to the autotile
   which has adjacent walls north, east, and south.  For the Castle Prison
   tileset (autotile #1), this is 67.

   (It's a bit unwieldy, but it works.)
=end

Autotile_Keys = [
12346789,
2346789,
1246789,
246789,
1234678,
234678,
124678,
24678,

1234689,
234689,
124689,
24689,
123468,
23468,
12468,
2468,

23689,
2689,
2368,
268,
46789,
4678,
4689,
468,

12478,
1248,
2478,
248,
12346,
2346,
1246,
246,

28,
46,
689,
68,
478,
48,
124,
24,

236,
26,
8,
6,
2,
4,
0 ]

# many autotiles handle multiple situations
# this hash keeps track of which keys are identical
# to ones already defined above
Duplicate_Keys = {
123689 => 23689,
236789 => 23689,
1236789 => 23689,
34689 => 4689,
14689 => 4689,
134689 => 4689,
14678 => 4678,
34678 => 4678,
134678 => 4678,
146789 => 46789,
346789 => 46789,
1346789 => 46789,
23467 => 2346,
23469 => 2346,
234679 => 2346,
123467 => 12346,
123469 => 12346,
1234679 => 12346,
12467 => 1246,
12469 => 1246,
124679 => 1246,
124789 => 12478,
123478 => 12478,
1234789 => 12478,
146 => 46,
346 => 46,
467 => 46,
469 => 46,
1346 => 46,
1467 => 46,
1469 => 46,
3467 => 46,
3469 => 46,
4679 => 46,
13467 => 46,
13469 => 46,
14679 => 46,
34679 => 46,
134679 => 46,
128 => 28,
238 => 28,
278 => 28,
289 => 28,
1238 => 28,
1278 => 28,
1289 => 28,
2378 => 28,
2389 => 28,
2789 => 28,
12378 => 28,
12389 => 28,
12789 => 28,
23789 => 28,
123789 => 28,

1247 => 124,
2369 => 236,
147 => 4,
247 => 24,
14 => 4,
47 => 4,
1478 => 478,
3478 => 478,
4789 => 478,
134789 => 478,
14789 => 478,
13478 => 478,
34789 => 478,
1234 => 124,
1247 => 124,
1249 => 124,
12347 => 124,
12349 => 124,
12479 => 124,
123479 => 124,
1236 => 236,
2367 => 236,
2369 => 236,
12367 => 236,
12369 => 236,
23679 => 236,
123679 => 236,
12368 => 2368,
23678 => 2368,
123678 => 2368,
12348 => 1248,
12489 => 1248,
123489 => 1248,
1689 => 689,
3689 => 689,
6789 => 689,
13689 => 689,
16789 => 689,
36789 => 689,
136789 => 689,
12689 => 2689,
26789 => 2689,
126789 => 2689,
23478 => 2478,
24789 => 2478,
234789 => 2478,

12 => 2,
23 => 2,
27 => 2,
29 => 2,
123 => 2,
127 => 2,
129 => 2,
237 => 2,
239 => 2,
279 => 2,
1237 => 2,
1239 => 2,
1279 => 2,
2379 => 2,
12379 => 2,


14 => 4,
47 => 4,
34 => 4,
49 => 4,
147 => 4,
134 => 4,
347 => 4,
349 => 4,
149 => 4,
479 => 4,
1347 => 4,
1479 => 4,
1349 => 4,
3479 => 4,
13479 => 4,

16 => 6,
36 => 6,
67 => 6,
69 => 6,
136 => 6,
167 => 6,
169 => 6,
367 => 6,
369 => 6,
679 => 6,
1369 => 6,
3679 => 6,
1367 => 6,
1679 => 6,
13679 => 6,

78 => 8,
89 => 8,
18 => 8,
38 => 8,
138 => 8,
789 => 8,
178 => 8,
189 => 8,
378 => 8,
389 => 8,
1789 => 8,
3789 => 8,
1378 => 8,
1389 => 8,
13789 => 8,

1468 => 468,
3468 => 468,
13468 => 468,

2467 => 246,
2469 => 246,
24679 => 246,

2348 => 248,
2489 => 248,
23489 => 248,

1268 => 268,
2678 => 268,
12678 => 268,

148 => 48,
348 => 48,
489 => 48,
1348 => 48,
1489 => 48,
3489 => 48,
13489 => 48,

168 => 68,
368 => 68,
678 => 68,
1368 => 68,
1678 => 68,
3678 => 68,
13678 => 68,

234 => 24,
247 => 24,
249 => 24,
2347 => 24,
2349 => 24,
2479 => 24,
23479 => 24,

126 => 26,
267 => 26,
269 => 26,
1267 => 26,
1269 => 26,
2679 => 26,
12679 => 26,
}


On the same principle, I want to be able to define events by their id which will be able to reveal the fog of the map, something like this:

Code:
  EVENT_OPTIONS = [
    { :map_id => 1, :event_id => 1, :visibility_radius => 3 },
    { :map_id => 2, :event_id => 2, :visibility_radius => 4 },
    { :map_id => 3, :event_id => 3, :visibility_radius => 5 }
  ]
Reply }
#5
Okej, to jest moja rozszerzona wersja tego skryptu.

Teraz możesz dodać mgłę wojny do mapy na podstawie jej identyfikatora i przypisać jej dowolną konfigurację!

Niestety nie ma jeszcze opcji odsłaniania mapy poprzez wydarzenia, ale z @DerVVulfman pomocą jest szansa, że możemy to osiągnąć. :)

Code:
#===============================================================================
# ** FOG OF WAR V 2.5
#-------------------------------------------------------------------------------
#  Author   : Wachunga
#-------------------------------------------------------------------------------
#  Website  : None
#-------------------------------------------------------------------------------
#  Contact  : None
#-------------------------------------------------------------------------------
#  Modifier : Tepe
#-------------------------------------------------------------------------------
#  Website  : http://www.rpgmaker.pl
#-------------------------------------------------------------------------------
#  Contact  : simple.pixel.pictures@gmail.com
#-------------------------------------------------------------------------------
#  Support  : DerWulfman (code clarity)
#-------------------------------------------------------------------------------
#  Website  : http://www.save-point.org
#-------------------------------------------------------------------------------
#  Contact  : None
#-------------------------------------------------------------------------------
#  Related modules : None
#-------------------------------------------------------------------------------
#  Description:
=begin
  
   0.8 - original release
   0.85
     - added colour parameter to map names
     - fixed bug where map grids overlapped
   0.9
     - switched over to a tilemap (from a sprite)
     - now more compatible with minimap scripts (but they'll have to take
     extra tilemap into account)
   1.0
     - switched over to an autotile instead of using a custom tileset
       * edges looks nicer, but gradual fading had to be removed
       * colour parameter no longer possible (set by autotile)
     - move event (including jumping and speed changes) bug fixed
     - teleportation bug fixed
     - some optimization
     - made compatible with Cogwheel's Pixel Movement script
      (see http://www.rmxp.net/forums/index.php?showtopic=24716 for details)
   1.01
    - fixed bug when teleporting from map without fow to a map with fow
   2.0
     - now two independent types of fog of war:
       * static, which never returns (i.e. typical RTS "terrain" fog)
       * dynamic, which returns once out of visual range and can optionally
         hide map events (i.e. typical RTS "unit" fog)
     - now using a compact version of Near's Dynamic Maps script
     - fog of war is now above weather and normal fog
     - added support for much larger visual ranges (0 - 9)
     - added support for option to set up fog of war from a call script event
       command
     - optimization
   2.5
     - The ability to assign any fog of war configuration to a map based
       on its ID.

   A map specified as having "fog of war" (fow) has tiles that are (fully or
   partially) obscured until the player gets within visual range. The amount of
   fow to disappear as the player moves depends on the visual range specified.
   Gamers with experience playing Real Time Strategy games like Warcraft, Age of
   Empires, etc. should be quite familiar with the concept.
   This script supports two kinds of fog of war: static and dynamic.
   Static fow is the kind that typically hides terrain in RTS games. It covers
   the entire map until the player explores the area, discovering the underlying
   terrain. Once static fow disappears from an area of the map, it stays gone
   indefinitely (even if loading a saved game, leaving the map and returning
   later, going to the menu, etc).
   Dynamic fow is identical to the static kind except that it doesn't stay gone
   forever: as soon as the player leaves visual range of an explored tile,
   dynamic fow covers it again. This kind of fow is typically used to hide enemy
   units in RTS games.
   SETUP:
    
   Fog can be assigned to any map based on its ID number.
   For each map, any fog configuration can be used.
   To add another map, simply add the following code in the appropriate
   section of the module:
    
     { :map_id => 1, 
       :fow_at_name => 'fow_default',      # Name of the autotile file on map 1   
       :fow_static => true,                # Use static fog on the map
       :fow_static_opacity => 255,         # Opacity of the static fog     
       :fow_dynamic => false,              # Use dynamic fog on the map
       :fow_dynamic_opacity => 100,        # Opacity of the dynamic fog
       :fow_hides_events => false,         # Whether dynamic fog hides events
       :visibility_radius => 3,            # Visibility radius around the player
     },

   Alternatively, fog of war can be setup via a call script event command using
   the fog_of_war global method. Detailed instructions are just before
   the method itself.
   Finally, an edited version of Near Fantastica's Dynamic Maps script needs
   to be below this one. You may find it at the following URL:
   http://www.rmxp.net/forums/index.php?showtopic=24716

   The ranges work as follows:
   range = 0 reveals just the square on which the player stands
   range = 1 is the same as range 0 plus four adjacent tiles
   i.e.   @
         @P@
          @
   range = 2 is the same as range 1 plus eight additional tiles
   i.e.  @
        @@@
       @@P@@
        @@@
         @
   range = 3 (default) is the same as range 2 plus twelve additional tiles
   i.e.  @
        @@@
       @@@@@
      @@@P@@@
       @@@@@
        @@@
         @
   etc.

   Note: I've taken great pains to optimize this script as much as possible
   (which unfortunately reduces the readability of the code). There shouldn't be
   much visible effect on frame rate.
=end
#===============================================================================
#==============================================================================
# ** Fog_of_War
#------------------------------------------------------------------------------
#  This module handles the flags, tile placement and key values for the fog
#  of war tileset which covers defined maps.
#==============================================================================
module Fog_of_War
#------------------------------------------------------------------------------
  # filename of the fog of war autotile (used for both):
  FOW_AT_NAME_DEFAULT = 'fow_default'
  # the opacity of static (non-returning) and dynamic (returning) fog of war
  # (value between 0 and 255)
  # note that static fow appears on top of its dynamic counterpart (if both on)
  FOW_STATIC_OPACITY_DEFAULT = 255
  FOW_DYNAMIC_OPACITY_DEFAULT = 100
  # whether or not dynamic fow hides map events
  FOW_HIDES_EVENTS_DEFAULT = true
  # default range of fog of war (if not specified in map name)
  FOW_RANGE_DEFAULT = 3

  MAP_OPTIONS = [
    { :map_id => 3,
      :fow_at_name => 'fow_default',      # Name of the autotile file on map 1   
      :fow_static => true,                # Use static fog on the map
      :fow_static_opacity => 255,         # Opacity of the static fog     
      :fow_dynamic => false,              # Use dynamic fog on the map
      :fow_dynamic_opacity => 100,        # Opacity of the dynamic fog
      :fow_hides_events => false,         # Whether dynamic fog hides events
      :visibility_radius => 3,            # Visibility radius around the player
    },
     
    { :map_id => 2,
      :fow_at_name => 'fow_default',      # Name of the autotile file on map 1   
      :fow_static => false,               # Use static fog on the map
      :fow_static_opacity => 255,         # Opacity of the static fog     
      :fow_dynamic => true,               # Use dynamic fog on the map
      :fow_dynamic_opacity => 100,        # Opacity of the dynamic fog
      :fow_hides_events => false,         # Whether dynamic fog hides events
      :visibility_radius => 3,            # Visibility radius around the player
    } 
  ]
  # Method to retrieve settings for a given map
  def self.settings_for_map(map_id)
    option = MAP_OPTIONS.find { |map| map[:map_id] == map_id }
    option || { :fow_static => false }
  end
end
#==============================================================================
# ** Fog_of_War
#------------------------------------------------------------------------------
#  This module handles the flags, tile placement and key values for the fog
#  of war tileset which covers defined maps.
#==============================================================================
module Fog_of_War
  #--------------------------------------------------------------------------
  # * Invariables
  #-------------------------------------------------------------------------- 
  FOW           = 0b00
  REVEALED      = 0b01
  SKIP          = 0b10    # Flag for tiles with no surrounding fog
 
  Autotile_Keys = [
    # Set 1
    12346789,
    2346789,
    1246789,
    246789,
    1234678,
    234678,
    124678,
    24678,
    # Set 2
    1234689,
    234689,
    124689,
    24689,
    123468,
    23468,
    12468,
    2468,
    # Set 3
    23689,
    2689,
    2368,
    268,
    46789,
    4678,
    4689,
    468,
    # Set 4
    12478,
    1248,
    2478,
    248,
    12346,
    2346,
    1246,
    246,
    # Set 5
    28,
    46,
    689,
    68,
    478,
    48,
    124,
    24,
    # Set 6
    236,
    26,
    8,
    6,
    2,
    4,
    0
    ]
  # many autotiles handle multiple situations
  # this hash keeps track of which keys are identical
  # to ones already defined above
  Duplicate_Keys = {
    123689 => 23689,
    236789 => 23689,
    1236789 => 23689,
    34689 => 4689,
    14689 => 4689,
    134689 => 4689,
    14678 => 4678,
    34678 => 4678,
    134678 => 4678,
    146789 => 46789,
    346789 => 46789,
    1346789 => 46789,
    23467 => 2346,
    23469 => 2346,
    234679 => 2346,
    123467 => 12346,
    123469 => 12346,
    1234679 => 12346,
    12467 => 1246,
    12469 => 1246,
    124679 => 1246,
    124789 => 12478,
    123478 => 12478,
    1234789 => 12478,
    146 => 46,
    346 => 46,
    467 => 46,
    469 => 46,
    1346 => 46,
    1467 => 46,
    1469 => 46,
    3467 => 46,
    3469 => 46,
    4679 => 46,
    13467 => 46,
    13469 => 46,
    14679 => 46,
    34679 => 46,
    134679 => 46,
    128 => 28,
    238 => 28,
    278 => 28,
    289 => 28,
    1238 => 28,
    1278 => 28,
    1289 => 28,
    2378 => 28,
    2389 => 28,
    2789 => 28,
    12378 => 28,
    12389 => 28,
    12789 => 28,
    23789 => 28,
    123789 => 28,
    1247 => 124,
    2369 => 236,
    147 => 4,
    247 => 24,
    14 => 4,
    47 => 4,
    1478 => 478,
    3478 => 478,
    4789 => 478,
    134789 => 478,
    14789 => 478,
    13478 => 478,
    34789 => 478,
    1234 => 124,
    1247 => 124,
    1249 => 124,
    12347 => 124,
    12349 => 124,
    12479 => 124,
    123479 => 124,
    1236 => 236,
    2367 => 236,
    2369 => 236,
    12367 => 236,
    12369 => 236,
    23679 => 236,
    123679 => 236,
    12368 => 2368,
    23678 => 2368,
    123678 => 2368,
    12348 => 1248,
    12489 => 1248,
    123489 => 1248,
    1689 => 689,
    3689 => 689,
    6789 => 689,
    13689 => 689,
    16789 => 689,
    36789 => 689,
    136789 => 689,
    12689 => 2689,
    26789 => 2689,
    126789 => 2689,
    23478 => 2478,
    24789 => 2478,
    234789 => 2478,
    12 => 2,
    23 => 2,
    27 => 2,
    29 => 2,
    123 => 2,
    127 => 2,
    129 => 2,
    237 => 2,
    239 => 2,
    279 => 2,
    1237 => 2,
    1239 => 2,
    1279 => 2,
    2379 => 2,
    12379 => 2,
    14 => 4,
    47 => 4,
    34 => 4,
    49 => 4,
    147 => 4,
    134 => 4,
    347 => 4,
    349 => 4,
    149 => 4,
    479 => 4,
    1347 => 4,
    1479 => 4,
    1349 => 4,
    3479 => 4,
    13479 => 4,
    16 => 6,
    36 => 6,
    67 => 6,
    69 => 6,
    136 => 6,
    167 => 6,
    169 => 6,
    367 => 6,
    369 => 6,
    679 => 6,
    1369 => 6,
    3679 => 6,
    1367 => 6,
    1679 => 6,
    13679 => 6,
    78 => 8,
    89 => 8,
    18 => 8,
    38 => 8,
    138 => 8,
    789 => 8,
    178 => 8,
    189 => 8,
    378 => 8,
    389 => 8,
    1789 => 8,
    3789 => 8,
    1378 => 8,
    1389 => 8,
    13789 => 8,
    1468 => 468,
    3468 => 468,
    13468 => 468,
    2467 => 246,
    2469 => 246,
    24679 => 246,
    2348 => 248,
    2489 => 248,
    23489 => 248,
    1268 => 268,
    2678 => 268,
    12678 => 268,
    148 => 48,
    348 => 48,
    489 => 48,
    1348 => 48,
    1489 => 48,
    3489 => 48,
    13489 => 48,
    168 => 68,
    368 => 68,
    678 => 68,
    1368 => 68,
    1678 => 68,
    3678 => 68,
    13678 => 68,
    234 => 24,
    247 => 24,
    249 => 24,
    2347 => 24,
    2349 => 24,
    2479 => 24,
    23479 => 24,
    126 => 26,
    267 => 26,
    269 => 26,
    1267 => 26,
    1269 => 26,
    2679 => 26,
    12679 => 26,
    }
end
#==============================================================================
# ** Game_Map
#------------------------------------------------------------------------------
#  This class handles the map. It includes scrolling and passable determining
#  functions. Refer to "$game_map" for the instance of this class.
#==============================================================================
class Game_Map
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :fow                      #
  attr_accessor :fow_static               #
  attr_accessor :fow_dynamic              #
  attr_accessor :fow_grid                 #
  attr_accessor :fow_range                #
  attr_accessor :fow_revealed             #
  attr_accessor :fow_last_revealed        #
  #--------------------------------------------------------------------------
  # * Alias Listings
  #--------------------------------------------------------------------------
  alias wachunga_fow_gm_setup setup
  #--------------------------------------------------------------------------
  # * Setup
  #     map_id : map ID
  #--------------------------------------------------------------------------
def setup(map_id)
    wachunga_fow_gm_setup(map_id)
    @fow = false
    @fow_dynamic = false
    @fow_static = false
    @fow_grid = nil
    @fow_range = nil
    # Use settings from Fog_of_War module
    settings = Fog_of_War.settings_for_map(map_id)
    @fow = settings[:fow_static]
    @fow_static = true if @fow # default to true if fog of war is enabled
    @fow_dynamic = settings[:fow_dynamic] if settings[:fow_dynamic]
    @fow_range = settings[:visibility_radius] || Fog_of_War::FOW_RANGE_DEFAULT
   
    if @fow
      if @fow_grid == nil # only if not already defined
        @fow_grid = Table.new(@map.width, @map.height, 2)
        for i in 0...@fow_grid.xsize
          for j in 0...@fow_grid.ysize
            @fow_grid[i,j,1] = @fow_grid[i,j,0] = Fog_of_War::FOW
          end
        end
      end
      @fow_revealed = @fow_last_revealed = [] if @fow_dynamic
    end
  end
  #--------------------------------------------------------------------------
  # * Get map name
  #--------------------------------------------------------------------------
  def map_name
    return load_data('Data/MapInfos.rxdata')[@map_id].name
  end
  #--------------------------------------------------------------------------
  # * Frame Update: What tiles have been discovered or not currently covered
  #     px : (Optional) x coordinate for target event revealing map
  #     py : (Optional) y coordinate for target event revealing map
  #--------------------------------------------------------------------------
  def update_fow_grid(px=$game_player.x, py=$game_player.y)
   
    x       = px - @fow_range
    start_y = py
    y       = start_y
    count   = 1
    mod     = 1
   
    # loop through all tiles in visible range
    until x == (px + @fow_range+1)
      #
      i = count
      #
      while i > 0
        if valid?(x,y)
          if @fow_static
            @fow_grid[x,y,1] |= Fog_of_War::REVEALED
          end
          if @fow_dynamic
            if @fow_grid[x,y,0] == Fog_of_War::FOW
              @fow_grid[x,y,0] = Fog_of_War::REVEALED
            end
            @fow_revealed.push([x,y])
          end
        end
        y -= 1
        i -= 1
      end
      #
      if x == px
        mod = -1
      end
      #
      x += 1
      start_y += 1*mod
      y = start_y
      count += 2*mod
      #
    end
   
    if @fow_dynamic
      if @fow_last_revealed != []
        # make dynamic fog return once out of visual range
        for t in @fow_last_revealed - @fow_revealed
          @fow_grid[t[0],t[1],0] = Fog_of_War::FOW
        end
      end
      @fow_last_revealed = @fow_revealed
      @fow_revealed = []
    end
   
  end 
end
#==============================================================================
# ** Game_Character
#------------------------------------------------------------------------------
#  This class deals with characters. It's used as a superclass for the
#  Game_Player and Game_Event classes.
#==============================================================================
class Game_Character
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  alias wachunga_fow_gch_initialize initialize
  alias wachunga_fow_gch_update_move update_move
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    # Perform the original method
    wachunga_fow_gch_initialize
    @last_x = @x
    @last_y = @y
  end
  #--------------------------------------------------------------------------
  # * Update frame (move)
  #--------------------------------------------------------------------------
  def update_move
    # Perform the original method
    wachunga_fow_gch_update_move
    if $game_map.fow
      if $game_map.fow_dynamic and (@x != @last_x or @y != @last_y)\
        and self != $game_player
        # check if character entered/left player's visual range
        $scene.spriteset.update_event_transparency(self)
      end
    end
    @last_x = @x
    @last_y = @y
  end
end
#==============================================================================
# ** Game_Player
#------------------------------------------------------------------------------
#  This class handles the player. Its functions include event starting
#  determinants and map scrolling. Refer to "$game_player" for the one
#  instance of this class.
#==============================================================================
class Game_Player < Game_Character
  #--------------------------------------------------------------------------
  # * Frame Update (jump)
  #--------------------------------------------------------------------------
  def update_jump
   
    # Inherit original method statements from the Game_Character superclass
    super
   
    # only update when about to land, not revealing anything jumped over
    if $game_map.fow and @jump_count == 0
      $game_map.update_fow_grid
      $scene.spriteset.update_event_transparency if $game_map.fow_dynamic
      $scene.spriteset.update_fow_tilemap
    end
   
  end
  #--------------------------------------------------------------------------
  # * Update frame (move)
  #--------------------------------------------------------------------------
  def update_move
   
    if $game_map.fow and (@x != @last_x or @y != @last_y)
      unless jumping?
        $game_map.update_fow_grid
        $scene.spriteset.update_event_transparency if $game_map.fow_dynamic
        $scene.spriteset.update_fow_tilemap
      end
    end
   
    # Inherit original method statements from the Game_Character superclass
    super
   
  end
end
#==============================================================================
# ** Spriteset_Map
#------------------------------------------------------------------------------
#  This class brings together map screen sprites, tilemaps, etc.
#  It's used within the Scene_Map class.
#==============================================================================
class Spriteset_Map
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_reader   :fow_tilemap              # Fog of of war tilemap
  #--------------------------------------------------------------------------
  # * Alias Listings
  #--------------------------------------------------------------------------
  alias wachunga_fow_ssm_initialize initialize
  alias wachunga_fow_ssm_dispose dispose
  alias wachunga_fow_ssm_update update
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    # Initialize the fog of war if flagged
    initialize_fow if $game_map.fow
    # Perform the original method
    wachunga_fow_ssm_initialize
  end
  #--------------------------------------------------------------------------
  # * Dispose
  #--------------------------------------------------------------------------
  def dispose
    # Dispose of fog of war if it exists
    @fow_tilemap.dispose if @fow_tilemap != nil
    # Perform the original method
    wachunga_fow_ssm_dispose
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    # Adjust origin position and update the fog of war if it exists
    if $game_map.fow
      @fow_tilemap.ox = $game_map.display_x / 4
      @fow_tilemap.oy = $game_map.display_y / 4
      @fow_tilemap.update
    end
    update_event_transparency
    # Perform the original method
    wachunga_fow_ssm_update
  end
  #--------------------------------------------------------------------------
  # * Object Initialization : fog of war
  #--------------------------------------------------------------------------
  def initialize_fow
    # Get settings from MAP_OPTIONS for the current map
    settings = Fog_of_War.settings_for_map($game_map.map_id)
   
    # If autotile file name is not defined, use the default
    fow_at_name = settings[:fow_at_name] || Fog_of_War::FOW_AT_NAME_DEFAULT
   
    # Define tilemap for the fog
    @fow_tilemap = Tilemap.new
    @fow_tilemap.map_data = Table.new($game_map.width, $game_map.height, 3)
    @fow_tilemap.priorities = Table.new(144)
    @fow_autotiles = Hash.new(0)
   
    # Set initial autotile index
    j = 48
   
    # Define autotiles for the fog
    for i in Fog_of_War::Autotile_Keys
      @fow_autotiles[i] = j
      j += 1
    end
   
    # Add duplicates
    for i in Fog_of_War::Duplicate_Keys.keys
      @fow_autotiles[i] = @fow_autotiles[Fog_of_War::Duplicate_Keys[i]]
    end    
   
    # If static fog
    if $game_map.fow_static
      # Traverse the fog grid
      for m in 0...$game_map.fow_grid.xsize
        for n in 0...$game_map.fow_grid.ysize
          # Reset SKIP flags
          $game_map.fow_grid[m, n, 1] &= ~Fog_of_War::SKIP
        end
      end
     
      # Blit autotile and apply to tilemap with opacity for static fog
      at = Bitmap.new(96, 128)
      at.blt(0, 0, RPG::Cache.autotile(fow_at_name), Rect.new(0, 0, 96, 128), settings[:fow_static_opacity] || Fog_of_War::FOW_STATIC_OPACITY_DEFAULT)
      @fow_tilemap.autotiles[0] = at
     
      # Set all fields to fog
      for x in 0...$game_map.width
        for y in 0...$game_map.height
          @fow_tilemap.map_data[x, y, 2] = 48 # fog
        end
      end
     
      # Set to highest priority
      for i in 48...96
        @fow_tilemap.priorities[i] = 5
      end
    end
   
    # If dynamic fog
    if $game_map.fow_dynamic
      # Blit autotile for dynamic fog with opacity
      bm = Bitmap.new(96, 128)
      bm.blt(0, 0, RPG::Cache.autotile(fow_at_name), Rect.new(0, 0, 96, 128), settings[:fow_dynamic_opacity] || Fog_of_War::FOW_DYNAMIC_OPACITY_DEFAULT)
      @fow_tilemap.autotiles[1] = bm
     
      # Traverse the game map
      for x in 0...$game_map.width
        for y in 0...$game_map.height
          # Set field as clear (unlike tilemap for static maps)
          @fow_tilemap.map_data[x, y, 1] = 0
        end
      end
     
      # Set to highest priority
      for i in 96...144
        @fow_tilemap.priorities[i] = 5
      end
    end
   
    # Update the game map, fog of war tiles, and events for dynamic maps
    $game_map.update_fow_grid
    update_fow_tilemap
  end
  #--------------------------------------------------------------------------
  # * Object Initialization : fog of war - handling static or dynamic tilemap
  #--------------------------------------------------------------------------
  def update_fow_tilemap
   
    if $game_map.fow_static
      checked = Table.new($game_map.width,$game_map.height)
      for j in 0...$game_map.width
        for k in 0...$game_map.height
          checked[j,k] = 0
        end
      end
    end
   
    dx = ($game_map.display_x/128).round
    dy = ($game_map.display_y/128).round
   
    # to increase performance, only process fow currently on the screen
    for x in dx-1 .. dx+21
      for y in dy-1 .. dy+16
        # check boundaries
        if not $game_map.valid?(x,y) then next end
        if $game_map.fow_dynamic
          if $game_map.fow_grid[x,y,0] == Fog_of_War::REVEALED
            @fow_tilemap.map_data[x,y,1] = 0 if @fow_tilemap.map_data[x,y,1]!=0
          else
            @fow_tilemap.map_data[x,y,1]=96 if @fow_tilemap.map_data[x,y,1]!=96
          end        
        end          
        if $game_map.fow_static
          if $game_map.fow_grid[x,y,1] == Fog_of_War::REVEALED # (but not SKIP)
            others = false;
            @fow_tilemap.map_data[x,y,2] = 0 if @fow_tilemap.map_data[x,y,2]!=0
            for i in x-1 .. x+1
              for j in y-1 .. y+1
                # check new boundaries
                if not $game_map.valid?(i,j) then next end
                if $game_map.fow_grid[i,j,1] == Fog_of_War::FOW
                  others = true # can't flag as SKIP because there's nearby fog
                  if checked[i,j] == 0
                    checked[i,j] = 1
                    # only fill if not already revealed
                    if @fow_tilemap.map_data[i,j,2] != 0
                      adj = check_adjacent(i,j,1,$game_map.fow_grid,Fog_of_War::REVEALED)
                      if adj != nil
                        @fow_tilemap.map_data[i,j,2] =
                          eval '@fow_autotiles[adj.to_i]'
                      end
                    end
                  end
                end
              end
            end
            if not others
              # no adjacent static fog found, so flag tile to avoid reprocessing
              $game_map.fow_grid[x,y,1] |= Fog_of_War::SKIP
            end
          end   
        end # fow_static
      end # for
    end # for
   
   
    if $game_map.fow_dynamic
      if $game_map.fow_static
        for x in dx-1 .. dx+21
          for y in dy-1 .. dy+16
            # erase dynamic fow if static fow is above it anyway
            if @fow_tilemap.map_data[x,y,2] == 48
              @fow_tilemap.map_data[x,y,1]=0 if @fow_tilemap.map_data[x,y,1]!=0
            end
          end
        end
      end
      # calculate autotiles for dynamic fow (around player)
      px = $game_player.x
      py = $game_player.y
      tiles = []
      x = px - ($game_map.fow_range+1)
      y_top = py
      mod_top = -1
      y_bot = py
      mod_bot = 1
      until x == px + ($game_map.fow_range+2)
        tiles.push([x,y_top]) if $game_map.valid?(x,y_top)
        tiles.push([x,y_bot]) if $game_map.valid?(x,y_bot)
        if x == px
          mod_top = 1
          mod_bot = -1
          x+=1
          next
        end
        y_top+=1*mod_top
        y_bot+=1*mod_bot
        tiles.push([x,y_top]) if $game_map.valid?(x,y_top)
        tiles.push([x,y_bot]) if $game_map.valid?(x,y_bot)
        x+=1      
      end
      tiles.uniq.each do |t|
        adj = check_adjacent(t[0],t[1],0,$game_map.fow_grid,Fog_of_War::REVEALED)
        if adj != nil
          @fow_tilemap.map_data[t[0],t[1],1] =
            (eval '@fow_autotiles[adj.to_i]') + 48
        end
      end
    end
   
  end
  #--------------------------------------------------------------------------
  # * Object Initialization: fog of war - handling fog of war events
  #     pChar : character
  #--------------------------------------------------------------------------
  def update_event_transparency(pChar = nil)
    # Get settings from MAP_OPTIONS
    settings = Fog_of_War.settings_for_map($game_map.map_id)
   
    # Check if event hiding is enabled (defaults to true if nil)
    hide_events = settings[:fow_hides_events].nil? ? Fog_of_War::FOW_HIDES_EVENTS_DEFAULT : settings[:fow_hides_events]
   
    # If event hiding is enabled, handle event transparency
    if hide_events
      if pChar.nil?
        # Check all events
        $game_map.events.each_value do |event|
          # Set event transparency based on fog grid
          # If dynamic fog is off, hide events as well based on static fog
          event.transparent = (
            ($game_map.fow_dynamic && $game_map.fow_grid[event.x, event.y, 0] == Fog_of_War::FOW) ||
            ($game_map.fow_static && $game_map.fow_grid[event.x, event.y, 1] == Fog_of_War::FOW)
          )
        end
      else
        # Check only one event
        pChar.transparent = (
          ($game_map.fow_dynamic && $game_map.fow_grid[pChar.x, pChar.y, 0] == Fog_of_War::FOW) ||
          ($game_map.fow_static && $game_map.fow_grid[pChar.x, pChar.y, 1] == Fog_of_War::FOW)
        )
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Get list of adjacent tiles based upon flag for autotile placement
  #     i    :
  #     j    :
  #     k    :
  #     grid :
  #     flag :
  #--------------------------------------------------------------------------
  def check_adjacent(i,j,k,grid,flag)
   
    return if not $game_map.valid?(i,j) or grid == nil or flag == nil
   
    adj = ''
   
    if (i == 0)
      adj << '147'
    else
      if (j == 0) then adj << '1'
      else
        if (grid[i-1,j-1,k] != flag) then adj << '1' end
      end
      if (grid[i-1,j,k] != flag) then adj << '4' end
      if (j == $game_map.height-1) then adj << '7'
      else
        if (grid[i-1,j+1,k] != flag) then adj << '7' end
      end
    end
   
    if (i == $game_map.width-1)
      adj << '369'
    else
      if (j == 0) then adj << '3'
      else
        if (grid[i+1,j-1,k] != flag) then adj << '3' end
      end
      if (grid[i+1,j,k] != flag) then adj << '6' end
      if (j == $game_map.height-1) then adj << '9'
      else
        if (grid[i+1,j+1,k] != flag) then adj << '9' end
      end
    end
   
    if (j == 0)
      adj << '2'
    else
      if (grid[i,j-1,k] != flag) then adj << '2' end
    end
     
    if (j == $game_map.height-1)
      adj << '8'
    else
      if (grid[i,j+1,k] != flag) then adj << '8' end
    end
     
    # if no adjacent fog, set it as 0
    if (adj == '') then adj = '0' end
     
    # convert to an array, sort, and then back to a string
    return adj.split(//).sort.join
   
  end
end
#==============================================================================
# ** Interpreter
#------------------------------------------------------------------------------
#  This interpreter runs event commands. This class is used within the
#  Game_System class and the Game_Event class.
#==============================================================================
class Interpreter
  #--------------------------------------------------------------------------
  # * Fog of War
  #     static  : Full map uncovered
  #     dynamic : Immediate area uncovered
  #     range   : (Optional) Range in tiles (0-9)
  #     reset   : (Optional) Reset map
  #--------------------------------------------------------------------------
  def fog_of_war(static, dynamic, range = Fog_of_War::FOW_RANGE_DEFAULT, reset = false)
    # Alert messages
    if static.nil? or dynamic.nil?
      print 'Two true/false parameters are required in call to fog_of_war.'
      exit
    end
    if range < 0 or range > 9
      print 'Invalid range in call to fog_of_war (only 0-9 is valid).'
      exit
    end
   
    # Set values into Game_Map class
    $game_map.fow_static  = static
    $game_map.fow_dynamic = dynamic
    $game_map.fow_range   = range
   
    if reset
      $game_map.fow_grid = nil
    end
   
    if not $game_map.fow_static and not $game_map.fow_dynamic
      $game_map.fow = false
      $scene.spriteset.fow_tilemap.dispose
      # set all events back to visible
      for i in $game_map.events.keys
        $game_map.events[i].transparent = false
      end
      return
    end
    # static or dynamic fow (or both) are on
    $game_map.fow = true
   
    # If the fog of war has not yet been created
    if $game_map.fow_grid.nil?
      # Define/Redefine the fog of war grid based on map dimensions
      $game_map.fow_grid = Table.new($game_map.width, $game_map.height, 2)
      #
      # Cycle through fog of war grid dimensions
      for i in 0...$game_map.fow_grid.xsize
        for j in 0...$game_map.fow_grid.ysize
          #
          # Apply the FOW flag to the map/grid coordinates
          $game_map.fow_grid[i,j,1] = Fog_of_War::FOW
          $game_map.fow_grid[i,j,0] = Fog_of_War::FOW
          #
        end
      end
    end
   
    # Set currently revealed if dynamic map is true
    if $game_map.fow_dynamic
      $game_map.fow_revealed = $game_map.fow_last_revealed = []
    end
   
    # Initialize/redraw the spriteset fog of war
    $scene.spriteset.initialize_fow
  end
end
#==============================================================================
# ** Scene_Map
#------------------------------------------------------------------------------
#  This class performs map screen processing.
#==============================================================================
class Scene_Map
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_reader   :spriteset                # Spriteset
end
Reply }
#6
I saw your option for using configuration variables to define a Fogged map rather than the 'map name' option. I don't like removing features, so I decided... allow both.

But my version is a little different.  About as clear, but different.

Enjoy this:


The 1st map is basically the same map.
The 2nd map is the same, and returns to the 1st mode

You start on the THIRD map with a different fog autotile... based on the 'configured' option. And I updated the script call of "Fog of War" to allow for a new autotile in its place.  The old mage in front of the tent removes/reapplies fog of war, so the 3rd map mage...  have FUN with that.

AND, I got events to move around and clear out mappins!  I did it by way of creating a map event command of sorts that uses already existing methods.  Nothing from your event list.  But I do understand the desire to have different ranges.... later.

STILL a preliminary for them.

Dunno why, but I'm feeling a bit sleeeeepy.  YAWN.
Up is down, left is right and sideways is straight ahead. - Cord "Circle of Iron", 1978 (written by Bruce Lee and James Coburn... really...)

[Image: QrnbKlx.jpg]
[Image: sGz1ErF.png]    [Image: liM4ikn.png]    [Image: fdzKgZA.png]    [Image: sj0H81z.png]
[Image: QL7oRau.png]    [Image: uSqjY09.png]    [Image: GAA3qE9.png]    [Image: 2Hmnx1G.png]    [Image: BwtNdKw.png%5B]
  Above are clickable links
Reply }
#7
Near completion, I instituted an array that lets you define events upon the map that indeed uncover the fog.  

And with that, I also set individual ranges available for each.  BUT if you left out the range when defining an event to reveal the map... it uses the default scale.  Not the map scale, but the default.

I set up the events to 'reveal' the map when they begin taking a step forward.  I say this because the 'moving?' test within Game_Character is not sufficient enough a test.  It would flag 'true' from the character's very first pixel shift from one tile to the very last pixel...  So, I set up a new version of 'moving?'.  Not a replacement, but a new method just to test if any character just begins to move.  THIS should cut down on possible lag from multiple fog-removing events moving at the same time.

Oh, and a new 'script call' is in play...  "fog_events".  It allows you to set an event to BECOME a fog-revealing event, or to stop the event from revealing any more... range optional.

If you want to see it in action, move down and click the BLUE dude below the player. :D 


.zip   Fog of War Demo.zip (Size: 950.75 KB / Downloads: 1)

It needs some cleanup by my standing, and I want an optional means to flag events besides within the config page. So not done yet.  BUT it is performing the options you've requested... and more.

I removed the demo from the PREV post.
Up is down, left is right and sideways is straight ahead. - Cord "Circle of Iron", 1978 (written by Bruce Lee and James Coburn... really...)

[Image: QrnbKlx.jpg]
[Image: sGz1ErF.png]    [Image: liM4ikn.png]    [Image: fdzKgZA.png]    [Image: sj0H81z.png]
[Image: QL7oRau.png]    [Image: uSqjY09.png]    [Image: GAA3qE9.png]    [Image: 2Hmnx1G.png]    [Image: BwtNdKw.png%5B]
  Above are clickable links
Reply }
#8
I've also had my own script for this for some time now and it works fine, I looked at yours and I see that you've also defined discovery for events in the interpreter. :D I wonder if you don't have significant performance drops. I'd have to test it myself. I struggled with it a lot to get reasonably good results and I managed to do it, although I still have some drops from time to time. I suspect that my other scripts also affect this. However, test your version on larger maps with more events.
Reply }
#9
(11-12-2024, 04:54 PM)Tepe Wrote: I wonder if you don't have significant performance drops. I'd have to test it myself. I struggled with it a lot to get reasonably good results and I managed to do it, although I still have some drops from time to time.

THAT... is why I crafted the customized moving? method, one that checks to see if any NPC just 'starts' moving from one tile to another.

Were I to have the method that reveals the fog execute based on the default 'moving?' method, the 'fog-revealing' method would execute over-and-over from the start of the NPC's move into a tile space to when it finishes walking into the tile and stop.... That's a lot given it need to only reveal that area once, and not over and over for the same area. With four NPCs, it reduced FPS from 39 to 36 on my PC.

So, the use of the custom moving test that allows the fog erasal to be performed only at the start of their movement into a new tile.... that lag appeared to have vanished.
Up is down, left is right and sideways is straight ahead. - Cord "Circle of Iron", 1978 (written by Bruce Lee and James Coburn... really...)

[Image: QrnbKlx.jpg]
[Image: sGz1ErF.png]    [Image: liM4ikn.png]    [Image: fdzKgZA.png]    [Image: sj0H81z.png]
[Image: QL7oRau.png]    [Image: uSqjY09.png]    [Image: GAA3qE9.png]    [Image: 2Hmnx1G.png]    [Image: BwtNdKw.png%5B]
  Above are clickable links
Reply }
#10
Okay I tested Your script on the same map in my personal project.
In Your script we have two problems for now.

1. Is a bug when you click ESC then is a problem with menu transparency. But it is only i my project.
I do not know why this is there but i removed it and it works in my and Your project...

Code:
# Perform only for dynamic maps (must be FOW)
    if $game_map.fow_dynamic
      # If character moved and not game player
      if (@x != @last_fow_x or @y != @last_fow_y) and self != $game_player
        # Check if character entered or exited player's visual range
        $scene.spriteset.update_event_transparency(self)
      end
    end


2 Optimization in def fow_update_tilemap. In there Wachunga's wrote too many operations.

Try something like this:

Code:
  def update_fow_tilemap
    dx = ($game_map.display_x / 128).round
    dy = ($game_map.display_y / 128).round
 
    visible_range_x = (dx - 1)..(dx + 21)
    visible_range_y = (dy - 1)..(dy + 16)
 
    for x in visible_range_x
      for y in visible_range_y
        next unless $game_map.valid?(x, y)
 
        # Dynamic fog of war (FOW)
        if $game_map.fow_dynamic
          if $game_map.fow_grid[x, y, 0] == Fog_of_War::REVEALED
            @fow_tilemap.map_data[x, y, 1] = 0  # odkryte pole
          else
            adj = check_adjacent(x, y, 0, $game_map.fow_grid, Fog_of_War::REVEALED)
            # Przypisz autotile lub domyślną wartość zasłonięcia
            @fow_tilemap.map_data[x, y, 1] = adj ? (@fow_autotiles[adj.to_i] + 48) : 96
          end
        end
 
        # Static fog of war (FOW)
        if $game_map.fow_static
          if $game_map.fow_grid[x, y, 1] == Fog_of_War::REVEALED
            @fow_tilemap.map_data[x, y, 2] = 0  # odkryte pole
          else
            adj = check_adjacent(x, y, 1, $game_map.fow_grid, Fog_of_War::REVEALED)
            # Przypisz autotile lub domyślną wartość zasłonięcia
            @fow_tilemap.map_data[x, y, 2] = adj ? @fow_autotiles[adj.to_i] : 48
          end
        end
      end
    end
  end

and:

Code:
#==============================================================================
# ** Game_Player
#------------------------------------------------------------------------------
#  This class handles the player. Its functions include event starting
#  determinants and map scrolling. Refer to "$game_player" for the one
#  instance of this class.
#==============================================================================
class Game_Player < Game_Character
  #--------------------------------------------------------------------------
  # * Frame Update (jump)
  #--------------------------------------------------------------------------
  def update_jump
   
    # Inherit original method statements from the Game_Character superclass
    super
   
    # only update when about to land, not revealing anything jumped over
    if $game_map.fow and @jump_count == 0
      $game_map.update_fow_grid
      $scene.spriteset.update_event_transparency if $game_map.fow_dynamic
      $scene.spriteset.update_fow_tilemap
    end
   
  end
  #--------------------------------------------------------------------------
  # * Update frame (move)
  #--------------------------------------------------------------------------
  def update_move
    # We check if the character is moving and is not jumping
    if moving? && !jumping?
      # Update fog of war only if position has changed, with a small delay
      if $game_map.fow && (@x != @last_x || @y != @last_y)
        $game_map.update_fow_grid if $game_map.fow_dynamic || $game_map.fow_static
        $scene.spriteset.update_event_transparency if $game_map.fow_dynamic
        $scene.spriteset.update_fow_tilemap
      end
    end
    # Inherit original method statements from the Game_Character superclass
    super
    # Update last position after moving
    @last_x, @last_y = @x, @y
  end
end

This codes will not work with your script but help with optimization if You try adjust it.

If You want i can send You my script on pw for tests and analysis.
Reply }




Users browsing this thread: 4 Guest(s)