Hopefully you have some hair left
Try this, it should help you. If you have any questions, please ask:
set display mode 1024, 768, 32 : ink 0, rgb(0, 255, 0) : cls
sync on : sync rate 60
cardsprite = 0 : randomize timer()
SW = screen width() - 100 : SH = screen height() - 100
for x = 11 to 62
`fn$ = str$(x) + ".jpg" : load image fn$,x
` since I don't have the images, let's make them from scratch
ink rgb(255,255,255),0
box 0,0,64,64
ink rgb(rnd(127) +128,rnd(127) + 128,rnd(127) + 128),0
box 4,4,60,60
ink rgb(255,0,0),0
center text 32,32,str$(x - 10)
get image x,0,0,64,64
inc cardsprite,1 : sprite cardsprite,0,0,x
next x
hide all sprites
remstart
` to show that all of the sprites and images are there
for c1 = 1 to 52
i1 = sprite image(c1)
c2 = 53 - c1 : i2 = sprite image(c2)
sprite c1,100,100,i1 : show sprite c1
sprite c2,200,100,i2 : show sprite c2
sync
wait 60
hide sprite c1 : hide sprite c2
next c1
remend
` show 100 X 2 sprites randomly
repeat
c1= rnd(51) + 1 : i1 = sprite image(c1)
` c2 needs to be a different number than c1
okay = 0
repeat
c2 = rnd(51) + 1
if c2 <> c1
i2 = sprite image(c2)
okay = 1
endif
until okay = 1
sprite c1,100,100,i1 : show sprite c1
sprite c2,200,100,i2 : show sprite c2
text 10,10,"C1: " + str$(c1)
text 10,30,"C2: " + str$(c2)
center text SW * .5,SH - 50,"Press [SPACEBAR] to exit."
sync
wait 500
hide sprite c1 : hide sprite c2
until spacekey() = 1
end
I had to make the card images, so obviously you would have to remove that part and load in your images. I also included some code if you wanted to look quickly at all of the cards.
Good luck.
