Save-Point

Hello everybody, I'm having a problem with a Tactical Battle System.
Look at these pictures:
In this image, it's okay! Nothing wrong, the maps are 3D and the character is about to enter a battle! Winking
Now, that image, the 3D maps are no longer and I need it to continue 3D! Warning: I have not changed the map, the battle is going on the same map! Cry
Download the demo to have access to TBS and the Neo Mode 7!
http://www.4shared.com/zip/GR-xnAiq/file.html
I hope your help guys!
Bye!
Paste this patch below the two scripts :
Content Hidden
Code:
#============================================================================

# ** Spriteset_Battle

#============================================================================

class Spriteset_Battle

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

  # * Aliased methods (F12 compatibility)

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

  unless @already_aliased_neoM7_tbs

    alias initialize_neoM7_tbs initialize

    alias update_neoM7_tbs update

    alias hlt_update_neoM7_tbs hlt_update

    alias create_cursor_neoM7_tbs create_cursor

    @already_aliased_neoM7_tbs = true

  end

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

  # * Attributes

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

  attr_accessor :tilemap

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

  def initialize

    unless $game_system.neoM7

      initialize_neoM7_tbs

      return

    end

    # Make viewports

    @viewport1 = Viewport.new(0, 0, 640, 480)

    @viewport2 = Viewport.new(0, 0, 640, 480)

    @viewport3 = Viewport.new(0, 0, 640, 480)

    @viewport2.z = 200

    @viewport3.z = 5000

    # Make tilemap

    @tilemap = Tilemap_neoM7.new(@viewport1, self)

    # Make panorama plane

    @panorama = Plane.new(@viewport1)

    @panorama.z = -100000

    # Make fog plane

    @fog = Plane.new(@viewport1)

    @fog.z = 3000

    # Create sprites

    @battler_sprites = []

    create_sprites

    # Make weather

    @weather = RPG::Weather.new(@viewport1)

    # Make picture sprites

    @picture_sprites = []

    for i in 1..50

      @picture_sprites.push(Sprite_Picture.new(@viewport2, $game_screen.pictures[i]))

    end

    # Make timer sprite

    @timer_sprite = Sprite_Timer.new

    # Create cursor

    create_cursor

    # Now, prepare highlight (hlt)

    @map = Table.new($game_map.width, $game_map.height)

    @hlt = Sprite.new(@viewport1)

    @hlt.bitmap = Bitmap.new($game_map.width << 5, $game_map.height << 5)

    @hlt.z = 1

    # And update the stuff

    update

    update if $game_system.neoM7_filter

  end

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

  def create_cursor(range = 0)

    unless $game_system.neoM7

      create_cursor_neoM7_tbs(range)

      return

    end

    #The cursor is here

    @cursor.dispose if @cursor

    @cursor = Sprite.new(@viewport2)

    @cursor.visible = false

    @cursor_range = range

    cal = Coords.new(range, range)

    map, locs = cal.locs(range)

    wh = (range + range + 1) * 32

    for i in locs

      @tilemap.tones.set_pixel(i.x, i.y, TBS.colors("cursor_inner"))

    end

  end

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

  def update_cursor(range = 0)

    if $scene.is_a?(Scene_Battle)

      cal = Coords.new($scene.cursor.x, $scene.cursor.y)

      map, locs = cal.locs(range)

      wh = (range + range + 1) * 32

      for i in locs

        @tilemap.tones.set_pixel(i.x, i.y, TBS.colors("cursor_inner"))

      end

    end

  end

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

  def hlt_update

    unless $game_system.neoM7

      hlt_update_neoM7_tbs

      return

    end

    @tilemap.tones.clear

    attack = []

    friendly = []

    enemy = []

    player = []

    walk = []

    for x in 0...@map.xsize

      for y in 0...@map.ysize

        case @map[x,y]

        when 1 ; attack.push(Coords.new(x,y))

        when 2 ; friendly.push(Coords.new(x,y))

        when 3 ; enemy.push(Coords.new(x,y))

        when 4 ; player.push(Coords.new(x,y))

        when 5 ; walk.push(Coords.new(x,y))

        end

      end

    end

    for i in attack

      @tilemap.tones.set_pixel(i.x, i.y, TBS.colors("attack"))

    end

    for i in friendly

      @tilemap.tones.set_pixel(i.x, i.y, TBS.colors("friendly"))

    end

    for i in enemy

      @tilemap.tones.set_pixel(i.x, i.y, TBS.colors("enemy"))

    end

    for i in player

      @tilemap.tones.set_pixel(i.x, i.y, TBS.colors("player"))

    end

    for i in walk

      @tilemap.tones.set_pixel(i.x, i.y, TBS.colors("walk"))

    end

    update_cursor(@cursor_range)

    @tilemap.need_update = true

  end

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

  def dispose

    if @tilemap.tileset != nil

      @tilemap.tileset.dispose

      for i in 0..6

        @tilemap.autotiles[i].dispose

      end

    end

    @tilemap.dispose

    @panorama.dispose

    @fog.dispose

    for sprite in @battler_sprites

      sprite.dispose

    end

    @weather.dispose

    for sprite in @picture_sprites

      sprite.dispose

    end

    @timer_sprite.dispose

    @cursor.dispose

    @hlt.dispose

    @viewport1.dispose

    @viewport2.dispose

    @viewport3.dispose

  end

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

  def update

    unless $game_system.neoM7

      update_neoM7_tbs

      return

    end

    if @panorama_name != $game_map.panorama_name or

       @panorama_hue != $game_map.panorama_hue

      @panorama_name = $game_map.panorama_name

      @panorama_hue = $game_map.panorama_hue

      if @panorama.bitmap != nil

        @panorama.bitmap.dispose

        @panorama.bitmap = nil

      end

      if @panorama_name != ""

        @panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)

      end

      Graphics.frame_reset

    end

    if @fog_name != $game_map.fog_name or @fog_hue != $game_map.fog_hue

      @fog_name = $game_map.fog_name

      @fog_hue = $game_map.fog_hue

      if @fog.bitmap != nil

        @fog.bitmap.dispose

        @fog.bitmap = nil

      end

      if @fog_name != ""

        @fog.bitmap = RPG::Cache.fog(@fog_name, @fog_hue)

      end

      Graphics.frame_reset

    end

    @hlt.ox = $game_map.display_x / 4

    @hlt.oy = $game_map.display_y / 4

    # update animated tiles each 20 frames

    if Graphics.frame_count % 20 == 0 and $game_system.neoM7_animated

      @tilemap.update_animated

    end

    @tilemap.update

    # to have a fluent panorama scrolling

    @panorama.ox = 6 * ((tilemap.theta * 4.0 / 3).to_i)

    @panorama.oy = - $game_temp.neoM7_height_limit

    @fog.zoom_x = $game_map.fog_zoom / 100.0

    @fog.zoom_y = $game_map.fog_zoom / 100.0

    @fog.opacity = $game_map.fog_opacity

    @fog.blend_type = $game_map.fog_blend_type

    @fog.ox = $game_map.display_x / 4 + $game_map.fog_ox

    @fog.oy = $game_map.display_y / 4 + $game_map.fog_oy

    @fog.tone = $game_map.fog_tone

    for sprite in @battler_sprites

      sprite.update

    end    

    @weather.type = $game_screen.weather_type

    @weather.max = $game_screen.weather_max

    @weather.ox = $game_map.display_x / 4

    @weather.oy = $game_map.display_y / 4

    @weather.update

    for sprite in @picture_sprites

      sprite.update

    end

    @timer_sprite.update

    @viewport1.tone = $game_screen.tone

    @viewport1.ox = $game_screen.shake

    @viewport3.color = $game_screen.flash_color

    @viewport1.update

    @viewport3.update

  end

