Theo - Object Collision Check

# =============================================================================
# THEOALLEN - OBJECT COLLISION CHECK
# VERSION : 1.0
# CONTACT : www.rpgmakerid.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
$imported = {} if $imported.nil?
$imported[:Theo_Collision] = true
# =============================================================================
# CHANGE LOGS :
# -----------------------------------------------------------------------------
# 2013.04.30 - Started and finished script
# =============================================================================
=begin

  PENGENALAN:
  Script ini untuk ngecek apakah suatu object bertabrakan dengan object lain
  atau tidak. Object yang bisa dibandingin adalah Window dan Sprite.

  CARA PENGGUNAAN:
  - object.collision?(another) >> True kalo object berkolisi ama another

  TERMS OF USE:
  Karena ini emang cuman buat tool para scripter, silahkan2 aja kalo mo dipake.
  Mau komersil juga boleh. Btw, kalo ada ide trus mo ngembangil ni modul
  monggo terserah. Gw mah dmen banget kalo ada yg mo ngembangin script gw yg
  satu ini. Tapi tetep kredit ya? \=w=/

=end
# =============================================================================
# Module THEO::Collision (Diimplement ke Window ama Sprite)
# =============================================================================
module THEO
  module Collision

    def object_toCheck(obj)
      @check = obj if can_collision?(obj)
    end

    def border_x
      @check.x + @check.width
    end

    def border_y
      @check.y + @check.height
    end

    def can_collision?(other)
      other.is_a?(Sprite) || other.is_a?(Window)
    end

    def collision?(other)
      return false unless can_collision?(other) && @check
      return (collision_right(other) || collision_left(other)) &&
      (collision_below(other) || collision_above(other))
    end

    def collision_right(other)
      (other.x <= border_x) && (other.x > @check.x)
    end

    def collision_left(other)
      (other.border_x >= @check.x) && (other.border_x < border_x)
    end

    def collision_below(other)
      (other.y <= border_y) && (other.y > @check.y)
    end

    def collision_above(other)
      (other.border_y >= @check.y) && (other.border_y < border_y)
    end

  end
end

class Sprite

  include THEO::Collision

  alias theo_collision_init initialize
  def initialize(viewport = nil)
    theo_collision_init(viewport)
    object_toCheck(self)
  end

end

class Window

  include THEO::Collision

  alias theo_collision_init initialize
  def initialize(x,y,width,height)
    theo_collision_init(x,y,width,height)
    object_toCheck(self)
  end

end