ruby-miyako-mswin32 2.1.0

data/sample/map_test/route.rb

@@ -0,0 +1,157 @@
+# -*- encoding: utf-8 -*-
+# 道しるべ（１）を表すイベントクラス
+class EventRouteMarker
+  include MapEvent
+
+  attr_reader :margin, :collision
+  
+  def init(map, x, y)
+    # イベント用チップを取得
+    @spr = Sprite.new({:filename => "map2.png", :type => :color_key})
+    @spr.ow = @spr.oh = 32
+    @spr.ox = 96
+    @spr.move_to!(x, y)
+    @coll = Collision.new([0, 0, @spr.ow, @spr.oh])
+    @pos  = Point.new(x, y)
+    @margin = Size.new(0, 0)
+    @parts = CommonParts.instance
+    @yuki = Yuki.new
+    @yuki.setup(@parts.box[:box]){|box|
+      select_textbox(box)
+    }
+  end
+
+  # キャラの立ち位置とイベントの位置が重なり合っているかの判別
+  def met?(param = nil)
+    return @coll.collision?(@pos, param[:collision], param[:pos])
+  end
+
+  # イベントの実行
+  def start(param = nil)
+    @yuki.start_plot(plot)
+  end
+
+  def executing?
+    @yuki.executing?
+  end
+
+  def plot
+    yuki_plot do
+      text "　ここに立て札がある。"
+      pause
+      clear
+      text "　しかし、そこには何も書かれていない。"
+      pause
+      clear
+    end
+  end
+  
+  def move!(dx, dy)
+    @spr.move!(-dx, -dy)
+  end
+  
+  def move_to!(x, y)
+    @spr.move_to!(x, y)
+  end
+  
+  def update(map_obj, events, params)
+    if @yuki.executing?
+      @yuki.update
+      @parts.box.update_animation
+    end
+  end
+
+  # イベントキャラクタの描画
+  def render
+    @spr.move!(-@margin.w, -@margin.h)
+    @spr.render
+    @spr.move!(@margin.w, @margin.h)
+  end
+
+  #(Yuki起動時)メッセージボックスの表示
+  def render_box
+    @parts.box.render if @yuki.executing?
+  end
+end
+
+# 道しるべ（２）を表すイベントクラス
+class EventRouteMarker2
+  include MapEvent
+
+  attr_reader :margin
+  
+  def init(map, x, y)
+    # イベント用チップを取得
+    @spr = Sprite.new({:filename => "map2.png", :type => :color_key})
+    @spr.ow = @spr.oh = 32
+    @spr.ox = 96
+    @spr.move!(x, y)
+    @coll = Collision.new([0, 0, @spr.ow, @spr.oh])
+    @pos  = Point.new(x, y)
+    @margin = Size.new(0, 0)
+    @parts = CommonParts.instance
+    @yuki = Yuki.new
+    @yuki.setup(@parts.box[:box]){|box|
+      select_textbox(box)
+    }
+  end
+
+  # キャラの立ち位置とイベントの位置が重なり合っているかの判別
+  def met?(param = nil)
+    return @coll.collision?(@pos, param[:collision], param[:pos])
+  end
+
+  # イベントの開始
+  def start(param = nil)
+    @yuki.start_plot(plot)
+  end
+
+  def executing?
+    @yuki.executing?
+  end
+  
+  def plot
+    yuki_plot do
+      text "　ここに立て札がある。"
+      pause
+      cr
+      text "　読んでみよう。"
+      pause
+      clear
+      color(:blue){"東"}.text("・・・果て野")
+      cr
+      color(:blue){"西"}.text("・・・荒れ海")
+      cr
+      color(:blue){"南"}.text("・・・グリージアの街")
+      pause
+      clear
+    end
+  end
+  
+  def move!(dx, dy)
+    @spr.move!(-dx, -dy)
+  end
+  
+  def move_to!(x, y)
+    @spr.move_to!(x, y)
+  end
+  
+  def update(map_obj, events, params)
+    if @yuki.executing?
+      @yuki.update
+      @parts.box.update_animation
+    end
+  end
+
+  # イベントキャラクタの描画
+  def render
+    @spr.move!(-@margin.w, -@margin.h)
+    @spr.render
+    @spr.move!(@margin.w, @margin.h)
+  end
+
+  #(Yuki起動時)メッセージボックスの表示
+  def render_box
+    @parts.box.render if @yuki.executing?
+  end
+end

