Fog of War for Blizz ABS

G_G · August 03, 2010, 12:26:13 am

Well now that I know what she's talking about, I didnt quote understand what she meant, I could easily script this :3 If and when I'll do it? I dunno. I've got projects I'm working on.

Blizzard · August 03, 2010, 04:46:42 am

Why don't you try? It's not that hard.

Badlands · August 03, 2010, 07:09:56 am

Yes! I will be very grateful if you guys help me out with this one, it's been a pain for a month..

Quotewhat he meant

It is hard to be female in this world

G_G · August 03, 2010, 10:51:26 am

Sorry didn't notice.

Also I started on it. The whole map gets covered by black.

And right now theres only area around the player that is seeable. Still working on erasing parts teh player has explored. Though it shouldn't be too hard.

EDIT: Also read my last post.

Badlands · August 09, 2010, 11:15:26 am

I'm glad you're helping me.. How is this going?
Thanks for correcting that

G_G · August 09, 2010, 03:59:31 pm

Its about done actually haven't had much time to work on it.

Shalaren · August 12, 2010, 08:52:39 am

is this what you are looking for?

Spoiler: Show

=begin


  Fog of War System(FOW) V1.0 by Samo, the Thief

  Instructions:
  -------------
  
  1-Put this Script Above Main
  
  2- Add in Scene_Title the lines Between ADDED:
  
  $game_map.update
  #-----------ADDED------------------------
    $game_fog_of_war    = Game_Fog_Of_War.new
  #-----------ADDED------------------------
  
  3- The Same in Scene_Map the with this:
  
    @message_window.update
  #---------------------------------ADDED-------------
    if wait(20)
      $game_fog_of_war.update
      @spriteset.update_tilemap
    end  
    #---------------------------------ADDED-------------
    
  4- Go to your tilesets and put with counter 1 the tiles you don't want
  to be seen through, like walls or trees.
  
  5- Enjoy!
  
  Feautures:
  ----------
  -YOu can't see thorugh some tiles depending on where you are
  -The tiles you revealed and you are not seeing are semi-revealed
  -It is cool!
  
=end


class Game_Fog_Of_War
#--------------------------------------------------------------------
  attr_accessor :map_grid
  SIGHTNESS = 9
#--------------------------------------------------------------------
  def initialize
    @map_grid = {}
      for i in 1..$map_infos.size
        data = load_data(sprintf("Data/Map%03d.rxdata", i))
        @map_grid[i] = Array.new(data.width, 0)
        for j in 0..data.width
          @map_grid[i][j] = Array.new(data.height, 0)
        end
      end
      $map_grid_wall = Array.new($game_map.width, 0)
      for j in 0..$game_map.width
        $map_grid_wall[j] = Array.new($game_map.height, 0)
      end
      refresh_grid
      @last_fow = []
  end
#-------------------------------------------------------------------------
  def setup_map(map_id)
    data = load_data(sprintf("Data/Map%03d.rxdata", map_id))
    @map_grid[i] = Array.new(data.width, 0)
    for j in 0..data.width
      @map_grid[i][j] = Array.new(data.height, 0)
    end
  end
  #--------------------------------------
  def refresh_grid
    $map_grid_wall = Array.new($game_map.width, 0)
    for j in 0..$game_map.width
      $map_grid_wall[j] = Array.new($game_map.height, 0)
    end
    for i in 0..$game_map.width
      for j in 0..$game_map.height
        if $game_map.terrain_tag(i,j) == 1
          $map_grid_wall[i][j] = 1
        end
      end
    end
  end
#----------------------------------------------------------------------
  def update
    in_range_tiles
  end
  #-----------------------------------------------------
  def circle_of_view(x,y,sightness)
    coords = []
    fow = []
    fx1 = x + sightness
    fx2 = x - sightness
    fy1 = y + sightness
    fy2 = y - sightness
    coords += line(fx1,y,x,fy1)
    coords += line(x-1,fy1-1,fx2,y)
    coords += line(fx2+1,y-1,x,fy2)
    coords += line(x+1,fy2+1,fx1-1,y-1)
    for coord in coords
      fow = fow | line_fow(x,y,coord[0],coord[1]) #Weird Method je,je
    end
    for coord in fow
      if coord[0] < 0 or coord[0] > $game_map.width or coord[1] < 0 or coord[1] > $game_map.height
        next
      end
      @map_grid[$game_map.map_id][coord[0]][coord[1]] = 2
    end
    return fow
  end
