nakor 0.0.1 → 0.0.2

data/lib/nakor/generators/corona-game-template/help.lua

@@ -0,0 +1,34 @@
+module(..., package.seeall)
+
+-- Main function - MUST return a display.newGroup()
+function new()
+  local localGroup = display.newGroup()
+
+  -- Background
+  local background = display.newImageRect("bk_default.png", 480, 320)
+  background.x = display.contentCenterX
+  background.y = display.contentCenterY
+  localGroup:insert(background)
+
+  -- Title
+  local title = display.newText("Touch to go back", 0, 0, native.systemFontBold, 16)
+  title:setTextColor( 255,255,255)
+  title.x = display.contentCenterX
+  title.y = display.contentCenterY
+  title.name = "title"
+  localGroup:insert(title)
+
+  -- Touch to go back
+  local function touched ( event )
+    if ("ended" == event.phase) then
+      director:changeScene("menu","fade")
+    end
+  end
+  background:addEventListener("touch",touched)
+
+  unloadMe = function()
+  end
+
+  -- MUST return a display.newGroup()
+  return localGroup
+end

data/lib/nakor/generators/corona-game-template/init_buttons.lua

@@ -0,0 +1,55 @@
+_G.buttons = {
+  about = {
+    defaultSrc = "btn_about.png",
+    defaultX = 160,
+    defaultY = 32,	
+    overSrc = "btn_about_over.png",
+    overX = 160,
+    overY = 32,	
+    id = "btnAbout",
+    text = "",
+    font = "Helvetica",
+    textColor = { 255, 255, 255, 255 },
+    emboss = false
+  },
+  help = {
+    defaultSrc = "btn_help.png",
+    defaultX = 160,
+    defaultY = 32,		
+    overSrc = "btn_help_over.png",
+    overX = 160,
+    overY = 32,	
+    id = "btnHelp",
+    text = "",
+    font = "Helvetica",
+    textColor = { 255, 255, 255, 255 },
+    emboss = false
+  },
+  play = {
+    defaultSrc = "btn_play.png",
+    defaultX = 160,
+    defaultY = 32,
+    overSrc = "btn_play_over.png",
+    overX = 160,
+    overY = 32,
+    id = "btnPlay",
+    text = "",
+    font = "Helvetica",
+    textColor = { 255, 255, 255, 255 },
+    emboss = false
+  },
+  settings = {
+    defaultSrc = "btn_settings.png",
+    defaultX = 160,
+    defaultY = 32,		
+    overSrc = "btn_settings_over.png",
+    overX = 160,
+    overY = 32,		
+    id = "btnSettings",
+    text = "",
+    font = "Helvetica",
+    textColor = { 255, 255, 255, 255 },
+    emboss = false
+  }
+}
+

data/lib/nakor/generators/corona-game-template/loadmenu.lua

@@ -0,0 +1,33 @@
+module(..., package.seeall)
+
+require "init_buttons"
+
+-- Main function - MUST return a display.newGroup()
+function new()
+  local localGroup = display.newGroup()
+
+  local theTimer
+  local loadingImage
+
+  local showLoadingScreen = function()
+    loadingImage = display.newImageRect( "splash_screen.png", 480, 320 )
+    loadingImage.x = display.contentWidth
+    loadingImage.y = display.contentHeight
+    localGroup:insert(loadingImage)
+
+    local goToLevel = function()
+      director:changeScene( "menu" )
+    end
+
+    math.randomseed( os.time() )
+    theTimer = timer.performWithDelay( 1000, goToLevel, 1 )
+  end
+
+  showLoadingScreen()
+
+  unloadMe = function()
+  end
+
+  -- MUST return a display.newGroup()
+  return localGroup
+end

data/lib/nakor/generators/corona-game-template/main.lua

@@ -0,0 +1,12 @@
+display.setStatusBar( display.HiddenStatusBar )
+
+local director = require("director")
+local mainGroup = display.newGroup()
+
+local function main()
+  mainGroup:insert(director.directorView)
+  director:changeScene("loadmenu")
+  return true
+end
+
+main()

data/lib/nakor/generators/corona-game-template/menu.lua

