English flag   Dansk (danish) flag     (12:45 GMT)
 
Username   Password  

BankrollMob Christmas logo  
Free no deposit poker bonuses Reviews Bankrolls - Free No Deposit Offers Poker Forum News: Poker, Casino, Betting & Bingo Sport Bets Poker Freerolls & Tournaments Xmas Offers Support & FAQ
transparent separator

BankrollMob Forum

BankrollMob Forum » Off-Topic » poker program

New Thread Forums Search Subscriptions Bookmarks

  17-Jul-12, 06:26   #1
poker program 0 
takingdrugs 

Joined: Nov '11
Location: United Kingdom
Age: 33 (M)
Posts: 744
right ive started messing about making a poker game, its still in the early stages (a few hours of coding) but its a work in progress, dont know how many mobsters will care about it but its in a standard basic code at the moment and im developing it on dark basic so far it can shuffle a deck and deal to a selected range of players for holdem and omaha next job is hand ranking (so it identifies the best hand)
code:




cls
dim deck(52)
dim cards$(10,9)

menu:
input "game type 1= holdem 2 = omaha 3 = stud(6 max) : ", gametype
input "limit 1= no limit 2 = pot limit 3 = fixed limit : ", limit
if limit < 1 or limit > 3 then goto menu
if gametype < 1 or gametype > 3 then goto menu

print "dealing"
if gametype = 1 then deal(10,1)
if gametype = 2 then deal(10,2)
if gametype = 3 then deal(6,3)

for a=1 to 10
print a
showholecards(a,gametype)
next a


wait key
if gametype=1 or gametype=2 then print "dealing flop"
if gametype=1 or gametype=2 then print cards$(1,5) + " "+cards$(1,6) + " "+cards$(1,7) + " "
wait key
if gametype=1 or gametype=2 then print "dealing turn"
if gametype=1 or gametype=2 then print cards$(1,8)
wait key
if gametype=1 or gametype=2 then print "dealing river"
if gametype=1 or gametype=2 then print cards$(1,9)
wait key



do
if escapekey()=1 then end
loop


function deal(players,gametype)
shuffledeck()

if gametype < 3 then a$ = getcard()
if gametype < 3 then b$ = getcard()
if gametype < 3 then c$ = getcard()
if gametype < 3 then d$ = getcard()
if gametype < 3 then e$ = getcard()
for a= 1 to players
cards$(a,5 )= a$
cards$(a,6 )= b$
cards$(a,7 )= c$
cards$(a,8 )= d$
cards$(a,9 )= e$
cards$(a,1 )= getcard()
cards$(a,2 )= getcard()
if gametype=2 then cards$(a,3)= getcard()
if gametype=2 then cards$(a,4)= getcard()
if gametype=3 then cards$(a,3)= getcard()
if gametype=3 then cards$(a,4)= getcard()
if gametype=3 then cards$(a,5)= getcard()
next a
endfunction

