Card Game Basic Script help

This is my basic script for black jack setup

Step 1) Create a sprite with all 52 cards in it, so each card has a different sprite index.

step 2) Create objects (and sprites) for each player ( I have 3 player objects me and 3 ai players)

Step 3) Create table to play on! and controller object which is not visible and calls setup script described below.


This is setup script (this scipt is called once at beginning of game from controller object), this script call the other 2 scripts.

globalvar playerbusted, playercards, playercarddealt, randomdeck, originaldeck, deckno, twisting, sticking, Score,gameno,aiplayer,aicarddealt;

twisting = false;
sticking = false;
playerbusted = false;

deck[1] = 0;
deckno=8;

// non randomised Deck

for (i = 1; i <= 51; i ++)
{
 originaldeck[i] = false;
 show_debug_message("OriginalDeck :" + string(i));
}

createarandomdeck();
firstcards();

This is create createarandomdeck script

var checkloop
show_debug_message("Randoming the deck");
// now create a random deck
randomize();
for (i = 1; i <= 51 ; i++)
{  
    checkloop = true;
    while checkloop
    {
        cardno = irandom(51);
        show_debug_message("cardno=" +string(cardno));
        show_debug_message("i=" + string(i));
        if originaldeck[cardno] == false
        { 
          checkloop = false;
          originaldeck[cardno] = true; 
          randomdeck[i] = cardno;
          show_debug_message("Deck is:" + string(randomdeck[i]));
        }       
     }

}

This is create firstcards script

// setup at start each AI player and main character gets a card
aiplayer[0,0] = randomdeck[0]; // player one card 1
aiplayer[0,1] = randomdeck[1]; // player one card 2
aiplayer[1,0] = randomdeck[2]; // player two card 1
aiplayer[1,1] = randomdeck[3]; // player two card 2
aiplayer[2,0] = randomdeck[4]; // player three card 1
aiplayer[2,1] = randomdeck[5]; // player three card 2
playercarddealt[0] = randomdeck[6]; // player four card 1

playercarddealt[1] = randomdeck[7]; // player four card 2