btetris_kp 0.0.1

data/lib/btetris_kp/game.rb

@@ -0,0 +1,118 @@
+require 'btetris_kp/menu'
+require 'btetris_kp/core/board'
+require 'btetris_kp/constants'
+
+module BTetrisKp
+  # class representing game window state
+  class GameState
+    attr_reader :game_over, :paused
+    attr_accessor :rows_cleared
+
+    def initialize(window, x, y)
+      @window = window
+      @font = Gosu::Font.new(@window, Gosu.default_font_name, 80)
+      @board = Board.new(@window, x, y)
+      @paused, @game_over = false, false
+      # press time, set 0 when left, right or down key is pressed
+      # used for smoother controls in update method
+      @counter, @press_time, @rows_cleared = 0, 0, 0
+      initialize_sounds
+    end
+
+    # initializes ingame sounds
+    def initialize_sounds
+      @drop_snd = Gosu::Sample.new(@window, Const::PATH_SND_DROP)
+      @clear_snd = Gosu::Sample.new(@window, Const::PATH_SND_POP)
+      @rotate_snd = Gosu::Sample.new(@window, Const::PATH_SND_ROTATE)
+    end
+
+    # inserts garbage in board depending on count of cleared rows
+    def insert_garbage!(cnt)
+      @board.insert_garbage!(cnt)
+    end
+
+    # returns game board in a string (current piece included)
+    def get_board_s
+      @board.get_board_s
+    end
+
+    # switches pause boolean
+    def pause!
+      @paused = !@paused
+    end
+
+    # updates game
+    def update
+      unless @paused || @game_over
+        @press_time += 1
+        @counter += 1
+
+        if @press_time % Const::DROP_SPEED == 0
+          # check if KbDown is pressed, move piece down in faster interval
+          @board.piece_down! if @window.button_down?(Gosu::KbDown)
+        end
+        if @press_time % Const::TURN_SPEED == 0
+          # check if KbLeft is pressed, move piece left in faster interval
+          @board.piece_left! if @window.button_down?(Gosu::KbLeft)
+          # check if KbRight is pressed, move piece right in faster interval
+          @board.piece_right! if @window.button_down?(Gosu::KbRight)
+        end
+
+        # checks if it's time for next step in game
+        if @counter % Const::GAME_SPEED == 0
+          @rows_cleared = @board.next_step!
+          @clear_snd.play if @rows_cleared > 0
+          # checks if it's game over
+          @game_over = @board.game_over?
+        end
+      end
+    end
+
+    # draws board and texts if paused or game over
+    def draw
+      @board.draw
+      x = @window.width / 2
+      y = @window.height / 2 - 30
+      @font.draw(Const::PAUSE_CAPTION, x - 130, y, 0) if @paused
+      @font.draw(Const::GAME_OVER_CAPTION, x - 170, y, 0) if @game_over
+    end
+
+    # button handler
+    def button_down(id)
+      if @game_over || @paused
+        pause! if @paused && id == Gosu::KbP
+        if @game_over && id == Gosu::KbEscape
+          @window.state = MenuState.new(@window)
+        end
+      else
+        # handling specific events
+        case id
+        when Gosu::KbEscape
+          @window.state = MenuState.new(@window)
+        when Gosu::KbP
+          pause!
+        when Gosu::KbLeft
+          @board.piece_left!
+          @press_time = 0
+        when Gosu::KbRight
+          @board.piece_right!
+          @press_time = 0
+        when Gosu::KbDown
+          @board.piece_down!
+          @press_time = 0
+        when Gosu::KbUp
+          @rotate_snd.play if @board.piece_rotate!
+        when Gosu::KbSpace
+          @board.piece_drop!
+          @drop_snd.play
+          @counter = Const::GAME_SPEED - 10
+        end
+      end
+    end
+
+    # hides default system cursor
+    def needs_cursor?
+      true
+    end
+  end
+end

data/lib/btetris_kp/gui/menuitem.rb

