Bienvenue
visiteur !

◂

Zeus Video Player 3.0 Permet de lire des vidéo sur RMXP sans bug. Ccompatible avec VX et VX Ace. Script pour RPG Maker XP Ecrit par Zeus81 Publié par zeus81 (lui envoyer un message privé) Signaler un script cassé

▸

❤ 0 Auteur : Zeus81 Logiciel : RPG Maker XP, VX et Ace Il existe déjà plusieurs scripts pour lire des vidéo sur RMXP mais la petite particularité de celui-ci est qu'il fonctionne aussi en plein écran... A placer au-dessus de Main. Version 3.0 (recommandée) Portion de code : Tout sélectionner 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 # Zeus Video Player v3.0.0 for XP, VX and VXace by Zeus81 # Free for commercial use # Licence MIT # Contact : zeusex81@gmail.com # #Aliased methods : # Graphics::update # # How to Use : # Video.play( filename, cancellable, stretch ) # - filename = path of the video file, extension may be omitted on vxace # but is needed otherwise for unicode support. # - cancellable = false if you don't want to allow the player to stop the video. # :Pause if you want to pause by pressing Enter or Escape. # :Stop if you want to stop by pressing Enter or Escape. # :Menu if you want to pause and open menu which let you choose Resume or Stop. # This option can be omitted and default value is :Menu # - stretch = :FitIn if you want the video to be stretched to fit the max screen # surface possible keeping ratio. # :FitOut if you want the video to truncate in order to fill the entire # screen but still keeping ratio. # :Fill if you want the video to fill the entire screen without keeping ratio. # :Center if you want the video to center without ever resizing. # This option can be omitted and default value is :FitIn # ex : Video.play( "Movies/my video.avi", :Menu, :FitIn ) # or Video.play( "Movies/my video.avi" ) # # Codec choice : # I haven't tested all of them but I guess wmv9 (standard) would be a good choice. # You can find a list of codecs installed by default on windows here : # https://support.microsoft.com/kb/899113 # # Customizing : # You can choose the background image of the player with Video.back_picture = filename, # the cancellable :Pause image with Video.pause_picture = filename, # and the :Menu images with Video.resume_picture = filename and Video.stop_picture = filename # - filename = path of the image which must be in the Pictures folder, extension may be omitted. # ex : Video.back_picture = "my video background" # # Known bugs : # - With some video codecs stretching video doesn't work. # - Fullscreen mode is the source of various bugs. # You can choose to disable it bellow by settings the NoFullscreen variable to true. # The game will automatically quit fullscreen and block it until video has finished playing. # # OldAviMode : # Just bellow you can enable this mode by setting the variable to true. # Advantages : # - More stable, no known bugs. # - You can use Video.play_to_bitmap # Drawbacks : # - It can only play avi files. # - You must use vfw codecs for video, and windows defaults vfw codecs are very limited. # Exhaustive list : MS RLE, MS Video 1, Cinepak, i420, iyuv. And they all sucks. # Any other codec will require to be installed on user side to ensure that it's supported. # But if it's not a problem then you can find very nice vfw codecs on the internet, eg x264vfw. # - You must use acm codecs for audio. # Windows defaults : mp3, pcm. # You can also find better codecs like aac acm. module Video OldAviMode = false NoFullscreen = false CancelKeys = [Input::B, Input::C] end $imported ||= {} $imported[:Zeus_Video_Player] = __FILE__ def xp?() false end; alias vx? xp?; alias vxace? xp? RUBY_VERSION == '1.8.1' ? defined?(Hangup) ? def xp?() true end : def vx?() true end : def vxace?() true end $imported[:Zeus_Frame_Dropped] ||= __FILE__ if $imported[:Zeus_Frame_Dropped] == __FILE__ module Graphics #2.0.0 unless @frame_time @frame_time, @frame_dropped = Time.now, false end class << self attr_accessor :frame_time, :frame_dropped alias zeus_frame_dropped_update update unless method_defined?(:zeus_frame_dropped_update) def update @frame_time = Time.now zeus_frame_dropped_update @frame_dropped = Time.now - @frame_time < 0.005 nil end end end end class << Graphics def width() 640 end unless method_defined?(:width) def height() 480 end unless method_defined?(:height) def hwnd() @hwnd ||= Zeus::DLL.User32.FindWindow('RGSS Player', nil) end alias zeus_video_update update unless method_defined?(:zeus_video_update) def update zeus_video_update Video.update end end Cache = RPG::Cache if xp? class Object alias msgbox print alias msgbox_p p def instance_variable_defined?(var) instance_variables.include?(var) end end unless vxace? class String alias getbyte [] alias setbyte []= alias bytesize size def start_with?(*args) args.any? {|str| str.is_a?(String) and index(str) == 0} end def end_with?(*args) args.any? {|str| str.is_a?(String) and rindex(str) == size-str.size} end end unless vxace? class Bitmap def last_row_address Zeus::DLL.Kernel32.RtlMoveMemory(buf=[0].pack('L'), __id__*2+16, 4) Zeus::DLL.Kernel32.RtlMoveMemory(buf, buf.unpack('L')[0]+8 , 4) Zeus::DLL.Kernel32.RtlMoveMemory(buf, buf.unpack('L')[0]+16, 4) buf.unpack('L')[0] end end module Sound def self.play_ok() $game_system.se_play($data_system.decision_se) end def self.play_cancel() $game_system.se_play($data_system.cancel_se) end def self.play_cursor() $game_system.se_play($data_system.cursor_se) end def self.play_buzzer() $game_system.se_play($data_system.buzzer_se) end end if xp? module Zeus class DLL #2.0.0 def initialize(dll) @dll = dll.to_s.dup end def [](api_name, var_name=api_name) var_name = "@#{var_name}" unless var_name.to_s.start_with?('@') if instance_variable_defined?(var_name) then instance_variable_get(var_name) else create_api!(api_name, var_name) end rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end def create_api!(api_name, var_name=api_name) var_name = "@#{var_name}" unless var_name.to_s.start_with?('@') function, types = *api_name.split('§', 2) api = Win32API.new(@dll, function, types, 'i') rescue api = Win32API.new("System/#@dll", function, types, 'i') rescue api = nil instance_variable_set(var_name, api) rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end def create_method!(method, args, api_name=nil) var_name, args_names, args_convert = method.to_s[/\w+/], '', '' var_name << '§' unless args.empty? args.each_with_index do |arg,id| args_names << "#{', ' if id > 0}arg#{id}" case arg when Float; args_convert << "arg#{id} = [arg#{id}].pack('f').unpack('L')[0]\n" when TrueClass, FalseClass; args_convert << "arg#{id} = arg#{id} ? 1 : 0\n" end case arg when Numeric, TrueClass, FalseClass; var_name << 'i' when String , NilClass ; var_name << 'p' else var_name << (arg.respond_to?(:to_int) ? 'i' : 'p') end end instance_eval(" def #{method}(#{args_names}) #{args_convert} @#{var_name}.call(#{args_names})#{' != 0' if method.to_s.end_with?('?')} rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end") create_api!(api_name || var_name, var_name) rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end def method_missing(method, *args) create_method!(method, args) send(method, *args) rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end def self.create_dll!(dll_name, var_name=dll_name) var_name = var_name.to_s[1..-1] if var_name.to_s.start_with?('@') instance_eval("class << self; attr_reader :#{var_name} end") instance_variable_set("@#{var_name}", new(dll_name)) rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end def self.method_missing(method, *args) create_dll!(method) send(method, *args) rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end end module Encode #1.6.0 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) from, to = CodePages[from.upcase], CodePages[to.upcase] if from != -1 l = DLL.Kernel32.MultiByteToWideChar(from, 0, str, str.bytesize, nil, 0) utf16 = [].pack("x#{l*2}") DLL.Kernel32.MultiByteToWideChar(from, 0, str, str.bytesize, utf16, l) else utf16 = str end if to != -1 l = DLL.Kernel32.WideCharToMultiByte(to, 0, utf16, utf16.bytesize/2, nil, 0, dchar, dflag) str = [].pack("x#{l}") DLL.Kernel32.WideCharToMultiByte(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.encode!(str, from, to, dchar=nil, dflag=nil) str.replace(encode(str, from, to, dchar, dflag)) rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end def self.method_missing(method, str, *options) method = method.to_s.upcase ex_mark = method.slice!('!') from, to = *method.split('_TO_', 2) send("encode#{ex_mark}", str, from, to, *options) rescue raise($!, $!.message, caller(vxace? ? 2 : 1)) end end module OS #1.1.0 def self.version ver = DLL.Kernel32.GetVersion (ver&0xFF)*10 + (ver>>8&0xFF) end def self.windows2000_or_greater?() version >= 5_0 end def self.windowsXP_or_greater?() version >= 5_1 end def self.windowsXP_64_or_greater?() version >= 5_2 end def self.windowsVista_or_greater?() version >= 6_0 end def self.windows7_or_greater?() version >= 6_1 end def self.windows8_or_greater?() version >= 6_2 end def self.windows8_1_or_greater?() version >= 6_3 end def self.windows10_or_greater?() version >= 10_0 end def self.windows2000?() version == 5_0 end def self.windowsXP?() version == 5_1 end def self.windowsXP_64?() version == 5_2 end def self.windowsVista?() version == 6_0 end def self.windows7?() version == 6_1 end def self.windows8?() version == 6_2 end def self.windows8_1?() version == 6_3 end def self.windows10?() version == 10_0 end def self.wow64? process = DLL.Kernel32.GetCurrentProcess || -1 DLL.Kernel32.IsWow64Process(process, bool=[].pack('x4')) bool.unpack('L')[0] == 1 end def self.dwm_composition_enabled? DLL.Dwmapi.DwmIsCompositionEnabled(bool=[].pack('x4')) bool.unpack('L')[0] == 1 end def self.dwm_enable_composition(bool) DLL.Dwmapi.DwmEnableComposition(bool) end def self.documents_path DLL.Shell32.SHGetFolderPathW(0, 5, 0, 0, path=[].pack('x520'))#CSIDL_MYDOCUMENTS, SHGFP_TYPE_CURRENT path = Encode.utf16_to_utf8(path) path[0, path.index("\0")] end def self.create_directory(path) DLL.Kernel32.CreateDirectoryW(Zeus::Encode.utf8_to_utf16("#{path}\0"), nil) end end end module Video unless @buffer @buffer, @back_picture, @pause_picture, @resume_picture, @stop_picture, @no_fullscreen = [].pack('x1024'), '', '', '', '', false end class << self attr_accessor :back_picture, :pause_picture, :resume_picture, :stop_picture, :no_fullscreen def play(filename, cancellable=:Menu, stretch=:FitIn) init_data_system if cancellable and cancellable != :Stop quit_fullscreen if @no_fullscreen = NoFullscreen if $imported[:Zeus_Fullscreen] Fullscreen.video = true Fullscreen.update_window(Fullscreen.mode != 0) end create_back_sprite close wait while cancel_trigger? if cancellable open(filename, 0, false) and playback(filename, cancellable, stretch) wait while cancel_trigger? if cancellable ensure @no_fullscreen = false if $imported[:Zeus_Fullscreen] Fullscreen.video = false Fullscreen.update_window(Fullscreen.mode != 0) end close dispose_back_sprite end def play_to_bitmap(filename, bitmap, repeat=true) return unless OldAviMode and Zeus::OS.windowsVista_or_greater? close @hwnd = Zeus::DLL.User32.CreateWindowEx(0x08000000 | 0x00000080,#WS_EX_NOACTIVATE | WS_EX_TOOLWINDOW 'Static', nil, 0x10000000 | 0x80000000 | 0x0000000D,#WS_VISIBLE | WS_POPUP | SS_OWNERDRAW 0, 0, 0, 0, 0, 0, 0, nil) return close unless open(filename, 0, repeat) mci_silent("where ZeusVideoPlayer source") _, _, w, h = *mci_result.split(' ', 4).map! {|s| s.to_i} @bitmap = bitmap exstyle = Zeus::DLL.User32.GetWindowLong(@hwnd, -20)#GWL_EXSTYLE Zeus::DLL.User32.SetWindowLong(@hwnd, -20, exstyle | 0x00080000)#WS_EX_LAYERED Zeus::DLL.User32.SetLayeredWindowAttributes(@hwnd, 0, 0, 2)#LWA_ALPHA Zeus::DLL.User32.SetWindowPos(@hwnd, 1,#HWND_BOTTOM 0, 0, w, h, 2 | 16)#SWP_NOMOVE | SWP_NOACTIVATE Zeus::DLL.User32.SetActiveWindow(Graphics.hwnd) hdc = Zeus::DLL.User32.GetDC(@hwnd) @hdc = Zeus::DLL.Gdi32.CreateCompatibleDC(hdc) @hbm = Zeus::DLL.Gdi32.CreateCompatibleBitmap(hdc, @bitmap.width, @bitmap.height) Zeus::DLL.User32.ReleaseDC(@hwnd, hdc) update end def update close if @bitmap and (@bitmap.disposed? or stopped?) return if !@bitmap or Graphics.frame_dropped info = [40,@bitmap.width,@bitmap.height,1,32].pack('Ll2S2x24') hdc = Zeus::DLL.User32.GetDC(@hwnd) obj = Zeus::DLL.Gdi32.SelectObject(@hdc, @hbm) Zeus::DLL.User32.GetClientRect(@hwnd, @buffer) w, h = *@buffer.unpack('x8L2') Zeus::DLL.Gdi32.BitBlt(@hdc, 0, 0, w, h, hdc, 0, 0, 0x00CC0020)#SRCCOPY Zeus::DLL.Gdi32.GetDIBits(@hdc, @hbm, 0, @bitmap.height, @bitmap.last_row_address, info, 0)#DIB_RGB_COLORS Zeus::DLL.Gdi32.SelectObject(@hdc, obj) Zeus::DLL.User32.ReleaseDC(@hwnd, hdc) @bitmap.fill_rect(0, 0, 0, 0, Color.new(0,0,0,0)) # set updated flag nil end def stop() mci_silent("stop ZeusVideoPlayer") end def pause() mci_silent("pause ZeusVideoPlayer") end def resume() mci_silent("resume ZeusVideoPlayer") end def mode() mci_silent("status ZeusVideoPlayer mode") and mci_result end def length() mci_silent("status ZeusVideoPlayer length") and mci_result.to_i end def position() mci_silent("status ZeusVideoPlayer position") and mci_result.to_i end def playing?() mode == 'playing' end def paused?() mode == 'paused' end def stopped?() mode == 'stopped' end def wait(frame=1) frame.times do Graphics.update Graphics.frame_count -= 1 Input.update end nil end def init_data_system if xp? $data_system ||= load_data("Data/System.rxdata") $game_system ||= Game_System.new elsif vx? $data_system ||= load_data("Data/System.rvdata") else $data_system ||= load_data("Data/System.rvdata2") end nil end def rgss_fullscreen? exstyle = Zeus::DLL.User32.GetWindowLong(Graphics.hwnd, -20)#GWL_EXSTYLE exstyle & 0x00000008 != 0#WS_EX_TOPMOST end def quit_fullscreen if rgss_fullscreen? inputs = [1,18,0, 1,13,0, 1,13,2, 1,18,2].pack('LSx2Lx16'*4) Zeus::DLL.User32.SendInput(4, inputs, 28) wait(10) end end def create_back_sprite @back_sprite = Sprite.new @back_sprite.z = 0xFFFF if @back_picture.empty? @back_sprite.bitmap = Bitmap.new(1, 1) @back_sprite.bitmap.set_pixel(0, 0, Color.new(0,0,0)) else @back_sprite.bitmap = Cache.picture(@back_picture) end @back_sprite.zoom_x = Graphics.width / @back_sprite.bitmap.width.to_f @back_sprite.zoom_y = Graphics.height / @back_sprite.bitmap.height.to_f Graphics.transition(0) Graphics.frame_reset end def dispose_back_sprite @back_sprite.bitmap.dispose if @back_sprite and @back_sprite.bitmap @back_sprite.dispose if @back_sprite @back_sprite = nil end def mci(command) error = mci_silent(command) return true if error == 0 Zeus::DLL.Winmm.mciGetErrorStringW(error, @buffer, @buffer.bytesize/2) msgbox(mci_result, "\nCommand : ", command) return false end def mci_silent(command) command = Zeus::Encode.utf8_to_utf16("#{command}\0") Zeus::DLL.Winmm.mciSendStringW(command, @buffer, @buffer.bytesize/2, Graphics.hwnd) end def mci_result str = Zeus::Encode.utf16_to_utf8(@buffer) str[0, str.index("\0")] end def open(filename, pos, repeat) filename = Dir["#{filename}.*"][0] || filename type = OldAviMode ? 'AVIVideo' : 'MPEGVideo' mci("open \"#{filename}\" type #{type} alias ZeusVideoPlayer") and mci("window ZeusVideoPlayer handle #{@hwnd || Graphics.hwnd}") and mci("play ZeusVideoPlayer from #{pos} #{'repeat' if repeat}") end def close stop if !OldAviMode and rgss_fullscreen? mci_silent("window ZeusVideoPlayer handle 0") mci_silent("status ZeusVideoPlayer window handle") Zeus::DLL.User32.DestroyWindow(mci_result.to_i) end mci_silent("close ZeusVideoPlayer") Zeus::DLL.User32.DestroyWindow(@hwnd) if @hwnd Zeus::DLL.Gdi32.DeleteObject(@hbm) if @hbm Zeus::DLL.Gdi32.DeleteDC(@hdc) if @hdc @bitmap = @hwnd = @hbm = @hdc = nil end def resize(stretch) wait mci_silent("where ZeusVideoPlayer source") _, _, w, h = *mci_result.split(' ', 4).map! {|s| s.to_i} Zeus::DLL.User32.GetClientRect(Graphics.hwnd, @buffer) client_w, client_h = *@buffer.unpack('x8L2') case stretch when :Center; when :FitIn ; w, h = client_w, client_w * h / w h, w = client_h, client_h * w / h if h > client_h when :FitOut; w, h = client_w, client_w * h / w h, w = client_h, client_h * w / h if h < client_h else w, h = client_w, client_h end x, y = (client_w-w)/2, (client_h-h)/2 mci_silent("put ZeusVideoPlayer destination at #{x} #{y} #{w} #{h-1}")#bugfix cropped window mci_silent("put ZeusVideoPlayer destination at #{x} #{y} #{w} #{h}") nil end def playback(filename, cancellable, stretch) fullscreen, focus = rgss_fullscreen?, false loop do Zeus::DLL.User32.GetMessage(@buffer, 0, 0, 0) Zeus::DLL.User32.DefWindowProc(*msg = @buffer.unpack('L4')) if focus != (Zeus::DLL.User32.GetForegroundWindow == Graphics.hwnd) focus = !focus focus ? resume : pause resize(stretch) end next unless focus if !OldAviMode and fullscreen != rgss_fullscreen? fullscreen, pos = !fullscreen, position close wait(10) break unless open(filename, pos, false) resize(stretch) end Input.update if stopped? or position >= length break elsif cancellable and cancel_trigger? case cancellable when :Stop ; break when :Pause; pause_menu else cancel_menu end resize(stretch) elsif $imported[:Zeus_Fullscreen] and (Fullscreen.inputs.any? {|input,| input.call} or Fullscreen.zoom.zero? != Fullscreen.maximized?) then resize(stretch) end case msg[1] when 0x0012 #WM_QUIT exit when 0x0100, 0x0104 #WM_KEYDOWN, WM_SYSKEYDOWN if msg[3][30] == 0 and (msg[1] == 0x0104 ? #trigger? (!@no_fullscreen and msg[2] == 0x0D) : #ALT + VK_RETURN (msg[2] == 0x70 or msg[2] == 0x7B)) #VK_F1 or VK_F12 then pause Zeus::DLL.User32.PostMessage(*msg) wait(10) resume resize(stretch) end end end nil end if xp? alias anti_hangup_playback playback def playback(cancellable, stretch) anti_hangup_playback(filename, cancellable, stretch) rescue Hangup retry end end def cancel_trigger? CancelKeys.any? {|k| Input.trigger?(k)} end def cancel_menu Sound.play_ok pause sprite = Sprite.new sprite.z = @back_sprite.z + 1 if @resume_picture.empty? resume_bmp = Bitmap.new(Graphics.width, Graphics.height) resume_bmp.font.size = 64 resume_bmp.draw_text(0, 0, Graphics.width/2, Graphics.height, 'Resume', 1) resume_bmp.font.color.alpha /= 2 resume_bmp.draw_text(Graphics.width/2, 0, Graphics.width/2, Graphics.height, 'Stop', 1) else sprite.bitmap = Cache.picture(@resume_picture) end if @stop_picture.empty? stop_bmp = Bitmap.new(Graphics.width, Graphics.height) stop_bmp.font.size = 64 stop_bmp.draw_text(Graphics.width/2, 0, Graphics.width/2, Graphics.height, 'Stop', 1) stop_bmp.font.color.alpha /= 2 stop_bmp.draw_text(0, 0, Graphics.width/2, Graphics.height, 'Resume', 1) else sprite.bitmap = Cache.picture(@stop_picture) end sprite.bitmap = resume_bmp cancel = false wait while cancel_trigger? loop do Graphics.update Input.update if [Input::DOWN, Input::LEFT, Input::RIGHT, Input::UP].any? {|k| Input.trigger?(k)} Sound.play_cursor cancel = !cancel sprite.bitmap = cancel ? stop_bmp : resume_bmp elsif Input.trigger?(Input::B) Sound.play_cancel cancel = false break elsif Input.trigger?(Input::C) Sound.play_ok break end end resume_bmp.dispose stop_bmp.dispose sprite.dispose wait while cancel_trigger? cancel ? stop : resume nil end def pause_menu Sound.play_ok pause sprite = Sprite.new sprite.z = @back_sprite.z + 1 if @pause_picture.empty? sprite.bitmap = Bitmap.new(Graphics.width, Graphics.height) sprite.bitmap.font.size = 64 sprite.bitmap.draw_text(sprite.bitmap.rect, 'Pause', 1) else sprite.bitmap = Cache.picture(@pause_picture) end wait while cancel_trigger? loop do Graphics.update Input.update if cancel_trigger? Sound.play_cancel break end end sprite.bitmap.dispose sprite.dispose wait while cancel_trigger? resume nil end end end Version 2.3 (archive) Spoiler (cliquez pour afficher) Portion de code : Tout sélectionner 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 # Zeus Video Player v2.3 for XP, VX and VXace by Zeus81 # Free for commercial use # Licence : http://creativecommons.org/licenses/by/4.0/ # Contact : zeusex81@gmail.com # # How to Use : # Graphics.play_movie( filename, cancellable, fit_to_screen ) # - filename = path of the video file. # - cancellable = true if you want to allow the player to stop the video # by pressing Enter or Escape, false otherwise. # This option can be omitted and default value is true. # - fit_to_screen = true if you want the video to be stretched to fit the screen in # case it doesn't match, false if you just want it to be centered. # If you're using scripts like Fullscreen++ true is recommended. # This option can be omitted and default value is true. # ex : Graphics.play_movie( "Movies/prout.avi", true, true ) # or Graphics.play_movie( "Movies/prout.avi" ) # # Codec choice : # I haven't tested all of them but I guess wmv9 (standard) would be a good choice. # You can find a list of codecs installed by default on windows here : # http://support.microsoft.com/kb/899113 # # Background Image : # You can choose the background image of the player (in case your video doesn't fill all the space). # It will automatically load the image named "ZeusVideoPlayer" if found in Pictures folder (the extension doesn't matter). # If not found it will be black. # # Known bugs : # - With some video codecs stretching to fit screen doesn't work in fullscreen mode. # - When switching fullscreen mode during playback the display can freeze. # - Sometimes the display doesn't render when playing a video for the second time. # - Weird behaviour in fullscreen mode. # # ZVP_OldAviMode : # Just bellow you can enable this mode by setting the variable to true. # Advantages : # - More stable, no known bugs. # Drawbacks : # - It can only play avi files. # - You must use vfw codecs for video, and windows defaults vfw codecs are very limited. # Exhaustive list : MS RLE, MS Video 1, Cinepak, iyuv. And they all sucks. # Any other codec will require to be installed on user side to ensure that it's supported. # But if it's not a problem then you can find very nice vfw codecs on the internet, eg x264vfw. # - You must use acm codecs for audio. # Windows defaults : mp3, pcm. # You can also find better codecs like 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 Version 1.0 (archive) Spoiler (cliquez pour afficher) Valable seulement pour RPG Maker XP. Fonctionnalités - Lit les fichiers avi - Pas de clignotement de l'écran. - Marche aussi en mode plein écran. - Possibilité de centrer ou étirer les vidéo qui ont une résolution différente de 640x480. - Option pour quitter avant la fin de la vidéo en appuyant sur Entrée/Espace/C. Exemple d'utilisation Graphics.play_movie(path, cancelable, fit) path = chemin du fichier avi cancelable = true si on veut autoriser l'arrêt de la vidéo, sinon false fit = true si on veut étirer la vidéo quand elle n'est pas en 640x480, false si on veut la centrer. ex : Graphics.play_movie("Movies/prout.avi", true, true) Portion de code : Tout sélectionner 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 # Zeus Video Player 1.0 module Graphics findWindow = Win32API.new('user32', 'FindWindow', 'pp', 'i') GetMessage = Win32API.new('user32', 'GetMessage', 'piii', 'i') TranslateMessage = Win32API.new('user32', 'TranslateMessage', 'p', 'i') DispatchMessage = Win32API.new('user32', 'DispatchMessage', 'p', 'i') SendInput = Win32API.new('user32', 'SendInput', 'ipi', 'i') MultiByteToWideChar = Win32API.new('kernel32', 'MultiByteToWideChar', 'iipipi', 'i') WideCharToMultiByte = Win32API.new('kernel32', 'WideCharToMultiByte', 'iipipipp', 'i') GetShortPathName = Win32API.new('kernel32', 'GetShortPathName', 'ppi', 'i') MciSendString = Win32API.new('winmm', 'mciSendString', 'ppii', 'i') HWnd = findwindow.call('RGSS Player', 0) def self.play_movie(filename, cancelable = true, fit = true) MultiByteToWideChar.call(65001, 0, filename, -1, utf16="\0"*520, 260) # utf8 => utf16 WideCharToMultiByte.call(0, 0, utf16, -1, ansi="\0"*260, 260, 0, 0) # utf16 => ansi l = GetShortPathName.call(ansi, spath="\0"*260, 260) unless FileTest.exist?(spath = spath[0,l]) raise(error=Errno::ENOENT.new(filename), error.message, caller) end MciSendString.call("open \"#{spath}\" alias VIDEO type AVIVideo style Child parent #{HWnd}", 0, 0, 0) MciSendString.call('where VIDEO source', buffer=' '*28, 28, 0) src_rect = buffer.split(' ').map! {|s| s.to_i} return if src_rect.size != 4 # format de la vidéo non supporté width, height = 640, 480 background = Sprite.new background.bitmap = Bitmap.new(1, 1) background.bitmap.set_pixel(0, 0, Color.new(0,0,0)) background.zoom_x, background.zoom_y, background.z = width, height, 9999 Graphics.update if fit ratio = src_rect[2]/src_rect[3].to_f src_rect[2], src_rect[3] = width, (width/ratio).to_i src_rect[3], src_rect[2] = height, (height*ratio).to_i if src_rect[3] > height end src_rect[0], src_rect[1] = (width-src_rect[2])/2, (height-src_rect[3])/2 MciSendString.call('put VIDEO window at 0 0 1 1', 0, 0, 0) # manip pour éviter un bug en plein écran MciSendString.call('play VIDEO', 0, 0, 0) MciSendString.call("put VIDEO window at #{src_rect.join(' ')}", 0, 0, 0) do_exit = false begin loop do GetMessage.call(buffer, HWnd, 0, 0) TranslateMessage.call(buffer) DispatchMessage.call(buffer) case buffer.unpack('@4L').first when 0x0012 #WM_QUIT do_exit = true break when 0x0104 #WM_SYSKEYDOWN if buffer.unpack('@8L').first == 0x0D #VK_RETURN SendInput.call(1, [1,0x0D,0,0,0,0].pack('LSSLLLx8'), 28) Graphics.update Input.update end end Input.update break if cancelable and Input.trigger?(Input::C) MciSendString.call('status VIDEO mode', buffer, 28, 0) break if buffer !~ /^playing/ end rescue Hangup retry end MciSendString.call('stop VIDEO', 0, 0, 0) MciSendString.call('close VIDEO', 0, 0, 0) background.bitmap.dispose background.dispose exit if do_exit end end Mis à jour le 29 décembre 2020.

