Computer Science Canada

War

Author:

gilbamy [ Sun Jun 11, 2006 7:40 pm ]

Post subject:

War

okay everone knows the card game war right well i am having serious problems with this game and since our teach gives us notes and well there very crappy notes i have no idea what i am doing so my first prob is how do i get it to deal the 26 cards to each player without having like 2kings of diamonds and how do i get the value to appear below so here is my code.

code:

%Amy Gilbank
%June 1 2006
%war1.t
%a game of war
var winMain : int := Window.Open ("graphics:800;600")
var font1,font2: int
var p1Randomcard,x1,x2,y1,y2,p2Randomcard:int
var cards:array 1..52 of int
var p1deck,p2deck :array 1..26 of int
var cardvalue :array 1..52 of int
drawfillbox(0,600,800,0,199)
%Battle area
drawfillbox(20,100,95,200,78)
drawfillbox(120,100,195,200,78)
drawfillbox(220,100,295,200,78)
drawfillbox(320,100,395,200,78)
drawfillbox(420,100,495,200,78)
drawfillbox(520,100,595,200,78)
drawfillbox(620,100,695,200,78)
drawfillbox(720,100,795,200,78)
%Deck and cards spot
drawfillbox(200,400,275,500,79)
drawfillbox(500,400,575,500,80)
drawfillbox(300,400,375,500,0)
drawfillbox(400,400,475,500,0)
%Scoreboard and card number spots
drawfillbox(320,360,360,380,0)
drawfillbox(420,360,460,380,0)
%Fonts
font1:=Font.New("Vineta BT:45: bold,underline")
Font.Draw ("WAR!",260,550,font1,red)
font2:=Font.New("New Times Roman :11:")
Font.Draw("Player 1" ,300,310,font2,27)
Font.Draw("Player 2",410,310,font2,27)
Font.Draw("Deck",220,510,font2,27)
Font.Draw("Deck",520,510,font2,27)
%Cards
cards(1):=Pic.FileNew("10C.jpg")
cards(2):=Pic.FileNew("10D.jpg")
cards(3):=Pic.FileNew("10H.jpg")
cards(4):=Pic.FileNew("10S.jpg")
cards(5):=Pic.FileNew("2C.jpg")
cards(6):=Pic.FileNew("2D.jpg")
cards(7):=Pic.FileNew("2H.jpg")
cards(8):=Pic.FileNew("2S.jpg")
cards(9):=Pic.FileNew("3C.jpg")
cards(10):=Pic.FileNew("3D.jpg")
cards(11):=Pic.FileNew("3H.jpg")
cards(12):=Pic.FileNew("3S.jpg")
cards(13):=Pic.FileNew("4C.jpg")
cards(14):=Pic.FileNew("4D.jpg")
cards(15):=Pic.FileNew("4H.jpg")
cards(16):=Pic.FileNew("4S.jpg")
cards(17):=Pic.FileNew("5C.jpg")
cards(18):=Pic.FileNew("5D.jpg")
cards(19):=Pic.FileNew("5H.jpg")
cards(20):=Pic.FileNew("5S.jpg")
cards(21):=Pic.FileNew("6C.jpg")
cards(22):=Pic.FileNew("6D.jpg")
cards(23):=Pic.FileNew("6H.jpg")
cards(24):=Pic.FileNew("6S.jpg")
cards(25):=Pic.FileNew("7C.jpg")
cards(26):=Pic.FileNew("7D.jpg")
cards(27):=Pic.FileNew("7H.jpg")
cards(28):=Pic.FileNew("7S.jpg")
cards(29):=Pic.FileNew("8C.jpg")
cards(30):=Pic.FileNew("8D.jpg")
cards(31):=Pic.FileNew("8H.jpg")
cards(32):=Pic.FileNew("8S.jpg")
cards(33):=Pic.FileNew("9C.jpg")
cards(34):=Pic.FileNew("9D.jpg")
cards(35):=Pic.FileNew("9H.jpg")
cards(36):=Pic.FileNew("9S.jpg")
cards(37):=Pic.FileNew("QC.jpg")
cards(38):=Pic.FileNew("QD.jpg")
cards(39):=Pic.FileNew("QH.jpg")
cards(40):=Pic.FileNew("QS.jpg")
cards(41):=Pic.FileNew("AC.jpg")
cards(42):=Pic.FileNew("AD.jpg")
cards(43):=Pic.FileNew("AH.jpg")
cards(44):=Pic.FileNew("AS.jpg")
cards(45):=Pic.FileNew("JC.jpg")
cards(46):=Pic.FileNew("JD.jpg")
cards(47):=Pic.FileNew("JH.jpg")
cards(48):=Pic.FileNew("JS.jpg")
cards(49):=Pic.FileNew("KC.jpg")
cards(50):=Pic.FileNew("KD.jpg")
cards(51):=Pic.FileNew("KH.jpg")
cards(52):=Pic.FileNew("KS.jpg")
x1:=300
y1:=400
x2:=400
y2:=400
p1Randomcard:=Rand.Int(1,52)
Pic.Draw(cards(p1Randomcard),x1,y1,picMerge)
p1Randomcard:=Rand.Int(1,52)
Pic.Draw(cards(p1Randomcard),x1,y1,picMerge)
p2Randomcard:=Rand.Int(1,26)
Pic.Draw(cards(p2Randomcard),x2,y2,picMerge)
cardvalue(1):=10
cardvalue(2):=10
cardvalue(3):=10
cardvalue(4):=10
cardvalue(5):=2
cardvalue(6):=2
cardvalue(7):=2
cardvalue(8):=2
cardvalue(9):=3
cardvalue(10):=3
cardvalue(11):=3
cardvalue(12):=3
cardvalue(13):=4
cardvalue(14):=4
cardvalue(15):=4
cardvalue(16):=4
cardvalue(17):=5
cardvalue(18):=5
cardvalue(19):=5
cardvalue(20):=5
cardvalue(21):=6
cardvalue(22):=6
cardvalue(23):=6
cardvalue(24):=6
cardvalue(25):=7
cardvalue(26):=7
cardvalue(27):=7
cardvalue(28):=7
cardvalue(29):=8
cardvalue(30):=8
cardvalue(31):=8
cardvalue(32):=8
cardvalue(33):=9
cardvalue(34):=9
cardvalue(35):=9
cardvalue(36):=9
cardvalue(37):=12
cardvalue(38):=12
cardvalue(39):=12
cardvalue(40):=12
cardvalue(41):=14
cardvalue(42):=14
cardvalue(43):=14
cardvalue(44):=14
cardvalue(45):=11
cardvalue(46):=11
cardvalue(47):=11
cardvalue(48):=11
cardvalue(49):=13
cardvalue(50):=13
cardvalue(51):=13
cardvalue(52):=13
strint(intstr(cardvalue))=cardvalue
Draw.Text(cardvalue,320,360,font2,27)

