poker

[spazobo]

hi there....i need help in making a poker game..this is what i have so far..the positions are wrong but the basis is right..i need to know how to make the cards show up on the screen

var suit : int
var card1 : int
var card2 : int
var card3 : int
var card4 : int


proc clubs (loc : int)

for count : 1 .. 10
for x : 60 .. 540 by 100
drawbox (x, 190, x + 100, 290, 7)
drawfillbox (x + 1, 191, x + 99, 289, 0)
end for

randint (card1, 1, 13)

if card1 = 1 then
Pic.ScreenLoad ("H:/twoc.jpg", loc, 100, 0)

elsif card1 = 2 then
Pic.ScreenLoad ("H:/threec.jpg", 80, 100, 0)

elsif card1 = 3 then
Pic.ScreenLoad ("H:/fourc.jpg", 80, 100, 0)

elsif card1 = 4 then
Pic.ScreenLoad ("H:/fivec.jpg", 80, 100, 0)

elsif card1 = 5 then
Pic.ScreenLoad ("H:/sixc.jpg", 80, 100, 0)

elsif card1 = 6 then
Pic.ScreenLoad ("H:/sevenc.jpg", 80, 100, 0)

elsif card1 = 7 then
Pic.ScreenLoad ("H:/eightc.jpg", 80, 100, 0)

elsif card1 = 8 then
Pic.ScreenLoad ("H:/ninec.jpg", 80, 100, 0)

elsif card1 = 9 then
Pic.ScreenLoad ("H:/tenc.jpg", 80, 100, 0)

elsif card1 = 10 then
Pic.ScreenLoad ("H:/jackc.jpg", 80, 100, 0)

elsif card1 = 11 then
Pic.ScreenLoad ("H:/queenc.jpg", 80, 100, 0)

elsif card1 = 12 then
Pic.ScreenLoad ("H:/kingc.jpg", 80, 100, 0)

elsif card1 = 13 then
Pic.ScreenLoad ("H:/acec.jpg", 80, 100, 0)
delay (20)
end if
end for
end clubs

proc diamonds

for count : 1 .. 500
for x : 60 .. 540 by 100
drawbox (x, 190, x + 100, 290, 7)
drawfillbox (x + 101, 191, x + 199, 289, 0)
end for

randint (card2, 1, 13)

if card2 = 1 then
Pic.ScreenLoad ("H:/twod.jpg", 80, 100, 0)

elsif card2 = 2 then
Pic.ScreenLoad ("H:/threed.jpg", 80, 100, 0)

elsif card2 = 3 then
Pic.ScreenLoad ("H:/fourd.jpg", 80, 100, 0)

elsif card2 = 4 then
Pic.ScreenLoad ("H:/fived.jpg", 80, 100, 0)

elsif card2 = 5 then
Pic.ScreenLoad ("H:/sixd.jpg", 80, 100, 0)

elsif card2 = 6 then
Pic.ScreenLoad ("H:/sevend.jpg", 80, 100, 0)

elsif card2 = 7 then
Pic.ScreenLoad ("H:/eightd.jpg", 80, 100, 0)

elsif card2 = 8 then
Pic.ScreenLoad ("H:/nined.jpg", 80, 100, 0)

elsif card2 = 9 then
Pic.ScreenLoad ("H:/tend.jpg", 80, 100, 0)

elsif card2 = 10 then
Pic.ScreenLoad ("H:/jackd.jpg", 80, 100, 0)

elsif card2 = 11 then
Pic.ScreenLoad ("H:/queend.jpg", 80, 100, 0)

elsif card2 = 12 then
Pic.ScreenLoad ("H:/kingd.jpg", 80, 100, 0)

elsif card2 = 13 then
Pic.ScreenLoad ("H:/aced.jpg", 80, 100, 0)
delay (20)
end if
end for
end diamonds

proc hearts

for count : 1 .. 500
for x : 60 .. 540 by 100
drawbox (x, 190, x + 100, 290, 7)
drawfillbox (x + 201, 191, x + 299, 289, 0)
end for

