[XP Script] Mode7 - Printable Version

compatibility script
Code:
#============================================================================

# This script gives a compatibility between the "New Mode7 Script" (MGCaladtogel)

# and the "Zenith Tactical Battle System" (Mac's version)

# Written by MGCaladtogel, for English version of mode7 (21/05/07)

# Mode7 script must be above ZTBS, and this script below :

# - ...

# - Scene_Debug

# - SDK

# - Mode7

# - ZTBS scripts

# - Macs Addons

# - This script

# - Main

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

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

# ? Game_Player

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

class Game_Player < Game_Character

  def initialize()

    super()

    @through_original = @through

    @speed_original = @move_speed

    self.map_number_x = 0

    self.map_number_y = 0

  end

end

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

# ? Game_Map

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

class Game_Map

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

  # ? TBS Setup

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

  def setup(map_id)

    # Set Up Map ID

    ztbs_setup(map_id)

    # Load map info data from Data Folder

    $data_mapinfos = load_data("Data/MapInfos.rxdata") if $data_mapinfos.nil?

    map_name = $data_mapinfos[@map_id].name2

    # Get tactic map end ID

    @tactics_end_map = get_tactics_end_map(@map_id)

    # If tactical battle map must include [T]

    $game_system.in_tactics = map_name.include?("[T]")

  end

end

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

# ? Spriteset_Map

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

class Spriteset_Map

  def initialize

    if $game_system.in_tactics

      init_options

      @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

      # mode7 map

      if $game_system.mode7

        @tilemap = Tilemap_mode7.new(@viewport1)

      # normal ZTBS map

      else

        @tilemap = Tilemap.new(@viewport1)

        @tilemap.tileset = RPG::Cache.tileset($game_map.tileset_name)

        for i in 0..6

          autotile_name = $game_map.autotile_names[i]

          @tilemap.autotiles[i] = RPG::Cache.autotile(autotile_name)

        end

        @tilemap.map_data = $game_map.data

        @tilemap.priorities = $game_map.priorities

      end

      @panorama = Plane.new(@viewport1)

      @panorama.z = ($game_system.mode7 ? -100000 : -1000)

      @fog = Plane.new(@viewport1)

      @fog.z = 3000

      @area_sprites = []

      @range_sprites = []

      if defined? $onscreen

        @character_sprites = []

        @party_sprites = []

        for i in $game_map.events.keys.sort

          sprite = Sprite_Character.new(@viewport1, $game_map.events[i])

          @character_sprites[i] = sprite

         $onscreen[i] = true

       end

        @party_sprites.push(Sprite_Cursor.new(@viewport1, $game_player.x, $game_player.y))

      else

        @character_sprites = []

        for i in $game_map.events.keys.sort

          sprite = Sprite_Character.new(@viewport1, $game_map.events[i])

          @character_sprites.push(sprite)

        end

        @character_sprites.push(Sprite_Cursor.new(@viewport1, $game_player.x, $game_player.y))

      end

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

      @picture_sprites = []

      for i in 1..50

        @picture_sprites.push(Sprite_Picture.new(@viewport2,

          $game_screen.pictures[i]))

      end

      @timer_sprite = Sprite_Timer.new

      update

    else

      ztbs_initialize

    end

  end

end

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

# ? Sprite_Area

#    Coordinates correction for mode7 maps - Flat drawn

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

