Twierdza RPG Maker

	Informacje \|\| Problemy z RPGXP \|\| Zgłoś nowe materiały
	RPG Maker :: RPG Maker XP

Zeus Video Player

Istnieje już wiele skryptów do RPG Makera XP, VX i VX Ace obsługujących odtwarzanie plików wideo jednak ten jak do tej pory okazuje się bezkonkurencyjny.

Oto kilka jego możliwości:

Brak migotania ekranu.
Nie przełamuje pełnoekranowego trybu, F1 i F12.
Posiada opcję wyśrodkowania bądź dopasowania ekranu odtwarzacza do dowolnej rozdzielczości.
Opcjonalnie można zamknąć odtwarzacz przed końcem odtwarzania filmu naciskając klawisz Enter bądź Escape.
Wstrzymuje odtwarzanie pliku, gdy wyświetlany obraz traci ostrość.
Posiada opcję wyboru obrazu tła odtwarzacza (w przypadku, gdy odtwarzacz nie wypełnia całej przestrzeni ekranu) Będzie on automatycznie załadowany z pliku o nazwie "ZeusVideoPlayer", jeżeli owy znajdzie się w folderze Pictures.

Jeżeli szukasz formatu pliku, który powinien poprawnie odtwarzać się na prawie wszystkich komputerach to możesz sprawdzić ten link: http://support.microsoft.com/kb/899113 (informacja w postaci PDF można znaleźć też w projekcie demonstracyjnym) Instalacja
Otwieramy edytor skryptu. Pod modułem z materiałami (# Materials) dodajemy nową linijkę i nazywamy ją np. Mod_ZeusVideoPlayer Wklejamy do prawego okna skrypt, który zamieszczony jest pod opisem użycia.

Opis użycia
Graphics.play_movie( filename, cancellable, fit_to_screen )

- filename = ścieżka do pliku

- cancellable = true / false

true - jeżeli chcesz, aby gracz mógł zatrzymać odtwarzanie filmu, naciskając klawisz Enter bądź Escape
false - jeżeli chcesz aby opcja ta była dla gracza blokowana

- fit_to_screen = true / false

true - jeśli chcesz by film został rozciągnięty do rozmiaru ekranu.
false - jeżeli ma to być wyświetlany na środku ekranu.

W przypadku używania skryptów takich jak Fullscreen ++ zaleca się ustawienie tej wartości na true. Opcja ta może być pominięta a wartością domyślną jest true.

np.: Graphics.play_movie( "Movies/prout.avi", true, true )
lub: Graphics.play_movie( "Movies/prout.avi" )
Skrypt


# Zeus Video Player v2.3 dla RPG Maker-a XP, VX i VXace napisany przez Zeus81
# Darmowy do komercyjnego użycia
# Licencja : http://creativecommons.org/licenses/by/4.0/
# Kontakt : zeusex81@gmail.com
#
# Jak używać :
#   Graphics.play_movie( filename, cancellable, fit_to_screen )
#   - filename = path of the video file.
#   - cancellable = true - jeżeli chcesz, aby gracz mógł zatrzymać odtwarzanie filmu, naciskając klawisz Enter bądź Escape
#                   false - jeżeli chcesz aby  opcja ta była dla gracza blokowana
#                   Opcja ta może być pominięta a wartością domyślną jest true.
#   - fit_to_screen = true - jeśli chcesz by film został rozciągnięty do rozmiaru ekranu.
#                     false - jeżeli ma to być wyświetlany na środku ekranu.
#                     W przypadku używania skryptów takich jak Fullscreen ++ zaleca się ustawienie tej wartości na true.
#                     Opcja ta może być pominięta a wartością domyślną jest true.
#   np. : Graphics.play_movie( "Movies/prout.avi", true, true )
#   lub : Graphics.play_movie( "Movies/prout.avi" )
#
# Wybór kodeków :
#   Listę kodeków domyślnie zainstalowanych w systemie Windows można znaleźć tutaj:
#   http://support.microsoft.com/kb/899113
#
# Obraz w tle :
#   Skrypt posiada opcję wyboru obrazu tła odtwarzacza (w przypadku, gdy film nie wypełnia całkowitej przestrzeni ekranu).
#   Zostanie on automatycznie załadowany z pliku "ZeusVideoPlayer", jeżeli znajduje się on w folderze Pictures (rozszerzenie nie ma znaczenia).
#   Jeżeli plik nie istnieje to jego ekran będzie czarny.
#
# Znane błedy :
#  - Z niektórymi kodekami centrowanie odtwarzacza nie działa w trybie pełnoekranowym.
#  - Po włączeniu trybu pełnoekranowego podczas odtwarzania filmu, odtwarzacz może zamarznąć.
#  - Sometimes the display doesn't render when playing a video for the second time.
#  - Dziwne zachowanie w trybie pełnoekranowym.
#
# ZVP_OldAviMode :
#   Tuż poniżej można włączyć ten tryb, ustawiając zmienną na true.
#   Zalety :
#     - Bardziej stabilne, brak znanych błędów.
#   Wady   :
#     - Tryb odtwarza tylko pliki .avi
#     - Nalezy używać kodeków VFW oraz domyślnych kodeków systemu Windows, które są bardzo ograniczone.
#       Wyczerpujący wykaz: MS RLE, MS Wideo 1, Cinepak, IYUV.
#       Każdy inny kodek wymaga instalacji po stronie użytkownika i upewnienia się że jest on obsługiwany.
#       Jeżeli powyższa sugestia nie stanowi problemu, to bardzo ciekawe kodeki VFW mozna znaleźć w internecie, np x264vfw.
#     - Należy używać kodeków audio ACM
#       Domyślnie dla Windows: MP3, PCM.
#       Można również znaleźć kodeki do innych formatów jak AAC ACM.

module Graphics
  ZVP_OldAviMode = false
end

$imported ||= {}
$imported[:Zeus_Video_Player] = __FILE__

def xp?() false end ; def vx?() false end ; def vxace?() false end
RUBY_VERSION == '1.8.1' ? defined?(Hangup) ?
def xp?() true  end : def vx?() true  end : def vxace?() true  end

Cache = RPG::Cache if xp?

class String
  alias getbyte  []
  alias setbyte  []=
  alias bytesize size
end unless vxace?

module Zeus
  module Encode # 1.1
    MultiByteToWideChar = Win32API.new('kernel32', 'MultiByteToWideChar', 'iipipi'  , 'i')
    WideCharToMultiByte = Win32API.new('kernel32', 'WideCharToMultiByte', 'iipipipp', 'i')
    CodePages = {
      'ANSI'=>0, 'OEM'=>1, 'MAC'=>2, 'THREAD_ANSI'=>3, 'SYMBOL'=>42,
      'WINDOWS874'=>874, 'SHIFT_JIS'=>932, 'BIG5'=>950, 'WINDOWS1250'=>1250,
      'WINDOWS1251'=>1251, 'WINDOWS1252'=>1252, 'WINDOWS1253'=>1253,
      'WINDOWS1254'=>1254, 'WINDOWS1255'=>1255, 'WINDOWS1256'=>1256,
      'WINDOWS1257'=>1257, 'WINDOWS1258'=>1258, 'US_ASCII'=>20127,
      'ISO8859_1'=>28591, 'ISO8859_2'=>28592, 'ISO8859_3'=>28593,
      'ISO8859_4'=>28594, 'ISO8859_5'=>28595, 'ISO8859_6'=>28596,
      'ISO8859_7'=>28597, 'ISO8859_8'=>28598, 'ISO8859_9'=>28599,
      'ISO8859_13'=>28603, 'ISO8859_15'=>28605, 'ISO8859_8I'=>38598,
      'ISO2022_JP'=>50220, 'ISO2022_KR'=>50225, 'ISO2022_CN'=>50227,
      'EUC_JP'=>51932, 'EUC_CN'=>51936, 'EUC_KR'=>51949, 'GB2312'=>52936,
      'UTF7'=>65000, 'UTF8'=>65001, 'UTF16'=>-1
    }
    def self.encode(str, from, to, dchar=nil, dflag=nil)
      if from != -1
        l = MultiByteToWideChar.call(from, 0, str, str.bytesize, nil, 0)
        utf16 = [].pack('x') * (l*2)
        MultiByteToWideChar.call(from, 0, str, str.bytesize, utf16, l)
      else utf16 = str
      end
      if to != -1
        l = WideCharToMultiByte.call(to, 0, utf16, utf16.bytesize/2, nil, 0, dchar, dflag)
        str = [].pack('x') * l
        WideCharToMultiByte.call(to, 0, utf16, utf16.bytesize/2, str, l, dchar, dflag)
      else str = utf16
      end
      case to
      when 20127; str.force_encoding('US-ASCII')
      when 65001; str.force_encoding('UTF-8')
      when    -1; str.force_encoding('UTF-16LE')
      end if vxace?
      str
    rescue raise($!, $!.message, caller(vxace? ? 2 : 1))
    end
    def self.method_missing(method, str, *options)
      from, to = *method.to_s.upcase.split('_TO_', 2).map! {|s| CodePages[s]}
      super unless from and to
      encode(str, from, to, *options)
    rescue raise($!, $!.message, caller(vxace? ? 2 : 1))
    end
  end
end

module Graphics
  DefWindowProc       = Win32API.new('user32', 'DefWindowProc'      , 'iiii', 'i')
  DestroyWindow       = Win32API.new('user32', 'DestroyWindow'      , 'i'   , 'i')
  EnableWindow        = Win32API.new('user32', 'EnableWindow'       , 'ii'  , 'i')
  FindWindow          = Win32API.new('user32', 'FindWindow'         , 'pp'  , 'i')
  GetClientRect       = Win32API.new('user32', 'GetClientRect'      , 'ip'  , 'i')
  GetForegroundWindow = Win32API.new('user32', 'GetForegroundWindow', ''    , 'i')
  GetMessage          = Win32API.new('user32', 'GetMessage'         , 'piii', 'i')
  GetWindowLong       = Win32API.new('user32', 'GetWindowLong'      , 'ii'  , 'i')
  PostMessage         = Win32API.new('user32', 'PostMessage'        , 'iiii', 'i')
  RedrawWindow        = Win32API.new('user32', 'RedrawWindow'       , 'ipii', 'i')
  SetWindowLong       = Win32API.new('user32', 'SetWindowLong'      , 'iii' , 'i')
  MciGetErrorString   = Win32API.new('winmm' , 'mciGetErrorStringW' , 'ipi' , 'i')
  MciSendString       = Win32API.new('winmm' , 'mciSendStringW'     , 'ppii', 'i')
  class << self
    def hwnd() @hwnd ||= FindWindow.call('RGSS Player', nil) end
    def play_movie(filename, cancellable = true, fit_to_screen = true)
      @zvp ||= {:buffer => [].pack('x') * 256}
      @zvp[:filename] = Dir["#{filename}.*"][0] || filename
      @zvp[:cancellable] = cancellable
      @zvp[:fit_to_screen] = fit_to_screen
      return unless open_video_player
      back_sprite = Sprite.new
      back_sprite.z = 0x7FFF_FFFF
      begin
        cached = true
        back_sprite.bitmap = Cache.picture('ZeusVideoPlayer')
        back_sprite.zoom_x = width  / back_sprite.bitmap.width.to_f
        back_sprite.zoom_y = height / back_sprite.bitmap.height.to_f
      rescue
        cached = false
        back_sprite.bitmap = Bitmap.new(1, 1)
        back_sprite.bitmap.set_pixel(0, 0, Color.new(0,0,0))
        back_sprite.zoom_x = width
        back_sprite.zoom_y = height
      end
      frame_reset
      update
      update_video_player
      back_sprite.bitmap.dispose unless cached
      back_sprite.dispose
    ensure
      close_video_player
    end
    def width()  640 end unless method_defined?(:width)
    def height() 480 end unless method_defined?(:height)
  private
    def mci(command)
      error = mci_silent(command)
      return true if error == 0
      MciGetErrorString.call(error, @zvp[:buffer], @zvp[:buffer].bytesize/2)
      print(mci_result, "\nCommand : ", command)
      return false
    end
    def mci_silent(command)
      command = Zeus::Encode.utf8_to_utf16("#{command}\0")
      MciSendString.call(command, @zvp[:buffer], @zvp[:buffer].bytesize/2, hwnd)
    end
    def mci_result
      str = Zeus::Encode.utf16_to_utf8(@zvp[:buffer])
      str[0, str.index("\0")]
    end
    def open_video_player(position=0)
      if ZVP_OldAviMode
        return false unless mci("open \"#{@zvp[:filename]}\" type AVIVideo alias ZeusVideoPlayer")
        return false unless mci("window ZeusVideoPlayer handle #{hwnd}")
        return false unless mci("play ZeusVideoPlayer from #{position} notify")
      else
        return false unless mci("open \"#{@zvp[:filename]}\" type MPEGVideo style Child parent #{hwnd} alias ZeusVideoPlayer")
        return false unless mci("play ZeusVideoPlayer from #{position} notify")
        return false unless mci('status ZeusVideoPlayer window handle')
        @zvp[:hwnd] = mci_result.to_i
        EnableWindow.call(@zvp[:hwnd], 0)
        style = GetWindowLong.call(hwnd, -16) #GWL_STYLE
        SetWindowLong.call(hwnd, -16, style | 0x02000000) #WS_CLIPCHILDREN
      end
      return true
    end
    def close_video_player
      if !ZVP_OldAviMode and @zvp[:hwnd]
        DestroyWindow.call(@zvp[:hwnd])
        @zvp[:hwnd] = nil
      end
      mci_silent('stop ZeusVideoPlayer')
      mci_silent('close ZeusVideoPlayer')
    end
    def resize_video_player
      if mci_silent('where ZeusVideoPlayer source') == 0
        x, y, w, h = *mci_result.split(' ', 4).map! {|s| s.to_i}
        GetClientRect.call(hwnd, @zvp[:buffer])
        client_w, client_h = *@zvp[:buffer].unpack('x8L2')
        if @zvp[:fit_to_screen]
          ratio = w / h.to_f
          w, h = client_w, (client_w / ratio).round
          h, w = client_h, (client_h * ratio).round if h > client_h
        end
        x, y = (client_w-w)/2, (client_h-h)/2
        window = ZVP_OldAviMode ? 'destination' : 'window'
        mci_silent("put ZeusVideoPlayer #{window} at #{x} #{y} #{w} #{h}")
      end
      RedrawWindow.call(@zvp[:hwnd] || hwnd, nil, 0, 0)
    end
    def update_video_player
      focus = false
      loop do
        GetMessage.call(@zvp[:buffer], 0, 0, 0)
        DefWindowProc.call(*msg = @zvp[:buffer].unpack('L4'))
        if focus != (GetForegroundWindow.call == hwnd)
          focus = !focus
          mci_silent("#{focus ? 'resume' : 'pause'} ZeusVideoPlayer")
          resize_video_player
        end
        next unless focus
        Input.update
        if Input.trigger?(Input::B) or Input.trigger?(Input::C)
          mci_silent('stop ZeusVideoPlayer') if @zvp[:cancellable]
        elsif Input.trigger?(Input::F5) or Input.trigger?(Input::F6)
          if $imported[:Zeus_Fullscreen] and !vx_fullscreen?
            update
            resize_video_player
          end
        end
        case msg[1]
        when 0x0012 #WM_QUIT
          exit
        when 0x0100 #WM_KEYDOWN
          next if msg[3][30] == 1
          case msg[2]
          when 0x70, 0x7B #VK_F1, VK_F12
            focus = false
            mci_silent('pause ZeusVideoPlayer')
            PostMessage.call(*msg)
            update
          end
        when 0x0104 #WM_SYSKEYDOWN
          next if msg[2] != 0x0D or msg[3][30] == 1
          next if $imported[:Zeus_Fullscreen] and Disable_VX_Fullscreen
          if ZVP_OldAviMode
            PostMessage.call(*msg)
            update
            resize_video_player
          else
            next if mci_silent('status ZeusVideoPlayer position') != 0
            position = mci_result.to_i
            close_video_player
            PostMessage.call(*msg)
            update
            break unless open_video_player(position)
            resize_video_player
          end
        else
          mci_silent('status ZeusVideoPlayer length')
          length = mci_result.to_i
          mci_silent('status ZeusVideoPlayer position')
          break if mci_result.to_i >= length
          mci_silent('status ZeusVideoPlayer mode')
          break if mci_result == 'stopped'
        end
      end
    end
    if xp?
      alias anti_hangup_update_video_player update_video_player
      def update_video_player
        anti_hangup_update_video_player
      rescue Hangup
        retry
      end
    end
  end
end

Autor: Zeus81
Email: zeusex81@gmail.com
Pobierz:

Gra demonstracyjna: Animated Title Screen Celia V 1.4

Tekst: Tepe
Email: tepe15.bpl@gmail.com