zeus81 - posté le 27/03/2014 à 16:39:18 (11071 messages postés) ❤ 0

Mise à jour : https://www.dropbox.com/s/q933du4ix2r0cep/Zeus%20Video%20Player.rb Log change v2.1 : - compatibilité VX. - compatibilité VXace (ça remplace le player par défaut). - la vidéo est mise en pause quand le jeu perd le focus. - support des noms de fichiers unicodes. - on peut utiliser F1 et F12 comme Alt+Enter pendant une vidéo. - meilleure compatibilité avec Fullscreen++ - messages d'erreurs plus précis. - on peut choisir une image de fond pour le player (dans le cas où la vidéo ne remplit pas toute la fenêtre). L'image doit s'appeler "ZeusVideoPlayer" et se trouver dans le dossier Pictures, elle sera chargée automatiquement si trouvée. - on peut lire tous types de fichiers (plus seulement les avi). Cela dit ça peut créer quelques bugs liés au mode plein écran. J'ai rajouté une option ZVP_OldAviMode pour rétablir le fonctionnement de la v1. - bugs divers corrigés.

Kreiss - posté le 25/10/2014 à 18:42:37 (46 messages postés) ❤ 0
	C'est un très bon script, tout fonctionne très bien. Seul problème, c'est qu'une fois le jeu crypter avec le dossier vidéo dans graphics. Le script ne le trouve plus... Il y a un moyen de régler le problème sans devoir déplacer le dossier vidéo à la racine ?