end

#============================================================================

# ** Sprite_Battler

#============================================================================

class Sprite_Battler < RPG::Sprite

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

  # * Aliased methods (F12 compatibility)

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

  unless @already_aliased_neoM7_tbs

    alias update_neoM7_tbs update

    @already_aliased_neoM7_tbs = true

  end

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

  def update

    unless $game_system.neoM7

      update_neoM7_tbs

      return

    end

    super

    if @tile_id != @battler.tile_id or

       @character_name != @battler.character_name or

       @character_hue != @battler.character_hue

      @tile_id = @battler.tile_id

      @character_name = @battler.character_name

      @character_hue = @battler.character_hue

      if @tile_id >= 384

        self.bitmap = RPG::Cache.tile($game_map.tileset_name,

          @tile_id, @battler.character_hue)

        self.src_rect.set(0, 0, 32, 32)

        self.ox = 16

        self.oy = 32

      else

        self.bitmap = RPG::Cache.character(@battler.character_name,

          @battler.character_hue)

        @cw = bitmap.width / 4

        @ch = bitmap.height / 4

        self.ox = @cw / 2

        self.oy = @ch

      end

    end 

    # If animation ID is different than current one

    if @battler.damage == nil and

       @battler.state_animation_id != @state_animation_id

      @state_animation_id = @battler.state_animation_id

      loop_animation($data_animations[@state_animation_id])

    end

    # Blink

    if @battler.blink ; blink_on

    else ; blink_off

    end

    # If invisible

    unless @battler_visible

      # Appear

      if !@battler.hidden and !@battler.dead? and (@battler.damage == nil or @battler.damage_pop)

        appear

        @battler_visible = true

        if @hp_bar 

          @hp_bar.visible = true

          @sp_bar.visible = true

        end

      end

    end

    @battler_visible = false if @battler.hidden

    # If visible

    if @battler_visible

      # Bars

      # HP Bar

      if @bar_hp != @battler.hp

        @bar_hp = @battler.hp

        @hp_bar.dispose if @hp_bar

        @hp_bar = Sprite.new(@viewport)

        @hp_bar.bitmap = Bitmap.new(28,4)

        @hp_bar.bitmap.fill_rect(0, 0, 28, 4, TBS.colors("bars",false))

        percent = @battler.hp / @battler.maxhp.to_f

        length = (percent * 26.0).round

        if percent >= 0.5 ; color = TBS.colors("hp_good")

        elsif percent >= 0.25 and percent <= 0.5 ; color = TBS.colors("hp_hurt")

        else ; color = TBS.colors("hp_critical")

        end

        @hp_bar.bitmap.fill_rect(1, 1, length, 2, color)

        @hp_bar.ox = 14

        @hp_bar.oy = 9

      end

      # SP Bar

      if @bar_sp != @battler.sp

        @bar_sp = @battler.sp

        @sp_bar.dispose if @sp_bar

        @sp_bar = Sprite.new(@viewport)

        @sp_bar.bitmap = Bitmap.new(28,4)

        @sp_bar.bitmap.fill_rect(0, 0, 28, 4, TBS.colors("bars",false))

        percent = @battler.sp / @battler.maxsp.to_f

        length = (percent * 26.0).round

        @sp_bar.bitmap.fill_rect(1, 1, length, 2, TBS.colors("sp"))

        @sp_bar.ox = 14

        @sp_bar.oy = 6

      end

      # Escape

      if @battler.hidden

        $game_system.se_play($data_system.escape_se)

        escape

        @battler_visible = false

      end

      # White flash

      if @battler.white_flash

        whiten

        @battler.white_flash = false

      end

      # Animation

      if @battler.animation_id != 0

        animation = $data_animations[@battler.animation_id]

        animation(animation, @battler.animation_hit)

        @battler.animation_id = 0

      end

      # Damage

      if @battler.damage_pop

        damage(@battler.damage, @battler.critical)

        @battler.damage = nil

        @battler.critical = false

        @battler.damage_pop = false

      end

      # Collapse

      if @battler.damage == nil and @battler.dead? and !@battler.collapsed?

        @battler.collapsed = true

        if @battler.is_a?(Game_Enemy) ; $game_system.se_play($data_system.enemy_collapse_se)

        else ; $game_system.se_play($data_system.actor_collapse_se)

        end

        collapse if !TBS.options("downsets")

      end

    end

    # Set visible situation

    self.visible = @battler_visible

    if @tile_id == 0

      if @battler.dead? and TBS.options("downsets") and @battler.collapsed ; sx = @battler.down_x * @cw

      else ; sx = @battler.pattern * @cw

      end

      if @battler.dead? and TBS.options("downsets") and @battler.collapsed ; sy = @battler.down_y * @ch

      else ; sy = (@battler.direction - 2) / 2 * @ch

      end

      self.src_rect.set(sx, sy, @cw, @ch)

    end

    # Set all kinds of stuff here

    x_intermediate = @battler.screen_x

    y_intermediate = @battler.screen_y - 4

    if $game_system.neoM7_loop

      diff_y = ($game_player.y - @battler.y).to_i

      offset_y = ($game_map.height << 5) * (diff_y >= 0 ?

      (diff_y / ($game_map.height >> 1)) :

      (diff_y / ($game_map.height >> 1)) + 1)

      diff_x = ($game_player.x - @battler.x).to_i

      offset_x = ($game_map.width << 5) * (diff_x >= 0 ?

      (diff_x / ($game_map.width >> 1)) :

      (diff_x / ($game_map.width >> 1)) + 1)

      neoM7_character(x_intermediate + offset_x, y_intermediate + offset_y)

    else

      neoM7_character(x_intermediate, y_intermediate)

    end

    if !on_screen_x(x) or !on_screen_y(y)

      self.opacity = 0

      return

    end

    neoM7_zoom(x, y)

    self.opacity = 255

    self.z = 4 * y

    if @hp_bar

      @hp_bar.visible = @sp_bar.visible = self.visible 

      @sp_bar.x = @hp_bar.x = self.x

      @sp_bar.y = @hp_bar.y = self.y

      @sp_bar.z = @hp_bar.z = self.z

    end

    self.blend_type = @battler.blend_type

    self.bush_depth = @battler.bush_depth

  end