@@ -0,0 +1,44 @@
+require 'btetris_kp/constants'
+
+module BTetrisKp
+  # class representing menu item
+  class MenuItem
+    def initialize(window, text, id, callback, font, x, y)
+      @window = window
+      @text = text
+      @callback = callback
+      @font = font
+      @color = Const::MENU_ITEM_CLR
+      @x = x
+      @y = y + id * (@font.height + 5)
+    end
+
+    # updates menu item, changes item color depending on mouse_over?
+    def update
+      if mouse_over?
+        @color = Const::MENU_ITEM_MO_CLR
+      else
+        @color = Const::MENU_ITEM_CLR
+      end
+    end
+
+    # returns true if mouse is over menu item
+    def mouse_over?
+      mx = @window.mouse_x
+      my = @window.mouse_y
+      (mx >= @x && my >= @y) &&
+      (mx <= @x + @font.text_width(@text)) &&
+      (my <= @y + @font.height)
+    end
+
+    # returns true menu item is clicked (click + mouse_over)
+    def clicked
+      @callback.call if mouse_over?
+    end
+
+    # draws menuitem on window (gosu)
+    def draw
+      @font.draw(@text, @x, @y, 0, 1, 1, @color)
+    end
+  end
+end

data/lib/btetris_kp/gui/textfield.rb

@@ -0,0 +1,66 @@
+require 'gosu'
+require 'btetris_kp/constants'
+
+module BTetrisKp
+  # class representing input box for IP adress / port / text
+  class TextField < Gosu::TextInput
+    attr_reader :x, :y
+
+    def initialize(window, font, x, y, text, filter, width, maxlen)
+      super()
+      @window = window
+      @font = font
+      @x = x
+      @y = y
+      @width = width
+      @filter = filter
+      @maxlen = maxlen
+      self.text = text
+    end
+
+    # filters text of characters specified in regexp
+    def filter(text)
+      text.upcase.gsub(@filter, '')
+    end
+
+    # updates textfield, limits length of text to @maxlen
+    def update
+      self.text = text.slice(0...@maxlen) if text.size > @maxlen
+    end
+
+    # draws textfield on window (gosu)
+    def draw
+      @window.draw_line(@x - Const::BORDER_GAP, @y + @font.height, Const::CARET_CLR,
+                        @x + @width + 2 * Const::BORDER_GAP, @y + @font.height, Const::CARET_CLR)
+      unless text.nil?
+        # draws the caret if textfield is selected
+        pos_x = @x + @font.text_width(text[0...caret_pos])
+        if @window.text_input == self
+          @window.draw_line(pos_x, @y, Const::CARET_CLR,
+                            pos_x, @y + @font.height, Const::CARET_CLR, 0)
+        end
+
+        @font.draw(text, @x, @y, 0)
+      end
+    end
+
+    # returns true if mouse is over textfield
+    def mouse_over?(mouse_x, mouse_y)
+      mouse_x >= x - Const::BORDER_GAP &&
+      mouse_x <= x + @width + Const::BORDER_GAP &&
+      mouse_y >= y - Const::BORDER_GAP &&
+      mouse_y <= y + @font.height + Const::BORDER_GAP
+    end
+
+    # moves the caret to the position specified by mouse
+    def move_caret(mouse_x)
+      1.upto(text.length) do |i|
+        if mouse_x < x + @font.text_width(text[0...i])
+          self.caret_pos = self.selection_start = i - 1
+          return
+        end
+      end
+      self.caret_pos = self.selection_start = text.length
+    end
+  end
+end

data/lib/btetris_kp/menu.rb

