VX 스크립트


이 스크립트를 먼저 넣고
##Copy this into a new section of your game.
##To play a file, move the mpg file into a "movies" subdirectory
##(yourgamedata, yourgamegraphics, yourgamemovies).
##Then call '$scene = Scene_Movie.new("filename")' where filename is your movies actual filename
## (minus the .mpg).         #exapmple Scene_Movie.new("???")
## If you want to play multiple movies in a row
##(for example before the game starts, maybe a "developed by", "produced by", "intro movie"
## set or something... Go to the "main" section of code and find the line "$scene = Scene_Title.new".
##Just after that line add:
##CODE
##Audio.bgm_play("Movies/" + 'dev_by', 100, 100) #loads movie
##Audio.bgm_play("Movies/" + 'pro_b', 100, 100) #loads movie
##Audio.bgm_play("Movies/" + 'intro', 100, 100) #loads movie
##Audio.bgm_stop
##$scene = Scene_Movie.close_scene     #closes active movie window
##$scene = Scene_Movie.new("dev_by")
##$scene = Scene_Movie.new("pro_by")
##$scene = Scene_Movie.new("intro")
##$scene = Scene_Title.new
class Scene_Movie
def initialize(movie)
   @readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l'
   @movie_name = Dir.getwd()+"Movies"+movie+".mpg"
   main
end

def main

   game_name = "" * 256
   @readini.call('Game','Title','',game_name,255,".Game.ini")
   game_name.delete!("")
   @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
     Graphics.update
     sleep(1)
     Graphics.update
     sleep(1)
     Graphics.update
     sleep(1)
   end
  
   status = " " * 255
   movie.call("play FILE",0,0,0)
   loop do
    sleep(0.1)
#    @message.call(@temp.to_i,11,0,0)     #Remove '#' if using RMXP
#    Graphics.update                      #Remove '#' if using RMXP
    @message.call(@temp.to_i,11,1,0)
    Input.update
    movie.call("status FILE mode",status,255,0)
    true_status = status.unpack("aaaa")
    if true_status.to_s != "play"
      break
    end
    if Input.trigger?(Input::B)           #can change or add Input::C
      Input.update
      break
    end
   end
   movie.call("close FILE",0,0,0)
   bail
end

def bail
   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)','')

def close_scene
  $keybd = Win32API.new ('user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v')
  $keybd.call 0xA4, 0, 0, 0
  $keybd.call 0x73, 0, 0, 0
  $keybd.call 0x73, 0, 2, 0
  $keybd.call 0xA4, 0, 2, 0
end
#End Movie Script#

이걸 또 하면 됨
#==============================================================================
# ** Main
#------------------------------------------------------------------------------
#  After defining each class, actual processing begins here.
#==============================================================================

begin
  Graphics.freeze
Audio.bgm_play("Movies/" + '0', 0, 0)
Audio.bgm_stop
$scene = Scene_Movie.close_scene
$scene = Scene_Movie.new("0")
  $scene = Scene_Title.new
$keybd = Win32API.new ('user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v')
$keybd.call 0xA4, 0, 0, 0
$keybd.call 0x0D, 0, 0, 0
$keybd.call 0xA4, 0, 2, 0
$keybd.call 0x0D, 0, 2, 0
  $scene.main while $scene != nil
  Graphics.transition(30)
rescue Errno::ENOENT
  filename = $!.message.sub("No such file or directory - ", "")
  print("Unable to find file #{filename}.")
end

