Mobile Application Development | Another local score framework

Share Your Code

Browse Code

All (907)

Animation

(94)
Data

(85)
Events

(44)
Flash ActionScript

(4)
Game and App Templates

(42)
Game Logic

(137)
Menus

(21)
Network

(41)
Social

(13)
Tutorial

(65)
User Interface

(151)
Utilities

(210)

Another local score framework

Posted by MikeHart, Posted on May 16, 2010, Last updated October 7, 2010

A local score framework.

Suggestions and critics are welcome. To use this in your game, you have 7 easy functions that will interface with:

-- Create a new scorelist. This has to be done ALWAYS before you load one
scList = score.newList(numberOfEntries)
 
-- Load the scorelist from a given filename
scList:Load(scoreFileName)
 
-- Save the scorelist to a given filename
scList:Save(scoreFileName)
 
-- Check if a points value is inside the highscore list, and if yes return the index. 
-- It will return 0 if it isn't inside the list
index = scList:CheckScore(points)
 
-- Store a new score at the given index with the point value and a name
scList:StoreEntry(index,points,name)
 
-- Return the name at a given index
scoreName = scList:GetName(index)
 
-- Return the point value at a given index
scorePoints = scList:GetPoints(index)

Here is the score.lua file. It uses the JSON lib from this place:

http://www.chipmunkav.com/downloads/otherdownloads.htm

-- score.lua 
-- Author Michael Hartlef
-- Version 1.0
-- License: MIT
 
module(..., package.seeall)
Json = require("Json")
 
 
--****************************************************************
function newList(hsnum)
--****************************************************************
        scoreList = {}
        scoreList.entrycount = hsnum
        scoreList.list = {}
        local i = 0
        for i = hsnum,1,-1 do
                local ts = {}
                ts.name = "---"
                ts.points = 0
                table.insert(scoreList.list, ts)
        end
        
        
        --****************************************************************
        function scoreList:Load(fn)
        --****************************************************************
                local path = system.pathForFile( fn, system.DocumentsDirectory )
                -- io.open opens a file at path. returns nil if no file found
                local file = io.open( path, "r" )
                if file then
                        -- read all contents of file into a string
                        local contents = file:read( "*a" )
                        scoreList.list = Json.Decode(contents);
                        scoreList.entrycount = #scoreList.list
                        io.close( file )
                end
        end
        
        --****************************************************************
        function scoreList:Save(fn)
        --****************************************************************
                local path = system.pathForFile( fn, system.DocumentsDirectory )
                local file = io.open( path, "w" )
                if file then
                        local contents = Json.Encode(scoreList.list)
                        file:write( contents )
                        io.close( file )
                end
        end
        
        
        --****************************************************************
        function scoreList:CheckScore(p)
        --****************************************************************
                print ("#scoreList.list:"..#scoreList.list)
                local i = 0
                for i = 1,#scoreList.list,1 do
                        local ts = scoreList.list[i]
                        if ts.points < p then
                                return i
                        end
                end
                return 0
        end
        
        --****************************************************************
        function scoreList:StoreEntry(index,points,name)
        --****************************************************************
                local ts = {}
                ts.name = name
                ts.points = points
                table.insert(scoreList.list, index, ts)
                table.remove(scoreList.list,(scoreList.entrycount+1))
        end
        
        --****************************************************************
        function scoreList:Count()
        --****************************************************************
                return scoreList.entrycount
        end
        
        --****************************************************************
        function scoreList:GetName(i)
        --****************************************************************
                local ts = scoreList.list[i]
                return ts.name
        end
        
        --****************************************************************
        function scoreList:GetPoints(i)
        --****************************************************************
                local ts = scoreList.list[i]
                return ts.points
        end
        
        return scoreList
end

Ok, that's it. I hope you like it.

Cheers
Michael

Compatibility:

Corona 2.0

Type:
- Game Logic
Tags:
- game logic,
- scores

Replies

Posted on Wed, 2010-10-13 02:43

amigoni

Offline

Test Driver

Joined: 12 Aug 2010

Do I have to require the file as a module? It can't find it.

Posted on Wed, 2010-10-13 02:47

amigoni

Offline

Test Driver

Joined: 12 Aug 2010

Nevermind. I was missing quotes for string.

Posted on Thu, 2010-10-28 08:41

reazle

Offline

Test Driver

Joined: 25 Oct 2010

I've made a topic with a sample code using this this framework because I got a problem when I build the project.
it's here : http://developer.anscamobile.com/forum/2010/10/28/best-score-sample-project-work

Posted on Mon, 2010-12-06 13:13

mediakitchen

Offline

Test Driver

Joined: 27 Jul 2010

Thanks for sharing this Mike

If I want to use this with the Director Class, can you advise me how to make the functions available in all screens? Do I need to declare some globals in main.lua or is it possible without globals?

Any help appreciated

Thanks

Paul

Posted on Wed, 2011-01-19 03:10

amigoni

Offline

Test Driver

Joined: 12 Aug 2010

Hi Mike thanks for the code. I am having an issue with storing scores. Instead of the scores being updated they are saved at a different location in the table.

I created an scList of 1000 and only using about 50 of them now scattered around. When I save it just saves to a different spot than indicated. I can't figure out if it's a store issue or a save issue.

Posted on Wed, 2011-01-19 03:20

amigoni

Offline

Test Driver

Joined: 12 Aug 2010

Ok figured out the issue. It's in the remove function in the storing part. Before it removed the last entry instead of the entry after the one you just made.

I modified the code as shown below

function scoreList:StoreEntry(index,points,name)
        --****************************************************************
                        local ts = {}
                        ts.name = name
                        ts.points = points
                        table.insert(scoreList.list, index, ts)
                        table.remove(scoreList.list,(index+1)) -- this was scoreList.entrycount +1
        end

Posted on Sat, 2011-02-19 10:02

mdcapps

Offline