[XP] Some Popup v2.8

# Some Popup v 2.8
# XP version
# by mikb89

# Details:
#  Show some popup text when facing an event.
#  Text can be placed in center of screen, over the player or over the event.
#  Write [pop] in a comment to assign the popup to an event and write in the
#   next comment the text that will be shown.
# NOTE: [pop] is by default, but you can change it in the settings.
#  Text can be also grayed, to indicate a non-available something. To do so,
#   write [npop] instead of [pop].
#  You can also show a picture instead of text. In order to do this, the first
#   comment must be [ppop] and the second will contain the name of the Picture.
#  It is possible to play a sound/music effect for each event. Just write in a
#   third comment these lines:
#    SE (or ME or BGM or BGS)
#    Audio filename
#    Volume (1-100)
#    Pitch (50-150)
#    You can omit the two last lines, and they will be set by default:
#    Volume 80 for BGS and SE, 100 for BGM and ME
#    Pitch 100
# ATTENTION: comments have to be the first two (or three) commands of the event.
#
#  You can also call a script with:
#    $game_player.remove_town_sprite
#   in it to remove the sprite. For example if you put the sprite on an event
#   which you'll speak, with this code you can remove the popup.

# Configurations:
module SPOP
  ID = "pop" # set "loc" for old version compatibility.
   # What you have to write on a event to be identified as popup one.
   # If the value here is for example "pop" you'll have to write:
   #  - [pop] for the common text popup;
   #  - [npop] for the grayed out popup;
   #  - [ppop] for the picture popup.
  AUTO_REMOVE_AT_TRANSFER = true
   # Test to understand what I mean.
   #  true - gives the same effect as the one in Chrono Trigger towns.
   #  false - let the popup be visible after the teleport. Will fade out at the
   #          first player movement.
  GRAYED_COLOR = Color.new(255,245,255,175)
   # Value of grey color. Red, green, blue, alpha. From 0 to 255.
  WALK_8_DIR = true
   # You don't have to include the 8dir script. Just set true this.
  POPUP_TRANSITION = 9
   # The effect of the popup appearing/disappearing.
   #  0: no effect
   #  1: fading in/out
   #  2: movement up/down
   #  3: movement & fading
   #  4: reduced movement
   #  5: reduced movement & fading
   #  6: zoom in/out
   #  7: zoom & fading
   #  8: zoom & movement
   #  9: zoom, movement, fading
   # 10: zoom & reduced movement
   # 11: zoom, reduced movement, fading
  POPUP_SOUND = ["SE", "046-Book01", 80, 100]
   # Play something on popup.
   # 4 parameters:
   #  1. Sound kind ("SE", "ME", "BGS", "BGM");
   #  2. Name of the file;
   #  3. Volume (0-100);
   #  4. Pitch (50-150 (or 15-453 if you want MAXIMUM values)).
   # To deactivate sound just set "" the 2. or set 0 to 3. Examples:
   #  POPUP_SOUND = ["SE", "", 80, 100]
   #  POPUP_SOUND = ["SE", "046-Book01", 0, 100]
   # Won't be played.
   # Eventual BGM or BGS playing will fade as the graphic fade/zoom/move and
   #  will start after the popup close. Obviously not valid if using SE/ME.

   # Examples with ME, BGM, BGS:
   #  POPUP_SOUND = ["ME", "010-Item01", 100, 100]
   #  POPUP_SOUND = ["BGM", "023-Town01", 100, 100]
   #  POPUP_SOUND = ["BGS", "016-Drips01", 100, 100]
  POPUP_BINDING = 2
   # Where the popup should be binded.
   #  0: center of the screen
   #  1: over the player
   #  2: over the event
end

# Others:
#  You'll see 'town' everywhere in the script. This is because of the SECOND
#   name given to this script: "Popup town name".
#  The FIRST original name was "Location system", from this the [loc] to add in
#   event comments. By the way I never publicated the version with this name, so
#   you won't find anything.

#Codename: spop

($imported ||= {})[:mikb89_spop] = true

# License:
# - You can ask me to include support for other scripts as long as these scripts
#   use the $imported[script] = true;
# - You can modify and even repost my scripts, after having received a response
#   by me. For reposting it, anyway, you must have done heavy edit or porting,
#   you can't do a post with the script as is;
# - You can use my scripts for whatever you want, from free to open to
#   commercial games. I'd appreciate by the way if you let me know about what
#   you're doing;
# - You must credit me, if you use this script or part of it.

