gglib 1.1.0

data/lib/mouse.rb

@@ -0,0 +1,63 @@
+module GGLib
+
+  class Cursor
+    attr_reader :img, :visible, :imgObj
+    def initialize(img,visible)
+      @img=img
+      @visible=visible
+      @imgObj=Gosu::Image.new($window,img,true)
+      @forced=false
+    end
+    def toggleVisible
+      if not @forced
+        @visible=!@visible
+      end
+    end
+    def forceVisible(visible=true)
+      @forced=true
+      @visible=visible
+    end
+    def unforceVisible
+      @forced=false
+    end
+    def visible?
+      return visible
+    end
+    def visible=(visible)
+      if not @forced
+        @visible=visible
+      end
+    end
+    def draw
+      if @visible
+        @imgObj.draw($window.mouse_x,$window.mouse_y,ZOrder::Cursor)
+      end
+    end
+  end
+  
+  class MouseDragEvent
+    attr_reader :start_x, :start_y, :end_x, :end_y, :inprogress, :starting
+    def initialize
+      @start_x, @start_y = 0
+      @end_x, @end_y = 0
+      @inprogress = false
+      @starting = false
+    end
+    def start
+      @start_x, @start_y = $window.mouse_x, $window.mouse_y
+      @starting = true
+    end
+    def confirmStart
+      @starting = false
+      @inprogress = true
+    end
+    def end
+      @end_x, @end_y = $window.mouse_x, $window.mouse_y
+      @inprogress = false
+    end
+    def terminate
+      @inprogress, @starting = false
+    end
+  end
+  
+  end #module GGLib

data/lib/null.rb

@@ -0,0 +1 @@
+#PlaceHolder Module

data/lib/state.rb

@@ -0,0 +1,137 @@
+module GGLib
+
+#A StaticScreen is a menu. It suspends the game and redirects all input to itself.
+#StaticScreen is typically used through derivation, although it can be used otherwise.
+#StaticScreen#start suspends the game and starts the menu. StaticScreen#end returns to the game.
+
+class StateObject
+  #Begin rerouting input to the static screen. DO NOT OVERRIDE THIS METHOD.
+  def start 
+    $window.deleteAllImages
+    $window.cursor.forceVisible
+    onStart
+  end
+  #Return control to the GameWindow. DO NOT OVERRIDE THIS METHOD.
+  def end
+    onEnd
+    $window.deleteAllWidgets
+    $window.createWidgets
+    $window.deleteAllImages
+    $window.cursor.unforceVisible
+    onTerminate
+  end
+  #Equivalent to Gosu::Window#button_down
+  def button_down(id)
+    #do nothing by default
+  end
+  #Equivalent to Gosu::Window#button_down
+  def button_up(id)
+    #do nothing by default
+  end
+  #Equivalent to Gosu::Window#update
+  def update
+  end
+  #Returns a reference to the window to which the static screen is associated.
+  def window
+    return $window
+  end
+  #This method is called when the static screen is initialized. It is ment to be overridden in derived classes.
+  #This is a good place to preform tasks such as creating widgets.
+  def onStart
+  end
+  #This method is called when the static screen is uninitialized. It is ment to be overridden in derived classes.
+  #This is a good place to preform tasks such as stopping audio. Widgets are automatically destroyed on exit by the base class StaticScreen
+  def onEnd
+  end
+  def onTerminate
+  end
+  #Equivalent to Gosu::Window#draw
+  def draw
+  end
+end
+
+class  MenuBase < StateObject
+  def button_down(id)
+    #if id == Gosu::Button::KbEscape
+    #  close
+    if id == Gosu::Button::MsLeft
+      mouse($window.mouse_x,$window.mouse_y)
+    end
+  end
+  def mouse(x,y)
+    #does nothing by default
+  end
+end
+
+class FadeScreen < StateObject
+  public
+  attr_reader :widgetID
+  def initialize(fadeTo=nil, speed=1)
+    $faded=false
+    @image=Gosu::Image.new($window, $gglroot+"/media/black.bmp", true)
+    @fading=false
+    @speed=speed
+    @fadeTo=fadeTo
+    @color=Gosu::Color.new(0xffffffff)
+  end
+  def fading?
+    return @fading
+  end
+  def onStart
+    @fading=true
+    @alpha=0
+  end
+  def draw
+    if @fading
+      @alpha+=@speed
+      if @alpha > 255
+        @alpha=255
+      end
+      @color.alpha=@alpha
+      @image.draw(0, 0, ZOrder::Top+1, 640, 480, @color)
+      if @alpha == 255
+        endFade
+        @widgetID = FadeIn.new(@speed)
+      end
+    end
+  end
+  def endFade
+    @fading=false
+    @image=nil
+    self.end
+    @fadeTo.start if @fadeTo!=nil
+  end
+  
+  class FadeIn < Widget
+    def initialize(speed=5)
+      @image=Gosu::Image.new($window, $gglroot+"/media/black.bmp", true)
+      @speed=speed
+      @color=Gosu::Color.new(0x00ffffff)
+      @alpha=255
+      super(Button::Image, 0, 0, 0, 0)
+      wakeUp
+      stickFocus
+      $window.setFocus(nil)
+    end
+    def draw
+      @alpha-=@speed
+      if @alpha < 0
+        @alpha=0
+      end
+      @color.alpha=@alpha
+      @image.draw(0, 0, ZOrder::Top+1, 640, 480, @color)
+      if @alpha == 0
+        endFade
+      end
+    end
+    def endFade
+      unstickFocus
+      $window.setFocus(nil)
+      del
+      $faded=true
+    end
+  end
+  
+end
+
+end #module GGLib

