flonkerton 0.0.1

data/games/gosu_demo/play.rb

@@ -0,0 +1,135 @@
+require '../../lib/flonkerton'
+require '../../examples/extras/random_color'
+include Flonkerton
+include Gosu
+
+module GosuTutorial
+  module ZOrder
+    Background, Stars, Player, UI = *0..3
+  end
+
+  class Player
+    attr_reader :score
+
+    def initialize
+      @image = Images[:starfighter]
+      @beep = Samples[:beep]
+      @x = @y = @vel_x = @vel_y = @angle = 0.0
+      @score = 0
+    end
+
+    def warp(x, y)
+      @x, @y = x, y
+    end
+
+    def turn_left
+      @angle -= 4.5
+    end
+
+    def turn_right
+      @angle += 4.5
+    end
+
+    def accelerate
+      @vel_x += Gosu::offset_x(@angle, 0.5)
+      @vel_y += Gosu::offset_y(@angle, 0.5)
+    end
+
+    def move
+      @x += @vel_x
+      @y += @vel_y
+      @x %= CONFIG[:width]
+      @y %= CONFIG[:height]
+
+      @vel_x *= 0.95
+      @vel_y *= 0.95
+    end
+
+    def draw
+      @image.draw_rot(@x, @y, ZOrder::Player, @angle)
+    end
+
+    def collect_stars(stars)
+      stars.reject! do |star|
+        if Gosu::distance(@x, @y, star.x, star.y) < 35 then
+          @score += 10
+          @beep.play
+          true
+        else
+          false
+        end
+      end
+    end
+  end
+
+  class Star
+    attr_reader :x, :y
+
+    def initialize
+      @animation = Tiles[:star]
+      @offset = @animation.first.width / 2.0
+      @color = Color.random((40..254), (40..254), (40..254))
+      @x = rand * CONFIG[:width]
+      @y = rand * CONFIG[:height]
+    end
+
+    def draw
+      current_frame.draw :x => @x - @offset,
+                         :y => @y - @offset,
+                         :z => ZOrder::Stars,
+                         :color => @color,
+                         :mode => :additive
+    end
+
+  protected
+  
+    def current_frame
+      @animation[Gosu::milliseconds / 100 % @animation.size]
+    end
+  end
+
+  class GameScreen < Screen
+    def setup
+      @background = Images[:space]
+      @player = Player.new
+      @player.warp(320, 240)      
+      @stars = Array.new
+      @font = Fonts[:default]
+      @input = { :up    => [KbUp, GpButton0],
+                 :left  => [KbLeft, GpLeft],
+                 :right => [KbRight, GpRight] }
+    end
+
+    def update
+      @player.turn_left  if pressed?(:left)
+      @player.turn_right if pressed?(:right)
+      @player.accelerate if pressed?(:up)
+      @player.move
+      @player.collect_stars(@stars)
+
+      if rand(100) < 4 and @stars.size < 25 then
+        @stars << Star.new
+      end
+    end
+
+    def draw
+      @background.draw
+      @player.draw
+      @stars.each { |star| star.draw }
+      @font.draw :text => "Score: #{@player.score}",
+                 :x => 10,
+                 :y => 10,
+                 :z => ZOrder::UI,
+                 :color => Color::YELLOW
+    end
+
+  protected
+
+    # Taken from control example.
+    def pressed?(key)
+      @input[key].detect { |k| @game.button_down?(k) }
+    end
+  end
+end
+
+Game.start

data/lib/flonkerton.rb

