ruby-miyako-mswin32 2.1.0

data/sample/Room3/red.rb

@@ -0,0 +1,227 @@
+# -*- encoding: utf-8 -*-
+class Red
+  include Story::Scene
+  include MainComponent
+
+  def init
+    @yuki = Yuki.new(message_box[:box], command_box[:box]) do |box, cbox|
+      select_textbox(box)
+      select_commandbox(cbox)
+    end
+    def @yuki.text_wait(txt, w = 0.3)
+      text txt
+      wait w
+    end
+
+    @akamatsu = Sprite.new(:file => "image/akamatsu.png", :type => :ck)
+    @akamatsu.center!.bottom!
+    @yuki.regist_parts(:akamatsu, @akamatsu)
+
+    @room = Sprite.new(:file=>"image/room_red.png", :type=>:as)
+    @room.center!.bottom!
+
+    var[:akamatsu_aisatsu]      = false if var[:akamatsu_aisatsu]      == nil
+    var[:release_akamatsu_book] = false if var[:release_akamatsu_book] == nil
+    var[:search_bookmark]       = false if var[:search_bookmark]       == nil
+    var[:get_bookmark]          = false if var[:get_bookmark]          == nil
+    
+    @yuki.vars[:var] = var
+    @yuki.vars[:command] = get_command
+    @yuki.vars[:main_loop] = main_loop
+  end
+
+  def setup
+    @yuki.setup
+    message_box.start
+    command_box.start
+    @yuki.start_plot(plot)
+  end
+  
+  def get_command
+    return [Yuki::Command.new("挨拶する",   nil, lambda{var[:akamatsu_aisatsu] == false}, red2),
+             Yuki::Command.new("辺りを見る", nil, lambda{var[:akamatsu_aisatsu]==true }, look),
+             Yuki::Command.new("話す",       nil, lambda{var[:akamatsu_aisatsu]==true }, talk),
+             Yuki::Command.new("渡す",       nil, lambda{var[:akamatsu_aisatsu] && var[:release_akamatsu_book] && var[:search_bookmark]==false}, send1),
+             Yuki::Command.new("渡す",       nil, lambda{var[:search_bookmark] && var[:get_bookmark] && var[:aikotoba]==false}, send2),
+             Yuki::Command.new("戻る",       nil, lambda{var[:akamatsu_aisatsu]==true}, MainScene)]
+  end
+  
+  def update
+    return nil if Input.quit_or_escape?
+    message_box.update_animation
+    command_box.update_animation
+    @yuki.update
+    r = @yuki.executing? ? @now : @yuki.result
+    if @yuki.is_scenario?(r)
+      @yuki.start_plot(r)
+      r = @now
+    end
+    return r
+  end
+
+  def render
+    @room.render
+    @yuki.render
+    message_box.render
+    command_box.render if @yuki.selecting?
+  end
+  
+  def plot
+    yuki_plot do
+      text "赤の扉から中に入った。"
+      pause.clear
+      show :akamatsu
+      text "目の前には"
+      color(:red){vars[:var][:akamatsu_aisatsu] ? "赤松さん" : "男の人"}
+      text "が居る。"
+      cr
+      vars[:main_loop]
+    end
+  end
+  
+  def main_loop
+    yuki_plot do
+      loop do
+        text "どうする？"
+        command vars[:command]
+        break select_result if is_scene?(select_result)
+        call_plot(select_result) if is_scenario?(select_result)
+      end
+    end
+  end
+
+  def red2
+    yuki_plot do
+      clear
+      text_wait "「はっ、"
+      text_wait "私の、"
+      text_wait "名前は、"
+      text_wait "赤松と、"
+      text_wait "申します！"
+      cr
+      text_wait "　よろしく、"
+      text "お願いします！」"
+      pause.clear
+      vars[:var][:akamatsu_aisatsu] = true
+    end
+  end
+
+  def look
+    yuki_plot do
+      clear
+      text "部屋を見回すと、勉強家らしく、"
+      cr
+      text "机と数々の本が本棚にしまってある。"
+      pause.clear
+    end
+  end
+
+  def talk
+    yuki_plot do
+      clear
+      text_wait "「はっ、"
+      text_wait "私は、"
+      text_wait "某大学の、"
+      text_wait "はっ、"
+      text "８年生です！"
+      pause.cr
+      text_wait "　今年こそ、"
+      text_wait "無事、"
+      text_wait "卒業、"
+      text_wait "できるよう！"
+      cr
+      text_wait "　精進する、"
+      text_wait "所存で、"
+      text_wait "ございます！」"
+      pause.clear
+    end
+  end
+
+  def send1
+    yuki_plot do
+      clear
+      text "あなたは、青山君から受け取っていた本を返した。"
+      pause.clear
+      text_wait "「あっ、"
+      text_wait "青山くんから、"
+      text "本を受け取って頂いたのですね！"
+      pause.cr
+      text_wait "　あ、"
+      text_wait "ありがとうございます！"
+      pause.clear
+      text_wait "　あ、"
+      text_wait "あのひと、"
+      text "ちょっとビビるでしょ？"
+      pause.cr
+      text_wait "　・・・おっとと、"
+      text_wait "聞こえてちゃ、"
+      text "困るな。」"
+      pause.clear
+      text "　それでは・・・・・。"
+      pause.clear
+      text "　・・・・・。"
+      pause.clear
+      text_wait "　おや、"
+      text_wait "栞が、"
+      text_wait "入って、"
+      text "ないですね。"
+      pause.cr
+      text_wait "　あれは、"
+      text_wait "僕の、"
+      text_wait "大事な、"
+      text "宝物なんです！"
+      pause.cr
+      text_wait "　青山君の、"
+      text_wait "部屋に、"
+      text_wait "戻って、"
+      cr
+      text_wait "　栞を、"
+      text_wait "探して、"
+      text_wait "きてください！」"
+      pause.clear
+      vars[:var][:search_bookmark]=true
+    end
+  end
+
+  def send2
+    yuki_plot do
+      clear
+      text_wait "「あっ、"
+      text_wait "これは、"
+      text "無くなっていた栞！"
+      pause.cr
+      text_wait "　ありがとうございます！"
+      cr
+      text_wait "　あの、"
+      text_wait "お礼といっては、"
+      text "何ですが、"
+      pause.cr
+      text_wait "　合言葉を、"
+      text_wait "教えて、"
+      text "差し上げます！」"
+      pause.clear
+      text_wait "「『こんなゲーム", 0.5
+      text_wait "　まじになっちゃって", 0.5
+      cr
+      text_wait "　　どうするの』", 0.5
+      cr
+      text_wait "　これが、"
+      text_wait "合い言葉です！"
+      cr
+      text_wait "　それでは、"
+      text "お元気で！」"
+      pause.clear
+      vars[:var][:aikotoba]=true
+    end
+  end
+
+  def final
+    message_box.stop
+    command_box.stop
+  end
+    
+  def dispose
+    @akamatsu.dispose
+    @room.dispose
+  end
+end