@@ -0,0 +1,83 @@
+require 'btetris_kp/game'
+require 'btetris_kp/core/board'
+require 'btetris_kp/gui/menuitem'
+require 'btetris_kp/netsetup'
+require 'btetris_kp/netjoin'
+require 'btetris_kp/constants'
+
+module BTetrisKp
+  # class representing main menu window state
+  class MenuState
+    def initialize(window)
+      @window = window
+      @font = Gosu::Font.new(@window, Gosu.default_font_name, 30)
+      initialize_title_image
+      generate_back_board
+      generate_menu
+    end
+
+    # loads title image and calculates position, size variables
+    def initialize_title_image
+      @title_image = Gosu::Image.new(@window, Const::PATH_IMAGE_TITLE, false)
+      @img_size_factor = (@window.width - 50.0) / @title_image.width
+      @img_x = (@window.width - @title_image.width * @img_size_factor) / 2
+      @img_y = 20
+    end
+
+    # generates background board
+    def generate_back_board
+      @board = Board.new(@window, @window.width / 3, 40)
+      nice_board = Array.new(Const::PNR_VER) { Array.new(Const::PNR_HOR, 0) }
+      nice_board.each_with_index do |row, x|
+        if x > Const::PNR_VER / 2
+          row.each_with_index do |val, y|
+            nice_board[x][y] = rand(Const::TILE_COLORS_NR + 1)
+          end
+        end
+      end
+      @board.board = nice_board
+    end
+
+    # generates menu, menu items and callback procedures for menu items
+    def generate_menu
+      @items = []
+      @x = @window.width / 3 + 30
+      @y = @title_image.height
+      n_g = proc { @window.state = GameState.new(@window, @window.width / 3, 40) }
+      cr_n = proc { @window.state = NetSetupState.new(@window) }
+      j_n = proc { @window.state = NetJoinState.new(@window) }
+      exit = proc { @window.close }
+      @items << MenuItem.new(@window, Const::MENU_NEW, 0, n_g, @font, @x, @y)
+      @items << MenuItem.new(@window, Const::MENU_CREATE, 1, cr_n, @font, @x, @y)
+      @items << MenuItem.new(@window, Const::MENU_JOIN, 2, j_n, @font, @x, @y)
+      @items << MenuItem.new(@window, Const::MENU_QUIT, 3, exit, @font, @x, @y)
+    end
+
+    # updates menu
+    def update
+      @items.each { |i| i.update }
+    end
+
+    # draws menu
+    def draw
+      @board.draw
+      @items.each { |i| i.draw }
+      @title_image.draw(@img_x, @img_y, 1, @img_size_factor, @img_size_factor)
+    end
+
+    # button handler
+    def button_down(id)
+      case id
+      when Gosu::KbEscape
+        @window.close
+      when Gosu::MsLeft then
+        @items.each { |i| i.clicked }
+      end
+    end
+
+    # shows default system cursor
+    def needs_cursor?
+      true
+    end
+  end
+end

data/lib/btetris_kp/netgame.rb

@@ -0,0 +1,152 @@
+require 'btetris_kp/menu'
+require 'btetris_kp/core/board'
+require 'btetris_kp/game'
+require 'btetris_kp/constants'
+
+module BTetrisKp
+  # class representing net game window state
+  # used for playin game over network (no matter if you are client or server)
+  class NetGameState
+    def initialize(window, socket)
+      @window = window
+      @socket = socket
+      @font = Gosu::Font.new(@window, Gosu.default_font_name, 80)
+      @game = GameState.new(@window, 10, 40)
+      @o_board = Board.new(@window, 2 * @window.width / 3 - 10, 40)
+      @winner = 0
+    end
+
+    # sends message to socket
+    def send_msg(msg)
+      s = ''
+      case msg
+      when Const::MSG_PAUSE
+        s = "#{Const::MSG_PAUSE}"
+      when Const::MSG_GAME_OVER
+        s = "#{Const::MSG_GAME_OVER}"
+      when Const::MSG_BOARD
+        s = "#{Const::MSG_BOARD}:#{@game.get_board_s}"
+      when Const::MSG_GARBAGE
+        s = "#{Const::MSG_GARBAGE}:#{@game.rows_cleared}"
+      end
+      begin
+        @socket.sendmsg_nonblock(s)
+      rescue
+        # problem s pripojenim -- game over
+        @socket.close
+        @window.state = MenuState.new(@window)
+      end
+    end
+
+    # blocking recv for cnt of bytes
+    def recv_block(cnt)
+      block = nil
+      begin
+        block = @socket.recv(cnt, Socket::MSG_WAITALL)
+      rescue
+        # problem s pripojenim -- game over
+        @socket.close
+        @window.state = MenuState.new(@window)
+      end
+      block
+    end
+
+    # recieves and manages game updates
+    def recv_msg(id)
+      case id
+      when Const::MSG_PAUSE
+        @game.pause!
+      when Const::MSG_GAME_OVER
+        @winner = Const::GAME_WON
+      when Const::MSG_BOARD
+        recv_block(1)
+        board = recv_block(Const::PNR_HOR * Const::PNR_VER)
+        @o_board.from_s!(board) unless board.nil?
+      when Const::MSG_GARBAGE
+        recv_block(1)
+        garbage = recv_block(1).to_i
+        @game.insert_garbage!(garbage)
+      end
+    end
+
+    # checks if there is incomming message
+    # returns a string with message id, or GOT_NO_MESSAGE
+    def check_msg
+      begin
+        s = @socket.recv_nonblock(1)
+        return s
+      rescue Errno::EAGAIN
+        # zadna zprava, hrajeme dal
+      rescue
+        # problem s pripojenim -- game over
+        @socket.close
+        @window.state = MenuState.new(@window)
+      rescue
+      end
+      Const::GOT_NO_MESSAGE
+    end
+
+    # updates net game state
+    def update
+      if @winner == Const::GAME_ON
+        until (m = check_msg) == Const::GOT_NO_MESSAGE
+          recv_msg(m)
+        end
+        unless @game.paused
+          @game.update
+          send_msg(Const::MSG_BOARD)
+          if @game.game_over
+            send_msg(Const::MSG_GAME_OVER)
+            @winner = Const::GAME_LOST
+          end
+          if @game.rows_cleared > 0
+            send_msg(Const::MSG_GARBAGE)
+            @game.rows_cleared = 0
+          end
+        end
+      end
+    end
+
+    # draws net game window (contains normal game + opponents board)
+    def draw
+      if @winner == Const::GAME_ON
+        @game.draw
+        @o_board.draw
+      elsif @winner == Const::GAME_LOST
+        @font.draw(Const::GAME_LOST_CAPTION,
+                   @window.width / 2 - 170, @window.height / 2 - 30, 0)
+      else
+        @font.draw(Const::GAME_WON_CAPTION,
+                   @window.width / 2 - 170, @window.height / 2 - 30, 0)
+      end
+    end
+
+    # button handler
+    def button_down(id)
+      if @winner == Const::GAME_ON
+        case id
+        when Gosu::KbP
+          send_msg(Const::MSG_PAUSE)
+          @game.pause!
+        when Gosu::KbEscape
+          send_msg(Const::MSG_GAME_OVER)
+          sleep(0.2)
+          @socket.close
+          @window.state = MenuState.new(@window)
+        else
+          @game.button_down(id)
+        end
+      else
+        if id == Gosu::KbEscape
+          @socket.close
+          @window.state = MenuState.new(@window)
+        end
+      end
+    end
+
+    # hides default system cursor
+    def needs_cursor?
+      true
+    end
+  end
+end

