XP 스크립트

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

Who's 백호

?

이상혁입니다.

http://elab.kr

Comment '2'
  • ?
    무뇌인 2010.07.22 10:20

    ㅇㅅㅇ 참 간단하면서도 심플하기도하고

  • ?
    무뇌인 2010.07.22 10:21

    ... 아직 안써봤는데 오류가 나긴 날까요?


List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
공지 스크립트 자료 게시물 작성시 주의사항 습작 2012.12.24 6153
14 상점 상점아템 가격변동(중뷁?) 4 캉쿤 2011.09.14 2188
13 상점 Advanced Shop System by Alexis Hiemis 1 file Alkaid 2010.10.08 1872
» 상점 간단한 여관 by Tsunokiette@Creation Asylum 2 백호 2009.02.22 1529
11 상점 밑에 글 영어로 뜨는거 수정(여관시스템) 7 file 백호 2009.02.22 1683
10 상점 여관 시스템 5 file 백호 2009.02.22 2209
9 상점 상점 시세 변동 스크립트 수정판 3 백호 2009.02.22 1518
8 상점 상점에서 Q.W버튼으로 순서를 바꿈!상점스텟 상세화 업그레이드 1 백호 2009.02.21 1714
7 상점 상점에 물방,마방 구별, 무기의 능력치 상세화 5 file 백호 2009.02.21 2512
6 상점 상점 직접 장비 스크립트 1 file 백호 2009.02.21 1771
5 상점 상점 메뉴 개조시킨 스크립트 [한글] 35 file 백호 2009.02.21 3566
4 상점 상점 메뉴 개조시킨 스크립트 - 수정 - 2 file 백호 2009.02.21 1818
3 상점 상점 메뉴 개조시킨 스크립트 9 file 백호 2009.02.21 2322
2 상점 Mog- 상점업그레이드 ps인간 2009.01.23 2682
1 상점 ▼▲▼ XRXS36. 숍·변동시장 ▼▲▼ (시세) 8 D.S.Y 2008.12.09 2025
Board Pagination Prev 1 Next
/ 1