window ox oy

# Pasang sebagai script baru, trus jalanin
# Gunain panah atas bawah kanan kiri
# Liat hasilnya

DataManager.init

$window = Window_Base.new(0,0,250,24 * 3)
$window.contents = Bitmap.new(300, 300)
$window.draw_text(0, 0, 300, 24, "LINE BARIS PERTAMA!")
$window.draw_text(0, 24, 300, 24, "LINE BARIS KEDUA!")
$window.draw_text(0, 48, 300, 24, "LINE BARIS KETIGA!")
$window.draw_text(0, 72, 300, 24, "LINE BARIS KEEMPAT!")
$window.draw_text(0, 96, 300, 24, "LINE BARIS KELIMA!")
$window.draw_text(0, 120, 300, 24, "LINE BARIS KEENAM!")

loop do
  Graphics.update
  Input.update
  case Input.dir4
  when 2
    $window.oy += 1
  when 4
    $window.ox += 1
  when 6
    $window.ox -= 1
  when 8
    $window.oy -= 1
  end
end