stylet 0.0.1

data/examples/01100_/343/202/271/343/202/257/343/203/252/343/203/274/343/203/263/346/203/205/345/240/261.rb

@@ -0,0 +1,8 @@
+require_relative "setup"
+
+Stylet.run do
+  vi = SDL::Screen.info
+  vi.class.instance_methods(false).each do |var|
+    vputs "#{var} #{vi.send(var)}"
+  end
+end

data/examples/01110_lib_contrib_menu.rb

@@ -0,0 +1,19 @@
+require_relative "helper"
+
+menu = Stylet::Menu::Basic.new(name: "[メニュー]", elements: [
+    {name: "実行", safe_command: proc { Stylet.run { vputs "Hello World" } }},
+    {
+      name: "サブメニュー",
+      safe_command: proc {|s|
+        s.chain(name: "[サブメニュー]", elements: [
+            {name: "A", safe_command: proc { p 1 }},
+            {name: "B", safe_command: proc { p 2 }},
+            {name: "閉じる", safe_command: :close_and_parent_restart },
+          ])
+      },
+    },
+    {name: "サブメニュー2", safe_command: proc { s.chain(name: "[サブメニュー2]", elements: 16.times.collect {|i|{:name => "項目#{i}"}})}},
+    {:name => "閉じる", :safe_command => :close_and_parent_restart },
+  ])
+
+Stylet.run {|_| menu.update }

data/examples/01120_/351/233/233/345/236/213_2P/345/257/276/346/210/246/351/242/250STG.rb

@@ -0,0 +1,109 @@
+require "./setup"
+
+class GunShip
+  include Stylet::Delegators
+  include Stylet::Input::Base
+
+  attr_reader :pos
+  attr_accessor :target
+
+  def initialize(pos)
+    super()
+    @pos = pos                  # 自機の位置
+    @speed = 3                  # 移動速度
+    @size = 8 * 3               # 自機の大きさ
+    @joystick_index = nil       # 自分のジョイスティックの番号
+    @target = nil               # 相手
+  end
+
+  def update
+    if @joystick_index
+      bit_update_by_joy(Stylet.context.joys[@joystick_index])
+    end
+    key_bit_update_all
+    key_counter_update_all
+
+    if dir = axis_angle
+      next_pos = @pos + vec2.angle_at(dir) * @speed
+      if Stylet::CollisionSupport.rect_in?(Stylet.context.srect, next_pos)
+        @pos = next_pos
+      end
+    end
+
+    draw_triangle(@pos, :radius => @size, :angle => @pos.angle_to(@target.pos))
+  end
+end
+
+module BulletTrigger
+  def update
+    super
+    if @button.btA.counter.modulo(8) == 1
+      Stylet.context.objects << Bullet.new(@pos.clone, @pos.angle_to(@target.pos), 4.00)
+    end
+  end
+end
+
+class GunShip1 < GunShip
+  include Stylet::Input::StandardKeybordBind
+  include Stylet::Input::JoystickBindMethod
+  include BulletTrigger
+
+  def initialize(*)
+    super
+    @joystick_index = 0
+  end
+end
+
+class GunShip2 < GunShip
+  include Stylet::Input::HjklKeyboardBind
+  include Stylet::Input::JoystickBindMethod
+  include BulletTrigger
+
+  def initialize(*)
+    super
+    @joystick_index = 1
+  end
+end
+
+class Bullet
+  include Stylet::Delegators
+
+  def initialize(pos, dir, speed)
+    @pos = pos
+    @dir = dir
+    @speed = speed
+
+    @size = 8
+    @radius = 0
+  end
+
+  def screen_out?
+    Stylet::CollisionSupport.rect_out?(srect, @pos) || @radius < 0
+  end
+
+  def update
+    @radius += @speed
+    draw_triangle(@pos + vec2.angle_at(@dir) * @radius, :radius => @size, :angle => @dir)
+  end
+end
+
+class App < Stylet::Base
+  attr_reader :objects
+
+  setup do
+    self.title = "二人対戦風シューティング"
+    @objects = []
+    ship1 = GunShip1.new(vec2[srect.hx, srect.hy - srect.hy * 0.8])
+    ship2 = GunShip2.new(vec2[srect.hx, srect.hy + srect.hy * 0.8])
+    ship1.target = ship2
+    ship2.target = ship1
+    @objects << ship1
+    @objects << ship2
+  end
+
+  update do
+    @objects.each(&:update)
+  end
+
+  run
+end

