RPG-Maker Quartier

#====================================
#  Kains Dynamic Shadows
#------------------------------------------------------------------------
# Übergebene Variablen:
#
# event_x = Mittelpunkt der Lichtquelle von der X - achse aus (meist: x * 32 + 16)
# event_y = Mittelpunkt der Lichtquelle von der Y - achse aus (meist: y * 32 + 16)
#
#
# leuchtdichte (1 bis oo (sehr große )
#    - leuchtdichte > 1 = Lichtquelle versiegt nur wenig wenn Spieler sich entfernt
#    - leuchtdichte < 1 = Lichquelle versiegt sehr schnell, wenn Spieler sich entfernt
#    - 0 (null) deaktiviert den abnehmenden Schatten, er wird dann immer gleich sichtbar sein.
# candela = Lichtstärke!
#     
#====================================

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Initialisiert Schatten
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


class Sprite_Player_Shadow < Sprite
 
  def initialize viewport=nil
    super viewport
    refresh( 0, 0, 1, 1)
  end

  def refresh(event_x, event_y, leuchtdichte, type)
  @Player_Shadow.dispose if @Player_Shadow
 
  if leuchtdichte != 0
  leuchtdichte = 1 / leuchtdichte
  end

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Player event delta = x / y Vektor von Event zu Spieler
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  player_event_x_delta = event_x - $game_player.x
  player_event_y_delta = event_y - $game_player.y
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Player event distance = Distanz von Spieler zu Event
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  player_event_distance =  Math.sqrt((player_event_x_delta**2) + (player_event_y_delta**2))
 

 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Teste ob weitere Berechnungen angestellt werden müssen, um die Performance
#  zu verbessern.
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  if 200 -  (player_event_distance * leuchtdichte) >= 0
  shadow_visible = true
  else
  shadow_visible = false
  end
 
  if shadow_visible == true   
   

  @Player_Shadow = Sprite.new
  @Player_Shadow.bitmap = RPG::Cache.picture("Schatten 1")
  @Player_Shadow.z = 0
 
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Berechne Sichtbarkeit des Schattens
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  @Player_Shadow.opacity = 200 -  (player_event_distance * leuchtdichte)
   

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Null teiler umgehen! Wenn Distanz nahe 0, dann Winkel 0!
#  Player event angle = Relativer Winkel des Spielers zum Event
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  if player_event_distance <= 0.1
  player_event_angle = 0
  else
  player_event_angle = (Math.asin(player_event_x_delta / player_event_distance)  / ( Math::PI / 180 ))
  end


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Dreht das Bild um, damit der Angelpunkt des Drehwinkels leichter ausgeglichen
# werden kann, deshalb sollte das Bild auch kopfüber gespeichert werden.
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  if event_y > $game_player.y
  @Player_Shadow.angle = 180 + player_event_angle
  else
  @Player_Shadow.angle =  - player_event_angle
  end

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Angelpunkt korrektion
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  if  $game_player.x >= event_x and $game_player.y <= event_y
  @Player_Shadow.x =  $game_player.x + (15 * (1 +  player_event_angle / 90)) -0 -  ($game_map.display_x  / 4)
  elsif $game_player.x >= event_x and $game_player.y >= event_y
  @Player_Shadow.x =  $game_player.x - (15 * (1 +  player_event_angle / 90)) -0 -  ($game_map.display_x  / 4)
 
  elsif $game_player.x <= event_x and $game_player.y >= event_y
  @Player_Shadow.x =  $game_player.x - (15 * (1 -  player_event_angle / 90)) -0 -  ($game_map.display_x  / 4)
  else
  @Player_Shadow.x =  $game_player.x + (15 * (1 -  player_event_angle / 90)) -0 -  ($game_map.display_x  / 4)
  end
 
  if  $game_player.x >= event_x and $game_player.y <= event_y
  @Player_Shadow.y =  $game_player.y - (12 * (1 +  player_event_angle / 90)) +5 -  ($game_map.display_y  / 4)
  elsif $game_player.x >= event_x and $game_player.y >= event_y
  @Player_Shadow.y =  $game_player.y - (12 * (1 +  player_event_angle / 90)) +5 -  ($game_map.display_y  / 4)
 
  elsif $game_player.x <= event_x and $game_player.y >= event_y
  @Player_Shadow.y =  $game_player.y - (12 * (1 +  player_event_angle / 90)) +5 - ($game_map.display_y  / 4)
  else
  @Player_Shadow.y =  $game_player.y - (12 * (1 +  player_event_angle / 90)) +5 - ($game_map.display_y  / 4)
  end
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Schattenverzerrung
#
#  Type 1 = Lichtquelle auf Character Ebene
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Type 2 = Eingeschränkte Lichtquelle
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

 # if streuwinkelmax >= 90 and streuwinkelmax <= 179
 # streuwinkelmax = streuwinkelmax -180




