dl-tetris 0.0.1

data/README.markdown

@@ -0,0 +1,41 @@
+Dave and Luke's Tetris clone
+----------------------------
+
+A quick little tetris clone written in Ruby. It uses the [rubygame](http://rubygame.org/) library and was originally based from [this great template](http://rubygame.org/wiki/Generic_Game_Template).
+
+It was started by Dave to practice Ruby and Luke has since seperated it out and turned it into a 'proper' project.
+
+Arrow keys move, up arrow rotates and space drops your piece.
+
+![Tetris Screenshot 1](http://kzar.co.uk/images/tetris.png)
+
+Notes
+-----
+
+ - If you're using a Mac you will need to run this with [RSDL](https://github.com/knu/rsdl) instead of the normal Ruby command.
+ - If you're not using a Mac you will need to change the font path.
+ - You will need to install libsdl, sdl_gfx, sdl_ttf, rubygame, rsdl (see above) and Ruby 1.9 for this to work properly.
+
+Todo
+----
+
+ - Music!
+ - End game logic
+ - Special effects?!
+ - [XKCD setting?!](http://xkcd.com/724/)
+
+Licence
+-------
+
+Copyright Dave Barker and Luke Antins 2010
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.

data/Rakefile

@@ -0,0 +1,22 @@
+require 'rake/testtask'
+require 'fileutils'
+require 'yard'
+require 'yard/rake/yardoc_task'
+
+task :default => :'test'
+
+# Testing
+desc 'Run tests'
+Rake::TestTask.new(:test) do |task|
+  task.test_files = FileList['test/**/*_test.rb']
+  task.verbose = true
+end
+
+##
+# docs task.
+desc 'Build documentation.'
+YARD::Rake::YardocTask.new :yardoc do |t|
+  t.files   = ['lib/**/*.rb']
+  t.options = ['--output-dir', "doc/",
+               '--title', 'Dave and Luke\'s Tetris Clone - API Documentation']
+end

data/bin/boot.rb

@@ -0,0 +1,10 @@
+# hack the path.
+$CURRENT_DIR = File.dirname(File.expand_path(__FILE__))
+$LOAD_PATH.unshift $CURRENT_DIR + '/../lib'
+
+# lets roll.
+require 'tetris'
+
+# init the game, and run the main game loop.
+game = Game.new(10, 20, 1000, "/Library/Fonts/Chalkduster.ttf")
+game.run

data/bin/boot.rb~

@@ -0,0 +1,10 @@
+# hack the path.
+$CURRENT_DIR = File.dirname(File.expand_path(__FILE__))
+$LOAD_PATH.unshift $CURRENT_DIR + '/../lib'
+
+# lets roll.
+require 'tetris'
+
+# init the game, and run the main game loop.
+game = Game.new(10, 20, 1000, "/Library/Fonts/Chalkduster.ttf")
+game.run

data/bin/tetris

@@ -0,0 +1,2 @@
+#!/usr/bin/env rsdl
+load "boot.rb"

data/bin/tetris~

@@ -0,0 +1,2 @@
+#!/usr/bin/env rsdl
+load boot.rb

data/lib/tetris.rb

@@ -0,0 +1,42 @@
+# Dave's Tetris clone, Dave Barker 2010
+#
+# (Requires rubygame, rsdl, sdl, sdl_graphics, sdl_ttf and ruby >= 1.9)
+# (Make sure you put Chalkduster.ttf if working directory)
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+# Code was started from this great rubygame template: 
+#   http://rubygame.org/wiki/Generic_Game_Template
+
+require 'rubygame'
+
+require 'tetris/core_ruby_ext'
+require 'tetris/game'
+require 'tetris/map'
+require 'tetris/piece'
+
+$TileSize = 20
+$Colours = [:blue, :red, :pink, :green, :cyan, :purple, :yellow]
+
+$Pieces = [["    ,  # ,  # , ## ",
+            "    ,    , #  , ###",
+            "    , ## , #  , #  ",
+            "    ,    , ###,   #"],
+           ["    , ## , ## ,    "],
+           ["    ,    ,####,    ",
+            "  # ,  # ,  # ,  # "],
+           ["    ,  ##, ## ,    ",
+            "    , #  , ## ,  # "],
+           ["    ,  # , ###,    ",
+            "    ,  # ,  ##,  # ",
+            "    ,    , ###,  # ",
+            "    ,  # , ## ,  # "]]

data/lib/tetris/core_ruby_ext.rb

@@ -0,0 +1,5 @@
+class Array
+  def rand_item
+    self[rand(self.length)]
+  end
+end

data/lib/tetris/game.rb

@@ -0,0 +1,79 @@
+class Game
+  def initialize(w, h, speed, font_file)
+    # Setup rubygame stuff
+    @screen = Rubygame::Screen.new([w * $TileSize, h * $TileSize], 0,
+                                   [Rubygame::HWSURFACE, Rubygame::DOUBLEBUF])
+    @queue = Rubygame::EventQueue.new
+    @clock = Rubygame::Clock.new
+    @clock.target_framerate = 30
+    Rubygame::TTF.setup
+    @ttf = Rubygame::TTF.new(font_file, 20)
+
+    # Setup the game of tetris
+    @screen.title = "Tetris"
+    @map = Map.new(w, h)
+    @piece = Piece.new
+    @background = :white
+    @speed = speed
+    @step = 0
+    @score = 0
+  end
+
+  def run
+    loop do
+      update(@clock.tick)
+      draw
+    end
+  end
+
+  def update(time_delta)
+    # Process the event queue
+    @queue.each do |ev|
+      case ev
+      when Rubygame::KeyDownEvent
+        case(ev.key)
+        when Rubygame::K_LEFT
+          @piece.move(-1, 0, @map)
+        when Rubygame::K_RIGHT
+          @piece.move(1, 0, @map)
+        when Rubygame::K_DOWN
+          @piece.move(0, 1, @map)
+        when Rubygame::K_UP
+          @piece.rotate(@map)
+        when Rubygame::K_SPACE
+          @piece.drop(@map)
+        end
+      when Rubygame::QuitEvent
+        Rubygame.quit
+        exit
+      end
+    end
+    # Update the game state
+    @step += time_delta
+    if @step > @speed
+      @step -= @speed
+      @piece.move(0, 1, @map)
+    end
+    @piece.update(@map) {|x, y, colour| @map.set(x, y, colour)}
+    @score += @map.update
+  end
+
+  def draw_square(x, y, colour, border=true)
+    # Setup the points for SDL
+    x_pos = x * $TileSize
+    y_pos = y * $TileSize
+    pt1 = [x_pos, y_pos]
+    pt2 = [x_pos + $TileSize, y_pos + $TileSize]
+    # Draw the square and then the border
+    @screen.draw_box_s(pt1, pt2, colour)
+    @screen.draw_box(pt1, pt2, :black) if border
+  end
+
+  def draw
+    @screen.fill(@background)
+    @piece.squares {|x, y, colour| draw_square(x, y, colour)}
+    @map.draw {|coords, colour| draw_square(coords[0], coords[1], colour)}
+    @ttf.render("Score: " + @score.to_s, true, :black).blit(@screen, [0,0])
+    @screen.flip
+  end
+end

data/lib/tetris/map.rb

@@ -0,0 +1,68 @@
+class Map
+  def initialize(w, h)
+    @w = w
+    @h = h
+    @tiles = Array.new(w, nil)
+  end
+
+  def clear(x, y, w, h)
+    (x..(x + w)).each do |x|
+      (y..(y + h)).each do |y|
+        set(x, y, nil)
+      end
+    end
+  end
+
+  def set(x, y, colour)
+    @tiles[pos(x,y)] = colour
+  end
+
+  def draw
+    @tiles.each_with_index do |colour, p|
+      yield(coords(p), colour) if colour
+    end
+  end
+
+  def free?(x, y)
+    x >= 0 and x < @w and y >= 0 and y < @h and not @tiles[pos(x,y)]
+  end
+
+  def update
+    points = 0
+    shift_lines! do |line|
+      # Enumerable should have an every? method
+      if not line.each.any? {|tile| not tile} then
+        points += 1
+        true
+      end
+    end
+    points
+  end
+
+  private
+
+  def coords(p)
+    [p % @w, p / @w]
+  end
+
+  def pos(x, y)
+    x + y * @w
+  end
+
+  def shift_lines!
+    (0..@h).each do |y|
+      row = (0..@w-1).collect {|x| @tiles[pos(x,y-1)] }
+      shift_line(y-1, 1) if yield row
+    end
+  end
+
+  def shift_line(y, distance)
+    if y < 1 then
+      @tiles[pos(0,y + distance)..pos(@w-1,y + distance)] = [nil] * @w
+    else
+      @tiles[pos(0,y)..pos(@w-1,y)] =
+        @tiles[pos(0,y-distance)..pos(@w-1,y-distance)]
+      shift_line(y-1, distance)
+    end
+  end
+end

data/lib/tetris/piece.rb

@@ -0,0 +1,82 @@
+class Piece
+  @@type_width = 4
+
+  def initialize
+    @@types ||= load_pieces($Pieces)
+
+    @type = @@types.rand_item
+    @rotation = 0
+    @x = 0
+    @y = 0
+    @colour = $Colours.rand_item
+  end
+
+  def parse_piece_string(s)
+    s.chars.each_with_object([]) do |c, result|
+      case c
+        when " " then result << false
+        when "," then next
+        else result << true
+      end
+    end
+  end
+
+  def load_pieces(pieces)
+    pieces.collect do |piece|
+      piece.collect {|rotation| parse_piece_string rotation}
+    end
+  end
+
+  def squares(piece=current)
+    result = []
+    piece.each_with_index do |tile, i|
+      x, y = coords(i)
+      result << yield(@x+x, @y+y, @colour) if tile
+    end
+    return result
+  end
+
+  def move(x, y, map)
+    unless collision?(map, x, y)
+      @x += x
+      @y += y
+    end
+  end
+
+  def drop(map)
+    @y += 1 while not collision?(map, 0, 1)
+  end
+
+  def rotate(map)
+    @rotation = next_rotation unless collision?(map, 0, 0, @type[next_rotation])
+  end
+
+  def update(map)
+    if collision?(map, 0, 1)
+      squares {|x, y, colour| map.set(x, y, colour)}
+      initialize
+    end
+  end
+
+  private
+
+  def current
+    @type[@rotation]
+  end
+
+  def next_rotation
+    if @rotation > @type.count - 2
+      return 0
+    else
+      return @rotation + 1
+    end
+  end
+
+  def coords(p)
+    [p % @@type_width, p / @@type_width]
+  end
+
+  def collision?(map, x_offset, y_offset, piece=current)
+    squares(piece) {|x, y, c| not map.free?(x + x_offset, y + y_offset)}.any?
+  end
+end

data/test/game_test.rb

@@ -0,0 +1,7 @@
+require File.expand_path(File.dirname(__FILE__) + '/test_helper')
+
+class GameTest < Test::Unit::TestCase
+  def test_code_me
+    flunk 'bad developer'
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,21 @@
+require 'simplecov'
+
+# code coverage, this must be first!
+SimpleCov.start do
+  add_filter '/test/'
+end
+
+$TEST_DIR = File.dirname(File.expand_path(__FILE__))
+$LOAD_PATH.unshift $TEST_DIR + '/../lib'
+$TESTING = true
+
+require 'test/unit'
+require 'rake'
+require 'turn'
+require 'rr'
+
+require 'tetris'
+
+class Test::Unit::TestCase
+  include RR::Adapters::TestUnit
+end

metadata

@@ -0,0 +1,109 @@
+--- !ruby/object:Gem::Specification 
+name: dl-tetris
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Dave Barker
+- Luke Antins
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-21 00:00:00 +00:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rsdl
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 1
+        - 4
+        version: 0.1.4
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: rubygame
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 2
+        - 6
+        - 4
+        version: 2.6.4
+  type: :runtime
+  version_requirements: *id002
+description: Simple tetris clone written using the rubygame library. Arrow keys to move, up arrow to rotate. Space drops your piece to the ground.
+email: 
+- kzar@kzar.co.uk
+executables: 
+- tetris
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- bin/boot.rb
+- bin/boot.rb~
+- bin/tetris
+- bin/tetris~
+- lib/tetris/core_ruby_ext.rb
+- lib/tetris/game.rb
+- lib/tetris/map.rb
+- lib/tetris/piece.rb
+- lib/tetris.rb
+- test/game_test.rb
+- test/test_helper.rb
+- README.markdown
+- Rakefile
+has_rdoc: true
+homepage: https://github.com/lantins/tetris
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 1
+      - 3
+      - 7
+      version: 1.3.7
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Simple tetris clone written using the rubygame library
+test_files: []
+