data/sample/map_test/town.rb

@@ -0,0 +1,74 @@
+# -*- encoding: utf-8 -*-
+#街を表すイベントクラス
+class EventTown
+  include MapEvent
+
+  attr_reader :margin
+  
+  def init(map, x, y)
+    # イベント用チップを取得
+    @spr = Sprite.new({:filename => "map2.png", :type => :color_key})
+    @spr.ox = @spr.oy = @spr.ow = @spr.oh = 32
+    @spr.move_to!(x, y)
+    @coll = Collision.new([0, 0, @spr.ow, @spr.oh])
+    @pos  = Point.new(x, y)
+    @margin = Size.new(0, 0)
+    @parts = CommonParts.instance
+    @yuki = Yuki.new
+    @yuki.select_textbox(@parts.box[:box])
+  end
+  
+  # キャラの立ち位置とイベントの位置が重なり合っているかの判別
+  def met?(param = nil)
+    return @coll.collision?(@pos, param[:collision], param[:pos])
+  end
+
+  # イベントの開始
+  def start(param = nil)
+    @yuki.start_plot(plot)
+  end
+
+  def executing?
+    @yuki.executing?
+  end
+
+  # イベントの実行
+  def plot
+    yuki_plot do
+      text "　ここが"
+      color([255,200,200]){"グリージアの街"}
+      text "か・・・。"
+      cr
+      text "　まぁ、入るつもりは無いが。"
+      pause
+      clear
+    end
+  end
+  
+  def move!(dx, dy)
+    @spr.move!(-dx, -dy)
+  end
+  
+  def move_to!(x, y)
+    @spr.move_to!(x, y)
+  end
+  
+  def update(map_obj, events, params)
+    if @yuki.executing?
+      @yuki.update
+      @parts.box.update_animation
+    end
+  end
+
+  # イベントキャラクタの描画
+  def render
+    @spr.move!(-@margin.w, -@margin.h)
+    @spr.render
+    @spr.move!(@margin.w, @margin.h)
+  end
+
+  #(Yuki起動時)メッセージボックスの表示
+  def render_box
+    @parts.box.render if @yuki.executing?
+  end
+end

data/sample/polygon_test.rb

@@ -0,0 +1,35 @@
+# Drawing.polygonサンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+max_vertexes = 32 # 最大頂点数
+
+# 設定配列(Enumerator)
+flags = [[true, true],   # 塗りつぶし、アンチエイリアス有り
+         [true],         # 塗りつぶし
+         [false, true],  # 線描、アンチエイリアス有り
+         [false]         # 線描
+        ].cycle
+
+# 色配列(Enumerator)
+colors = [[0,0,255],    # 青色
+          [0,255,0],    # 緑色
+          [0,255,255],  # 水色
+          [255,0,0],    # 赤色
+          [255,0,255],  # 紫色
+          [255,255,0],  # 黄色
+          [255,255,255] # 白色
+         ].cycle
+
+loop do
+  Miyako::Input.update
+  break if Miyako::Input.quit_or_escape?
+  # 3 ～ max_vertexes までのランダム個数の頂点を作成
+  pairs = Array.new(rand(max_vertexes - 3) + 3){
+            [rand(Miyako::Screen.w), rand(Miyako::Screen.h)]
+          }
+  # 多角形を描画
+  Miyako::Drawing.polygon(Miyako::Screen, pairs, colors.next, *(flags.next))
+  Miyako::Screen.render
+end

data/sample/rasterscroll.rb

@@ -0,0 +1,25 @@
+# encoding: utf-8
+# ���X�^�X�N���[���T���v��
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+require 'Miyako/EXT/raster_scroll'
+
+include Miyako
+
+#1�b��Ƀ��X�^�X�N���[���̃t�F�[�h�A�E�g��ݒ肷��
+wait = WaitCounter.new(1.0).start
+# 0.05�b���ƂɁA2���C�����A8�s�N�Z���P�ʂ̃��X�^�X�N���[�����s��
+sprite = Sprite.new(:file => "Animation2/lex_body.png", :type => :ck).centering!
+rs = RasterScroll.new(sprite).start({:lines => 2, :size => 8, :wait=>WaitCounter.new(0.05)})
+fade = false
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  rs.effecting? ? rs.update.render : sprite.render
+  if fade == false && wait.finish?
+    #1�b�ゲ�ƂɁA���X�^�X�N���[���̕����k�߂�
+    rs.fade_out(1, WaitCounter.new(1.0))
+    fade = true
+  end
+end

