赞 | 0 |
VIP | 0 |
好人卡 | 9 |
积分 | 1 |
经验 | 16728 |
最后登录 | 2014-12-17 |
在线时间 | 510 小时 |
Lv1.梦旅人
- 梦石
- 0
- 星屑
- 50
- 在线时间
- 510 小时
- 注册时间
- 2010-5-8
- 帖子
- 266
|
http://blog.yam.com/a870053jjkj/article/23816810
進這裡看看吧 (第二次解決同一問題了==)- module Sword
- Sword29_Name = Array.new
- #=======================================
- #★ 魔劍工舖 - 標題畫面前顯示LOGO 1.02
- # 轉貼腳本請著名出處:http://blog.yam.com/a870053jjkj/
- # 如果採用在遊戲中,看你高興是否顯示腳本出處,但嚴禁說是自己寫的腳本!!
- #=======================================
- #●使用者自定設置
- Sword29_XPVX = 0 # 此腳本用於XP時設為0;此腳本用在VX時設為1
- Sword29_Making = 20 #淡出或淡入效果的時間
- Sword29_Time = 80 #LOGO的顯示時間
- Sword29_Title = 10 #顯示下1個或到標題畫面的間隔時間,每40約1秒
- Sword29_End = 13 #提前結束的按鈕,數值可參考事件[按鍵輸入處理]
- #設定顯示的圖片,[]內的數字為圖片編號,可自行添加Sword29_Name[編號]
- #編號必須依0、1、2、3、4的順序,圖片請存在遊戲資料夾內的Pictures資料夾裡面
- Sword29_Name[0] = "sword01"
- Sword29_Name[1] = "sword02"
- =begin
- 詳細設置說明請參考:http://blog.yam.com/a870053jjkj/article/23816810
- =end
- $Sword ? $Sword[29] = 202 : $Sword = {29=>202} # 腳本使用標誌
- end
- #=======================================
- #■ 處理標題畫面的類別
- class Scene_Title
- include Sword # 連接自定設置
- $Sword_NoRepeat2 = []
- #-------------------------------------------------------------
- #● 主處理
- alias sword29_main main
- def main
- (sword29_main ; return) if $Sword_NoRepeat2[0] # 防止重新時重複顯示
- $Sword_NoRepeat2[0] = true
- for i in Sword29_Name
- # 產生圖片
- sword_logo = Sprite.new
- sword_logo.bitmap = Sword29_XPVX == 0 ?
- RPG::Cache.picture(i) : Cache.picture(i)
- sword_logo.opacity = 0
- Graphics.transition
- b = 255 / Sword29_Making
- # 顯示圖片的處理
- (sword_input ; sword_logo.opacity += b) while sword_logo.opacity <= 254
- a = 0
- (sword_input ; a += 1) while a < Sword29_Time
- # 清除圖片的處理
- (sword_input ; sword_logo.opacity -= b) while sword_logo.opacity >= 1
- sword_logo.bitmap.dispose ; sword_logo.dispose
- # 顯示下一張前的間隔時間
- a = 0
- (sword_input ; a += 1) while a < Sword29_Title
- Graphics.freeze
- (sword29_main ; return) if $Sword_NoRepeat2[1]
- end
- sword29_main
- end
- #-------------------------------------------------------------
- #● 更新畫面與按鍵
- def sword_input
- Graphics.update unless $Sword_NoRepeat2[1]
- unless Sword29_End == 0
- Input.update
- (Graphics.freeze ; $Sword_NoRepeat2[1] = true) if Input.trigger?(Sword29_End)
- end
- end
- end
复制代码 |
|