PHP-Code:
#==============================================================================
$legacy_engine = {} if $legacy_engine . nil ?
$legacy_engine [ "Light Effect" ] = true
#==============================================================================
module RPG :: Cache
#--------------------------------------------------------------------------
def self . lights ( filename )
self . load_bitmap ( 'Graphics/Lights/' , filename )
end
#==============================================================================
class Sprite_Light < RPG :: Sprite
#--------------------------------------------------------------------------
attr_reader : lights
: update_tone
#--------------------------------------------------------------------------
def initialize (* args )
args . flatten !
super ( args . last )
self . bitmap = Bitmap .new( 640 , 480 )
self . blend_type = args [ 0 ]
self . opacity = args [ 4 ]
new_opacity = $game_map . new_opacity . nil ? ? args [ 4 ] : $game_map . new_opacity
@ max_opacity = $game_map . max_opacity . nil ? ? args [ 4 ] : $game_map . max_opacity
@ change_speed = $game_map . change_speed . nil ? ? 0 : $game_map . change_speed
. z = 100
( args [ 1 ], args [ 2 ], args [ 3 ])
lights = {}
update_list = []
end
#--------------------------------------------------------------------------
def update
. ox = $game_map . adjust_x ( $game_map . display_x ) / 4
. oy = $game_map . adjust_y ( $game_map . display_y ) / 4
#--------------------------------------------------------------------------
def update_lights
= $game_map . adjust_x ( $game_map . display_x ) / 4
= $game_map . adjust_y ( $game_map . display_y ) / 4
= Rect .new( map_x , map_y , 640 , 480 )
self . bitmap . fill_rect ( rect , @ color )
light in @ lights . values
. update
?( light , map_x , map_y )
draw_light ( light , light . x , light . y )
end
#--------------------------------------------------------------------------
def on_screen ?( light , map_x , map_y )
false unless ( light . x . between ?( map_x , map_x + 640 ) or
light . x + light . width ). between ?( map_x , map_x + 640 ))
false unless ( light . y . between ?( map_y , map_y + 480 ) or
light . y + light . height ). between ?( map_y , map_y + 480 ))
true
#--------------------------------------------------------------------------
def draw_light ( light , x , y )
img = light . bitmap
= Rect .new( x , y , light . width , light . height )
self . bitmap . stretch_blt ( rect , img , img . rect , light . opacity )
end
#--------------------------------------------------------------------------
def color ( red = 0 , green = 0 , blue = 0 )
self . blend_type == 2
@ color = Color .new( 255 - red , 255 - green , 255 - blue , 255 )
color = Color .new( red , green , blue , 255 )
end
#--------------------------------------------------------------------------
def create_light ( value )
args = value . dup
( args [ 0 ])
lights [ args [ 0 ]] = Light_Sprite .new( args )
end
#--------------------------------------------------------------------------
def remove_light ( id )
lights [ id ]. nil ?
lights . delete ( id )
end
#--------------------------------------------------------------------------
def update_opacity
if @ max_opacity != self . opacity
if @ max_opacity > self . opacity
@ new_opacity += @ change_speed
. opacity = [@ new_opacity , @ max_opacity ]. min . to_i
@ max_opacity < self . opacity
@ new_opacity -= @ change_speed
. opacity = [@ new_opacity , @ max_opacity ]. max . to_i
. shade_opacity = self . opacity
. new_opacity = @ new_opacity
. max_opacity = @ max_opacity
. change_speed = @ change_speed
#--------------------------------------------------------------------------
def opacity_change (* args )
args . flatten !
max_opacity = args [ 0 ]
new_opacity = self . opacity . to_f
@ change_speed = args [ 1 ]. to_f
#--------------------------------------------------------------------------
def dispose
@ lights . values {| light | light . dispose unless light . bitmap . disposed ?}
end
#==============================================================================
class Light_Sprite
#--------------------------------------------------------------------------
attr_reader : values
: bitmap
: opacity
: x
: y
: real_x
: real_y
: width
: height
#--------------------------------------------------------------------------
def initialize (* args )
args . flatten !
values = args . dup
@ bitmap = RPG :: Cache . lights ( args [ 1 ])
target = set_target ( args [ 2 ])
opacity = args [ 3 ]
plus_x = args [ 4 ]
plus_y = args [ 5 ]
width = @ bitmap . width * args [ 8 ]
height = @ bitmap . height * args [ 8 ]
base_opacity = args [ 3 ]
base_variance = args [ 6 ]
speed = args [ 7 ]
variance = 0.0
#--------------------------------------------------------------------------
def update
#--------------------------------------------------------------------------
def update_position
if @ target . is_a ?( Game_Character )
x = $game_map . adjust_x (@ target . real_x ) / 4 - @ width / 2 + @ plus_x + 16
@ y = $game_map . adjust_y (@ target . real_y ) / 4 - @ height / 2 + @ plus_y + 16
@ real_x = (@ target . real_x / 32 ). to_i
@ real_y = (@ target . real_y / 32 ). to_i
else
x = $game_map . adjust_x (@ target [: x ] * 128 ) / 4 - @ width / 2 + @ plus_x + 16
@ y = $game_map . adjust_y (@ target [: y ] * 128 ) / 4 - @ height / 2 + @ plus_y + 16
@ real_x = @ target [: x ]
real_y = @ target [: y ]
end
#--------------------------------------------------------------------------
def update_opacity
@ variance += @ speed
@ speed *= - 1 if (@ speed > 0 and @ variance > @ base_variance ) or
speed < 0 and @ variance < -@ base_variance )
opacity = [[@ base_opacity + @ variance , 0 ]. max , 255 ]. min
#--------------------------------------------------------------------------
def dispose
@ bitmap . dispose
#--------------------------------------------------------------------------
def set_target ( value )
value .include?( 'actor' )
$legacy_engine [ "Caterpillar" ] and value [ 'actor' ] > 0 ) ?
$game_player . actors [ value [ 'actor' ] - 1 ] : $game_player )
elsif value .include?( 'event' )
$game_map . events [ value [ 'event' ]]
value
#==============================================================================
class Game_Map
#--------------------------------------------------------------------------
attr_accessor : light_effect
: lights
: remove_lights
: shade_opacity
: opacity_change
: max_opacity
: new_opacity
: change_speed
#--------------------------------------------------------------------------
alias setup_lighteffects setup
( map_id )
clear_lights
( map_id )
end
#--------------------------------------------------------------------------
def clear_lights
@ lights = {}
remove_lights = []
shade_opacity = 0
@ light_effect = nil
@ max_opacity = nil
@ new_opacity = nil
@ change_speed = nil
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
attr_accessor : lantern
#--------------------------------------------------------------------------
alias initialize_lighteffects initialize
@ lantern = 0
#--------------------------------------------------------------------------
alias update_lighteffects update
= $legacy_engine [ "Rotational Move" ] ? @ new_direction : @ direction
if @ lantern != 0 and @ lantern_direction != dir
@ lantern_direction = dir
= self . event ? ? "EL#{@id}" : "AL#{@id}"
tp = self . event ? ? 'event' : 'actor'
case @ lantern_direction
= 'lantern_downleft'
value = [ id , img , { tp => @ id }, @ lantern , - 48 , 48 , 0 , 0 , 1.0 ]
when 2
= 'lantern_down'
value = [ id , img , { tp => @ id }, @ lantern , 0 , 64 , 0 , 0 , 1.0 ]
when 3
= 'lantern_downright'
value = [ id , img , { tp => @ id }, @ lantern , 48 , 48 , 0 , 0 , 1.0 ]
when 4
= 'lantern_left'
value = [ id , img , { tp => @ id }, @ lantern , - 64 , 0 , 0 , 0 , 1.0 ]
when 6
= 'lantern_right'
value = [ id , img , { tp => @ id }, @ lantern , 64 , 0 , 0 , 0 , 1.0 ]
when 7
= 'lantern_upleft'
value = [ id , img , { tp => @ id }, @ lantern , - 48 , - 48 , 0 , 0 , 1.0 ]
when 8
= 'lantern_up'
value = [ id , img , { tp => @ id }, @ lantern , 0 , - 64 , 0 , 0 , 1.0 ]
when 9
= 'lantern_upright'
value = [ id , img , { tp => @ id }, @ lantern , 48 , - 48 , 0 , 0 , 1.0 ]
end
. lights [ id ] = value
@ lantern == 0 and @ lantern_direction != nil
= self . event ? ? "EL#{@id}" : "AL#{@id}"
$game_map . remove_lights << id if $game_map . remove_lights != nil
@ lantern_direction = nil
#==============================================================================
class Game_Event < Game_Character
#--------------------------------------------------------------------------
alias clear_starting_lighteffects clear_starting
@ lantern = 0
. remove_lights << "EV#{@id}" if $game_map . remove_lights != nil
@ page . nil ?
end
#--------------------------------------------------------------------------
def refresh_lights
for comment in comments
if comment =~ / SIMPLE [ ]* LIGHT [ ]*(\ d +)?/ i
( "EV#{@id}" , "light" , $ 1 )
elsif comment =~ / SIMPLE [ ]* LAMP [ ]*(\ d +)?/ i
( "EV#{@id}" , "lamp" , $ 1 )
elsif comment =~ / SIMPLE [ ]* TORCH [ ]*(\ d +)?/ i
( "EV#{@id}" , "torch" , $ 1 )
elsif comment =~ / SIMPLE [ ]* WINDOW [ ]* A [ ]*(\ d +)?/ i
( "EV#{@id}" , "window" , $ 1 )
elsif comment =~ / SIMPLE [ ]* WINDOW [ ]* B [ ]*(\ d +)?/ i
( "EV#{@id}" , "window" , $ 1 , 0 , 0 , 0 , - 14 )
elsif comment =~ / FLASH [ ]* LIGHT [ ]*(\ d +)?[ ]*(\ d +)?[ ]*(\ d +)?/ i
( "EV#{@id}" , "light" , $ 1 , $ 2 , $ 3 )
elsif comment =~ / FLASH [ ]* LAMP [ ]*(\ d +)?[ ]*(\ d +)?[ ]*(\ d +)?/ i
( "EV#{@id}" , "lamp" , $ 1 , $ 2 , $ 3 )
elsif comment =~ / FLASH [ ]* TORCH [ ]*(\ d +)?[ ]*(\ d +)?[ ]*(\ d +)?/ i
( "EV#{@id}" , "torch" , $ 1 , $ 2 , $ 3 , 0 , 0 , 2.0 )
elsif comment =~ / FLASH [ ]* WINDOW [ ]* A [ ]*(\ d +)?[ ]*(\ d +)?[ ]*(\ d +)?/ i
( "EV#{@id}" , "window" , $ 1 , $ 2 , $ 3 )
elsif comment =~ / FLASH [ ]* WINDOW [ ]* B [ ]*(\ d +)?[ ]*(\ d +)?[ ]*(\ d +)?/ i
( "EV#{@id}" , "window" , $ 1 , $ 2 , $ 3 , 0 , - 14 )
elsif comment =~ / LIGHT [ ]\((\ w +)\)((?:[ ]*(?:[\+\-]?\ d +))*)/ i
= []
name = $ 1.dup
$ 2.scan (/\ d +/). each {| i | v << i }
set_light ( "EV#{@id}" , name , v [ 0 ], v [ 1 ], v [ 1 ], v [ 3 ], v [ 4 ], v [ 5 ])
elsif comment =~ / LANTERN [ ]*(\ d +)?/ i
@ lantern = ($ 1.nil ? ? 255 : $ 1.to_i )
end
#--------------------------------------------------------------------------
def set_light ( id , name , op , vr = 0 , sp = 0 , x = 0 , y = 0 , zm = 1.0 )
op = op . nil ? ? 255 : op . to_i
= vr . nil ? ? 50 : vr . to_i
= sp . nil ? ? 2 : sp . to_i
= x . nil ? ? 0 : x . to_i
= y . nil ? ? 0 : x . to_i
= zm . nil ? ? 1.0 : zm . to_f
= [ id , name , { 'event' => @ id }, op , x , y , vr , sp , zm ]
$game_map . lights [ id ] = value
. remove_lights . delete ( id )
end
#==============================================================================
class Spriteset_Map
#--------------------------------------------------------------------------
attr_reader : light_effects
#--------------------------------------------------------------------------
alias initialize_lighteffects initialize
#--------------------------------------------------------------------------
alias update_lighteffects update
#--------------------------------------------------------------------------
alias dispose_lighteffects dispose
. is_a ?( Scene_Map )
end
#--------------------------------------------------------------------------
def update_light
#--------------------------------------------------------------------------
def dispose_light
if @ light_effect != nil
@ light_effect . dispose
@ light_effect = nil
@ light_values = nil
#--------------------------------------------------------------------------
def update_shade
if $game_map . light_effect != nil and (@ light_effect . nil ? or
$game_map . light_effect != @ light_values )
light_effect . dispose if @ light_effect != nil
@ light_values = $game_map . light_effect
@ light_effect = Sprite_Light .new(@ light_values , @ viewport2 )
$game_map . event_list . each {| ev | ev . refresh_lights }
elsif $game_map . light_effect != nil and @ light_effect != nil
@ light_effect . update
. light_effect . nil ? and @ light_effect != nil
#--------------------------------------------------------------------------
def update_effects
return if @ light_effect . nil ? or $game_map . lights .empty?
key in $game_map . lights . keys
if $game_map . remove_lights .include?( key )
light_effect . remove_light ( key )
$game_map . lights . delete ( key )
next
if @ light_effect . lights [ key ] != nil and
light_effect . lights [ key ]. values == $game_map . lights [ key ]
light_effect . create_light ( $game_map . lights [ key ])
end
. remove_lights . clear
#--------------------------------------------------------------------------
def update_shade_opacity
if $game_map . opacity_change != nil
@ light_effect . opacity_change ( $game_map . opacity_change )
$game_map . opacity_change = nil
#==============================================================================
class Interpreter
#--------------------------------------------------------------------------
def create_shade ( op = 160 , red = 0 , green = 0 , blue = 0 , type = 2 )
$game_map . light_effect = [ type , red , green , blue , op , true ]
end
#--------------------------------------------------------------------------
def change_opacity ( op = 160 , speed = 1 )
$game_map . light_effect . nil ?
$game_map . opacity_change = [ op , speed ]
end
#--------------------------------------------------------------------------
def player_light ( img , id , index = 0 , op = 160 , x = 0 , y = 0 ,
0 , speed = 0 , zoom = 1.0 )
actor = ( $legacy_engine [ "Caterpillar" ] and index > 0 ) ?
$game_player . actors [ index - 1 ] : $game_player
return if actor . nil ?
actor = { 'actor' => index }
$game_map . lights [ id ] = [ id , img , actor , op , x , y , var, speed , zoom ]
end
#--------------------------------------------------------------------------
def event_light ( img , id , index = 0 , op = 160 , x = 0 , y = 0 ,
0 , speed = 0 , zoom = 1.0 )
$game_map . events [ index ]. nil ?
event = { 'event' => index }
$game_map . lights [ id ] = [ id , img , event , op , x , y , var, speed , zoom ]
end
#--------------------------------------------------------------------------
def map_light ( img , id , mx = 0 , my = 0 , op = 160 , x = 0 , y = 0 ,
0 , speed = 0 , zoom = 1.0 )
pos = {: x => mx , : y => my }
$game_map . lights [ id ] = [ id , img , pos , op , x , y , var, speed , zoom ]
end
#--------------------------------------------------------------------------
def remove_light ( id )
$game_map . remove_lights << id if $game_map . remove_lights != nil
#--------------------------------------------------------------------------
def shade_opacity
return $game_map . shade_opacity
#--------------------------------------------------------------------------
def player_lantern_on ( index = 0 , opacity = 255 )
actor = ( $legacy_engine [ "Caterpillar" ] and index > 0 ) ?
$game_player . actors [ index - 1 ] : $game_player
return if actor . nil ?
actor . lantern = opacity
#--------------------------------------------------------------------------
def player_lantern_off ( index = 0 )
actor = ( $legacy_engine [ "Caterpillar" ] and index > 0 ) ?
$game_player . actors [ index - 1 ] : $game_player
return if actor . nil ?
actor . lantern = 0
#--------------------------------------------------------------------------
def event_lantern_on ( index = 0 , opacity = 255 )
$game_map . events [ index ]. nil ?
$game_map . events [ index ]. lantern = opacity
#--------------------------------------------------------------------------
def event_lantern_off ( index = 0 )
$game_map . events [ index ]. nil ?
$game_map . events [ index ]. lantern = 0
#==============================================================================
class Scene_Map
#--------------------------------------------------------------------------
attr_reader : spriteset
#--------------------------------------------------------------------------
alias transfer_player_lighteffects transfer_player
@ spriteset . dispose_light
. clear_lights
Zitieren
.