data/sample/takahashi.rb

@@ -0,0 +1,42 @@
+# -*- encoding: utf-8 -*-
+# テキスト表示・高橋メソッド形式サンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+# 高橋メソッド形式文字列の表示
+shape1 = Shape.takahashi(:font=>Font.serif, :align=>:center, :valign=>:bottom, :size=>Screen.size){|v|
+          size(20){ text "えーびーしー" }
+					cr
+					text "ABC"
+					cr
+					under_line{"でー"} . text("えーえふじー")
+					cr
+					text("DEFG")
+        }
+
+# 通常形式で表示
+shape2 = Shape.text(:font=>Font.serif, :align=>:right){|v|
+          size(24){
+            text "えー"
+            color(:yellow){ "びー" }
+            text "しー"
+          }
+					cr
+					text "ABC"
+					cr
+					under_line{"でー"} . text("えーえふじー")
+					cr
+					text("DEFG")
+        }
+
+# 自動描画配列にshape1、shape2を組み込み
+Screen.auto_render_array << shape1
+Screen.auto_render_array << shape2
+
+Miyako.main_loop do
+	break if Input.quit_or_escape?
+  Drawing.fill(Screen, [100,100,100])
+end

data/sample/textbox_sample.rb

@@ -0,0 +1,190 @@
+#encoding: utf-8
+#テキストボックス サンプル
+#2009 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+TEXTBOX_MARGIN = 16
+
+# pause用カーソルの用意
+ws = Sprite.new(:file=>"../img/wait_cursor.png", :type=>:ac)
+ws.oh = ws.ow
+@ws = SpriteAnimation.new(:sprite=>ws, :wait=>0.2, :pattern_list=>[0,1,2,3,2,1])
+
+# 選択用カーソルの用意
+cs = Sprite.new(:file=>"../img/cursor.png", :type=>:ac)
+cs.oh = cs.ow
+@cs = SpriteAnimation.new(:sprite=>cs, :wait=>0.2, :pattern_list=>[0,1,2,3,2,1])
+
+# フォントの用意
+font = Font.sans_serif
+font.color = Color[:white]
+font.size = 16
+
+# テキストボックスの用意
+box = TextBox.new(:size=>[32,20], :wait_cursor => @ws, :select_cursor => @cs, :font => font)
+
+# テキストボックス背景の用意
+box_bg = Sprite.new(:size => box.size.to_a.map{|v| v + TEXTBOX_MARGIN}, :type => :ac)
+box_bg.fill([128,0,64,128])
+
+# Partsをまとめて一つのボックスにする
+@parts = Parts.new(box.size)
+@parts[:box_bg] = box_bg
+@parts[:box] = box
+@parts[:box_bg].centering!
+@parts[:box].centering!
+@parts.centering!
+
+# 選択肢の作成
+list = [
+        [Shape.text(:font=>font, :text=>"選択肢１"), nil, 1],
+        [Shape.text(:font=>font, :text=>"選択肢２"), nil, 2],
+        [Shape.text(:font=>font, :text=>"選択肢３"), nil, 3]
+       ]
+@choices = @parts[:box].create_choices_chain(list)
+
+# カーソルのアニメーションの開始
+@parts[:box].start
+
+# 実行させる処理をテキストボックスに登録
+@parts[:box].execute(@choices){|box, params|
+  box.draw_text "やあ。"
+  box.pause.cr
+
+  box.draw_text "Miyakoのテキストボックスサンプルにようこそ。"
+  box.pause.cr
+
+  box.draw_text "ここでは、テキストボックスの機能をいくつか例示してみます。"
+  box.pause.clear
+
+  box.draw_text "まず、"
+  box.pause.cr
+
+  box.font_size_during(24){ box.draw_text "文字の大きさを変えます。" }
+  box.pause.cr
+
+  box.draw_text "変わりましたね？"
+  box.pause.clear
+
+  box.draw_text "次に、"
+  box.pause.cr
+
+  box.color_during(:blue){ box.draw_text "文字の色を変えてみます。" }
+  box.pause.cr
+
+  box.draw_text "変わりましたね？"
+  box.pause.clear
+
+  box.draw_text "続いて、"
+  box.pause.cr
+
+  box.font_size_during(24){
+    box.color_during(:blue){
+      box.draw_text "文字の大きさを変えながら"
+      box.cr
+      box.draw_text "色を変えてみます。"
+    }
+  }
+  box.pause.cr
+
+  box.draw_text "ほら、簡単でしょ？"
+  box.pause.clear
+
+  box.draw_text "文字の修飾も出来ます。"
+  box.pause.cr
+
+  box.font_bold{ box.draw_text "ボールド体でも" }
+  box.pause.cr
+
+  box.font_italic{ box.draw_text "イタリック体でも(フォントによって可・不可あるかも)" }
+  box.pause.cr
+
+  box.font_under_line{ box.draw_text "下線付きでも" }
+  box.pause.cr
+
+  box.draw_text "OKです"
+  box.pause.clear
+
+  box.draw_text "文字の位置を変更してみましょう。"
+  box.pause.cr
+
+  box.draw_text "一番左に表示しています"
+  box.cr
+
+  text = "真ん中に表示しています"
+  # 文字列の長さ(ピクセル単位)を取得
+  len = box.font.text_size(text)[0]
+  # x座標の位置を変更
+  box.locate.x = (box.size.w-len)/2
+  box.draw_text text
+  box.cr
+
+  text = "右に表示しています"
+  # 文字列の長さ(ピクセル単位)を取得
+  len = box.font.text_size(text)[0]
+  # x座標の位置を変更
+  box.locate.x = (box.size.w-len)
+  box.draw_text text
+  box.cr
+
+  text = "一番下の真ん中に表示しています"
+  # 文字列の長さ(ピクセル単位)を取得
+  len = box.font.text_size(text)
+  # x座標の位置を変更
+  box.locate.x = (box.size.w-len[0])/2
+  box.locate.y = (box.size.h-len[1])
+  box.draw_text text
+  box.cr
+
+  box.pause.clear
+
+  box.draw_text "最後に、選択肢を表示させてみます"
+  box.pause.cr
+
+  # params[0] == @choices
+  box.command params[0]
+
+  box.draw_text "選択結果は#{box.result}ですね。"
+  box.pause.cr.cr
+
+  box.draw_text "だいたい、テキストボックスの使い方が"
+  box.cr
+
+  box.draw_text "おわかりになりましたでしょうか？"
+  box.pause.cr
+
+  box.draw_text "それでは、そろそろ失礼いたします・・・。"
+  box.pause.cr
+}
+
+# テキストボックスのまとめ処理
+def process_textbox
+  @parts[:box].update_animation
+  @parts.render
+end
+
+Miyako.main_loop do
+  break if Input.quit_or_escape? || !@parts[:box].execute?
+  # テキストボックスはポーズ中？
+  # ポーズ中はupdateを呼んではいけないので、ポーズ中は直前で回避している
+  if @parts[:box].pause?
+    # １ボタンを押したとき、ポーズを解除する
+    @parts[:box].release if Input.pushed_any?(:btn1)
+    process_textbox
+    next
+  end
+  # テキストボックスはコマンド選択中？
+  if @parts[:box].selecting?
+    # カーソルの移動
+    @parts[:box].move_cursor(*Input.pushed_amount)
+    # １ボタンを押したとき、選択状態を解除する
+    @parts[:box].finish_command if Input.pushed_any?(:btn1)
+    process_textbox
+    next
+  end
+  @parts[:box].update
+  process_textbox
+end

