cyross-ruby-miyako 2.0.0

data/sample/fixed_map_test/fixed_map_sample.rb

@@ -0,0 +1,149 @@
+#! /usr/bin/ruby
+# FixedMap Sample
+# 2008.11.29 C.Makoto
+
+require 'Miyako/miyako'
+#require 'Miyako/idaten_miyako'
+
+include Miyako
+
+# Monster Class
+class Monster
+  extend Forwardable
+
+  def initialize(map, name, size, wait, pattern, x, y)
+    @spr = Sprite.new({:filename => name, :type => :color_key})
+    @spr.ow = size
+    @spr.oh = size
+    @coll= Collision.new(Rect.new(0, 0, @spr.ow, @spr.oh),
+                          Point.new(@spr.x, @spr.y))
+    @coll.amount = Size.new(1, 1)
+    ap = { }
+    ap[:sprite] = @spr
+    ap[:wait] = wait
+    ap[:pattern_list] = pattern
+#    ap[:position_offset] = [0,2,4,6,8,10,12,14]
+    @anim = SpriteAnimation.new(ap)
+    @anim.snap(map)
+    @anim.left.top.move(x, y)
+  end
+
+  def start
+    @anim.start
+  end
+  
+  def update(map, events, param)
+    @anim.update_animation
+  end
+
+  def render
+    @anim.render
+  end
+
+  def finish
+  end
+  
+  def dispose
+    @anim.dispose
+    @spr.dispose
+  end
+
+  def_delegators(:@anim, :start, :stop)
+end
+
+class Slime < Monster
+  def initialize(map, x, y)
+    super(map, "monster.png", 32, 0.5, [0, 1, 2, 3, 2, 1], x, y)
+    @pos = Point.new(x, y)
+    @interval = 2
+    @interval_x = 0
+    @interval_y = 0
+    @cnt = 0
+    @wait0 = WaitCounter.new(0.1)
+    @wait = WaitCounter.new(0.4)
+    @types = 5
+    @ary = [[ 0, 1, 0, @interval, @spr.oh],
+            [ 1, 0, @interval, 0, @spr.ow],
+            [-1, 0,-@interval, 0, @spr.ow],
+            [ 0,-1, 0,-@interval, @spr.oh]]
+  end
+
+  def update(map, events, param)
+    super
+    return if @wait.waiting? || @wait0.waiting?
+    if @cnt > 0
+      @anim.move(@interval_x, @interval_y)
+      @coll.move(@interval_x, @interval_y)
+      @cnt -= @interval
+      @wait0.start
+      return
+    end
+    val = rand(@types)
+    if val == 0
+      @interval_x = 0
+      @interval_y = 0
+      @wait.start
+    else
+      data = @ary[val-1]
+      @coll.direction = data[0..1]
+      
+      ret = map.get_amount_by_rect(0, @spr.rect, @coll)
+      
+      if (ret.amount[0] | ret.amount[1]) != 0
+        @interval_x, @interval_y = data[2..3]
+        @cnt = data[4]
+      end
+    end
+  end
+end
+
+class SlimeEvent
+  include MapEvent
+
+  def init(map, x, y)
+    @slime = Slime.new(map, x, y)
+  end
+  
+  def update(map, events, param)
+    @slime.update(map, events, param)
+  end
+  
+  def final
+    @slime.finish
+  end
+
+  def dispose
+    @slime.dispose
+  end
+  
+  def render
+    @slime.render
+  end
+end
+
+em = MapEventManager.new
+em.add(1, SlimeEvent)
+
+# main
+
+#@a = Sprite.new({:file=>"cursor.png", :type=>:ac })
+#@a.oh = @a.w
+#@a = SpriteAnimation.new({:sprite=>@a, :wait=>0.1, :pattern_list=>[0,1,2,3,2,1] })
+#@a.start
+
+mp = MapChipFactory.load("./mapchip.csv")
+@fmap = FixedMap.new(mp, "./map.csv", em)
+#@fmap.set_mapchip_base(0, 4, @a)
+#@fmap.map_layers[0].mapchip_units[4] = @a
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+#  @a.update_animation
+  dx, dy = Input.trigger_amount.map{|v| v * 4 }
+  dx = 0 unless Screen.viewport.in_bounds_x?(@fmap.rect, dx)
+  dy = 0 unless Screen.viewport.in_bounds_y?(@fmap.rect, dy)
+  @fmap.move(dx, dy)
+  @fmap.events.each{|e| e.update(@fmap, @fmap.events, nil)}
+  @fmap.render
+  @fmap.events.each{|e| e.render}
+end