data/lib/btetris_kp/netjoin.rb

@@ -0,0 +1,115 @@
+require 'socket'
+require 'btetris_kp/netgame'
+require 'btetris_kp/gui/textfield'
+require 'btetris_kp/constants'
+
+module BTetrisKp
+  # class representing a window for joining a game over network (CLIENT SIDE)
+  class NetJoinState
+    def initialize(window)
+      @window = window
+      @font = Gosu::Font.new(@window, Gosu.default_font_name, 40)
+      @connecting = false
+      initialize_title_image
+      initialize_textfields
+      @socket = nil
+    end
+
+    # loads title image and calculates position, size variables
+    def initialize_title_image
+      @title_image = Gosu::Image.new(@window, Const::PATH_IMAGE_TITLE, false)
+      @img_size_factor = (@window.width - 50.0) / @title_image.width
+      @img_x = (@window.width - @title_image.width * @img_size_factor) / 2
+      @img_y = 20
+    end
+
+    # initializes text fields for reading ip and port
+    # initializes positions for texts and textfields
+    def initialize_textfields
+      @text_x = @window.width / 3 + 10
+      @text_y = @window.height / 3
+      @ip_x = @text_x - @font.text_width(Const::IP_CAPTION) - 15
+      @port_x = @text_x - @font.text_width(Const::PORT_CAPTION) - 15
+      @text_fields = []
+      @text_fields << TextField.new(@window, @font, @text_x,
+                                    @text_y, Const::DEF_IP, /[^0-9.]/,
+                                    @font.text_width('000.000.000.000'), 15)
+      @text_fields << TextField.new(@window, @font, @text_x,
+                                    @text_y + @font.height + 10,
+                                    Const::DEF_PORT, /[^0-9]/,
+                                    @font.text_width('00000'), 5)
+    end
+
+    # tries to connect to server
+    def try_connect
+      begin
+        @socket = TCPSocket.new(@text_fields[0].text, @text_fields[1].text)
+        @socket.sendmsg_nonblock(Const::MSG_WELCOME)
+        msg = @socket.recv(1)
+        unless msg == Const::MSG_WELCOME
+          @socket.close
+          @socket = nil
+        end
+      rescue
+        # error while connecting
+      end
+    end
+
+    # updates window state, tries to connect to server, starts game when ready
+    def update
+      @text_fields.each { |t| t.update }
+      if @connecting
+        if @socket.nil?
+          try_connect
+        else
+          # socket created and connected, start net game
+          # windows text_input needs to be set on nil
+          # otherwise gosu wont register some keys
+          @window.text_input = nil
+          @window.state = NetGameState.new(@window, @socket)
+        end
+      end
+    end
+
+    # draws net join window
+    def draw
+      @text_fields.each { |t| t.draw }
+      @font.draw(Const::IP_CAPTION, @ip_x,
+                 @text_y, 0)
+      @font.draw(Const::PORT_CAPTION, @port_x,
+                 @text_y + @font.height + 10, 0)
+      @font.draw(Const::CONNECTING, @text_x,
+                 @text_y + 3 * (@font.height + 10), 0) if @connecting
+      @title_image.draw(@img_x, @img_y, 1, @img_size_factor, @img_size_factor)
+    end
+
+    # button handler
+    def button_down(id)
+      case id
+      when Gosu::KbEscape
+        if @connecting
+          @connecting = false
+        else
+          # windows text_input needs to be set on nil
+          # otherwise gosu wont register some keys
+          @window.text_input = nil
+          @window.state = MenuState.new(@window)
+        end
+      when Gosu::KbReturn
+        @connecting = true
+      when Gosu::MsLeft
+        @window.text_input = @text_fields.find do |tf|
+          tf.mouse_over?(@window.mouse_x, @window.mouse_y)
+        end
+        unless @window.text_input.nil?
+          @window.text_input.move_caret(@window.mouse_x)
+        end
+      end
+    end
+
+    # shows default system cursor
+    def needs_cursor?
+      true
+    end
+  end
+end

