ruby-miyako-mswin32 2.1.0

data/sample/cairo_sample.rb

@@ -0,0 +1,25 @@
+# encoding: utf-8
+# MiyakoCairoサンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+require 'Miyako/EXT/miyako_cairo'
+
+sprite = Miyako::Sprite.new(:file=>"Animation2/lex_body.png", :type=>:ck)
+sprite.bitmap.saveBMP("./sample.bmp")
+
+surface = Miyako::MiyakoCairo.to_cairo_surface(sprite)
+surface.write_to_png("./sample.png")
+
+surface = Cairo::ImageSurface.new(Cairo::Format::ARGB32, 320, 240)
+context = Cairo::Context.new(surface)
+
+context.set_source_rgb(1.0, 0.5, 0.8)
+context.fill{
+  context.rectangle(50, 50, 150, 100)
+}
+
+surface.write_to_png("./sample2.png")
+
+sprite = Miyako::MiyakoCairo.to_sprite(surface)
+sprite.bitmap.saveBMP("./sample2.bmp")

data/sample/circle_collision_test.rb

@@ -0,0 +1,66 @@
+# encoding: utf-8
+# 円コリジョン(CircleCollision)サンプル
+# 2009.4.26 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+Screen.fps = 60
+
+AMOUNT_MIN = -8
+AMOUNT_MAX = 8
+
+# Utility.in_bounds?引数生成
+def segments(sprite, amounts, idx)
+  [sprite.segment[idx], Screen.segment[idx], amounts[idx]]
+end
+
+# 移動量の決定
+def get_amount
+  range = AMOUNT_MAX - AMOUNT_MIN
+  [[rand(range)+AMOUNT_MIN,
+    rand(range)+AMOUNT_MIN],
+   [rand(range)+AMOUNT_MIN,
+    rand(range)+AMOUNT_MIN]]
+end
+
+radius = 32
+size = [radius*2, radius*2]
+pos = [radius, radius]
+sprite1 = Sprite.new({:size=>size, :type=>:as})
+Drawing.circle(sprite1, pos, radius, [255,0,0], true)
+collision1 = CircleCollision.new(pos, radius)
+sprite2 = Sprite.new({:size=>size, :type=>:as})
+Drawing.circle(sprite2, pos, radius, [0,255,0], true)
+collision2 = CircleCollision.new(pos, radius)
+caution = Shape.text({:font => Font.serif }){ text "collision!" }
+
+sprite1.move_to!(rand(Screen.w-size[0]), rand(Screen.h-size[1]))
+sprite2.move_to!(rand(Screen.w-size[0]), rand(Screen.h-size[1]))
+
+amount1, amount2 = get_amount
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  if collision1.collision?(sprite1.pos, collision2, sprite2.pos)
+    amount1, amount2 = get_amount
+    caution.render
+  end
+  amount1[0] = -amount1[0] unless Utility.in_bounds?(*segments(sprite1, amount1, 0))
+  amount1[1] = -amount1[1] unless Utility.in_bounds?(*segments(sprite1, amount1, 1))
+  amount2[0] = -amount2[0] unless Utility.in_bounds?(*segments(sprite2, amount2, 0))
+  amount2[1] = -amount2[1] unless Utility.in_bounds?(*segments(sprite2, amount2, 1))
+
+  sprite1.move!(*amount1)
+  sprite2.move!(*amount2)
+
+  sprite1.render
+  sprite2.render
+
+  Font.serif.draw_text(Screen,
+                       "distance = #{collision1.interval(sprite1.pos, collision2, sprite2.pos)}",
+                       0,
+                       Screen.h - Font.serif.line_height
+                      )
+end

data/sample/collision_test.rb

@@ -0,0 +1,33 @@
+# encoding: utf-8
+# コリジョン(Collision)サンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+size = [32, 32]
+rect = [0, 0] + size
+sprite1 = Sprite.new({:size=>size, :type=>:as})
+sprite1.fill([255,0,0])
+collision1 = Collision.new(rect)
+sprite2 = Sprite.new({:size=>size, :type=>:as})
+sprite2.fill([0,255,0])
+collision2 = Collision.new(rect)
+caution = Shape.text({:font => Font.serif }){ text "collision!" }
+
+sprite1.center!.move!(0, 128)
+sprite2.center!
+
+amount = 8
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  if Collision.collision?(collision1, sprite1.pos, collision2, sprite2.pos)
+    caution.render
+  else
+    sprite2.move!(0, amount)
+  end
+  sprite1.render
+  sprite2.render
+end

data/sample/collision_test2.rb