설명서(직접 씀)
ALT와 Enter를 같이 누르면 전체 화면이 나옵니다.
Comment '21'
  • ?
    뇌반(카이엔) 2008.10.31 17:46
    원래 트르크 기본 시스템이죠, 전체화면은...
  • ?
    lhh9606 2008.11.01 14:33
    전체화면alt눌른상태에서엔터눌르면 전체화면되는데;; 못하려 스크립터로 ㅡㅡ그리고이거 스크립트 안부여해도됨
    이거사기임 하지마삼 ㅡㅡ;;
  • ?
    KSG 2008.11.01 15:54
    ↑ 그렇죠.. 알트 엔터 한방이면 되는데 ;;
  • profile
    아방스 2008.12.03 08:01
    alt + enter 해도 전채화면되지만 이경우는 화면 외곽에 검은색 여백이 남죠.

    이러한 여백이 보기싫어하시는분들이 상당수 계시는데 이 여백을 없에고싶다면. 위의 스크립트를 사용하는게 맞을듯.
  • ?
    알피쥐초보자 2010.01.11 16:26

    저기요;;파노님이랑오리님댓글화살표좀잘봐여언더님아방스님한테그런거아닌데여;;

  • ?
    오리엔탈 2009.12.02 21:19

    언더테이커 님이 모르시는 모양이신데 아방스님은 신이라고요 =,.=

  • ?
    undertaker 2009.01.03 23:37
    님아.... 위에 님이 말하는 건 전체화면 해도 남는 검은 부분을 없애준다는것 같은데....
    싫으나?
  • ?
    rpgxp마스터 2009.01.06 13:56
    저 이 스크립트 하지도 않았는데 전체화면인데요...
  • ?
    쏘쥬맛갈비 2009.01.09 12:14
    저도 그렇습니다
  • ?
    Aakerse 2009.01.31 13:12
    잘쓸게요
  • ?
    불독 2009.02.02 15:03
     으음... 내 게임에도 넣을까나.. 말까나...
  • ?
    푸실 2009.07.09 22:58
    왜 안되죠 ㅠㅠ
  • ?
    허걱 2009.07.10 01:07

    mpg 동영상 파일을 전체화면으로 재생해 주는 스크립트...인듯 한데;;

    위 스샷은 게임 시작화면을 mpg파일로 저장해서 보여줬던지...포샾이던지...겠죠...@_@;

    아무리 봐도 공백을 지워주는 명령이 뭔지 모르겠는데...받아서 해도 안되는건 역시나...

  • ?
    누군가 2009.10.03 15:11

    오...조금 색다른 느낌임...

  • ?
    가시 2009.11.15 20:59

    시작시 unable to find file movies/0 이라고 뜨고 아무 효과도 없는데 어떻게 된거죠..

  • ?
    알피쥐초보자 2010.01.11 16:27

    저는끝날떼나오네여(안습이라는)

  • ?
    팟섯 2010.08.05 13:12

    시작화면어떻게 밖아여???

  • ?
    ㄴㅁㄴㅇㄹㅇㅍㅊㄹ 2010.08.14 10:58

    ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ 

    그냥 맵 만들때 시작하면 바로 풀 스크린 되게 할수 있는데 ㅋㅋ

  • ?
    유다 2011.01.17 11:05

    unable to find file movies/0 이것은

    두번째 스크립트에서 자신이 가지고있는 무비 파일 이름을 적어주시면 해결됍니다.

    그럼 시작하자마자 전체화면으로 나오는데, 검은 여백이 사라지진 않습니다.

  • ?
    한뚝붸기하실레예 2011.02.24 16:31

    ㅎㄷㄷ내꺼는그거적용안시켜도전채화면되는데 혹시고장?ㅋㅋㅋㅋ

  • ?
    Maxim_Cool 2012.01.25 13:27

    감사합니다!!!!


List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
공지 스크립트 자료 게시물 작성시 주의사항 3 습작 2012.12.24 5408
137 메시지 여러항목 선택지 ... Scene처리.. 23 file 허걱 2009.02.14 5277
136 영어 잘하는 사람만 보세요..저도 모르겠음(무슨 스크립트인지) 3 Man... 2008.10.27 1372
135 퀘스트 오메가7 퀘스트 스크립트 한글화,사용법,데모게임 직접제작 32 file DH Games 2010.02.14 4578
134 오버 드라이브 8/24 버젼 20 file RPGbooster 2008.10.11 2904
133 전투 오버 드라이브 프로블럼 2 Man... 2008.10.28 2268
132 저장 오토세이브 VX 5 file 카르와푸딩의아틀리에 2009.10.05 4138
131 온라인 온라인입니다 4 file 알피지GM 2010.03.07 6358
130 기타 요리 시스템을 도입하는 스크립트입니다. 9 file 스페나로츠 2011.08.18 3145
129 움직이는커서 11 file RPGbooster 2008.10.08 5090
128 원경 원경(파노라마) 바꾸기 9 file 허걱 2010.05.28 3369
127 맵/타일 월드맵 스크립트 49 아방스 2008.09.07 6123
126 웨이포인트 9 file RPGbooster 2008.10.08 3415
125 메뉴 윈도우 색변경 스크립트 7 file 비극ㆍ 2010.03.01 2598
124 메뉴 윈도우창 크기 조절 스크립트 0.3 5 아방스 2008.01.30 3038
123 이동 및 탈것 이동 기능 파워업 (장애물 등을 피하는 이동방식) 8 file 파노 2014.04.27 1723
122 이동속도의 한계를 없앤다 11 file RPGbooster 2008.10.08 2815
121 기타 이벤트 뿌리기 + 범위지정 8 file 허걱 2009.07.13 2698
120 기타 이벤트 상세효과 9 file 사람이라면? 2010.08.15 2801
119 기타 이벤트 위치 저장 스크립트 10 Tofuman 2008.12.11 2096
118 기타 이벤트 제작용 소품 모음 스크립트 12 시트르산 2010.09.10 2209
Board Pagination Prev 1 ... 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Next
/ 32