[XP / VX / VXAce] Filmiki w Grze

Spoiler: (Otwórz)
Kod:

# Zeus Video Player v2.1.2 for XP, VX and VXace by Zeus81  / Translated by Yoroiookami

# Wolne do użytku komercyjnego

# Licencja : http://creativecommons.org/licenses/by/4.0/ 

# Kontakt : zeusex81@gmail.com 

# 

# Jak używać : 

#   Graphics.play_movie( filename, cancellable, fit_to_screen ) 

#   - filename = ścieżka do pliku

#   - cancellable = true jeśli gracz ma mieć możliwość zatrzymania filmiku klikając

#                   Enter lub Escape, w przeciwnym wypadku false

#                   Ta opcja może zostać pominięta jeśli domyślna wartość wynosi true.

#   - fit_to_screen = true jeśli chcesz by wideo dopasowywało wielkość do ekranu

#                     w przypadku, gdy się nie mieści. False jeśli ma być wyśrodkowane.

#                     Jeżeli używasz skryptów typu "Fullscreen", true jest rekomendowane.

#                     Ta opcja może zostać pominięta jeśli domyślna wartość wynosi true.

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

#   lub   Graphics.play_movie( "Movies/prout.avi" ) 

# 

# Wybór kodeków : 

#  Nie testowałem wszystkich, ale zdaje się wmv9 (standardowe) jest dobrym wyborem.

#   Możesz znaleźć nazwy dostępnych kodeków na tej stronie:

#   http://support.microsoft.com/kb/899113 

# 

# Obrazek w Tle : 

#   Możesz wybrać obrazek tła gracza (w przypadku gdy wideo nie wypełnia całego okienka). 

#   Domyślnie załadowany zostanie obraz "ZeusVideoPlayer" jeśli znaleziony jest w folderze Pictures (format nie ma znaczenia. 

#   Jeżeli nie zostanie znaleziony, obraz będzie czarny.

# 

# Znane błędy : 

#  - Niektóre kodeki przy pełnym ekranie nie działają, gdy obraz ma być dopasowany.

#  - Jeżeli pełny ekran zostanie włączony przy pokazywaniu filmiku, wideo może się zawiesić.

#  - Czasami niemożliwe jest pokazanie tego samego filmiku. 

#  - Dziwne zachowanie w pełnym ekranie.

# 

# ZVP_OldAviMode : 

#   Poniżej możecie zmienić wartość na "true", aby włączyć ten tryb.

#   Zalety: 

#     - Bardziej stabilne, bez błędów.

#   Wady : 

#     - Może pokazywać tylko filmiki typu '.avi'.

#     - Musisz użyć kodeków vfw dla wideo, a domyślne kodeki windowsa są ograniczone.

#       Lista niedziałających kodeków: MS RLE, MS Video 1, Cinepak, iyuv.  I wszystkie są do niczego.

#       Każdy inny kodek będzie musiał być instalowany ręcznie, przez gracza. 

#       Jeśli to nie jest prolemem, znajdź dobre kodeki, typu vfw w internecie, np. x264vfw. 

#     - Musisz użyć kodeków acm dla dźwięku.

#       Domyślne kodeki windowsa : mp3, pcm. 

#       Możesz także znaleźć lepsze kodeki, 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') 

  HWND = FindWindow.call('RGSS Player', nil) 

  class << self

    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 != (HWND == GetForegroundWindow.call) 

          focus = !focus 

          mci_silent("#{focus ? 'resume' : 'pause'} ZeusVideoPlayer") 

          resize_video_player 

        end

        next unless focus 

        Input.update 

        case msg[1] 

        when 0x0012; exit #WM_QUIT 

        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 

          when 0x74, 0x75 #VK_F5, VK_F6 

            next if !$imported[:Zeus_Fullscreen] or vx_fullscreen? 

            update 

            resize_video_player 

          when 0x0D, 0x1B #VK_RETURN, VK_ESCAPE 

            mci_silent('stop ZeusVideoPlayer') if @zvp[:cancellable] 

          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 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