basic game

[gh0stz]

I'm reallly new to turing and I'm trying to make a blackjack game, I have the basic idea of what I'm going to do down, I just need to know if I can make the following code shorter.

code:

y := 0 z := 0 %Dealer cards and values proc dOne     a := 1     z := z + 1     dcard (z) := a end dOne proc dTwo     a := 2     z := z + 1     dcard (z) := a end dTwo proc dThr     a := 3     z := z + 1     dcard (z) := a end dThr proc dFor     a := 4     z := z + 1     dcard (z) := a end dFor proc dFiv     a := 5     z := z + 1     dcard (z) := a end dFiv proc dSia     a := 6     z := z + 1     dcard (z) := a end dSia proc dSev     a := 7     z := z + 1     dcard (z) := a end dSev proc dEgh     a := 8     z := z + 1     dcard (z) := a end dEgh proc dNin     a := 9     z := z + 1     dcard (z) := a end dNin proc dTen     a := 10     z := z + 1     dcard (z) := a end dTen proc dElv     a := 11     z := z + 1     dcard (z) := a end dElv proc ddeal     randint (a, 1, 11)     if a = 1 then         dOne     elsif a = 2 then         dTwo     elsif a = 3 then         dThr     elsif a = 4 then         dFor     elsif a = 5 then         dFiv     elsif a = 6 then         dSia     elsif a = 7 then         dSev     elsif a = 8 then         dEgh     elsif a = 9 then         dNin     elsif a = 10 then         dTen     elsif a = 11 then         dElv     end if end ddeal %player cards and values proc pOne     x := 1     y := y + 1     pcard (y) := x end pOne proc pTwo     x := 2     y := y + 1     pcard (y) := x end pTwo proc pThr     x := 3     y := y + 1     pcard (y) := x end pThr proc pFor     x := 4     y := y + 1     pcard (y) := x end pFor proc pFiv     x := 5     y := y + 1     pcard (y) := x end pFiv proc pSix     x := 6     y := y + 1     pcard (y) := x end pSix proc pSev     x := 7     y := y + 1     pcard (y) := x end pSev proc pEgh     x := 8     y := y + 1     pcard (y) := x end pEgh proc pNin     x := 9     y := y + 1     pcard (y) := x end pNin proc pTen     x := 10     y := y + 1     pcard (y) := x end pTen proc pElv     x := 11     y := y + 1     pcard (y) := x end pElv proc pdeal     randint (x, 1, 11)     if x = 1 then         pOne     elsif x = 2 then         pTwo     elsif x = 3 then         pThr     elsif x = 4 then         pFor     elsif x = 5 then         pFiv     elsif x = 6 then         pSix     elsif x = 7 then         pSev     elsif x = 8 then         pEgh     elsif x = 9 then         pNin     elsif x = 10 then         pTen     elsif x = 11 then         pElv     end if end pdeal

basically, the first part is the dealer's cards, each proc represents a value of a card. After is a randint that selects a number from 1 to 11, if say 1 is selected, then it would run the dOne process, and set the value of the first dealer card to one.

Is there any way I can make this shorter?

[gh0stz]

i forgot to the meaning of the variables..

z and y identify which card it is that is being delt, so by default z/y = 0, then when i run the program and deal 2 cards, z/y gets added by 1, then 2. z is for dealer cards, and y is for player cards.

a and x is the value of the card. so in dOne, a := 1, so the value that assigns dcard would be 1. a is for dealer cards, and x is for player cards.

[Clayton]