data/sample/fixed_map_test/map.csv

@@ -0,0 +1,19 @@
+"Miyako Maplayer",1.5
+7,7
+2
+<0>
+ 0, 1, 1, 1, 1, 1, 2
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 6, 7, 7, 7, 7, 7, 8
+<event>
+0, 0, 0, 0, 0, 0, 0
+0, 0, 0, 0, 0, 1, 0
+0, 0, 0, 0, 0, 0, 0
+0, 0, 0, 1, 0, 0, 0
+0, 0, 0, 0, 0, 0, 0
+0, 0, 1, 0, 0, 0, 0
+0, 0, 0, 0, 0, 0, 0

data/sample/fixed_map_test/map_sample.rb

@@ -0,0 +1,121 @@
+#! /usr/bin/ruby
+# FixedMap Sample
+# 2007.12.30 C.Makoto
+
+require 'Miyako/miyako'
+require 'Miyako/idaten_miyako'
+
+include Miyako
+# Monster Class
+class Monster
+  extend Forwardable
+
+  def initialize(name, size, wait, pattern, x, y)
+    @spr = Sprite.new({:filename => name, :type => :color_key})
+    @spr.ow = size
+    @spr.oh = size
+    @spr.move(x, y)
+    aparam = Hash.new
+    aparam[:sprite] = @spr
+    aparam[:wait] = wait
+    aparam[:pattern_list] = pattern
+    aparam[:position_offset] = [0,2,4,6,8,10,12,14]
+    @anim = SpriteAnimation.new(aparam)
+    @anim.start
+  end
+
+  def update(map, events, param)
+  end
+
+  def finish
+    @spr.dispose
+  end
+
+  def_delegators(:@anim, :start, :stop)
+end
+
+class Slime < Monster
+  def initialize(x, y)
+    super("monster.png", 32, 0.5, [0, 1, 2, 3, 2, 1], x, y)
+    @interval = 2
+    @interval_x = 0
+    @interval_y = 0
+    @amount = @spr.oh
+    @cnt = 0
+    @wait0 = WaitCounter.new(0.1)
+    @wait = WaitCounter.new(0.4)
+  end
+
+  def update(map, events, param)
+    @anim.update_animation
+    return if @wait.waiting? || @wait0.waiting?
+    if @cnt > 0
+      @spr.move(@interval_x, @interval_y)
+      @cnt -= @interval
+      @wait0.start
+      return
+    end
+    case rand(5)
+    when 0
+      @interval_x = 0
+      @interval_y = 0
+      @wait.start
+    when 1
+      code = map.getCodeReal(0, @spr.x, @spr.y+@spr.oh)
+      if code == -1
+        @interval_x = 0
+        @interval_y = @interval
+        @cnt = @amount
+      end
+    when 2
+      code = map.getCodeReal(0, @spr.x+@spr.ow, @spr.y)
+      if code == -1
+        @interval_x = @interval
+        @interval_y = 0
+        @cnt = @amount
+      end
+    when 3
+      code = map.getCodeReal(0, @spr.x-@spr.ow, @spr.y)
+      if code == -1
+        @interval_x = -@interval
+        @interval_y = 0
+        @cnt = @amount
+      end
+    when 4
+      code = map.getCodeReal(0, @spr.x, @spr.y-@spr.oh)
+      if code == -1
+        @interval_x = 0
+        @interval_y = -@interval
+        @cnt = @amount
+      end
+    end
+  end
+end
+
+class SlimeEvent
+  include MapEvent
+
+  def init
+    @slime = Slime.new(@event_pos.x, @event_pos.y)
+  end
+  
+  def update(map, events, param)
+    @slime.update(map, events, param)
+  end
+  
+  def final
+    @slime.finish
+  end
+end
+
+MapEvent.add(1, SlimeEvent)
+
+# main
+
+mp = MapChipFactory.load("./mapchip.csv")
+@fmap = FixedMap.new(mp, "./map.csv")
+@fmap.show
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+end