end

#============================================================================

# ** Bitmap

#============================================================================

class Bitmap

  NeoMode7Plus = Win32API.new("MGCmode7+.dll", "NeoMode7Plus", "llllllll", "l")

  CHLP = Win32API.new("MGCmode7+.dll", "CleanHeightLimitPlus", "lll", "l")

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

  # mode 7 transformation

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

  def neoM7(tileset, data, map_width, map_height, off_x, off_y, options, tones)

    raise RGSSError.new("Disposed bitmap") if disposed?

    NeoMode7Plus.call(self.__id__, tileset.__id__, data.__id__, off_x, off_y,

    [$game_temp.cos_alpha, $game_temp.sin_alpha, $game_temp.distance_h,

    $game_temp.pivot_map.to_i, $game_temp.slope_value_map,

    $game_temp.corrective_value_map, $game_temp.neoM7_height_limit,

    $game_temp.cos_theta, $game_temp.sin_theta, $game_temp.distance_p.to_i,

    $game_temp.zoom_map].__id__, options.__id__, tones.__id__)

  end

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

  def neoM7_screen(tileset, data, map_width, map_height, off_x, off_y, options, tones)

    raise RGSSError.new("Disposed bitmap") if disposed?

    NeoMode7Plus.call(self.__id__, tileset.__id__, data.__id__, off_x, off_y,

    [$game_temp.cos_alpha, $game_temp.sin_alpha, $game_temp.distance_h,

    $game_temp.pivot.to_i, $game_temp.slope_value_map,

    (131072 * $game_temp.corrective_value).to_i, $game_temp.height_limit_sprites.to_i,

    $game_temp.cos_theta, $game_temp.sin_theta, 0,

    $game_temp.zoom_map].__id__, options.__id__, tones.__id__)

  end

