diff --git a/run src.bat b/run src.bat new file mode 100644 index 0000000..09ca3e0 --- /dev/null +++ b/run src.bat @@ -0,0 +1,2 @@ +@ECHO OFF +"C:\Program Files\LOVE\love.exe" "%cd%\src" diff --git a/src/Card.lua b/src/Card.lua new file mode 100644 index 0000000..8f00695 --- /dev/null +++ b/src/Card.lua @@ -0,0 +1,48 @@ +local set = setmetatable +local lg = love.graphics + +local Card = {} + +function Card.initialize(suit, rank) + local self = {} + + self.suit = suit or "!" + self.rank = rank or "#" + self.x = 0 + self.y = 0 + self.r = 0 + self.face = "down" --or "up" + + set(self, {__index = Card}) + return self +end + +function Card:draw(face, x, y, r) + if not face then face = self.face end + if not x then x = self.x end + if not y then y = self.y end + if not r then r = self.r end + + lg.translate(x, y) + lg.rotate(r) + lg.translate(x, y) + --TODO if Joker, no suit! + lg.print(self.rank .. " of " .. self.suit) +end + +function Card:moveTo(x, y, r) + self.x = x or self.x + self.y = y or self.y + self.r = r or self.r +end + +function Card:flip() + if self.face == "down" then + self.face = "up" + else + self.face = "down" + end +end + +set(Card, {__call = Card.initialize}) +return Card diff --git a/src/Deck.lua b/src/Deck.lua new file mode 100644 index 0000000..9852f6a --- /dev/null +++ b/src/Deck.lua @@ -0,0 +1,87 @@ +local set = setmetatable +local insert = table.insert +local remove = table.remove +local random = math.random +local floor = math.floor +local lg = love.graphics + +local Deck = {} + +local inspect = require "lib.inspect" --NOTE DEBUG + +function Deck.initialize(cards) + local self = {} + + print(inspect(cards)) --NOTE DEBUG + self.cards = cards or {} + self.x = 0 + self.y = 0 + self.r = 0 + self.face = "down" --or "up" + + set(self, {__index = Deck}) + return self +end + +function Deck:draw() + local thickness = floor(#self.cards / 3) + print(inspect(self.cards)) --NOTE DEBUG + self.cards[#self.cards]:draw(self.face, self.x, self.y, self.r) + + --TODO draw the extra lines +end + +function Deck:moveTo(x, y, r) + self.x = x or self.x + self.y = y or self.y + self.r = r or self.r +end + +function Deck:shuffleCards() + local new = {} + + while #self.cards > 0 do + insert(new, remove(self.cards, random(1, #self.cards))) + end + + self.cards = new +end + +function Deck:drawCards(count) + if count and (count > 1) then + local new = {} + + while (count > 1) and (#self.cards > 1) do + insert(new, remove(self.cards)) + end + + return Deck(new) + else + return remove(self.cards) + end +end + +--on top of deck +function Deck:placeCardsOn(cards) + if type(cards) == "table" then + for _, card in ipairs(cards) do + insert(self.cards, card) + end + else + insert(self.cards, cards) + end +end + +--on bottom of deck +function Deck:placeCardsUnder(cards) + if type(cards) == "table" then + for _, card in ipairs(cards) do + insert(self.cards, card, 1) + end + else + insert(self.cards, cards, 1) + end +end + +set(Deck, {__call = Deck.initialize}) +return Deck diff --git a/src/conf.lua b/src/conf.lua new file mode 100644 index 0000000..ed9d1dc --- /dev/null +++ b/src/conf.lua @@ -0,0 +1,3 @@ +function love.conf(t) + t.console = true +end diff --git a/src/lib/inspect.lua b/src/lib/inspect.lua new file mode 100644 index 0000000..983b02e --- /dev/null +++ b/src/lib/inspect.lua @@ -0,0 +1,330 @@ +local inspect ={ + _VERSION = 'inspect.lua 3.0.2', + _URL = 'http://github.com/kikito/inspect.lua', + _DESCRIPTION = 'human-readable representations of tables', + _LICENSE = [[ + MIT LICENSE + + Copyright (c) 2013 Enrique García Cota + + 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. + ]] +} + +inspect.KEY = setmetatable({}, {__tostring = function() return 'inspect.KEY' end}) +inspect.METATABLE = setmetatable({}, {__tostring = function() return 'inspect.METATABLE' end}) + +-- returns the length of a table, ignoring __len (if it exists) +local rawlen = _G.rawlen or function(t) return #t end + +-- Apostrophizes the string if it has quotes, but not aphostrophes +-- Otherwise, it returns a regular quoted string +local function smartQuote(str) + if str:match('"') and not str:match("'") then + return "'" .. str .. "'" + end + return '"' .. str:gsub('"', '\\"') .. '"' +end + +local controlCharsTranslation = { + ["\a"] = "\\a", ["\b"] = "\\b", ["\f"] = "\\f", ["\n"] = "\\n", + ["\r"] = "\\r", ["\t"] = "\\t", ["\v"] = "\\v" +} + +local function escape(str) + local result = str:gsub("\\", "\\\\"):gsub("(%c)", controlCharsTranslation) + return result +end + +local function isIdentifier(str) + return type(str) == 'string' and str:match( "^[_%a][_%a%d]*$" ) +end + +local function isSequenceKey(k, length) + return type(k) == 'number' + and 1 <= k + and k <= length + and math.floor(k) == k +end + +local defaultTypeOrders = { + ['number'] = 1, ['boolean'] = 2, ['string'] = 3, ['table'] = 4, + ['function'] = 5, ['userdata'] = 6, ['thread'] = 7 +} + +local function sortKeys(a, b) + local ta, tb = type(a), type(b) + + -- strings and numbers are sorted numerically/alphabetically + if ta == tb and (ta == 'string' or ta == 'number') then return a < b end + + local dta, dtb = defaultTypeOrders[ta], defaultTypeOrders[tb] + -- Two default types are compared according to the defaultTypeOrders table + if dta and dtb then return defaultTypeOrders[ta] < defaultTypeOrders[tb] + elseif dta then return true -- default types before custom ones + elseif dtb then return false -- custom types after default ones + end + + -- custom types are sorted out alphabetically + return ta < tb +end + +local function getNonSequentialKeys(t) + local keys, length = {}, rawlen(t) + for k,_ in pairs(t) do + if not isSequenceKey(k, length) then table.insert(keys, k) end + end + table.sort(keys, sortKeys) + return keys +end + +local function getToStringResultSafely(t, mt) + local __tostring = type(mt) == 'table' and rawget(mt, '__tostring') + local str, ok + if type(__tostring) == 'function' then + ok, str = pcall(__tostring, t) + str = ok and str or 'error: ' .. tostring(str) + end + if type(str) == 'string' and #str > 0 then return str end +end + +local maxIdsMetaTable = { + __index = function(self, typeName) + rawset(self, typeName, 0) + return 0 + end +} + +local idsMetaTable = { + __index = function (self, typeName) + local col = {} + rawset(self, typeName, col) + return col + end +} + +local function countTableAppearances(t, tableAppearances) + tableAppearances = tableAppearances or {} + + if type(t) == 'table' then + if not tableAppearances[t] then + tableAppearances[t] = 1 + for k,v in pairs(t) do + countTableAppearances(k, tableAppearances) + countTableAppearances(v, tableAppearances) + end + countTableAppearances(getmetatable(t), tableAppearances) + else + tableAppearances[t] = tableAppearances[t] + 1 + end + end + + return tableAppearances +end + +local copySequence = function(s) + local copy, len = {}, #s + for i=1, len do copy[i] = s[i] end + return copy, len +end + +local function makePath(path, ...) + local keys = {...} + local newPath, len = copySequence(path) + for i=1, #keys do + newPath[len + i] = keys[i] + end + return newPath +end + +local function processRecursive(process, item, path) + if item == nil then return nil end + + local processed = process(item, path) + if type(processed) == 'table' then + local processedCopy = {} + local processedKey + + for k,v in pairs(processed) do + processedKey = processRecursive(process, k, makePath(path, k, inspect.KEY)) + if processedKey ~= nil then + processedCopy[processedKey] = processRecursive(process, v, makePath(path, processedKey)) + end + end + + local mt = processRecursive(process, getmetatable(processed), makePath(path, inspect.METATABLE)) + setmetatable(processedCopy, mt) + processed = processedCopy + end + return processed +end + + +------------------------------------------------------------------- + +local Inspector = {} +local Inspector_mt = {__index = Inspector} + +function Inspector:puts(...) + local args = {...} + local buffer = self.buffer + local len = #buffer + for i=1, #args do + len = len + 1 + buffer[len] = tostring(args[i]) + end +end + +function Inspector:down(f) + self.level = self.level + 1 + f() + self.level = self.level - 1 +end + +function Inspector:tabify() + self:puts(self.newline, string.rep(self.indent, self.level)) +end + +function Inspector:alreadyVisited(v) + return self.ids[type(v)][v] ~= nil +end + +function Inspector:getId(v) + local tv = type(v) + local id = self.ids[tv][v] + if not id then + id = self.maxIds[tv] + 1 + self.maxIds[tv] = id + self.ids[tv][v] = id + end + return id +end + +function Inspector:putKey(k) + if isIdentifier(k) then return self:puts(k) end + self:puts("[") + self:putValue(k) + self:puts("]") +end + +function Inspector:putTable(t) + if t == inspect.KEY or t == inspect.METATABLE then + self:puts(tostring(t)) + elseif self:alreadyVisited(t) then + self:puts('