randint (card3, 1, 13)

if card3 = 1 then
Pic.ScreenLoad ("H:/twoh.jpg", 80, 100, 0)

elsif card3 = 2 then
Pic.ScreenLoad ("H:/threeh.jpg", 80, 100, 0)

elsif card3 = 3 then
Pic.ScreenLoad ("H:/fourh.jpg", 80, 100, 0)

elsif card3 = 4 then
Pic.ScreenLoad ("H:/fiveh.jpg", 80, 100, 0)

elsif card3 = 5 then
Pic.ScreenLoad ("H:/sixh.jpg", 80, 100, 0)

elsif card3 = 6 then
Pic.ScreenLoad ("H:/sevenh.jpg", 80, 100, 0)

elsif card3 = 7 then
Pic.ScreenLoad ("H:/eighth.jpg", 80, 100, 0)

elsif card3 = 8 then
Pic.ScreenLoad ("H:/nineh.jpg", 80, 100, 0)

elsif card3 = 9 then
Pic.ScreenLoad ("H:/tenh.jpg", 80, 100, 0)

elsif card3 = 10 then
Pic.ScreenLoad ("H:/jackh.jpg", 80, 100, 0)

elsif card3 = 11 then
Pic.ScreenLoad ("H:/queenh.jpg", 80, 100, 0)

elsif card3 = 12 then
Pic.ScreenLoad ("H:/kingh.jpg", 80, 100, 0)

elsif card3 = 13 then
Pic.ScreenLoad ("H:/aceh.jpg", 80, 100, 0)
delay (20)
end if
end for
end hearts

proc spades

for count : 1 .. 500
for x : 60 .. 540 by 100
drawbox (x, 190, x + 100, 290, 7)
drawfillbox (x + 301, 191, x + 399, 289, 0)
end for

randint (card4, 1, 13)

if card4 = 1 then
Pic.ScreenLoad ("H:/twos.jpg", 80, 100, 0)

elsif card4 = 2 then
Pic.ScreenLoad ("H:/threes.jpg", 80, 100, 0)

elsif card4 = 3 then
Pic.ScreenLoad ("H:/fours.jpg", 80, 100, 0)

elsif card4 = 4 then
Pic.ScreenLoad ("H:/fives.jpg", 80, 100, 0)

elsif card4 = 5 then
Pic.ScreenLoad ("H:/sixs.jpg", 80, 100, 0)

elsif card4 = 6 then
Pic.ScreenLoad ("H:/sevens.jpg", 80, 100, 0)

elsif card4 = 7 then
Pic.ScreenLoad ("H:/eights.jpg", 80, 100, 0)

elsif card4 = 8 then
Pic.ScreenLoad ("H:/nines.jpg", 80, 100, 0)

elsif card4 = 9 then
Pic.ScreenLoad ("H:/tens.jpg", 80, 100, 0)

elsif card4 = 10 then
Pic.ScreenLoad ("H:/jacks.jpg", 80, 100, 0)

elsif card4 = 11 then
Pic.ScreenLoad ("H:/queens.jpg", 80, 100, 0)

elsif card4 = 12 then
Pic.ScreenLoad ("H:/kings.jpg", 80, 100, 0)

elsif card4 = 13 then
Pic.ScreenLoad ("H:/aces.jpg", 80, 100, 0)
delay (20)
end if
end for
end spades

proc select (var loc : int)

for i : 1 .. 5
loc := 50
randint (suit, 1, 4)
if suit = 1 then
clubs (loc)
elsif suit = 2 then
diamonds
elsif suit = 3 then
hearts
elsif suit = 4 then
spades
end if
loc += 100
end for
end select

[Cervantes]

check the Tidbits and Tricks thread. in the first post, Asian shows us how to load up a lot of pictures (like you are doing here) easily.

if you want to keep going your way, I wouldn't recommend using Pic.ScreenLoad. use Pic.FileNew() to assaign a variable to each of your pictures, then use Pic.Draw() to draw it.