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 5398
130 기타 게임 해상도를 조절 하는 스크립트 19 아방스 2008.01.21 4780
129 기타 VX에서 포그 그래픽을 사용하자 16 아방스 2008.01.31 3895
128 기타 텍스트 파일 읽어 오는 스크립트 11 아방스 2008.03.04 2877
127 기타 간단한 스크립트의 사용법 6 아방스 2008.03.09 4552
126 기타 rpg vx 렉 줄이는 스크립트 34 아방스 2008.03.09 4813
125 기타 2 Players Engine 11 레이니케 2008.03.28 2294
124 기타 [VX] Anti-Lag 1.2c by Anaryu[예제첨부] 3 file WMN 2008.04.06 2371
123 기타 빛 이펙트 71 file DEVIL<Li Patanis Roni Kraudus> 2008.06.06 5860
122 기타 [KGC]한계돌파 9 방콕족의생활 2008.06.13 3599
» 기타 RPG 2000이나 RPG 2003처럼 전체화면으로 나오게 하는 스크립트(대박) 21 Man... 2008.10.28 4821
120 기타 TagNote v2.0 5 Man... 2008.10.28 1996
119 기타 Crissaegrim Farm BETA 1.0.0 10 Man... 2008.11.22 3093
118 기타 디스크 체인져 VX!! (업데이트..) 30 file Tofuman 2008.12.02 3168
117 기타 이벤트 위치 저장 스크립트 10 Tofuman 2008.12.11 2096
116 기타 책 읽기 스크립트. 19 허걱 2009.01.31 4490
115 기타 Staff Roll 13 file 허걱 2009.01.31 3523
114 기타 VX서비스팩1 6 훈덕 2009.02.03 2806
113 기타 작은 게이지바 표시 스크립트 44 file 허걱 2009.02.05 5979
112 기타 Base Project 15 아방스 2009.02.05 3063
111 기타 라이트 이펙트 스크립트 12 file 아방스 2009.02.07 3262
Board Pagination Prev 1 2 3 4 5 6 7 Next
/ 7