Sorry your browser is not supported!

InventoryPartCardSprite as integer[-1]
for i=0 to ListPartCardsCategories[0].PartCard.length
		InventoryPartCardSprite.length=InventoryPartCardSprite.length+1
		InventoryPartCardSprite[i]=CreateSprite(loadimage(ListPartCardsCategories[0].PartCard[i].ImageName))
		SetSpritePosition(InventoryPartCardSprite[i],(i+1)*152-152,951)
next i

for i=0 to ListPartCardsCategories[0].PartCard.length
		ListPartCardsCategories[0].partcard[i].SpriteId=createsprite(LoadImage(ListPartCardsCategories[0].PartCard[i].ImageName))
		SetSpritePosition(ListPartCardsCategories[0].partcard[i].SpriteId,(i+1)*152-152,951)
next i

for i=0 to ListPartCardsCategories[0].PartCard.length
		createsprite(i,LoadImage(ListPartCardsCategories[0].PartCard[i].ImageName))
		SetSpritePosition(i,(i+1)*152-152,951)
next i

		if GetPointerPressed()
			TempCardHitted=GetSpriteHit(GetPointerX(),GetPointerY())
		endif

		for i=0 to ListPartCardsCategories[0].PartCard.length
			if ListPartCardsCategories[0].PartCard[i].spriteid=TempCardHitted
				print("TypeID: "+str(i))
			endif
		next i

for i=1 to ListPartCardsCategories[0].PartCard.length
        createsprite(i,LoadImage(ListPartCardsCategories[0].PartCard[i].ImageName))
        SetSpritePosition(i, i*152-152,951)
next i

tempfind=listpartcardscategories[0].spriteid.find(TempCardHitted)

type tCard
	id as integer
	name as string
endtype

global gCard as tCard[100000]
global id as integer

global read as float
global write as float

print("Writing 100,000 cards")
sync()

time# = timer()
for i = 0 to gCard.length
	gCard[i].id = i
	gCard[i].name = "Card " + str(i)
next i
write = timer() - time#


print("Reading 100,000 cards")
sync()
time# = timer()
for i = 0 to gCard.length
	id = gCard[i].id
next i
read = timer() - time#

while GetRawKeyReleased(27) = 0
	print (" Read 100,000 Cards : " + str(read,3) + " seconds")
	print ("Write 100,000 Cards : " + str(write,3) + " seconds")
	sync()
endwhile

Type Card
	sprite as integer
	number as integer
	suite  as integer
EndType

suites as string[4]
suites[0] = "Hearts"
suites[1] = "Clubs"
suites[2] = "Diamonds"
suites[3] = "Spades"


cards as Card[52]



buildDeck(cards)
shuffle(cards, 100)


DO


	if getPointerPressed() then selectedCard = getCardAt(cards, getRawMouseX(), getRawMouseY())




	sync()
LOOP






function buildDeck(cards ref as Card[])
	for k = 0 to 3
		for i = 0 to 12
			x = k*12 + i
			img = loadImage(suites[k]+"_"+str(i+1)+".png")  // "Hearts_1.png"
			cards[x].sprite = createSprite(img)
			cards[x].suite  = k
		next i
	next k
endfunction




function getCardAt(cards as Card[], x as integer, y as integer)
	for i = 0 to cards.length-1
		// Cards are simple rectangles, just check for a point in a box and forget sprite hit in this case
		if x > getSpriteX(cards[i].sprite) and y > getSpriteY(cards[i].sprite) and x < getSpriteX(cards[i].sprite)+getSpriteWidth(cards[i].sprite) and y < getSpriteY(cards[i].sprite)+getSpriteHeight(cards[i].sprite)
			exitfunction i
		endif
	next i
endfunction -1




function shuffle(c ref as Card[], shuffles as integer)
	for i = 1 to shuffles
		a = random(0, c.length-1)
		b = random(0, c.length-1)
		c.swap(a, b)
	next i
endfunction

; have an array that stores way card owns the sprite..   make it big enough it never has to be resized
SpriteIndexToCards as integer[10000] 

InventoryPartCardSprite as integer[-1]

for i=0 to ListPartCardsCategories[0].PartCard.length

        InventoryPartCardSprite.length=InventoryPartCardSprite.length+1

        ; this could be wrapped into a function and hidden from the client code
       SpriteIndex = CreateSprite( loadimage( ListPartCardsCategories[0].PartCard[i].ImageName))

       ; store the Card Index  into this sprites index within the look up table
       SpriteIndexToCards[SpriteIndex] = i

 ;etc
        InventoryPartCardSprite[i]= SpriteIndex

        SetSpritePosition(SpriteIndex,(i+1)*152-152,951)
next i

function ReturnTypeIDFromPartCardSprite(ListPartCardsCategories as PartCardsCategories[], PartCardCategoryID as integer, HittedSpriteID as integer)
	TypeID as integer
	I as integer
	for i=0 to ListPartCardsCategories[PartCardCategoryID].PartCard.length
		if ListPartCardsCategories[PartCardCategoryID].PartCard[i].spriteid=HittedSpriteID
			TypeID=i
		endif
	next i
endfunction TypeID

AllPartCardsCategories as PartCardsCategories[-1]
AllPartCardsCategories.length=AllPartCardsCategories.length+1
AllPartCardsCategories[0].CategoryName="xxxxx"
AllPartCardsCategories[0].ImageName="xxxxxx.png"
AllPartCardsCategories[0].SpriteID=0
AllPartCardsCategories.length=AllPartCardsCategories.length+1
AllPartCardsCategories[1].CategoryName="yyyyyy"
AllPartCardsCategories[1].ImageName="yyyyyy.png"
AllPartCardsCategories[1].SpriteID=0

function Myloop(ListPartCardsCategories as PartCardsCategories[])
    do      
       print("length: "+str(ListPartCardsCategories.length))
       sync()
    loop
endfunction