class Game_Player < Game_Character
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
#class Game_Player#def initialize()
  def initialize
    super
    @town_sprite = nil
    @town_text = ""
    reset_audio
    @town_ex_audio = [nil, ""]
    @sync_event = nil
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
#class Game_Player#def update() <- rewritten
  def update
    # Remember whether or not moving in local variables
    last_moving = moving?
    # If moving, event running, move route forcing, and message window
    # display are all not occurring
    unless moving? or $game_system.map_interpreter.running? or
           @move_route_forcing or $game_temp.message_window_showing
      # Move player in the direction the directional button is being pressed
      move_by_input # Edited from the original
    end
    # Remember coordinates in local variables
    last_real_x = @real_x
    last_real_y = @real_y
    super
    # Some Popup addition START
    update_town_sprite
    # Some Popup addition END
    # If character moves down and is positioned lower than the center
    # of the screen
    if @real_y > last_real_y and @real_y - $game_map.display_y > CENTER_Y
      # Scroll map down
      $game_map.scroll_down(@real_y - last_real_y)
    end
    # If character moves left and is positioned more let on-screen than
    # center
    if @real_x < last_real_x and @real_x - $game_map.display_x < CENTER_X
      # Scroll map left
      $game_map.scroll_left(last_real_x - @real_x)
    end
    # If character moves right and is positioned more right on-screen than
    # center
    if @real_x > last_real_x and @real_x - $game_map.display_x > CENTER_X
      # Scroll map right
      $game_map.scroll_right(@real_x - last_real_x)
    end
    # If character moves up and is positioned higher than the center
    # of the screen
    if @real_y < last_real_y and @real_y - $game_map.display_y < CENTER_Y
      # Scroll map up
      $game_map.scroll_up(last_real_y - @real_y)
    end
    # If not moving
    unless moving?
      # If player was moving last time
      if last_moving
        # Event determinant is via touch of same position event
        result = check_event_trigger_here([1,2])
        # If event which started does not exist
        if result == false
          # Disregard if debug mode is ON and ctrl key was pressed
          unless $DEBUG and Input.press?(Input::CTRL)
            # Encounter countdown
            if @encounter_count > 0
              @encounter_count -= 1
            end
          end
        end
      end
      # If C button was pressed
      if Input.trigger?(Input::C)
        # Same position and front event determinant
        check_event_trigger_here([0])
        check_event_trigger_there([0,1,2])
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Part of the update
  #--------------------------------------------------------------------------
#class Game_Player#def update_town_sprite()
  def update_town_sprite
    if @town_sprite != nil
      case SPOP::POPUP_BINDING
      when 1
        @town_sprite.x = screen_x
        if @town_sprite.y != screen_y && screen_y != @sync_y
          @town_sprite.y = screen_y - (@town_sprite.y - @sync_y).abs
          @sync_y = screen_y
        end
      when 2
        if @sync_event != nil
          @town_sprite.x = @sync_event.screen_x
          if @town_sprite.y != @sync_event.screen_y && @sync_event.screen_y != @sync_y
            @town_sprite.y = @sync_event.screen_y - (@town_sprite.y - @sync_y).abs
            @sync_y = @sync_event.screen_y
          end
          sx = @sync_event.x - @x
          sy = @sync_event.y - @y
          remove_town_sprite if Math.hypot(sx, sy) > 2
        end
      end
      rem = false
      @town_sprite.update
      if [1,3,5,7,9,11].include?(SPOP::POPUP_TRANSITION)
        @town_sprite.opacity -= 15 if @town_sprite.z == 5 && @town_sprite.opacity > 0
        @town_sprite.opacity += 15 if @town_sprite.z == 10 && @town_sprite.opacity < 255
        rem = true if @town_sprite.opacity <= 0
      end
      if [2,3,4,5,8,9,10,11].include?(SPOP::POPUP_TRANSITION)
        mov = [4,5,10,11].include?(SPOP::POPUP_TRANSITION) ? 32 : 64
        val = mov/16
        t = @town_sprite.y
        @town_sprite.y += val if @town_sprite.z == 5 && @toadd > -mov
        @town_sprite.y -= val if @town_sprite.z == 10 && @toadd > 0
        @toadd -= val if t != @town_sprite.y
        rem = true if @toadd <= -mov
      end
      if [6,7,8,9,10,11].include?(SPOP::POPUP_TRANSITION)
        if @town_sprite.z == 5 && @town_sprite.zoom_x > 0
          @town_sprite.zoom_x -= 0.25
          @town_sprite.zoom_y -= 0.25
        end
        if @town_sprite.z == 10 && @town_sprite.zoom_x < 1
          @town_sprite.zoom_x += 0.25
          @town_sprite.zoom_y += 0.25
        end
        rem = true if @town_sprite.zoom_x <= 0
      end
      if @town_ex_audio[0] != nil
        if @audiowait > 0
          @audiowait -= 1
        elsif @audiowait == 0
          if @town_audio[0] != nil
            $game_system.method("#{@town_audio[1]}_play").call(@town_audio[0])
            if @town_ex_audio[1] != @town_audio[1]
              $game_system.method("#{@town_ex_audio[1]}_play").call(@town_ex_audio[0])
              @town_ex_audio = [nil, ""]
            end
            reset_audio if @town_audio[0].name != SPOP::POPUP_SOUND[1]
          end
          @audiowait = -1
        end
      end
      remove_town_sprite(true) if rem
    end
  end
  #--------------------------------------------------------------------------
  # * Popup removal at straighten (scene change)
  #--------------------------------------------------------------------------