data/lib/btetris_kp/netsetup.rb

@@ -0,0 +1,79 @@
+require 'socket'
+require 'btetris_kp/menu'
+require 'btetris_kp/netgame'
+require 'btetris_kp/constants'
+
+module BTetrisKp
+  # class representing a window for creating a game over network (SERVER SIDE)
+  class NetSetupState
+    def initialize(window)
+      @window = window
+      @font = Gosu::Font.new(@window, Gosu.default_font_name, 40)
+      initialize_title_image
+      setup_server
+      @connected = false
+    end
+
+    # setups a server with random port
+    def setup_server
+      @port = 0
+      begin
+        @port = rand(40_000)
+        @server = TCPServer.new(@port)
+      rescue
+        retry
+      end
+    end
+
+    # loads title image and calculates position, size variables
+    def initialize_title_image
+      @title_image = Gosu::Image.new(@window, Const::PATH_IMAGE_TITLE, false)
+      @img_size_factor = (@window.width - 50.0) / @title_image.width
+      @img_x = (@window.width - @title_image.width * @img_size_factor) / 2
+      @img_y = 20
+    end
+
+    # tries to accept client connection, sets @connected true when accepted
+    def try_accept
+      begin
+        # tries to accept client connection
+        @socket = @server.accept_nonblock
+        @socket.sendmsg_nonblock(Const::MSG_WELCOME)
+        # if welcome msg is recvd, start game, else close socket
+        msg = @socket.recv(1)
+        msg == Const::MSG_WELCOME ? @connected = true : @socket.close
+      rescue
+        # no one connected, try again next time
+      end
+    end
+
+    # updates window state, checks for incomming connections
+    # starts game when ready
+    def update
+      if @connected
+        @window.state = NetGameState.new(@window, @socket)
+      else
+        try_accept
+      end
+    end
+
+    # draws net setup window
+    def draw
+      @font.draw(Const::SERVER_WAIT, @window.width / 5,
+                 @window.height / 2 - 60, 0)
+      @font.draw("#{Const::SERVER_PORT}#{@port}", @window.width / 3.5,
+                 @window.height / 2, 0)
+      @title_image.draw(@img_x, @img_y, 1, @img_size_factor, @img_size_factor)
+    end
+
+    # button handler
+    def button_down(id)
+      @window.state = MenuState.new(@window) if id == Gosu::KbEscape
+    end
+
+    # shows default system cursor
+    def needs_cursor?
+      true
+    end
+  end
+end

data/lib/btetris_kp/version.rb

@@ -0,0 +1,3 @@
+module BtetrisKp
+  VERSION = '0.0.1'
+end

data/lib/btetris_kp.rb

@@ -0,0 +1,5 @@
+require "btetris_kp/version"
+
+module BTetrisKp
+
+end

data/spec/btetris_spec.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+
+require 'spec_helper'
+require 'gosu'
+require "btetris_kp/btetris"
+
+module BTetrisKp
+  describe BTetrisWindow do
+
+    it 'can initialize BTetrisWindow' do
+      @bt = BTetrisWindow.new
+      @bt.should(be_an_instance_of BTetrisWindow)
+    end
+  end
+end