data/sample/fixed_map_test/mapchip.csv

@@ -0,0 +1,23 @@
+"Miyako Mapchip",1.5
+"map_01.png"
+32,32
+1
+0,0,32,32
+0,0,32,32
+0,0,32,32
+0,0,32,32
+0,0,32,32
+0,0,32,32
+0,0,32,32
+0,0,32,32
+0,0,32,32
+0,0,0,0,0,0,0,0
+0,0,0,0,0,0,0,0
+0,0,0,0,0,0,0,0
+0,0,0,0,0,0,0,0
+1,-1,1,-1,-1,1,-1,1
+0,0,0,0,0,0,0,0
+0,0,0,0,0,0,0,0
+0,0,0,0,0,0,0,0
+0,0,0,0,0,0,0,0
+"end"

data/sample/fixed_map_test/readme.txt

@@ -0,0 +1,72 @@
+*******************************************************************************
+�y   ��Җ�   �z�@�T�C���X��
+�y  �\�t�g��  �z�@Miyako v1.4.4�T���v��(�Œ�}�b�v)
+�y �o�[�W���� �z�@1.0
+�y   �쐬��   �z�@2008/01/14
+�y    ���    �z�@�t���[�E�F�A
+�y  �J������  �z�@Ruby 1.8.6-p111
+�y �����^�C�� �z�@Miyako v1.4.4
+�y  �Ή��@��  �z�@Windows 2000/XP/Vista�ALinux
+�y   �Ĕz�z   �z�@�C��BSD���C�Z���X�ɂ��
+�y    �]��    �z�@�C��BSD���C�Z���X�ɂ��
+�y�z�[���y�[�W�z�@http://www.twin.ne.jp/~cyross/Miyako/
+�y   �A����   �z�@cyross@po.twin.ne.jp
+*******************************************************************************
+
+�E�T�v
+
+�@���̃v���O�����́AMiyako v1.4.4�ȍ~�ɑΉ�����AMiyako�T���v���v���O�����ł��B
+�@�X�N���[�����Ȃ��}�b�v��ŁA�X���C�������˂��˂��Ȃ��瓮������Ă��܂��B
+
+�EMiyako�ɂ‚���
+
+�@Miyako�Ɋւ��ẮA�ȉ���URL���Q�l�ɂ��Ă��������B
+http://www.twin.ne.jp/~cyross/Miyako/
+
+�@Miyako(Ruby�ARuby/SDL�܂�)�̃C���X�g�[���Ɋւ��܂��ẮA
+��LURL��H���ē�����A�[�J�C�u���ꂽMiyako���C�u������
+�W�J����ƁAreadme.txt�������܂��̂ŁA����������Q�Ɖ������B
+
+�@�{�T���v���ł́AMiyako��Windows��œ��삷�邱�Ƃ�O��ɂ��Ă��܂��B
+�i�C���X�g�[������Ruby���s�‹���ActiveRuby�ł��邱�Ƃ��O���
+�@���Ă��܂��j
+
+�E�N�����@
+
+�@�G�N�X�v���[���[���J���A�{�T���v���̃t�H���_���ŁA�um1ku.rb�v��
+�_�u���N���b�N���܂��B
+�@�������́A�R�}���h���C����œ������ꍇ�́A�{�T���v���̃f�B���N�g����
+�ړ����āA�ȉ��̃R�}���h����͂��܂��B
+
+�@ruby fixed_map_sample.rb
+
+�E�Ɛӎ���
+
+�@�{�T���v���͖��ۏ؂ł��B�����{�T���v�����g�p���邱�Ƃɂ��s��E�g���u��
+���N�������Ƃ��Ă��A�����Ȃ�g���u���ɑ΂���ӔC�𕉂�Ȃ����Ƃ��������������B
+
+�@�{�T���v���́A�C��BSD���C�Z���X�Ɋ�Â����]�ځE�Ĕz�z�����‚��܂��B
+
+�EBSD���C�Z���X��
+
+Copyright (c) 2008, Cyross Makoto
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
+
+�ERedistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
+�ERedistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
+�ENeither the name of the Cyross Makoto nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

data/sample/map_test/chara.rb

@@ -0,0 +1,50 @@
+#キャラクタ管理クラス
+class PChara # Player Character
+  extend Forwardable
+  attr_accessor :dir
+  @@amt2dir = {[0,1]=>0,[-1,0]=>1,[1,0]=>2,[0,-1]=>3}
+  @@amt2dir.default = -1
+
+  def initialize(fname, size, pw = 0.2)
+    @size = size
+    # キャラクタスプライトを作成
+    # コリジョンはスプライトのものを共有して使用
+    @spr = Sprite.new({:filename => fname, :type => :color_key})
+    raise MiyakoError, "Character Size is not aligned by Map Chip Size!" unless (@spr.w % @size[0] == 0 && @spr.h % @size[1] == 0)
+    @spr.ow = @size[0]
+    @spr.oh = @size[1]
+    param = Hash.new
+    param[:sprite] = @spr
+    param[:wait] = pw
+    # キャラパターンを表示
+    @anim = SpriteAnimation.new(param)
+    @anim.centering
+  end
+
+  # マップの表示座標と実座標とのマージンを設定
+  def margin
+    return Size.new(-@spr.x, -@spr.y)
+  end
+
+  def turn(d)
+    @anim.character(@@amt2dir[d])
+  end
+
+  def start
+    @anim.start
+  end
+  
+  def stop
+    @anim.stop
+  end
+
+  def update
+    @anim.update_animation
+  end
+  
+  def render
+    @anim.render
+  end
+  
+  def_delegators(:@spr, :dispose, :rect, :ow, :oh, :x, :y)
+end

data/sample/map_test/main_parts.rb

@@ -0,0 +1,48 @@
+#共通パーツクラス
+class CommonParts
+  include Singleton
+
+  attr_reader :box, :cbox
+  attr_accessor :executing
+  
+  def initialize
+    # create window
+    font = Font.sans_serif
+    font.size = 24
+    
+    cfont = Font.sans_serif
+    cfont.size = 16
+    
+    wc = Sprite.new({:file => "wait_cursor.png", :type => :ac})
+    wc.oh = wc.w
+    
+    wc = SpriteAnimation.new({:sprite => wc, :wait => 0.2, :pattern_list => [0, 1, 2, 3, 2, 1]})
+    sc = Sprite.new({:file => "cursor.png", :type => :ac})
+    sc.oh = sc.w
+
+    sc = SpriteAnimation.new({:sprite => sc, :wait => 0.2, :pattern_list => [0, 1, 2, 3, 2, 1]})
+
+    tb = TextBox.new({:size => [20, 4], :font => font, :wait_cursor => wc, :select_cursor => sc})
+    tb.pause_type = :out
+ 
+    cb = TextBox.new({:size => [8, 8], :font => cfont, :wait_cursor => wc, :select_cursor => sc})
+
+    bg = Sprite.new({:size=>tb.size, :type=>:ac})
+    bg.fill([0,0,255,64])
+
+    cbg = Sprite.new({:size=>cb.size, :type=>:ac})
+    cbg.fill([0,255,0,64])
+
+    @box = Parts.new(bg.size)
+    @box[:bg] = bg
+    @box[:box] = tb
+    @box.center.bottom{|body| wc.oh }
+
+    @cbox = Parts.new(cbg.size)
+    @cbox[:bg] = cbg
+    @cbox[:box] = cb
+    @cbox.right{|body| 2.percent(body) }.top{|body| 2.percent(body) }
+
+    @executing = false
+  end
+end

data/sample/map_test/main_scene.rb

@@ -0,0 +1,137 @@
+class MainScene
+  include Story::Scene
+
+  def init
+    @cnt = 0
+    @amt = 4
+    @a = [0,0]
+    @d = [0,1]
+
+    @map = MapManager.new
+    @size = @map.size
+    @map.collision.amount = Size.new(@amt, @amt)
+    @executing_flags = Array.new(@map.events.length){|n| false}
+
+    # キャラクタの初期位置を指定([10,10]に位置)
+    @chr = PChara.new("./chr1.png", @size)
+
+    # マップの表示開始位置を移動させる
+    # キャラクタのグラフィックを真ん中に表示させるため
+    @map.margin.resize(*@chr.margin)
+    @map.sync_margin
+    # マップの実座標を設定する
+    @map.move(@size[0] * 10, @size[1] * 10)
+    
+    @parts = CommonParts.instance
+    #Yukiの初期化
+    @yuki = Yuki.new
+    @yuki.select_textbox(@parts.box[:box])
+    @yuki.select_commandbox(@parts.cbox[:box])
+  end
+  
+  def setup
+    @map.start
+    @chr.start
+  end
+
+  def update
+    return nil if Input.quit_or_escape?
+
+    @map.update
+    @chr.update
+
+    # 移動量が残っているときは移動を優先
+    if @cnt > 0
+      # 移動後のマップの実座標を計算
+      @map.move(*@a)
+      @cnt = @cnt - @amt
+    elsif @yuki.executing?
+      @yuki.update
+    elsif @executing_flags.none?
+      if Input.pushed_any?(:btn1)
+        #１ボタンを押したとき、イベントに重なっていればマップイベントを実行、
+        #外れていれば、コマンドウィンドウを開く
+        event_flags = @map.events.map{|e| e.met?(:collision => @map.collision)}
+        if event_flags.none?
+          @yuki.start_plot(@yuki.to_plot(self, :command_plot))
+        else
+          @map.events.zip(event_flags){|ef| ef[0].start(@parts) if ef[1]}
+        end
+      elsif Input::trigger_any?(:down, :up, :left, :right)
+            # 0:down 1:left 2:right 3:up
+        @d = Input::trigger_amount
+        @d[1] = 0 if @d[0] != 0 && @d[1] != 0 # 移動を横方向優先に
+        # コリジョンの移動量を設定
+        @map.collision.direction = @d
+        #キャラクタの向きを変更
+        @chr.turn(@d)
+        #マップの移動量を求める
+        @a = @map.get_amount(0, @map.size, @map.collision).amount.to_a
+        # 方向ボタンを押したときは、１チップサイズ単位で移動する
+        # @cntはその移動量(幅と高さでサイズが違う場合アリ)
+        @cnt = @a[0] > 0 ? @size[0] : @size[1]
+      end
+    else
+    end
+
+    @map.events.zip(@executing_flags){|ef|
+      if ef[1]
+        if Input.pushed_any?(:btn2)
+          ef[0].stop
+        else
+          ef[0].update(nil, nil, nil)
+        end
+      end
+    }
+    @executing_flags = @map.events.map{|e| e.executing? }
+   
+    #コマンド選択の結果、イベントが実行されたときは、結果として@nowを返す
+    return @now unless @yuki.is_scene?(@yuki.result)
+    return @yuki.result || @now
+  end
+
+  def render
+    @map.render
+    @map.render_event
+    @chr.render
+    @map.render_event_box
+    if @yuki.executing?
+      @parts.box.render
+      @parts.cbox.render if @yuki.selecting?
+    end
+  end
+
+  def command_plot(yuki)
+      yuki.command([Yuki::Command.new("話す", "話す", nil, yuki.to_plot(self, :talk)),
+                     Yuki::Command.new("調べる", "調べる", nil, yuki.to_plot(self, :check))], @now)
+      yuki.select_result.call(yuki) if yuki.is_scenario?(yuki.select_result)
+      return @now
+  end
+  #コマンドウィンドウの「調べる」を選んだときの処理
+  def check(yuki)
+    yuki.text "あなたは、足下を調べた。\n"
+    yuki.pause
+    yuki.text "しかし、何も無かった。"
+    yuki.pause
+    yuki.clear
+  end
+  
+  #コマンドウィンドウの「話す」を選んだときの処理
+  def talk(yuki)
+    yuki.text "話をしようとしたが"
+    yuki.cr
+    yuki.text "あなたの周りには誰もいない。"
+    yuki.pause
+    yuki.clear
+  end
+  
+  def final
+    @map.stop
+    @chr.stop
+  end
+  
+  def dispose
+    @map.dispose
+    @chr.dispose
+  end
+end