phase 1 of "10,000" complete!

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 21:26:55 +0000

honestly i'de rather work on something like that, and work on my game here and there! the only reason why im doing this game is solely for furthering my education, which i think working with you and whoever else would be a better opportunity to do that than my whole "wing it" stategy! so what ever you think man.

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 20:43:15 +0000

Ok, I'll leave it to you then and check back later. I just got a cool programming book. It's one I had as a kid. I was thinking that some of us FB Text Game Programmers could band together for a game based on it. (once you get done with this one, of course). I'll post a thread about it in General Discussion. —hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 20:36:06 +0000

ahhhh! ok let me experiment with it and see how it works (im getting good at crossreferencing keywords in the fb manual to figure out a functional code)!

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 19:46:29 +0000

Here's my simple theory for checking 3's of a kind

there is a count() array used to count the die faces. I have not tested the below code :

for a = 1 to 5 for b = 1 to 6 if dice(a) = b then count(b) = count(b) + 1 next b next a

This is how it *should* work.

The first for loop iterates the array, going through each element one at a time.
- During each iteration, the second for loop scans for a number 1 to 6. If it's found, it adds 1 to the approprate slot.

So, if there's three of a kind in 5's plus a 2 plus a 1 then the count() array's contents should look like this :

count(1) = 1
count(2) = 1
count(3) = 0
count(4) = 0
count(5) = 3
count(6) = 0

The rest is just checking this array for hits.

if count(5) = 3 then print "You have three of a kind in 5's"

This is only a theory.

-hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 18:34:06 +0000

Ok, i've copied it all down and beginning work on it. Might be a bit, but I'm working on it. —hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 17:51:17 +0000

After lunch I'll be ready to take a serious look at this. —hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 17:26:20 +0000

That helps alot. :) You may have not realized it, but you've just written pretty good psuedocode. -hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 17:11:07 +0000

ok sorry about that this might help:

cls ? " 10,000" ? ? ? ? ? ? ? ? " The object of the game is to be the first player to reach" ? " 10,000 points." ? ? ? ? "(press any key to continue)" while inkey$ = "": wend cls ? " GAMEPLAY" ? ? ? "Gameplay goes as follows:" ? ? "Beginning of roll:" ? " -Roll all five Dice" ? ? " -If the results of the roll did NOT produce any scoring dice" ? " then the turn ends for that player" ? ? " -If the results of the roll DID produce one or more scoring" ? " dice then player decides which die (or dice) to keep and rolls" ? " the remaining dice" ? ? " -Select which die (or dice) you want to keep" ? " You must keep atleast one die PER ROLL" ? " Kept dice MUST have a point value (more on Points/Scoring" ? " in section labeled 'SCORING')" ? ? " -If all 5 dice are scoring dice (either in a single roll or" ? " accumulated) the player then gets to roll all five dice again" ? " without losing the point value of the dice" ? ? " (press any key to continue)" while inkey$ = "": wend ? " GAMEPLAY" ? " (continued...)" ? ? ? ? " -A players turn does not end until either; no scoring dice" ? " were rolled, or;" ? " the player decides to keep the points accumulated for that turn" ? " and passes the turn to the next player in line (which the turn" ? " is then reset as are all points, and the player gets to roll all" ? " 5 dice) and all accumulated points are added to the players score" ? ? " -If a player does not pass, and the result of his/her next roll" ? " does NOT produce any dice with point value, then his/her turn is" ? " immediatly over and all points accumulated for that turn are lost" sleep

1's- 100pts
5's-50pts

three 1's- 1000pts
three 2's- 200pts
three 3's- 300pts
three 4's- 400pts
three 5's- 500pts
three 6's- 600pts