if method_defined?(:straighten)
  alias_method(:straighten_b4_spop, :straighten) unless method_defined?(:straighten_b4_spop)
end
#class Game_Player#def straighten() <- aliased/added
  def straighten
    remove_town_sprite(true)
    if respond_to?(:straighten_b4_spop)
      straighten_b4_spop
    else
      super
    end
  end
  #--------------------------------------------------------------------------
  # * Player has moved?
  #--------------------------------------------------------------------------
  alias_method(:increase_steps_b4_spop, :increase_steps) unless method_defined?(:increase_steps_b4_spop)
#class Game_Player#def increase_steps() <- aliased
  def increase_steps
    increase_steps_b4_spop
    @move_failed = false
  end
  #--------------------------------------------------------------------------
  # * Processing of Movement via input from the Directional Buttons
  #--------------------------------------------------------------------------
#class Game_Player#def move_by_input()
  def move_by_input
    x, y = self.x, self.y
    @move_failed = true
    case SPOP::WALK_8_DIR ? Input.dir8 : Input.dir4
    when 1
      move_lower_left
      if @move_failed
        check_town(x-1, y+1)
      else
        check_town(x-2, y+2)
      end
    when 2
      move_down
      if @move_failed
        check_town(x, y+1)
      else
        check_town(x, y+2)
      end
    when 3
      move_lower_right
      if @move_failed
        check_town(x+1, y+1)
      else
        check_town(x+2, y+2)
      end
    when 4
      move_left
      if @move_failed
        check_town(x-1, y)
      else
        check_town(x-2, y)
      end
    when 6
      move_right
      if @move_failed
        check_town(x+1, y)
      else
        check_town(x+2, y)
      end
    when 7
      move_upper_left
      if @move_failed
        check_town(x-1, y-1)
      else
        check_town(x-2, y-2)
      end
    when 8
      move_up
      if @move_failed
        check_town(x, y-1)
      else
        check_town(x, y-2)
      end
    when 9
      move_upper_right
      if @move_failed
        check_town(x+1, y-1)
      else
        check_town(x+2, y-2)
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Operations for sprite removal and audio stopping
  #--------------------------------------------------------------------------
#class Game_Player#def remove_town_sprite(instant, audio)
  def remove_town_sprite(instant=false, audio=true)
    if @town_sprite != nil
      if instant || SPOP::POPUP_TRANSITION == 0
        if audio
          $game_system.method("#{@town_audio[1]}_stop").call if @town_audio[1] != ""
          $game_system.method("#{@town_ex_audio[1]}_play").call(@town_ex_audio[0]) if @town_ex_audio[1] != ""
        end
        @town_ex_audio = [nil, ""]
        @town_sprite.dispose
        @town_sprite = nil
        @sync_event = nil
      else
        @town_sprite.z = 5
        unless ["se", "me", ""].include?(@town_audio[1])
          $game_system.method("#{@town_audio[1]}_fade").call(4)
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Set the audio as the one specified in SPOP or passed
  #--------------------------------------------------------------------------
#class Game_Player#def reset_audio(spn)
  def reset_audio(spn = SPOP::POPUP_SOUND)
    @town_audio = [(spn[1] == "" || spn[2] <= 0) ? nil :
                    RPG::AudioFile.new(spn[1], spn[2], spn[3]),
                    spn[0].downcase]
  end
  #--------------------------------------------------------------------------
  # * Check if there is a town event in front of the player
  #--------------------------------------------------------------------------