you could do something like this
[syntax="Turing]

var cards:array 1..4 of int
var card:int
var count:=1

for x:1..4
card:=Rand.Int(1,11)
cards(x):=card
end for
[/syntax]
something as simple as that can work and in considerably less lines

[gh0stz]

omfg that was easy..

heres another one of the same problem that'll make me look like more of an ass.

this code isn't done, but the basic structure is so...

code:

%start of dealing put "You got ", pcard (1), " and ", pcard (2), ", with a total of ", pcard (1) + pcard (2) ptotal (1) := pcard (1) + pcard (2) put skip put "Do you want to hit?"  %ask if user wants to keep playing get ans if ans = "y" then     ptotal (2) := ptotal (1) + pcard (3)     put "You got ", pcard (3) %another card     put "You have a total of ", ptotal (1) + pcard (3)     put "Do you want to hit?" %asks if user wants to hit again 2nd time     get ans     if ans = "y" then         put "You got ", pcard (4)         ptotal (3) := ptotal (2) + pcard (4)         put "You have a total of ", ptotal (2) + pcard (4)         put "Do you want to hit?"         get ans % ask if user wants to hit again         if ans = "y" then         else         end if         put skip         put "You got ", pcard (5)         ptotal (4) := ptotal (3) + pcard (5)         put "You have a total of ", ptotal (3) + pcard (5)     else %if user chooses to stand 2nd time         put "Dealer's turn."         put skip  %dealer's turn; deals 2 cards for dealer         dtotal (1) := dcard (1) + dcard (2)         put "The dealer got ", dcard (1), " and ", dcard (2), ".  With a total of ", dtotal (1)         if dcard (1) + dcard (2) >= 17 then %winning condition, and if dealer keeps going             if ptotal (2) > dtotal (1) then %if dealer's cards are less than 17 then it keeps going                 put "You Win!"             end if             if ptotal (2) = dtotal (1) then                 put "Tie game"             end if             if ptotal (2) < dtotal (1) then                 put "You Lose!"             end if         else             dtotal (2) := dtotal (1) + dcard (3)             put "Dealer got ", dcard (3), " and now dealer has total of ", dtotal (2)             if dtotal (2) >= 17 then                 if ptotal (2) > dtotal (2) then                     put "You win"                 end if                 if ptotal (2) = dtotal (2) then                     put "Tie game"                 end if                 if ptotal (2) < dtotal (2) then                     put "You Lose"                 end if             else                 dtotal (3) := dtotal (2) + dcard (4)                 put "Dealer got ", dcard (4), " and now dealer has total of ", dtotal (3)                 if dtotal (3) >= 17 then                     if ptotal (2) > dtotal (3) then                         put "You Win!"                     end if                     if ptotal (2) = dtotal (3) then                         put "Tie Game!"                     end if                     if ptotal (2) < dtotal (3) then                         put "You Lose!"                     end if                 else                     dtotal (4) := dtotal (3) + dcard (5)                     put "Dealer got ", dcard (5), " and now the dealer has total of ", dtotal (4)                     if dtotal (4) <= 21 and dtotal (4) > ptotal (2) then                         put "You Lose!"                         if dtotal (4) > 21 then                             put "You Win!"                         end if                     end if                 end if             end if         end if     end if     put skip else     put "Dealer's turn."     put skip     dtotal (1) := dcard (1) + dcard (2)     put "The dealer got ", dcard (1), " and ", dcard (2), ".  With a total of ", dtotal (1)     if dcard (1) + dcard (2) >= 17 then         if ptotal (1) > dtotal (1) then             put "You Win!"         end if         if ptotal (1) = dtotal (1) then             put "Tie game"         end if         if ptotal (1) < dtotal (1) then             put "You Lose!"         end if     else         dtotal (2) := dtotal (1) + dcard (3)         put "Dealer got ", dcard (3), " and now dealer has total of ", dtotal (2)         if dtotal (2) >= 17 then             if ptotal (1) > dtotal (2) then                 put "You win"             end if             if ptotal (1) = dtotal (2) then                 put "Tie game"             end if             if ptotal (1) < dtotal (2) then                 put "You Lose"             end if         else             dtotal (3) := dtotal (2) + dcard (4)             put "Dealer got ", dcard (4), " and now dealer has total of ", dtotal (3)             if dtotal (3) >= 17 then                 if ptotal (1) > dtotal (3) then                     put "You Win!"                 end if                 if ptotal (1) = dtotal (3) then                     put "Tie Game!"                 end if                 if ptotal (1) < dtotal (3) then                     put "You Lose!"                 end if             else                 dtotal (4) := dtotal (3) + dcard (5)                 put "Dealer got ", dcard (5), " and now the dealer has total of ", dtotal (4)                 if dtotal (4) <= 21 and dtotal (4) > ptotal (1) then                     put "You Lose!"                     if dtotal (4) > 21 then                         put "You Win!"                     end if                 end if             end if         end if     end if end if

as you can see its incrediblly long and tedious just like my last one... but hey i'm new

so what i'm trying to accomplish with that is when the user says no to hitting, then it begins the dealer rounds. and in between the dealer hitting rounds, i have an if statement saying if dealer's cards total 17 or over, then the dealer can't hit anymore. If I were to finish it that way, i would have to repeat the above mentioned algorithim 5 times for every card that the player gets, and that is very long and probably repetitive. I'm pretty sure there's a way to manipulate this with for loops but I don't know how, so pleaseeee help meee

[TheOneTrueGod]

I think he's aiming for a style where you can't wind up with 5 "fives" in the deck...

This quesiton has been asked many times, and there is a search buggon on the top bar that will help you find help on it.

I posted an answer similar to this in a question a few posts down, but i'll sum it up here.

If you have an array of numbers from 0 to 51, each number can represent a card. 0 = two, 1 = three, 2 = four, ... , 12 = Ace
to get the value of the card, you do:
number mod 13. This will return a value between 0 and 12 (since there are twelve unique numbers in each deck).

To get the suit, you just div the number by 13. (this will get you a value between 0 and 3)
0 = Spades
1 = Hearts
etc...
or whatever you want them to be.

So basically, to get what the card "50" is:
numerical value: 50 mod 13
suit value: 50 div 13
(This will give you the numbers 11 and 3, signifying the king of whatever you chose 3 to be)
Now its easy to use the numbers 0 to 51 to represent unique cards.

I'm sorry if you didn't understand this, but if you use the Search button above, you'll be able to find some better help on it.

[gh0stz]

i think you misunderstood my question cus my code is so bullshit.

i'm trying to reduce the number of "if" statements used in teh code

now if you answered that in your response then i'm too bullshit to understand

[TheOneTrueGod]

Its a concept. If you apply that concept, you won't have to have a shitload of variables like

code:

JackOfSpades QueenOfSpades KingOfSpades

eugh...

All you have to do is apply the concept I gave you, and you can reduce a blackjack game to possibly 100 lines ish.