function getcard()
`c = 99
if deck(0) < 53 then inc deck(0)
if deck(0) = 53 then card$ = "empty"
if deck(0) < 53 then c = deck(deck(0))
if deck(0) = 53 then goto skippy
if deck(deck(0)) = 0 then card$ = "2h"
if deck(deck(0)) = 1 then card$ = "3h"
if deck(deck(0)) = 2 then card$ = "4h"
if deck(deck(0)) = 3 then card$ = "5h"
if deck(deck(0)) = 4 then card$ = "6h"
if deck(deck(0)) = 5 then card$ = "7h"
if deck(deck(0)) = 6 then card$ = "8h"
if deck(deck(0)) = 7 then card$ = "9h"
if deck(deck(0)) = 8 then card$ = "th"
if deck(deck(0)) = 9 then card$ = "jh"
if deck(deck(0)) = 10 then card$ = "qh"
if deck(deck(0)) = 11 then card$ = "kh"
if deck(deck(0)) = 12 then card$ = "ah"
if deck(deck(0)) = 13 then card$ = "2d"
if deck(deck(0)) = 14 then card$ = "3d"
if deck(deck(0)) = 15 then card$ = "4d"
if deck(deck(0)) = 16 then card$ = "5d"
if deck(deck(0)) = 17 then card$ = "6d"
if deck(deck(0)) = 18 then card$ = "7d"
if deck(deck(0)) = 19 then card$ = "8d"
if deck(deck(0)) = 20 then card$ = "9d"
if deck(deck(0)) = 21 then card$ = "td"
if deck(deck(0)) = 22 then card$ = "jd"
if deck(deck(0)) = 23 then card$ = "qd"
if deck(deck(0)) = 24 then card$ = "kd"
if deck(deck(0)) = 25 then card$ = "ad"
if deck(deck(0)) = 26 then card$ = "2c"
if deck(deck(0)) = 27 then card$ = "3c"
if deck(deck(0)) = 28 then card$ = "4c"
if deck(deck(0)) = 29 then card$ = "5c"
if deck(deck(0)) = 30 then card$ = "6c"
if deck(deck(0)) = 31 then card$ = "7c"
if deck(deck(0)) = 32 then card$ = "8c"
if deck(deck(0)) = 33 then card$ = "9c"
if deck(deck(0)) = 34 then card$ = "tc"
if deck(deck(0)) = 35 then card$ = "jc"
if deck(deck(0)) = 36 then card$ = "qc"
if deck(deck(0)) = 37 then card$ = "kc"
if deck(deck(0)) = 38 then card$ = "ac"
if deck(deck(0)) = 39 then card$ = "2s"
if deck(deck(0)) = 40 then card$ = "3s"
if deck(deck(0)) = 41 then card$ = "4s"
if deck(deck(0)) = 42 then card$ = "5s"
if deck(deck(0)) = 43 then card$ = "6s"
if deck(deck(0)) = 44 then card$ = "7s"
if deck(deck(0)) = 45 then card$ = "8s"
if deck(deck(0)) = 46 then card$ = "9s"
if deck(deck(0)) = 47 then card$ = "ts"
if deck(deck(0)) = 48 then card$ = "js"
if deck(deck(0)) = 49 then card$ = "qs"
if deck(deck(0)) = 50 then card$ = "ks"
if deck(deck(0)) = 51 then card$ = "as"
skippy:
endfunction (card$)

function shuffledeck()
deck(0) = 0
deck(1) = 222
deck(51) = 222
randomize timer()
for a = 1 to 52
d = 0
repeat
c= rnd(51)
d=1
for b= 1 to a-1
if c = deck(b) then d=0
next b
until d = 1
deck(a)= c
next a
endfunction

function showholecards(player,gametype)
if gametype=1 then print cards$(player,1) + " " +cards$(player,2)
if gametype=2 then print cards$(player,1) + " " +cards$(player,2)+ " " +cards$(player,3)+ " " +cards$(player,4)
if gametype=3 then print cards$(player,1) + " " +cards$(player,2)+ " " +cards$(player,3)+ " " +cards$(player,4)+ " " +cards$(player,5)
endfunction

function checkhand(player)
` work in progress
endfunction

     
  17-Jul-12, 06:48   #2
  0 
jessthehuman 

Joined: Apr '09
Location: Australia
Age: 32 (M)
Posts: 6441
Ugh, basic is a pretty horrid language, do you know any others? Something OO is much better IMHO..

Also, this:

function getcard()
`c = 99
if deck(0) < 53 then inc deck(0)
if deck(0) = 53 then card$ = "empty"
if deck(0) < 53 then c = deck(deck(0))
if deck(0) = 53 then goto skippy
if deck(deck(0)) = 0 then card$ = "2h"
if deck(deck(0)) = 1 then card$ = "3h"
if deck(deck(0)) = 2 then card$ = "4h"
if deck(deck(0)) = 3 then card$ = "5h"
if deck(deck(0)) = 4 then card$ = "6h"
if deck(deck(0)) = 5 then card$ = "7h"
if deck(deck(0)) = 6 then card$ = "8h"
if deck(deck(0)) = 7 then card$ = "9h"
if deck(deck(0)) = 8 then card$ = "th"
if deck(deck(0)) = 9 then card$ = "jh"
if deck(deck(0)) = 10 then card$ = "qh"
if deck(deck(0)) = 11 then card$ = "kh"
if deck(deck(0)) = 12 then card$ = "ah"
if deck(deck(0)) = 13 then card$ = "2d"
if deck(deck(0)) = 14 then card$ = "3d"
if deck(deck(0)) = 15 then card$ = "4d"
if deck(deck(0)) = 16 then card$ = "5d"
if deck(deck(0)) = 17 then card$ = "6d"
if deck(deck(0)) = 18 then card$ = "7d"
if deck(deck(0)) = 19 then card$ = "8d"
if deck(deck(0)) = 20 then card$ = "9d"
if deck(deck(0)) = 21 then card$ = "td"
if deck(deck(0)) = 22 then card$ = "jd"
if deck(deck(0)) = 23 then card$ = "qd"
if deck(deck(0)) = 24 then card$ = "kd"
if deck(deck(0)) = 25 then card$ = "ad"
if deck(deck(0)) = 26 then card$ = "2c"
if deck(deck(0)) = 27 then card$ = "3c"
if deck(deck(0)) = 28 then card$ = "4c"
if deck(deck(0)) = 29 then card$ = "5c"
if deck(deck(0)) = 30 then card$ = "6c"
if deck(deck(0)) = 31 then card$ = "7c"
if deck(deck(0)) = 32 then card$ = "8c"
if deck(deck(0)) = 33 then card$ = "9c"
if deck(deck(0)) = 34 then card$ = "tc"
if deck(deck(0)) = 35 then card$ = "jc"
if deck(deck(0)) = 36 then card$ = "qc"
if deck(deck(0)) = 37 then card$ = "kc"
if deck(deck(0)) = 38 then card$ = "ac"
if deck(deck(0)) = 39 then card$ = "2s"
if deck(deck(0)) = 40 then card$ = "3s"
if deck(deck(0)) = 41 then card$ = "4s"
if deck(deck(0)) = 42 then card$ = "5s"
if deck(deck(0)) = 43 then card$ = "6s"
if deck(deck(0)) = 44 then card$ = "7s"
if deck(deck(0)) = 45 then card$ = "8s"
if deck(deck(0)) = 46 then card$ = "9s"
if deck(deck(0)) = 47 then card$ = "ts"
if deck(deck(0)) = 48 then card$ = "js"
if deck(deck(0)) = 49 then card$ = "qs"
if deck(deck(0)) = 50 then card$ = "ks"
if deck(deck(0)) = 51 then card$ = "as"
skippy:
endfunction (card$)


should probably just be an array.. that's an awful lot of "IF" statements for what should just be an array initialized to 52, not sure in basic, but surely you can define an array something like

string[52] deck {"2c",3c",4c",... }

------------
If you need a hand with anything, I'm pretty good with quite a lot of languages, I know:

C, C++, C#, Java, Perl, Python, plus a few others not as well..I did a bit of basic and visual basic about 10 years ago.. All languages are pretty similar anyway - I can normally learn a new one in about 24hrs.. It's mostly just the syntax that changes..


What exactly do you want your program to do when it's finished?

Edited by jessthehuman (Tuesday, July 17, 2012 @ 06:52 GMT)


     
  17-Jul-12, 08:00   #3
  0 
takingdrugs 

Joined: Nov '11
Location: United Kingdom
Age: 33 (M)
Posts: 744
yeah im a bit slow so im trying to keep it as simple as possible so might try and figure out arrays later as the shuffled deck is stored in random numerical values 0=51 in deck(1-52) with deck(0) being the current posistion in the deck all the "if" statments are to turn the number into a value and suit and it was the easiest way for me as ive not programmed anything in a long time.
had some expeience on c++ but that was a long time ago

i would be looking to add some internet commands to it so it can connect and play with friends and mabee try and develop strong computer opponents. and obviously some graphics.
i want to make an app for the iphone or android and one idea i had is to make an app version of the game "s******d" err "s**t head"as ive never seen one so its an open market (until somone reads this and beats me too it)

     
  17-Jul-12, 09:08   #4
  0 
retribution 

Joined: Mar '11
Location: Canada
Age: 37 (M)
Posts: 1490
That looks an awful lot like Qbasic, something I spent many hours fiddling with back on my familys good old 286, mostly because it was pretty much all we really had on it aside from Quicken and word perfect lol. From what I remember, it was pretty limited, especially when it came to defining array variables, and program size.

IIRC programs/memory addresses couldn't exceed 64k. Not suprising given most computers at that time only had 1MB of ram, most of which was allocated to low level hardware access and good old DOS lol.


     
  17-Jul-12, 19:04   #5
  0 
B1gfoot 

Joined: Mar '08
Location: United Kingdom
Age: 37 (M)
Posts: 6714
Nerds. Tongue
Just jealous really..



     
  17-Jul-12, 19:22   #6
  0 
MarcWinz 

Joined: Oct '09
Location: United Kingdom
Age: 50 (M)
Posts: 644
Hi. I think you should start taking more drugs. When I was at school basic had just been developed, and dark basic was something you did in the dark with your girlfriend!!! He He

Anyway GL with whatever your trying to do!?!?


Big Smile Big Smile Big Smile

     
  17-Jul-12, 23:21   #7
  0 
jessthehuman 

Joined: Apr '09
Location: Australia
Age: 32 (M)
Posts: 6441
Posted by takingdrugs:
yeah im a bit slow so im trying to keep it as simple as possible so might try and figure out arrays later as the shuffled deck is stored in random numerical values 0=51 in deck(1-52) with deck(0) being the current posistion in the deck all the "if" statments are to turn the number into a value and suit and it was the easiest way for me as ive not programmed anything in a long time.
had some expeience on c++ but that was a long time ago

i would be looking to add some internet commands to it so it can connect and play with friends and mabee try and develop strong computer opponents. and obviously some graphics.
i want to make an app for the iphone or android and one idea i had is to make an app version of the game "s******d" err "s**t head"as ive never seen one so its an open market (until somone reads this and beats me too it)



Switching to an array is much better - it's indexed from 0. So instead of that massive function you have with a million if statements, instead you just initialise the array and then your function would only be about 2 lines of code, one to generate the random integer from 0-51 and another to retrieve the array at index value [random].

Anyway - like I said, I'm pretty good with code and know how to do graphics, networking, databases connections, logic, file input/output, etc. If you need a hand with something, let me know Blink or post here.

But I highly recommend taking the time to switch to an OO language, also - if you want to port to smartphones, think about what languages THEY use - C# is one.. and it's REALLY easy too (basically the same as java, includes garbage collection,etc).

     
  18-Jul-12, 00:05   #8
  0 
Greenmohave 

Joined: Jan '11
Location: United States
Age: 52 (M)
Posts: 3361
Personaly I think you got to start somewhere and if it's interesting to you enough to pursue writing the program using basic functions you should stick to it. It's your's so do it how you feel comfortable in doing something I've always thought. Yes there's better ways and always will be, but this is your baby so do it your way. like the king said, "And I did it my way".

I think constructive criticism is worth reading / listening to. Sarcasm or negative comments are something that will always be around, but it the wise one who takes this and turns it into constructive achievements.

     
  18-Jul-12, 00:47   #9
  0 
jessthehuman 

Joined: Apr '09
Location: Australia
Age: 32 (M)
Posts: 6441
Posted by Greenmohave:
Personaly I think you got to start somewhere and if it's interesting to you enough to pursue writing the program using basic functions you should stick to it. It's your's so do it how you feel comfortable in doing something I've always thought. Yes there's better ways and always will be, but this is your baby so do it your way. like the king said, "And I did it my way".

I think constructive criticism is worth reading / listening to. Sarcasm or negative comments are something that will always be around, but it the wise one who takes this and turns it into constructive achievements.


Quite true.


Also - I recently installed a free copy of Windows 8 (developers preview).

Not sure if MS are still offering this - but if they are - it's worth checking out. You can get Windows * + Visual Studio for free - and the application development on there is really top notch. The APIs are really easy to use, there's heaps of MS stuff you can plug into directly that make networking, etc a LOT easier. And it support a LOT of different languages, so you can pick something you're comfortable with.

They have a whole tonne of tutorials, etc up on their developers site too.

Means your poker app would straight away be compatible with Windows 8 and any MS smart-phone / Tablet / etc too Big Smile

     
  18-Jul-12, 04:57   #10
  0 
ayaraled 
Joined: Apr '11
Location: Philippines
Age: 39 (M)
Posts: 544
Why not program a poker bot and share with all mobsters...Off course, it going to be BRM mobsters secret.... Big Smile Big Smile Big Smile ...Just joking... I don't understand this kind of program because its not my field but i think your repeating the commands...array would be better as what jess suggested...anyway, Good work though and GL on your poker software....Please post finished software...so that we can have a try...

     
BankrollMob Forum » Off-Topic » poker program

 
Forum Rules | Support & FAQ

© 2016 BankrollMob.com - All Rights Reserved CONTACT | ABOUT | PRIVACY POLICY | TERMS & CONDITIONS | NEWSLETTERS | AFFILIATES | REPORT SPAM | ADVERTISING
  Bookmark and Share