phase 1 of "10,000" complete!
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
Sleepcopy - paste it into your IDE and quick run it and tell me what you think!
