filipinomemes 1.0.0

data/Rakefile

@@ -0,0 +1,6 @@
+require 'bundler/gem_tasks'
+require 'rspec/core/rake_task'
+
+RSpec::Core::RakeTask.new(:spec)
+
+task default: :spec

data/_config.yml

@@ -0,0 +1 @@
+theme: jekyll-theme-cayman

data/bin/filipinomemes

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+require 'filipinomemes/compiler'
+require 'rubygems'
+
+if ARGV[0].nil?
+  puts <<-EOS
+Unknown file. The correct syntax is:
+
+filipinomemes file.bt
+  EOS
+else
+  ARGV.each do |file|
+    next unless file
+    compiler = Filipinomemes::Compiler.new
+    code = File.read file, encoding: 'utf-8'
+    ruby_code = compiler.sa_ruby code
+    raise 'The lowest version of Ruby needed is 2.4' if
+      Gem::Version.new(RUBY_VERSION) < Gem::Version.new('2.3')
+    eval ruby_code
+  end
+end

data/filipinomemes.gemspec

@@ -0,0 +1,26 @@
+
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'filipinomemes/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = 'filipinomemes'
+  spec.version       = Filipinomemes::VERSION
+  spec.authors       = ['Jan Paul Carag']
+  spec.email         = ['zephyrum14@gmail.com']
+  spec.description   = 'Filipinomemes Programming Language'
+  spec.summary       = 'Filipinomemes is a programming language that uses filipino memes as its syntax'
+  spec.homepage      = 'https://github.com/zephyrum14/filipinomemes'
+  spec.license       = 'MIT'
+
+  spec.files         = `git ls-files`.split($INPUT_RECORD_SEPARATOR)
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ['lib']
+
+  spec.add_dependency 'ruby2ruby'
+
+  spec.add_development_dependency 'bundler'
+  spec.add_development_dependency 'rake'
+  spec.add_development_dependency 'rspec'
+end

data/lib/filipinomemes.rb

@@ -0,0 +1,3 @@
+require 'filipinomemes/version'
+
+module Filipinomemes; end

data/lib/filipinomemes/compiler.rb

@@ -0,0 +1,21 @@
+require 'ruby2ruby'
+require 'ruby_parser'
+require 'filipinomemes/ruby_parser_patches'
+
+module Filipinomemes
+  class Compiler
+    def initialize; end
+
+    STARTING_CODE = "# encoding: utf-8\nrequire \"filipinomemes/core_ext\"\n".freeze
+
+    def zephyrum(code)
+      ruby2ruby = Ruby2Ruby.new
+      parser = RubyParser.new
+      sexp = parser.process("# encoding: utf-8\n#{code}")
+
+      ruby_code = ruby2ruby.process(sexp)
+
+      "#{STARTING_CODE}#{ruby_code}"
+    end
+  end
+end

data/lib/filipinomemes/core_ext.rb

@@ -0,0 +1,8 @@
+require 'filipinomemes/core_ext/kernel'
+require 'filipinomemes/core_ext/string'
+require 'filipinomemes/core_ext/array'
+require 'filipinomemes/core_ext/enumerator'
+require 'filipinomemes/core_ext/integer'
+require 'filipinomemes/core_ext/range'
+require 'filipinomemes/core_ext/class'
+require 'filipinomemes/core_ext/module'

data/lib/filipinomemes/core_ext/array.rb

@@ -0,0 +1,19 @@
+class Array
+  alias baliktad reverse
+  alias umikot cycle
+  alias isuksok inject
+  alias magbagsak drop
+  alias itulak push
+  alias pasok push
+  alias ipasok push
+  alias huli last
+  alias gg last
+  alias una first
+  alias isaisahin each
+  alias kada each
+  alias bawat each
+  alias kada_isa each
+  alias sa_bawat_isa each
+  alias bilang_bawat_isa each_with_index
+  alias haba length
+end

data/lib/filipinomemes/core_ext/class.rb

@@ -0,0 +1,4 @@
+class Class
+  alias gumawa new
+  alias kumatawan new
+end

data/lib/filipinomemes/core_ext/enumerator.rb

@@ -0,0 +1,3 @@
+class Enumerator
+  alias kumuha take
+end

