RPGXP 스크립트
2013.09.24 08:12

간단한 여관 스크립트

조회 수 909 추천 수 0 댓글 1
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

http://www.dubealex.com/asylum/index.php?showtopic=9362 
  간단한 여관스크립트입니다.  호출법은 이벤트 명령->스크립트에서: 
a = #여관 비용 
b = #주인의 인사말('어서 오세요~ 하룻밤에 $$$입니다.  쉬어가시겠습니까?') 
c = #작별인사('안녕히 가세요~') 
call_inn(a,b,c) 

호출 예: 
a = 300 
b = '어서 오십시오.  하룻밤 자는데 300G입니다.  자고 가시겠습니까?' 
c = '이용해 주셔서 감사합니다.' 
call_inn(a,b,c) 


#============================================================================== 
# ** Inn 
#------------------------------------------------------------------------------ 
# Tsunokiette 
# 2 
# 2006-06-12 

# Edited by Zeriab 
# 2006-06-13 
#============================================================================== 

# Quick Call 
def call_inn(a,b,c) 
  $scene = Inn.new(a,b,c) 
end 

#================================================================= 
# ** Scene Inn 
#================================================================= 
class Inn 
    
    #================================================================= 
    # * Initialization 
    #----------------------------------------------------------------- 
    # Cost = Ammount of Money to Charge. 
    # Message A = Message to say hello and ask if you want to stay. 
    # Message B = Message to say once you've stayed and are leaving. 
    #================================================================= 
    def initialize(cost,message_a,message_b) 
        @cost = cost 
        @hello = message_a 
        @goodbye = message_b 
    end 
  
    #================================================================= 
    # * Main Proccessing 
    #================================================================= 
    def main 
        @bitmap = Spriteset_Map.new 
        @gold = Window_Gold.new 
        @gold.x = (640 - @gold.width) 
        @gold.y = 0 
        @choice = Window_Command.new(200,['Yes','No']) 
        width = @choice.contents.text_size('Yes').width + 40 
        @choice.dispose 
        @choice = Window_Command.new(width,['Yes','No']) 
        @choice.width = width 
        @choice.y = 214 
        @choice.index = 0 
        @message = Window_Message.new  
        $game_temp.message_text = @hello.dup    
        @message.visible = true 
        # Execute transition 
        Graphics.transition 
        loop do 
            Graphics.update 
            Input.update 
            @choice.update 
            @bitmap.update 
            $game_temp.message_text = @hello.dup    
            @message.refresh 
            @message.update            
            if Input.trigger?(Input::C) 
                case @choice.index 
                when 0 
                    if $game_party.gold >= @cost 
                        for actor in $game_party.actors 
                          actor.hp = actor.maxhp 
                          actor.sp = actor.maxsp 
                        end 
                        @gold.visible = false 
                        @message.visible = false 
                        @choice.visible = false 
                        @choice.active = false 
                        $game_party.lose_gold(@cost) 
                        @gold.refresh 
                        tone1 = Tone.new(-255,-255,-255,255) 
                        tone2 = Tone.new(0,0,0,0) 
                        $game_screen.start_tone_change(tone1, 20) 
                        wait = 0 
                        max_wait = 165 
                        while wait < max_wait do 
                          if wait == 20 
                            $game_system.me_play(RPG::AudioFile.new('014-Inn01')) 
                          end 
                          if wait == max_wait - 20 
                            $game_screen.start_tone_change(tone2, 20) 
                          end 
                          wait += 1 
                          $game_screen.update 
                          Graphics.update 
                          @bitmap.update 
                        end 
                        @gold.visible = true 
                        @message.visible = true 
                    else          
                        @choice.visible = false 
                        @choice.active = false 
                        @goodbye = "It appears you don't have enough money." 
                    end 
                end 
                break 
            elsif Input.trigger?(Input::B) 
                break 
            end 
        end 
        @choice.visible = false 
        @choice.active = false  
        $game_temp.message_text = @goodbye.dup    
        loop do 
            Graphics.update 
            Input.update 
            @bitmap.update 
            $game_temp.message_text = @goodbye.dup 
            @message.update 
            @message.refresh 
            if Input.trigger?(Input::C) or Input.trigger?(Input::B) 
                @message.visible = false 
                break 
            end 
        end 
        @gold.dispose 
        @message.dispose 
        @choice.dispose 
        @bitmap.dispose 
        $scene = Scene_Map.new 
    end 
end


by Tsunokiette@Creation Asylum

?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수 추천 수
148 RPGXP 스크립트 레벨업시 능력치 표시 4 2013.10.01 1081 0
147 RPGXP 스크립트 현재 시간 확인 2 2013.10.01 899 0
146 RPGXP 스크립트 화면의 쉐이크를 더 어지럽게 바꿔보자! 2013.10.01 986 0
145 RPGXP 스크립트 현재위치&임무 표시 2 2013.10.01 968 0
144 RPGXP 스크립트 윈도우 링 메뉴 1 2013.10.01 840 0
143 RPGXP 스크립트 장비 레벨 제한 2 2013.10.01 903 1
142 RPGXP 스크립트 텔레포트 스크립트 1 2013.10.01 894 0
141 RPGXP 스크립트 밤낮 설정 3 2013.10.01 994 0
140 RPGXP 스크립트 전메뉴 반투명화 2 2013.10.01 768 0
139 RPGXP 스크립트 Initial Switches and Variables 2013.10.01 602 0
138 RPGXP 스크립트 Switchless Common Events 2013.10.01 588 0
137 RPGXP 스크립트 Universal Message System 1.8.0 by ccoa 2013.10.01 581 0
136 RPGXP 스크립트 아이템 조합 스크립트 2013.10.01 890 0
135 RPGXP 스크립트 가상 키보드 입력 스크립트 2013.10.01 1660 0
134 RPGXP 스크립트 RPG 만들기 XP의 숨겨진 모듈/클래스 재정의 스크립트 모음 2013.10.01 1240 0
133 RPGXP 스크립트 빠른 길찾기 2 휴리드 2013.09.30 1336 0
132 RPGVX Ace 스크립트 텍스트 파일생성 1 휴리드 2013.09.30 654 0
131 RPGVX Ace 스크립트 파일 존재의 유무 체크 4 휴리드 2013.09.30 639 0
130 RPGXP 스크립트 네코에서 되는 마우스 스크립트 13 휴리드 2013.09.30 1675 0
129 RPGVX 스크립트 3D 그래픽 파티클 스크립트 1 청담 2013.09.29 1272 0
Board Pagination Prev 1 ... 3 4 5 6 7 8 9 10 11 12 ... 15 Next
/ 15






[개인정보취급방침] | [이용약관] | [제휴문의] | [후원창구] | [인디사이드연혁]

Copyright © 1999 - 2016 INdiSide.com/(주)씨엘쓰리디 All Rights Reserved.
인디사이드 운영자 : 천무(이지선) | kernys(김원배) | 사신지(김병국)