zeus81 - posté le 26/10/2014 à 04:12:24 (11071 messages postés) ❤ 0
	Non, il ne faut simplement pas mettre les vidéos dans les dossiers Graphics et Data. Ça sera pas crypté mais tant pis, c'est déjà le cas des Audios.

Gari - posté le 29/12/2020 à 20:32:42 (5901 messages postés) - ❤ 0

Quand y en a plus, y en a encore... Version 3.0 du script, qui ne corrige pas le bug de plein écran sur certains ordinateurs, mais force le passage en fenêtré lorsqu'une vidéo joue : Portion de code : Tout sélectionner 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 # Zeus Video Player v3.0.0 for XP, VX and VXace by Zeus81 # Free for commercial use # Licence MIT # Contact : zeusex81@gmail.com # #Aliased methods : #  Graphics::update # # How to Use : #   Video.play( filename, cancellable, stretch ) #   - filename = path of the video file, extension may be omitted on vxace #                but is needed otherwise for unicode support. #   - cancellable = false if you don't want to allow the player to stop the video. #                   :Pause if you want to pause by pressing Enter or Escape. #                   :Stop if you want to stop by pressing Enter or Escape. #                   :Menu if you want to pause and open menu which let you choose Resume or Stop. #                   This option can be omitted and default value is :Menu #   - stretch = :FitIn if you want the video to be stretched to fit the max screen #                      surface possible keeping ratio. #               :FitOut if you want the video to truncate in order to fill the entire #                       screen but still keeping ratio. #               :Fill if you want the video to fill the entire screen without keeping ratio. #               :Center if you want the video to center without ever resizing. #               This option can be omitted and default value is :FitIn #   ex : Video.play( "Movies/my video.avi", :Menu, :FitIn ) #   or   Video.play( "Movies/my video.avi" ) # # Codec choice : #   I haven't tested all of them but I guess wmv9 (standard) would be a good choice. #   You can find a list of codecs installed by default on windows here : #   https://support.microsoft.com/kb/899113 # # Customizing : #   You can choose the background image of the player with Video.back_picture = filename, #   the cancellable :Pause image with Video.pause_picture = filename, #   and the :Menu images with Video.resume_picture = filename and Video.stop_picture = filename #   - filename = path of the image which must be in the Pictures folder, extension may be omitted. #   ex : Video.back_picture = "my video background" # # Known bugs : #  - With some video codecs stretching video doesn't work. #  - Fullscreen mode is the source of various bugs. #    You can choose to disable it bellow by settings the NoFullscreen variable to true. #    The game will automatically quit fullscreen and block it until video has finished playing. # # OldAviMode : #   Just bellow you can enable this mode by setting the variable to true. #   Advantages : #     - More stable, no known bugs. #     - You can use Video.play_to_bitmap #   Drawbacks : #     - It can only play avi files. #     - You must use vfw codecs for video, and windows defaults vfw codecs are very limited. #       Exhaustive list : MS RLE, MS Video 1, Cinepak, i420, iyuv. And they all sucks. #       Any other codec will require to be installed on user side to ensure that it's supported. #       But if it's not a problem then you can find very nice vfw codecs on the internet, eg x264vfw. #     - You must use acm codecs for audio. #       Windows defaults : mp3, pcm. #       You can also find better codecs like aac acm.   module Video   OldAviMode = false   NoFullscreen = false   CancelKeys = [Input::B, Input::C] end   $imported ||= {} $imported[:Zeus_Video_Player] = __FILE__   def xp?() false end; alias vx? xp?; alias vxace? xp? RUBY_VERSION == '1.8.1' ? defined?(Hangup) ? def xp?() true end : def vx?() true end : def vxace?() true end   $imported[:Zeus_Frame_Dropped] ||= __FILE__ if $imported[:Zeus_Frame_Dropped] == __FILE__   module Graphics #2.0.0     unless @frame_time       @frame_time, @frame_dropped = Time.now, false     end     class << self       attr_accessor :frame_time, :frame_dropped       alias zeus_frame_dropped_update update unless method_defined?(:zeus_frame_dropped_update)       def update         @frame_time = Time.now         zeus_frame_dropped_update         @frame_dropped = Time.now - @frame_time < 0.005         nil       end     end   end end   class << Graphics   def width()  640 end unless method_defined?(:width)   def height() 480 end unless method_defined?(:height)   def hwnd() @hwnd ||= Zeus::DLL.User32.FindWindow('RGSS Player', nil) end   alias zeus_video_update update unless method_defined?(:zeus_video_update)   def update     zeus_video_update     Video.update   end end   Cache = RPG::Cache if xp?   class Object   alias msgbox   print   alias msgbox_p p   def instance_variable_defined?(var) instance_variables.include?(var) end end unless vxace?   class String   alias getbyte  []   alias setbyte  []=   alias bytesize size   def start_with?(*args)     args.any? {|str| str.is_a?(String) and index(str) == 0}   end   def end_with?(*args)     args.any? {|str| str.is_a?(String) and rindex(str) == size-str.size}   end end unless vxace?   class Bitmap   def last_row_address     Zeus::DLL.Kernel32.RtlMoveMemory(buf=[0].pack('L'), __id__*2+16, 4)     Zeus::DLL.Kernel32.RtlMoveMemory(buf, buf.unpack('L')[0]+8 , 4)     Zeus::DLL.Kernel32.RtlMoveMemory(buf, buf.unpack('L')[0]+16, 4)     buf.unpack('L')[0]   end end   module Sound   def self.play_ok()     $game_system.se_play($data_system.decision_se) end   def self.play_cancel() $game_system.se_play($data_system.cancel_se)   end   def self.play_cursor() $game_system.se_play($data_system.cursor_se)   end   def self.play_buzzer() $game_system.se_play($data_system.buzzer_se)   end end if xp?   module Zeus   class DLL #2.0.0     def initialize(dll)       @dll = dll.to_s.dup     end     def [](api_name, var_name=api_name)       var_name = "@#{var_name}" unless var_name.to_s.start_with?('@')       if instance_variable_defined?(var_name)       then instance_variable_get(var_name)       else create_api!(api_name, var_name)       end     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end     def create_api!(api_name, var_name=api_name)       var_name = "@#{var_name}" unless var_name.to_s.start_with?('@')       function, types = *api_name.split('§', 2)       api = Win32API.new(@dll, function, types, 'i') rescue       api = Win32API.new("System/#@dll", function, types, 'i') rescue       api = nil       instance_variable_set(var_name, api)     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end     def create_method!(method, args, api_name=nil)       var_name, args_names, args_convert = method.to_s[/\w+/], '', ''       var_name << '§' unless args.empty?       args.each_with_index do |arg,id|         args_names << "#{', ' if id > 0}arg#{id}"         case arg         when Float; args_convert << "arg#{id} = [arg#{id}].pack('f').unpack('L')[0]\n"         when TrueClass, FalseClass; args_convert << "arg#{id} = arg#{id} ? 1 : 0\n"         end         case arg         when Numeric, TrueClass, FalseClass; var_name << 'i'         when String , NilClass             ; var_name << 'p'         else var_name << (arg.respond_to?(:to_int) ? 'i' : 'p')         end       end       instance_eval("      def #{method}(#{args_names})        #{args_convert}        @#{var_name}.call(#{args_names})#{' != 0' if method.to_s.end_with?('?')}      rescue raise($!, $!.message, caller(vxace? ? 2 : 1))      end")       create_api!(api_name || var_name, var_name)     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end     def method_missing(method, *args)       create_method!(method, args)       send(method, *args)     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end     def self.create_dll!(dll_name, var_name=dll_name)       var_name = var_name.to_s[1..-1] if var_name.to_s.start_with?('@')       instance_eval("class << self; attr_reader :#{var_name} end")       instance_variable_set("@#{var_name}", new(dll_name))     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end     def self.method_missing(method, *args)       create_dll!(method)       send(method, *args)     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end   end   module Encode #1.6.0     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)       from, to = CodePages[from.upcase], CodePages[to.upcase]       if from != -1         l = DLL.Kernel32.MultiByteToWideChar(from, 0, str, str.bytesize, nil, 0)         utf16 = [].pack("x#{l*2}")         DLL.Kernel32.MultiByteToWideChar(from, 0, str, str.bytesize, utf16, l)       else utf16 = str       end       if to != -1         l = DLL.Kernel32.WideCharToMultiByte(to, 0, utf16, utf16.bytesize/2, nil, 0, dchar, dflag)         str = [].pack("x#{l}")         DLL.Kernel32.WideCharToMultiByte(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.encode!(str, from, to, dchar=nil, dflag=nil)       str.replace(encode(str, from, to, dchar, dflag))     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end     def self.method_missing(method, str, *options)       method = method.to_s.upcase       ex_mark = method.slice!('!')       from, to = *method.split('_TO_', 2)       send("encode#{ex_mark}", str, from, to, *options)     rescue raise($!, $!.message, caller(vxace? ? 2 : 1))     end   end   module OS #1.1.0     def self.version       ver = DLL.Kernel32.GetVersion       (ver&0xFF)*10 + (ver>>8&0xFF)     end     def self.windows2000_or_greater?()  version >=  5_0 end     def self.windowsXP_or_greater?()    version >=  5_1 end     def self.windowsXP_64_or_greater?() version >=  5_2 end     def self.windowsVista_or_greater?() version >=  6_0 end     def self.windows7_or_greater?()     version >=  6_1 end     def self.windows8_or_greater?()     version >=  6_2 end     def self.windows8_1_or_greater?()   version >=  6_3 end     def self.windows10_or_greater?()    version >= 10_0 end     def self.windows2000?()  version ==  5_0 end     def self.windowsXP?()    version ==  5_1 end     def self.windowsXP_64?() version ==  5_2 end     def self.windowsVista?() version ==  6_0 end     def self.windows7?()     version ==  6_1 end     def self.windows8?()     version ==  6_2 end     def self.windows8_1?()   version ==  6_3 end     def self.windows10?()    version == 10_0 end     def self.wow64?       process = DLL.Kernel32.GetCurrentProcess || -1       DLL.Kernel32.IsWow64Process(process, bool=[].pack('x4'))       bool.unpack('L')[0] == 1     end     def self.dwm_composition_enabled?       DLL.Dwmapi.DwmIsCompositionEnabled(bool=[].pack('x4'))       bool.unpack('L')[0] == 1     end     def self.dwm_enable_composition(bool)       DLL.Dwmapi.DwmEnableComposition(bool)     end     def self.documents_path       DLL.Shell32.SHGetFolderPathW(0, 5, 0, 0, path=[].pack('x520'))#CSIDL_MYDOCUMENTS, SHGFP_TYPE_CURRENT       path = Encode.utf16_to_utf8(path)       path[0, path.index("\0")]     end     def self.create_directory(path)       DLL.Kernel32.CreateDirectoryW(Zeus::Encode.utf8_to_utf16("#{path}\0"), nil)     end   end end   module Video   unless @buffer     @buffer, @back_picture, @pause_picture, @resume_picture, @stop_picture, @no_fullscreen =     [].pack('x1024'), '', '', '', '', false   end   class << self     attr_accessor :back_picture, :pause_picture, :resume_picture, :stop_picture, :no_fullscreen     def play(filename, cancellable=:Menu, stretch=:FitIn)       init_data_system if cancellable and cancellable != :Stop       quit_fullscreen if @no_fullscreen = NoFullscreen       if $imported[:Zeus_Fullscreen]         Fullscreen.video = true         Fullscreen.update_window(Fullscreen.mode != 0)       end       create_back_sprite       close       wait while cancel_trigger? if cancellable       open(filename, 0, false) and playback(filename, cancellable, stretch)       wait while cancel_trigger? if cancellable     ensure       @no_fullscreen = false       if $imported[:Zeus_Fullscreen]         Fullscreen.video = false         Fullscreen.update_window(Fullscreen.mode != 0)       end       close       dispose_back_sprite     end     def play_to_bitmap(filename, bitmap, repeat=true)       return unless OldAviMode and Zeus::OS.windowsVista_or_greater?       close       @hwnd = Zeus::DLL.User32.CreateWindowEx(0x08000000 | 0x00000080,#WS_EX_NOACTIVATE | WS_EX_TOOLWINDOW                   'Static', nil, 0x10000000 | 0x80000000 | 0x0000000D,#WS_VISIBLE | WS_POPUP | SS_OWNERDRAW                   0, 0, 0, 0, 0, 0, 0, nil)       return close unless open(filename, 0, repeat)       mci_silent("where ZeusVideoPlayer source")       _, _, w, h = *mci_result.split(' ', 4).map! {|s| s.to_i}       @bitmap = bitmap       exstyle = Zeus::DLL.User32.GetWindowLong(@hwnd, -20)#GWL_EXSTYLE       Zeus::DLL.User32.SetWindowLong(@hwnd, -20, exstyle | 0x00080000)#WS_EX_LAYERED       Zeus::DLL.User32.SetLayeredWindowAttributes(@hwnd, 0, 0, 2)#LWA_ALPHA       Zeus::DLL.User32.SetWindowPos(@hwnd, 1,#HWND_BOTTOM                           0, 0, w, h, 2 | 16)#SWP_NOMOVE | SWP_NOACTIVATE       Zeus::DLL.User32.SetActiveWindow(Graphics.hwnd)       hdc  = Zeus::DLL.User32.GetDC(@hwnd)       @hdc = Zeus::DLL.Gdi32.CreateCompatibleDC(hdc)       @hbm = Zeus::DLL.Gdi32.CreateCompatibleBitmap(hdc, @bitmap.width, @bitmap.height)       Zeus::DLL.User32.ReleaseDC(@hwnd, hdc)       update     end     def update       close if @bitmap and (@bitmap.disposed? or stopped?)       return if !@bitmap or Graphics.frame_dropped       info = [40,@bitmap.width,@bitmap.height,1,32].pack('Ll2S2x24')       hdc  = Zeus::DLL.User32.GetDC(@hwnd)       obj  = Zeus::DLL.Gdi32.SelectObject(@hdc, @hbm)       Zeus::DLL.User32.GetClientRect(@hwnd, @buffer)       w, h = *@buffer.unpack('x8L2')       Zeus::DLL.Gdi32.BitBlt(@hdc, 0, 0, w, h, hdc, 0, 0, 0x00CC0020)#SRCCOPY       Zeus::DLL.Gdi32.GetDIBits(@hdc, @hbm, 0, @bitmap.height, @bitmap.last_row_address, info, 0)#DIB_RGB_COLORS       Zeus::DLL.Gdi32.SelectObject(@hdc, obj)       Zeus::DLL.User32.ReleaseDC(@hwnd, hdc)       @bitmap.fill_rect(0, 0, 0, 0, Color.new(0,0,0,0)) # set updated flag       nil     end     def stop()     mci_silent("stop ZeusVideoPlayer")                                end     def pause()    mci_silent("pause ZeusVideoPlayer")                               end     def resume()   mci_silent("resume ZeusVideoPlayer")                              end     def mode()     mci_silent("status ZeusVideoPlayer mode")     and mci_result      end     def length()   mci_silent("status ZeusVideoPlayer length")   and mci_result.to_i end     def position() mci_silent("status ZeusVideoPlayer position") and mci_result.to_i end     def playing?() mode == 'playing'                                                 end     def paused?()  mode == 'paused'                                                  end     def stopped?() mode == 'stopped'                                                 end     def wait(frame=1)       frame.times do         Graphics.update         Graphics.frame_count -= 1         Input.update       end       nil     end     def init_data_system       if xp?         $data_system ||= load_data("Data/System.rxdata")         $game_system ||= Game_System.new       elsif vx?         $data_system ||= load_data("Data/System.rvdata")       else         $data_system ||= load_data("Data/System.rvdata2")       end       nil     end     def rgss_fullscreen?       exstyle = Zeus::DLL.User32.GetWindowLong(Graphics.hwnd, -20)#GWL_EXSTYLE       exstyle & 0x00000008 != 0#WS_EX_TOPMOST     end     def quit_fullscreen       if rgss_fullscreen?         inputs = [1,18,0, 1,13,0, 1,13,2, 1,18,2].pack('LSx2Lx16'*4)         Zeus::DLL.User32.SendInput(4, inputs, 28)         wait(10)       end     end     def create_back_sprite       @back_sprite = Sprite.new       @back_sprite.z = 0xFFFF       if @back_picture.empty?         @back_sprite.bitmap = Bitmap.new(1, 1)         @back_sprite.bitmap.set_pixel(0, 0, Color.new(0,0,0))       else         @back_sprite.bitmap = Cache.picture(@back_picture)       end       @back_sprite.zoom_x = Graphics.width  / @back_sprite.bitmap.width.to_f       @back_sprite.zoom_y = Graphics.height / @back_sprite.bitmap.height.to_f       Graphics.transition(0)       Graphics.frame_reset     end     def dispose_back_sprite       @back_sprite.bitmap.dispose if @back_sprite and @back_sprite.bitmap       @back_sprite.dispose if @back_sprite       @back_sprite = nil     end     def mci(command)       error = mci_silent(command)       return true if error == 0       Zeus::DLL.Winmm.mciGetErrorStringW(error, @buffer, @buffer.bytesize/2)       msgbox(mci_result, "\nCommand : ", command)       return false     end     def mci_silent(command)       command = Zeus::Encode.utf8_to_utf16("#{command}\0")       Zeus::DLL.Winmm.mciSendStringW(command, @buffer, @buffer.bytesize/2, Graphics.hwnd)     end     def mci_result       str = Zeus::Encode.utf16_to_utf8(@buffer)       str[0, str.index("\0")]     end     def open(filename, pos, repeat)       filename = Dir["#{filename}.*"][0] || filename       type = OldAviMode ? 'AVIVideo' : 'MPEGVideo'       mci("open \"#{filename}\" type #{type} alias ZeusVideoPlayer") and       mci("window ZeusVideoPlayer handle #{@hwnd || Graphics.hwnd}") and       mci("play ZeusVideoPlayer from #{pos} #{'repeat' if repeat}")     end     def close       stop       if !OldAviMode and rgss_fullscreen?         mci_silent("window ZeusVideoPlayer handle 0")         mci_silent("status ZeusVideoPlayer window handle")         Zeus::DLL.User32.DestroyWindow(mci_result.to_i)       end       mci_silent("close ZeusVideoPlayer")       Zeus::DLL.User32.DestroyWindow(@hwnd) if @hwnd       Zeus::DLL.Gdi32.DeleteObject(@hbm) if @hbm       Zeus::DLL.Gdi32.DeleteDC(@hdc) if @hdc       @bitmap = @hwnd = @hbm = @hdc = nil     end     def resize(stretch)       wait       mci_silent("where ZeusVideoPlayer source")       _, _, w, h = *mci_result.split(' ', 4).map! {|s| s.to_i}       Zeus::DLL.User32.GetClientRect(Graphics.hwnd, @buffer)       client_w, client_h = *@buffer.unpack('x8L2')       case stretch       when :Center;       when :FitIn ; w, h = client_w, client_w * h / w                     h, w = client_h, client_h * w / h if h > client_h       when :FitOut; w, h = client_w, client_w * h / w                     h, w = client_h, client_h * w / h if h < client_h       else          w, h = client_w, client_h       end       x, y = (client_w-w)/2, (client_h-h)/2       mci_silent("put ZeusVideoPlayer destination at #{x} #{y} #{w} #{h-1}")#bugfix cropped window       mci_silent("put ZeusVideoPlayer destination at #{x} #{y} #{w} #{h}")       nil     end     def playback(filename, cancellable, stretch)       fullscreen, focus = rgss_fullscreen?, false       loop do         Zeus::DLL.User32.GetMessage(@buffer, 0, 0, 0)         Zeus::DLL.User32.DefWindowProc(*msg = @buffer.unpack('L4'))         if focus != (Zeus::DLL.User32.GetForegroundWindow == Graphics.hwnd)           focus = !focus           focus ? resume : pause           resize(stretch)         end         next unless focus         if !OldAviMode and fullscreen != rgss_fullscreen?           fullscreen, pos = !fullscreen, position           close           wait(10)           break unless open(filename, pos, false)           resize(stretch)         end         Input.update         if stopped? or position >= length           break         elsif cancellable and cancel_trigger?           case cancellable           when :Stop ; break           when :Pause; pause_menu           else         cancel_menu           end           resize(stretch)         elsif $imported[:Zeus_Fullscreen] and           (Fullscreen.inputs.any? {|input,| input.call} or            Fullscreen.zoom.zero? != Fullscreen.maximized?)         then           resize(stretch)         end         case msg[1]         when 0x0012 #WM_QUIT           exit         when 0x0100, 0x0104 #WM_KEYDOWN, WM_SYSKEYDOWN           if msg[3][30] == 0 and (msg[1] == 0x0104 ? #trigger?             (!@no_fullscreen and msg[2] == 0x0D) : #ALT + VK_RETURN             (msg[2] == 0x70 or msg[2] == 0x7B)) #VK_F1 or VK_F12           then             pause             Zeus::DLL.User32.PostMessage(*msg)             wait(10)             resume             resize(stretch)           end         end       end       nil     end     if xp?       alias anti_hangup_playback playback       def playback(cancellable, stretch)         anti_hangup_playback(filename, cancellable, stretch)       rescue Hangup         retry       end     end     def cancel_trigger?       CancelKeys.any? {|k| Input.trigger?(k)}     end     def cancel_menu       Sound.play_ok       pause       sprite = Sprite.new       sprite.z = @back_sprite.z + 1       if @resume_picture.empty?         resume_bmp = Bitmap.new(Graphics.width, Graphics.height)         resume_bmp.font.size = 64         resume_bmp.draw_text(0, 0, Graphics.width/2, Graphics.height, 'Resume', 1)         resume_bmp.font.color.alpha /= 2         resume_bmp.draw_text(Graphics.width/2, 0, Graphics.width/2, Graphics.height, 'Stop', 1)       else         sprite.bitmap = Cache.picture(@resume_picture)       end       if @stop_picture.empty?         stop_bmp = Bitmap.new(Graphics.width, Graphics.height)         stop_bmp.font.size = 64         stop_bmp.draw_text(Graphics.width/2, 0, Graphics.width/2, Graphics.height, 'Stop', 1)         stop_bmp.font.color.alpha /= 2         stop_bmp.draw_text(0, 0, Graphics.width/2, Graphics.height, 'Resume', 1)       else         sprite.bitmap = Cache.picture(@stop_picture)       end       sprite.bitmap = resume_bmp       cancel = false       wait while cancel_trigger?       loop do         Graphics.update         Input.update         if [Input::DOWN, Input::LEFT, Input::RIGHT, Input::UP].any? {|k| Input.trigger?(k)}           Sound.play_cursor           cancel = !cancel           sprite.bitmap = cancel ? stop_bmp : resume_bmp         elsif Input.trigger?(Input::B)           Sound.play_cancel           cancel = false           break         elsif Input.trigger?(Input::C)           Sound.play_ok           break         end       end       resume_bmp.dispose       stop_bmp.dispose       sprite.dispose       wait while cancel_trigger?       cancel ? stop : resume       nil     end     def pause_menu       Sound.play_ok       pause       sprite = Sprite.new       sprite.z = @back_sprite.z + 1       if @pause_picture.empty?         sprite.bitmap = Bitmap.new(Graphics.width, Graphics.height)         sprite.bitmap.font.size = 64         sprite.bitmap.draw_text(sprite.bitmap.rect, 'Pause', 1)       else         sprite.bitmap = Cache.picture(@pause_picture)       end       wait while cancel_trigger?       loop do         Graphics.update         Input.update         if cancel_trigger?           Sound.play_cancel           break         end       end       sprite.bitmap.dispose       sprite.dispose       wait while cancel_trigger?       resume       nil     end   end end Zeus, en 2016 a dit: Dix ans plus tard, alors en fait je sais pas pourquoi ça fait ça, y'a plein de bug liés au plein écran et j'y peux rien. Je peux toujours te passer la dernière version, à priori je pense pas que ça corrigera le bug par contre t'as une nouvelle option NoFullscreen pour bloquer le plein écran, bon c'est pas terrible d'avoir un jeu qui quitte le mode plein écran de lui même juste pour lire une vidéo mais c'est mieux qu'un bug. Sinon faut utiliser le OldAviMode, y'a quelques contraintes mais au moins ça marche même en plein écran. Le script est légèrement différent donc faut relire la notice. Source : https://www.rpg-maker.fr/index.php?page=forum&id=25738