data/lib/filipinomemes/core_ext/integer.rb

@@ -0,0 +1,4 @@
+class Integer
+  alias ulit times
+  alias beses times
+end

data/lib/filipinomemes/core_ext/kernel.rb

@@ -0,0 +1,13 @@
+module Kernel
+  alias isulat puts
+  alias sabihin puts
+  alias iprint puts
+  alias mag_print puts
+  alias ilimbag puts
+  alias mag_limbag puts
+  alias itatak puts
+  alias mag_tatak puts
+  alias iangat raise
+  alias itaas raise
+  alias matulog sleep
+end

data/lib/filipinomemes/core_ext/module.rb

@@ -0,0 +1,4 @@
+class Module
+  alias panguri attr_accessor
+  alias palawigin extend
+end

data/lib/filipinomemes/core_ext/range.rb

@@ -0,0 +1,6 @@
+class Range
+  alias isaisahin each
+  alias bawat each
+  alias sa_bawat_isa each
+  alias kada_isa each
+end

data/lib/filipinomemes/core_ext/string.rb

@@ -0,0 +1,13 @@
+class String
+  alias baliktad reverse
+  alias haba length
+  alias sa_malaking_titik capitalize
+  alias sa_malalaking_titik upcase
+  alias sa_malaking_mga_titik upcase
+  alias sa_maliliit_na_titik downcase
+  alias sa_maliit_na_mga_titik downcase
+  alias igitna center
+  alias kagatan chomp
+  alias palitan replace
+  alias siyasatin inspect
+end

data/lib/filipinomemes/ruby_parser_patches.rb