data/lib/theme.rb

@@ -0,0 +1,205 @@
+module GGLib
+
+class Theme
+  attr_reader :name
+  def setDefaultState
+  end
+  def setOverState
+  end
+  def setDownState
+  end
+  #Returns an estimated width for the Theme. (May not be equal to the actual width.)
+  def width
+  end
+  #Returns an estimated height for the Theme. (May not be equal to the actual height.)
+  def height
+  end
+  def request(obj)
+    return self
+  end
+end
+
+class ImageTheme < Theme
+  attr_reader :image, :font, :width, :height
+  def initialize(name, font, image)
+    @name = name
+    @image = image
+    @width = Gosu::Image.new($window, @image.default).width
+    @height = Gosu::Image.new($window, @image.default).height
+    @font = font
+  end
+  def newInstance(obj)
+    return ImageThemeInstance.new(self, obj)
+  end
+end
+
+class DrawnTheme < Theme
+  attr_reader :font
+  def initialize(name, font)
+    @name = name
+    @font = font
+  end
+  def newInstance(obj)
+    return DrawnThemeInstance.new(self, obj)
+  end
+  def width
+    return 200
+  end
+  def height
+    return 50
+  end
+  def draw(x1, y1, x2, y2, state)
+  end  
+end
+
+class ThemeInstance
+  def initialize(klass, wid)
+    @klass = klass
+    @state = 1
+    @widget = wid
+    @x1 = @widget.x1
+    @y1 = @widget.y1
+    @x2 = @widget.x2
+    @y2 = @widget.y2
+    @klass = @klass.request(@widget)
+  end
+  def setCoords(x1,y1,x2,y2)
+    @x1 = x1
+    @y1 = y1
+    @x2 = x2
+    @y2 = y2    
+  end
+  def setDefaultState
+    @state = 1
+  end
+  def setOverState
+    @state = 2
+  end
+  def setDownState
+    @state = 3
+  end
+  def setSleepState
+  end
+  def setWakeState
+    @state = 1
+  end
+  def font
+    return @klass.font
+  end
+  def name
+    return @klass.name
+  end
+  def width
+    return @klass.width
+  end
+  def height
+    return @klass.height
+  end
+  def draw
+  end
+end
+
+class ImageThemeInstance < ThemeInstance
+  def initialize(klass, wid)
+    super(klass, wid)
+    @image = $window.newTexture(@x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+  end
+  def setCoords(x1,y1,x2,y2)
+    super(x1,y1,x2,y2)
+    return if @image == -1
+    if @state == 1
+      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+    elsif @state == 2
+      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.over)
+    elsif @state == 3
+      $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.down)
+    end
+  end
+  def setDefaultState
+    super
+    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+  end
+  def setOverState
+    super
+    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.over)
+  end
+  def setDownState
+    super
+    $window.setTexture(@image, @x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.down)
+  end
+  def setSleepState
+    super
+    @image = -1
+    $window.deleteImage(@image)
+  end
+  def setWakeState
+    super
+    @image = $window.newTexture(@x1, @y1, @x2, @y2, ZOrder::Widget, @klass.image.default)
+  end
+  def image
+    return @klass.image
+  end
+end
+
+class DrawnThemeInstance < ThemeInstance
+  def draw
+    @klass.draw(@x1, @y1, @x2, @y2, @state)
+  end
+end
+
+class ThemeFontGroup
+  attr_accessor :default, :header, :editable, :color, :selcolor
+  def initialize(default, header, editable, color=0xff000000, selcolor=0xff33FFFF)
+    @default = default
+    @header = header
+    @editable = editable
+    @color = color
+    @selcolor = selcolor
+  end
+end
+
+class ThemeImageGroup
+  attr_accessor :default, :over, :down
+  def initialize(default, over, down)
+    @default = default
+    @over = over
+    @down = down
+  end  
+end
+
+module Themes
+  public
+  def Themes.blank
+    ImageTheme.new(
+      "BlankTheme",
+      ThemeFontGroup.new(
+        Gosu::Font.new($window, Gosu::default_font_name, 17),
+        Gosu::Font.new($window, Gosu::default_font_name, 25),
+        Gosu::Font.new($window, Gosu::default_font_name, 20)
+      ),
+      ThemeImageGroup.new(
+        $gglroot+"/null.png",
+        $gglroot+"/null.png",
+        $gglroot+"/null.png"
+      )
+    )
+  end
+  
+  def Themes.tracePanel 
+    ImageTheme.new(
+      "TraceTheme",
+      ThemeFontGroup.new(
+        Gosu::Font.new($window, Gosu::default_font_name, 17),
+        Gosu::Font.new($window, Gosu::default_font_name, 25),
+        Gosu::Font.new($window, Gosu::default_font_name, 20)
+      ),
+      ThemeImageGroup.new(
+        $gglroot+"/media/trace.png",
+        $gglroot+"/null.png",
+        $gglroot+"/null.png"
+      )
+    )
+  end
+end
+
+end #module GGLib