Author:

TheOneTrueGod [ Sun Jun 11, 2006 8:01 pm ]

Post subject:

A part of me dies inside every time someone does a card game without using math...

A lot of that can be easily optimized, simply by using div and mod

code:

strint(intstr(cardvalue))=cardvalue

This line does nothing. In fact, its a comparison anyways, so it'll give you an error... not to mention that cardvalue is an array, so it won't work anyways...

Allright, I wrote up a blurb on this in the [Turing FAQ], though I can't remember if I touched on dealing. Here goes

code:

for i : 0..51 %because an array from 0 to 51 makes math easier
cardvalue(i) := i
end for

Now, just shuffle that around. Please use a procedure for that... Shouldn't be too hard to figure out how to randomize where the cards go.

And then give each player a flexible array (because the number of cards for each player fluctuates) and alternate between giving each player a card. Use a procedure for the dealing too... You'll probably have to use the two players 'hands' as a global array in order to get the flexible arrays working properly.

From there, You can probably work it out for yourself. Post if you need more help.

Oh, and the loading pictures can be done easily with math as well. Use constants to declare some clever strings, and let for loops do the work for you. (Learn how to concatenate strings though)

Author:	gilbamy [ Sun Jun 11, 2006 8:10 pm ]
Post subject:
i need each player to start off with 26 cards and then it needs to show below the card like say there was a king there in nedds to show the value of that card right so how do i get it to show up and dealing is confusing me

