[Erledigt] "Verschwommen" Effekt beim XP

[Shining Advances]

diese dll in den ordner des spieles kopieren
http://www.megaupload.com/?d=AH786RAB
un das script über main einfügen:

Code:

module Capture
  begin
    @@cap = Win32API.new('capture','capture','l','l').freeze
  rescue Exception
    raise if $DEBUG
    raise( LoadError , "cannot read modules.(capture.dll)",caller(0))
  end
  def self.capture
    b = Bitmap.new(640,480)
    if( s = @@cap.call( b.object_id )) != 0
    end
    b
  end
end
class Game_System
  alias initialize_blur initialize
  attr_accessor :blur
  def initialize
    initialize_blur
    @blur = false
  end
end
class Spriteset_Map
  alias update_blur update
  alias initialize_blur initialize
  alias dispose_blur dispose
  def initialize
    @blur = [Sprite.new,Sprite.new,Sprite.new,Sprite.new]
    if $game_system.blur
      bit = Capture.capture
    else
      bit = Bitmap.new(1,1)
    end
    for i in 0...4
      @blur[i].x = i/2*2-1
      @blur[i].y = (i%2)*2-1
      @blur[i].bitmap = bit
      @blur[i].opacity = 50
      @blur[i].z = 90
    end
    initialize_blur
  end
  def dispose
    dispose_blur
    @blur[0].bitmap.dispose
    for i in 0...4
      @blur[i].dispose
    end
  end
  def update
    update_blur
    if $game_system.blur
      @blur[0].bitmap.dispose
      @blur[0].bitmap = Capture.capture
      @blur[0].visible = true
      for i in 1...4
        @blur[i].bitmap = @blur[0].bitmap
        @blur[i].visible = true
      end
    else
      for i in 0...4
        @blur[i].visible = false
      end
    end
  end
end

ein bzw ausschalten kannst du den blur per call script

Code:

$game_system.blur = true

bzw

Code:

$game_system.blur = false
a = "b"

der maker hat die angewohnheit sich bei call scripts, die auf "= false" enden, aufzuhängen, deshalb das (eigentlich nutzlose) a = "b"

credits gehen an white-flute und mich (mich musste nicht nennen, white flute hat mit dem screenshotscript eigtl den großteil der arbeit vollbracht)