rpgxp]avi 실행시키는 스크립트에서 오류가 납니다...

by 오렌지맨 posted Sep 17, 2005
?

단축키

Prev이전 문서

Next다음 문서

ESC닫기

크게 작게 위로 아래로 댓글로 가기 인쇄


첨부파일 1번은 그 스크립트를 사용하고 나오는 오류입니다.


이 스크립트 http://rpgxp.zetyx.net/ 여기서 찾았는데요..
여기서 하라는 데로 폴더 만들고 파일도 넣었는데도 이러네요..
어디에 문제가 있는건가요?

참고로 그 스크립트가 있는 주소는
http://lee5948.cafe24.com/zeroboard/zboard.php?id=rgss1&page=1&sn1=&divpage=1&sn=off&ss=on&sc=on&keyword=avi&select_arrange=headnum&desc=asc&no=11
입니다.

아래는 스크립트 원본 입니다.
class Scene_Movie

def initialize(movie,length,exit_to_game=true)
   @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
   @movie_name = Dir.getwd()+"\Movies\"+movie+".<font color=FF001E style=background-color:FFF000;>avi</font>"
   @counter = length*10
   @exit_to_game = exit_to_game
   main
end

def main
   game_name = "" * 256
   @readini.call('Game','Title','',game_name,255,".\Game.ini")
   game_name.delete!("")
   Graphics.transition
   @wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')
   @temp = @wnd.call(0,0,nil,game_name).to_s
   @movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')
   @movie.call("open ""+@movie_name+"" alias FILE style 1073741824 parent " + @temp.to_s,0,0,0)
   @message = Win32API.new('user32','SendMessage','%w(l,l,l,l)','V')
  
   @detector = Win32API.new('user32','GetSystemMetrics','%w(l)','L')
   @width = @detector.call(0)
   if @width == 640
     fullscreen
     Screen::update
     sleep(1)
     Screen::update
     sleep(1)
     Screen::update
     sleep(1)
   end
  
   @movie.call("play FILE",0,0,0)
   loop do
    sleep(0.1)
    @message.call(@temp.to_i,11,0,0)
    Graphics.update
    @message.call(@temp.to_i,11,1,0)
    Input.update
    if Input.trigger?(Input::B)
      Input.update
      break
    end
    @counter = @counter - 1
    if @counter <= 0
      break
     end
   end
   @movie.call("close FILE",0,0,0)
   if @exit_to_game
     $scene = Scene_Map.new
   else
     $scene = nil
   end
   Graphics.freeze
   if @width == 640
     fullscreen
   end
end
end

def fullscreen()

$full.call(18,0,0,0)
$full.call(13,0,0,0)
$full.call(18,0,2,0)
$full.call(13,0,2,0)
end
$full = Win32API.new('user32','keybd_event','%w(l,l,l,l)','')

여기까지 입니다. 5번째 줄에서 오류가 나네요..