data/lib/tile.rb

@@ -0,0 +1,170 @@
+module GGLib
+
+#The Tile class represents a rectangular region on the screen.
+#It is synonymous with the Rect structure used in many C programs.
+class Tile
+    @@tiles = CArray.new
+    #@@tile = []
+    attr_accessor :x1,:y1,:x2,:y2,:inclusive,:id 
+    #@inclusive decides whether or not tile edges are considered part of the tile
+    def initialize(x1=0,y1=0,x2=1,y2=1,inclusive=true,id=nil) #id parameter is for use by saveload ONLY!!!!
+      @x1,@y1,@x2,@y2=x1,y1,x2,y2
+      #begin
+      #  @x1+=0;@y1+=0;@x2+=0;@y2+=0 #check if coordinate is actually a proc (damn dynamic typing...)
+      #rescue
+      #  raise "Bad coord: ID#{@@tiles.size+1}"
+      #end
+      @inclusive=inclusive
+      #@name=name
+      if id==nil
+        @id=@@tiles.size #volatile, id overwritten by derived classes
+        @tileno=@id #secure copy of id
+        @@tiles << self
+      else
+        @id=id
+        @tileno=id
+        @@tiles[id]=self
+      end
+    end
+    
+    #Find out if a point is located in the tile
+    def isInTile?(x,y)
+      if @inclusive
+        return iTile(x,y)
+      else
+        return xTile(x,y)
+      end
+    end
+    
+    alias contains? isInTile?
+    
+    #Redefine the tile
+    def setCoordinates(x1,y1,x2,y2)
+      @x1,@y1,@x2,@y2=x1,y1,x2,y2
+    end
+    
+    #Redefine the tile
+    def setTile(x1,y1,x2,y2)
+      @x1,@y1,@x2,@y2=x1,y1,x2,y2
+    end
+    
+    #Translate the coordinates of the tile so that the thop left corner of the tile is at the given coordinates
+    def move(x,y=@y)
+      @x2=x+(@x2-@x1)
+      @y2=y+(@y2-@y1)
+      @y1=y
+      @x1=x
+    end
+    
+    #translate the cordinates of the tile so that the center of the tile is at the given point
+    def centerOn(x, y)
+      hwidth=((@x2-@x1)/2).ceil.abs
+      hheight=((@y2-@y1)/2).ceil.abs
+      @x2=x+hwidth
+      @y2=y+hheight
+      @y1=y-hheight
+      @x1=x-hwidth
+    end
+    
+    #Returns the width of the tile
+    def height
+      return (@y2-@y1).abs
+    end  
+    
+    #Returns the hiehgt of the tile    
+    def width
+      return (@x2-@x1).abs
+    end
+    
+    #Find out if a point is located in the tile, including the edges of the tile
+    def iTile(x,y)
+      return (x>=@x1 and x<=@x2 and y>=@y1 and y<=@y2)
+    end
+
+    #Find out if a point is located in the tile, *not* including the edges of the tile
+    def xTile(x,y)
+      return (x>@x1 and x<@x2 and y>@y1 and y<@y2)
+    end
+    
+    #Iterates over all of the encompased by the tile
+    def each 
+      @x1.upto(@x2) { |x|
+        @y1.upto(@y2) { |y|
+          yield x,y
+        }
+      }
+    end
+    
+    #Iterates over all of the points on the edges of the tile
+    def eachBorder(xindent=0,yindent=0)
+      (@x1+xindent).upto(@x2-xindent) { |x|
+        yield x, @y1+yindent
+      }
+      
+      (@x1+xindent).upto(@x2-xindent) { |x|
+        yield x, @y2+yindent
+      }
+      
+      (@y1+xindent).upto(@y2-xindent) { |y|
+        yield @x1+xindent, y
+      }
+      
+      (@y1+xindent).upto(@y2-xindent) { |y|
+        yield @x2+xindent, y
+      }
+    end
+    
+    public
+    #See Tile::intersect?
+    def intersect?(tile)
+      return Tile::intersect?(self,tile)
+    end
+    
+    #Find out if the given two tiles intersect. 
+    def Tile.intersect?(tile1,tile2)
+      return  ((tile2.x1 < tile1.x2) and (tile2.x2 > tile1.x1) and (tile2.y1 < tile1.y2) and (tile2.y2 > tile1.y1))
+    end
+    
+    #Returns the tile with the given index
+    def Tile.getById(id)
+      if @@tiles[id]!=nil
+        return @@tiles[id]
+      else
+        return false
+      end
+    end
+    
+    #Deletes the tile with the given index
+    def Tile.deleteById(id)
+      if @@tiles[id]!=nil
+        @@tiles[id].del
+        @@tiles.delete_at(id)
+        return true
+      else
+        return false
+      end
+    end
+    
+    #Returns an array of all tiles
+    def Tile.getAllInstances
+      return @@tiles
+    end
+    
+    #Override the internal array of tiles with a new one
+    def Tile.setAllInstances(ntiles)
+      @@tiles=ntiles
+    end
+    
+    #Delete all tiles int the program. (Includes classes derived from tiles)
+    def Tile.deleteAllInstances
+      @@tiles=CArray.new
+    end
+    
+    #Deletes the calling tile
+    def del
+      @@tiles.delete_at(@tileno)
+      @x1,@y1,@x2,@y2,@inclusive,@id,@tileno=nil
+    end
+  end
+  
+  end #module GGLib