data/sample/Room3/room3.rb

@@ -0,0 +1,25 @@
+# -*- encoding: utf-8 -*-
+#! /usr/bin/ruby
+# Sample Adventure "Room 3"
+
+$miyako_debug_mode = true
+
+require 'Miyako/miyako'
+
+include Miyako
+
+Miyako.setTitle("Room 3")
+Screen.set_size(640, 480)
+
+require 'main_component'
+require 'title'
+require 'main'
+require 'red'
+require 'green'
+require 'blue'
+require 'ending'
+
+r3 = Story.new
+r3.run(Title)
+#for debug
+#r3.run(MainScene)

data/sample/Room3/title.rb

@@ -0,0 +1,184 @@
+# -*- encoding: utf-8 -*-
+class Title
+  include Story::Scene
+
+  def self.scene_type
+    return :scene
+  end
+
+  def init
+    font = Font.sans_serif
+    font.size = 24
+    font.color = Color[:white]
+    @push_key = Shape.text(:text=>"Push Any Key", :font=>font)
+    @push_key.center!.bottom!{|body| (0.1).ratio(body) }
+
+    @copy_right = Shape.text(:text=>"2006-2008 Cyross Makoto", :font=>font)
+    @copy_right.center!.bottom!{|body| (0.05).ratio(body) }
+
+    @visible = false
+
+    @title = Sprite.new(:file=>"image/mittsu_no_oheya.png", :type=>:ck)
+    
+    @exec = self.method(:view_in)
+  end
+
+  def setup
+    @title.move_to!(Screen.w, 0)
+  end
+
+  def view_in
+    if @title.x > 0
+      @title.move!(-8, 0)
+      return @now
+    end
+    @visible = true
+    @exec = self.method(:waiting)
+    return @now
+  end
+
+  def waiting
+    if Input.pushed_any? || Input.click?(:left)
+      @exec = self.method(:view_out)
+      @visible = false
+    end
+    return @now
+  end
+
+  def view_out
+    if @title.x > -Screen.w
+      @title.move!(-8, 0)
+      return @now
+    end
+    return TitleCall
+  end
+  
+  def update
+    return nil if (Input.pushed_any?(:esc) || Input.quit?)
+    return @exec.call
+  end
+
+  def render
+    @title.render
+    if @visible
+      @push_key.render
+      @copy_right.render
+    end
+  end
+end
+
+class TitleCall
+  include Story::Scene
+  include MainComponent
+
+  def init
+    @yuki = Yuki.new(message_box[:box]){|box|
+      select_textbox(box)
+    }
+    @man = Sprite.new(:file=>"image/start.png", :type=>:ck)
+    @man.center!.bottom!
+    @alpha = 0.0
+    @wait = WaitCounter.new(0.2)
+    @exec = self.method(:view_in)
+  end
+
+  def setup
+    @yuki.setup(plot){|plot|
+      select_plot(plot)
+    }
+    @yuki.vars[:next] = MainScene
+    @wait.start
+  end
+
+  def update
+    return nil if (Input.pushed_any?(:esc) || Input.quit?)
+    return @exec.call
+  end
+  
+  def final
+    message_box.stop
+  end
+  
+  def view_in
+    if @wait.finish?
+      if @alpha == 1.0
+        @yuki.start_plot
+        @exec = self.method(:exec_yuki)
+        message_box.start
+        return @now
+      end
+      @alpha += 0.15
+      @alpha = 1.0 if @alpha >= 1.0
+      @wait.start
+    end
+    return @now
+  end
+
+  def exec_yuki
+    message_box.update_animation
+    @yuki.update
+    return @yuki.result ? @yuki.result : @now
+  end
+  
+  def plot
+    yuki_plot do
+      text("「レディ〜ス　エ〜ン　ジェントルメ〜ン！」").pause.cr
+      text("「本日も、視聴者参加バラエティー").cr
+      text("　『ルーム３』の時間がは〜じまりま〜した〜！」").pause.clear
+      text("「司会はわたくし、").cr
+      wait 0.3
+      text("　サミュエル・ボチボチデンナーが").cr
+      text("　お送りしま〜す！」").pause.clear
+      text("「本日も、難関を乗り越え、").cr
+      text("　豪華賞品をゲットするだけ！").cr
+      wait 0.5
+      text("　カンタン！」").pause.clear
+      text("「ルールもカンタン！").cr
+      text("　３つの部屋にいる住人からヒントを得て、").pause.cr
+      text("　合言葉を見つけるだけ！").cr
+      wait 0.5
+      text("　ほら、カンタンでしょ？」").pause.clear
+      text("「でも、これらの部屋にいる住人、").cr
+      text("　一筋縄じゃ合い言葉を教えてくれない。").cr
+      wait 0.5
+      text("　いろいろ話して、").cr
+      text("　合い言葉をゲットしてくれ！」").pause.clear
+      text "「さぁ、最初の挑戦者だ。"
+      wait 0.5
+      text "お名前は？"
+      wait 1.5
+      cr
+      text "　・・・おおー、元気いいねー！"
+      wait 0.5
+      cr
+      text "　じゃあ、どっから来たの？"
+      wait 1.0
+      cr
+      text("　・・・オーケイ、よくできました！」").pause.clear
+      text "「じゃ、ルールは分かるよね？"
+      wait 0.5
+      cr
+      text "　・・・よし」"
+      pause.clear
+      text "「ドキドキするねぇ、"
+      wait 0.5
+      cr
+      text "　ワクワクするねぇ"
+      pause.cr
+      text "　それじゃ、元気よく、"
+      cr
+      text "　目の前のドアから入ってみよう。」"
+      pause.clear
+      text "「よーい、"
+      wait 0.5
+      text "スタート！」"
+      pause.clear
+      vars[:next]
+    end
+  end
+
+  def render
+    Bitmap.dec_alpha(@man, Screen, @alpha)
+    message_box.render if @exec == self.method(:exec_yuki)
+  end
+end