data/sample/transform.rb

@@ -0,0 +1,54 @@
+# -*- encoding: utf-8 -*-
+# 画像拡大・縮小・回転サンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+Screen::fps_view = true
+
+MAX = 8.0 # 最大拡大率8倍
+MIN = -8.0 # 最小拡大率8分の1
+RATE = 0.4 # 拡大率間隔0.4倍
+
+@sprite = Sprite.new(:file=>"map_test/map.png", :type=>:ck).centering!
+
+# 変形対象画像を半透明にする
+Bitmap.dec_alpha!(@sprite, 0.5)
+
+# スプライトの変形中心を設定
+@sprite.center_x = @sprite.ow/2
+@sprite.center_y = @sprite.oh/2
+
+# 回転角度単位を30度に設定(ラジアンに変換)
+@rate  = Math::PI * 2.0 * 30.0 / 360.0
+
+xscale = 4.0 # 初期拡大率(x座標)4倍
+yscale = 4.0 # 初期拡大率(y座標)4倍
+angle = 0.0  # 初期回転角度0度
+
+# 画面の中心に画像を表示指定(pre_render)
+Screen.pre_render_array << [Sprite.new(:file=>"Animation1/m1ku_back.jpg", :type=>:ac).centering!, @sprite]
+
+# 画面の変形中心を設定
+Screen.center_x = Screen.w/2
+Screen.center_y = Screen.h/2
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+	Screen.pre_render
+  # 回転
+#  Bitmap.rotate(@sprite, Screen, angle)
+  # 拡大/縮小
+#  Bitmap.scale(@sprite, Screen, xscale, yscale)
+  # 回転/拡大/縮小
+  Bitmap.transform(@sprite, Screen, angle, xscale, yscale)
+  # 拡大縮小率の変更
+	xscale -= RATE
+	xscale = MAX if xscale < MIN
+	yscale -= RATE
+	yscale = MAX if yscale < MIN
+  # 回転角度の変更
+  angle = (angle + @rate) % (Math::PI*2.0)
+end