data/examples/01130_/351/233/233/345/236/213_/346/210/246/350/273/212/345/257/276/346/210/246.rb

@@ -0,0 +1,396 @@
+# 戦車
+require_relative "helper"
+
+$DEBUG = false
+
+class Tank
+  include Stylet::Delegators
+  include Stylet::Input::Base
+  include Stylet::Input::ExtensionButton
+
+  attr_accessor :pos
+  attr_accessor :target
+  attr_accessor :life
+  attr_accessor :bullet_count
+  attr_accessor :radius
+
+  def initialize(name, pos)
+    super()
+
+    @name         = name
+    @pos          = pos                        # 車体の位置
+    @body_dir     = @pos.angle_to(srect.center) # 車体の進む方向
+    @handle_dir   = 0                          # ハンドル角度
+    @accel        = 0                          # 加速度
+    @speed        = 0                          # 速度
+    @old_pos      = @pos.clone                 # 前回の位置
+    @bullet_count = 0                          # 発射している弾丸数
+    @life         = 10                         # ライフ
+    @anger        = 0                          # 怒り
+    @radius       = 20                         # 車体の大きさ
+    @bullet_max   = 3                          # 使える段数
+
+    @cannon_dir   = @body_dir                  # 砲台の向き(実際)
+    @cannon_dir2  = @body_dir                  # 砲台の向き(目標)
+  end
+
+  def update
+    super if defined? super
+
+    if @joystick_index
+      if joy = joys[@joystick_index]
+        bit_update_by_joy(joy)
+      end
+    end
+
+    key_bit_update_all
+    key_counter_update_all
+
+    # ハンドル
+    begin
+      @handle_adir = 0
+
+      if button_obj = Stylet::Input::Support.preference_key(ext_button.btL2, ext_button.btR2)
+        # ハンドルの強さ。大きいと小回りが効く。
+        @handle_adir = 0.0005
+        if button_obj == ext_button.btL2
+          @handle_adir *= -1
+        end
+      elsif axis.left.press? || axis.right.press?
+        @handle_adir = 0.0005
+        if axis.left.press?
+          @handle_adir *= -1
+        end
+      end
+
+      @handle_dir += @handle_adir
+      # ハンドルの角度の減速度(1.00なら車体が回りっぱなしになる)
+      if @old_pos.truncate == @pos.truncate
+        @handle_dir *= 0.5  # 止まっている場合はハンドルがなかなか効かない(普通の車なら0.0)
+      else
+        #   @handle_dir *= 1.0  # 動いている状態ではハンドルが効きやすい
+      end
+      @handle_dir *= 0.95   # ハンドルを元に戻す
+      handle_gap = 0.1     # ハンドルが曲る最大の角度
+      @handle_dir = Stylet::Chore.clamp(@handle_dir, (-handle_gap..handle_gap))
+      @body_dir += @handle_dir
+      vputs "ハンドル: #{@handle_dir.round(4)}" if $DEBUG
+      vputs "車体向き: #{@body_dir.round(4)}" if $DEBUG
+    end
+
+    # アクセル
+    begin
+      @accel = 0
+      if button.btA.press?
+        @accel = 0.06             # 前の進むときの加速度
+      end
+      if button.btD.press?
+        @accel = -0.06            # ブレーキの効き具合い
+      end
+      # @accel *= 2 if @life <= 1
+      @speed += @accel if @life >= 1
+      @speed *= 0.999              # 空気抵抗
+      @speed = Stylet::Chore.clamp(@speed, (-1.0..5)) # 下るときと進むときの速度のリミット
+      vputs "速度: #{@speed.round(4)}" if $DEBUG
+    end
+
+    # 移動
+    begin
+      @old_pos = @pos.clone
+      @pos += vec2.angle_at(@body_dir) * @speed
+    end
+
+    # 砲台
+    begin
+      # 指定の方向に合わせる
+      if joy = joys[@joystick_index]
+        if vec = joy.adjusted_analog_levers[:right]
+          if vec.magnitude > 0.5
+            @cannon_dir += Stylet::Chore.shortest_angular_difference(vec.angle, @cannon_dir) * 0.1
+          end
+        end
+      end
+
+      if false
+        # 相手の方向に合わせる
+        if ext_button.btR1.press?
+          @cannon_dir2 = Stylet::Chore.shortest_angular_difference(@pos.angle_to(@target.pos), @cannon_dir)
+          # # ただしスピードが落ちる
+          # @speed *= 0.9
+        end
+      end
+
+      # ゆっくりと砲台を車体の方向に向けていく
+      @cannon_dir += Stylet::Chore.shortest_angular_difference(@body_dir, @cannon_dir) * 0.08
+
+      vputs "cannon_dir: #{@cannon_dir}" if $DEBUG
+    end
+
+    # タックルしたとき当り判定(減り込み回避のみ)
+    begin
+      diff = @target.pos - @pos
+      rdiff = (@radius + @target.radius) - diff.magnitude
+      if rdiff > 0
+        @pos -= diff.normalize * rdiff / 2
+        @target.pos += diff.normalize * rdiff / 2
+      end
+    end
+
+    # 粉塵
+    if true
+      if @accel.nonzero? && @speed >= 1.0
+        if frame_counter.modulo(3).zero?
+          (@speed * 4).round.times do
+            if rand(3).zero?
+              Stylet.context.objects << Dust.new(@pos, @body_dir + 0.5 + rand(-0.10..0.10), @speed * rand(6..8), rand(0.7..0.8), rand(15..20))
+            end
+          end
+        end
+      end
+    end
+
+    begin
+      vputs "#{@name}: #{@life} (#{@power})"
+    end
+
+    if @life >= 1
+      # 車体表示
+      draw_angle_rect(@pos, :angle => @cannon_dir, :radius => 25, :edge => 0.02)
+      draw_angle_rect(@pos, :angle => @body_dir, :radius => 25, :edge => 0.09)
+    end
+  end
+
+  def damage
+    if @life >= 1
+      @life -= 1
+      @anger += 1
+      @bullet_max += 1          # 不利になると弾数が増える
+      (n = 16).times do |i|
+        Stylet.context.objects << Dust.new(@pos, 1.0 / n * i, rand(6..8), rand(0.7..0.9), 0)
+      end
+      Stylet::SE["explosion01"].play
+    end
+  end
+end
+
+module BulletTrigger
+  def initialize(*)
+    super
+    @power = 0
+    @free_counter = 0
+  end
+
+  def update
+    super
+    bt = ext_button.btR1
+
+    if bt.trigger? || Stylet.context.key_down?(SDL::Key::B)
+      if @bullet_count < @bullet_max
+        @speed -= 0.8           # 玉を打つと反動で下がる。(BUG: 横に向けて砲台を打っているときに後車するのはおかしい)
+        Stylet.context.objects << Bullet.new(self, @pos.clone, @cannon_dir, 8)
+      end
+    end
+
+    # 溜め
+    if bt.press?
+      @power += 1
+      @free_counter = 0
+    else
+      @free_counter += 1
+    end
+    if @free_counter == 1
+      if @power >= 60 * 2
+        @speed -= 0.3           # 玉を打つと反動で下がる
+        1.times { Stylet.context.objects << Missile.new(self, @cannon_dir) }
+      end
+      @power = 0
+    end
+  end
+end
+
+class Tank1 < Tank
+  include Stylet::Input::StandardKeybordBind
+  include Stylet::Input::JoystickBindMethod
+  include BulletTrigger
+
+  def initialize(*)
+    super
+    @joystick_index = 0
+  end
+end
+
+class Tank2 < Tank
+  include Stylet::Input::HjklKeyboardBind
+  include Stylet::Input::JoystickBindMethod
+  include BulletTrigger
+
+  def initialize(*)
+    super
+    @joystick_index = 1
+  end
+end
+
+class Bullet
+  attr_reader :death
+
+  def initialize(tank, pos, dir, speed)
+    @tank = tank
+    @pos = pos
+    @dir = dir
+    @speed = speed
+
+    @size = 6
+    @radius = 26
+    @death = false
+
+    @tank.bullet_count += 1
+  end
+
+  def update
+    @radius += @speed
+    _pos = @pos + vec2.angle_at(@dir) * @radius
+    Stylet.context.draw_triangle(_pos, :radius => @size, :angle => @dir, :vertex => 8)
+    rc = Stylet::Rect4.centered_create(@size * 1.5).vector_add(_pos)
+    Stylet.context.draw_rect(rc) if $DEBUG
+    if Stylet::CollisionSupport.rect_in?(rc, @tank.target.pos)
+      if @tank.target.life >= 1
+        @tank.target.damage
+        final
+      end
+    end
+    if Stylet::CollisionSupport.rect_out?(Stylet.context.srect, _pos)
+      final
+    end
+  end
+
+  def final
+    unless @death
+      @tank.bullet_count -= 1
+      @death = true
+    end
+  end
+end
+
+class Missile
+  include Stylet::Delegators
+
+  attr_reader :death
+
+  def initialize(tank, dir)
+    @tank = tank
+    @pos = tank.pos
+    @dir = dir + rand(-0.1..0.1)
+    @speed = rand(1.0..3.0)
+
+    @size = 20
+    @radius = 26
+    @death = false
+
+    Stylet::SE["launch01"].play
+  end
+
+  def update
+    if @tank.target.life >= 1
+      a = @pos.angle_to(@tank.target.pos)
+    else
+      a = @pos.angle_to(srect.center)
+    end
+    d = a.modulo(1.0) - @dir.modulo(1.0)
+    if d < -1.0 / 2
+      d = 1.0 + d
+    elsif d > 1.0 / 2
+      d = -1.0 + d
+    end
+    @dir += d * 0.04            # 誘導率
+    # @speed += 0.01
+    @speed = Stylet::Chore.clamp(@speed, (1..3))
+    @radius += @speed
+    _pos = @pos + vec2.angle_at(@dir) * @radius
+    Stylet.context.draw_triangle(_pos, :radius => @size, :angle => @dir)
+    rc = Stylet::Rect4.centered_create(@size * 1.5).vector_add(_pos)
+    Stylet.context.draw_rect(rc) if $DEBUG
+    if Stylet::CollisionSupport.rect_in?(rc, @tank.target.pos)
+      if @tank.target.life >= 1
+        @tank.target.damage
+        final
+      end
+    end
+    if Stylet::CollisionSupport.rect_out?(Stylet.context.srect, _pos)
+      final
+    end
+  end
+
+  def final
+    unless @death
+      @death = true
+    end
+  end
+end
+
+class Dust
+  include Stylet::Delegators
+
+  attr_reader :death
+
+  def initialize(pos, dir, speed, friction, radius)
+    @pos = pos
+    @dir = dir
+    @speed = speed
+    @friction = friction
+    @radius = radius
+
+    @size = 1
+    @death = false
+  end
+
+  def update
+    @speed *= @friction
+    @radius += @speed
+    _pos = @pos + vec2.angle_at(@dir) * @radius
+    draw_triangle(_pos, :radius => @size, :angle => @dir)
+    if @speed.abs <= 0.03
+      final
+    end
+  end
+
+  def final
+    @death = true
+  end
+end
+
+class App < Stylet::Base
+  include Helper::Cursor
+  attr_reader :objects
+
+  setup do
+    Stylet::SE.load("assets/komori_explosion01.ogg")
+    Stylet::SE.load("assets/komori_launch01.ogg")
+
+    self.title = "戦車 vs 戦車"
+    cursor.display = false
+    SDL::Mouse.hide
+  end
+
+  def reset_objects
+    @objects = []
+    @ships = []
+    @tank1 = Tank1.new("1P", vec2[srect.hx - srect.hx * 0.8, srect.hy])
+    @tank2 = Tank2.new("2P", vec2[srect.hx + srect.hx * 0.8, srect.hy])
+    @tank1.target = @tank2
+    @tank2.target = @tank1
+    @ships << @tank1
+    @ships << @tank2
+  end
+  setup :reset_objects
+
+  update do
+    if Stylet.context.key_down?(SDL::Key::R) || ((joy = joys.first) && joy.button(0) && joy.button(3))
+      reset_objects
+    end
+    @ships.each(&:update)
+    @objects.each(&:update)
+    @objects.reject!(&:death)
+  end
+
+  run
+end