Author:	Bored [ Sun Jun 11, 2006 8:12 pm ]
Post subject:
You may want to look into records for this one. You could have an array of records, each record holding the card value, and picture (suit can be excluded for this game). Then try using a loop to create all the necesary cards, probably a loop of 4 for each suit and a loop of 13 for the cards. Then what you do is create a deck array of 52 cards (array of records). Now that you have a deck you need to shuffle it. There's meny ways to do this, the easiest is probably to have a large loop that randomly chooses two cards and switches them. Once there shuffled dealings simply putting the cards into two seperate arrays, one for each player. These will need to be flexible arrays (well atleast that makes it easier and better coding) as the amount of cards changes. Now the rest is up to you.

Author:	gilbamy [ Sun Jun 11, 2006 8:31 pm ]
Post subject:
i am so lost i need it in like simple english i am really bad with turing

Author:	TheOneTrueGod [ Sun Jun 11, 2006 8:36 pm ]
Post subject:
Go to the [Turing Walkthrough] and read up on the concepts that I bolded in my post. If you know how to use em, and you have a grade 10 math education, you should be able to figure it out with a bit of thought.

Author:	gilbamy [ Sun Jun 11, 2006 8:54 pm ]
Post subject:
i may be in grade 10 but that dose not mean i listen well

Author:	TheOneTrueGod [ Sun Jun 11, 2006 8:59 pm ]
Post subject:
Yarr, I just threw grade 10 as a random number. As long as you are willing to sit down and think about the problem, you can easily solve it. Not knowing the language is not an excuse, especially with a language like Turing, because theres tonnes of help on this site, and plenty in the help file.

Author:	jamonathin [ Sun Jun 11, 2006 9:02 pm ]
Post subject:
gilbamy wrote: i may be in grade 10 but that dose not mean i listen well Then why bother helping? You get out of life what you put into it - ever heard of garbage in, garbage out?

Author:

gilbamy [ Mon Jun 12, 2006 2:02 pm ]

Post subject:

Alright i have figured out this so far that i need to use this code for p1 and p2 but i don't know where to go after this

code:

for i :1..26
loop
p1Randomnumber:=Rand.Int(1,52)

but what else do i add to this

Author:

Delos [ Mon Jun 12, 2006 3:34 pm ]

Post subject:

Hmm...looking at your origial code, you have many of the necassary elements to solve your problem, but not quite implemented in the right way. If you reread TOTG's post, you'll notice that he does touch upon some important concepts that you ought to include to get your programme working efficiently.

As for what you have so far...
Using a loop nested in a for loop is not a bad idea. If I understand where you're going with this, you intend to pick a card (using Rand.Int()) and if that card has not already been dealt, then you'll add it to the player's stack?
Translate that into a bit of pseudocode:

psueudo:

- player requires 26 cards
- pick a card at random
- if card has not already been dealt, then give this card to player
- repeat for all 26 cards

Right now you need to figure out how to do the 'if card...' part.
If we take a look at your original code:

code:

var p1Randomcard,x1,x2,y1,y2,p2Randomcard:int
var cards:array 1..52 of int
var p1deck,p2deck :array 1..26 of int

These could all be used to your advantage. The array 'cards' could potentially be used as a set of indicators to note which cards have been dealt and which ones haven't (as a side note, if you do decide to do this, then I would rename the array 'dealt_cards' or something to that effect). Now you could set it up such that (for instance) a value of 0 means the card has not been dealt and a value of 1 means it has been. (Or you could change the array type to boolean and make your life even simpler).

Now, back to the if clause. You'll need to choose a card (using Rand.Int()) then see if that value in the deck (cards) has been taken or not (0 or 1). If it has not, then you can add that value to either p1deck or p2deck, depending on which you're using.
You should note that since you're using arrays of ints, you'll have to figure out how to indicate what suit the card just chosen is!

You're on the right track now, so keep at it and see this through. Once you get your basic algorithm working, you should think about procedurizing it in some form - but that will be for once it's working.
If any of this post did not make sense, then hit up the [Turing Walkthrough] again and look for the tuts on the topics mentioned.[/code]

Author:	Clayton [ Mon Jun 12, 2006 8:32 pm ]
Post subject:
dont worry so much about the suits for now though, as war doesnt care what suit your card is, just get the shuffler and dealer working, if you are having trouble figuring out a shuffling algorithm, search "shuffle" or something to that effect in the Turing forums:D

