【VA】日站的烛光系统

杂兵天下 · 发表于 2012-2-10 19:15:13

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由杂兵天下于 2012-2-10 19:15 编辑

作者：tomoaky
作者个人网站：(http://hikimoki.sakura.ne.jp/)

RUBY 代码复制

#==============================================================================
# ★ RGSS3_視界制限 Ver1.0
#==============================================================================
=begin
 
作者：tomoaky
作者个人网站：([url]http://hikimoki.sakura.ne.jp/[/url])
 
可以设定烛光范围
 
状态、職業、武器（防具）、角色放入<视界补正 32>这类标签
例）<视界补正 32>
視界会增加32。
必须有图像：
  Graphics/System/sight_shadow.png
  
2012.01.20  Ver1.0
  公開
 
=end
 
module TMBLSIGHT
  # 例）SIGHT[3] = 128  # 地图3的视界是128
  SIGHT = {}
  #SIGHT[4] = 256
end
class RPG::BaseItem
  def sight_power
    unless @sight_power
      @sight_power = /<视界补正\s*(\-*\d+)\s*>/ =~ @note ? $1.to_i : 0
    end
    @sight_power
  end
end
class Game_Actor
  def sight_power
    result = 0
    p feature_objects
    feature_objects.each {|object| result += object.sight_power}
    result
  end
end
class Sprite_SightShadow < Sprite
  def initialize(viewport = nil)
    super(viewport)
    self.z = 200
    self.bitmap = Bitmap.new(Graphics.width, Graphics.height)
    @bitmap_shadow = Bitmap.new("Graphics/System/sight_shadow")
  end
  def dispose
    self.bitmap.dispose
    @bitmap_shadow.dispose
    super
  end
  def update
    super
    dq=TMBLSIGHT::SIGHT[$game_map.map_id]
    $rfsh=0 if $rfsh.nil?
    if $game_switches[8]==true
      dq=512 unless dq
    else
      dq=0
    end
    if dq==0 or $rfsh!=0
      self.visible = false
    else
      self.visible = true
      self.bitmap.clear
      w = dq
      $game_party.battle_members.each{|actor| w = [w + actor.sight_power, 48].max}
      x = $game_player.screen_x - w / 2
      y = $game_player.screen_y - w / 2 - 16
      rect = Rect.new(x, y, w, w)
      self.bitmap.stretch_blt(rect, @bitmap_shadow, @bitmap_shadow.rect)
      color = Color.new(0, 0, 0)
      self.bitmap.fill_rect(0, 0, Graphics.width, y, color)
      self.bitmap.fill_rect(0, y + w, Graphics.width, Graphics.height - y - w, color)
      self.bitmap.fill_rect(0, y, x, w, color)
      self.bitmap.fill_rect(x + w, y, Graphics.width - x - w, w, color)
    end
    $rfsh+=1
    $rfsh=0 if $rfsh==5
  end
end
class Spriteset_Map
  alias tmblsight_spriteset_map_initialize initialize
  def initialize
    @sight_shadow_sprite = Sprite_SightShadow.new
    tmblsight_spriteset_map_initialize
  end
  alias tmblsight_spriteset_map_dispose dispose
  def dispose
    tmblsight_spriteset_map_dispose
    @sight_shadow_sprite.dispose
  end
  alias tmblsight_spriteset_map_update update
  def update
    @sight_shadow_sprite.update
    tmblsight_spriteset_map_update
  end
end

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


# ★ RGSS3_視界制限 Ver1.0


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


=begin


 


作者：tomoaky


作者个人网站：([url]http://hikimoki.sakura.ne.jp/[/url])


 


可以设定烛光范围


 


状态、職業、武器（防具）、角色放入<视界补正 32>这类标签


例）<视界补正 32>


視界会增加32。


必须有图像：


  Graphics/System/sight_shadow.png


  


2012.01.20  Ver1.0


  公開


 


=end


 


module TMBLSIGHT


  # 例）SIGHT[3] = 128  # 地图3的视界是128


  SIGHT = {}


  #SIGHT[4] = 256


end


class RPG::BaseItem


  def sight_power


    unless @sight_power


      @sight_power = /<视界补正\s*(\-*\d+)\s*>/ =~ @note ? $1.to_i : 0


    end


    @sight_power


  end


end


class Game_Actor


  def sight_power


    result = 0


    p feature_objects


    feature_objects.each {|object| result += object.sight_power}


    result


  end


end


class Sprite_SightShadow < Sprite


  def initialize(viewport = nil)


    super(viewport)


    self.z = 200


    self.bitmap = Bitmap.new(Graphics.width, Graphics.height)


    @bitmap_shadow = Bitmap.new("Graphics/System/sight_shadow")


  end


  def dispose


    self.bitmap.dispose


    @bitmap_shadow.dispose


    super


  end


  def update


    super


    dq=TMBLSIGHT::SIGHT[$game_map.map_id]


    $rfsh=0 if $rfsh.nil?


    if $game_switches[8]==true


      dq=512 unless dq


    else


      dq=0


    end


    if dq==0 or $rfsh!=0


      self.visible = false


    else


      self.visible = true


      self.bitmap.clear


      w = dq


      $game_party.battle_members.each{|actor| w = [w + actor.sight_power, 48].max}


      x = $game_player.screen_x - w / 2


      y = $game_player.screen_y - w / 2 - 16


      rect = Rect.new(x, y, w, w)


      self.bitmap.stretch_blt(rect, @bitmap_shadow, @bitmap_shadow.rect)


      color = Color.new(0, 0, 0)


      self.bitmap.fill_rect(0, 0, Graphics.width, y, color)


      self.bitmap.fill_rect(0, y + w, Graphics.width, Graphics.height - y - w, color)


      self.bitmap.fill_rect(0, y, x, w, color)


      self.bitmap.fill_rect(x + w, y, Graphics.width - x - w, w, color)


    end


    $rfsh+=1


    $rfsh=0 if $rfsh==5


  end


end


class Spriteset_Map


  alias tmblsight_spriteset_map_initialize initialize


  def initialize


    @sight_shadow_sprite = Sprite_SightShadow.new


    tmblsight_spriteset_map_initialize


  end


  alias tmblsight_spriteset_map_dispose dispose


  def dispose


    tmblsight_spriteset_map_dispose


    @sight_shadow_sprite.dispose


  end


  alias tmblsight_spriteset_map_update update


  def update


    @sight_shadow_sprite.update


    tmblsight_spriteset_map_update


  end


end

tseyik · 发表于 2012-2-10 23:56:59

我己発過了
而且己是1.1版
http://rpg.blue/thread-221710-1-1.html

kiuh99999 · 发表于 2012-2-11 10:16:49

这个脚本是視界制限就是视野脚本。。。
真正的烛光脚本。。
在http://www.tktkgame.com/tkool/vxa/light.html 这里。。。
截图看http://rpg.blue/thread-222014-1-3.html 的沙发。、。。

ilmynasan · 发表于 2012-2-16 20:01:01

貌似外网还有个更厉害的……？= =
http://www.rpgmakervxace.net/ind ... e-light-effects-10/
可以搞出手电筒什么的

帐号		自动登录	找回密码
密码			注册会员

[转载] 【VA】日站的烛光系统

加入我们，或者，欢迎回来。