@@ -0,0 +1,93 @@
+module(..., package.seeall)
+
+local radlib = require "radlib"
+
+-- Main function - MUST return a display.newGroup()
+function new()
+  local ui = require("ui")
+
+  local localGroup = display.newGroup()
+
+  -- Background
+  local background = display.newImageRect("bk_default.png", 480, 320)
+  background.x = display.contentCenterX
+  background.y = display.contentCenterY
+  localGroup:insert(background)
+
+  -- Menu Buttons - Start
+
+  local playButton = nil
+  local function onPlayPressed ( event )
+    if event.phase == "ended" and playButton.isActive then
+      director:changeScene("play", "fade", 30.0,60.0,90.0)
+    end
+  end
+  playButton = ui.newButton(
+    radlib.table.merge(
+      _G.buttons['play'],
+      { onRelease = onPlayPressed }
+    )
+  )
+  playButton.x = 160
+  playButton.y = 80
+  playButton.isActive = true
+  localGroup:insert(playButton)
+
+  local settingsButton = nil
+  local function onSettingsPressed ( event )
+    if event.phase == "ended" and settingsButton.isActive then
+      director:changeScene("settings", "fade", "green")
+    end
+  end
+  settingsButton = ui.newButton(
+    radlib.table.merge(
+      _G.buttons['settings'],
+      { onRelease = onSettingsPressed }
+    )
+  )
+  settingsButton.x = 160
+  settingsButton.y = 130
+  settingsButton.isActive = true
+  localGroup:insert(settingsButton)
+
+  local helpButton = nil
+  local function onHelpPressed ( event )
+    if event.phase == "ended" and helpButton.isActive then
+      director:changeScene("help", "overFromTop")
+    end
+  end
+  helpButton = ui.newButton(
+    radlib.table.merge(
+      _G.buttons['help'],
+      { onRelease = onHelpPressed }
+    )
+  )
+  helpButton.x = 160
+  helpButton.y = 180
+  helpButton.isActive = true
+  localGroup:insert(helpButton)
+
+  local aboutButton = nil
+  local function onAboutPressed ( event )
+    if event.phase == "ended" and aboutButton.isActive then
+      director:changeScene("about", "moveFromLeft")
+    end
+  end
+  aboutButton = ui.newButton(
+    radlib.table.merge(
+      _G.buttons['about'],
+      { onRelease = onAboutPressed }
+    )
+  )
+  aboutButton.x = 160
+  aboutButton.y = 230
+  aboutButton.isActive = true
+  localGroup:insert(aboutButton)
+  -- Menu Buttons - End
+
+  unloadMe = function()
+  end
+
+  -- MUST return a display.newGroup()
+  return localGroup
+end

data/lib/nakor/generators/corona-game-template/newgame.rb

@@ -0,0 +1,56 @@
+require 'fileutils'
+
+# Creates a new game at the parent directory.
+# Usage:
+#   macruby newgame <appname>
+# For example, if this template is on /Users/rad/Documents/games/corona-game-template,
+# running "macruby newgame mygame"
+# will create the directory /Users/rad/Documents/games/mygame
+# and copy all files from the template to that directory
+
+def generate_new_app(appname)
+  app_dir = "../#{appname}"
+  code_dir = "#{app_dir}/#{appname}"
+  assets_dir = "#{app_dir}/assets"
+  doc_dir = "#{app_dir}/doc"
+
+  # create the app directories
+  FileUtils.mkdir_p app_dir
+  FileUtils.mkdir_p code_dir
+  FileUtils.mkdir_p assets_dir
+  FileUtils.mkdir_p doc_dir
+  
+  # copy the files to the app code directory
+  FileUtils.cp_r './.', code_dir
+
+  # copy README
+  FileUtils.cp_r 'README', app_dir
+
+  # Remove support files used only for corona-game-template development
+  FileUtils.rm_r "#{code_dir}/.git"
+  FileUtils.rm_r "#{code_dir}/README"
+  FileUtils.rm "#{code_dir}/newgame.rb"
+end
+
+def show_help
+  print %{
+    Creates a new game at the parent directory.
+    Usage:
+      macruby newgame.rb <appname>
+    For example, if this template is on /Users/rad/Documents/games/corona-game-template,
+    running "macruby newgame mygame"
+    will create the directory /Users/rad/Documents/games/mygame
+    and copy all files from the template to that directory    
+  }
+end
+
+def main
+  appname = ARGV[0]
+  if appname && appname.strip != ''
+    generate_new_app(appname)
+  else
+    show_help
+  end
+end
+
+main()

data/lib/nakor/generators/corona-game-template/play.lua

@@ -0,0 +1,34 @@
+module(..., package.seeall)
+
+-- Main function - MUST return a display.newGroup()
+function new()
+  local localGroup = display.newGroup()
+
+  -- Background
+  local background = display.newImageRect("bk_default.png", 480, 320)
+  background.x = display.contentCenterX
+  background.y = display.contentCenterY
+  localGroup:insert(background)
+
+  -- Title
+  local title = display.newText("Touch to go back", 0, 0, native.systemFontBold, 16)
+  title:setTextColor( 255,255,255)
+  title.x = display.contentCenterX
+  title.y = display.contentCenterY
+  title.name = "title"
+  localGroup:insert(title)
+
+  -- Touch to go back
+  local function touched ( event )
+    if ("ended" == event.phase) then
+      director:changeScene("menu","fade")
+    end
+  end
+  background:addEventListener("touch",touched)
+
+  unloadMe = function()
+  end
+
+  -- MUST return a display.newGroup()
+  return localGroup
+end

