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
477 HUD PRABS v1.0 [hud,주석액알,원거리공격,hotkeys,vx] 대박감이다. 47 유칸지 2008.08.13 11114
476 메시지 Quick Face Border 12 아방스 2008.03.05 4161
475 타이틀/게임오버 Rafidelis KaHh Box 타이틀화면 20 카르와푸딩의아틀리에 2009.08.23 5004
474 타이틀/게임오버 Random Title Screen 2 Man... 2008.10.28 1454
473 이동 및 탈것 Rei Advanced Movement System 8 file 카르와푸딩의아틀리에 2009.08.19 2624
472 장비 Rei(레이)의 Paperdoll(비쥬얼 장비)스크립트 20 file 루시페르 2009.07.29 4467
471 기타 reijubv - New Balloon Command (VXA에서도 작동) 1 file 혜인 2013.04.08 1332
470 Repel Effect 1 Man... 2008.10.28 1753
469 전투 Requiem ABS 8 - 액션 배틀 시스템 8 36 아방스 2009.06.24 8540
468 전투 Requiem ABS Hero Edition by Falcao 습작 2013.05.13 2004
467 전투 Requiem SBABS (Requiem Squad Based Battle System) 14 vk 2009.02.07 7541
466 기타 Resize and Scale by OriginalWij 1 습작 2013.05.13 1349
465 기타 RMVX Patcher 1.2.0 by Yeyinde 5 file Alkaid 2010.11.12 2117
464 영상 RMVX에서 AVI 재생 스크립트 12 Nymph 2008.07.07 4108
463 맵/타일 Roguelike Random Dungeon Generator 2.0 by cozziekuns 4 file Alkaid 2011.09.29 2560
» 기타 RPG 2000이나 RPG 2003처럼 전체화면으로 나오게 하는 스크립트(대박) 21 Man... 2008.10.28 4821
461 전투 RPG Tankentai SBS 3.3 + ATB Kaduki Eng 58 아방스 2009.02.05 9071
460 전투 RPG Tankentai SBS 3.3 Kaduki Eng 2 아방스 2009.02.05 5467
459 전투 RPG Tankentai SBS 3.4d + ATB 1.2c Kaduki 18 시트르산 2010.09.10 6449
458 전투 RPG tankentai에서의 치명적 문제점을 보완한 스크립트 2 file 톰소여동생 2010.11.03 3116
Board Pagination Prev 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 32 Next
/ 32