#class Game_Player#def check_town(x, y)
  def check_town(x, y)
    return false if $game_system.map_interpreter.running?
    result = false
    for event in $game_map.events_xy(x, y)
      unless [1,2].include?(event.trigger) and event.priority_type == 1
        if event.list != nil
          if event.list[0].code == 108 and
            ["[#{SPOP::ID}]", "[n#{SPOP::ID}]", "[p#{SPOP::ID}]"].include?(event.list[0].parameters[0])
            result = true
            next if @town_sprite != nil && @town_sprite.z == 10 && @town_text == event.list[1].parameters[0]
            remove_town_sprite(true)
            @town_sprite = Sprite.new
            @town_sprite.z = 10
            if [6,7,8,9,10,11].include?(SPOP::POPUP_TRANSITION)
              @town_sprite.zoom_x = @town_sprite.zoom_y = 0.0
            end
            @town_sprite.opacity = 15 if [1,3,5,7,9,11].include?(SPOP::POPUP_TRANSITION)
            if event.list[0].parameters[0] != "[p#{SPOP::ID}]"
              @town_sprite.bitmap ||= Bitmap.new(1,1)
              siz = @town_sprite.bitmap.text_size(event.list[1].parameters[0])
              h = siz.height
              s = siz.width
              @town_sprite.bitmap.dispose
              @town_sprite.bitmap = Bitmap.new(s, 24)
              if event.list[0].parameters[0] == "[n#{SPOP::ID}]"
                ex = @town_sprite.bitmap.font.color
                @town_sprite.bitmap.font.color = SPOP::GRAYED_COLOR
              end
              @town_sprite.bitmap.draw_text(0,2,s,22,event.list[1].parameters[0],1)
              @town_sprite.bitmap.font.color = ex if event.list[0].parameters[0] == "[n#{SPOP::ID}]"
            else
              @town_sprite.bitmap = Cache.picture(event.list[1].parameters[0])
              s = @town_sprite.bitmap.width
              h = @town_sprite.bitmap.height
            end
            @town_text = event.list[1].parameters[0]
            @town_sprite.ox = s/2
            @town_sprite.oy = h/2
            case SPOP::POPUP_BINDING
            when 1
              @town_sprite.x = screen_x#*32+16
              @town_sprite.y = @sync_y = screen_y#*32+16
            when 2
              @town_sprite.x = event.screen_x#*32+16
              @town_sprite.y = @sync_y = event.screen_y#*32+16
              @sync_event = event
            else
              @town_sprite.x = 544/2# - s/2
              @town_sprite.y = 416/2# - h/2
            end
            @town_sprite.y -= 64 if [0,1,6,7].include?(SPOP::POPUP_TRANSITION)
            @town_sprite.y -= 32 if [4,5,10,11].include?(SPOP::POPUP_TRANSITION)
            @toadd = [2,3,4,5,8,9,10,11].include?(SPOP::POPUP_TRANSITION) ? 64 : 0
            @toadd -= 32 if [4,5,10,11].include?(SPOP::POPUP_TRANSITION)
            if @town_audio[0] != nil || event.list[2].code == 108
              if ["BGM", "ME", "BGS", "SE"].include?(event.list[2].parameters[0]) &&
                event.list[3].code == 408
                arr = []
                arr.push(event.list[2].parameters[0])
                arr.push(event.list[3].parameters[0])
                if event.list[4].code == 408
                  arr.push(event.list[4].parameters[0].to_i)
                  arr.push(event.list[5].parameters[0].to_i) if event.list[5].code == 408
                else
                  arr.push(["BGS", "SE"].include?(event.list[2].parameters[0]) ? 80 : 100)
                end
                arr.push(100) if arr.size < 4
                reset_audio(arr)
              end
              if ["bgm", "bgs"].include?(@town_audio[1])
                @town_ex_audio = [$game_system.method("playing_#{@town_audio[1]}").call,
                                  @town_audio[1]]
              else
                @town_ex_audio[0] = nil
              end
              if @town_ex_audio[0] != nil
                $game_system.method("#{@town_ex_audio[1]}_fade").call(4)
                @audiowait = 4
              else
                $game_system.method("#{@town_audio[1]}_play").call(@town_audio[0])
                reset_audio if arr != nil
              end
            end
          end
        end
      end
    end
    remove_town_sprite unless result
    return result
  end
end

if SPOP::AUTO_REMOVE_AT_TRANSFER
class Scene_Map
  #--------------------------------------------------------------------------
  # * Removing of town sprite when changing map
  #--------------------------------------------------------------------------
  alias_method(:transfer_player_b4_spop, :transfer_player) unless method_defined?(:transfer_player_b4_spop)
#class Scene_Map#def transfer_player() <- aliased
  def transfer_player
    $game_player.remove_town_sprite(true, false)
    transfer_player_b4_spop
  end
end
end

class Game_Map
  #--------------------------------------------------------------------------
  # * Get event list in x, y
  #--------------------------------------------------------------------------
#class Game_Map#def events_xy(x, y)
  unless method_defined?(:events_xy)
  def events_xy(x, y)
    result = []
    for event in $game_map.events.values
      result.push(event) if event.x == x and event.y == y
    end
    return result
  end
  end
end