« previous next »
Pages: [1]   Go Down

Author Topic: Clock Patience Game  (Read 24346 times)

0 Members and 1 Guest are viewing this topic.

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Clock Patience Game
« on: January 23, 2019, 09:43:07 am »
   This will take you back to your childhood.  It is a game of Clock Patience.  As Wikipedia says, Clock Patience is a game of zero skill, so your enjoyment may be rather fleeting.

   The enjoyment of writing the program derived from working out the requirements of the dealing and I have used _MAPTRIANGLE(3D), where the dealt cards rise out (a little) from the screen as they are dealt.

   I think that Steve McNeill will be pleased that I have used no _BIT type variables for my Booleans (_BYTE types).  In fact, he'll be more than pleased, he'll be thrilled to bytes.

   You will need the User Manual.
screenshot.png
* screenshot.png (Filesize: 406.95 KB, Dimensions: 813x836, Views: 771)
* Clock Patience User Manual.pdf (Filesize: 62.15 KB, Downloads: 476)
« Last Edit: January 28, 2019, 10:33:26 am by Qwerkey »
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Clock Patience Game
« Reply #1 on: January 23, 2019, 09:49:19 am »
A game of patience on more than one level. I imagine you forgot to post the code too?
Logged
You're not done when it works, you're done when it's right.

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Re: Clock Patience Game
« Reply #2 on: January 23, 2019, 09:54:49 am »
STxAxTIC, no I didn't forget.  I'm afraid that you have to get used to my annoying methods.  As most of my stuff uses image files, I put everything, including the code, into the User Manual which has a download hyperlink.  The code won't work without all the other stuff, so it's all together.
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Clock Patience Game
« Reply #3 on: January 23, 2019, 10:29:03 am »
Found it.
Logged
You're not done when it works, you're done when it's right.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Clock Patience Game
« Reply #4 on: January 23, 2019, 03:43:01 pm »
This game is great! Well made too! This is not the first time I have played this version of Patience but it was the first time that I have played THIS version. In the past, I have rarely been able to complete the game, your version is no exception... First card I picked was a King... fast forward about 15 cards... The next King was drawn as was his two buddies that were waiting in line to finish me off... Doh! 3 Kings in a row... Regardless of my luck with games, I enjoyed playing it... up to the point of being "done in"... Thank you. Great game!
Logged
Logic is the beginning of wisdom.

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Re: Clock Patience Game
« Reply #5 on: January 28, 2019, 10:34:22 am »
I have updated the program which now features animations for turning over and placing the cards.  This gives an enhanced experience of playing the game.  You may either copy the code here into your existing folder if you have downloaded the previous version, or you can download everything as given in the first part of this post.