@@ -0,0 +1,241 @@
+require 'gosu'
+require 'yaml'
+
+class File
+  def self.label(file)
+    self.basename(file)[/^\w+/].scan(/[A-Z]*[a-z0-9]+/).join('_').downcase.intern
+  end
+end
+
+module Flonkerton
+  VERSION = '0.0.1'
+  LIB_PATH = File.dirname(File.expand_path(__FILE__))
+  CURRENT_PATH = File.dirname(File.expand_path($0))
+
+  if File.exist?(CURRENT_PATH + '/config/defaults.yml')
+    CONFIG = YAML.load_file(CURRENT_PATH + '/config/defaults.yml')
+  else
+    CONFIG = YAML.load_file(LIB_PATH + '/../config/defaults.yml')
+  end
+
+  module Drawable
+    def draw(options = {})
+      super(*draw_args(defaults.merge(options)))
+    end
+
+  protected
+  
+    def draw_args(options)
+      defaults[:order].map { |arg| options[arg] } # 1.8.6 Patch - defaults.keys.map in 1.9
+    end
+
+    def name
+      self.class.to_s[/\w+$/].downcase
+    end
+
+    def defaults
+      CONFIG[name.intern]
+    end
+  end
+
+  class Font < Gosu::Font
+    include Drawable
+
+    def initialize(game, name, height = CONFIG[:font_size])
+      super(game, name, height)
+    end
+  end
+
+  class Image < Gosu::Image
+    include Drawable
+
+    def self.load_tiles(game, file, width, height, border = true)
+      super(game, file, width, height, border).each do |image|
+        image.extend(Drawable)
+      end
+    end
+  end
+
+  class Sample < Gosu::Sample; end
+
+  class Song < Gosu::Song
+    def loop
+      play(true)
+    end
+  end
+
+  # This class shouldn't be used directly, it provides behavior for subclasses.
+  #
+  class Resource
+    def self.load(game)
+      Dir[path].each do |file|
+        all[File.label(file)] = klass.new(game, file)
+      end
+    end
+
+    def self.all
+      @hash ||= Hash.new
+    end
+
+    def self.[](key)
+      all[key]
+    end
+
+  protected
+
+    def self.name
+      self.to_s[/\w+$/]
+    end
+
+    def self.klass
+      Module.class_eval(name.chop)
+    end
+
+    def self.path
+      File.join(CONFIG[:media_path], extension)
+    end
+
+    def self.extension
+      CONFIG["#{name.downcase}_ext".intern]
+    end
+  end
+
+  class Songs < Resource; end
+  class Images < Resource; end
+  class Samples < Resource; end
+
+  class Fonts < Resource
+    def self.load(game)
+      super(game)
+      all[:default] = Font.new(game, Gosu::default_font_name)
+    end
+  end
+
+  class Tiles < Resource
+    def self.load(game)
+      Dir[path].each do |file|
+        if File.basename(file) =~ /(\w+)_(\d+)x(\d+)/
+          all[$1.intern] = Image.load_tiles(game, file, $2.to_i, $3.to_i, true)
+        end
+      end
+    end
+  end
+
+  class Game
+    def self.start screen = nil
+      @window = Window.new(screen)
+      @window.show
+    end
+  end
+
+  class Window < Gosu::Window
+    attr_reader :screen
+    attr_accessor :next_screen
+
+    def initialize initial_screen = nil
+      super(CONFIG[:width], CONFIG[:height], CONFIG[:fullscreen])
+      self.caption = CONFIG[:caption]
+      load_resources
+      create(initial_screen || default_screen)
+    end
+
+    def update
+      @screen.update
+      create(@next_screen) if @next_screen
+    end
+
+    def draw
+      @screen.draw
+    end
+
+    def button_down(id)
+      @screen.button_down(id)
+    end
+
+    def button_up(id)
+      @screen.button_up(id)
+    end
+
+    def params
+      @params ||= Hash.new
+    end
+
+  protected
+
+    def load_resources
+      [Fonts, Songs, Images, Samples, Tiles].each do |resource|
+        resource.load(self)
+      end
+    end
+
+    def default_screen
+      Module.module_eval(CONFIG[:initial_screen])
+    end
+
+    def create(klass)
+      @screen = klass.new(self)
+      @next_screen = nil
+    end
+  end
+
+  # This class shouldn't be instantiated, it provides behavior for subclasses.
+  #
+  class Screen
+    def initialize game
+      @game = game
+      setup
+    end
+    
+    def setup; end
+    def button_up(id); end    
+
+    def button_down(id)
+      close if id == Gosu::KbEscape # Don't Panic!
+    end
+
+    def update; end
+    def draw; end
+
+    def width
+      @game.width
+    end
+
+    def height
+      @game.height
+    end
+
+    def mouse_x
+      @game.mouse_x
+    end
+
+    def mouse_y
+      @game.mouse_y
+    end
+
+    def button_down?(id)
+      @game.button_down?(id)
+    end
+
+    def close
+      @game.close
+    end
+
+    def go_to(screen)
+      @game.next_screen = screen
+    end
+
+    def params
+      @game.params
+    end
+
+    def clip_to(x, y, w, h, &block)
+      @game.clip_to(x, y, w, h, &block)
+    end
+  end
+
+  class WelcomeScreen < Screen
+    def draw
+      Fonts[:default].draw :text => 'Welcome'
+    end
+  end
+end

data/media/CREDITS

@@ -0,0 +1,4 @@
+ArcadeClassic.ttf - Jacob Fisher - http://www.pizzadude.dk
+background.png    - http://blog.medianotions.de/de/artikel/2009/wallpaper-tangled-green
+catch_me_song.ogg - ...
+tiles_32x32.png   - http://www.molotov.nu/

data/test/integration_test.rb

@@ -0,0 +1,115 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+Protest.context('A Game example') do
+  module Example
+    class TextLogo
+
+      SPEED_X = 16
+      SPEED_Y = 10
+
+      def initialize text, limit
+        @text = text
+        @limit = limit
+        @font = Flonkerton::Fonts[:default]
+        @x = 0
+        @y = 0
+      end
+
+      def update
+        @x += SPEED_X
+        @y += SPEED_Y
+      end
+
+      def draw
+        @font.draw :text => @text,
+                   :x => @x,
+                   :y => @y,
+                   :factor_x => 4,
+                   :factor_y => 4
+      end
+
+      def on_screen?
+        @y < @limit
+      end
+    end
+
+    class LogoScreen < Flonkerton::Screen
+      LOGO_TIME = 1000
+
+      def setup
+        @time = Gosu.milliseconds
+        @font = Flonkerton::Fonts[:default]
+        @image = Flonkerton::Images[:gosu_logo]
+        @sample = Flonkerton::Samples[:select]
+        @x = (width - @image.width) / 2
+        @y = (height - @image.height) / 2
+        @song = Flonkerton::Songs[:catch_me_song]
+        @song.volume = 0.1
+        @song.loop
+      end
+
+      def update
+        if time_elapsed? or button_down?(Gosu::KbReturn)
+          @song.play
+          @sample.play
+          params[:health] = 75
+          go_to(GameScreen)
+        end
+      end
+
+      def draw
+        fill
+        @image.draw :x => @x, :y => @y
+
+        @font.draw :x => 10,
+                   :y => height - @font.height,
+                   :text => 'Press Enter to continue...',
+                   :color => Gosu::Color::BLACK
+
+        @font.draw :text  => time_left,
+                   :color => Gosu::Color::BLACK
+      end
+
+      def fill(color = 0xffffffff)
+        @game.draw_quad(0, 0, color, width, 0, color, 0, height, color, width, height, color)
+      end
+
+      def time_left
+        Gosu.milliseconds - @time
+      end
+
+      def time_elapsed?
+        time_left >= LOGO_TIME
+      end
+    end
+
+    class GameScreen < Flonkerton::Screen
+      def setup
+        @logo = TextLogo.new('LOGO', height)        
+        @mouse = Flonkerton::Images[:cursor]
+        @tiles = Flonkerton::Tiles[:tiles]
+        @background = Flonkerton::Images[:background]
+      end
+
+      def draw
+        @tiles.first.draw
+        clip_to(40, 40, 640, 480) do
+          @background.draw
+        end
+        @logo.draw
+        @mouse.draw :x => mouse_x, :y => mouse_y
+      end
+
+      def update
+        @logo.update
+        close unless @logo.on_screen?
+      end
+    end
+  end
+
+  it "should work." do
+    assert_nothing_raised do
+      Flonkerton::Game.start(Example::LogoScreen)
+    end
+  end
+end