@@ -0,0 +1,156 @@
+class RubyLexer
+  def parse_number
+    self.lex_state = :expr_end
+
+    if src.scan(/[+-]?0[xXbBdD]\b/)
+      rb_compile_error 'Invalid numeric format'
+    # elsif src.scan(/[+-]?(?:(?:[1-9][\d_]*|0)(?!\.\d)\b|0[Dd][0-9_]+)/)
+    elsif src.scan(/[+-]?(?:(?:[1-9][\d_]*|0)(?!\,\d)\b|0[Dd][0-9_]+)/)
+      int_with_base(10)
+    elsif src.scan(/[+-]?0x[a-f0-9_]+/i)
+      int_with_base(16)
+    elsif src.scan(/[+-]?0[Bb][01_]+/)
+      int_with_base(2)
+    elsif src.scan(/[+-]?0[Oo]?[0-7_]*[89]/)
+      rb_compile_error 'Illegal octal digit.'
+    elsif src.scan(/[+-]?0[Oo]?[0-7_]+|0[Oo]/)
+      int_with_base(8)
+    elsif src.scan(/[+-]?[\d_]+_(e|\.)/)
+      rb_compile_error "Trailing '_' in number."
+    # elsif src.scan(/[+-]?[\d_]+\.[\d_]+(e[+-]?[\d_]+)?\b|[+-]?[\d_]+e[+-]?[\d_]+\b/i)
+    elsif src.scan(/[+-]?[\d_]+\,[\d_]+(e[+-]?[\d_]+)?\b|[+-]?[\d_]+e[+-]?[\d_]+\b/i)
+      number = src.matched.sub(',', '.')
+      rb_compile_error 'Invalid numeric format' if number =~ /__/
+      self.yacc_value = number.to_f
+      :tFLOAT
+    elsif src.scan(/[+-]?[0-9_]+(?![e])/)
+      int_with_base(10)
+    else
+      rb_compile_error 'Bad number format'
+    end
+  end
+end
+
+module RubyParserStuff
+  class Keyword
+    wordlist = [
+      ['glhf',                 %i[kBEGIN kBEGIN], :expr_beg],
+      ['wala_na',              %i[kBEGIN kBEGIN], :expr_beg],
+      ['finish_na',            %i[kEND kEND], :expr_end],
+      ['gg',                   %i[kEND kEND], :expr_end],
+      ['els',                  %i[kELSE kELSE], :expr_beg],
+      ['ginagawa_mue',         %i[kELSE kELSE], :expr_beg],
+      ['kays',                 %i[kCASE kCASE], :expr_beg],
+      ['hakdog',               %i[kCASE kCASE], :expr_beg],
+      ['siguraduhing',         %i[kENSURE kENSURE], :expr_beg],
+      ['siguraduhin',          %i[kENSURE kENSURE], :expr_beg],
+      ['modyul',               %i[kMODULE kMODULE], :expr_beg],
+      ['grupo',                %i[kMODULE kMODULE], :expr_beg],
+      ['elsip',                %i[kELSIF kELSIF], :expr_beg],
+      ['agik_ginagawa_mue',    %i[kELSIF kELSIF], :expr_beg],
+      ['ang',                  %i[kDEF kDEF], :expr_fname],
+      ['panuntunang',          %i[kDEF kDEF], :expr_fname],
+      ['panuntunan',           %i[kDEF kDEF], :expr_fname],
+      ['iligtas',              %i[kRESCUE kRESCUE_MOD], :expr_mid],
+      ['agapan',               %i[kRESCUE kRESCUE_MOD], :expr_mid],
+      ['hindi',                %i[kNOT kNOT], :expr_beg],
+      ['dapat',                %i[kTHEN kTHEN], :expr_beg],
+      ['bigyang_daan',         %i[kYIELD kYIELD], :expr_arg],
+      ['magbigay_daan',        %i[kYIELD kYIELD], :expr_arg],
+      ['para_sa',              %i[kFOR kFOR], :expr_beg],
+      ['para_ang',             %i[kFOR kFOR], :expr_beg],
+      ['mayselp',              %i[kSELF kSELF], :expr_end],
+      ['magisa',               %i[kSELF kSELF], :expr_end],
+      ['mali',                 %i[kFALSE kFALSE], :expr_end],
+      ['neba_gibap',           %i[kRETRY kRETRY], :expr_end],
+      ['ibalik',               %i[kRETURN kRETURN], :expr_mid],
+      ['ibalik_ang',           %i[kRETURN kRETURN], :expr_mid],
+      ['magbalik',             %i[kRETURN kRETURN], :expr_mid],
+      ['magbalik_nang',        %i[kRETURN kRETURN], :expr_mid],
+      ['isauli',               %i[kRETURN kRETURN], :expr_mid],
+      ['isauli_ang',           %i[kRETURN kRETURN], :expr_mid],
+      ['ibigay',               %i[kRETURN kRETURN], :expr_mid],
+      ['ibigay_ang',           %i[kRETURN kRETURN], :expr_mid],
+      ['magbigay',             %i[kRETURN kRETURN], :expr_mid],
+      ['magbigay_nang',        %i[kRETURN kRETURN], :expr_mid],
+      ['truts',                %i[kTRUE kTRUE], :expr_end],
+      ['istroo',               %i[kTRUE kTRUE], :expr_end],
+      ['ip',                   %i[kIF kIF_MOD], :expr_beg],
+      ['agik',                 %i[kIF kIF_MOD], :expr_beg],
+      ['nakatukoy?',           %i[kDEFINED kDEFINED], :expr_arg],
+      ['nakasaad?',            %i[kDEFINED kDEFINED], :expr_arg],
+      ['super',                %i[kSUPER kSUPER], :expr_arg],
+      ['tanggalin',            %i[kUNDEF kUNDEF], :expr_fname],
+      ['magtanggal',           %i[kUNDEF kUNDEF], :expr_fname],
+      ['tama_na',              %i[kBREAK kBREAK], :expr_mid],
+      ['auko_na',              %i[kBREAK kBREAK], :expr_mid],
+      ['sa',                   %i[kIN kIN], :expr_beg],
+      ['sa_loob_ng',           %i[kIN kIN], :expr_beg],
+      ['nasa',                 %i[kIN kIN], :expr_beg],
+      ['na_nasa',              %i[kIN kIN], :expr_beg],
+      ['yudodis',              %i[kDO kDO], :expr_beg],
+      ['dududu',               %i[kDO kDO], :expr_beg],
+      ['wala',                 %i[kNIL kNIL], :expr_end],
+      ['hanggang',             %i[kUNTIL kUNTIL_MOD], :expr_beg],
+      ['hanggang_ang',         %i[kUNTIL kUNTIL_MOD], :expr_beg],
+      ['mapa_hanggang',        %i[kUNTIL kUNTIL_MOD], :expr_beg],
+      ['malibang',             %i[kUNLESS kUNLESS_MOD], :expr_beg],
+      ['maliban_na',           %i[kUNLESS kUNLESS_MOD], :expr_beg],
+      ['maliban_ang',          %i[kUNLESS kUNLESS_MOD], :expr_beg],
+      ['o',                    %i[kOR kOR], :expr_beg],
+      ['o_ang',                %i[kOR kOR], :expr_beg],
+      ['sumunod',              %i[kNEXT kNEXT], :expr_mid],
+      ['kasunod',              %i[kNEXT kNEXT], :expr_mid],
+      ['pagka',                %i[kWHEN kWHEN], :expr_beg],
+      ['pagka_ang',            %i[kWHEN kWHEN], :expr_beg],
+      ['ay',                   %i[kWHEN kWHEN], :expr_beg],
+      ['ulitin',               %i[kREDO kREDO], :expr_end],
+      ['at_ulitin',            %i[kREDO kREDO], :expr_end],
+      ['uliting_muli',         %i[kREDO kREDO], :expr_end],
+      ['at',                   %i[kAND kAND], :expr_beg],
+      ['at_ang',               %i[kAND kAND], :expr_beg],
+      ['__LINE__',             %i[k__LINE__ k__LINE__], :expr_end],
+      ['bilang',               %i[kCLASS kCLASS], :expr_class],
+      ['klase',                %i[kCLASS kCLASS], :expr_class],
+      ['__FILE__',             %i[k__FILE__ k__FILE__], :expr_end],
+      ['END',                  %i[klEND klEND], :expr_end],
+      ['BEGIN',                %i[klBEGIN klBEGIN], :expr_end],
+      ['waylwaylwayl',               %i[kWHILE kWHILE_MOD], :expr_beg],
+      ['ako_magisip',           %i[kWHILE kWHILE_MOD], :expr_beg],
+      ['alyas',                %i[kALIAS kALIAS], :expr_fname],
+      ['__ENCODING__',         %i[k__ENCODING__ k__ENCODING__], :expr_end]
+    ].map { |args| KWtable.new(*args) }
+
+    # :startdoc:
+
+    original_verbosity = $VERBOSE
+    $VERBOSE = nil
+
+    WORDLIST18 = Hash[*wordlist.map { |o| [o.name, o] }.flatten]
+    WORDLIST19 = Hash[*wordlist.map { |o| [o.name, o] }.flatten]
+
+    $VERBOSE = original_verbosity
+
+    WORDLIST18.delete '__ENCODING__'
+
+    %w[at at_ang
+       kays hakdog
+       elsip agik_ginagawa_mue
+       para_sa para_ang
+       ip agik
+       sa sa_loob_ng nasa na_nasa
+       modyul grupo
+       o o_ang
+       malibang maliban_na maliban_ang
+       hanggang hanggang_ang mapa_hanggang
+       pagka pagka_ang ay
+       waylwaylwayl ako_magisip].each do |k|
+      WORDLIST19[k] = WORDLIST19[k].dup
+      WORDLIST19[k].state = :expr_value
+    end
+    %w[hindi].each do |k|
+      WORDLIST19[k] = WORDLIST19[k].dup
+      WORDLIST19[k].state = :expr_arg
+    end
+  end
+end