Author:

gilbamy [ Tue Jun 13, 2006 12:28 pm ]

Post subject:

alright so you want me to do something like this then right i changed one of my var and that one was the p1deck and the p2 deck they got changed to deckcheck

code:

for i : 1..26
loop
p1Randomcard:=Rand.Int(1,52)
exit when checkdeck1(p1Randomcard)=0
end loop
x1:=300
y1:=400
Pic.Draw(cards(p1Randomcard),x1,y1,picMerge)
end for

Author:	Delos [ Tue Jun 13, 2006 3:26 pm ]
Post subject:
That's a great start, next you'll want to add to that so that you'll be able to keep track of which cards have been assigned to each player. Currently, you've picked all 26 cards and displayed them, but what if you needed to query which cards were held by each player? In that case you'll need to incorporate your player1_deck and player2_deck arrays. BTW, please do indent your code before posting it. It make reading it so much easier!

Author:	gilbamy [ Tue Jun 13, 2006 7:47 pm ]
Post subject:
well for this project i have to have a screen appear when i type in h and p1 or p2 and i will see there hands but i am not sure on how to do that though

Author:

gilbamy [ Tue Jun 13, 2006 8:05 pm ]

Post subject:

iam having troubles with my dealing line of code here because it says that its the wrong type for my checkdeck1:=1 heres my code for dealing and checkdeck is an array 1..52 of int and i have tried changing the type then my exit when line gets messed up
alright so i have the checkdeck1 to equal 1 because i need a value for that one but when i change it from being an array of int the exit when line becomes wrong
i am not sure what to do here

code:

var checkdeck1: array 1..52 of int
checkdeck1:=1
for deal : 1..52
loop
p1Randomcard:=Rand.Int(1,52)
exit when checkdeck1(p1Randomcard)=0
end loop
Pic.Draw(cards(p1Randomcard),x1,y1,picMerge)
end for

Author:

Bored [ Tue Jun 13, 2006 8:41 pm ]

Post subject:

Well I still think your going about this nthe wrong way and making a simple problem overly complicated. First you should have a simple record, that contains both the card value and suit. You would then have three arrays of cards, one deck, and two hands. The deck would be a set 52 card size, whereas the hands would be flexible arrays that start at 26 cards each. You'd first use a shuffle procedure which would look something like this

code:

proc Shuffle (var deck : 1..52 of card)
%shuffles the cards in deck array
var temp : card %used to switch cards
var a, b : int %cards to switch
for i : 1..5000
%choose random cards
randint (a, 1, 52)
randint (b, 1, 52)
%switch cards
temp := deck (a)
deck (a) := deck (b)
deck (b) := temp
end for
end Shuffle

Now that your cards are shuffled you simply have to deal them as is, no complicated algorithms, or consant checking of the arrays, you don't even have to take turns when dealing, just simply throw the first 26 to player ones hand, and the second 26 to player twos. Very Happy

I'd suggest using flexible arrays for the players hand though as they will change in size throughout the game, or atleast that's how I remember it being played.

Author:	gilbamy [ Tue Jun 13, 2006 8:43 pm ]
Post subject:
but when you play cards you deal one to yourself then one to the other player not just 26 to yourself then 26 to them

Author:	Bored [ Tue Jun 13, 2006 8:53 pm ]
Post subject:
Yes but does that matter if the cards are randomized anyways. Do you think someone is going to complain about it, I mean if they can read your code then they'd undertand that it's easier and does not compromise the legitimization of the randomization of the cards. In other words, the deck can't be stacked by a player so why does turn based dealing matter?

Author:	gilbamy [ Tue Jun 13, 2006 8:57 pm ]
Post subject:
i dunno thats what i am suppost to do anyway i think my code is not working because i need an array with something like deck2 right so that it reconizes when its used a card or not but how do i do this kinda stuff though

Author:	Bored [ Tue Jun 13, 2006 9:02 pm ]
Post subject:
Please read over my method, it works and is rather simple though you may need to check the Turing Walkthrough for information on records and flexible arrays if you do not already know them.

Author:	gilbamy [ Tue Jun 13, 2006 9:03 pm ]
Post subject:
alright i read my note it says that i can just deal them to one player at a time alright but how do i do that and my oringnl code srill does not work

