Three Box Class Program

#! ruby -Ku

#３通り継承クラスプログラム
#作者 mireiyu
require "kconv"
require_relative "dxruby"

class Any_box
  def initialize(dx,dy,argb,sx,sy)

   @dx = dx
   @dy = dy
   @argb = argb
   @sx = sx
   @sy = sy

   @box_default_image = Image.new(@dx,@dy,[@argb[0],@argb[1],@argb[2],@argb[3]]).draw_font_ex(0,0,"1",$font,{color:[255,0,0,0]})
   @box_default_sprite = Sprite.new(@sx,@sy,@box_default_image)
  end
  def sprite_action

  end
  def sprite_render
   @box_default_sprite.draw
   @box_default_sprite.update
  end
end

class Color_box < Any_box
  def initialize(dx,dy,argb,sx,sy)
   super
   @argb = argb
   @sx = sx
   @sy = sy

   @box_default_image = Image.new(@dx,@dy,[@argb[0],@argb[1],@argb[2],@argb[3]]).draw_font_ex(0,0,"2",$font,{color:[255,0,0,0]})
   @box_default_sprite = Sprite.new(@sx,@sy,@box_default_image)
  end
  def sprite_action

  end
  def sprite_render
   @box_default_sprite.draw
   @box_default_sprite.update
  end
end

class Size_color_box < Color_box
  def initialize(dx,dy,argb,sx,sy)
   super
   @argb = argb
   @sx = sx
   @sy = sy

   @box_default_image = Image.new(@dx,@dy,[@argb[0],@argb[1],@argb[2],@argb[3]]).draw_font_ex(0,0,"3",$font,{color:[255,0,0,0]})
   @box_default_sprite = Sprite.new(@sx,@sy,@box_default_image)  end
  def sprite_action

  end
  def sprite_render
   @box_default_sprite.draw
   @box_default_sprite.update
  end
end

module Main
#全般定義
  $font = Font.new(20, 'HGP行書体')
  @pointar = 0
  @pointar_argb = 0
#数値初期定義=>
  @@dx_ary    = [20,20,20]
  @@dy_ary    = [20,20,20]
  @@argb_ary  = [[255,255,255,255],[255,255,255,255],[255,255,255,255]]
  @@sx_ary    = [20,20,20]
  @@sy_ary    = [20,20,20]
#<=定義
  3.times do |i|
   dx    = @@dx_ary[i]
   dy    = @@dy_ary[i]
   argb  = @@argb_ary[i]
   sx    = @@sx_ary[i]
   sy    = @@sy_ary[i]
   @@any_box = Any_box.new(dx,dy,argb,sx,sy) if i == 0
   @@color_box = Color_box.new(dx,dy,argb,sx,sy) if i == 1
   @@size_color_box = Size_color_box.new(dx,dy,argb,sx,sy) if i == 2
  end

  Window.loop do
#動作
   @@any_box.sprite_action
   @@any_box.sprite_render
   @@color_box.sprite_action
   @@color_box.sprite_render
   @@size_color_box.sprite_action
   @@size_color_box.sprite_render
#コントローラー
   @pointar = 0 if Input.keyPush?(K_1)
   @pointar = 1 if Input.keyPush?(K_2)
   @pointar = 2 if Input.keyPush?(K_3)
   @pointar_argb = 0 if Input.keyPush?(K_4)
   @pointar_argb = 1 if Input.keyPush?(K_5)
   @pointar_argb = 2 if Input.keyPush?(K_6)
   @pointar_argb = 3 if Input.keyPush?(K_7)
   @@dx_ary[@pointar]       += 20 if Input.keyPush?(K_L) and @@dx_ary[@pointar] < 200
   @@dy_ary[@pointar]       += 20 if Input.keyPush?(K_K) and @@dy_ary[@pointar] < 200
   @@argb_ary[@pointar][@pointar_argb]  += 15 if Input.keyPush?(K_A) and @@argb_ary[@pointar][@pointar_argb] < 255
   @@sx_ary[@pointar]       += 20 if Input.keyPush?(K_RIGHT) and @@sx_ary[@pointar] < 620
   @@sy_ary[@pointar]       += 20 if Input.keyPush?(K_DOWN) and @@sy_ary[@pointar] < 460
   @@dx_ary[@pointar]       -= 20 if Input.keyPush?(K_J) and @@dx_ary[@pointar] > 0
   @@dy_ary[@pointar]       -= 20 if Input.keyPush?(K_I) and @@dy_ary[@pointar] > 0
   @@argb_ary[@pointar][@pointar_argb]  -= 15 if Input.keyPush?(K_S) and @@argb_ary[@pointar][@pointar_argb] > 0
   @@sx_ary[@pointar]       -= 20 if Input.keyPush?(K_LEFT) and @@sx_ary[@pointar] > 0
   @@sy_ary[@pointar]       -= 20 if Input.keyPush?(K_UP) and @@sy_ary[@pointar] > 0

#<=再定義
   if Input.keyPush?(K_SPACE)
    3.times do |i|
     dx    = @@dx_ary[i]
     dy    = @@dy_ary[i]
     argb  = @@argb_ary[i]
     sx    = @@sx_ary[i]
     sy    = @@sy_ary[i]
     @@any_box = Any_box.new(dx,dy,argb,sx,sy) if i == 0
     @@color_box = Color_box.new(dx,dy,argb,sx,sy) if i == 1
     @@size_color_box = Size_color_box.new(dx,dy,argb,sx,sy) if i == 2
    end
   end
#値表示
   info_y = 30
   3.times do |o|
    Window.draw_font(0,480-90 + 30 * o , @@dx_ary[o].to_s + ":" + @@dy_ary[o].to_s + ":" + @@sx_ary[o].to_s + ":" + @@sy_ary[o].to_s + ":" + @@argb_ary[o].to_s + ":",$font)
   end
   Window.draw_font(0,360,"Pontar/ArgbPointar=" + @pointar.to_s + ":" + @pointar_argb.to_s + ":",$font)
   Window.draw_font(640-140,460,"Z To Help",$font)
   Window.draw_font(0,200,"123:target box,4567:target argb,↑↓←→:move box\nKLIJ:change box size,AS:tweak color\nspace:reinit",$font,{color:[255,255,66,66]}) if Input.keyDown?(K_Z)
  end
end