OK so here's my latest incarnation, of course I have all of the pictures to go with this but you get the idea. This works like I want it to except that it sometimes will put up the same card more than once and I'm sure there are some short cuts I'm not hip to yet, but I'm gonna do it this time. I never finished it before and this time I want a game that will work. I took the long road for the card array but hey, it works. Any ideas?
Dim backgroundImage
Dim bgSprite
backgroundImage = LoadTexture("Data\bg.jpg")
bgSprite = NewSprite(backgroundImage)
SprSetPos(320,240)
SprSetSize(640, 480)
SprSetZOrder(3)
'Dim backgroundImage2
'Dim bgSprite2
'backgroundImage2 = LoadTexture("Data\rank2.jpg")
'bgSprite2 = NewSprite(backgroundImage2)
'SprSetPos(320,375)
'SprSetSize(300, 125)
'SprSetZOrder(3) 'From here up is the background picture.
DrawText()
dim s1,s2,s3,s4,s5
dim ia, ib, ic, id, ja, jb, jc, jd, ka, kb, kc, kd, la, lb, lc, ld, ma, mb, mc, md, na, nb, nc, nd, oa, ob, oc, od, pa, pb, pc, pd, qa, qb, qc, qd, ra, rb, rc, rd, sa, sb, sc, sd, ta, tb, tc, td, ua, ub, uc, ud, v
ia = LoadTexture("Data\2s.bmp")
ia = 1
ib = LoadTexture("Data\2c.bmp")
ib = 2
ic = LoadTexture("Data\2h.bmp")
ic = 3
id = LoadTexture("Data\2d.bmp")
id = 4
ja = LoadTexture("Data\3s.bmp")
ja = 5
jb = LoadTexture("Data\3c.bmp")
jb = 6
jc = LoadTexture("Data\3h.bmp")
jc = 7
jd = LoadTexture("Data\3d.bmp")
jd = 8
ka = LoadTexture("Data\4s.bmp")
ka = 9
kb = LoadTexture("Data\4c.bmp")
kb = 10
kc = LoadTexture("Data\4h.bmp")
kc = 11
kd = LoadTexture("Data\4d.bmp")
kd = 12
la = LoadTexture("Data\5s.bmp")
la = 13
lb = LoadTexture("Data\5c.bmp")
lb = 14
lc = LoadTexture("Data\5h.bmp")
lc = 15
ld = LoadTexture("Data\5d.bmp")
ld = 16
ma = LoadTexture("Data\6s.bmp")
ma = 17
mb = LoadTexture("Data\6c.bmp")
mb = 18
mc = LoadTexture("Data\6h.bmp")
mc = 19
md = LoadTexture("Data\6d.bmp")
md = 20
na = LoadTexture("Data\7s.bmp")
na = 21
nb = LoadTexture("Data\7c.bmp")
nb = 22
nc = LoadTexture("Data\7h.bmp")
nc = 23
nd = LoadTexture("Data\7d.bmp")
nd = 24
oa = LoadTexture("Data\8s.bmp")
oa = 25
ob = LoadTexture("Data\8c.bmp")
ob = 26
oc = LoadTexture("Data\8h.bmp")
oc = 27
od = LoadTexture("Data\
.bmp")
od = 28
pa = LoadTexture("Data\9s.bmp")
pa = 29
pb = LoadTexture("Data\9c.bmp")
pb = 30
pc = LoadTexture("Data\9h.bmp")
pc = 31
pd = LoadTexture("Data\9d.bmp")
pd = 32
qa = LoadTexture("Data\10s.bmp")
qa = 33
qb = LoadTexture("Data\10c.bmp")
qb = 34
qc = LoadTexture("Data\10h.bmp")
qc = 35
qd = LoadTexture("Data\10d.bmp")
qd = 36
ra = LoadTexture("Data\js.bmp")
ra = 37
rb = LoadTexture("Data\jc.bmp")
rb = 38
rc = LoadTexture("Data\jh.bmp")
rc = 39
rd = LoadTexture("Data\jd.bmp")
rd = 40
sa = LoadTexture("Data\qs.bmp")
sa = 41
sb = LoadTexture("Data\qc.bmp")
sb = 42
sc = LoadTexture("Data\qh.bmp")
sc = 43
sd = LoadTexture("Data\qd.bmp")
sd = 44
ta = LoadTexture("Data\ks.bmp")
ta = 45
tb = LoadTexture("Data\kc.bmp")
tb = 46
tc = LoadTexture("Data\kh.bmp")
tc = 47
td = LoadTexture("Data\kd.bmp")
td = 48
ua = LoadTexture("Data\as.bmp")
ua = 49
ub = LoadTexture("Data\ac.bmp")
ub = 50
uc = LoadTexture("Data\ah.bmp")
uc = 51
ud = LoadTexture("Data\ad.bmp")
ud = 52
v = LoadTexture("Data\back.bmp")
SetTexLinearFilter(true)
WaitTimer (5000)
Dim card
gosub cards
WaitTimer (1000)
s1 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(115,220)
SprSetZOrder(2)
WaitTimer (1000)
gosub cards
s2 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(215,220)
WaitTimer (1000)
gosub cards
s3 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(315,220)
WaitTimer (1000)
gosub cards
s4 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(415,220)
WaitTimer (1000)
gosub cards
s5 = NewSprite(card)
sprSetSize(75, 125)
SprSetPos(515,220)
while true
AnimateSprites()
wend
cards:
card = Rnd() % 52 + 1
return
Oh by the way, thanks Darkjester but I don't understand the bindsprite in a loop thing yet but I'll get there. Maybe if you shot me an example I could "get" it but I'm an old dog and new tricks I have to see and tweak if you know what I mean. This is fun, there weren't any people around before to help so I'm diggin' this. Peace and I'll talk at ya later. Oldnoob