Added the trunk/branches/tags directories at repository root, and moved previous root into trunk/

git-svn-id: https://sfml.svn.sourceforge.net/svnroot/sfml/trunk@1002 4e206d99-4929-0410-ac5d-dfc041789085

ruby/test/SideScroller.rb

@@ -0,0 +1,240 @@
+require 'RubySFML'
+include SFML
+
+module Tiles
+	Grass = 0
+	Earth = 1
+end
+
+# Collectible item.
+class Gem2 < Sprite
+	def initialize(image, x, y)
+		super(image)
+		self.x = x
+		self.y = y
+	end
+
+	def update
+		self.rotation = 25 * Math.sin($clock.to_f*6)
+	end
+end
+
+class Player < VSprite
+	attr_reader :score
+
+	def initialize(image, w, h)
+		super(image, w, h)
+		@sb = SoundBuffer.new("media/Beep.wav")
+		@sound = Sound.new(@sb)
+		@score = 0
+	end
+
+	def update(window, map)
+		time = window.frameTime
+		input = window.input
+
+		# If there's no ground beneath my feet, increase speed downward
+		if !map.solid?(self.x, self.bottom)
+			@vy += 1
+		# If there is ground beneath my feet, and the user presses up,
+		# boost speed upwards to jump
+		elsif input.isKeyDown(Key::Up)
+			@vy = -20
+		end
+
+		super(1) # Update position based on velocity
+
+		# If we just moved down, see it we landed
+		if @vy > 0
+			if map.solid?(self.x, self.bottom)
+				@vy = 0
+				self.top -= self.top % 50
+			end
+		# If we just moved up, see if we hit our head
+		elsif @vy < 0
+			if map.solid?(self.x, self.top)
+				@vy = 0
+				self.top += 50 - self.top % 50
+			end
+		end
+
+		moved = false
+		if input.isKeyDown(Key::Left)
+			moved = true
+			self.x -= 10
+			# If we just moved left, see if we hit a wall
+			if map.solid?(self.left, self.y)
+				self.left += 50 - self.left % 50
+			end
+		end
+
+		if input.isKeyDown(Key::Right)
+			moved = true
+			self.x += 10
+			# If we just moved right, see if we hit a wall
+			if map.solid?(self.right, self.y)
+				self.left -= self.left % 50
+			end
+		end
+
+		if @vy < 0
+			@tx = 3
+		elsif moved
+			@tx = (@tx + 1) % 3
+		else
+			@tx = 0
+		end
+
+		# Same as in the tutorial game.
+		map.gems.reject! do |c|
+			if (c.x - self.x).abs < 50 and (c.y - self.y).abs < 50
+				@sound.play
+				@score += 10
+				true
+			else
+				false
+			end
+		end
+	end
+end
+
+# Map class holds and draws tiles and gems.
+class Map < Drawable
+	attr_reader :width, :height, :gems
+
+	def initialize(filename, player)
+		@start = Time.now
+		@tileset_image = Image.new("media/Tileset.png")
+		@tileset = TSprite.new(@tileset_image, 50, 50)
+		@gem_image = Image.new("media/Gem.png")
+		@gems = []
+		@exit_image = Image.new("media/Star.png")
+		@exit = TSprite.new(@exit_image, 25, 25)
+
+		lines = File.readlines(filename).map { |line| line.chop }
+		@height = lines.size
+		@width = lines[0].size
+		@tiles = Array.new(@width) do |x|
+			Array.new(@height) do |y|
+				case lines[y][x, 1]
+				when '"' then Tiles::Grass
+				when '#' then Tiles::Earth
+				when 'S' then player.x, player.y = x*50, y*50; nil
+				when 'E' then @exit.left, @exit.top = x*50+25, y*50+25; nil
+				when 'x' then @gems << Gem2.new(@gem_image, x * 50 + 25, y * 50 + 25); nil
+				else nil
+				end
+			end
+		end
+	end
+
+	def done?(player)
+		player.x.to_i/50 == @exit.x.to_i/50 and player.y.to_i/50 == @exit.y.to_i/50
+	end
+
+	def render(window)
+		# Very primitive drawing function:
+		# Draws all the tiles, some off-screen, some on-screen.
+		@height.times do |y|
+			@width.times do |x|
+				tile = @tiles[x][y]
+				if tile
+					@tileset.tx = tile
+					@tileset.left = x * 50
+					@tileset.top = y * 50
+					window.draw(@tileset) if
+						@tileset.right > window.view.left and
+						@tileset.left < window.view.right and
+						@tileset.bottom > window.view.top and
+						@tileset.top < window.view.bottom
+				end
+			end
+		end
+		@gems.each { |c|
+			c.update
+			window.draw(c) if
+				c.right > window.view.left and
+				c.left < window.view.right and
+				c.bottom > window.view.top and
+				c.top < window.view.bottom
+		}
+		window.draw(@exit)
+	end
+
+	# Solid at a given pixel position?
+	def solid?(x, y)
+		x < 0 or y < 0 or x >= @width*50 or y >= @height*50 or @tiles[x / 50][y / 50]
+	end
+end
+
+$clock = Clock.new
+mode = VideoMode.new(640, 480, 32)
+win = RenderWindow.new(mode, "RubySFML Test", 0)
+view = View.new(FloatRect.new(0, 0, 640, 480))
+win.showMouseCursor(false)
+win.useVerticalSync(true)
+sky_image = Image.new("media/Space.png")
+sky = Sprite.new(sky_image)
+player_image = Image.new("media/CptnRuby.png")
+player = Player.new(player_image, 50, 50)
+levels = Dir["media/Level*.txt"].sort
+level = 1
+level_start = Time.now
+map = Map.new(levels.shift, player)
+
+# Simple game loop
+done = false
+game_over = false
+while !done
+	if map.done?(player)
+		if levels.empty?
+			game_over = true
+		else
+			level += 1
+			level_start = Time.now
+			map = Map.new(levels.shift, player)
+		end
+	end
+
+	while e = win.getEvent()
+		done = true if e.type == Event::Closed or
+			(e.type == Event::KeyReleased and e.code == Key::Escape) 
+	end
+
+	player.update(win, map)
+
+	left = player.x - 640/2
+	left = 0 if left < 0
+	left = map.width*50-640 if left > map.width*50-640
+	top = player.y - 480/2
+	top = 0 if top < 0
+	top = map.height*50-480 if top > map.height*50-480
+	view.rect = FloatRect.new(left, top, left+640, top+480)
+	win.setView(view)
+
+	sky.left = view.rect.left
+	sky.top = view.rect.top
+	win.draw(sky)
+	win.draw(map)
+	win.draw(player)
+	score = Text.new("Score: #{player.score}", "", 20)
+	score.left, score.top = sky.left, sky.top
+	win.draw(score)
+
+	if game_over
+		text = Text.new("Game Over!", "", 60)
+		text.left, text.top = sky.left+200, sky.top+200
+		win.draw(text)
+	elsif Time.now - level_start < 3
+		text = Text.new("Level #{level}!", "", 60)
+		text.left, text.top = sky.left+200, sky.top+200
+		win.draw(text)
+		text = Text.new("(Collect the gems and find the exit)", "", 25)
+		text.left, text.top = sky.left+125, sky.top+260
+		win.draw(text)
+	end
+
+	win.display()
+	sleep(0.01)
+end
+