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 6313
501 변수/스위치 SG_Gold Window Variables v2 by sandgolem (SDK호환) 백호 2009.02.22 899
500 이동 및 탈것 Memorize Location R2 by dubealex file 백호 2009.02.22 847
499 스킬 [KGC] 스킬습득 아이템 2 백호 2009.02.22 1296
498 저장 [KGC] 스크립트 저장된 리셋 불어오기 [스샷첨부] 1 file 백호 2009.02.22 1055
497 저장 [KGC]_2PaneSave 스크립트 1 file 백호 2009.02.22 1660
496 스킬 SG_Escape Only Skills by sandgolem (SDK호환) 백호 2009.02.22 755
495 아이템 SG_Escape Only Items by sandgolem (SDK호환) 백호 2009.02.22 851
494 전투 레벨업시 능력치 표시 2 백호 2009.02.22 1622
493 전투 FFX, X-2, FFXII 식으로 대미지 표시하기 by squall@rmxp.org 백호 2009.02.22 1116
492 메뉴 제가추천하는 메뉴스크립트 11 file 백호 2009.02.22 5304
491 메뉴 1-Scene CMS 1.1 by LegACy@rmxp.org (SDK호환) file 백호 2009.02.22 954
490 전투 Real Time Active Battle(RTAB) 1.14 from 歯車の城 3 file 백호 2009.02.22 1317
489 저장 [신기술 체험] 데이터 저장 6 file 백호 2009.02.22 1423
488 전투 [신기술 체험] 강회된 횡스크롤 액알 13 file 백호 2009.02.22 6844
487 기타 KGC, SG 필수 스크립트 1 백호 2009.02.22 1111
486 온라인 멀티넷플레이 99Q Beta 3 27 백호 2009.02.22 3109
» 상점 간단한 여관 by Tsunokiette@Creation Asylum 2 백호 2009.02.22 1531
484 기타 Letter by Letter Message Window by slipknot@rmxp.org (SDK호환) 1 file 백호 2009.02.22 761
483 스킬 Equipment Skills 2.0 by SephirothSpawn file 백호 2009.02.22 1009
482 이동 및 탈것 Advanced Player Movement by SephirothSpawn (SDK호환) 1 file 백호 2009.02.22 802
Board Pagination Prev 1 ... 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 ... 52 Next
/ 52