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 5407
197 직업 서브클래스 선택 시스템 Subclass Selection System 7 file 카르와푸딩의아틀리에 2009.06.30 3943
196 기타 설명하기 힘든 스크립트 (스크린샷 확인) 10 file 사람이라면? 2010.08.16 3818
195 저장 세이브 시스템 확장 스크립트 9 file 신규회원 2012.02.24 3315
194 저장 세이브 파일 개수 16개로 늘리기 (기본 세이브 엔진용) 1 file Bunny_Boy 2015.09.07 817
193 기타 세이브 포인트 2 비극ㆍ 2010.04.19 2518
192 저장 세이브/로드가 불가능한 스크립트!!! 9 file ~AYARSB~ 2010.03.08 3298
191 메시지 소설풍(노벨풍) 문자 스크립트 31 file 맛난호빵 2011.01.03 5551
190 이동 및 탈것 스위치 on일때 못 움직이게...(이동고정) 6 허걱 2009.07.14 2325
189 기타 스크린샷 기능 14 비극ㆍ 2010.04.19 2090
188 기타 스크립트강좌 4 아하!잘봤어요. 2009.05.04 2158
187 기타 스크립트로 커먼 이벤트 실행 [수정] 3 허걱 2009.08.17 2311
186 스킬 스킬 사용시 컷인 연출 (번역) 26 file 훈덕 2009.02.05 5387
185 상점 스킬 샾 스크립트 2.0 48 아방스 2008.03.05 6628
184 전투 스킬 커맨드 스크립트 16 아방스 2009.02.05 4535
183 스킬 스킬 필요 조건(번역) 23 file 훈덕 2009.02.03 4644
182 스킬 스킬 필요조건에 살짝 손대봤습니다. -- 수정 18 아이미르 2011.03.23 2499
181 스킬 스킬, 아이템 적아 구분 없이 쓰기 10 file EuclidE 2011.10.16 2900
180 스킬 스킬북으로 스킬 레벨업!, 'SW_BookSkill' by SiotWarrior(재수정) 21 file 시옷전사 2011.05.15 2817
179 스킬분류 16 file RPGbooster 2008.10.11 2833
178 장비 스킬습득장비 [죄송] 19 file RPGbooster 2008.10.11 4049
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