Author:	gilbamy [ Tue Jun 13, 2006 9:19 pm ]
Post subject:
well with that code i have 5 problems the line var temp :cards it says something like compile time excepted. Then var a,b :int its like var expected .. then there is Randomcard(a,1,52) Randomcard(b,1,52)these two lines where it is like Randomcard cannot have subscripts but if i put into an array it causes 3 more problems

Author:

Bored [ Tue Jun 13, 2006 9:20 pm ]

Post subject:

Well look at this first you declare checkdeck1 as an array:

code:

var checkdeck1: array 1..52 of int

Then you attempt to use it as an int:

code:

checkdeck1:=1

Then when you make checkdeck1 an int, but this cause problems as your trying to use it as an array here

code:

exit when checkdeck1(p1Randomcard)=0

from the looks of your code checkdeck should be neither a int or an array of ints but a procedure that returns 0 if the card is not found. The way you seem to be doing this is by randomly choosing a card and then checking if that card has been already dealt, if not then dealing it. This is sorta fuzzy, unstable, and unpredicatable logic sorta of like stupid sort. i would recommend you relook over your logic, rather then randomly choosing cards, I would recomend you shuffle the deck then deal. I have even givin you a shuffle algorithm. i cannot help you further from what you have given me as your intentions are unclear through your code.

Author:	gilbamy [ Tue Jun 13, 2006 9:22 pm ]
Post subject:
i am going by what my teach told me when he was playing chess today in class

Author:

Bored [ Tue Jun 13, 2006 9:27 pm ]

Post subject:

gilbamy wrote:

well with that code i have 5 problems the line var temp :cards it says something like compile time excepted.

Well that's probably becuase you have not yet created a cards type. Add this at the top of your program.

code:

type card :
record
value : int
suit : string %or int your choice
end record
var deck : array 1..52 of card

After that you'll need to set the card values and suits but I'll leave that up to you.

gilbamy wrote:

Then var a,b :int its like var expected

Well that error I beleive stems from the error at the previous line and the way turing handled it.

gilbamy wrote:

.. then there is Randomcard(a,1,52)
Randomcard(b,1,52)these two lines where it is like Randomcard cannot have subscripts but if i put into an array it causes 3 more problems

Well first of I had randint (a,1,52) not Randomcard whatever that is (whic I guess is some variable). Also i hope you copied the procedure and didn't try to incorporate my code into your or replace it.

Author:

gilbamy [ Tue Jun 13, 2006 9:55 pm ]

Post subject:

well i got my oringanl code to stop having errors but now it the cards don't appear

code:

for deal : 1..52
loop
Randomcard:=Rand.Int(1,52)
exit when checkdeck1=0
end loop
Pic.Draw(cards(Randomcard),x1,y1,picMerge)
end for

Author:

gilbamy [ Tue Jun 13, 2006 10:59 pm ]

Post subject:

okay well i got my cards to appear but they are douvles of the same cards like same value and type how do i stop that from happening here is all my code

code:

