Ruby Quellcode

#==============================================================================
 #==============================================================================
 #Light Circle Script updated(19-7-2009)
 #==============================================================================
 #==============================================================================
 # ** Spriteset_Map
 #------------------------------------------------------------------------------
 #   This class brings together map screen sprites, tilemaps, etc.
 #   It's used within the Scene_Map class.
 #==============================================================================
  class Scene_Save < Scene_File
 
      alias t_write_save_data write_save_data
 
      def write_save_data(file)
      t_write_save_data(file)
      Marshal.dump($sensitivity,file)
      Marshal.dump($sensitivity_2,file)
      Marshal.dump($light_switch,file)
      Marshal.dump($flick,file)
   end
   end
 #==============================================================================
  class Scene_Load < Scene_File
      alias t_read_save_data read_save_data
      def read_save_data(file)
         t_read_save_data(file)
        $sensitivity = Marshal.load(file)
        $sensitivity_2 = Marshal.load(file)
        $light_switch = Marshal.load(file)
        $flick = Marshal.load(file)
      end
      end
  #==============================================================================
 class Game_Player< Game_Character
   def change_sensitivity(value,type)
      case type
      when "sensitivity"
         $sensitivity=value
         when "sensitivity_2"
            $sensitivity_2[0]=value
      end
      end
   end
 #==============================================================================
 
 class Scene_Title
  #------------------------------------------------------------------------#change initial sensitivity
  alias t_main main
   def main
     $light_switch=1
      $sensitivity=1
      $sensitivity_2=[]
      $sensitivity_2[0]=1
      $flick=0
      t_main
      end
   end
 
 
  #==============================================================================
 class Spriteset_Map
   #--------------------------------------------------------------------------
   # * Object Initialization
   #--------------------------------------------------------------------------
   def initialize
      #-------------------------------------------------------------------change initial setting
      @tone=75
      @limit=0.2
      @light_limit=7
      @x_limit=640
      @y_limit=480
      #---------------------------------------------------------------------------
      @random=[]
      @r_value=[]
     @black=[]
      @x_x=[]
      @y_y=[]
      @xx=[]
      @yy=[]
      black_once
      i=0
      loop do
         @black[i]=-@tone
         break if i=10
         i+=1
      end
      @viewport1 = Viewport.new(0, 0, 640, 480)
      @viewport2 = Viewport.new(0, 0, 640, 480)
      @viewport3 = Viewport.new(0, 0, 640, 480)
      @viewport4=[]
      @viewport5=[]
      @viewport8=[]
      #------------------------------------
        @y=0
      loop do
         @x=0
      loop do
      @viewport4[@y*21+@x] = Viewport.new(@x*32-16, @y*32-16, 32, 32)
      @viewport4[@y*21+@x].tone = Tone.new(-255, -255, -255, 0)
      @viewport4[@y*21+@x].z = 199
      @viewport5[@y*21+@x] = Viewport.new(@x*32-27, @y*32-27, 32, 32)
      @viewport5[@y*21+@x].tone = Tone.new(-255, -255, -255, 0)
      @viewport5[@y*21+@x].z = 199
      @viewport8[@y*21+@x] = Viewport.new(@x*32-5, @y*32-5, 32, 32)
      @viewport8[@y*21+@x].tone = Tone.new(-255, -255, -255, 0)
      @viewport8[@y*21+@x].z = 199
      break if @x==20
      @x+=1
   end
   break if @y==15
   @y+=1
 end
 
      #------------------------------------
      @viewport2.z = 200
      @viewport3.z = 5000
      # Make tilemap
      @tilemap = Tilemap.new(@viewport1)
      @tilemap.tileset = RPG::Cache.tileset($game_map.tileset_name)
      for i in 0..6
         autotile_name = $game_map.autotile_names[i]
         @tilemap.autotiles[i] = RPG::Cache.autotile(autotile_name)
      end
      @tilemap.map_data = $game_map.data
      @tilemap.priorities = $game_map.priorities
      # Make panorama plane
      @panorama = Plane.new(@viewport1)
      @panorama.z = -1000
      # Make fog plane
      @fog = Plane.new(@viewport1)
      @fog.z = 3000
      # Make character sprites
      @character_sprites = []
      for i in $game_map.events.keys.sort
         sprite = Sprite_Character.new(@viewport1, $game_map.events[i])
         @character_sprites.push(sprite)
      end
      @character_sprites.push(Sprite_Character.new(@viewport1, $game_player))
      # Make weather
      @weather = RPG::Weather.new(@viewport1)
      # Make picture sprites
      @picture_sprites = []
      for i in 1..100
         @picture_sprites.push(Sprite_Picture.new(@viewport2,
            $game_screen.pictures[i]))
         end
 
      # Make timer sprite
      @timer_sprite = Sprite_Timer.new
      # Frame update
      update
   end
   #--------------------------------------------------------------------------
   # * Dispose
   #--------------------------------------------------------------------------
   def dispose
      # Dispose of tilemap
      @tilemap.tileset.dispose
      for i in 0..6
         @tilemap.autotiles[i].dispose
      end
      @tilemap.dispose
      # Dispose of panorama plane
      @panorama.dispose
      # Dispose of fog plane
      @fog.dispose
      # Dispose of character sprites
      for sprite in @character_sprites
         sprite.dispose
      end
      # Dispose of weather
      @weather.dispose
      # Dispose of picture sprites
      for sprite in @picture_sprites
         sprite.dispose
      end
      # Dispose of timer sprite
      @timer_sprite.dispose
      # Dispose of viewports
      @viewport1.dispose
      @viewport2.dispose
      @viewport3.dispose
      @y=0
      loop do
         @x=0
      loop do
      @viewport4[@y*21+@x].dispose
      @viewport5[@y*21+@x].dispose
      @viewport8[@y*21+@x].dispose
      break if @x==20
      @x+=1
   end
   break if @y==15
   @y+=1
   end
   end
      #--------------------------------------------------------------------------
   # * call character sprite
   #--------------------------------------------------------------------------
   def character_sprites(id)
      return @character_sprites[id]
   end
   #--------------------------------------------------------------------------
   # * Frame Update
   #--------------------------------------------------------------------------
   def black_once
      for event in $game_map.events.values
           if event.list && event.list[0].code == 108
              i=1
              loop do
         if event.list[0].parameters.to_s == i.to_s
               @xx[i]=event.x*32
               @yy[i]=event.y*32