data/sample/ball_action_sample.rb

@@ -0,0 +1,204 @@
+# encoding: utf-8
+# 自由落下運動サンプル
+# 2009.4.19 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+# 基本オブジェクト
+class Obj
+  include Layout
+
+  attr_reader :collision, :position
+
+  def initialize(size)
+    init_layout
+    set_layout_size(*size.to_a)
+  
+    # スプライトの生成
+    @sprite = Sprite.new(size: size, type: :ac)
+    
+    # コリジョンの生成
+    @collision = Collision.new(Rect.new(0, 0, *size.to_a))
+    
+    # 位置情報の生成
+    @position = Point.new(0, 0)
+  end
+
+  def update_layout_position
+    # 画像はマージンが掛かっている可能性があるため、
+    # 補正を掛けておく
+    pos = @layout.pos.move(-@position[0],-@position[1])
+    @sprite.move!(*pos)
+    @position.move_to!(*@layout.pos)
+  end
+  
+  # スプライトとコリジョン間でマージンを設定
+  def margin(dx, dy)
+    @sprite.move!(dx, dy)
+    return self
+  end
+
+  # 衝突判定
+  def collision?(col, pos)
+    return @collision.collision?(@position, col, pos)
+  end
+
+  # 画面へ描画
+  def render
+    @sprite.render
+  end
+end
+
+# ボール
+class Ball < Obj
+  V0 = [8.0, 12.0].cycle
+  VX = [1, -1].cycle
+  G = 9.8
+
+  # 初速度の取得
+  attr_reader :v0
+  
+  def initialize
+    size = Size.new(32, 32)
+    super(size)
+    Drawing.circle(@sprite,
+                   [size.w/2,size.h/2],
+                   size.w/2,
+                   [255,255,255],
+                   true)
+
+    # ジャンプ中？
+    @jumping = false
+    # y基準位置
+    @by  = 0.0
+    # 元y
+    @oy  = 0.0
+    # 速度
+    @v = 0.0
+    # 初速度
+    @v0 = 0.0
+    # 時間
+    @t = 0.0
+    # 時間刻み
+    @dt = 0.01
+    # 床の跳ね返り係数
+    # 0.9や0.8にすると永遠に跳ねる
+    @e = 0.5
+    # 拡大率
+    @zoom = 1.0 / @dt
+    # ウェイト
+    @wait  = WaitCounter.new(@dt)
+  end
+
+  # ボールの更新
+  # 床(floor)を引数に取る
+  def update(floor)
+    if @jumping
+      # 放物運動の公式より。
+      # 当たり判定のテストも兼ねていることから、
+      # 整数単位の値が必要だったため、時間刻みを元に値を拡大している
+      y = (@v0 * @t - G * (@t ** 2) / 2) * @zoom
+      # 移動量の算出
+      dy = y - @oy
+      # 床とぶつかる？
+      # 移動範囲を作成
+      rect = Rect.new(@position.x,
+                      @position.y,
+                      1, -dy)
+      # 所定の間隔で床と衝突判定
+      if Utility.product_liner_f(rect, floor.h).any?{|pos|
+        @collision.collision?(pos,
+                              floor.collision,
+                              floor.position)
+      }
+        # 床にぶつかれば跳ね返る
+        self.move_to!(self.x, @by)
+        # 跳ね返り時の速度を求める。
+        # 実数にすると何故か永遠にはねるため、整数化して強制的に値を少なくしている
+        @v0 = -((@v0 - G * @t) * @e).to_i
+        @t = @dt
+        @oy = 0.0
+        @wait.start
+      elsif @wait.finish?
+        # ぶつからなければ移動
+        self.move_to!(self.x, @by - y.to_i)
+        @t = @t + @dt
+        @oy = y
+        @wait.start
+      end
+      # 初速度がゼロ？（止まった？）
+      if @v0 == 0.0
+        # ジャンプの終了
+        @wait.stop
+        @jumping = false
+      end
+    end
+  end
+
+  # 飛び上がれ！
+  def jumpup
+    return if @jumping
+    # y基準位置の決定
+    @by  = self.y.to_f
+    # 初速度の決定
+    @v0 = V0.next
+    @jumping = true
+    @t = @dt
+    @wait.start
+  end
+
+  # ジャンプ中？
+  def jumping?
+    return @jumping
+  end
+end
+
+# 床
+class Floor < Obj
+  def initialize
+    size = Size.new(640, 16)
+    super(size)
+    Drawing.fill(@sprite, [255,64,64])
+  end
+end
+
+# ボールの用意
+@ball = Ball.new
+
+# 床の用意
+@floor = Floor.new
+
+# 床の初期位置設定
+@floor.center!.bottom!
+
+# ボールの初期位置設定
+@ball.center!.bottom!{|b| @floor.size.h }
+
+# フォントの用意
+@font = Font.serif
+@font.size = 16
+
+# 情報表示用スプライトの用意
+@speed = Sprite.new(size: Size.new(640, 16), type: :ac)
+@info = Shape.text(font: @font, text: "１ボタンを押せばボールが跳ね上がります")
+@info.snap(@speed).left!.outside_bottom!
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  @ball.update(@floor)
+  # １ボタンを押した時、ボールのジャンプを始める
+  @ball.jumpup if Input.pushed_any?(:btn1)
+
+  # 初速度表示スプライトの更新
+  @speed.clear!
+  @font.draw_text(@speed, "初速度：#{@ball.v0}", 0, 0)
+
+  # 画面への描画
+  @floor.render
+  @ball.render
+  @speed.render
+  # ジャンプ中でなければ説明を表示
+  @info.render unless @ball.jumping?
+end