@@ -0,0 +1,108 @@
+# encoding: utf-8
+# コリジョン(Collision・CircleCollision混合)サンプル
+# 2009.4.26 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+AMOUNT_MIN = -8
+AMOUNT_MAX = 8
+
+Screen.fps = 60
+
+# Utility.in_bounds?引数生成
+def segments(sprite, amounts, idx)
+  [sprite.segment[idx], Screen.segment[idx], amounts[idx]]
+end
+
+# 移動量の決定
+def get_amount_one
+  range = AMOUNT_MAX - AMOUNT_MIN
+  [rand(range)+AMOUNT_MIN, rand(range)+AMOUNT_MIN]
+end
+def get_amount
+  range = AMOUNT_MAX - AMOUNT_MIN
+  [get_amount_one, get_amount_one]
+end
+
+# 矩形衝突判定と円形衝突判定との切り替え
+collision_list = [Collision, CircleCollision].cycle
+
+# 同時表示スプライト数
+Sprites = 20
+
+# スプライトサイズ
+size = [64, 64]
+# スプライト矩形(当たり判定生成用)
+rect = [0, 0] + size
+
+sprites = Array.new(Sprites){|n|
+  # スプライトの生成
+  sprite = Sprite.new({:size=>size, :type=>:as})
+  Drawing.circle(sprite, [size[0]/2, size[1]/2], size[0]/2, [rand(256),rand(256),rand(256)], true)
+  sprite.move_to!(rand(Screen.w-size[0]), rand(Screen.h-size[1]))
+
+  # コリジョンの生成
+  collision = Collision.new(rect)
+
+  # :collisioned => 当たり判定した？
+  {
+   :sprite => sprite,
+   :collision => collision,
+   :amount => get_amount_one
+  }
+}
+
+# 衝突判定用の組み合わせ行列を作成
+matrix = sprites.combination(2)
+
+cautions = {
+  Collision => Shape.text({:font => Font.serif }){ text "矩形衝突判定中" },
+  CircleCollision => Shape.text({:font => Font.serif }){ text "円形衝突判定中" }
+}
+
+# 初期の衝突判定方法を設定
+collision_type = collision_list.next
+
+# 一気にレンダリング
+Screen.pre_render_array << sprites.map{|m| m[:sprite]}
+
+# 判定を切り替えるタイミングを決めるタイマー
+wait = WaitCounter.new(1.0)
+wait.start
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  
+  # 一定時間ごとに衝突判定方法を切り替え
+  if wait.finish?
+    collision_type = collision_list.next
+    wait.start
+  end
+
+  # 衝突判定
+  # 衝突していたら方向を反転
+  matrix.each{|pair|
+    p0 = pair[0]
+    p1 = pair[1]
+    if collision_type.collision?(p0[:collision],
+                                 p0[:sprite].pos,
+                                 p1[:collision],
+                                 p1[:sprite].pos)
+      p0[:amount], p1[:amount] = get_amount
+    end
+  }
+
+  # 移動
+  sprites.each{|s|
+    # 画面の端に来たら方向転換
+    s[:amount][0] = -s[:amount][0] unless Utility.in_bounds?(*segments(s[:sprite], s[:amount], 0))
+    s[:amount][1] = -s[:amount][1] unless Utility.in_bounds?(*segments(s[:sprite], s[:amount], 1))
+    s[:sprite].move!(*s[:amount])
+  }
+
+  # 画面への描画
+  Screen.pre_render
+  cautions[collision_type].render
+end

data/sample/fixed_map_test/fixed_map_sample.rb