#------------------------------------------------------------------------
  def in_range_tiles
    fow = circle_of_view($game_player.x,$game_player.y,SIGHTNESS)
    for coord in @last_fow
      x = coord[0]
      y = coord[1]
      if x < 0 or x > $game_map.width or y < 0 or y > $game_map.height
        next
      end  
      if @map_grid[$game_map.map_id][x][y] == 2
        if fow.include?([x,y]) == false
          @map_grid[$game_map.map_id][x][y] = 1
        end
      end
    end
    @last_fow = fow.clone
  end
#----------------------------------------------------------------------------  
end


class Spriteset_Map
  alias old_initialize initialize
  def initialize
    #=================
    old_initialize
    @viewport4 = Viewport.new(0, 0, 640, 480)
    @viewport4.z = 5004
    @fow_tilemap = Tilemap.new(@viewport4)
    @fow_tilemap.tileset = RPG::Cache.picture("FOW")
    @fow_tilemap.autotiles[0] = RPG::Cache.autotile("FOW0")
    data = Table.new($game_map.width, $game_map.height, 3)
    @fow_tilemap.map_data = data
    priorities = Table.new(424)
    # set to highest priority to ensure everything is covered
    for i in 0...424
    priorities[i] = 5
    end
    @fow_tilemap.priorities = priorities
     for x in 0...$game_map.width
        for y in 0...$game_map.height
          if $game_fog_of_war.map_grid[$game_map.map_id][x][y] == 0
            if @fow_tilemap.map_data[x,y,2] != 384
              @fow_tilemap.map_data[x,y,2] = 384
            end
          end
          if $game_fog_of_war.map_grid[$game_map.map_id][x][y] == 1
            if @fow_tilemap.map_data[x,y,2] != 385
              @fow_tilemap.map_data[x,y,2] = 385
            end
          end
          if $game_fog_of_war.map_grid[$game_map.map_id][x][y] == 2
            if @fow_tilemap.map_data[x,y,2] != 386
              @fow_tilemap.map_data[x,y,2] = 386
            end
          end
        end
      end
    #=================
    update
  end  
  alias old_dispose dispose
  def dispose
    old_dispose
    @fow_tilemap.tileset.dispose
    @fow_tilemap.autotiles[0].dispose
    @fow_tilemap.dispose
    @viewport4.dispose
  end
    #--------------------------------------------------------------------------
  def update_tilemap
  for x in 0...$game_map.width
    for y in 0...$game_map.height
      if $game_fog_of_war.map_grid[$game_map.map_id][x][y] == 0
        if @fow_tilemap.map_data[x,y,2] != 384
          @fow_tilemap.map_data[x,y,2] = 384
        end
      end
      if $game_fog_of_war.map_grid[$game_map.map_id][x][y] == 1
        if @fow_tilemap.map_data[x,y,2] != 385
      @fow_tilemap.map_data[x,y,2] = 385
      end
      end
      if $game_fog_of_war.map_grid[$game_map.map_id][x][y] == 2
        if @fow_tilemap.map_data[x,y,2] != 386
          @fow_tilemap.map_data[x,y,2] = 386
      end
      end
    end
  end
end
#---------------------------------------------------
  alias old_update update
  def update
    old_update
    @fow_tilemap.ox = $game_map.display_x / 4
    @fow_tilemap.oy = $game_map.display_y / 4
    @fow_tilemap.update
    @viewport4.update
  end
end

def wait(frames)
  if Graphics.frame_count % (frames) == 0
    return true
  end  
end