data/sample/blit_rop.rb

@@ -0,0 +1,70 @@
+# 画像ビット操作サンプル
+# 2009.4.17 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+# 画像が画面をはみ出そうになったら移動量を+-反転
+# spr:: 移動対象のスプライト
+# amt:: 移動量配列
+# 返却値:: 変更した移動量配列
+def turn(spr, amt)
+  amt[0] = -amt[0] if (spr.x + spr.ow) >= Screen.w
+  amt[0] = -amt[0] if spr.x <= 0
+  amt[1] = -amt[1] if (spr.y + spr.oh) >= Screen.h
+  amt[1] = -amt[1] if spr.y <= 0
+  return amt
+end
+
+# マスク画像を作成
+bmask = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+Drawing.circle(bmask, [50,50], 50, [255,255,255], :fill)
+
+# 描画用スプライトを作成
+spr1 = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+spr2 = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+spr3 = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+
+# 転送元背景を準備
+bk = Sprite.new(:file=>"Animation1/m1ku_back.jpg", :type=>:as)
+text = Sprite.new(:file=>"text.png", :type=>:ac)
+# 表示用背景を準備(元画像を反転)
+bk2 = bk.inverse
+
+spr2.centering!
+spr3.right!.bottom!
+
+# 移動量配列を設定
+@amt1 = [ 4, 4]
+@amt2 = [ 4,-4]
+@amt3 = [-4,-4]
+
+# Main Routine
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  # マスク画像の転送
+  bmask.render_to(spr1)
+  bk.render_to(spr2){|src, dst| src.ox = spr2.x; src.oy = spr2.y}
+  bk2.render_to(spr3){|src, dst| src.ox = spr3.x; src.oy = spr3.y}
+  # 元画像をandして描画用スプライトへ転送
+  spr1.and!(bk){|src, dst| src.ox = spr1.x; src.oy = spr1.y}
+  # 元画像をorして描画用スプライトへ転送
+  spr2.or!(text)
+  # 元画像をxorして描画用スプライトへ転送
+  spr3.xor!(text)
+  
+  # 画像を画面に描画
+  bk2.render
+  spr1.render
+  spr2.render
+  spr3.render
+  # スプライトの移動
+  spr1.move!(*@amt1)
+  spr2.move!(*@amt2)
+  spr3.move!(*@amt3)
+  # 画像が画面をはみ出そうになったら移動量を+-反転
+  @amt1 = turn(spr1, @amt1)
+  @amt2 = turn(spr2, @amt2)
+  @amt3 = turn(spr3, @amt3)
+end