$sensitivity_2[i]=event.list[1].parameters.to_s .to_i
@r_value[i]=event.list[2].parameters.to_s .to_i
            end
            break if i== @light_limit
            i+=1
          end
 
         end
        end
   end
 
   #-------------------------------------------------------------------------
   def find_black
 
      @x_x[0] = (@x)*32-($game_player.x*32-$game_map.display_x/4)-16
         @y_y[0] = (@y)*32-($game_player.y*32-$game_map.display_y/4) -16
         x2=(@x_x[0])*(@x_x[0])
         y2=(@y_y[0])*(@y_y[0])
@black[0] =(($sensitivity+$sensitivity_2[0]+@random[0])*60)/((x2+y2)*0.0005+5)#($sensitivity+$sensitivity_2[0])/(Math.sqrt(x2+y2))
      i=1
      loop do
         if @xx[i]==nil
            break
           end
         @x_x[i]=@x*32-(@xx[i]-$game_map.display_x/4)-16
      @y_y[i]=@y*32-(@yy[i]-$game_map.display_y/4)-16
if !((@xx[i] -   $game_player.x*32) > @x_limit || (@xx[i] -   $game_player.x*32) <-@x_limit || (@yy[i] -   $game_player.y*32) > @y_limit || (@yy[i] -   $game_player.y*32) <-@y_limit )
@black[i] =(($sensitivity+$sensitivity_2[i]+@random[i])*60)/((@x_x[i]*@x_x[i]+@y_y[i]*@y_y[i])*0.0005+5)#($sensitivity+$sensitivity_2[i])/(Math.sqrt(@x_x[i]*@x_x[i]+@y_y[i]*@y_y[i]))
@black[0]+=@black[i]
end
 