@@ -0,0 +1,140 @@
+#encoding: UTF-8
+# FixedMap Sample
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+Screen::fps_view = true
+
+# 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))
+    @cpos = Point.new(x, y)
+    ap = { }
+    ap[:sprite] = @spr
+    ap[:wait] = wait
+    ap[:pattern_list] = pattern
+    @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)
+    @interval = 2
+    @interval_x = 0
+    @interval_y = 0
+    @cnt = 0
+    @wait0 = WaitCounter.new(0.1)
+    @wait = WaitCounter.new(0.4)
+    @types = 5
+    # 方向による移動量リスト
+    @ary = [[       0, @spr.oh,          0, @interval, @spr.oh],
+            [ @spr.ow,       0,  @interval,         0, @spr.ow],
+            [-@spr.ow,       0, -@interval,         0, @spr.ow],
+            [       0,-@spr.oh,          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)
+      @cpos.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]
+      # スライムが当たっているマップ位置リストを取得
+      colls = Utility.product_position(
+                @cpos.dup.move!(data[0], data[1]), @coll.rect, map.mapchips[0].chip_size.to_a
+              )
+      # 障害物に当たってない？
+      if colls.inject(true){|r, pos| r &= map[0].can_access?(0, :in, @cpos, data[0], data[1]) }
+        @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
+mp = MapChipFactory.load("./mapchip.csv")
+@fmap = FixedMap.new(mp, "./map.csv", em)
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  dx, dy = Input.trigger_amount.map{|v| v * 4 }
+  dx = 0 unless Utility.in_bounds?([@fmap.rect.x,@fmap.rect.x+@fmap.rect.w-1], [0,Screen.w-1], dx)
+  dy = 0 unless Utility.in_bounds?([@fmap.rect.y,@fmap.rect.y+@fmap.rect.h-1], [0,Screen.h-1], dy)
+  @fmap.move!(dx, dy)
+  @fmap.events.each{|ee| ee.each{|e| e.update(@fmap, @fmap.events, nil)}}
+  @fmap.render_to(Screen)
+  @fmap.events.each{|ee| ee.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/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 @@
+*******************************************************************************
+【   作者名   】　サイロス誠
+【  ソフト名  】　Miyako v2.0サンプル(固定マップ)
+【 バージョン 】　2.0
+【   作成日   】　2009/04/12
+【    種別    】　フリーウェア
+【  開発言語  】　Ruby 1.8.9-p0
+【 ランタイム 】　Miyako v2.0
+【  対応機種  】　Windows 2000/XP/Vista、Linux
+【   再配布   】　修正BSDライセンスによる
+【    転載    】　修正BSDライセンスによる
+【ホームページ】　http://www.twin.ne.jp/~cyross/Miyako/
+【   連絡先   】　cyross@po.twin.ne.jp
+*******************************************************************************
+
+・概要
+
+　このプログラムは、Miyako v2.0以降に対応する、Miyakoサンプルプログラムです。
+　スクロールしないマップ上で、スライムがうねくねしながら動き回っています。
+
+・Miyakoについて
+
+　Miyakoに関しては、以下のURLを参考にしてください。
+http://www.twin.ne.jp/~cyross/Miyako/
+
+　Miyako(Ruby、Ruby/SDL含む)のインストールに関しましては、
+上記URLを辿って得られるアーカイブされたMiyakoライブラリを
+展開すると、readme.txtが得られますので、そちらをご参照下さい。
+
+　本サンプルでは、MiyakoがWindows上で動作することを前提にしています。
+（インストールしたRuby実行環境がActiveRubyであることも前提に
+　しています）
+
+・起動方法
+
+　エクスプローラーを開き、本サンプルのフォルダ内で、「m1ku.rb」を
+ダブルクリックします。
+　もしくは、コマンドライン上で動かす場合は、本サンプルのディレクトリに
+移動して、以下のコマンドを入力します。
+
+　ruby fixed_map_sample.rb
+
+・免責事項
+
+　本サンプルは無保証です。もし本サンプルを使用することによる不具合・トラブル
+が起こったとしても、いかなるトラブルに対する責任を負わないことをご了承下さい。
+
+　本サンプルは、修正BSDライセンスに基づいた転載・再配布を許可します。
+
+・BSDライセンス文
+
+Copyright (c) 2009, 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:
+
+・Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
+・Redistributions 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.
+・Neither 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,58 @@
+# -*- encoding: utf-8 -*-
+#キャラクタ管理クラス
+class PChara # Player Character
+  extend Forwardable
+  attr_accessor :dir
+  attr_reader :collision, :position
+  @@dir2dir = {[0,1]=>0,[-1,0]=>1,[1,0]=>2,[0,-1]=>3}
+  @@dir2dir.default = -1
+
+  def initialize(fname, pw = 0.2)
+    # キャラクタスプライトを作成
+    @spr = Sprite.new({:filename => fname, :type => :color_key})
+    @spr.ow = 32
+    @spr.oh = 32
+    param = Hash.new
+    param[:sprite] = @spr
+    param[:wait] = pw
+    # コリジョン設定
+    @collision = Collision.new(@spr.rect)
+    # キャラクタ位置設定
+    @position = Point.new(0, 0)
+    # キャラパターンを表示
+    @anim = SpriteAnimation.new(param)
+    @anim.centering!
+    @dir = :down
+  end
+
+  # マップの表示座標と実座標とのマージンを設定
+  def margin
+    return Size.new(-@spr.x, -@spr.y)
+  end
+
+  def turn(d)
+    @anim.character = @@dir2dir[d]
+  end
+
+  def start
+    @anim.start
+  end
+  
+  def stop
+    @anim.stop
+  end
+
+  def update
+    @anim.update_animation
+  end
+  
+  def render
+    @anim.render
+  end
+  
+  def size
+    return Size.new(@spr.ow, @spr.oh)
+  end
+  
+  def_delegators(:@spr, :dispose, :rect, :ow, :oh, :x, :y)
+end

data/sample/map_test/main_parts.rb

@@ -0,0 +1,69 @@
+# -*- encoding: utf-8 -*-
+#共通パーツクラス
+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
+    
+    wcs = Sprite.new({:file => "wait_cursor.png", :type => :ac})
+    wcs.oh = wcs.w
+    scs = Sprite.new({:file => "cursor.png", :type => :ac})
+    scs.oh = scs.w
+
+    wc = SpriteAnimation.new({:sprite => wcs, :wait => 0.2, :pattern_list => [0, 1, 2, 3, 2, 1]})
+    sc = SpriteAnimation.new({:sprite => scs, :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.set_wait_cursor_position{|wc, tbox| wc.right!.bottom! }
+ 
+    wc = SpriteAnimation.new({:sprite => wcs, :wait => 0.2, :pattern_list => [0, 1, 2, 3, 2, 1]})
+    sc = SpriteAnimation.new({:sprite => scs, :wait => 0.2, :pattern_list => [0, 1, 2, 3, 2, 1]})
+    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
+  
+  def start
+    @box.start
+    @cbox.start
+  end
+  
+  def stop
+    @box.stop
+    @cbox.stop
+  end
+  
+  def reset
+    @box.reset
+    @cbox.reset
+  end
+  
+  def update_animation
+    @box.update_animation
+    @cbox.update_animation
+  end
+end