end

#============================================================================

# ** Tilemap_neoM7

#============================================================================

class Tilemap_neoM7

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

  # * Aliased methods (F12 compatibility)

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

  unless @already_aliased_neoM7_tbs

    alias initialize_neoM7_tbs initialize

    alias dispose_neoM7_tbs dispose

    @already_aliased_neoM7_tbs = true

  end

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

  # * Attributes

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

  attr_accessor :tones

  attr_accessor :need_update

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

  # * Object Initialization

  #     viewport  : viewport

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

  def initialize(viewport, spriteset)

    initialize_neoM7_tbs(viewport, spriteset)

    @tones = Bitmap.new($game_map.width, $game_map.height)

  end

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

  # * Update the map sprite and the vertical sprites

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

  def update

    @offset_x = $game_map.display_x / 4 + @offset_x_res

    @offset_y = $game_map.display_y / 4 + @offset_y_res

    if !@need_update && (@offset_x != @offset_x_old || @offset_y != @offset_y_old)

      @offset_x_old = @offset_x

      @offset_y_old = @offset_y

      @need_update = true

    end

    if @need_update

      @need_update_anim = false

      sprite_screen.visible = false

      sprite.visible = true

      # update map sprite

      if $game_system.neoM7_filter

        @even = !@even

        @need_update = @even

        @options[2] = @even ? 1 : 2

      else

        @need_update = false

      end

      sprite.bitmap.neoM7(@map_tileset, @bitmap_data, @width, @height,

      @offset_x, @offset_y, @options, @tones)

      # update vertical sprites

      for vertical_sprite in @vertical_sprites

        vertical_sprite.update

      end

      @need_update_screen = true

    elsif @need_update_screen || @need_update_anim

      sprite_screen.visible = true

      sprite.visible = false

      @options[2] = 0

      sprite_screen.bitmap.clear

      if $game_system.neoM7Plus_always_same_res

        sprite_screen.bitmap.neoM7(@map_tileset, @bitmap_data, @width, @height,

        @offset_x, @offset_y, @options, @tones)

      else

        sprite_screen.bitmap.neoM7_screen(@map_tileset, @bitmap_data, @width,

        @height, $game_map.display_x / 4, $game_map.display_y / 4, @options, @tones)

      end

      @need_update_screen = false

      @need_update_anim = false

    end

  end

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

  # * Dispose

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

  def dispose

    dispose_neoM7_tbs

    @tones.dispose

  end