#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  Type 3 = Deckenbeleuchtung z.B. Laterne
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
 
  if type == 3 #and player_event_distance >= 20
  @Player_Shadow.zoom_y  =  0 +  (1*(player_event_distance/100)) #Teiler schränkt Schattenverzerrung ein.
  end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
 
 
    # Test variable - kann gelöscht werden
    $winkel = player_event_angle
   
 
  end # Ende der Anti-Lagg If-Verknüpfung
 
  end

  def dispose
  @Player_Shadow.dispose
  end

end

#==============================================================================
# ** Sprite_Character
#------------------------------------------------------------------------------
#  This sprite is used to display the character.It observes the Game_Character
#  class and automatically changes sprite conditions.
#==============================================================================

class Sprite_Character < RPG_Sprite
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :character                # character
  attr_accessor :sub_sprite               # sub_sprite
  #--------------------------------------------------------------------------
  # * Object Initialization
  #     viewport  : viewport
  #     character : character (Game_Character)
  #--------------------------------------------------------------------------
  def initialize(viewport, character = nil)
    super(viewport)
    @character = character
    #@time = 0
    @sub_sprite = Sprite.new(viewport)
    update
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    super
    @sub_sprite.update
    # If tile ID, file name, or hue are different from current ones
    if @tile_id != @character.tile_id or
       @character_name != @character.character_name or
       @character_hue != @character.character_hue
      # Remember tile ID, file name, and hue
      @tile_id = @character.tile_id
      @character_name = @character.character_name
      @character_hue = @character.character_hue
      # If tile ID value is valid
      if @character.use_picture == true
        self.bitmap = RPG::Cache.picture(@character.character_name)
        #self.src_rect.set(0, 0, bitmap.width, bitmap.height)
        self.ox = bitmap.width / 2
        self.oy = bitmap.height / 2
      elsif @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
        # If tile ID value is invalid
      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
      end
    end
    if @tile_id == 0 and @character.use_picture == false and
       @sub_graphic_name != @character.sub_graphic_name
      @sub_graphic_name = @character.sub_graphic_name
      @sub_sprite.bitmap = RPG::Cache.character(@character.sub_graphic_name, 0)
      @sub_sprite.ox = @cw / 2#bitmap.width / 2
      @sub_sprite.oy = @ch#bitmap.height / 2
    end
    # Set visible situation
    self.visible = (not @character.transparent)
    # If graphic is character
    if @tile_id == 0 and not @character.use_picture
        # Set rectangular transfer
        sx = @character.pattern * @cw
        sy = (@character.direction - 2) / 2 * @ch
      end
      self.src_rect.set(sx, sy, @cw, @ch)
      @sub_sprite.src_rect.set(sx, sy, @cw, @ch)
    end
    # Set sprite coordinates
    self.x = @character.screen_x
    self.y = @character.screen_y
    self.z = @character.screen_z(@ch)
    # Set sprite coordinates
    @sub_sprite.x = self.x
    @sub_sprite.y = self.y
    @sub_sprite.z = self.z <-- Hier muss evtl. noch -1 addiert werden.
    # Set opacity level, blend method, and bush depth
    self.opacity = @character.opacity
    self.blend_type = @character.blend_type
    self.bush_depth = @character.bush_depth
    # Animation
    if @character.animation_id != 0
      animation = $data_animations[@character.animation_id]
      animation(animation, true, @character.ani_repeat)
      @character.animation_id = 0
    end
  end
end