def line(a,b,c,d)
  coords = []
     u = c - a
     v = d - b
     d1x = sgn(u)
     d1y = sgn(v)
     d2x = sgn(u)
     d2y = 0
     m = ABS(u)
     n  = ABS(v)
     if not m > n
        d2x  = 0
        d2y  = sgn(v)
        m  = ABS(v)
        n  = ABS(u)
     end
     s  = m / 2
     for i in 0..m
          coords.push([a,b])
          s  = s + n
          if not (s<m)
               s = s - m
               a = a + d1x
               b = b + d1y
          else
              a = a + d2x
              b = b + d2y
          end
        end    
    return coords
  end
  #-------------------------------
def line_fow(a,b,c,d)
  coords = []
     u = c - a
     v = d - b
     d1x = sgn(u)
     d1y = sgn(v)
     d2x = sgn(u)
     d2y = 0
     m = ABS(u)
     n  = ABS(v)
     if not m > n
        d2x  = 0
        d2y  = sgn(v)
        m  = ABS(v)
        n  = ABS(u)
     end
     s  = m / 2
     for i in 0..m
          coords.push([a,b])
          if a >= 0 and a <= $game_map.width and b >= 0 and b <= $game_map.height
            break if $map_grid_wall[a][b] == 1
          end
          s  = s + n
          if not (s<m)
               s = s - m
               a = a + d1x
               coords.push([a,b])
               b = b + d1y
          else
              a = a + d2x
              coords.push([a,b])
              b = b + d2y
          end
        end    
    return coords
  end
def sgn(a)
  return sgn = +1 if a>0
  return sgn = -1 if a<0
  return sgn = 0 if a==0
end

def ABS(a)
  return a if a > 0
  return a * -1 if a < 0
  return 0
end  


#========================================
#Game_Map
#--------------------------------------------------------------------------
# Setting functions for the Map
#========================================
class Game_Map

def name
$map_infos[@map_id]
end
end

#========================================
#Window_Title
#--------------------------------------------------------------------------
# Setting functions for the Title
#========================================
class Scene_Title
$map_infos = load_data("Data/MapInfos.rxdata")
for key in $map_infos.keys
$map_infos[key] = $map_infos[key].name
end
end

1-Put this Script Above Main

2- Add in Scene_Title the lines Between ADDED:

$game_map.update
#-----------ADDED------------------------
$game_fog_of_war = Game_Fog_Of_War.new
#-----------ADDED------------------------

3- The Same in Scene_Map the with this:

@message_window.update
#---------------------------------ADDED-------------
if wait(20)
$game_fog_of_war.update
@spriteset.update_tilemap
end
#---------------------------------ADDED-------------

4- Go to your tilesets and put with counter 1 the tiles you don't want
to be seen through, like walls or trees.

Badlands · August 12, 2010, 10:00:17 am

Thanks but no, that is laggy and complex (at least not as laggy as wachunga's one), I do not want passability tiles or anything like that, I just want a simple, non laggy script to work exclusively for BlizzABS like the Berka's one I mentioned in my first post. Here it is

Spoiler: Show

I really trust game_guy this one, like my last hope

G_G · August 12, 2010, 10:24:23 am

Sorry I've been busy, trying to finish it but

King of Booze 2		King of Booze: Never Ever
Drinking Game for Android		Never have I ever for Android
Drinking Game for iOS		Never have I ever for iOS

Chaos Project

Fog of War for Blizz ABS

G_G

August 03, 2010, 12:26:13 am #20 Last Edit: August 03, 2010, 10:50:00 am by game_guy

Blizzard

August 03, 2010, 04:46:42 am #21

Badlands

August 03, 2010, 07:09:56 am #22

G_G

August 03, 2010, 10:51:26 am #23

Badlands

August 09, 2010, 11:15:26 am #24

G_G

August 09, 2010, 03:59:31 pm #25

Shalaren

August 12, 2010, 08:52:39 am #26

Badlands

August 12, 2010, 10:00:17 am #27

G_G

August 12, 2010, 10:24:23 am #28