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
110 기타 개인판타지메뉴+업그래이드 배틀 23 file 콩밥 2010.08.02 4211
109 기타 Kylock 밤낮 스크립트 부분 한글화 + 달력 모드 (모드는 자작) 31 file RMdude 2009.02.15 4100
108 기타 액터선택지제작 간편화 스크립트 7 Evangelista 2009.02.26 4082
107 기타 시야범위 스크립트 18 file 좀비사냥꾼 2009.03.19 4047
106 기타 시야범위 스크립트 22 file 카르와푸딩의아틀리에 2009.06.30 4025
105 기타 화면 해상도(640 X 480) 스크립트 6 file 쿠쿠밥솥 2012.01.10 3972
104 기타 vx 보안 시스템 19 file 허걱 2009.07.29 3966
103 기타 VX에서 포그 그래픽을 사용하자 16 아방스 2008.01.31 3895
102 기타 통합 스크립트(좋은 마우스 스크립트 좋은거),KGC좋은거 새로운 거 스크립트 세이브 스크립트 좋은거!~~~~~ 14 알피지GM 2010.03.07 3829
101 기타 설명하기 힘든 스크립트 (스크린샷 확인) 10 file 사람이라면? 2010.08.16 3818
100 기타 레벨업 이펙트... 20 비극ㆍ 2010.04.19 3768
99 기타 미니게임테트리스 스크립트 ㅋㅋㅋ 27 file 카르와푸딩의아틀리에 2009.06.30 3689
98 기타 화폐단위 구분해 주는 스크립트 38 file 허걱 2010.04.13 3652
97 기타 낚시 스크립트~(낚시대로 하는 낚시가 아니라 사람을 낚는 낚시 스크립트) 14 file ~AYARSB~ 2010.03.18 3630
96 기타 멥 이름 띄우기 10 신규회원 2012.02.24 3626
95 기타 Crissaegrim 농장시스템 한글화 28 file 도심 2009.12.22 3606
94 기타 [KGC]한계돌파 9 방콕족의생활 2008.06.13 3599
93 기타 말풍선 그림 바꾸기 6 file 허걱 2009.08.15 3565
92 기타 데이터베이스 자체 제한 해체 스크립트 [Database Limit Breaker] 13 file 할렘 2009.02.07 3562
91 기타 KGC패시브 스크립트 30 카르와푸딩의아틀리에 2009.10.07 3551
Board Pagination Prev 1 2 3 4 5 6 7 Next
/ 7