Quellcode

#============================================================================== 
# ■ Sprite_Sun 
# # Based on Sprite_Shadow, modified by Rataime 
#============================================================================== 
 
CATERPILLAR_COMPATIBLE = true 
 
class Game_Party 
 attr_reader :characters 
end 
 
class Sprite_Sun < RPG::Sprite 
 attr_accessor :character      	
 
 def initialize(viewport, character = nil, self_angle = 45,self_opacity = 128) 
   super(viewport) 
   @character = character 
   @self_angle=self_angle 
   @self_opacity=self_opacity 
   update 
 end 
 
 def update 
   super 
   if @tile_id != @character.tile_id or 
  	@character_name != @character.character_name or 
  	@character_hue != @character.character_hue 
 	@tile_id = @character.tile_id 
 	@character_name = @character.character_name 
 	@character_hue = @character.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 
 	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 
 
   self.visible = (not @character.transparent) 
 
   if @tile_id == 0 
	sx = @character.pattern * @cw 
	@direct=@character.direction 
 
 	if self.angle>90 or angle<-90 
 
   	if @direct== 6 
          	sy = ( 4- 2) / 2 * @ch 
 	end 
 	if @direct== 4 
          	sy = ( 6- 2) / 2 * @ch 
   	end 
   	if @direct != 4 and @direct !=6 
   	sy = (@character.direction - 2) / 2 * @ch 
     	end 
   	else 
	sy = (@character.direction - 2) / 2 * @ch 
	end 
  	self.src_rect.set(sx, sy, @cw, @ch) 
   end 
   self.x = @character.screen_x 
   self.y = @character.screen_y-5 
   self.z = @character.screen_z(@ch)-1 
   self.opacity = @character.opacity 
   self.blend_type = @character.blend_type 
   self.bush_depth = @character.bush_depth 
   if @character.animation_id != 0 
 	animation = $data_animations[@character.animation_id] 
 	animation(animation, true) 
 	@character.animation_id = 0 
   end 
   self.angle = @self_angle-90 
   self.color = Color.new(0, 0, 0) 
   $game_map.sun==-1 ? self.opacity = 0: self.opacity = @self_opacity 
 end 
end 
 
#=================================================== 
# ▼ CLASS Sprite_Character edit 
#=================================================== 
 
class Sprite_Character < RPG::Sprite 
 alias sun_initialize initialize 
 
 def initialize(viewport, character = nil) 
   @character = character 
   super(viewport) 
   @sunlist=[] 
   if (character.is_a?(Game_Event) and character.list!=nil and character.list[0].code == 108 and character.list[0].parameters == ["sun"]) 
 	if (character.list[1]!=nil and character.list[1].code == 108) 
   	@self_angle=character.list[1].parameters[0] 
 	else 
   	@self_angle=45 
 	end 
 	if (character.list[2]!=nil and character.list[2].code == 108) 
   	@self_opacity=character.list[2].parameters[0] 
 	else 
   	@self_opacity=128 
 	end 
	for i in $game_map.events.keys.sort 
 	if ($game_map.events[i].is_a?(Game_Event) and $game_map.events[i].list!=nil and $game_map.events[i].list[0].code == 108 and $game_map.events[i].list[0].parameters == ["o"]) 
   	@sunlist[i+1] = Sprite_Sun.new(viewport, $game_map.events[i],@self_angle,@self_opacity) 
 	end 
	end 
	@sunlist[1] = Sprite_Sun.new(viewport, $game_player,@self_angle,@self_opacity) 
 
 
#=================================================== 
# ● Compatibility with fukuyama's caterpillar script 
#=================================================== 
if CATERPILLAR_COMPATIBLE and $game_party.characters!=nil 
 
 for member in $game_party.characters 
   @sunlist.push(Sprite_Sun.new(viewport, member,@self_angle,@self_opacity)) 
 end 
 
end 
#=================================================== 
# ● End of the compatibility 
#=================================================== 
 
 
   end 
   sun_initialize(viewport, @character) 
 end 
 
 alias sun_update update 
 
 def update 
   sun_update 
   if @sunlist!=[] 
 	for i in 1..@sunlist.size 
   	if @sunlist[i]!=nil 
     	@sunlist[i].update 
   	end 
 	end 
   end 
 end  
 
end 
 
#=================================================== 
# ▼ CLASS Scene_Save edit 
#=================================================== 
class Scene_Save < Scene_File 
 
 alias sun_write_save_data write_save_data 
 
 def write_save_data(file) 
   $game_map.sun = nil 
   sun_write_save_data(file) 
 end 
end 
 
#=================================================== 
# ▼ CLASS Game_Map edit 
#=================================================== 
class Game_Map 
 attr_accessor :sun 
end