Code: QB64: [Select]
  1. ': Clock Patience (extra animations) by QWERKEY 2019-01-30 (updated 2019-03-16)
  2. ': Version with card pick-up and placement animation
  3. ': Images from pngimg.com, all-free-download.com, openclipart.org
  4. ': This program uses
  5. ': InForm - GUI library for QB64 - Beta version 8
  6. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
  7. ': https://github.com/FellippeHeitor/InForm
  8. '-----------------------------------------------------------
  9.  
  10. ': Controls' IDs: ------------------------------------------------------------------
  11. DIM SHARED ClockPatience AS LONG
  12. DIM SHARED ExitBT AS LONG
  13. DIM SHARED NewGameBT AS LONG
  14. CONST Offset%% = 7, Pi! = 3.141592, Hours! = -Pi! / 6, ZOffset! = -398, XImage% = 182, YImage% = 252
  15. CONST Halfwidth%% = 50, Halfheight%% = Halfwidth%% * YImage% / XImage%, Radius% = 320, Tucked%% = 7
  16. DIM SHARED CardsImg&(51), Obverse&, RedHighlight&, GreenHighlight&, GameOver&, GameWon&, XM%, YM%
  17. DIM SHARED PickedUp%%, PickedHour%%, PickedCard%%, CanPutDown%%, Orient!, Orient0!, OldHour%%
  18. DIM SHARED Anime1%%, Anime2%%, DoPickUp%%, TurnOver%%, GreenValid%%, RedValid%%, Cards%%(51)
  19. DIM SHARED DoPatience%%, Stock%%, IsComplete%%, GotOut%%, Positions!(4, 12, 1, 4), Phi!(12)
  20. REDIM SHARED Clock%%(12, 4, 2)
  21.  
  22. ': External modules: ---------------------------------------------------------------
  23. '$INCLUDE:'InForm.ui'
  24. '$INCLUDE:'xp.uitheme'
  25. '$INCLUDE:'Clock Patience.frm'
  26. '$RESIZE:SMOOTH
  27.  
  28. ': Event procedures: ---------------------------------------------------------------
  29. SUB __UI_BeforeInit
  30.     $EXEICON:'.\clubs.ico'
  31.     DoPatience%% = False
  32.     Anime1%% = 31
  33.     Anime2%% = 43
  34.     'Set Data
  35.     FOR N%% = 0 TO 6
  36.         Phi!(N%%) = N%% * Hours!
  37.     NEXT N%%
  38.     FOR N%% = 7 TO 11
  39.         Phi!(N%%) = (N%% - 12) * Hours!
  40.     NEXT N%%
  41.     FOR S%% = 0 TO 4
  42.         Positions!(S%%, 0, 0, 4) = 0
  43.         Positions!(S%%, 0, 1, 4) = Radius% - Tucked%% * S%%
  44.         Positions!(S%%, 0, 0, 3) = Positions!(S%%, 0, 0, 4) + Halfwidth%%
  45.         Positions!(S%%, 0, 1, 3) = Positions!(S%%, 0, 1, 4) - Halfheight%%
  46.         Positions!(S%%, 0, 0, 2) = Positions!(S%%, 0, 0, 4) - Halfwidth%%
  47.         Positions!(S%%, 0, 1, 2) = Positions!(S%%, 0, 1, 4) - Halfheight%%
  48.         Positions!(S%%, 0, 0, 1) = Positions!(S%%, 0, 0, 4) + Halfwidth%%
  49.         Positions!(S%%, 0, 1, 1) = Positions!(S%%, 0, 1, 4) + Halfheight%%
  50.         Positions!(S%%, 0, 0, 0) = Positions!(S%%, 0, 0, 4) - Halfwidth%%
  51.         Positions!(S%%, 0, 1, 0) = Positions!(S%%, 0, 1, 4) + Halfheight%%
  52.     NEXT S%%
  53.     FOR S%% = 0 TO 4
  54.         FOR N%% = 1 TO 11
  55.             FOR M%% = 0 TO 4
  56.                 CALL Angle((Positions!(S%%, 0, 0, M%%)), (Positions!(S%%, 0, 1, M%%)), Positions!(S%%, N%%, 0, M%%), Positions!(S%%, N%%, 1, M%%), (Phi!(N%%)))
  57.             NEXT M%%
  58.         NEXT N%%
  59.     NEXT S%%
  60.     FOR S%% = 0 TO 4
  61.         Positions!(S%%, 12, 0, 0) = Tucked%% * (3 - S%%) - Halfwidth%%
  62.         Positions!(S%%, 12, 1, 0) = Halfheight%%
  63.         Positions!(S%%, 12, 0, 1) = Positions!(S%%, 12, 0, 0) + 2 * Halfwidth%%
  64.         Positions!(S%%, 12, 1, 1) = Halfheight%%
  65.         Positions!(S%%, 12, 0, 2) = Tucked%% * (3 - S%%) - Halfwidth%%
  66.         Positions!(S%%, 12, 1, 2) = -Halfheight%%
  67.         Positions!(S%%, 12, 0, 3) = Positions!(S%%, 12, 0, 2) + 2 * Halfwidth%%
  68.         Positions!(S%%, 12, 1, 3) = -Halfheight%%
  69.         Positions!(S%%, 12, 0, 4) = Tucked%% * (3 - S%%)
  70.         Positions!(S%%, 12, 1, 4) = 0
  71.     NEXT S%%
  72.     'Images
  73.     playingcards& = _LOADIMAGE("pack of cards.png", 32)
  74.     Corner& = _NEWIMAGE(33, 33, 32)
  75.     _DEST Corner&
  76.     COLOR _RGB32(247, 247, 247), _RGBA32(100, 100, 100, 0)
  77.     CIRCLE (16, 16), 16
  78.     PAINT (16, 16)
  79.     CIRCLE (16, 16), 16, _RGB32(204, 119, 34)
  80.     FOR N%% = 0 TO 51
  81.         R1%% = N%% \ 13
  82.         C1%% = N%% MOD 13
  83.         R2%% = R1%% \ 2
  84.         C2%% = R1%% MOD 2
  85.         R3%% = C1%% \ 5
  86.         C3%% = C1%% MOD 5
  87.         TempImg& = _NEWIMAGE(XImage%, YImage%, 32)
  88.         _DEST TempImg&
  89.         COLOR _RGB32(247, 247, 247), _RGBA32(100, 100, 100, 0)
  90.         _PUTIMAGE (0, 0), Corner&
  91.         _PUTIMAGE (0, YImage% - 33), Corner&
  92.         _PUTIMAGE (XImage% - 33, 0), Corner&
  93.         _PUTIMAGE (XImage% - 33, YImage% - 33), Corner&
  94.         LINE (16, 0)-(XImage% - 17, YImage% - 1), , BF
  95.         LINE (0, 16)-(XImage% - 1, YImage% - 17), , BF
  96.         LINE (16, 0)-(XImage% - 17, 0), _RGB32(204, 119, 34)
  97.         LINE (16, YImage% - 1)-(XImage% - 17, YImage% - 1), _RGB32(204, 119, 34)
  98.         LINE (0, 16)-(0, YImage% - 17), _RGB32(204, 119, 34)
  99.         LINE (XImage% - 1, 16)-(XImage% - 1, YImage% - 17), _RGB32(204, 119, 34)
  100.         X1! = 7 + 203 * C3%% + 996 * C2%%
  101.         X2! = 167 + X1!
  102.         Y1! = 13 + 267 * R3%% + 786 * R2%%
  103.         Y2! = Y1! + 222
  104.         _PUTIMAGE (6, 14)-(XImage% - 7, YImage% - 15), playingcards&, , (7 + 203 * C3%% + 996 * C2%%, Y1!)-(X2!, Y2!)
  105.         IF N%% = 23 THEN
  106.             F& = _LOADFONT("cyberbit.ttf", 14)
  107.             _FONT F&
  108.             COLOR _RGB32(226, 226, 226)
  109.             Q1$ = "PVDQJDX"
  110.             FOR M%% = 1 TO 7
  111.                 Q2$ = Q2$ + CHR$(ASC(MID$(Q1$, M%%, 1)) + 1)
  112.             NEXT M%%
  113.             _PRINTSTRING (XImage% - 110, YImage% - 20), Q2$
  114.             _FONT 16
  115.             _FREEFONT F&
  116.         END IF
  117.         CardsImg&(N%%) = _COPYIMAGE(TempImg&, 33)
  118.         _FREEIMAGE TempImg&
  119.     NEXT N%%
  120.     _FREEIMAGE Corner&
  121.     Corner& = _NEWIMAGE(33, 33, 32)
  122.     _DEST Corner&
  123.     COLOR _RGB32(200, 200, 247), _RGBA32(100, 100, 100, 0)
  124.     CIRCLE (16, 16), 16
  125.     PAINT (16, 16)
  126.     CIRCLE (16, 16), 16, _RGB32(204, 119, 34)
  127.     TempImg& = _NEWIMAGE(XImage%, YImage%, 32)
  128.     _DEST TempImg&
  129.     COLOR _RGB32(200, 200, 247)
  130.     _PUTIMAGE (0, 0), Corner&
  131.     _PUTIMAGE (0, YImage% - 33), Corner&
  132.     _PUTIMAGE (XImage% - 33, 0), Corner&
  133.     _PUTIMAGE (XImage% - 33, YImage% - 33), Corner&
  134.     LINE (16, 0)-(XImage% - 17, YImage% - 1), , BF
  135.     LINE (0, 16)-(XImage% - 1, YImage% - 17), , BF
  136.     LINE (16, 0)-(XImage% - 17, 0), _RGB32(204, 119, 34)
  137.     LINE (16, YImage% - 1)-(XImage% - 17, YImage% - 1), _RGB32(204, 119, 34)
  138.     LINE (0, 16)-(0, YImage% - 17), _RGB32(204, 119, 34)
  139.     LINE (XImage% - 1, 16)-(XImage% - 1, YImage% - 17), _RGB32(204, 119, 34)
  140.     C3%% = 4
  141.     C2%% = 0
  142.     R3%% = 2
  143.     R2%% = 0
  144.     X1! = 7 + 203 * C3%% + 996 * C2%%
  145.     X2! = 167 + X1!
  146.     Y1! = 13 + 267 * R3%% + 786 * R2%%
  147.     Y2! = Y1! + 222
  148.     _PUTIMAGE (14, 14)-(XImage% - 15, YImage% - 15), playingcards&, , (14 + 203 * C3%% + 996 * C2%%, Y1!)-(X2! - 4, Y2!)
  149.     Obverse& = _COPYIMAGE(TempImg&, 33)
  150.     _FREEIMAGE TempImg&
  151.     _FREEIMAGE Corner&
  152.     _FREEIMAGE playingcards&
  153.     TempImg& = _NEWIMAGE(81, 81, 32)
  154.     _DEST TempImg&
  155.     COLOR _RGB32(200, 0, 0)
  156.     CIRCLE (40, 40), 40
  157.     CIRCLE (40, 40), 39
  158.     CIRCLE (40, 40), 38
  159.     RedHighlight& = _COPYIMAGE(TempImg&, 33)
  160.     _FREEIMAGE TempImg&
  161.     TempImg& = _NEWIMAGE(81, 81, 32)
  162.     _DEST TempImg&
  163.     COLOR _RGB32(0, 200, 0)
  164.     CIRCLE (40, 40), 40
  165.     CIRCLE (40, 40), 39
  166.     CIRCLE (40, 40), 38
  167.     GreenHighlight& = _COPYIMAGE(TempImg&, 33)
  168.     _FREEIMAGE TempImg&
  169.     TempImg& = _NEWIMAGE(340, 80, 32)
  170.     _DEST TempImg&
  171.     COLOR _RGB32(0, 80, 32), _RGBA32(100, 100, 100, 0)
  172.     F& = _LOADFONT("cyberbit.ttf", 70)
  173.     _FONT F&
  174.     _PRINTSTRING (5, 5), "Game End"
  175.     _FONT 16
  176.     _FREEFONT F&
  177.     GameOver& = _COPYIMAGE(TempImg&, 33)
  178.     _FREEIMAGE TempImg&
  179.     TempImg& = _NEWIMAGE(356, 80, 32)
  180.     _DEST TempImg&
  181.     COLOR _RGB32(0, 80, 32), _RGBA32(100, 100, 100, 0)
  182.     F& = _LOADFONT("cyberbit.ttf", 70)
  183.     _FONT F&
  184.     _PRINTSTRING (5, 5), "Completed"
  185.     _FONT 16
  186.     _FREEFONT F&
  187.     GameWon& = _COPYIMAGE(TempImg&, 33)
  188.     _FREEIMAGE TempImg&
  189.     FOR N%% = 0 TO 51
  190.         Cards%%(N%%) = N%% + 1 'Cards%%() values adjusted to 1 - 13: then value 0 is empty
  191.     NEXT N%%
  192.     FOR N%% = 1 TO 4
  193.         CALL Shuffle(Cards%%())
  194.     NEXT N%%
  196.  
  197. SUB __UI_OnLoad
  198.     _SCREENMOVE 50, 0
  199.     Caption(NewGameBT) = "Deal"
  200.     SetFocus NewGameBT
  202.  
  203. SUB __UI_BeforeUpdateDisplay
  204.     'This event occurs at approximately 30 frames per second.
  205.     'You can change the update frequency by calling SetFrameRate DesiredRate%
  206.     STATIC Count%, InitDone%%, Grandad&, XStart%, YStart%
  207.     IF NOT InitDone%% THEN
  208.         InitDone%% = True
  209.         XStart% = -120
  210.         YStart% = 0
  211.         Grandad& = _LOADIMAGE("Clock1.png", 33)
  212.     END IF
  213.     IF NOT DoPatience%% THEN
  214.         _PUTIMAGE (201, 10), Grandad&
  215.     ELSE
  216.         IF GreenValid%% THEN
  217.             _MAPTRIANGLE (0, 0)-(80, 0)-(0, 80), GreenHighlight& TO(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)
  218.             _MAPTRIANGLE (80, 80)-(0, 80)-(80, 0), GreenHighlight& TO(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + -40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)
  219.         ELSEIF RedValid%% THEN
  220.             _MAPTRIANGLE (0, 0)-(80, 0)-(0, 80), RedHighlight& TO(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)
  221.             _MAPTRIANGLE (80, 80)-(0, 80)-(80, 0), RedHighlight& TO(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + -40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) - 40, Positions!(4, PickedHour%%, 1, 4) - 40, ZOffset!)-(Positions!(4, PickedHour%%, 0, 4) + 40, Positions!(4, PickedHour%%, 1, 4) + 40, ZOffset!)
  222.         END IF
  223.         IF Anime1%% < 31 THEN
  224.             'Display turning-over
  225.             IF OldHour%% = 12 THEN
  226.                 IF Anime1%% > 15 THEN
  227.                     Xtent! = 2 * Halfwidth%% * (Anime1%% - 15) / 15
  228.                     X0! = Positions!(4, OldHour%%, 0, 0)
  229.                     Y0! = Positions!(4, OldHour%%, 1, 0)
  230.                     Z0! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
  231.                     X1! = Positions!(4, OldHour%%, 0, 0) + Xtent!
  232.                     Y1! = Positions!(4, OldHour%%, 1, 0)
  233.                     Z1! = 0
  234.                     X2! = Positions!(4, OldHour%%, 0, 2)
  235.                     Y2! = Positions!(4, OldHour%%, 1, 2)
  236.                     Z2! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
  237.                     X3! = Positions!(4, OldHour%%, 0, 2) + Xtent!
  238.                     Y3! = Positions!(4, OldHour%%, 1, 2)
  239.                     Z3! = 0
  240.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
  241.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
  242.                 ELSE
  243.                     Psi! = Anime1%% * Pi! / (2 * 15)
  244.                     X0! = Positions!(4, OldHour%%, 0, 0)
  245.                     Y0! = Positions!(4, OldHour%%, 1, 0)
  246.                     Z0! = 0
  247.                     X1! = X0! + 2 * Halfwidth%% * COS(Psi!)
  248.                     Y1! = Y0!
  249.                     Z1! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
  250.                     X2! = Positions!(4, OldHour%%, 0, 2)
  251.                     Y2! = Positions!(4, OldHour%%, 1, 2)
  252.                     Z2! = 0
  253.                     X3! = X2! + 2 * Halfwidth%% * COS(Psi!)
  254.                     Y3! = Y2!
  255.                     Z3! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
  256.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
  257.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
  258.                 END IF
  259.             ELSE
  260.                 IF Anime1%% > 15 THEN
  261.                     Xtent! = 2 * Halfwidth%% * (Anime1%% - 15) / 15
  262.                     XA! = Positions!(4, 0, 0, 0)
  263.                     YA! = Positions!(4, 0, 1, 0)
  264.                     Z0! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
  265.                     XB! = Positions!(4, 0, 0, 0) + Xtent!
  266.                     YB! = Positions!(4, 0, 1, 0)
  267.                     Z1! = 0
  268.                     XC! = Positions!(4, 0, 0, 2)
  269.                     YC! = Positions!(4, 0, 1, 2)
  270.                     Z2! = 0.7 * SQR((4 * Halfwidth%% * Halfwidth%%) - (Xtent! * Xtent!))
  271.                     XD! = Positions!(4, 0, 0, 2) + Xtent!
  272.                     YD! = Positions!(4, 0, 1, 2)
  273.                     Z3! = 0
  274.                     CALL Angle((XA!), (YA!), X0!, Y0!, Orient0!)
  275.                     CALL Angle((XB!), (YB!), X1!, Y1!, Orient0!)
  276.                     CALL Angle((XC!), (YC!), X2!, Y2!, Orient0!)
  277.                     CALL Angle((XD!), (YD!), X3!, Y3!, Orient0!)
  278.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
  279.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
  280.                 ELSE
  281.                     Psi! = Anime1%% * Pi! / (2 * 15)
  282.                     XA! = Positions!(4, 0, 0, 0)
  283.                     YA! = Positions!(4, 0, 1, 0)
  284.                     Z0! = 0
  285.                     XB! = XA! + 2 * Halfwidth%% * COS(Psi!)
  286.                     YB! = YA!
  287.                     Z1! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
  288.                     XC! = Positions!(4, 0, 0, 2)
  289.                     YC! = Positions!(4, 0, 1, 2)
  290.                     Z2! = 0
  291.                     XD! = XC! + 2 * Halfwidth%% * COS(Psi!)
  292.                     YD! = YC!
  293.                     Z3! = 0.7 * 2 * Halfwidth%% * SIN(Psi!)
  294.                     CALL Angle((XA!), (YA!), X0!, Y0!, Orient0!)
  295.                     CALL Angle((XB!), (YB!), X1!, Y1!, Orient0!)
  296.                     CALL Angle((XC!), (YC!), X2!, Y2!, Orient0!)
  297.                     CALL Angle((XD!), (YD!), X3!, Y3!, Orient0!)
  298.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(X0!, Y0!, Z0! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)
  299.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(X3!, Y3!, Z3! + ZOffset!)-(X2!, Y2!, Z2! + ZOffset!)-(X1!, Y1!, Z1! + ZOffset!)
  300.                 END IF
  301.             END IF
  302.             Anime1%% = Anime1%% + 1
  303.             IF Anime1%% = 31 THEN
  304.                 TurnOver%% = False
  305.                 Clock%%(PickedHour%%, 4, 0) = PickedCard%%
  306.                 Clock%%(PickedHour%%, 4, 1) = True 'Temporary until picked up
  307.             END IF
  308.         ELSEIF Anime2%% < 43 THEN
  309.             'Display Tucking-in
  310.             IF PickedHour%% = 12 THEN
  311.                 'Horizontal for Kings
  312.                 IF Anime2%% > 22 THEN
  313.                     Xdelta% = Positions!(1, PickedHour%%, 0, 1) - Positions!(4, PickedHour%%, 0, 0) + Tucked%%
  314.                     X0! = Positions!(4, PickedHour%%, 0, 0) + Xdelta% * (45 - Anime2%%) / 23
  315.                     Y0! = Positions!(4, PickedHour%%, 1, 0)
  316.                     X1! = Positions!(4, PickedHour%%, 0, 1) + Xdelta% * (45 - Anime2%%) / 23
  317.                     Y1! = Positions!(4, PickedHour%%, 1, 1)
  318.                     X2! = Positions!(4, PickedHour%%, 0, 2) + Xdelta% * (45 - Anime2%%) / 23
  319.                     Y2! = Positions!(4, PickedHour%%, 1, 2)
  320.                     X3! = Positions!(4, PickedHour%%, 0, 3) + Xdelta% * (45 - Anime2%%) / 23
  321.                     Y3! = Positions!(4, PickedHour%%, 1, 3)
  322.                     Zpos! = -0.5
  323.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
  324.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
  325.                 ELSE
  326.                     Xdelta% = Positions!(1, PickedHour%%, 0, 1) - Positions!(4, PickedHour%%, 0, 0) + Tucked%%
  327.                     X0! = Positions!(4, PickedHour%%, 0, 0) + Xdelta% * Anime2%% / 22
  328.                     Y0! = Positions!(4, PickedHour%%, 1, 0)
  329.                     X1! = Positions!(4, PickedHour%%, 0, 1) + Xdelta% * Anime2%% / 22
  330.                     Y1! = Positions!(4, PickedHour%%, 1, 1)
  331.                     X2! = Positions!(4, PickedHour%%, 0, 2) + Xdelta% * Anime2%% / 22
  332.                     Y2! = Positions!(4, PickedHour%%, 1, 2)
  333.                     X3! = Positions!(4, PickedHour%%, 0, 3) + Xdelta% * Anime2%% / 22
  334.                     Y3! = Positions!(4, PickedHour%%, 1, 3)
  335.                     Zpos! = 0.5
  336.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
  337.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
  338.                 END IF
  339.             ELSE
  340.                 'Vertical for others
  341.                 IF Anime2%% > 22 THEN
  342.                     Ydelta% = Positions!(0, 0, 1, 0) - Positions!(4, 0, 1, 2) + Tucked%%
  343.                     XA! = Positions!(4, 0, 0, 0)
  344.                     YA! = Positions!(4, 0, 1, 0) + Ydelta% * (45 - Anime2%%) / 23
  345.                     XB! = Positions!(4, 0, 0, 1)
  346.                     YB! = Positions!(4, 0, 1, 1) + Ydelta% * (45 - Anime2%%) / 23
  347.                     XC! = Positions!(4, 0, 0, 2)
  348.                     YC! = Positions!(4, 0, 1, 2) + Ydelta% * (45 - Anime2%%) / 23
  349.                     XD! = Positions!(4, 0, 0, 3)
  350.                     YD! = Positions!(4, 0, 1, 3) + Ydelta% * (45 - Anime2%%) / 23
  351.                     CALL Angle((XA!), (YA!), X0!, Y0!, Orient!)
  352.                     CALL Angle((XB!), (YB!), X1!, Y1!, Orient!)
  353.                     CALL Angle((XC!), (YC!), X2!, Y2!, Orient!)
  354.                     CALL Angle((XD!), (YD!), X3!, Y3!, Orient!)
  355.                     Zpos! = -0.5
  356.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
  357.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
  358.                 ELSE
  359.                     Ydelta% = Positions!(0, 0, 1, 0) - Positions!(4, 0, 1, 2) + Tucked%%
  360.                     XA! = Positions!(4, 0, 0, 0)
  361.                     YA! = Positions!(4, 0, 1, 0) + Ydelta% * Anime2%% / 22
  362.                     XB! = Positions!(4, 0, 0, 1)
  363.                     YB! = Positions!(4, 0, 1, 1) + Ydelta% * Anime2%% / 22
  364.                     XC! = Positions!(4, 0, 0, 2)
  365.                     YC! = Positions!(4, 0, 1, 2) + Ydelta% * Anime2%% / 22
  366.                     XD! = Positions!(4, 0, 0, 3)
  367.                     YD! = Positions!(4, 0, 1, 3) + Ydelta% * Anime2%% / 22
  368.                     CALL Angle((XA!), (YA!), X0!, Y0!, Orient!)
  369.                     CALL Angle((XB!), (YB!), X1!, Y1!, Orient!)
  370.                     CALL Angle((XC!), (YC!), X2!, Y2!, Orient!)
  371.                     CALL Angle((XD!), (YD!), X3!, Y3!, Orient!)
  372.                     Zpos! = 0.5
  373.                     _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
  374.                     _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
  375.                 END IF
  376.             END IF
  377.             Anime2%% = Anime2%% + 1
  378.             IF Anime2%% = 43 THEN CanPutDown%% = True
  379.         ELSEIF PickedUp%% THEN
  380.             'Display picked-up card
  381.             IF __UI_MouseLeft > 680 AND __UI_MouseTop > 738 THEN
  382.                 'Do Nothing
  383.             ELSE
  384.                 CALL Angle(-Halfwidth%%, Halfheight%, X0!, Y0!, Orient!)
  385.                 CALL Angle(Halfwidth%%, Halfheight%, X1!, Y1!, Orient!)
  386.                 CALL Angle(-Halfwidth%%, -Halfheight%, X2!, Y2!, Orient!)
  387.                 CALL Angle(Halfwidth%%, -Halfheight%, X3!, Y3!, Orient!)
  388.                 X0! = X0! + XM%
  389.                 Y0! = Y0! + YM%
  390.                 X1! = X1! + XM%
  391.                 Y1! = Y1! + YM%
  392.                 X2! = X2! + XM%
  393.                 Y2! = Y2! + YM%
  394.                 X3! = X3! + XM%
  395.                 Y3! = Y3! + YM%
  396.                 _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(PickedCard%% - 1) TO(X0!, Y0!, ZOffset!)-(X1!, Y1!, ZOffset!)-(X2!, Y2!, ZOffset!)
  397.                 _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(PickedCard%% - 1) TO(X3!, Y3!, ZOffset!)-(X2!, Y2!, ZOffset!)-(X1!, Y1!, ZOffset!)
  398.             END IF
  399.         END IF
  400.         'Display Piles
  401.         FOR S%% = 4 TO 0 STEP -1 'Maptriangle order is backwards
  402.             FOR N%% = 0 TO 12
  403.                 IF Clock%%(N%%, S%%, 0) <> 0 THEN
  404.                     IF Clock%%(N%%, S%%, 1) THEN
  405.                         _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), CardsImg&(Clock%%(N%%, S%%, 0) - 1) TO(Positions!(S%%, N%%, 0, 0), Positions!(S%%, N%%, 1, 0), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)
  406.                         _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), CardsImg&(Clock%%(N%%, S%%, 0) - 1) TO(Positions!(S%%, N%%, 0, 3), Positions!(S%%, N%%, 1, 3), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)
  407.                     ELSE
  408.                         _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(Positions!(S%%, N%%, 0, 0), Positions!(S%%, N%%, 1, 0), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)
  409.                         _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(Positions!(S%%, N%%, 0, 3), Positions!(S%%, N%%, 1, 3), ZOffset!)-(Positions!(S%%, N%%, 0, 2), Positions!(S%%, N%%, 1, 2), ZOffset!)-(Positions!(S%%, N%%, 0, 1), Positions!(S%%, N%%, 1, 1), ZOffset!)
  410.                     END IF
  411.                 END IF
  412.             NEXT N%%
  413.         NEXT S%%
  414.         IF Stock%% > 0 THEN
  415.             'Display Stock
  416.             IF Stock%% > 1 THEN
  417.                 _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%%, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%%, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%%, ZOffset!)
  418.                 _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%%, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%%, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%%, ZOffset!)
  419.             END IF
  420.             IF Stock%% > 10 THEN
  421.                 _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 1, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 1, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 1, ZOffset!)
  422.                 _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 1, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 1, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 1, ZOffset!)
  423.             END IF
  424.             IF Stock%% > 20 THEN
  425.                 _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 2, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 2, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 2, ZOffset!)
  426.                 _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 2, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 2, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 2, ZOffset!)
  427.             END IF
  428.             IF Stock%% > 30 THEN
  429.                 _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 3, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 3, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 3, ZOffset!)
  430.                 _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 3, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 3, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 3, ZOffset!)
  431.             END IF
  432.             IF Stock%% > 41 THEN
  433.                 _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(XStart% - Halfwidth%%, YStart% + Halfheight%% - 4, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 4, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 4, ZOffset!)
  434.                 _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(XStart% + Halfwidth%%, YStart% - Halfheight%% - 4, ZOffset!)-(XStart% - Halfwidth%%, YStart% - Halfheight%% - 4, ZOffset!)-(XStart% + Halfwidth%%, YStart% + Halfheight%% - 4, ZOffset!)
  435.             END IF
  436.             'Display dealt card
  437.             S%% = (52 - Stock%%) \ 13
  438.             N%% = (52 - Stock%%) MOD 13
  439.             Count% = Count% + 1
  440.             Zpos! = 50 * SIN(Pi! * Count% / 15)
  441.             ActualAngle! = Phi!(N%%) * Count% / 15
  442.             XPos! = XStart% + (Positions!(S%%, N%%, 0, 4) - XStart%) * Count% / 15
  443.             YPos! = YStart% + (Positions!(S%%, N%%, 1, 4) - YStart%) * Count% / 15
  444.             CALL Angle((-Halfwidth%%), (Halfheight%%), X0!, Y0!, (ActualAngle!))
  445.             CALL Angle((Halfwidth%%), (Halfheight%%), X1!, Y1!, (ActualAngle!))
  446.             CALL Angle((-Halfwidth%%), (-Halfheight%%), X2!, Y2!, (ActualAngle!))
  447.             CALL Angle((Halfwidth%%), (-Halfheight%%), X3!, Y3!, (ActualAngle!))
  448.             X0! = XPos! + X0!
  449.             Y0! = YPos! + Y0!
  450.             X1! = XPos! + X1!
  451.             Y1! = YPos! + Y1!
  452.             X2! = XPos! + X2!
  453.             Y2! = YPos! + Y2!
  454.             X3! = XPos! + X3!
  455.             Y3! = YPos! + Y3!
  456.             _MAPTRIANGLE (0, 0)-(XImage% - 1, 0)-(0, YImage% - 1), Obverse& TO(X0!, Y0!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)
  457.             _MAPTRIANGLE (XImage% - 1, YImage% - 1)-(0, YImage% - 1)-(XImage% - 1, 0), Obverse& TO(X3!, Y3!, Zpos! + ZOffset!)-(X2!, Y2!, Zpos! + ZOffset!)-(X1!, Y1!, Zpos! + ZOffset!)
  458.             IF Count% = 15 THEN
  459.                 Count% = 0
  460.                 Clock%%((52 - Stock%%) MOD 13, 1 + ((52 - Stock%%) \ 13), 0) = Clock%%((52 - Stock%%) MOD 13, 1 + ((52 - Stock%%) \ 13), 2)
  461.                 Stock%% = Stock%% - 1
  462.             END IF
  463.         END IF
  464.         IF IsComplete%% THEN
  465.             _PUTIMAGE (230, 246), GameOver&
  466.             IF GotOut%% THEN _PUTIMAGE (222, 490), GameWon&
  467.         END IF
  468.     END IF
  470.  
  471. SUB __UI_BeforeUnload
  472.     'If you set __UI_UnloadSignal = False here you can
  473.     'cancel the user's request to close.
  475.  
  476. SUB __UI_Click (id AS LONG)
  477.     SELECT CASE id
  478.         CASE ClockPatience
  479.             IF GreenValid%% THEN
  480.                 DoPickUp%% = True
  481.             ELSEIF RedValid%% THEN
  482.                 Anime2%% = 0
  483.             END IF
  484.         CASE ExitBT
  485.             SYSTEM
  486.         CASE NewGameBT
  487.             IF NOT DoPatience%% THEN
  488.                 Control(NewGameBT).Disabled = True
  489.                 Control(NewGameBT).Hidden = True
  490.                 Caption(NewGameBT) = "New Game"
  491.                 SetFocus ExitBT
  492.                 CALL Patience
  493.             ELSE
  494.                 DoPatience%% = False
  495.                 Caption(NewGameBT) = "Deal"
  496.             END IF
  497.     END SELECT
  499.  
  500. SUB __UI_MouseEnter (id AS LONG)
  502.  
  503. SUB __UI_MouseLeave (id AS LONG)
  505.  
  506. SUB __UI_FocusIn (id AS LONG)
  508.  
  509. SUB __UI_FocusOut (id AS LONG)
  510.     'This event occurs right before a control loses focus.
  511.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
  513.  
  514. SUB __UI_MouseDown (id AS LONG)
  516.  
  517. SUB __UI_MouseUp (id AS LONG)
  519.  
  520. SUB __UI_KeyPress (id AS LONG)
  521.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
  522.     'You can change it and even cancel it by making it = 0
  524.  
  525. SUB __UI_TextChanged (id AS LONG)
  527.  
  528. SUB __UI_ValueChanged (id AS LONG)
  530.  
  531. SUB __UI_FormResized
  532.  
  534.  
  535. SUB Angle (Xin!, Yin!, Xout!, Yout!, Theta!)
  536.     Xout! = Xin! * COS(Theta!) - Yin! * SIN(Theta!)
  537.     Yout! = Xin! * SIN(Theta!) + Yin! * COS(Theta!)
  539.  
  540. SUB Patience
  542.     BadDeal%% = True
  543.     WHILE BadDeal%%
  544.         REDIM Clock%%(12, 4, 2)
  545.         CALL Shuffle(Cards%%())
  546.         'Deal Sim
  547.         FOR N%% = 0 TO 51
  548.             S%% = N%% \ 13
  549.             R%% = N%% MOD 13
  550.             Clock%%(R%%, S%% + 1, 2) = Cards%%(N%%)
  551.         NEXT N%%
  552.         BadDeal%% = False
  553.         FOR M%% = 0 TO 12 'Cards are in S 1 to 4
  554.             IF Clock%%(M%%, 1, 2) MOD 13 = Clock%%(M%%, 2, 2) MOD 13 AND Clock%%(M%%, 1, 2) MOD 13 = Clock%%(M%%, 3, 2) MOD 13 AND Clock%%(M%%, 1, 2) MOD 13 = Clock%%(M%%, 4, 2) MOD 13 THEN BadDeal%% = True
  555.         NEXT M%%
  556.     WEND
  557.     Stock%% = 52
  558.     Anime1%% = 31
  559.     Anime2%% = 43
  560.     TurnOver%% = True
  561.     DoPickUp%% = False
  562.     PickedUp%% = False
  563.     PickedCard%% = 0
  564.     PickedHour%% = 12
  565.     CanPutDown%% = False
  566.     IsComplete%% = False
  567.     DoPatience%% = True
  568.     HangOn%% = True
  569.     HangStop%% = 50
  570.     HCount%% = 0
  571.     WHILE DoPatience%%
  572.         _LIMIT 60
  573.         GreenValid%% = False
  574.         RedValid%% = False
  575.         IF Stock%% = 0 AND HangOn%% THEN
  576.             HCount%% = HCount%% + 1
  577.             IF HCount%% = HangStop%% THEN
  578.                 HangOn%% = False
  579.                 HCount%% = 0
  580.                 HangStop%% = 20
  581.             END IF
  582.         END IF
  583.         IF Stock%% = 0 AND NOT IsComplete%% AND Anime1%% = 31 AND Anime2%% = 43 AND NOT HangOn%% THEN
  584.             'In _MAPTRIANGLE3D, all distances relative to centre of screen
  585.             XM% = __UI_MouseLeft - _WIDTH / 2
  586.             YM% = _HEIGHT / 2 - __UI_MouseTop
  587.             IF TurnOver%% THEN
  588.                 Orient0! = Phi!(PickedHour%%) 'Start orientation is from where the card is taken
  589.                 PickedCard%% = Clock%%(PickedHour%%, 4, 0) 'From 1 to 52
  590.                 Clock%%(PickedHour%%, 4, 0) = 0
  591.                 OldHour%% = PickedHour%%
  592.                 Anime1%% = 0
  593.             ELSEIF NOT DoPickUp%% AND NOT PickedUp%% THEN
  594.                 IF SQR((Positions!(4, PickedHour%%, 0, 4) - XM%) * (Positions!(4, PickedHour%%, 0, 4) - XM%) + (Positions!(4, PickedHour%%, 1, 4) - YM%) * (Positions!(4, PickedHour%%, 1, 4) - YM%)) < 40 THEN GreenValid%% = True
  595.             ELSEIF DoPickUp%% THEN
  596.                 IF PickedHour%% = 12 THEN
  597.                     FOR R%% = 4 TO 2 STEP -1
  598.                         Clock%%(PickedHour%%, R%%, 0) = Clock%%(PickedHour%%, R%% - 1, 0)
  599.                         Clock%%(PickedHour%%, R%%, 1) = Clock%%(PickedHour%%, R%% - 1, 1)
  600.                     NEXT R%%
  601.                     Clock%%(PickedHour%%, 1, 0) = 0
  602.                 ELSE
  603.                     FOR R%% = 4 TO 1 STEP -1
  604.                         Clock%%(PickedHour%%, R%%, 0) = Clock%%(PickedHour%%, R%% - 1, 0)
  605.                         Clock%%(PickedHour%%, R%%, 1) = Clock%%(PickedHour%%, R%% - 1, 1)
  606.                     NEXT R%%
  607.                     Clock%%(PickedHour%%, 0, 0) = 0
  608.                 END IF
  609.                 PickedHour%% = PickedCard%% MOD 13
  610.                 IF PickedHour%% = 0 THEN
  611.                     PickedHour%% = 12
  612.                 ELSEIF PickedHour%% = 12 THEN
  613.                     PickedHour%% = 0
  614.                 END IF
  615.                 Orient1! = Phi!(PickedHour%%)
  616.                 PickedUp%% = True
  617.                 DoPickUp%% = False
  618.             ELSEIF PickedUp%% THEN
  619.                 IF SQR((Positions!(4, PickedHour%%, 0, 4) - XM%) * (Positions!(4, PickedHour%%, 0, 4) - XM%) + (Positions!(4, PickedHour%%, 1, 4) - YM%) * (Positions!(4, PickedHour%%, 1, 4) - YM%)) < 40 THEN
  620.                     IF NOT CanPutDown%% THEN RedValid%% = True
  621.                     Orient! = Orient1!
  622.                 ELSEIF SQR((Positions!(4, OldHour%%, 0, 4) - XM%) * (Positions!(4, OldHour%%, 0, 4) - XM%) + (Positions!(4, OldHour%%, 1, 4) - YM%) * (Positions!(4, OldHour%%, 1, 4) - YM%)) < 40 THEN
  623.                     Orient! = Orient0!
  624.                 ELSE
  625.                     Orient! = 0
  626.                 END IF
  627.                 IF CanPutDown%% THEN
  628.                     CanPutDown%% = False
  629.                     PickedUp%% = False
  630.                     HangOn%% = True
  631.                     IF PickedHour%% = 12 THEN
  632.                         Clock%%(PickedHour%%, 1, 0) = PickedCard%%
  633.                         Clock%%(PickedHour%%, 1, 1) = True
  634.                     ELSE
  635.                         Clock%%(PickedHour%%, 0, 0) = PickedCard%%
  636.                         Clock%%(PickedHour%%, 0, 1) = True
  637.                     END IF
  638.                     PickedCard%% = 0
  639.                     IF Clock%%(12, 4, 1) AND Clock%%(12, 1, 0) <> 0 THEN 'Game Finished
  640.                         IsComplete%% = True
  641.                         Control(NewGameBT).Disabled = False
  642.                         Control(NewGameBT).Hidden = False
  643.                         SetFocus NewGameBT
  644.                         GotOut%% = True
  645.                         M%% = 0
  646.                         WHILE M%% <= 11 AND GotOut%%
  647.                             IF NOT Clock%%(M%%, 4, 1) THEN GotOut%% = False
  648.                             M%% = M%% + 1
  649.                         WEND
  650.                     END IF
  651.                     IF NOT IsComplete%% THEN TurnOver%% = True
  652.                 END IF
  653.             END IF
  654.         END IF
  655.         __UI_DoEvents
  656.     WEND
  658.  
  659. SUB Shuffle (Pack%%()) 'Fisher Yates or Knuth shuffle
  660.     FOR S%% = 51 TO 1 STEP -1
  661.         R%% = INT(RND * S%%) '+ 1
  662.         SWAP Pack%%(R%%), Pack%%(S%%)
  663.     NEXT S%%
« Last Edit: June 08, 2019, 08:00:11 am by Qwerkey »
Logged
Pages: [1]   Go Up
« previous next »