class Sprite_Area < RPG::Sprite

  attr_accessor :need_update

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

  alias initialize_mode7_sprite_area initialize

  def initialize(viewport, type, x, y, invisible = false)

    if !$game_system.mode7

      initialize_mode7_sprite_area(viewport, type, x, y, invisible)

      return

    end

    super(viewport)

    case type

    when 0

      self.bitmap = RPG::Cache.picture(ZTBS::ACTOR_AREA)

    when 1

      self.bitmap = RPG::Cache.picture(ZTBS::ENEMY_AREA)

    end

    self.ox = self.bitmap.width / 2

    self.oy = self.bitmap.height

    self.opacity = 0 if invisible

    @need_update = false

    moveto(x, y)

    @flat_x_map = @real_x / 4

    @flat_y_map = @real_y / 4

    @flat_x0 = 0

    @flat_y0 = 0

    @flat_width = 32

    @flat_height = 32

    update

  end

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

  alias dispose_mode7_sprite_area dispose

  def dispose

    if $game_system.mode7

      # redraw the original ground

      maps_list = $scene.spriteset.tilemap.maps_list

      map_ground = $scene.spriteset.tilemap.map_ground

      rect = Rect.new(@flat_x_map, @flat_y_map, @flat_width, @flat_height)

      for map in maps_list

        map.blt(@flat_x_map, @flat_y_map, map_ground, rect)

        if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

          map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, map_ground,

          rect)

        end

      end

    end

    dispose_mode7_sprite_area

  end

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

  alias moveto_mode7_sprite_area moveto

  def moveto(x, y)

    moveto_mode7_sprite_area(x, y)

    @need_update = true if $game_system.mode7

  end

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

  alias update_mode7_sprite_area update

  def update

    if !$game_system.mode7

      update_mode7_sprite_area

      return

    end

    super

    return if !@need_update

    @need_update = false

    # redraw the original ground

    maps_list = $scene.spriteset.tilemap.maps_list

    map_ground = $scene.spriteset.tilemap.map_ground

    rect = Rect.new(@flat_x_map, @flat_y_map, @flat_width, @flat_height)

    for map in maps_list

      map.blt(@flat_x_map, @flat_y_map, map_ground, rect)

      if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

        map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, map_ground,

        rect)

      end

    end

    @flat_x_map = @real_x / 4

    @flat_y_map = @real_y / 4

    # modify the maps graphics

    maps_list = $scene.spriteset.tilemap.maps_list

    rect = Rect.new(@flat_x0, @flat_y0, @flat_width, @flat_height)

    for map in maps_list

      map.blt(@flat_x_map, @flat_y_map, bitmap, rect, 150)

      if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

        map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, bitmap,

        rect, 150)

      end

    end

    self.opacity = 0

  end

end

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

# ? Sprite_Range

#    Coordinates correction for mode7 maps - Flat drawn

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

class Sprite_Range < RPG::Sprite

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

  alias initialize_mode7_sprite_range initialize

  def initialize(viewport, type, x, y, invisible = false)

    if !$game_system.mode7

      initialize_mode7_sprite_range(viewport, type, x, y, invisible)

      return

    end

    super(viewport)

    case type

    when 0

      self.bitmap = RPG::Cache.picture(ZTBS::ACTOR_TARGET_AREA)

    when 1

      self.bitmap = RPG::Cache.picture(ZTBS::ENEMY_TARGET_AREA)

    end

    self.ox = self.bitmap.width / 2

    self.oy = self.bitmap.height

    self.opacity = 0 if invisible

    @plus_map_x = x - $game_player.x

    @plus_map_y = y - $game_player.y

    @need_update = false

    moveto(x, y)

    @flat_x_map = @real_x / 4

    @flat_y_map = @real_y / 4

    @flat_x0 = 0

    @flat_y0 = 0

    @flat_width = 32

    @flat_height = 32

    @count = 0

    update

  end

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

  alias dispose_mode7_sprite_range dispose

  def dispose

    if $game_system.mode7

      # redraw the original ground

      maps_list = $scene.spriteset.tilemap.maps_list

      map_ground = $scene.spriteset.tilemap.map_ground

      rect = Rect.new(@flat_x_map, @flat_y_map, @flat_width, @flat_height)

      for map in maps_list

        map.blt(@flat_x_map, @flat_y_map, map_ground, rect)

        if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

          map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, map_ground,

          rect)

        end

      end

    end

    dispose_mode7_sprite_range

  end

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

  alias moveto_mode7_sprite_range moveto

  def moveto(x, y)

    moveto_mode7_sprite_range(x, y)

    @need_update = true if $game_system.mode7

  end

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

  alias update_mode7_sprite_range update

  def update

    if !$game_system.mode7

      update_mode7_sprite_range

      return

    end

    super

    @need_update = true if (@map_x != $game_player.x + @plus_map_x or

    @map_y != $game_player.y + @plus_map_y)

    @map_x = $game_player.x + @plus_map_x

    @map_y = $game_player.y + @plus_map_y

    @real_x = @map_x * 128

    @real_y = @map_y * 128

    return if !@need_update

    @count += 1

    if @count == 1

      for sprite_area in $scene.spriteset.area_sprites

        sprite_area.need_update = true

      end

    end

    @need_update = (@count != 2)

    @count %= 2

    # redraw the original ground

    maps_list = $scene.spriteset.tilemap.maps_list

    map_ground = $scene.spriteset.tilemap.map_ground

    rect = Rect.new(@flat_x_map, @flat_y_map, @flat_width, @flat_height)

    for map in maps_list

      map.blt(@flat_x_map, @flat_y_map, map_ground, rect)

      if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

        map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, map_ground,

        rect)

      end

    end

    @flat_x_map = @real_x / 4

    @flat_y_map = @real_y / 4

    # modify the maps graphics

    maps_list = $scene.spriteset.tilemap.maps_list

    rect = Rect.new(@flat_x0, @flat_y0, @flat_width, @flat_height)

    for map in maps_list

      map.blt(@flat_x_map, @flat_y_map, bitmap, rect, 150)

      if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

        map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, bitmap,

        rect, 150)

      end

    end

    self.opacity = 0

  end

