J:;;<G?*@@*BAF/F)kG*> @ *g)@@-A@ Q <@z Q ?Q ?@(QlJ)IdQ C8 ! @*;,M , Q YQ o@Q=!Qb# >QX$@aw  /'',=0C G ad  v @ %?Qz %sH@ %dKQ ;@K Q e?@ &K @#'|KdQ[J  d* !  ~  @ Q #Q & d   @ Q 7$Q (Q 7Q l, @ @ v @ @ z Q C$Q 7QQ  @ b@df G Q4Q   dQ r#@@5@LQ.  Q ~ ~ z X j 3 z  QFz Q'Q <dQ 4P$eQ @X Q @V W W Q @ m @@k 3x @ @a@ap aaw @av dG aQ a @  aQh0@& @ @& D @& C @+1 @j  V W L 'v0 Q4Q L4Q4 Q 4QWin @ Q G a @a QS0a@a Q`8a@a Q 0a@a" Q h@a @a Q :0a aa Q 8 <M , Q ?Q G <Q = W d a d @ QS= *@ a=@@  > '>  @   =& @ Q =@  Z Q =@    ,[=  QetXYs% Q = Q >  @P =Q D"E@= Q D7EQ ;?Q > <@ LdM Q]-Q#QZQ ++W1Q#o Q $G2 z dQMH  B1Q |QQ - W @ 3 N@ h  @63 h  6N"*  QV aKQ 1K@ d  W @(J @ Q" cg/O13 Nm hr  aQ]'333p?3Q"@.1@ Q"@ I2@@ i23 h kip , e   @  "& @ Q $@  Z Q @    ,2  QetXYs% Q /2 7# *CYC qC{CQv  aa aa  @P DQ D@1" Q D @a    zQv  D& @ Q =  d  Z Q=#D& A Q D& @  D  Q& W Q   @ d& D & &*S  &4dX Q f m e aa aa aa @a Q QetXYs@@  d Z Q Q L aQ@& @ dd Q amj @& A QS@@& C Q@@& D Q$Q a #& & Q$&  4aaa f 8#  & D Q %4@ #& & & &*S Q /4  @ Q94   $& & &$  4aaaf 8& A Q Q7a 3& @ Q 4a Q V4O8@Q 8aQEd  *Q- 0a W Q  Q Q T  Q Q.)QQ d Q 5d Q (d Q (Q#d Q z Q#@ @ * d  *@[7 M Q @-@C@ ($ Q 0AQIQI@KdP#wF  F#"<@'I9Qo6Q p9Q -Q&Q'Q O@Q &XDd@ @ @ Q ]) aa*-Q )Q ada+F  -.s! *a  %/@ @ h@ iQ Q f5a%az ak ha iQ9Q5m 3 ox d aa   333z  dQ 8m E0Q Q Q  "Q )z k  m n * q r  < z k     d  d  +1dQ  a Q 6dQ 4dQ 4Q a  aQ z , d, * M , dM ];\H Q&+ aQ %GQ % Q$GQm.HQ$GQ$GQ$G Q$ S) Q@)<a@aQ; ;a Q;;aa Qo;$Q f$q r | } ~ m n M <''d Q  78Q 5: 0]<@  @  *@ @  #    Q ")QQa(Q$ ): M q r | } ~ m n   * Q <!: Q  2 M Q Fd  %Q ( M 0i%Q `% D0DID'tDaadaQ6 =q r | } ~ m n   - Q C<YO /3Q N 8Q:9!@@Q,93x eQ ?a!?Q ?eQ ?ox  8 Q \@z  _AQ/@ a A Q #@KA Q=A @ &wAQ AQAQA Q Aa 1 Q Qt@$Q q r | } ~ m n  L - <Q 96Q)6z5 Q55 Q5]6 Q4(I QI II Q9I7afo4  M m n   *)<   M m n * Q <Q  o@3 & @ Q e @   QetXYs  ^& A Q @  d N *X# Q QetXYs  N N$ & B Q @   QetXYs & &i& D &*S #& Q Z@ N  Q da QetXYs N N$& wQ @ N  Q QetXYs N N& & dQ6V>Q6Q 66* dQK&7 a 3QV & Q } Q ? & V V  i X   /!  & B Q  @    & &y 4( Win 3 C  a@  QSQ QE-@ :dPQ {EEQ > c*E(E)FQlayUpQ 3E\E cQlayUplayUp Q ay  B& Q d @  Q %!a   C y y*d Qc!Q FEQ QEy X  1!  D(X& Q 0 @ @    a *a q8& A Q 8a a    S!!Q -C@& A QA @Q8& Q V Q Y Q #C C QetXYs < Q 7C Q CC "a< << < <<  6@Q7a@7@@@d @dQ7a .Q (*d@p?Q QK6@ @ @ %@d *7Q .8zQ8 Q $ c"QN"32M s  d  !`$dddj3ad 32M s( j , Q )V W L @W @ QI @ V W & W  L @V D Q @Q X h Q  Q-,QE0a { ~ Q00*}J@ @@  @+JQ 1 a*X;  >*X QetXYs4 4%  Q < %d  @ & A Q f 7 o   QetXYs%  Q p Q x Q b Q, SQ 9aj QQ1>& @ Q   @ QetXYs%  Q d4 QW @ V A Q 2  Q   o 7  ` d4 `  4 & @ Q 7   # `Q     =*XA  ; >*X ; QetXYs4 4*%  Q  d  C$ Q Q, `  & A Qa @ & A N  Q QetXYsd   N  %  Q a# 7  >*XN  & A  # Q QetXYs  N N$   [ = 4[ @A  [*=X [ [ a3 Q Daj Q0Q; QCQ*c = b >  4& c @& A @ c ' b ' *'X' b QetXYs%  Q d' 3   c cb b4 3    Q UQ+ H.0 #/  Q  &   QetXYs%  Q  && &S &  *=Z; *>ZT 6& &  ; T %T QetXYs%  Q Q0Q Q R  Q Q ~Q a   QetXYs%  Q  Q MQ QxQ EQ @ #  QetXYs%  Q  a& &*S Q @  aO  QetXYs%  Q   #iR  ^ :  #FR  Q ` >*X:   &   *:Z^ : :*Z W & L  QetXYsK J  !K i !J  P Q .zf P E P L AQ sf f JE f f h  E E &   e E*Zg ede g gQ ^P  P &  =P*XQ  ; >P*XE ; y% P Q uP X BQ 3 3*3& A Q T!& A Q   @  @ *  *@ QetXYs%  Q hQ l d  Q d/awX(  )aw^%  Q dh V W dV W Q )f R/@V A  3 3@  *@  & V @V C Q @Q)7U @V D V VS ~ & V Q m  @ V V*S & V Q wV VS & V @  @; >*XU ; QQ  P @E N E*& Q N QQ P  Q N N*aW C aW B c Q, U Q M@ M; >*XU ;  Q  7@V C @V B Q+ aW C aW B Q+ U U; >P*XU ;  =P*XV   P QetXYs% P Q [P  BBh #& V @V B Q @& D @& C  P @uB P .h @ dV W dh  Q .$&  . /@f  h  dW @W  %./@V @P V @P V @P V @P (0EBV  @ )4V V  a V V q/dQ/a&,/V V    aP V V@V / zV h a QetXYs%  Q<& A R Zf Q 9^  &  : *: :fj0; &6 ; :Z^*X &?   R*X3M a& B a& C .0 Z&*B #S#/  !& W a   *=Z&  @  .*  Y&  Q @ a.QQ a  & W { | Q { } af}*puZrZp Q Z =Q <Q <Q< <.0 Z#/  #  T )    & ) ' F QD(a $(X( '  *( (& ( F QU(Q  ) )  * Q+mF  4(3 & ' 3 Qf(d' 3  ' '4 3  3*Q % (Q 8(Qw( ,(*  Q b   =*X9  =*X& #,>*X'  QetXYs" dF  d 5  %  Q N &6&    0& N  etXYs(\a =*X9 a a >*X8 a 8 8*a 9? I a a 9  a  8  I Z  #1  0X10Z X@9 A @ *Z  a 96 5 a a 9 : a : :8 5:Z/ % *X% % %9% x*tXQ55% p yq r Q% %u Q9U p w % % a% % %% M n % % t % s  Q Q tQ %    *1Z*Z Q\. % $ . *1Z2*Z fK. Q A% %  #    *1 * % Z Q 4+% M n % %  % ]  '% M n % 1Z%  Z%  x,aa#2 l *2   $2 qQa@ a]] @*a)KdI-Q (Q"2 3l* h Q"p 3"l *3X*# S# S3 1"l*Ih n #JQ JQ - l  n  # @ QaQ -Qa Q ! c , - -e            n  &  O'0  $ Q#A2 3Q2h Q-h4 /hChR Help A:ha Quit$AQ]3adQ>HN3% p p Q a(Q U-Q:3z2Q,0Q IQ =3%Q m-2@h% ,ah% #&3@-2% { ~ @@@ Id{ | Q afl3a% yq Q-p 3Q -@{ | Q {Ah%    a{ ~ Q - |305a aa Q ^Fd a3 0% { ~ p Q : Ga% p H { Q <22@h G a2h G  QPP'`0q r3 3 q+ruq+ruQ{Kq+ruf3 JJHa@@a #Ha!HQVIatIQ gI#Q IR#H@@Q(Ha@;@@!<;QHa@@@QGa@@@LQGaa%; Q3 * tXh  (p Q tXh  Kp QH tXh  one p Q% y Q% y Q % y Q -q7 772M   M m n &w<   QG#.G Q, ;QQQ[Q73M h>> Xqr  qr3M qr Q) Q#Q"Q V"*9 @@ @@@+9@L9@L@Lp:"N:d@ @ @Q G&@ _+Q3+QI+  &h p&T&:%#%u+++&?#%3 * 2 3 +9QN% <Q :&da < 0 (p"Q&2M 3#Ah   ;#h  2#$A&3M *   T5z k   ]5    { | f -Q u  { | Q  ::{ d{ ~ % % % { } Q +# dP#Q"Q>+ dPQ" (aQ kQ ,*3@"h%h*"$*(*"F*a!:h#M Q $M  x  3  , (3M  Q $zQkQ*Q;Q> *2 3s(j Q>*a3h:Flop ost s7*3j !23sd3j>#A2 3h Bhand $A '.)= 6> l? 6   Y  )#@ A B C D S D*C Q   0  / 1   ? @ A| L} M~ N O P U V- W a     4Z  $ Z $ (Xp v p p p p" p pw p w    _ #  \ ]    (_       6 X  (_X (  * . #2     l *VX lK ` s t  s t(Xu sq r  q*X r v*puZ! rZ*puZ r   *puZ r H   H    V        x  qo -     $   6   # 8l   $   F6 Q  V > G! " #$ %N&T'^( )* + .&, n- &./ 0 1A.2Y3c4k5<6 7 8O9H:B;\< 9= }> r? @ A }B C D E F sGH ~I0JKLM N O 3PQ R S TUV 'W 0X>Y Z [ \ W] b^X_ (`hapb|cvd! ef @g hEi ) j1k l m n o p ? qrs t u vw D%xc4y !z { |} ~ #v 8 D M te- J ,=@Q : 8 C Z g t 9 + x z a I>  a0 1 E< fK tL@    4  ( n v OC!Y F. / F 'Ue,hF 6 &O< ! o     8 ,i4  $I l o5  & )  / *8 u   |9D# # }# * " !;5 25 8 ,@ & d 2J J J rKcardposnPick1Pick2Pick1CardPick2CardCardDone1CardDone2LeftEdgeCardWidthCardHgtWkgRegstackAcesYdepthDeckSizeDeckTopDepthsTableStacksTableDeckStackAceStacksEndaPassEndaPassClearFanClickedOnDeckYspacingXspacingstackupstackdownstackupIncrHalfCardWidthHalfCardHgtStacksXListStacksYListStacksDxListStacksDyListStackXDepthXStackYDepthYStackNoDepthNoindex1index2GetTopCardtopcardUpDownFlagDiscardStackGetTopCardDiscardDepthThisDepthGetThisCardGetThisCardNextFlopBtmFanCardGetTopCardAcesXdragcardGetTopCardGetTopCardclearwidthGetTopCardGetTopCardindex3NewDepthDropStackPickStackGetTopCardClearFanDraggingClickedOnDeckDraggingLimitMouseXYSetAceRegionsSetAceRegionsAceRegionsSetDeckRegionSetDeckRegionDeckRegionSetDeckRegionTableColorStacksMTListPrepClickedPrepClickedDragging2MuteDiscardsMutendxSaveFirstTurfSaveFirstTurfSetShingledRegionSetShingledRegionPrepClickedclearhgtGetTopCardClearCardStripClearCardStripPreClearStripClearFandragdepthdragstackPrepClickedPreClearStripPreClearCardPreClearCardClearCardSpotClearCardSpotGetTopCard-> stack, clearwidth->stack, clearhgt, clearwidth, highdepth, DepthYPickUpCardsPickUpCardsClearCardSpotFanCountindex9index7index8DragXtraKingsXKingsYKingRegionsKingStacksUnderStacksKingRowCountKingUnderDiffClickedOnKingRowClickedOnUnderStackClickedOnUnderStackClickedOnAceRowClickedOnAceRowFanXShingleGetTopCardtopdepthstripcountPickUpCardPickUpCardGetTopCardPickUpCard2PickUpCard2PickUpCardGetThisCardDropACardDropACardDropACardDropACardShingleKingRowPriorCardShingleKingRowPriorCardShingleKingRowPriorCard-> dragcard, NewDepthDropOnTopRowDropOnTopRowDropOnKingsRowDropOnKingsRowDropOkayGetTopCardBackShingleFaceShingleGetTopCardGetTopCardGetTopCardhalfDragXtraPickedX0PickedY0VertDropRegion2StackVertDropRegion2StackGetTopCardGetTopCardNormalCursorActiveCursorSetKingRegionsSetKingRegionsButtonsXButtonsYSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionSetCardRegionButtonHgtButtonWidthButtonSpacingbuttonUpButtonDownButtonMuteButtonStompButtonButtonRegionButtonsY0HalfButtonHgtStompButtonHalfButtonwidthButtonsX0PreStompButtonPreStompButtonPressedButtonPickCardStompButtonSetButtonRegionSetButtonRegionSetButtonRegionRgtEdgeClickedOnKingRowStomp&SetRegionNextFlopMuteDiscardsGetTopCardBackFlopGetTopCardSetCardRegionBackFlopWkgFanCountGetTopCardGetTopCardSetCardRegionDropOnStackDropOnStackDropOnStack2DropOnStack2PriorFanCountPriorBtmFanCard<- dragdepth = 1-nClickedOnKingRowClickedOnAceRowshingle<- dragdepth + 1, dragcard-> dragdepth, stackUnDoLastPlayTopStripHgtBtmStripHgtLimitMouseXYUnDoDropStackUnDoPickStackUnDoPickCardClickedOnEmptyDeckClickedOnEmptyDeckBtmStripTopBtmStripRgtGoldChangeAceCreditSpreadDebitFlopDebitMakeDragListDragging2MakeDragListGetThisCardPlayTopTopStripColorPassMaxHandNumbGetTopCardWinFlagClickedOnKingRowWinStackDropOnStackGetTopCardAceStackNeedCardon KingRow stack (or empty)-> posn, stack, UpDnFlagstack# to StacksTable, depth to DepthTableCardRegionsMuteCardRegionsMuteCardRegionsQAceStacksGetTopCardDrawDeckLinesDrawDeckLinesDrawDeckLinesDrawDeckLinesDrawDeckLinesPlayBtmShowDiscardsShowDiscardsShowDiscardsGetThisCardSetCardRegion-> WkgFanCountShowDiscardsGoldBarInDragModeInDragModeUnDoLastPlayDrawDeckLinesStompButtonFromRegionToRegionSetFixedCardRegionsStompDownButtonPickYOffsetPickXOffsetMenuRegionsMenuOptsRegXMuteMenuRegionsGetTopCardUpXButtonDownXButtonStompButton2StompButton2StompUpButton2StompButton2ShuffleYShuffleXAlarmHourAlarmMinuteAlarmSwUnDoDebitGetTopCardGetTopCardGetTopCardGetTopCardGetThisCardGetThisCardCardChangeTootFlagTootCheckIfTootCheckIfTootCheckIfGetTopCardGetThisCardRedrawCardsRedrawCardsWonTheHandBoxColorShuffleBoxX0ShuffleBoxY0PostOptionsPostOptionsOptCancelFlagHandOverStatsRegionHelpRegionHandOverCopyDragTurfCopyDragTurfWonTheHandRegionSavedShuffleX2TimeWatchTimeWatchCtrClickedOnDiscardsClickedOnDiscardsDrawDeckLinesShuffleORShowShuffleORShowCardBackCardFace--------- Alarm Time check ----------InitialDeckSetMenuRegionsKlonMsgs23KlonMsgs23KlonMsgs23GoldBagBtmGoldBagOnlyTimeWatchShuffleSoundShuffleSoundShuffleSoundDanceSoundGOSUB DoFlopSoundDealSpread...discards...king stacks...King Strips...button equates...shuffle...stacks...edges...spacing...menu regions...playing regions...gold stamps...button stamps...card stamps...card size...List0 usage (54 cards, 20 stack slots)NextUpButtonNextUpButtonNextUpButtonNextUpButtonDealDeckTableRegionsLastTableRegionShowTopWordsShowTopWordsExplainPlayActionIfExplainPlayActionIfShuffleSoundGOSUB ShuffleSound...dropstack preset...check for TopRow...demute new topcard of discards...xfr card to DRAG...set clearwidth, clearhgt, DepthY...set clearwidth, clearhgt, DepthY...demute new topcard of KingsStack...demute new topcard...change stack#, stackY & set depth=1...discards -> deck...current top of deck...next discards topcard...end of hand here...demute topcard of deck...leave TootFlag ON...above allows player to bypass the playEraseMenuBarHiEraseMenuBarHiMeshMenuBarMeshMenuBarMeshMenuBarInitMenuBarInitMenuBarInitMenuBarInitMenuBarInitMenuBarMeshMenuBarInitMenuBarKlonMsgs23MeshMenuBarInitMenuBarMeshMenuBarUnDoWasXMuteMenuRegions...next deck topcardNegFanCount...snapping back to Discards...on Kings Row...about same time as a WAIT (0 10 0 )...the VERY first hand a user will play!!!...deal next strip of facedown cards...deal faceup card first...dropped on ace row?...on a occupied stack...card came from an Ace stack...show congrats msg...understack firstKlonMsgsKlonOptsKlonReadKlonMsgsKlonMsgs ClickanywhereShuffling `the `deck Options StatsStackRegionsQOkay2DropQOkay2Drop...above clears ButAnyChangeGhostCard...demute topcard of UnderStackGameColor...cant use GOSUB KlonMsgs23 (no Mesh) Deal ` Done `...Stats always ONReInitTableInitOpeningPutParam1DoOptionsDoOptionsDealSWDealSWsavedNextUpButtonNextUpButtonSetGameColorSetGameColorShowPassShowPassMeshMenuBarInitMenuBarKlonSide...'UnDo' may be ON or OFFStompButtonInitOpeningMuteTableRegionsMuteTableRegionsMuteTableRegionsShowShuffledCard2ShowShuffledCard2ShowShuffledCard2DealDoneRegionDealDoneButY0...Deal or Done always ON...Options always ONStompButtonSetUnDoButtonSetUnDoButtonSetMenuRegionsInitMenuBarMatchStartFlag...ace stacks...MatchHandOverShowTopWords...ERASE excess over discardsMeshMenuBarInitMenuBarMeshMenuBarInitMenuBarSetGameColorRankSavedMatchColorStompButtonInitMenuBar UnDo `StompButtonMuteUnDoButtonMuteUnDoButtonRunUpRegionUnDoRegionUnDoButYUnDoButY0SetGameColorSetGameColor...Param1 of Pitch1; 0=do all OptsMuteTableRegions...record the victory(must do this here so congrats msg has count)InitTableTop..."Done" pressedTouchUpTouchUpDragFlagSetFixedCardRegionsStartHandStartHandClearBtmStripClearBtmStripClearBtmStrip...Replay buttonsReplayDoneRegionClearPlayingAreaClearPlayingAreaSetReplayRegionsSetButtonRegionReplayButtonsYSetReplayRegionsStompUpButton2InitReplayBarInitReplayBarReplayDoneButXReplayDoneButX0ReplayButtonsY0SideColor...not DeckStack or EmptyDeckSetStackFromRegionSavedSetStackFromRegionSavedSetStackFromRegionSaved...picking up card or cardstrip here...only stack leftDroppedDragDroppedDrag...RegionSaved setTimeWatch<- stack preset : topcard, topdepth -><- card : StackNo, DepthNo, xy0 & xy9 ->...StackNo, DepthNo, XY0 & XY9 set<- card<- stack & ThisDepth set : card (0=not found) ->GetTopCard<--RegionSaved set : stack set-->ClickedOnTableClickedOnTableGetTopCard<- DeckBack presetDeckBackStompDeckBackStompDeckBackStompDeckBackStompDeckBackStompDeckBackSetCardRegionMuteTableRegionsHand OverSetDeckRegionInitNewHandInitNewHandClickedOnMenuClickedOnMenu...non-menu region======================...Help always ONMatchHandOverReenterSideEnterSideEnterSideReenterSideClearBtmStrip2ClearBtmStrip2ClearBtmStrip2<- RegionSaved : PickStack ->QAceStacksSetButtonRegionStompUpButton2EnterReadStatsEnterReadStatsEnterReadStatsShowPlayerStrategyReleasedButtonShowPlayerStrategy...Pitch1 presetSetFlopChargesFlop`CostEraseRightCornerEraseRightCornerEraseRightCornerEraseRightSideAreaEraseRightSideAreaEraseRightSideEraseRightSideEraseRightCornerSetFlopChargesSetFlopChargesSetFlopChargesSeeStratButXSeeStratButX0SeeStratRegionSetButtonRegionRestartRepButXRestartRepButX0StompUpButton2AwaitReplayPressAwaitReplayPressAwaitReplayPressReReplayRegion...WinFlag preset offReplay unavailableThis hand is WON!PracticeColor...picked from ace row?...real card plays hereReCardRegionCardsLeftFoundCardFindNeedCardFindNeedCard======================PlayAndDanceCardPlayAndDanceCard...TimeWatchCtr avoids excessive GetTime calls...FoundCard presetAceRowsCardCountexit; AceRowAceCount AceRowsCardCount CardsLeftPaintScoreOnlyPaintScoreOnlyPaintScoreOnly...doing a flop here...here ONLY to get drop playShowPassShowPass&HandShowPass&HandDrawPassHandWordsDrawPassHandWordsDoDanceSoundRePlayUpMuteCardRegionsRePlayUpShuffleTheDeckShuffleTheDeckDrawShuffleBoxDrawShuffleBoxCenterTextX`Rank`Match (take 2nd)`...change to Match...stacksHand ``Pass ``CornerTopTextYCheckForSignpostCheckForSignpostMeshMenuBarTopStripTopYTopStripBtmY Games `ReInitTableClearPlayingAreaClearTopCenterAreaClearTopCenterAreaClearTopCenterAreaDrawPassHandWordsShowPass&Hand...KLONSIDE will PutCardHand for matchesShowTopWordsShowPass&HandMainLoopMainLoop...DataErr check on HandNumb hereJustShowSignPostJustShowSignPostJustShowSignPostJustShowSignPostMeshAndShowSignPostMeshAndShowSignPostMeshAndShowSignPostMeshAndShowSignPostMeshAndShowSignPostMeshAndShowSignPost...Quit always ONQuitRegionClearTopCenterAreaEnterSide...next protects against never exiting EnterSide...next insures not left at 2...Gold Wizard`Rank`Match (take 1st)``Rank`Match (take 3rd)`...dont use ctr4 locally!!!!ShowPass&HandMeshAndShowSignPostExitOkayFlagShowTopCenterShowTopCenter` -- Practice -- `` --- Kibitzing --- ``ShowTopCenterShortUpButShortDownButShortMuteButShufflePitchReInitTableClearPlayingAreaClearPassHandWordsClearPassHandWordsClearPassHandWordsClearPlayingAreaKlonSign...next to save replay data, etcReplayWonSoundReplayWonSound...DRAW sawtooth over discardsDrawSawtoothDrawSawtooth...DRAW sawtooth over deck...ERASE excess OVER DECKDrawSawtoothEraseExcessEraseExcess...XY1,X2 presetDrawBtmStripRgtIndentDeal&ShowNextCardDealNextCardDealNextCardDeal&ShowNextCardDeal&ShowNextCardDeal&ShowNextCardStomp&SetRegion...XY1, VA, VB presetDrawBtmStripClearBtmStripClearBtmStripTactics...normal start pointClearBtmStripDrawBtmStrip...explain the menu buttonsDrawPassHandWordsSetGameColorClearPassHandWordsMeshAndShowSignPostSpeedUpMsgSpeedUpMsg...next to insure HandOver exited properlySnapBackSoundSnapBackSoundSnapBackSoundKlonMsgs23MatchButY0MeshMenuBarGOSUB KlonMsgs23 (dont 'Mesh' here, so...)InitingSW...change to practice play Practice makes perfect Practice makes perfect Practice, practice, practice Try Kibitizing while practicingShowFlopCostOnDiscardsShowFlopCostInCornerShowFlopCostInCornerShowFlopCostInCornerShowFlopCostOnDiscardsShowRankMatchPlusSoundShowRankMatchPlusSoundShowRankMatchPlusSound...flash top line here Leaf`Match`(take 1st)` Leaf`Match`(take 2nd)` Leaf`Match`(take 3rd)`DebitHandscoreCreditHandScoreDebitHandScoreDebitHandscoreCreditHandScoreDebitHandScoreDebitHandScoreCreditHandScoreDebitHandScore...new or next hand....(Outer loop).......PlayUpsShowWPSBoxIfShowWPSBoxIfGamePlayUpYGamePlayUpY0...stuff depth -> List6 DepthsTable PlayUps`JustShowSignPostNoMenuFlagInBoxBtmStripInBoxBtmStripShuffle2CardsShuffle2Cards...Show special result msgs (boxed center)EnterSide...do extra shufflesClearPlayingAreaShowGamePlayUpTextShowGamePlayUpText...Games or PlayUp....GamePlayUpRegionSetButtonRegionStompButtonQShowPlayUpShowPlayUpButtonSetGameColorSKIP IF Editor ON...nuggets changeShowPromotionInitConstantsInitConstantsXAuraYAuraSetAceKingRegionsSetAceKingRegionsMeshAndShowSignPostClearTopCenterArea...dropping on an empty stack...dropping on a card...Yes/No set by above callQAceRowTossQAceRowToss...not FROM the AceRow; is it an ACE?...not an Ace toss...not an ace; will it play ON AceRow?...return card to the PickStack...okay to "toss" card to AceRowAceRowTossSoundAceRowTossSoundexit: DropOkay set (0=no; 1=yes)BreakHourBreakMinute--------- Break Time check ----------ClickedUnDoClickedUnDoInitUnDoButtonInitUnDoButtonClickedHelpClickedOptionsClickedOptionsAceTossClickedOnTable...NOTE: next was above "C" here (v1.2)StompUnDoButtonStompUnDoButtonentry; "button" presetMuteUnDoButtonMuteUnDoButtonRefreshUnDoButMuteUnDoButtonMuteUnDoButton...dropped on different stack (not flipped)...middle replay loop...loops to here when "ReReplay" button hit...check for playup here (commanded from menu)MuteUnDoButtonShowPromotion...next was in case Kibitzing changed??????CardBackSaved...Ace row, King row & understack plays here...here we stomp the focus...check for skipped-a-play here...skipped a play...UnDo sometimes onShowDealDoneTextShowDealDoneText...only caller is InitMenuBar...only caller is InitMenuBar...playing a hand...not playing a hand; show the "Game" buttonInitGamePlayUpButtonInitGamePlayUpButtonInitMenuButtonsInitMenuButtonsShowPlayUpButtonQShowPlayUpPicSelectPicSelect subscore handling too trickey for now------------------------------------------------.discard stack is empty!GetTopCardAutoFlipIfAutoFlipIfGetTopCardGetTopCardClickedOnUnderStackAutoFlipIfClickedOnDeckClockXClockYKlonMsgs23NoMeshKlonMsgs23NoMeshAutoFlop1IfAutoFlop1IfAutoFlop1IfAutoFlop1If...tossing an Ace! Locate open Ace stackRefreshUnDoButShowPlayUpButton...exit: Reg1 is ON if PlayUp active; OFF if notFocusCardBreakSwInitAlarmInitBreakInitAlarmInitBreakInitBreakCenterTextYClearSideTopBoxKlonMsgs23NoMeshClearSideTopBoxShowWPSBoxIf...Rank Match?SetMenuRegionsSetButtonRegionKlonMsgs23NoMeshShow100PlusNuggetsShow100PlusNuggetsShowSideBoxShowSideBoxKlonMsgs23NoMeshShowMatchBoxStatusShowMatchBoxFinishShowMatchBoxFinishShowMatchBoxStatusDragTilButtonChangeDragTilButtonChangeDroppedDragDragTilButtonChange...around to here when done...we're done, replayed or not...overstamp the Focus if......button release (card dropped maybe)...matchplay hereGetTopCard...practice hand endedLoadPic (0 0 1)@ KlondikeWindow (4 4 0)...Promotion earned (New Rank or New Leaf)ShowPracticeBoxShowPracticeBoxShowSideBoxShowSideBoxShowMatchBoxStatusShowMatchBoxStatus...init new rankMatchOverFlagDoGameScreenDoGameScreenClickedGamePlayUpClickedGamePlayUp...now examine the discardsGetTopCardDoGameScreenClickedOnDiscardsAutoFlipperAutoFlopperShowSideBoxClickedClockClickedHelpClickedClockClockRegionSetClockRegionSetClockRegionSetClockRegionSetClockRegionClearSideTopBox...playback a hand here (real or robot)PlaybackHandGoldBackGr...is this is a Rank match and, if so which...do next to flash msg...ctr4 decides message in top center line...and Rank or Leaf matchGOTO 6 IF DuelingSW ONKlonGameGoGameScreenGoGameScreen! Help, etc...choose "Rank" or "Leaf" wording...Rank Promotion message...-> WkgReg, XY0 preset...<- WkgReg + 1...Match here (color & y8 preset)` ---- MatchPlay ---- `8- starting version 2.1 - no more duels - only single player... here if NOT a match...tell about MenuBar differencesConfirmExitCommandMeshAndShowSignPostMeshAndShowSignPost-----------------------DeadJoeMsgIfPennyWinsMsgIfDeadJoeMsgIfMeshAndShowSignPostPaintScoreOnlyCleanScreenSideCleanScreenSideBonusNuggetsMsgIf...ScoreboardPlace 0 if no PlaybackGameChosenGameChangeFlagGameChosen: 0=no change; 1=practice; 2=matchplay9- mid-hand Recover & ContinuePlaybackHandRecoverHandRecoverHandStompAceRowStompAceRowDealSpreadDealDeckDealTheHandDealTheHand...doing a flop hereStompDeckBack...quiting the hand before finishing itRePlayUp...Ace row, King row & understack plays hereSetCardRegionGetTopCardGetTopCardSetDeckRegionClickedOnTable...doing a flop...here ONLY to get drop play...clear possible "skip" bit...skipped a play (so what?)...real cards play hereShowSideBoxPlaybackColor...yes, twice hereSKIP IF ScoreboardPlace = 0Color = PlaybackColorInitMenuBar======================DoDanceSoundShowFlopHandWordsShowFlopHandWordsShowFlopHandWordsShowFlopHandWordsShowFlopHandWordsShowTopWords - Recovering Hand -ShowTopWords1- MatchHandNumb incr problemsShowSideBox...change in rank here=====================================InitMenuBarKlonMsgs23ShowSideBoxShowSideBoxShowSideBox...Clock showing; flip to nuggets...Nuggets showing; flip to clockPlaybackHandEnterReadStatsStatsBoardPlacePlaybackHandNumbClickedStatsClickedStatsEnterReadStats2- allow Playback from "Stats-Match-Hands"..."Number" has Player# (0-9)>>>Note: removed 'fix suit' positioning attempt3- uncompressed Playback...if 'QuitSW' on, okay to recover & continueEnterReadStats...now reenter Stats...enter Stats initially...exit line ONLY if Playback executedSetGameColorClearPlayingAreaClearPassHandWordsReInitTable...do a Playback herenote; MatchOverFlags may be set if Match is over4- MatchOver messages *after* any Playback...tossing an Ace! is normal DropStack available...dropping on KingRow==>DropStack set<==DropOkay=1 if okInitTableTopShowPass&HandShowTopWordsDrawBtmStripSoundSwitch = 1Note! 2-1-03: letting last setting prevail!DanceACardDanceACardDanceACardDoDanceSoundDoDanceSoundPutPicNumbSavePic (0 0 PutPicNumb)@ Pback101PutPicNumb = PutPicNumb + 1...here is where we save a frame (bugged!)...come here at exit from MainLoop (except Quit)...ended a MatchPlay hand...CheatPoint!!!..if exits to PlayBack & aborts, no Hand advanceMatchPlaySW = 1...MatchPlay & Practice here..so do above only AFTER any Playbacks!PlaybackFlopPlaybackFlopPlaybackFlop...here to do flopPlaybackPlayPlaybackPlayPlaybackPlayGetTopCard=== next to see top of discards ===Step (topcard 0 RegF)Step (card 0 0)AutoFlipperAutoFlopper...ScoreboardPlace = 1-10 or -1ClickedOnPlayUpClickedOnPlayUpClickedOnPlayUp...ScoreboardPlace = 0RePlayUp...must do next to prevent AutoFlipper and...AutoFlopper from recording separately...since PlayUp will include them, if any5- fixing PlayUp bugs (whew!)QAceStacksAceRowAcesCount...around to here if hand cancelled...Matchplay & Practice here...Match is OVER (Hand6 done, gave up, etc)6- fallback Match stats if Penny win (canceled)StartHand2StartHand2StartHand2...just a few preliminary signpostsClueNewPlayerClueNewPlayer7- added Shareware Registration Msg callsRankMatchesSignFirstReplaySignFirstPlayUpSignEndOfPracticeHand1SignFirstMatchSignRankMatchesSignEndOfMatchHand1SignEndOfMatchHand1SignFirstMatchSignEndOfPracticeHand1SignFirstPlayUpSignFirstReplaySign...think this is unused=====================================...exit if already registered...check if in 'must register' rank...check for ONE TIME ONLY guys...just warn him to register soonKlonMsgs23NoMeshShowRegWarningMsgKlonMsgs23NoMeshShowRegNOWMsgShowRegWarningMsgShowRegNOWMsg...tell him the game is UP!ReinitTable...has he played the first hand?BonusNuggetsMsgIfPennyWinsMsgIf...no game screen until played first handShuffle2Cards...do a LOT of shuffles right away!KibitzSave...in PracticeCheckIfRegisteredCheckIfRegisteredCheckIfRegistered...only here just after call to AutoFlipIf...after an AutoFlip & always for MatchPlayKlondikeCardFlippedStackFlipped...check for runup here (won hand if so)...check if AutoflippingAutoFlipper8- 2.1.4: Playback autoplays any AutoflipsPlaybackFlagReplayHand...dont bug player if he LOST the match...Adjust UDATA if Penny Won the match...get a new hand for Practice >OR< MatchRestart