TI-nspire Hold 'em - Basic and Lua

[Jonius7]

Hi,

When I got the TI-nspire Clickpad in 2010, there was one game that I started developing in May, before anything else...
This game has 2400+ downloads on ticalc.org... is my most completed TI-nspire Basic game... certainly my most well known (expect for possibly Health Bar )...
Considering I had topics for my other (incomplete and possibly stalled) projects, I did not have a topic for my best game:

(Jason's) TI-nspire Holdem! (click for ticalc.org link!)

I have decided to create this long overdue topic to post on past and current progresses in this game!
This project has a bright future, where I have (mostly) finished with the Basic version, it has great potential for a great graphical Lua game!


I must also say that this program was originally based on Matt Oslan's poker dealer game (which is was the most downloaded TI-nspire Basic Game )
However it has evolved and is now completely different, possibly using 90% now using 98% of my own code.

In my latest version yet to be released I have made huge optimisations in cuttting down some programs from 157 lines of code to just 3 315 lines to 5 and 472 lines to 7 by adding a list somewhere in another program linked to it.

My focus now is shifting development to adding detection of poker hands (determining whether you have a royal flush or a pair for eg) and AI. With Lua I can also develop a graphical interface too!

This topic will have it all. (well maybe not). I need to make another announcement about my (new) website too. http://www.tistadium.co.cc (which is currently down and gone :O)

Latest BASIC version: v1.2.4

[ElementCoder]

Lua sounds great! I'll definitely want to see that happen. 
Seeing how you improved your code, let's say it sounds very familiar Especially with my current project

P.S. Your list of programs in your stadium seems interesting. Is there a possibility I could have a look at the source/get all of em?

[Jonius7]

Lua sounds great! I'll definitely want to see that happen. 
Seeing how you improved your code, let's say it sounds very familiar Especially with my current project

P.S. Your list of programs in your stadium seems interesting. Is there a possibility I could have a look at the source/get all of em?

It sounds very familiar? To what? I did create this game waaaay back in May 2010

Yes ElementCoder I have thought about releasing the source code and stuff. I have already released a whole rar file with most of my project in there in my General Projects Topic
www.omnimaga.org/index.php?topic=12865.0

[ElementCoder]

It sounds very familiar? To what?

I mean reducing many lines of code into just a few lines. (say 300 to 20 becuase loops are more useful )

[AzNg0d1030]

Jonius7, would you mind posting a screenie?

[Jonius7]

Oh sorry I attached that quickly. All info is on the ticalc.org upload with some nice screenies!
http://www.ticalc.org/archives/files/fileinfo/430/43059.html

[Jonius7]

Jason's TI-nspire Hold 'em has reached 3000 downloads!
http://www.ticalc.org/archives/files/fileinfo/430/43059.html

I shall soon be uploading a 'master' plan for my intentions of taking this game to a whole new level.

[AzNg0d1030]

Jason's TI-nspire Hold 'em has reached 3000 downloads!
http://www.ticalc.org/archives/files/fileinfo/430/43059.html

I shall soon be uploading a 'master' plan for my intentions of taking this game to a whole new level.

Congrats and good job! (from customer)

[blfngl]

Ooooh I was gonna make that but nice job!

[Jonius7]

As I said there is a poker dealer game out there already from Matt Oslan (it is the most downloaded TI-nspire Game on ticalc.org ) but I decided that it just wasn't good enough. Over time I have recoded pretty much every part of the program so it is my program now pretty much.

I need to get more familiar with Lua first, but here is a general progression plan (not restricted to language)

1. Determine what type of hand a player has.
This is quite an essential step in figuring out the poker hand rankings and where it stands. I have partially tried to do this and I have an idea (convert cards to number values in a matrix or list and compare values directly) More details later

2. Able to compare hands and determine the winner of a player
Previous point must be completed.

3. Begin a simple Computer AI that can compare hands and (possibly?) play for itself
After the program can determine poker hands, an AI can then be programmed in.

4. Add in more than 2 players
This will increase the complexity and I will have to reprogram some 2 player specific elements for this to work.

5. More complex AI
Details include better detection and prediction at whether others have good hands, when to fold (eg: fold if too many players are completing), when to bluff. Generally I have to know a lot about how to play the game myself in order to be able to have AN IDEA how to program it.

EDIT: I shall put this in the first post eventually...

[Jonius7]

A few days (maybe a week) ago I went through TI-nspire Hold 'em and optimised and added some things. I was nearly going to call it v1.3 but currently it's v1.2.4. Most importantly, I fixed up the all-in bug where no matter what happens, one player loses all his/her chips and the game ends. Just deleting two lines of code where I had put 0 -> [variable] fixed it all up!

Putting this up on ticalc.org as soon as is reasonable for me to set this time aside.
http://www.ticalc.org/archives/files/fileinfo/430/43059.html

I've been thinking about a Lua version all the time, and I am still trying to think on how to progress on this. It will be slow progress but I also have limited time to keep to big picture of what I want the program to look like (clearly a much higher standard than the Basic version right now, [maybe I'm setting standards too high]), in order to stay focused.