end

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

# ? Sprite_Character

#    Coordinates correction for mode7 maps

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

class Sprite_Character < RPG::Sprite

  def update

    if $game_system.in_tactics

      if @flat_indicator and $game_system.mode7

        if (!@character.flat or @character.moving? or

          @tile_id != @character.tile_id or

          @character_name != @character.character_name or

          @character_hue != @character.character_hue)

          @flat_indicator = @character.flat

          # redraw the original ground

          maps_list = $scene.spriteset.tilemap.maps_list

          map_ground = $scene.spriteset.tilemap.map_ground

          rect = Rect.new(@flat_x_map, @flat_y_map, @flat_width, @flat_height)

          for map in maps_list

            map.blt(@flat_x_map, @flat_y_map, map_ground, rect)

            if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

              map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, map_ground,

              rect)

            end

          end

        else

          return

        end

      end

      super

      # Changes old tile id, characer name or character hue to new

      if @tile_id != @character.tile_id or

         @character_name != @character.character_name or

         @character_hue != @character.character_hue

        # Changes old tile id, characer name and character hue to new

        @tile_id = @character.tile_id

        @character_name = @character.character_name

        @character_hue = @character.character_hue

     # If tile id is bigger than orequal to 384 create tile ID and Character Hue

        if @tile_id >= 384

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

            @tile_id, @character.character_hue)

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

          self.ox = 16

          self.oy = 32

        # Or in else cases create character

        else

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

            @character.character_hue)

          @cw = bitmap.width / 4

          @ch = bitmap.height / 4

          self.ox = @cw / 2

          self.oy = @ch

          self.oy -= 4 if $game_system.mode7

        end

      end

      # Visible when character in not transparent

      self.visible = (not @character.transparent)

      # Is tile ID is equal to 0

      if @tile_id == 0

        sx = @character.pattern * @cw

        sy = (@character.direction - 2) / 2 * @ch

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

      end

      if $game_system.mode7 and @character.flat # event must be flat drawn

        return if $scene.spriteset == nil

        if @tile_id == 0

          @flat_x_map = @character.real_x / 4 - (@cw - 32) / 2

          @flat_y_map = @character.real_y / 4 - @ch + 32

          @flat_x0 = sx

          @flat_y0 = sy

          @flat_width = @cw

          @flat_height = @ch

        else

          @flat_x_map = @character.real_x / 4

          @flat_y_map = @character.real_y / 4

          @flat_x0 = 0

          @flat_y0 = 0

          @flat_width = 32

          @flat_height = 32

        end

        # modify the maps graphics

        maps_list = $scene.spriteset.tilemap.maps_list

        rect = Rect.new(@flat_x0, @flat_y0, @flat_width, @flat_height)

        for map in maps_list

          map.blt(@flat_x_map, @flat_y_map, bitmap, rect, @character.opacity)

          if $game_system.loop_x and @flat_x_map.between?(0, 19 * 32)

            map.blt(@flat_x_map + 32 * $game_map.width, @flat_y_map, bitmap, rect,

            @character.opacity)

          end

        end

        @flat_indicator = true

        self.opacity = 0

        return

      end

      # Define x, y and z character screen

      x_intermediate = @character.screen_x

      y_intermediate = @character.screen_y

      y_intermediate -= $game_temp.pivot + 4 if $game_system.mode7

      if $game_system.loop_y

        h = 32 * $game_map.height

        y_intermediate = (y_intermediate + h / 2) % h - h / 2

      end

      if $game_system.mode7

        self.y = (($game_temp.distance_h * y_intermediate *

        $game_temp.cos_angle).to_f / ($game_temp.distance_h - y_intermediate *

        $game_temp.sin_angle) + $game_temp.pivot)

        self.zoom_x = $game_temp.slope_value * y + $game_temp.corrective_value

        self.zoom_y = zoom_x

        self.x = 320 + zoom_x * (x_intermediate - 320)

        if $game_system.loop_x

          offset = ($game_map.width >= 24 ? 64 * zoom_x : 0)

          l = 32 * $game_map.width * zoom_x

          self.x = (x + offset) % l - offset

        end

      else

        self.zoom_x = 1.0

        self.zoom_y = 1.0

        self.x = x_intermediate

        self.y = y_intermediate

      end

      self.z = @character.screen_z(@ch)

      # If set opacity is equal to 0 the character is defined as invisible

      if self.opacity == 0

        @character.invisible = true

      end

      unless @character.effect

        if @character.acted

          self.opacity = (self.y < $game_temp.height_limit ? 0 :

          @character.opacity - 100)

        elsif @character.invisible

          self.opacity = 0

        else

          self.opacity = (self.y < $game_temp.height_limit ? 0 :

          @character.opacity)

        end

        self.y -= 32 * @character.height * zoom_y # height correction

        self.blend_type = @character.blend_type

        self.bush_depth = @character.bush_depth

      end

      @character.effect = effect?

      if @character.is_a?(Game_Player)

        return

      end

      # Loops state animation for character inflicited

      if @character.damage == nil and

         @character.state_animation_id != @state_animation_id and

         ($game_system.tactics_step < 6 or $game_system.tactics_step > 9) and

         ZTBS::STATE_ANIMATION

        @state_animation_id = @character.state_animation_id

        loop_animation($data_animations[@state_animation_id])

      end

      # When character animation ID is 0 use default hit animation

      if @character.animation_id != 0

        animation = $data_animations[@character.animation_id]

        animation(animation, @character.animation_hit)

        @character.animation_id = 0

      end

      # When characters turn the characters opacity returns to normal

      if @character.appear and

         ($game_system.tactics_step < 6 or $game_system.tactics_step > 8)

        @character.refresh

        @character.invisible = false

        self.opacity = @character.opacity

        appear

        @character.appear = false

      end

      # If character blink is on defined to character if not blink is off

      if @character.blink

        blink_on

      else

        blink_off

      end

      # Character white flash cannot happen if already whitened

      if @character.white_flash

        whiten

        @character.white_flash = false

      end

      # Display character damage as normal if not critcial

      if @character.damage_pop

        damage(@character.damage, @character.critical)

        @character.damage = nil

        @character.critical = false

        @character.damage_pop = false

      end

      # If character dies play actor die sound effect

      # If enemy dies play enemy die sound effect

      if @character.damage == nil and @character.collapse > 0

        case @character.collapse

        when 1

          $game_system.se_play($data_system.actor_collapse_se)

        when 2

          $game_system.se_play($data_system.enemy_collapse_se)

        end

        collapse

        @character.collapse = 0

        @character.effect = true

      end

    else

      # TBS Update

      ztbs_update

    end

  end

end