four of a kind-double the amount of three of a kind(four 6's-1200pts)

straight- 1500

five of a kind- automatic win

*all points are counted only if rolled together in a single roll
(in other words you cant keep a single one for three rolls and it count as 1000pts! that would count as 300pts)

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 16:57:24 +0000

Ok, I'll try to make sense of this in a bit. I already know I'm going to use a for loop to count the die faces represented by dice(). It's all hard to read all squashed together like that. :) -hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 16:46:41 +0000

i made a typo above in my last roll (2-2-4-5-2) the roll would be worth 250 because of the five in there so the total points would be 1400.

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 16:40:14 +0000

there are only 5 dice so if you keep three then there are only two left, so you cant roll three of a kind with two dice! if you roll those two an say both of them were 1's then all 5 dice are worth something, and you get to roll all five again and this continues till no scoring dice are rolled or the player decides to stop rolling. for example; its my first roll, i roll all the dice and they come out in this order 1-4-1-1-6 then i have three ones (1000points) i would keep the ones and roll the others (4 and 6) and then the result is 1-5-1-1-3 i have two new numbers (5 and 3) the three doesnt score but the five does so keep the 5 and now i only have one die left to roll (normally i would've stopped at 1000 rather than risk losing it and getting nothing) and the points have accumulated to 1050 (1000 for the ones, + 50 for the single 5) and i roll the last die and in order for my turn not to end i need either a 1 or a 5 because those are the only single scoring dice. so lets say it was a 1 so my roll looks like this 1-5-1-1-1 then i get another hundred for the single 1 and my points are 1150 ok now i get to roll all 5 again so i have the chance for three of a kind again and straight and anything else ok? so i roll those and the result is 2-2-4-5-2 then the 2's are 200points and ill go ahead and "stop rolling" so now the accumulated points (1350 at this point) are then permanently added to my score and its the next players turn! btw a straight is worth 1500 (and the only way to roll a straight is with all 5 dice, and if you roll a straight all of the dice are scoring so you get to roll all five again!!! so you could roll a straight add 1500 then roll another straight for another 1500 and thats 3000 points in 2 rolls and you still have all 5 dice to roll) ok i hope that helped to clarify. im just not sure how to write it…. do i use if…..then statements? if so would i have to include it in every single roll(thats alot of copy/paste!!!)

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 16:07:22 +0000

Answer this and I'll get to work on it after I finish the B2D tutorial. If you keep more than 2 dice, even if you wind up rolling 3 of a kind, it doesn't count?

What about if you don't get any "matching scoring dice" do the other numbers add to the score anyway?

-hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 15:46:43 +0000

ok here is the skinny, 1's count as 100 points if rolled single, if three 1's are rolled in one roll(you can only have 2 keptdice max to roll three of a kind)then they are worth 1000 points. 5's are worth 50 points as single, 500 points as three of a kind. those are the only single scoring dice(if your first roll doesnt have atleast a 1 or a 5, or three of a kind or any scoring dice then that turn is over) 2, 3, 4, 6, three of a kind is (whatever the number is) * 100 (so three 4's is 400points) if your roll a straight (either 1-5 or 2-6) in one roll (must roll all five dice to get a straight) and if you roll all five dice the same number ("YAHTZEE!!!") then thats automatic "game" (also must be done in one roll). ok, now to get the points the player has to stop rolling. if they roll and the results of the roll are nothing they lose all points accumulated in that 'turn' (not 'roll', a turn may consist of 10 - 20 or more, depending on luck, rolls) and a player must keep the dice and roll the remaining dice or end turn and keep the points. if a player only has one die remaining and decides to "go for it" and than die is a 1 0r a 5 then the player gets to roll all five again and the points for that turn are still accumulating until the player stops on his/her own or doesnt roll any scoring dice. (whew!!!) ok i hope that was clear enough for you, if theres something in my jumbled mess above that isnt clear just ask me!

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 14:49:08 +0000

Not sure about the scoring part because I don't know the game.

Scoring dice, if this game is like yahztee, will have to be calculated by checking the dice() array. If you need help with this in code, please give me a list of scoring dice.

After the "scoring check" , just increment a player turn variable. :)

you'll have to clarify the last. —hartnell

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 14:19:02 +0000