data/sample/utility_test.rb

@@ -0,0 +1,73 @@
+# Utility.product_linerサンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+# 色配列(Enumerator)
+Colors = [[0,0,255],    # 青色
+          [0,255,0],    # 緑色
+          [0,255,255],  # 水色
+          [255,0,0],    # 赤色
+          [255,0,255],  # 紫色
+          [255,255,0],  # 黄色
+          [255,255,255] # 白色
+         ].cycle
+
+# 線形配列生成メソッドを用意
+def draw_liner(sprite, info)
+  # 画面の真ん中から指定の位置までの線形配列を、
+  # 1～16間ランダム値の刻みで作成する
+  square = Miyako::Square.new(
+             Miyako::Screen.w/2, Miyako::Screen.h/2,
+             rand(Miyako::Screen.w), rand(Miyako::Screen.h)
+           )
+  amount = rand(16)+1
+  # 線形配列を作成
+  array = Miyako::Utility.product_liner_by_square(square, amount)
+  # 画像内容の消去
+  sprite.fill([0,0,0,0])
+  # 配列の位置を元に矩形を描画
+  array.each{|pos| Miyako::Drawing.rect(sprite, pos+[amount,amount], Colors.next)}
+  
+  info.dispose if info
+  info = Miyako::Shape.text(
+           :font => Miyako::Font.serif,
+           :text => "square = (#{square[0]}, #{square[1]})-(#{square[2]}, #{square[3]}), amount = #{amount}"
+         )
+         
+  [sprite, info]
+end
+
+# 描画間隔の設定(ここでは2秒)
+wait = Miyako::WaitCounter.new(2)
+
+# 描画用スプライトの作成
+screen = Miyako::Sprite.new(
+  :size=>Miyako::Screen.size,
+  :type=>:ac
+)
+
+# 情報表示用スプライト変数の用意
+screen, info = draw_liner(screen, nil)
+
+# メインループの開始
+loop do
+  Miyako::Input.update
+  # Escキー押下もしくは×印クリックのときは終了
+  break if Miyako::Input.quit_or_escape?
+  # 時間が来たら画面内容の更新
+  if wait.finish?
+    screen, info = draw_liner(screen, info)
+    wait.start
+  end
+  # 画面の描画
+  # 画面の消去
+  Miyako::Screen.clear
+  # 線形配列結果の表示
+  screen.render
+  # 情報画像の表示
+  info.render
+  # 画面の更新
+  Miyako::Screen.render
+end
+