Hart RGSS2 Tutorial: OOP

#------------------------------------------------------------------------------
# * Hart RGSS2 Tutorial
#------------------------------------------------------------------------------
$tut_sprite = Sprite.new                    #global variable
$tut_sprite.bitmap = Bitmap.new(544, 416)
#==============================================================================
# ** SegiEmpat
#------------------------------------------------------------------------------
# Pokoknya segi empat
#==============================================================================


class SegiEmpat
  attr_accessor :panjang
  attr_accessor :lebar
  attr_accessor :x
  attr_accessor :y
  attr_accessor :warna
 
  def initialize(panjang, lebar,x,y)
    @panjang = panjang          #@panjang dan @lebar adalah instance variables
    @lebar = lebar
    @x = x
    @y = y
    @warna= warna
  end

  def posisi                  #function posisi???
    @x=x
    @y=y
  end
 
  def luas
    return @panjang * @lebar
  end
 
  def keliling                      #function keliling
    return (2*@panjang)+(2*@lebar)
  end
 
  def tukar_panjang_dan_lebar    #untuk menukar panjang dan lebar
    temp = @panjang
    @panjang = @lebar
    @lebar = temp
  end
 

end
#------------------------------------------------------------------------------



a = SegiEmpat.new(100, 200,3,4)
b = SegiEmpat.new(300, 50,294,92) 
a.warna = Color.new (10.333,29,255)        #set warna????
b.warna = Color.new (99,29,255)


panjang=a.tukar_panjang_dan_lebar        #memanggil tukar panjang dan lebar
lebar = b.tukar_panjang_dan_lebar

loop do
  Graphics.update
 
  posisiXA=a.x                #memanggil posisi x dan y diluar class segi4
  posisiXB=b.x                #mungkin gini  ya?
  posisiYA=a.y
  posisiYB=b.y
 
  luasA = a.luas
  luasB = b.luas
  kelilingA = a.keliling      #keliling
  kelilingB = b.keliling
  $tut_sprite.bitmap.clear
 
  $tut_sprite.bitmap.draw_text(0, 0, 544, 416,"a.warna = " + a.warna.to_s + "a.panjang = " + a.panjang.to_s + "        a.lebar = " + a.lebar.to_s + "        a.x = " + posisiXA.to_s + "        a.y = " + posisiYA.to_s)
  $tut_sprite.bitmap.draw_text(0, 24, 544, 416,"b.warna =" + b.warna.to_s + "b.panjang = " + b.panjang.to_s + "b.lebar = " + b.lebar.to_s + "        b.x = " + posisiXB.to_s + "        b.y = " + posisiYB.to_s)
 
 
  $tut_sprite.bitmap.draw_text(0, 48, 544, 416, luasA.to_s + "  " + luasB.to_s)
  $tut_sprite.bitmap.draw_text(0, 96, 544, 416, kelilingA.to_s + "  " + kelilingB.to_s)
  a.panjang += 2
end
#------------------------------------------------------------------------------]