is the game stalling in places or something? im not getting any delay anywhere (and ive got 5 different programs running!!! azureus is a system slower for sure and ive been running it for about 6 days now, and windows media player, FBIde, and the worst is dvd flick, video converting software that eats my ram up for hours at a time) but still it only has about a second delay when i quickrun to compile it but when i run it i havent found any delay. when im finishing the game what can i do so that it doesnt stall?………….Ok now for the real questions!!! how would you suggest writing the scoring part? also how do i tell freebasic that if there are no scoring dice rolled then the turns automatically over and go to the next player?? and as for scoring how to i let freebasic know the differences in dice combinations(like if you roll thre of a kind in one roll its scoring but if rolled in combinations then the 3 of a kind doesnt count!!!) have you ever played the game???

Re: phase 1 of "10,000" complete!

Thu, 19 Apr 2007 09:40:43 +0000

It's not your programming. It's timing as in telling a joke and telling the punchline at the right time. You should only worry about this when you are finishing your game. —hartnell

Re: phase 1 of "10,000" complete!

Wed, 18 Apr 2007 22:23:09 +0000

what do you mean slow in places?

Re: phase 1 of "10,000" complete!

Wed, 18 Apr 2007 21:53:39 +0000

It's a bit slow in places but appears to work. It's coming along great. —hartnell

phase 1 of "10,000" complete!

Wed, 18 Apr 2007 21:21:11 +0000

ok, after brain reboot after another i finally have the basic user interface for my game!!! now i have to do the scoring/point values and ill be ready for a beta release ok so here it is:

Print "AT ANY TIME PRESS [CTRL] + [PAUSE\BREAK] TO EXIT GAME" Print "(press any key to continue)" While Inkey$ = "": Wend Dim Shared As String pn(6) Dim nop As Integer Dim choice As String Dim keepLooping As Integer Dim Shared dice(5) As Integer Dim Shared keptdice(5) As Integer Randomize Timer Sub resetDice For i = 1 To 5 keptDice(i) = 0 Next i End Sub Sub printDice Print For i = 1 To 5 Print "Die"; i; ": "; dice(i); If keptDice(i) = 1 Then Print " Kept" Else Print " Not Kept" End If Next i End Sub Sub roll1 For i = 1 To 5 If keptDice(i) = 0 Then dice(i) = Int(Rnd(1)*6)+1 Cls Next i End Sub playerselect: Cls Input "how many players"; nop If nop > 1 And nop < 7 Then Goto entername Elseif nop = 1 Then Print "you cant play by yourself" Print "(press any key to continue)" While Inkey$ = "": Wend Goto playerselect Else Print "Please enter a number 1 - 6" Print "(press any key to continue)" While Inkey$ = "": Wend Goto playerselect End If entername: Cls While Inkey$ = "": Wend Do Cls For a = 1 To 6 If nop > a Then Print "Player "; a Input "please enter your name"; pn(a) Elseif nop = a Then Print "Player "; a Input "please enter your name"; pn(a) Else Goto roll End If Next a Loop roll: For a = 1 To nop Print "It's "; pn(a); "'s turn" Print "press any key to roll dice" While Inkey$ = "": Wend roll1 roll2: Do Cls printdice Print "Which die would you like to keep? (e) to end keeping." Print "enter d to end turn" Input "> ", choice If Val(choice) > 0 And Val(choice) < 6 Then keptDice(Val(choice)) = 1 Print "Die "; choice; " kept." Elseif choice = "e" Then Print "Die keeping phase over" Print "press any key to continue)" While Inkey$ = "": Wend Goto nextturn Elseif choice = "d" Then Print pn(a); "'s turn over (press any key to continue)" While Inkey$ = "": Wend Goto nextplayer Else Print "Enter the number of the die to keep or else Enter e" Print "enter d to end turn" End If While Inkey$ = "": Wend Loop nextturn: roll1 Goto roll2 nextplayer: resetdice Next a Sleep

copy - paste it into your IDE and quick run it and tell me what you think!