end

#============================================================================

# ** Scene_Battle

#============================================================================

class Scene_Battle

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

  # * Aliased methods (F12 compatibility)

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

  unless @already_aliased_neoM7_tbs

    alias move_cursor_neoM7_tbs move_cursor

    alias update_cursor_neoM7_tbs update_cursor

    @already_aliased_neoM7_tbs = true

  end

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

  # * Attributes

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

  attr_reader :cursor

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

  def move_cursor(x, y)

    unless $game_system.neoM7

      move_cursor_neoM7_tbs(x, y)

      return

    end

    @cursor.x = x

    @cursor.y = y

    @spriteset.hlt_update

  end

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

  def update_cursor

    unless $game_system.neoM7

      update_cursor_neoM7_tbs

      return

    end

    old_x = cursor.x

    old_y = cursor.y

    update_cursor_neoM7_tbs

    if cursor.x != old_x || cursor.y != old_y

      @spriteset.hlt_update

    end

  end

end
And you need a new DLL that handles tiles coloring :MGCmode7+.dll
Our thank you! [Image: admirado.gif]
But once again, you surprise me MGC! [Image: ok.gif]
You are amazing! Laughing
Thank you so much MGC, you surely already has several credits on my game! [Image: ok.gif]
Bye!
Sorry for double post, but it's who I'm having a little problem that is bothering me: the border that is at the cursor no longer appears, and on top of the tile is all lit up!
[Image: j6lv07.png]
Would make it appear again, just need it now!
Bye!
No can do.

The NeoM7 script doesn't handle "flat" events, so when I tried to make it compatible with the TBS, it was really ugly because the cursor and the colored tiles were vertical. That's the reason why I slightly altered the DLL so that it can color tiles.
But you can change the cursor color, if you want. Lines 77 and 87 of the patch, you'll find :
@tilemap.tones.set_pixel(i.x, i.y, TBS.colors("cursor_inner"))
The last parameter is the color (it's currently white).
So, would add these commands?

controls:
C = Attack
X = Open the battle menu (Picture of how it should be the battle menu)
[Image: 2ynjic4_th.jpg]
Z + arrow = Change direction of character
Arrows = Move the character within the range
The rest you can leave like this!

I'm sorry if I have been asked too many things MGC, but I had already asked the maker of TBS to put this addon controls and NM7, but he never answered the topic, Cry
I've lost hope of him responding to the topic!
If you can put that last addon, I'd be very grateful indeed!
Save-Point

Save-Point

Raphael Rpg Games

MGC

Raphael Rpg Games

Raphael Rpg Games

MGC

Raphael Rpg Games