data/lib/filipinomemes/version.rb

@@ -0,0 +1,3 @@
+module Filipinomemes
+  VERSION = '1.0.0'.freeze
+end

data/sample_programs/agapan.bt

@@ -0,0 +1,5 @@
+wala_na
+  1 / 0
+agapan
+  mag_print "Hindi ito posible!"
+finish_na

data/sample_programs/alyas.bt

@@ -0,0 +1,9 @@
+bilang Hayop
+  ang aso
+    mag_print 'si browny ay mabait!'
+  finish_na
+  alyas browny aso
+finish_na
+
+hayop = Hayop.gumawa
+hayop.browny

data/sample_programs/batotris.bt

@@ -0,0 +1,286 @@
+require 'io/console'
+
+grupo Batotris
+  BERSIYON = '0.1'.freeze
+  palawigin magisa
+
+  bilang Piyesa
+    MGA_PIYESA = [
+      [ [0, 1, 0, 0],
+        [1, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [0, 1, 1, 0],
+        [1, 1, 0, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 1, 0, 0],
+        [0, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 1, 1, 1],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 1, 0, 0],
+        [1, 1, 0, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [1, 0, 0, 0],
+        [1, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+
+      [ [0, 0, 1, 0],
+        [1, 1, 1, 0],
+        [0, 0, 0, 0],
+        [0, 0, 0, 0], ],
+    ]
+
+    ang initialize(x, y, piyesa = bagong_bloke)
+      @x = x
+      @y = y
+      @piyesa = piyesa
+    finish_na
+
+    ang magiba_ng_posisyon
+      bilang_ng_paglipat = 0
+      ang_posisyon = Array.kumatawan(4)
+      @piyesa.bilang_bawat_isa adbans |bloke, y|
+        bloke.bilang_bawat_isa adbans |b, x|
+          ip b == 1
+            ang_posisyon[bilang_ng_paglipat] = [ @x + x, @y + y ]
+            bilang_ng_paglipat += 1
+          finish_na
+        finish_na
+      finish_na
+      ang_posisyon
+    finish_na
+
+    ang kanan
+      Piyesa.kumatawan(@x + 1, @y, @piyesa)
+    finish_na
+
+    ang kaliwa
+      Piyesa.kumatawan(@x - 1, @y, @piyesa)
+    finish_na
+
+    ang mahulog
+      Piyesa.kumatawan(@x, @y + 1, @piyesa)
+    finish_na
+
+    ang pagikot
+      pansamantala = Array.kumatawan(4){ Array.kumatawan(4, 0)}
+      @piyesa.bilang_bawat_isa adbans |linya, y|
+        linya.bilang_bawat_isa adbans |l, x|
+          pansamantala[x][y] = l
+        finish_na
+      finish_na
+      pansamantala.bilang_bawat_isa adbans |linya, i|
+        pansamantala[i] = linya.baliktad
+      finish_na
+      Piyesa.kumatawan(@x, @y, pansamantala)
+    finish_na
+
+    ang bagong_bloke
+      rnd = rand(MGA_PIYESA.haba)
+      MGA_PIYESA[rnd]
+    finish_na
+  finish_na
+
+  grupo Pananda
+    WALA = 0
+    PADER = 1
+    AKTIBO = 2
+    NAKALINYA = 3
+  finish_na
+
+  bilang Babagsakan
+    LAWAK = 11
+    TAAS = 20
+    DAMI = 40
+    PADER_LETRA = "🀫 "
+    BLOCK_LETRA = "⚀ "
+    WALA_LETRA = "  "
+    panguri :dako
+
+    ang initialize
+      @sakop = gagalawan
+      @dako  = 0
+    finish_na
+
+    ang burahin
+      @sakop.bilang_bawat_isa adbans |linya, y|
+        linya.bilang_bawat_isa adbans |l, x|
+          @sakop[y][x] = 0 ip l == Pananda::AKTIBO
+        finish_na
+      finish_na
+    finish_na
+
+    ang burahin_ang_linya
+      @sakop.bilang_bawat_isa adbans |linya, y|
+        ip linya == [Pananda::PADER, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::NAKALINYA, Pananda::PADER]
+          @dako += 1
+          @sakop.delete_at(y)
+          @sakop.insert(0, [Pananda::PADER, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::WALA, Pananda::PADER])
+        finish_na
+      finish_na
+    finish_na
+
+    ang tapos_na?
+      @dako >= 40
+    finish_na
+
+    ang ay_bloke?(susunod_na_posisyon)
+      resulta = mali
+      susunod_na_posisyon.isaisahin adbans |pos|
+        ip isang_bloke?(pos[0], pos[1])
+          resulta = truts
+        finish_na
+      finish_na
+      resulta
+    finish_na
+
+    ang ipirme(kasulukuyang_posisyon)
+      kasulukuyang_posisyon.isaisahin adbans |pos|
+        @sakop[pos[1]][pos[0]] = Pananda::NAKALINYA
+      finish_na
+    finish_na
+
+    ang bago_ipirme(kasulukuyang_posisyon)
+      kasulukuyang_posisyon.isaisahin adbans |pos|
+        @sakop[pos[1]][pos[0]] = Pananda::AKTIBO
+      finish_na
+    finish_na
+
+    ang write
+      teksto = "\n\e[25D"
+      @sakop.isaisahin adbans |linya|
+        linya.isaisahin adbans |l|
+          ip l == Pananda::WALA
+            teksto += WALA_LETRA
+          agik_ginagawa_mue l == Pananda::AKTIBO || l == Pananda::NAKALINYA
+            teksto += BLOCK_LETRA
+          ginagawa_mue
+            teksto += PADER_LETRA
+          finish_na
+        finish_na
+        teksto += "\n\e[25D"
+      finish_na
+      mag_print teksto
+    finish_na
+
+    private
+
+    ang isang_bloke?(x, y)
+      @sakop[y][x] == Pananda::PADER || @sakop[y][x] == Pananda::NAKALINYA
+    finish_na
+
+    ang gagalawan
+      f = []
+      TAAS.beses adbans |i|
+        linya = []
+        LAWAK.beses adbans |j|
+          linya[j] = (j == 0 || j == LAWAK - 1 || i == TAAS - 1) ? Pananda::PADER : Pananda::WALA
+        finish_na
+        f[i] = linya
+      finish_na
+      ibalik_ang f
+    finish_na
+  finish_na
+
+  ang burahin_ang_screen
+    print "\x1b[2J\x1b[0;0H"
+  finish_na
+
+  ang mahulog_to_bloke(piyesa, sakop)
+    resulta = piyesa
+    loop adbans
+      susunod_na_posisyon = resulta.mahulog.magiba_ng_posisyon
+      ip sakop.ay_bloke?(susunod_na_posisyon)
+        isauli_ang resulta
+      ginagawa_mue
+        resulta = resulta.mahulog
+      finish_na
+    finish_na
+  finish_na
+
+  ang tetris
+    burahin_ang_screen
+
+    sakop = Babagsakan.kumatawan
+    sakop.write
+
+    piyesa = Piyesa.kumatawan(5, 0)
+
+    pinindot = 'n'
+    thread = Thread::start adbans
+      ako_magisip (pinindot = STDIN.getch)
+        ip pinindot == "\C-c"
+          tama_na
+        finish_na
+      finish_na
+    finish_na
+
+    loop adbans
+      matulog(0.2)
+      magisa.burahin_ang_screen
+      mag_print "kaliwa: [left key], kanan: [right key], mahulog: [space], ikutin: [up key], q: exit \e[25D"
+      mag_print "\e[25D#{sakop.dako}\e[25D"
+
+      hakdog pinindot
+      ay 'q' dapat
+        exit
+      ay "D" dapat
+        pansamantala = piyesa.kaliwa
+      ay "C" dapat
+        pansamantala = piyesa.kanan
+      ay 'B' dapat
+        pansamantala = magisa.mahulog_to_bloke(piyesa, sakop)
+      ay ' ' dapat
+        pansamantala = magisa.mahulog_to_bloke(piyesa, sakop)
+      ay "A" dapat
+        pansamantala = piyesa.pagikot
+      ginagawa_mue
+        pansamantala = piyesa.mahulog
+      finish_na
+
+      susunod_na_posisyon = pansamantala.magiba_ng_posisyon
+
+      ip !sakop.ay_bloke?(susunod_na_posisyon)
+            sakop.bago_ipirme(susunod_na_posisyon)
+            piyesa = pansamantala
+
+      agik_ginagawa_mue pinindot != 'n'
+        piyesa = piyesa
+      ginagawa_mue
+        sakop.ipirme(piyesa.magiba_ng_posisyon)
+        piyesa = Piyesa.kumatawan(5, 0)
+        susunod_na_posisyon = piyesa.magiba_ng_posisyon
+        ip sakop.ay_bloke?(susunod_na_posisyon)
+          mag_print "game over"
+          tama_na
+        finish_na
+      finish_na
+
+      sakop.write
+      sakop.burahin
+      sakop.burahin_ang_linya
+
+      pinindot = 'n'
+      ip sakop.tapos_na?
+        mag_print "matagumpay!"
+        tama_na
+      finish_na
+    finish_na
+    Thread.kill(thread)
+  finish_na
+finish_na
+
+
+Batotris.tetris