data/lib/nakor/generators/corona-game-template/radlib.lua

@@ -0,0 +1,73 @@
+-- Rad's Library of awesome Lua functions to complement the awesome Corona SDK
+
+local M = {}
+M.io = {}
+M.table = {}
+
+require "json"
+
+local parseJson = function( filename )
+  local file = io.open( filename, "r" )
+  if file then
+    local contents = file:read( "*a" )
+    result = json.decode( contents )
+    io.close( file )
+    return result
+  else
+    return {}
+  end
+end
+M.io.parseJson = parseJson
+
+-- From: http://stackoverflow.com/questions/1283388/lua-merge-tables
+local tableMerge = function(t1, t2)
+  for k,v in pairs(t2) do
+    if type(v) == "table" then
+      if type(t1[k] or false) == "table" then
+        table.merge(t1[k] or {}, t2[k] or {})
+      else
+        t1[k] = v
+      end
+    else
+      t1[k] = v
+    end
+  end
+  return t1
+end
+M.table.merge = tableMerge
+
+-- Similar to Ruby's Enumerable#select
+-- Given an input table and a function, return only those rows where fx(row) returns true
+local tableFindAll = function( t, fx )
+  local result = {}
+  for i,v in ipairs(t) do
+    if fx(v) then
+      result[#result + 1] = v
+    end
+  end
+  return result
+end
+M.table.findAll = tableFindAll
+
+local tablePrint = function( t )
+  for i,v in pairs(t) do
+    if "table" == type(v) then
+      print(i .. " = [table]: ")
+      print("---")
+      table.print(v)
+      print("---")
+    else
+      print(i .. " = " .. v)
+    end
+  end
+end
+M.table.print = tablePrint
+
+local debug = function( msg )
+  native.showAlert("DEBUG", msg, {"OK"})
+end
+M.debug = debug
+
+return M
+
+

data/lib/nakor/generators/corona-game-template/settings.lua

@@ -0,0 +1,34 @@
+module(..., package.seeall)
+
+-- Main function - MUST return a display.newGroup()
+function new()
+  local localGroup = display.newGroup()
+
+  -- Background
+  local background = display.newImageRect("bk_default.png", 480, 320)
+  background.x = display.contentCenterX
+  background.y = display.contentCenterY
+  localGroup:insert(background)
+
+  -- Title
+  local title = display.newText("Touch to go back", 0, 0, native.systemFontBold, 16)
+  title:setTextColor( 255,255,255)
+  title.x = display.contentCenterX
+  title.y = display.contentCenterY
+  title.name = "title"
+  localGroup:insert(title)
+
+  -- Touch to go back
+  local function touched ( event )
+    if ("ended" == event.phase) then
+      director:changeScene("menu","fade")
+    end
+  end
+  background:addEventListener("touch",touched)
+
+  unloadMe = function()
+  end
+
+  -- MUST return a display.newGroup()
+  return localGroup
+end

data/lib/nakor/generators/corona-game-template/ui.lua

@@ -0,0 +1,318 @@
+-- ui.lua (currently includes Button class with labels, font selection and optional event model)
+
+-- Version 1.5 (works with multitouch, adds setText() method to buttons)
+--
+-- Copyright (C) 2010 ANSCA Inc. All Rights Reserved.
+--
+-- Permission is hereby granted, free of charge, to any person obtaining a copy of 
+-- this software and associated documentation files (the "Software"), to deal in the 
+-- Software without restriction, including without limitation the rights to use, copy, 
+-- modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, 
+-- and to permit persons to whom the Software is furnished to do so, subject to the 
+-- following conditions:
+-- 
+-- The above copyright notice and this permission notice shall be included in all copies 
+-- or substantial portions of the Software.
+-- 
+-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, 
+-- INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR 
+-- PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE 
+-- FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR 
+-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
+-- DEALINGS IN THE SOFTWARE.
+
+----------------------------------------------------
+-- Edited by William Flagello, williamflagello.com
+----------------------------------------------------
+-- Works with Dynamic Scaling.
+----------------------------------------------------
+
+-- 
+-- Abstract: Goshts Vs Monsters sample project 
+-- Designed and created by Jonathan and Biffy Beebe of Beebe Games exclusively for Ansca, Inc.
+-- http://beebegamesonline.appspot.com/
+
+-- (This is easiest to play on iPad or other large devices, but should work on all iOS and Android devices)
+-- 
+-- Version: 1.0
+-- 
+-- Sample code is MIT licensed, see http://developer.anscamobile.com/code/license
+-- Copyright (C) 2010 ANSCA Inc. All Rights Reserved.
+
+
+module(..., package.seeall)
+
+-----------------
+-- Helper function for newButton utility function below
+local function newButtonHandler( self, event )
+
+	local result = true
+
+	local default = self[1]
+	local over = self[2]
+	
+	-- General "onEvent" function overrides onPress and onRelease, if present
+	local onEvent = self._onEvent
+	
+	local onPress = self._onPress
+	local onRelease = self._onRelease
+
+	local buttonEvent = {}
+	if (self._id) then
+		buttonEvent.id = self._id
+	end
+
+	local phase = event.phase
+	if "began" == phase then
+		if over then 
+			default.isVisible = false
+			over.isVisible = true
+		end
+
+		if onEvent then
+			buttonEvent.phase = "press"
+			result = onEvent( buttonEvent )
+		elseif onPress then
+			result = onPress( event )
+		end
+
+		-- Subsequent touch events will target button even if they are outside the stageBounds of button
+		display.getCurrentStage():setFocus( self, event.id )
+		self.isFocus = true
+		
+	elseif self.isFocus then
+		local bounds = self.stageBounds
+		local x,y = event.x,event.y
+		local isWithinBounds = 
+			bounds.xMin <= x and bounds.xMax >= x and bounds.yMin <= y and bounds.yMax >= y
+
+		if "moved" == phase then
+			if over then
+				-- The rollover image should only be visible while the finger is within button's stageBounds
+				default.isVisible = not isWithinBounds
+				over.isVisible = isWithinBounds
+			end
+			
+		elseif "ended" == phase or "cancelled" == phase then 
+			if over then 
+				default.isVisible = true
+				over.isVisible = false
+			end
+			
+			if "ended" == phase then
+				-- Only consider this a "click" if the user lifts their finger inside button's stageBounds
+				if isWithinBounds then
+					if onEvent then
+						buttonEvent.phase = "release"
+						result = onEvent( buttonEvent )
+					elseif onRelease then
+						result = onRelease( event )
+					end
+				end
+			end
+			
+			-- Allow touch events to be sent normally to the objects they "hit"
+			display.getCurrentStage():setFocus( self, nil )
+			self.isFocus = false
+		end
+	end
+
+	return result
+end
+
+
+---------------
+-- Button class
+
+function newButton( params )
+	local button, defaultSrc , defaultX , defaultY , overSrc , overX , overY , size, font, textColor, offset
+	
+	if params.defaultSrc then
+		button = display.newGroup()
+		default = display.newImageRect ( params.defaultSrc , params.defaultX , params.defaultY )
+		button:insert( default, true )
+	end
+	
+	if params.overSrc then
+		over = display.newImageRect ( params.overSrc , params.overX , params.overY )
+		over.isVisible = false
+		button:insert( over, true )
+	end
+	
+	-- Public methods
+	function button:setText( newText )
+	
+		local labelText = self.text
+		if ( labelText ) then
+			labelText:removeSelf()
+			self.text = nil
+		end
+
+		local labelShadow = self.shadow
+		if ( labelShadow ) then
+			labelShadow:removeSelf()
+			self.shadow = nil
+		end
+
+		local labelHighlight = self.highlight
+		if ( labelHighlight ) then
+			labelHighlight:removeSelf()
+			self.highlight = nil
+		end
+		
+		if ( params.size and type(params.size) == "number" ) then size=params.size else size=20 end
+		if ( params.font ) then font=params.font else font=native.systemFontBold end
+		if ( params.textColor ) then textColor=params.textColor else textColor={ 255, 255, 255, 255 } end
+		
+		size = size * 2
+		
+		-- Optional vertical correction for fonts with unusual baselines (I'm looking at you, Zapfino)
+		if ( params.offset and type(params.offset) == "number" ) then offset=params.offset else offset = 0 end
+		
+		if ( params.emboss ) then
+			-- Make the label text look "embossed" (also adjusts effect for textColor brightness)
+			local textBrightness = ( textColor[1] + textColor[2] + textColor[3] ) / 3
+			
+			labelHighlight = display.newText( newText, 0, 0, font, size )
+			if ( textBrightness > 127) then
+				labelHighlight:setTextColor( 255, 255, 255, 20 )
+			else
+				labelHighlight:setTextColor( 255, 255, 255, 140 )
+			end
+			button:insert( labelHighlight, true )
+			labelHighlight.x = labelHighlight.x + 1.5; labelHighlight.y = labelHighlight.y + 1.5 + offset
+			self.highlight = labelHighlight
+
+			labelShadow = display.newText( newText, 0, 0, font, size )
+			if ( textBrightness > 127) then
+				labelShadow:setTextColor( 0, 0, 0, 128 )
+			else
+				labelShadow:setTextColor( 0, 0, 0, 20 )
+			end
+			button:insert( labelShadow, true )
+			labelShadow.x = labelShadow.x - 1; labelShadow.y = labelShadow.y - 1 + offset
+			self.shadow = labelShadow
+			
+			labelHighlight.xScale = .5; labelHighlight.yScale = .5
+			labelShadow.xScale = .5; labelShadow.yScale = .5
+		end
+		
+		labelText = display.newText( newText, 0, 0, font, size )
+		labelText:setTextColor( textColor[1], textColor[2], textColor[3], textColor[4] )
+		button:insert( labelText, true )
+		labelText.y = labelText.y + offset
+		self.text = labelText
+		
+		labelText.xScale = .5; labelText.yScale = .5
+	end
+	
+	if params.text then
+		button:setText( params.text )
+	end
+	
+	if ( params.onPress and ( type(params.onPress) == "function" ) ) then
+		button._onPress = params.onPress
+	end
+	if ( params.onRelease and ( type(params.onRelease) == "function" ) ) then
+		button._onRelease = params.onRelease
+	end
+	
+	if (params.onEvent and ( type(params.onEvent) == "function" ) ) then
+		button._onEvent = params.onEvent
+	end
+	
+	-- set button to active (meaning, can be pushed)
+	button.isActive = true
+	
+	-- Set button as a table listener by setting a table method and adding the button as its own table listener for "touch" events
+	button.touch = newButtonHandler
+	button:addEventListener( "touch", button )
+
+	if params.x then
+		button.x = params.x
+	end
+	
+	if params.y then
+		button.y = params.y
+	end
+	
+	if params.id then
+		button._id = params.id
+	end
+
+	return button
+end
+
+
+--------------
+-- Label class
+
+function newLabel( params )
+	local labelText
+	local size, font, textColor, align
+	local t = display.newGroup()
+	
+	if ( params.bounds ) then
+		local bounds = params.bounds
+		local left = bounds[1]
+		local top = bounds[2]
+		local width = bounds[3]
+		local height = bounds[4]
+	
+		if ( params.size and type(params.size) == "number" ) then size=params.size else size=20 end
+		if ( params.font ) then font=params.font else font=native.systemFontBold end
+		if ( params.textColor ) then textColor=params.textColor else textColor={ 255, 255, 255, 255 } end
+		if ( params.offset and type(params.offset) == "number" ) then offset=params.offset else offset = 0 end
+		if ( params.align ) then align = params.align else align = "center" end
+		
+		if ( params.text ) then
+			labelText = display.newText( params.text, 0, 0, font, size )
+			labelText:setTextColor( textColor[1], textColor[2], textColor[3], textColor[4] )
+			t:insert( labelText )
+			-- TODO: handle no-initial-text case by creating a field with an empty string?
+	
+			if ( align == "left" ) then
+				labelText.x = left + labelText.stageWidth * 0.5
+			elseif ( align == "right" ) then
+				labelText.x = (left + width) - labelText.stageWidth * 0.5
+			else
+				labelText.x = ((2 * left) + width) * 0.5
+			end
+		end
+		
+		labelText.y = top + labelText.stageHeight * 0.5
+
+		-- Public methods
+		function t:setText( newText )
+			if ( newText ) then
+				labelText.text = newText
+				
+				if ( "left" == align ) then
+					labelText.x = left + labelText.stageWidth / 2
+				elseif ( "right" == align ) then
+					labelText.x = (left + width) - labelText.stageWidth / 2
+				else
+					labelText.x = ((2 * left) + width) / 2
+				end
+			end
+		end
+		
+		function t:setTextColor( r, g, b, a )
+			local newR = 255
+			local newG = 255
+			local newB = 255
+			local newA = 255
+
+			if ( r and type(r) == "number" ) then newR = r end
+			if ( g and type(g) == "number" ) then newG = g end
+			if ( b and type(b) == "number" ) then newB = b end
+			if ( a and type(a) == "number" ) then newA = a end
+
+			labelText:setTextColor( r, g, b, a )
+		end
+	end
+	
+	-- Return instance (as display group)
+	return t
+	
+end