break if i==@light_limit
 i+=1
end
@black[0]=@black[0]-@tone
end
 
 
 #------------------------------------------------------------------------------
   def update
      # If panorama is different from current one
      if @panorama_name != $game_map.panorama_name or
           @panorama_hue != $game_map.panorama_hue
         @panorama_name = $game_map.panorama_name
         @panorama_hue = $game_map.panorama_hue
         if @panorama.bitmap != nil
            @panorama.bitmap.dispose
            @panorama.bitmap = nil
         end
         if @panorama_name != ""
            @panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)
         end
         Graphics.frame_reset
      end
      # If fog is different than current fog
      if @fog_name != $game_map.fog_name or @fog_hue != $game_map.fog_hue
         @fog_name = $game_map.fog_name
         @fog_hue = $game_map.fog_hue
         if @fog.bitmap != nil
            @fog.bitmap.dispose
            @fog.bitmap = nil
         end
         if @fog_name != ""
            @fog.bitmap = RPG::Cache.fog(@fog_name, @fog_hue)
         end
         Graphics.frame_reset
      end
      # Update tilemap
      @tilemap.ox = $game_map.display_x / 4
      @tilemap.oy = $game_map.display_y / 4
      @tilemap.update
      # Update panorama plane
      @panorama.ox = $game_map.display_x / 8
      @panorama.oy = $game_map.display_y / 8
      # Update fog plane
      @fog.zoom_x = $game_map.fog_zoom / 100.0
      @fog.zoom_y = $game_map.fog_zoom / 100.0
      @fog.opacity = $game_map.fog_opacity
      @fog.blend_type = $game_map.fog_blend_type
      @fog.ox = $game_map.display_x / 4 + $game_map.fog_ox
      @fog.oy = $game_map.display_y / 4 + $game_map.fog_oy
      @fog.tone = $game_map.fog_tone
      # Update character sprites
      for sprite in @character_sprites
         sprite.update
      end
      # Update weather graphic
      @weather.type = $game_screen.weather_type
      @weather.max = $game_screen.weather_max
      @weather.ox = $game_map.display_x / 4
      @weather.oy = $game_map.display_y / 4
      @weather.update
      # Update picture sprites
      for sprite in @picture_sprites
         sprite.update
      end
      # Update timer sprite
      @timer_sprite.update
      # Set screen color tone and shake position
      @viewport1.tone = $game_screen.tone
      @viewport1.ox = $game_screen.shake
      # Set screen flash color
      @viewport3.color = $game_screen.flash_color
      # Update viewports
         @viewport1.update
      @viewport3.update
 
      if Graphics.frame_count % (6) == 0
        if $light_switch==1
          @random[0]=rand($flick+1)
      i=1
          loop do
            @r_value[i]=0 if @r_value[i]==nil
          @random[i]=rand(@r_value[i]+1)
          break if i==@light_limit
          i+=1
          end     
      @y=0
      loop do
         @x=0
      loop do
 find_black
 @black[0]=0 if @black[0]>0
  @black[0]=-@tone if @black[0]<-@tone
      @viewport4[@y*21+@x].tone =Tone.new(@black[0], @black[0], @black[0], 0)
@viewport5[@y*21+@x].tone=@viewport4[[@y-1,0].max*21+[@x-1,0].max].tone
            @viewport8[@y*21+@x].tone=@viewport4[[@y+1,15].min*21+[@x+1,20].min].tone
      break if @x==20
      @x+=1
   end
   break if @y==15
   @y+=1
 end
 @on=nil
else
  if @on==nil
    @y=0
      loop do
         @x=0
      loop do
 
 
      @viewport4[@y*21+@x].tone =Tone.new(0,0,0, 0)
            @viewport5[@y*21+@x].tone=Tone.new(0,0,0, 0)
            @viewport8[@y*21+@x].tone=Tone.new(0,0,0, 0)
      break if @x==20
      @x+=1
   end
   break if @y==15
   @y+=1
 end
    @on=true
    end
 end
 end
 
 #---------------------------------------------------------------------
 
#  
   end
 end