%Amy Gilbank
%June 1 2006
%war1.t
%a game of war
var winMain : int := Window.Open ("graphics:800;600")
var font1, font2 : int
var Randomcard, x1, x2, y1, y2 : int
var cards : array 1 .. 52 of int
var checkdeck1 : int
var cardvalue : array 1 .. 52 of int
var p2currentcard, p1currentcard, p1next, p2next : int
var p1, p2, p1value, p2value, deckcheck, deck, deckvalue, decktest : array 1 .. 52 of int
drawfillbox (0, 600, 800, 0, 199)
checkdeck1 := 1
for p : 1 .. 52
decktest (p) := 1
end for
%Battle area
drawfillbox (20, 100, 95, 200, 78)
drawfillbox (120, 100, 195, 200, 78)
drawfillbox (220, 100, 295, 200, 78)
drawfillbox (320, 100, 395, 200, 78)
drawfillbox (420, 100, 495, 200, 78)
drawfillbox (520, 100, 595, 200, 78)
drawfillbox (620, 100, 695, 200, 78)
drawfillbox (720, 100, 795, 200, 78)
%Deck and cards spot
drawfillbox (200, 400, 275, 500, 79)
drawfillbox (500, 400, 575, 500, 80)
drawfillbox (300, 400, 375, 500, 0)
drawfillbox (400, 400, 475, 500, 0)
%Scoreboard and card number spots
drawfillbox (320, 360, 360, 380, 0)
drawfillbox (420, 360, 460, 380, 0)
%Fonts
font1 := Font.New ("Vineta BT:45: bold,underline")
Font.Draw ("WAR!", 260, 550, font1, red)
font2 := Font.New ("New Times Roman :11:")
Font.Draw ("Player 1", 300, 310, font2, 27)
Font.Draw ("Player 2", 410, 310, font2, 27)
Font.Draw ("Deck", 220, 510, font2, 27)
Font.Draw ("Deck", 520, 510, font2, 27)
%Cards
cards (1) := Pic.FileNew ("10C.jpg")
cards (2) := Pic.FileNew ("10D.jpg")
cards (3) := Pic.FileNew ("10H.jpg")
cards (4) := Pic.FileNew ("10S.jpg")
cards (5) := Pic.FileNew ("2C.jpg")
cards (6) := Pic.FileNew ("2D.jpg")
cards (7) := Pic.FileNew ("2H.jpg")
cards (8) := Pic.FileNew ("2S.jpg")
cards (9) := Pic.FileNew ("3C.jpg")
cards (10) := Pic.FileNew ("3D.jpg")
cards (11) := Pic.FileNew ("3H.jpg")
cards (12) := Pic.FileNew ("3S.jpg")
cards (13) := Pic.FileNew ("4C.jpg")
cards (14) := Pic.FileNew ("4D.jpg")
cards (15) := Pic.FileNew ("4H.jpg")
cards (16) := Pic.FileNew ("4S.jpg")
cards (17) := Pic.FileNew ("5C.jpg")
cards (18) := Pic.FileNew ("5D.jpg")
cards (19) := Pic.FileNew ("5H.jpg")
cards (20) := Pic.FileNew ("5S.jpg")
cards (21) := Pic.FileNew ("6C.jpg")
cards (22) := Pic.FileNew ("6D.jpg")
cards (23) := Pic.FileNew ("6H.jpg")
cards (24) := Pic.FileNew ("6S.jpg")
cards (25) := Pic.FileNew ("7C.jpg")
cards (26) := Pic.FileNew ("7D.jpg")
cards (27) := Pic.FileNew ("7H.jpg")
cards (28) := Pic.FileNew ("7S.jpg")
cards (29) := Pic.FileNew ("8C.jpg")
cards (30) := Pic.FileNew ("8D.jpg")
cards (31) := Pic.FileNew ("8H.jpg")
cards (32) := Pic.FileNew ("8S.jpg")
cards (33) := Pic.FileNew ("9C.jpg")
cards (34) := Pic.FileNew ("9D.jpg")
cards (35) := Pic.FileNew ("9H.jpg")
cards (36) := Pic.FileNew ("9S.jpg")
cards (37) := Pic.FileNew ("QC.jpg")
cards (38) := Pic.FileNew ("QD.jpg")
cards (39) := Pic.FileNew ("QH.jpg")
cards (40) := Pic.FileNew ("QS.jpg")
cards (41) := Pic.FileNew ("AC.jpg")
cards (42) := Pic.FileNew ("AD.jpg")
cards (43) := Pic.FileNew ("AH.jpg")
cards (44) := Pic.FileNew ("AS.jpg")
cards (45) := Pic.FileNew ("JC.jpg")
cards (46) := Pic.FileNew ("JD.jpg")
cards (47) := Pic.FileNew ("JH.jpg")
cards (48) := Pic.FileNew ("JS.jpg")
cards (49) := Pic.FileNew ("KC.jpg")
cards (50) := Pic.FileNew ("KD.jpg")
cards (51) := Pic.FileNew ("KH.jpg")
cards (52) := Pic.FileNew ("KS.jpg")
%Code
x1 := 300
y1 := 400
x2 := 400
y2 := 400
for deal : 1 .. 52
loop
Randomcard := Rand.Int (1, 52)
if decktest (Randomcard) = 0 then
exit
elsif decktest (Randomcard) = 1 then
decktest (Randomcard) := 0
exit
end if
end loop
end for
Pic.Draw (cards (Randomcard), x1, y1, picMerge)
Pic.Draw (cards (Randomcard), x2, y2, picMerge)
%for i : 1 .. 26
% Randomcard := Rand.Int (1, 52)
% exit when deckcheck (Randomcard) = 0
% deckcheck (Randomcard) := 1
% p1 (i) := deck (Randomcard)
% p1value (i) := deckvalue (Randomcard)
%end for
cardvalue (1) := 10
cardvalue (2) := 10
cardvalue (3) := 10
cardvalue (4) := 10
cardvalue (5) := 2
cardvalue (6) := 2
cardvalue (7) := 2
cardvalue (8) := 2
cardvalue (9) := 3
cardvalue (10) := 3
cardvalue (11) := 3
cardvalue (12) := 3
cardvalue (13) := 4
cardvalue (14) := 4
cardvalue (15) := 4
cardvalue (16) := 4
cardvalue (17) := 5
cardvalue (18) := 5
cardvalue (19) := 5
cardvalue (20) := 5
cardvalue (21) := 6
cardvalue (22) := 6
cardvalue (23) := 6
cardvalue (24) := 6
cardvalue (25) := 7
cardvalue (26) := 7
cardvalue (27) := 7
cardvalue (28) := 7
cardvalue (29) := 8
cardvalue (30) := 8
cardvalue (31) := 8
cardvalue (32) := 8
cardvalue (33) := 9
cardvalue (34) := 9
cardvalue (35) := 9
cardvalue (36) := 9
cardvalue (37) := 12
cardvalue (38) := 12
cardvalue (39) := 12
cardvalue (40) := 12
cardvalue (41) := 14
cardvalue (42) := 14
cardvalue (43) := 14
cardvalue (44) := 14
cardvalue (45) := 11
cardvalue (46) := 11
cardvalue (47) := 11
cardvalue (48) := 11
cardvalue (49) := 13
cardvalue (50) := 13
cardvalue (51) := 13
cardvalue (52) := 13
p1next := 27
p1currentcard := 1
p2next := 27
p2currentcard := 1
%if p1value (p1currentcard) = p2value (p2currentcard) then
% p1next := p2 (p2currentcard)
% p1value (p1next) := p2value (p2currentcard)
%p1next := p1next + 1
% p1currentcard := p1currentcard + 1
%p2 (p2currentcard) := p2 (p2next - 1)
%p2value (p2currentcard) := p2value (p2next - 1)
%p2next := p2next - 1
%end if