[Jonius7]

Ok I have an extremely incomplete, buggy and almost not working start to my Lua version of TI-nspire Hold 'em. I have used the How to have a nice "input" function in Lua on inspired-lua.org for input into changing number values. After fiddling around and running it heaps of times correcting nightmarish easy and both more challenging bugs, I find one that looks like I have to rewrite 25-30% of what I have currently again. The input function creates strings, I tried to compare these strings to a number, resulting an error on line 67. So for the "input" function, looks like I'll actually have to make it somehow a number that can be user-changed, displayed and compared to other numbers.

I also need to know how you can do algebra in Lua. Oh wait, in TI-nspire Basic if you typed 0.5x (x being a variable) it would automatically put in the multiply symbol in. Looks like I have to do that in Lua also (* symbol), any other handy ways?

I hope some of this made sense, I'll come back later with some clarification if necessary.
Here is the code so far:

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

--[[TI-nspire Hold 'em - A Lua Remake History: v0.01 Created 2012/09/23 really started working 2012/10/07 Buggy can hardly do anything, currently can change Chips, Big Blind, Small Blind]]-- function init_variables() cc=0 bb=0 sb=0 gopt=1 scrn=1 end init_variables() function on.paint(gc)     gc:setFont("sansserif","r",10)     gc:setColorRGB(0,0,0) -- gc:setPen("thin","smooth")  Is this necessary? if scrn==1 then gc:drawString("[c] Chips        " .. cc,10,10,"top") gc:drawString("[b] Big Blind    " .. bb,10,25,"top") gc:drawString("[s] Small Blind  " .. sb,10,40,"top") gc:drawRect(10,70,20,20) elseif scrn==2 then gc:drawString("Right let's get rolling!",10,10,"top") end end function on.charIn(ch) if ch >= "0" and ch <= "9" then    -- checking for digit inputs if scrn==1 then if gopt==1 then if string.len(cc) <= 7 then   -- limit string length cc = cc .. ch            -- concatenate platform.window:invalidate()   -- screen refresh end elseif gopt==2 then if string.len(bb) <= 6 then -- and sb <= 0.1bb then   -- limit string length and bb to <= 0.1cc (now moved) bb = bb .. ch            -- concatenate platform.window:invalidate()   -- screen refresh end elseif gopt==3 then if string.len(sb) <= 6 then -- and sb <= 0.1bb then   -- limit string length and sb to <= 0.1bb (now moved) sb = sb .. ch            -- concatenate platform.window:invalidate()   -- screen refresh end end end end --Game settings keys if scrn==1 then if ch=="c" then     --Ok there must be a way to optimise this block gopt = 1    elseif ch=="b" then gopt = 2 elseif ch=="s" then gopt = 3 end platform.window:invalidate() end end function on.enterKey() if scrn==1 then if cc >= 100 and cc <= 10000000 and bb >= 0.001*cc and bb <= 0.1*cc and sb >= 0.01*bb and sb <= 0.5*bb then platform.gc():drawString("Congrats! Settings set up correctly",10,70,"top") scrn=2 gopt=0 else platform.gc():drawString("Check these conditions",10,70,"top") platform.gc():drawString("Chips between 100 and 10 million",10,85,"top") platform.gc():drawString("Big blind between 0.001 and 0.1 Chips",10,100,"top") platform.gc():drawString("Small blind between 0.01 and 0.5 Big Blind",10,115,"top") end end end function on.backspaceKey() if gopt==1 then     --Ok there must be a way to optimise this block. Again. cc = string.usub(cc,0,-2)  -- deleting last char     elseif gopt==2 then bb = string.usub(bb,0,-2)  -- deleting last char elseif gopt==3 then sb = string.usub(sb,0,-2)  -- deleting last char end     platform.window:invalidate()  end platform.window:invalidate()

It's a first and slow step. I could also do well to learn from my other Lua project, Numstrat.

PS: This took at least 1.5 hours, maybe 2. OMG how can it take so long!!!

[Jonius7]

No one? Maybe this'd be better suited in the Lua Language section.

[Rhombicuboctahedron]

Well, when I ran it with the script editor, pressing c, b and s works fine, as well as backspace and typing numbers, and not typing letters.
However, when I press enter, it just goes blank, instead of displaying congrats or the other four strings. I tried using some functions, such as var.recall or var.recallStr, that I thought should convert strings to values, like “0” to 0. That did not work.

In the end, I found the problem

plat form . gc ( )
Returns a dummy graphics context. It is typically used to measure pixel lengths and
heights of strings when a normal graphics context is not available. This may be the case
when creating new text elements when the script app is initialized. A graphics context
is available only during paint events, and that may be too late to create and size the
containers for text _elds.
This graphics context should not be used to draw graphics because it is not guaranteed to
be associated with a window.
Introduced in platform.apiLevel = "1.0"
Removed in platform.apiLevel = "2.0"

So, I was using level 2.0, and it also says not to use it for drawing graphics such as strings.
It may still work on OS 3.1, but if I’m not mistaken, I believe you changed to OS 3.2 in the OS compatibility post.

[Rhombicuboctahedron]

Okay, I changed it a little to get it to work, but a big problem was that you were trying to compare a number and a string.
However, I noticed that if you multiply the string of a number by one, it makes it that number.
Also, I moved the congrats and correcting strings into the function on.paint(gc) section
My changes are probably w=quite ugly and inefficient, but it gets all the way to the “lets get rolling” string

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105

--[[TI-nspire Hold 'em - A Lua Remake History: v0.01 Created 2012/09/23 really started working 2012/10/07 Buggy can hardly do anything, currently can change Chips, Big Blind, Small Blind]]-- function init_variables()   cc=0   bb=0   sb=0   gopt=1   scrn=1   message="" end init_variables()    function on.paint(gc)     gc:setFont("sansserif","r",10)     gc:setColorRGB(0,0,0)   -- gc:setPen("thin","smooth")  Is this necessary?   if scrn==1 then    gc:drawString("[c] Chips        " .. cc,10,10,"top")    gc:drawString("[b] Big Blind    " .. bb,10,25,"top")    gc:drawString("[s] Small Blind  " .. sb,10,40,"top")    gc:drawRect(10,70,20,20)    if message=="wrong" then        gc:drawString("Check these conditions",10,70,"top")     gc:drawString("Chips between 100 and 10 million",10,85,"top")     gc:drawString("Big blind between 0.001 and 0.1 Chips",10,100,"top")     gc:drawString("Small blind between 0.01 and 0.5 Big Blind",10,115,"top")     end   elseif scrn==3 then    gc:drawString("Right let's get rolling!",10,10,"top")   end   if scrn==2 then    if message=="congrats" then     gc:drawString("Congrats! Settings set up correctly",10,70,"top")    end    end  end function on.charIn(ch)   if ch >= "0" and ch <= "9" then    -- checking for digit inputs    if scrn==1 then     if gopt==1 then      if string.len(cc) <= 7 then   -- limit string length       cc = cc .. ch            -- concatenate       platform.window:invalidate()   -- screen refresh      end     elseif gopt==2 then      if string.len(bb) <= 6 then -- and sb <= 0.1bb then   -- limit string length and bb to <= 0.1cc (now moved)       bb = bb .. ch            -- concatenate       platform.window:invalidate()   -- screen refresh      end     elseif gopt==3 then      if string.len(sb) <= 6 then -- and sb <= 0.1bb then   -- limit string length and sb to <= 0.1bb (now moved)       sb = sb .. ch            -- concatenate       platform.window:invalidate()   -- screen refresh      end     end    end   end --Game settings keys   if scrn==1 then    if ch=="c" then     --Ok there must be a way to optimise this block     gopt = 1      elseif ch=="b" then     gopt = 2    elseif ch=="s" then     gopt = 3    end    platform.window:invalidate()   end end function on.enterKey() cc=1*cc bb=1*bb sb=1*sb   if scrn==2 then    scrn=3   end   if scrn==1 and cc >= 100 and cc <= 10000000 and bb >= 0.001*cc and bb <= 0.1*cc and sb >= 0.01*bb and sb <= 0.5*bb then     message="congrats"     scrn=2     gopt=0    else     message="wrong"    end     end function on.backspaceKey()   if gopt==1 then     --Ok there must be a way to optimise this block. Again.    cc = string.usub(cc,0,-2)  -- deleting last char     elseif gopt==2 then    bb = string.usub(bb,0,-2)  -- deleting last char  elseif gopt==3 then    sb = string.usub(sb,0,-2)  -- deleting last char  end     platform.window:invalidate()  end platform.window:invalidate()