' AceyDucey One Deck Match.
' Inspired by Bill Palmby. http://www.atariarchives.org/basicgames/showpage.php?page=2
' E.K.Virtanen 2007, Public Domain.
' www.ascii-world.com

Type Card
	Value	AS Integer
	Land 	AS String
	LColor	AS Integer
END Type
	DIM Cards(1 TO 52) AS Card

DECLARE SUB Create_Deck(Cards() AS Card)
DECLARE SUB CLR() 
WINDOWTITLE "AceyDucey One Deck Match"
SCREEN 14 : CLR()
Create_Deck(Cards())

COLOR 1, 15
LOCATE 2, 7 : Print "AceyDucey One Deck Match."
LOCATE 4, 7 : Print "Inspired by Bill Palmby."
LOCATE 6, 3 : Print "E.K.Virtanen 2007, Public Domain."
LOCATE 7, 9 : Print "www.ascii-world.com"
COLOR 0, 15
Print ""
Print "You see two cards at once from deck."
Print ""
Print "If you believe that next card from deck"
Print "is between those two cards you see"
Print "on screen, or same than other of them,"
Print "you can bet money for it."
Print ""
Print "If you dont wana bet, then stake 0$."
Print ""
Print "Game ends if you loose all your moneys,"
Print "or when whole deck is played."
Print ""
Print "Press some key to play." : GETKEY

' /// let's play
DIM AS Integer DeckLoc, Money, Bigger, Smaller, Counter, Bet
	DeckLoc = 3	: Money = 100
CLR()
DO
    CLR() : Color 1, 15
 ' first, we check wich is bigger and wich is smaller card.       
    IF Cards(DeckLoc - 2).Value <= Cards(DeckLoc - 1).Value THEN
        Smaller = Cards(DeckLoc - 2).Value
        Bigger = Cards(DeckLoc - 1).Value
    END IF
                                                        
    IF Cards(DeckLoc - 2).Value > Cards(DeckLoc - 1).Value THEN
        Smaller = Cards(DeckLoc - 1).Value
        Bigger = Cards(DeckLoc - 2).Value
    END IF
    
    LOCATE 10, 10 : Color Cards(DeckLoc - 2).LColor, 15
        Print Cards(DeckLoc - 2).Value; Cards(DeckLoc - 2).Land
    LOCATE 10, 29 : Color Cards(DeckLoc - 1).LColor, 15
        Print Cards(DeckLoc - 1).Value; Cards(DeckLoc - 1).Land
    LOCATE 12, 15 : Color 1, 15 : Print "Money: "; Money ; "$"
    LOCATE 13, 10 : Print "Cards in deck: "; (52 - DeckLoc)
    
    LOCATE 15, 10 : Color 0, 15 : Input "Do you bet and how much?"; Bet
    
    LOCATE 17, 19 : Color Cards(DeckLoc).LColor, 15
        Print Cards(DeckLoc).Value; Cards(DeckLoc).Land
	
    IF Bet < 1 OR Bet > Money THEN
        IF Cards(DeckLoc).Value >= Smaller AND Cards(DeckLoc).Value <= Bigger THEN
            Color 1, 15
            LOCATE 19, 5 : Print "Oh crab!!! Why you didn't bet?"
        END IF
        
        IF Cards(DeckLoc).Value < Smaller OR Cards(DeckLoc).Value > Bigger THEN
            Color 4, 15
            LOCATE 19, 2 : Print "Nice one. You saved your moneys here."
    END IF
    
    END IF

    IF Bet > 0 AND Bet <= Money THEN
        IF Cards(DeckLoc).Value >= Smaller AND Cards(DeckLoc).Value <= Bigger THEN
            COLOR 4, 15
            LOCATE 19, 6 : Print "Victory!!! You did win "; (Bet) ; "$"
            Money = (Money + Bet)
        END IF
        
        IF Cards(DeckLoc).Value < Smaller OR Cards(DeckLoc).Value > Bigger THEN
            COLOR 1, 15
            LOCATE 19, 9 : Print "Oh shame, you loose "; Bet ; "$"
            Money = (Money - Bet)
        END IF
    END IF
    
    DeckLoc = DeckLoc + 1 : Bet = 0
    
    GETKEY
Loop Until DeckLoc = 53 OR Money = 0

CLR() : Color 2, 15 : 
LOCATE 20, 3 : Print "You ended with "; Money ; "$ in your pocket."
SLEEP
END

SUB Create_Deck(Cards() AS Card)
	' we need some temp variables here.
	DIM AS Card TempCard			' we use this when shufling deck.
	DIM AS Integer SubInt, SubInt2
	DIM AS Integer Colors(0 TO 4)
	Colors(0) = 4 : Colors(1) = 4 : Colors(2) = 0 : Colors(2) = 0

	' let's create a new deck.
    For SubInt = 0 To 51
        Cards(SubInt + 1).Land = CHR$(INT(SubInt Mod 4) + 3)
        Cards(SubInt + 1).Value = (SubInt \ 4 + 1)
        Cards(SubInt + 1).LColor = Colors(INT(SubInt Mod 4))
    Next 

	' now we need to shuffle it for while.
	DIM AS Double Timing = TIMER
	DO
		SubInt = INT(RND * 52) + 1
		SubInt2 = INT(RND * 52) + 1
		IF SubInt <> SubInt2 THEN
			TempCard = Cards(SubInt)
			Cards(SubInt) = Cards(SubInt2)
			Cards(SubInt2) = TempCard
		End IF
	Loop Until (TIMER - Timing) > 3.0
	
END SUB

SUB CLR()
	COLOR 15, 15 : CLS
END SUB