Author:

Clayton [ Wed Jun 14, 2006 6:05 pm ]

Post subject:

my heart breaks when i see code like this:

code:

cardvalue (1) := 10
cardvalue (2) := 10
cardvalue (3) := 10
cardvalue (4) := 10
cardvalue (5) := 2
cardvalue (6) := 2
cardvalue (7) := 2
cardvalue (8) := 2
cardvalue (9) := 3
cardvalue (10) := 3
cardvalue (11) := 3
cardvalue (12) := 3
cardvalue (13) := 4
cardvalue (14) := 4
cardvalue (15) := 4
cardvalue (16) := 4
cardvalue (17) := 5
cardvalue (18) := 5
cardvalue (19) := 5
cardvalue (20) := 5
cardvalue (21) := 6
cardvalue (22) := 6
cardvalue (23) := 6
cardvalue (24) := 6
cardvalue (25) := 7
cardvalue (26) := 7
cardvalue (27) := 7
cardvalue (28) := 7
cardvalue (29) := 8
cardvalue (30) := 8
cardvalue (31) := 8
cardvalue (32) := 8
cardvalue (33) := 9
cardvalue (34) := 9
cardvalue (35) := 9
cardvalue (36) := 9
cardvalue (37) := 12
cardvalue (38) := 12
cardvalue (39) := 12
cardvalue (40) := 12
cardvalue (41) := 14
cardvalue (42) := 14
cardvalue (43) := 14
cardvalue (44) := 14
cardvalue (45) := 11
cardvalue (46) := 11
cardvalue (47) := 11
cardvalue (48) := 11
cardvalue (49) := 13
cardvalue (50) := 13
cardvalue (51) := 13
cardvalue (52) := 13

y not follow TheOneTrueGod's suggestion? if not do a nested for loop ex.

code:

var count:int
var cardvalue:flexible array 1..1 of int
for card:1..13
for suit: 1..4
cardvalue(upper(cardvalue)):=card
new cardvalue, upper(cardvalue) + 1
end for
end for

not as nice as TOTG's but gets the job done, do something similiar with the pictures (though u would only need one for loop) and your code would be much easier to read Very Happy

Author:

Clayton [ Wed Jun 14, 2006 6:07 pm ]

Post subject:

oops, also if you arent going to use a flexible array, you will need the nested for loops like such:

code:

var cardvalue:array 1..52 of int
for card:1..13
for suit:1..4
cardvalue(card*suit):=card
end for
end for

Author:

Bored [ Wed Jun 14, 2006 6:40 pm ]

Post subject:

code:

cardvalue(card*suit):=card

Tsk, tsk, tsk. That won't work, that would make card 2 suit 1 be overwritten by card 1 suit 2. I think though that we should let glibany figure out why as he has had much information given to him, and we all know that they must learn to do on there own no matter how lost they may be.

Author:

gilbamy [ Sun Jun 18, 2006 11:54 pm ]

Post subject:

i do believe i have what i need for dealing my cards

code:

for i : 1 .. 52
checkdeck (i) := 1
end for

for i : 1 .. 26
loop
Randomcard := Rand.Int (1, 52)
exit when checkdeck (Randomcard) = 1
end loop
checkdeck (Randomcard) := 0
p1 (i) := cards (Randomcard)
end for

for i : 1 .. 26
loop
Randomcard := Rand.Int (1, 52)
exit when checkdeck (Randomcard) = 1
end loop
checkdeck (Randomcard) := 1
p2 (i) := cards (Randomcard)
end for
for i : 1 .. 26
Pic.Draw (p1 (i), x1, y1, 0)
Pic.Draw (p2 (i), x2, y2, 0)
end for

whats the point in telling people not to help me if you don't want to help me then don't post on my topics and also if i don't get help i well be even more confused then i already i' am

Author:

gilbamy [ Sun Jun 18, 2006 11:55 pm ]

Post subject:

gilbamy wrote:

i do believe i have what i need for dealing my cards

code:

whats the point in telling people not to help me if you don't want to help me then don't post on my topics and also if i don't get help i well be even more confused then i already i' am

by the way i'am not a guy so yeah

Author:

Bored [ Mon Jun 19, 2006 10:43 am ]

Post subject:

gilbamy wrote:

i do believe i have what i need for dealing my cards

code:

Well actually that code is very flawed. You see the way you are doing it you could potentially never finish dealing the cards. It's about as useful as Stupid Sort, though a bit more likely to have a faster execution. You see with the fact that the dealing must happen when some condition is met at random then you have no idea how long it will take, it could take a second, an hour, a day.
how about this you creat an array of integers with numbers from 1 to 52. Your have a sorting procedure that looks something like this.

code:

proc Sort (var a : array 1..* of int)
var one, two, temp : int
for i : 1..upper (a) * 100
randint (one, 1, upper (a))
randint (two, 1, upper (a))
temp := a (one)
a (one) := a (two)
a (two) := temp
end for
end Sort
var cardIndex : array 1..52 of int
for i : 1..52
cardIndex := i
end for

You'd call your procedure to sort that array. Once it's sorted the first 26 cards are for player one, and the second 26 are for player two. You see the integers each index hold are from 1 to 52 therefore they are the indexes of the cards so say cardIndex (1) = 5 then player one would reseave card (cardIndex (1)) which is 5. I'd suggest using a loop for this.

gilbany wrote:

whats the point in telling people not to help me if you don't want to help me then don't post on my topics and also if i don't get help i well be even more confused then i already i' am

Everyone here is helping you, we are trying to give you as much instruction without actually telling you the ANSWER. You see by telling you the answer we'd be doing it for you.

gilbany wrote:

by the way i'am not a guy so yeah

And your point is??

Author:	gilbamy [ Mon Jun 19, 2006 8:14 pm ]
Post subject:
you called me a guy in your one post

Author:	Bored [ Mon Jun 19, 2006 8:45 pm ]
Post subject:
Oh, OK, well sorry about that but I tend to assume that people on these forums are guys as the chances are 100-1 that they are.

You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy