examples/game1.rb - ~2 hour game using GameState, GameObject, Paralax…

…x, has_traits etc. Still alot of refining but basic gameplay works. needs gems 'texplay' and 'opengl'

examples/game1.rb

@@ -0,0 +1,290 @@
+#
+#
+# A "full" simple game in Chingu, using GameState, GameObject, Paralaxx, has_traits etc
+# 
+# TODO: clean up code as Chingu moves along :). Comments.
+#
+#
+require 'rubygems'
+require File.join(File.dirname($0), "..", "lib", "chingu")
+require 'texplay'
+require 'opengl'
+include Gosu
+include Chingu
+
+class Game < Chingu::Window
+  attr_reader :factor
+
+  def initialize
+    super(1000,800,false)
+    self.input = { :escape => :exit }
+    @factor = 2
+    switch_game_state(Level)
+  end
+end
+
+#
+# GAME STATE: GAME OVER
+#
+class GameOver < Chingu::GameState  
+  def setup
+    @text = Text.create(:text => "GAME OVER (ESC to quit, RETURN to try again!)", :size => 40, :x => 30, :y => 100)
+    self.input = { :esc => :exit, :return => :try_again}
+    @layover = Color.new(0x99000000)
+  end
+
+  def draw
+    super
+    previous_game_state.draw
+    fill(@layover)
+  end
+
+  def try_again
+    pop_game_state  # pop back to our playing game state
+  end
+end
+
+#
+# GAME STATE: GAME OVER
+#
+class Done < Chingu::GameState
+  def initialize(options)
+    @score = options[:score]
+  end
+
+  def setup
+    @text = Text.create(:text => "You made it! Score #{@score} (ESC to quit, RETURN to try again!)", :size => 40, :x => 30, :y => 100)
+    self.input = { :esc => :exit, :return => :try_again}
+  end  
+
+  def try_again
+    pop_game_state  # pop back to our playing game state
+  end
+end
+
+
+#
+# GAME STATE: LEVEL
+#
+class Level < Chingu::GameState
+  def initialize(options = {})
+    super
+
+    @parallax = Parallax.create
+    ParallaxLayer.has_trait :retrofy
+    @parallax << ParallaxLayer.new(:image => Image["city2.png"].retrofy, :center => 0, :damping => 5, :factor => $window.factor)
+    @parallax << ParallaxLayer.new(:image => Image["city1.png"].retrofy, :center => 0, :damping => 1, :factor => $window.factor)
+    @player = Player.create(:x => 10, :y => 100)
+
+    @bg1 = Color.new(0xFFCE28FF)
+    @bg2 = Color.new(0xFF013E87)
+  end
+
+  def setup
+    Enemy.destroy_all
+    Bullet.destroy_all
+    @player.score = 0
+    @player.x = 10
+    @player.y = 100
+    @parallax.camera_x = 0
+    @total_game_ticks = 100000
+    @timer = 100
+    @total_ticks = 0
+
+  end
+
+  def solid_pixel_at?(x, y)
+    @parallax.layers.last.get_pixel(x, y)[3] != 0
+  end
+
+  def update
+    super
+    @parallax.camera_x += 1
+
+    Bullet.all.select { |b| solid_pixel_at?(b.x, b.y)}.each { |b| b.die }
+
+    # Collide player with terrain
+    push_game_state(GameOver) if solid_pixel_at?(@player.x, @player.y)
+
+    # Collide player with enemies and enemy bullets
+    @player.each_radius_collision(Enemy) do |player, enemy|
+      enemy.die
+      push_game_state(GameOver)
+    end
+
+    Bullet.each_radius_collision(Enemy) do |bullet, enemy|
+      bullet.die
+      if enemy.hit_by(bullet)
+        @player.score += 20
+      end
+    end
+
+
+    @timer = @timer * 0.9999
+    @total_ticks += 1
+    if @total_ticks > @timer
+      Enemy.create(:x => $window.width/2, :y => rand(300))
+      @total_ticks = 0
+    end
+
+    #push_game_state(Done.new(:score => @player.score)) if @game_steps == 1
+
+    $window.caption = "City Battle! Score: #{@player.score}"
+  end
+
+  def draw
+    fill_gradient(:from => @bg2, :to => @bg1)
+    super    
+  end
+end
+
+#
+# OUR PLAYER
+#
+class Player < GameObject
+  has_trait :velocity, :collision_detection, :retrofy
+  attr_accessor :score
+
+  def initialize(options = {})
+    super
+    @image = Image["plane.png"].retrofy
+    self.factor = $window.factor
+
+    self.input = { 
+      :holding_left => :left, 
+      :holding_right => :right, 
+      :holding_up => :up, 
+      :holding_down => :down, 
+      :space => :fire }
+
+    @max_velocity = 1
+    @radius = 10
+    @score = 0
+  end
+
+  def up
+    @velocity_y += -@max_velocity
+  end
+  def down
+    @velocity_y += @max_velocity
+  end
+  def right
+    @velocity_x += @max_velocity
+  end
+  def left
+    @velocity_x -= @max_velocity
+  end
+
+  def fire
+    Bullet.create(:x => self.x, :y => self.y)
+    Sound["laser.wav"].play
+  end
+
+  def update
+    @velocity_y *= 0.6
+    @velocity_x *= 0.6
+
+    @x = @last_x  if @x < 0 || @x > $window.width/$window.factor
+    @y = @last_y  if @y < 0 || @y > $window.height/$window.factor
+    @last_x, @last_y = @x, @y
+  end
+
+end
+
+#
+# OUR PLAYERS BULLETS
+#
+class Bullet < GameObject
+  has_trait :retrofy, :timer, :collision_detection
+  attr_reader :status
+
+  def initialize(options)
+    super
+    @image = Image["bullet.png"].retrofy
+    self.factor = $window.factor
+    @velocity_x = 10
+    @status = :default
+    @radius = 3
+  end
+
+  def die
+    return  if @status == :dying
+    Sound["bullet_hit.wav"].play
+    @status = :dying
+    during(50) { @factor_x += 1; @factor_y += 1; @x -= 1; }.then { self.destroy }
+  end
+
+  def update
+    return if @status == :dying
+    @x += @velocity_x
+  end
+end
+
+#
+# ENEMY BULLET
+#
+class EnemyBullet < Bullet
+  def initialize(options)
+    super
+    @image = Image["enemy_bullet.png"].retrofy
+    @velocity_x = -3
+  end
+end
+
+#
+# OUR ENEMY SAUCER
+#
+class Enemy < GameObject
+  has_trait :collision_detection, :retrofy, :timer 
+
+  def initialize(options)
+    super
+    @velocity = options[:velocity] || 2
+    @health = options[:health] || 100
+
+    @anim = Animation.new(:file => "media/saucer.png", :size => [32,13], :delay => 100)
+    @anim.retrofy
+    @image = @anim.first
+
+    self.factor = $window.factor
+    @radius = 5
+    @black = Color.new(0xFF000000)
+    @status == :default
+  end
+
+  def hit_by(object)
+    return if @status == :dying
+
+    during(20) { @mode = :additive; }.then { @mode = :default }
+    @health -= 20
+
+    if @health <= 0
+      die
+      return true
+    else
+      return false
+    end
+  end
+
+  def fire
+    EnemyBullet.create(:x => self.x, :y => self.y)
+  end
+
+  def die
+    return  if @status == :dying
+    Sound["explosion.wav"].play
+    @status = :dying
+    @color = @black
+    @color.alpha = 50
+    during(200) { @factor_x += 0.5; @factor_y += 0.5; @x -= 1; @color.alpha -= 1}.then { self.destroy }
+  end
+
+  def update
+    return if @status == :dying
+
+    @image = @anim.next!
+    @x -= @velocity
+  end
+end
+
+Game.new.show

examples/media/city1.csv

@@ -0,0 +1,2 @@
+"Name","Transparent Color","Transparent Color(Hex)"
+"Frame1","-1","FFFFFFFF"

examples/media/plane.csv

@@ -0,0 +1,2 @@
+"Name","Transparent Color","Transparent Color(Hex)"
+"Frame1","-1","FFFFFFFF"

examples/media/saucer.csv

@@ -0,0 +1,4 @@
+"Name","Transparent Color","Transparent Color(Hex)"
+"Frame1","-1","FFFFFFFF"
+"Copy_Frame1","-1","FFFFFFFF"
+"Copy_Copy_Frame1","-1","FFFFFFFF"