From 15aaaaf525077c659e612644f0bf95ad33d7963a Mon Sep 17 00:00:00 2001 From: IkeEisenhauer Date: Thu, 10 Oct 2024 09:40:06 -0500 Subject: [PATCH] Add files via upload Initial Repository Load, will clean up later. --- Example_Of_Use.xls | Bin 0 -> 61440 bytes Poker_Hand_Ranker.vbs | 154 ++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 154 insertions(+) create mode 100644 Example_Of_Use.xls create mode 100644 Poker_Hand_Ranker.vbs diff --git a/Example_Of_Use.xls b/Example_Of_Use.xls new file mode 100644 index 0000000000000000000000000000000000000000..53ec280c645c2baedda7747f762b3fddf9b04430 GIT binary patch literal 61440 zcmeEv3qVxG_y65xf#oHrs3@o_qOOX%EDteXJQWoM#f-jbim(WRKnoaFD!$6fl(dJH zm6oNInPrxhrG9%^Y1!M#N_%~^tgLUPrn3LfXYRebcb5gR@9+EnJqOO-xo6ItbLPyM zxpU{voqO<|wnsKR+2yF@5k^QpQlle4^3&jTh!aEzlcab=^ngZ(!yzLj3DN%x|BWng z9=cjlc|HIGz!$(e_XijO0f0b25Fi*30%!vW1;7QQwt#kk_JD9e2S7(aCqM+CGoT9~ z5)cLG3g`yt4ln_F0HOgs0WpAHfZl*U05hO3pdX+=AQmtHFc2^ZU;)Gd=zqg;oCZh) zBmo8kk^w^imjH$Wh5<$ZrUFI+@&T!UG(b8a1CR+A1sDy;0*nES1&jk^1I7a;0CE7i zfQf)ffIPrtz@>mGfXe{X>vA0b2Dk!nCBP0Kemagb00n@VfI>hKzy>G=%mP#cN&&M0 zWq@+P96$x25>N%W3P65yajXH3<;8_|l3qu@Q*~%fZfbZRD+6IV zYAX$1Fdely3AH*Fc1TA}PRH-1qGn~f=6<6kolb{DwgI*WZ=ou>uPC=#el3kGU5mN6 zxDh?FT6VTsZ(&Axe<5EzYH0$D(Av*e`diKc|2NQ^`=QYv#c`Wqujt#q0`XLM8p?NB zX?b~R!5mX&X|=7Qq@dPjH~srUn$V#@$GX}B0}t03(Ld>c^^x8O?s;7(`=iMvrPY^J z+RJ8ER+gJ-9XhWSgBQgli%w4`2bC54w1>_$BSRCfGTN>>Y7!$r^@hP_(L z_b>|5)~RvJI*>N}B4~$Q1nr1c)9P@+Xr0YyhlEzsN}yG1?m~9Z;bPoc9eB}h4POth zmE3*WEFFf!b!rtS(&{i|XuXC3t>(+2$c0PO%@Bc$5e6dBG0{C^d-k*pojO2`b~ALv zum%GX6*2URNw%VCT7qsE^I){15)8Cx^W&_Wp(oV9*hNd>!9|cIV!&d-m4(9lnS>_O z2gtg(PL}ZMno9nXazw54_PwCC2r(M zm%s!Jt1ysq3RH6|^3|+DtTtbiw2=cm)ezJB4xMUNPp0A_~*;!8uv=kv2)uo>U&(6w<-cX32`uP>O27zC)GMsb*0TQ=JG}k|!zCA!VTS z2uGUJ&DwnZOxjGc?VUMBN{@0}sTC%dz+IkDP1OM+VMQm4Bm z&Ld)=ElIySOz0ccu*XC^FHHjfTkG(=qI3AMJd>(IxzBxWynxSt_pC_B4Z;sE!>eC$m=Ja{48GW`jgTJd8{LKQ- zTT26z04=5i9WJDLsk53ZQI@%bZ3xcxI^%7>%18}F#4g*Sn|Dc++W$H#TKfLu4_z%QgHD(-S{(2=ef#=+eg1^ofE?wuOBQixgJ=k~neB%IVz8jvC9(qjKgo`^JADr=`ipx>I zHW(@C<{MKzGT?Fq(&jSgjS43!BVRgArlw4A4ZbiF$H(BP0HLZBDie50pQ zoRQNiHPX9MzyA7b6QxFu9N9!EElyR6I7KJi2g%B7aZQ!N;7_B}pYxkBw>PD4zSA$jLWWm;jRN(&5|R=cK5IIg)Mll|E(Gr=w5g_$_}_-2aJ(~SvEyxW8q z*ye4*;nf9;V=Hc%3CI2yWU@cIWhS^IzAzJOe9KH?+?e3RyG=NFY2GFrs$8%*w&IqV zU_f_aCi}BnW`a4F3p26Cx6GuM8xx#(w+RQZ&D(^-##Y#*WhR(px-gUd*)22a-Wn#> z_?DUUc4LAQ?>6C>vU!_?yD@3DKWUi>2JEe|Ny|)3tzlw~Z<$FSHzqjoZWG?PG;b3Q z|6AcFEi>UG(+e`$pWQN(9<5xzD?p_MT!Anu_Vy zf*9Ve_~3RAhVr)+zxm@??_$C|#UwTrGq43Qyem+|7;VMBzWuXzF&#X`BsCRdZ9$AY zdKIM!uoZv$>p|~gI#NtR%bwO9ViH>6Y5TL6?Ek^Lm`hZGZNu*SB~V z6X7Ywi>LKzL5$YZP@1n+dKc5#Q;Zi+>)(PHt*7nJzU}a7?_#=mit*xUgIW-y^|bxj z-`w}PcQKKkV!U`-d<$ZNiBPt31X63;c3?RjO|Cgi|Ohq#*3%L zv>-<7Y1a5(9$DgDOgB$4UOdg*f*7r*S>s2)f4O%t-95#4@wC_$#ArRu8ej0%KfQ}F zd5ZDkX_gkmXg$pue`wAD?_zp*it*xU2`z}xdYUzUt?FQb+fC( zzu9Xg7EsMtEHmYW5<$6E24jVklPNsPlW7kRrdltOq~ljvy)%t*F@^tlGVSHTRO>TX z+Eo_gooO!@Q+SIf)4m=|wH|_XW%nu9aL?lRb}@x-crqQ}!Bp!HlC-}68tK@D)>z;sJguN;wQ-1h&Fdl^K3Hs2AQpPbS72YxePAMxqa(&S zTd34{7@kPtF+qAkd0}mNK}~68#cJascZT|ojv%a4;sTUHto-64j~Xoas1z&2{KZIu zOgU?%3g9e~5a5Spd`#qgh7M-Xo*CWF0^H8l=tJ>*8xz{;CAPvcQ@X9Ze6?|*hhCi= zfzYc2gTX?q?J^;5gLYiM=F*CDHDXYxt!Y&&PTKf6wUWiOREBR~<=4SiX`#4q` zP424r`anoJOfm<51rQ}kq>Zij1FhME)(;C_U9=`F+Ovp7g>s$&^#V}kR20-y+UJ=j+v;jo8%Mjd z(kD8?uwJcBS>RJ4>YwZB=E3HZVe>lp11GQ4+Gk}e?iGNtVR~kCWhESSs5@U>7l#2W zAh|NI2>D&E%87547lf(2+TbY#?jW*k1x2M5vrM>G@KDqz43^D;LiGJoSZNj%lpC|LSUYN`MUo*@dBa2@84h13ecrA1Efu79U zd0{U1gUv9PhX#7VJVDDGeW6E(;M3j#jTk48B@B z03W9}I{PBE_u)*o9}E|a)uFi9O|aG0*bC6Tcy!FVD0Ivdz?dbq!>8D>xSW*FMAY)~ z!HMGVaH)C;%`w_tSFEh_12eW7b`WI6<{p5RHOMicvc|UBIMY3gJ`l}=S!$pI=cRd* zBYJYoORGH?=agOjs(hyQVDg#TgUM%W^g&pxj5(~F+8R;8S9=KU0MBYp6il&UzjS!T?JoX*gY3zwma|hWn%?mc{Mz9a%oLDtQF^; z%O@1IF&WNK1LM+OO`Tgu=N=|lRMxP9PWQ1$!vDHy!D&s6GfC^JS1=M>A48DQ~?fui3)FD~)fpHw zbOJ{{s*yvZqtOw8)pRR-*uObLZe^Lxo>fp$6d|wf?#fjTilm8HEnWeKzYLGagw1SC~Z522fTTobrG}MGR9fyX1)AaJ%nbpuF153LrD~hTi zFt4hh$VS{GsF7Y-L?x_=iShB7z_EU*G5hDrni4Pp5}KKE3reXE4=}ON(o|V&DlkD% z5yp$7YRk(_S(UZbENmV+cIpTPMwQoAmtfrm%j3!bgi2!)6b_6!jZ)PB`8AYham<4` zf5!1<9ES{)qz`dii(>+6tI*gH0E7}cDo4FE*H{B!m8P;*5fs0Mo!kOc7Q@`iiV9mH zhu?0g;zSpN13+$>J%o>&=;NmGd1BtQy4s}r_#MVCLhjILLC&^OvfrDWw%OFNJoc0LQ}+%1+Wum9{~a%{UAJlM6ThbQ zkNF{T^t6Y*9GvsX<5O;2)FonA!9$^Ie|!F=UFN|z)Q`FG?nw__`(4$n?5BpWY_NB4 z*!bR`$@;ev=k~5YU*G0H?Zm?oKiqh0^4D*qfBdb_Guyi65C7@gGizhMYIyqjkx3J_ zj7>K#*}iA>2PZb48TCfTw1ICv*XQ?v8~fk5;lSm8pM0kCwqsY?65mbS{DtY)pcU<2 z-WGi0^mk^NIuH16_t5)pJn`8_mzVGQeC1OsuS>de|Af7c@EO04Jl6jG{R^*H2#Yvy z@8oW;hd$c$k3Fzc66%pX&2+o1yn4_;{w`hh&g_>h!8iQ8?8PPT&Y$?+%Mrci4tl5| zeb9sRrK9GBCDD{%1 z!*?%S{Km44n|c|qsH?jE!D~O;F@0C=yAKXK5EuDS)-#sd+l4OwBxl#8t!YK?z7h7` z*v!uoX2vYsbn8{qKkmNvzRpLIvfux`k9I>tZ)WZvHeY>ebltqpx@P?s#3q8&BWT{>w4@swd9x z`C-Gd$9H^g`e;Z04}1I^`}vj6#mpXl^XSWty??6jSD8Qb?;WU5_O5()W2a?P;NTDU zkzWkcs4W*Ej%uIy+gp{9&voA2>6jyB|NO!+PukvC{?y6zmG_=rmNn+d(X+3Au;7)> z6UMBZ^LfWl@&@?^mfw73;BOzLPpnxq@L=Yk^M(4Dl4loYjI?))?$vLBDP{Yz0ejYN zSn%cRtG>J<=KkyE-D|BGvvlLINW+h#AD3>8{if}KhnF1r@bt->udLtr_sf@derKO) zZTrsGo%!t_Bd=Y2_2jfki|a?M8Cn+>Gxpn|k&)J=1+m?KSyyy&+WyR&I_$dX_^6nZ z9Zrt_WYne)zpvQ1wpjOORbcr$U$4F1a7*G_M@kP|x9><|-lWi_*((ytzRHa#Pbe!} zy6&y{y$|*(ULt*WrT*-`<@0&+^LJD_)$iY)8ts58iO~ z!WYgTdi9EP-JjTZ_@}E+U2;#Gg+BexRBkW5hUrJdtIN^(j zHZ7m`@JDCLXq98%~Wpck-tnPyPHwdVHDR^6G@`114xzaQ=HI2UoP zamTWLUpRhxA@s|Iry5V~Zv6QE-M?3T*`aRc%daQ&YIpCg{eN4%X2J^i-e-`kDa|~(PC4^7?HGjhs=1*V#;IY+l_a?7=+H}bSeGl1wY9E&UAvEqZ9v z(yJ0yEWd5U-PO7ucC2XBr_cQ7-REyRkk_ei_`PT9?wj%UoNsjZ|JWz_!2CmP544NC zHg?vL2O_3beY@m-`{13Z*=r3>y$nKC4L z#Ov3roHqT#pF7`ru=nwoiW4*M%RRpH#PaMjUFJ>r$G973t=t}dbM3l!_I&@$+c&h= z?LF4^=(=U`k#(asocCGyOTTZY>OGm`sMW3n~q;|ZpFR3YF}S4Yuc4V{`S57qoWHJzj#15@TnmE zw?&Cp4SzZ*^zrd07k>HamYcu5;rilfpZ#+1py6Q2u!MvU|9Ep#X-UW7!A}pq=H?BD zzmJO?dHmD)_ph}kO{yL>VdE!%-g4XA(k#hb%ED%u*hYIs`t$4dqqH(dSp zh+D$vuL>W2;H9JwZ|axw^lSZ2z7VpwCa$?b~em>2G(v5*Kj$oU6++%AUV&S@`tcK|eox{kg^& zg25cRB)4d1A?d)s5CHcF@-(B?kl*c=V&wga%qf6I3vUS@tlkT;D`oY#o*YB{M zDvo}9NdK~dH$A*&O3f#~ZHk+9{qt>NkN>*h(l1s&IwdY9@r76JeD2yI|M=sFqGvxa zC)o7iUmW{+!HzH6&566K=iPVIC5Ha6aoR1nM?xO>{Nb_rrMs`#KJC3L@?v(q zzxT+CV@DnwaP5HLS8EGP6Xvve`^W8bM$Geh<7?^D!;5d<^ttth!9U(^-5pk9_wCv> z;if9X-tjl?T$wrhf#ECP-SJb(!Cl{{n^tV?5LmD+WJvo_pIv(9i7|gq>vt%0@HeNQ z+CO^RN1GS?ea!jrD`)-wp!7>v)MGDaG^8KdJz{+5!Hst%+z`L2UGQT&HdRHZUvlHd z-cYeC^iSOKW?&gM{yI-}9D1H}>UwzwTR}^Hsq6ch9c$`~AbE ze|#7C!_y;fyvDF4Y3Fm-4;M2>#4l0Z6xcBB*>+x9KEuq`@ ztqTiY9Q@P$hUae|JH~Klys;+x&o@jR9zKzj752c1YwsRAc}ihd+a>q)9(H&7uD$ak zYTGzwzE<#3!@E(vJ3e2#W_Rp1Dell!e!CBT`r?GppI$fr^MMB+Sg`hk(9D6q&AYC{ z^_CZ6uU&f0r~Tf%{Ex7o?h8r}J-XnZ4?X(Mgwdf#UmAG$G4l;EPyg-YhS@>EpILft z4|w;sN$>X?c76~BNlk}QA@4Ta{|r(hG04JT#BCTQj~&I>L^GID#**U$|85CidTR02 z#>&d~pAWmW_vgzGKK_Bv(r*$&l19c%Jn>`5)>z}f8wy^!tMr9C?|q|vq4kTnl1IB3 zFFAhuRd?^5v-8Btlt~>Y-1y1RqHQx4udE#WV~1I{jx&$%9W%*1FmA2AO`oxA)*ZZQ z@|pUr$q%lY@=f%E52x;X;b7LO+WG5$xkq>1t1&Om47>J2sq-DVcRRM9PwsN#tU=v7 zPHUW)TK&l~U-JX6?LX4_;`EU>PGVr`$-~nLTs&sr9zv^43oem6 z&KI}DoHFp0rlIs#;BH@%?!i3DJ(@c_BuFcOTcN>`?oMMAfHCiZH=goq**T=W|$EE49Z=CjS_U za16!U+dR+LbN)A5 zBkAPY4(r1|%p$SNl7r4HIc$b@SFF86(qYPxwZvLe10Q`bY`}A9ov;#h(8EUgXeJCt zMyf}hv<^?S*0tb`F3y*Nhf$i(c~tOQ9T~pdyW5l#lb&>(OY+3gXFPEoyx=%*=1C{7b9R?YU-hJu z*SWgW$?H7baq>DxcbvR5+#M$`jdsV$OM~5U-92wKK&q&D}q&zv2T-fJ^igqZUk&+%sO6CweQ<%n{N^UFinU<1% zO-iGnt)lINu4)zZb2l9*x^lp%tWt&Wtuy1FPS ziIn{WWg9`swn$1oC2>)biV!O(Lj@&kn3TLqhhjGp*+VFalmi7N`$m_Cgt<{t5-BZ$ zlGhiPhwz&3;z{15j1!dY1f}XB+#kh7$sU4~RzcZbP^uonJycwj>^DdmFDUuGxywWN zZjOtRy$LB31Z4+7$$DeiJGfD@k0E8EpzJ6pRS)UtM#-Lslu3fJlb}>Rq>~#Z`y)~g z7L*Z!QuUAsH%j(Wq)Zl+odqS&sVDc6ag~UD7gL4^$}WOZ^^h)ZlNTW?8zt))l=U(t$EvPt2zOx$6;Hv) zlQmDCse)%uL84kj59BFR#t2Hahlp{bq?eFqn&8<>P^vvdFE>j14tdIyy#*z6 zvgP%5qohYMC0+3BBPi7#qK_LT{fsP}v`U*<+$+QxE zl00R~eu7f%A$ZppD()0WNlzuuOu@6ipj3MZ-Wj?m>A&PDQ^pEPwTFmxqoh}p=P1E* zfS^=8WPlqbeVsgI%7KDX^^k#Xl!FwWqXo}Ff>OPP405AnyC6@Q(jq8T53#sWvb9jp zEWwj+*Skg;ac-1sL*yw_S_P%*Ayzj^wk+}-BY4ION}kh0;@v3O-pEs?Oc0c+ha|XB zvK5lYSiv(`qTk`D44_B}XB{XBzS3KaR6ha=Guc$w!Jv2kOHhV*94e%ws<&Y;J&3NkoAC38-o==G25 zVx=*-IB>usc8F~8L3+T+!;pHH$WMB`bU?aYT8*dhnc11?lTBPw!H4bxo$D-O-EmyK z;DO@0i;%!klXAwJW~5&-HKVeyb`GArSDUcd!IWpKslhUb>Zw=D8{pZdX4tCBYAUOy z*4WCXmsargC@jL5Ap}ygQ``Y*v9u6PH*do5rV9dwW~5CV{#S(!oKrM&Xoju0ptigw zqtxCap99#max5<2+`P}J`_K$KbheKv8g5M-I%-U|OTnSz3+mEpi;HdcywYoI!>yKt z{!*SNSzcJF8uF3;B)5ZD~O|r^fNv1daEG9Pw zgXi;D;e&2etnrAOg+)DF@S+C2q~rXJPlmips`qI-cF=NQhxkPvmaXLf-;~||P1&hl zfg3L+`tO{w!{rH6cA_OHQ*`u3Of?YD`^s_Guuq+$GkQ$hk%K3W4agJ6L5e4imkLiD zhbW#n4n{n2LQjn@9LO;6B56$V!=;RU3(pwjNmhMh7u>u^(jKfZ)G7T+H$6A;OEVNp z{^-P@kyxrG=jYG|v&Tw)O#V2$tZey+g|6|=ZZV;4o`!iB2x zyb?|kLgiHdG3nqWka!psXUHk1(Uf| zXbRRIqJ*X(YL%vX4^1)oMNK`kYcv&gB332RY}k=j7B7ZDdZ8$9*_lSKqoOBA(kAk> z8cq>tQXfeu3Zmu|^&gkzVqo+sR`zVUaGj~2hQO*NUQ8ooCYDuA@ z@~j?C5vVBU^(YEN%_-{crt&<| znI=g27+M{NrPpKMv`4Y&<0JTu!e6p<0=xTiRJ;#Vcxom_w`>V|P;*qg4e?fwijfB$ zi=eN=adogfTIOoAexn4S{3lY!D+MXnK8a4*)fZ;S}aG6mK0iB*-X}}C6 z>k6}2?1GeVLU0Wcd7sg>lVVtK5d!!g62dU5ojJDvD|j&^9;RR~fo1{H4}x0010Zb* zf0WSd9YC;X6ntcfn8EvK%lel_Te8Bc0&idOUwNd(>peOFRulf%uyyDV7+jC&hUhN# z5uN%7PUgg4?JZx5_LdLEy69Uz0I@3R13NwWV7>~YB!cfjf@hSsv0EG`5-h;{b*8WnyTK3k;=YXoId`==> ze4uKcoKWRtIwwInoaL34Q0Iz{P0WpAHfZl*U05hO3pdWx! z*0BIiGjjrY5P-bsHLN*WkCUsMJL1raGdIbAA%IH&xB%Nd0pkG^06BnMz(l|#048H954q^0jLC20VvCkW3>{m#c?j+ zY5<3x^8nWXt_55Nm=9P0SO};G=yIQ`=g5Qi$CiG2eM5j$74DbiBQ3^KvTqCqjQgUb zDQT&>_R86|<%M`*3sz3ihtKxY2M*T<`s?kwaHFqZy8wN=J>91a_rFaF){h;g55!|! zdwq3HQDwPpguXM>t3mN9rFy;s8iEq`(odCq`b`~ut;JGr!5m|}Wq@StYA~crf%-PO zb{0#5lr+Dmb)coEMe2!J(#yt7m>^A_nm4by#x_Taw@%HQoRO1VpJ^R9IXjIT^P5s@ zYbxgy)Fkswtt%znl8l^Ub8%_m(u|z?5yjHxQmJrp#;W?Z%j$KyMH$wNQOOyQkv+%d;{hhPy1#?WJN~LmJ_0;jDh4z%n>dN98 zlTXrAoxx{(Ue1t#8QF&Ho*`kTAp5Toa>I27D7S)#9;vz;%ZFGM18;hjciHje`=R*R*tYKkM6YJ5)veI;Mi_0f$gWq>c zL-USJ>$3T|gdSP~8ml$@mQRMW!(5Q#C+=WPE7KS+oRKZz8bUW_PmmOyhtjg>DJ|?^t62<*=wXlsiXa^X+6jI zkNG+>_^uBkt)sKUt>fyay%uRb5NVaZjy&|J>4V7l1CjA>@OM)DH<4v8{uYw(V@N{c zadB{j%p7~$&A!J&!e+9`wL0iJaxO!MNpkc+-ymC<9v?|UydLlYfC0(UhMeHL*v0k4 z$#R@OgSd_f&Th})7>2kcHEfu1$>nbZX5D;E-w}6&nkJcA_#_eYlS#-N`-CBXbk10H z;=ytA)0QW(Yol;>hwKW`%0$rVjLI1sm(equr)c?lG#;IboE>?Diu{$8|I&G`Ncc}X zn4z0q%FCt#G)i8WGj^LCL(dv5$5icg=nF0ATezsxf_~V7K9|1(#5r-=Sh|9B;pBYs zFB&|0C)L}5?zz^fRqV`g7S;{d5NBt5xKjso0B{)}e zxngSmV3B|E`Y1j5GS^xV>5-4|=IBYwUS1Bu8%30OH4vf3wMS1pd-D_`m5?HOWxft7 z>!i&q$GPmv0&3CmO1cp+rze#mvB%PVIVl=slRf_IY(b*o1e7|W||!A0qITR|A! zAusRHJ=bnC71;{Q3nafWMQx?WCfjR6(y)Vyv9j709yQrE2OmKysIg_(?4^El^)ai{ zYO8U*2rj+Gkm17t#9s^-(SIE>(O4Jmzv_>Cm$vnl*pwSjJUp@I;U%+L(|<*6zAHRu z{>qHo6Hk7Ymi@(jt?a)%vw4b^J^%muFS#fC@6dmB`=8Z+CH)ufzpVeu`meGVTi1V$ zylnWw-lKg|mjvGy{qE!2?5*j)k~%D3w|n}rQ4QnzoZolq30&}7HU9F<<|+FB`Y+d5 zYk>6Mq5m@d&+5Mh{}=AR;{TWRU$@=dy8bKq(cJC3P1$2_d+O{Ln>GwO(VG72_*V=3 z+cgXvx6$`osnf*k{@Kd@%QKs&=zo9z<(mKeYj*>GW&SfAox3{!I3ANim;(`8Wc`&H zV7?q-1iwIleBXh{1wsna_j3XfVLJZuaMP5FBk!dyHbDMG&;L$=kn1_gilCMM7t7Bb zsKmT%Ys-HX=sP}6gzMLuasB4##FG@cujg#2 z8k1Wn=i)FYDuTRXnyaQg|1fEKX+5T6>OrRhX7v{UU0M8Z{a{j{aBr;`3 zV7?W{L&(7nVIR)3FayoNX`T%^&*2KeT@~cuZT{7usIHJ)#G!T9OVtd`GH(6#k~4z; zxgl4SVniUdU{pUWN->{)m}DhY03;OV$OM4{V@di zq2s*%h2->aw^q+G;(rGDdGbFNCiCBnG`3eZi!l5xQ20wrV?;TMkiz^7q{3_ScqPIW zXe$CN$r6wNqTN-;D#QcwsBXlYLqWHH}C z@Li9(RCSrLv`W7od{dC7%J&21W<`F=Qn_AA6h8If!{7~1|L}(234BX-=P2$Z9RWe5 zI-Vl07}r3j&X*a7_zNsER(juzAT>u8wv;EZ>8ctthYUQ6cUUSZM~`b zY4v7qZ}@!3@rF-n2G8-EH+uSrnT`s5+Cta$(AgW^$!78&Y6iat_@H(XdiE&@Gx$>n zSkH(Oav}Hd`7)>dXu%5c{2M(2{5r+3TyKIt=THr*pYV80=IPW^Tc28cY4I$l3Hc(F za%$9nhS-KC%J-TXgb^PlA^8S`I#Q;fsX)B=I<_Y%X08N zNGZyLZaE79=z#;vKz-KYJXoU-(9U+GZ3h>NHzPwb`aSB=1A4JODK87SbLUtS8Srvs{I;= z#?-@wZ*+u#c9?=UA%SvOKW5-#z2KQ1iqnbrMH-J7uL*Ibw?deePCPReUiozOivRTtTDwIpl7`xz>M${{z3g zt-JrK{@)ybF8CyW2Fj3Qu3!44>+Hg@^^i}hwHKMsld~$9-#DP14}!0@{hOKZ)l%Y|AzH-V+yu5x)oc zIt~8s1&*V{9|FEagTKG)S)mW@ov*=XJaK6e>5aG-$9W$sYJR;MN0J6r)Qmk? zc6EHC_6sb(YX2jUp9N+-H)-&vf!DSxwO^!MZM#ZA9{NEtbkMdd+B+9G>W^D>v3j3$ z3}|PARC&z588pmKx_TT*^C#lRH1&_mp^(#n^wSzV&;rjqT6)SSj(lHpkp8%b>dS2ZQz_O(>w#`Ha&6LbJl?xj3_13c&??<#*N}#i)PoM4#A^U zc^zsJUh^r&%MQtsu8p!>)q-PBAa(5&M4Ujx;S~<-dK2b`EX3Of9&}c$avdUlscQRI zj$FrjmlVB-FAZ~qj!=&qGXzoYdZTEICL)yhK~^r}v=i?e)%bD|*W?AyE-3mo(kpQb zqG~)>6R*<58yMH>fV|w=P;8HacpJncgbwbq+Ts11gEAjO1gv^Yj^pD`kx~S8TVxDw zgVI=(csSnGNpa%aO8Ige3+7=5S!V;~mdJRaLmlHDx>4>CrHuVhUa{gHdbYz%$sRec zfpUdo15f@&4NuN}dE>c{23};8%Ob}`StJ%)DT|mRN1SDeaN^ra7CA1;(xB+TvZTm( zQI=fBJ<8GstI0Vp=ZO!N+Dm4|CXBC@<3{p~AU*Wdqy2Fn1#y8lJMnsHvtplM=(%3j zN6>6j>=2AvT`$uM{1Lh$_^|E{$#_x5Fm^ghdChWMl#%m@z@wjRBc0UnNl|FXCs&iV zN)unMiHkXSh5t5oM9_itRU*@Xdpl{p92a_86dLm1C&z`JM>KI0Z}7mAG^b^J80#xp z#*28aLPJ?675gwArr3va!(zhCKHvaq4hT z6F(-$MS0<^%qz-Ur;)o{BX_+V7v;^D{ZquN6knw*F~_FpnWCWy)5JOF!?KWmkB0v~ z4gVvW_-TcP^qeQ5p7gzXx!&bAtN4S^f$=7O-bvzfAWuB|tM$}JLvIlLeMEnkwkR0Q z*eEr4;mICxrx$z#dciE&pA8ngk2gb(i#90Hm%PYY3qGo>WG_6qsY8kvd_LYHN%81U zRQ>T@o0I1@h}Fua4Y{esP8mN?0O~&~Q2YG|X;$6ELif@z8 z9x{OM=_Mcec_?UD7blgxjGva{evE@msYmpU9_3Q?57X$ME7S1TsVDp4ZF1WbedZpf z3f~(j?UV87|JzBqvYx`<>SP+>Ge=|^Q7muIyz^vXK297cKJ|brC za4Z940g3<&)1)o9kZgf({%YXUk7rQQ0&9$9#-+FUl*(sN;yMQ4R_L*d9CVC<-(bUa zsSdqNDKjC^GBHvT@Z>7Tf^h}ff)!l>;^;~b0gfpu9chT+2CxReJ$P%Ce0|`ML@%R!cG7HTW&qFWr*{~$*lwNvWs;tTP5fY0n<%Nv4=5LR zouVe1`nBwrtS{L@jQPQWGCzKQ)kZPScCk;YtT5qwk=lIpEaqc9y10-+##a=XOIfZY zVV4o&^A_6ttT|P#s<$>><plNR~qeYJI4By4r)xk1Zom*pGhCGx~iDxT@`jbaGF|qlv8oX);D@XXQ>z z)fsO?j2uWEnjEBZn;m3;YmY}pT3kL>B<5`2-rEBXMo{mCUZ_^0Ysq?GHATN?2? zq}oBHpf$Yt)jVtvDVJ0B11-JkZ&t# zd^I?!=?zM{x9h*$eueKluV`{RXS-JMvYs3$x!N_;WVz(KPo7M2>akA>=0|=-d3cA? zTs>Y)y|Fyn`q9=K{UJ-pxj4Ji-ubi-0;UW;d%C%IezEU?#ElQIXg5!)ooNyuixyuK zHunt)4D#RQmp@RlV`tsMdV6UVzqhNem(-<$lDc+KQWp=_&y-gWN>Ay+8?ZS=AvWHP zF3?RLQ!!V%X8I^2o<8X&o2FL8>G9fgNMJ_k9Ft+rJpJl8)8tB%U!t_ur#-iM&5po# zsM|$KpW`FNQjv*0QbkRe4IfkW8CyEpwsB6?O@SeSzJvPK598O6XW7ir1yWpe-+}yq z^P@JuP-{S_wM}SzKr2KIzw9%?R%fa) z%?=6tyRI~3A9Np|IA`9Q*XhFzX7df52AJadn(mUGHpQhBO2a`kBs4UnKK->JZ9Bvz zgakU4^}e&`-lT4qhjiCn@uneVf}``a{ed@3NS|^`J6*w>hS0)=`+a(3ESlLT=pO5l zUdzgcUuVk0E*X|L0;QChgU0Ns7N2U)NO)u%uDD~W#TT4+;xo^W`)|n|Gb4G=v|oC3 z&n&M_sqUdGkop=L6MGpl#`W;s9kQu=X+Ubj58wE|*)1tKeDF7+N824~bLxoS@!O>N z!zQHEFUd&>_FrhaqGD*lhP}ZysWN1OU&6;F)!z<_i%Lk2N*WopewpLV>?2o=j4D_^ zA;Ld?L)3nsFK0eA-7mnRe=^%IetGn^;L(e>=lh*8N5@Ae_l@6lN#7?UyZ0?J?~XQ| z?|f!Zn^srtT${Ia9dbIDcl#8X-{@QE<5)Drq(3=!cZ9yOm(TAJ=cREA z2cBGIb#$&M@||mSI64oxA+-OKomLIJzx|A;Cx$q_yt;kxPi+Q;-J7z=r`%^yH%Dlv zd)rqU7DjG+z!867?u`PN!@*{gh`O{3Oqee(H4 zU5~fpOnEi7D$}q5asLeV^F644R_bk%#+Mewn4|Npk~%_9;SfDK_E$gi>Dhf_w{3g+ zY0HkUx4iqIBQEezV28VR1tz^eV_p2ZJ^rICPX;yg=Yx$9v+w%O1HSf)>)Y2f?A}Sw zrsm%H58aNPBTVgmDjO1GuxR9}WYcf{2Yn}hXW#qLs=$iEnH>&2usiVne}4XCU`og6 zha}%o1xXJ)-k>Y)V?26r_>v%NjnT2DmL7_%ny zpl+w$o;brl#~vQAURO0C@m#d&$@a@S+?q4vt3ip@l+f41u5WMGWl5QJr8Ryg|L(Wy z)@{?93{ocU=EfAS3kht0(znJpDkM-BgO8izX*c>T13HU#raWx4E%CGGu;~;@*)*}Q zkA5>ga*oDt8eVS_{ZN9>dpC`ede4^Hmzw(fbn2bx(@D2%OtF51xzw+(WYT4s(FsgG zS7MVYd^hU+eXo*Y{IG{_w*P3~?YdYr^_nm?b-jNnln8m9{rg`DcyNGwO$K?)%-H3; zI3Z-*ZofCoam$!nu6*X`>9)1^Vm%)&ON4KDc|zca%^VJVR%m&F!Ug-eh5?WZ^licmh>UI|I zc9sAQS#IZkPK7n#?(;LItr_-+UuhJi=?5W>U6*nv<&2(`x*%?9dd~RqITH{WKPG)r zP97rI6N-?8pUfm|f|Lyd>1hHWAtP{}VlY-1EkFm`px^>zftWDS2I|rtQ&J3j#IH08 zYg_d3h*KAPrLq~5x)+nY6;n6zI>2Igd^vFJ2$W?iAJoElxFNTo(% z6&e!nQg8uE<)r}U3e?ErVI7Q_^?W@-*^^4$l1kl?O5Tu)hGqrH8(;}@C;}*4ktuCZ zaL1Knu1hjv6rO$X^ngFFhzxu2TkKPt@x>&XBTg3HI&&yHRAti`R7kcG6)Iq*Ajk^I z6?3D4JEI(D2nzLwg<>s=ksI%sR0IY_WfUg!K%(~_N3E_!~tL(Vza8B21;_z4g>m7fifV{uNod>9I>pQ`_I z76L)lHxAD{nTt4>KPU>veB2Ah1D}YwlflS8L`uajcInvbJd^o^jn#GupYcDV7??J> zS|22>B{PH^c_TRa3Evq~ ze?54q0DcRwQ{Fd5CdiddU%K0bC z@r-ip%$9;ML^)1Wjy*(M)GJpwy(C}F^wK;f{Z{4ph;rPk96wQxzbMB5MV}tZ@ev_S zFAY)7uM$V?`^Q#6adAI?<^AUxh~Vl;2CaN{^cNfW{x>g=tSLHFYw|w^qCU!{h#TjX zVtc~N@B~BboQGqjbC&DE-0Qou66^?(}y%KC-vmH1;fj;w*@=S{js9afd6%k zASFq8<5ry%36gWs(CFM9NKs;EYoahX4s#(ctx9o79lellliHT0I5I2_HEj|qCV;E@*ajSIFk#_F1AnBADjx^#+{6?6D(L^wvbM1DYo-qA*O6n(d?eoeAmA!iAdvw$F| zEY0zo-)m7X$_Zg|-pJpD1F~Sh3-1*+NQuJAijJBj(c+M_4Ol0cGku#RR1gvjuSJc+ z3#QPnZBq%NNhuOW8Jd;gQb{yhMXocmQv+(_!m7CxZ9-ArA0pdH=i>K8{V8kIPSr?d zdxtAK{0w}xWmburlM*TSLoALPn}3px%Sc+&xs+AYp{#5?S>5(RT})KafbCUvRTg*r zuIh9L)ZK_Np-Zq!B9i9%x|Ku~+idN**-@27YNtG>AUErV3w1ZZxu9-%%jyRDU7QpY zuBmjEJCBT1`?*ZwUQKE`?c1D{){&9wHLf~r)=F$G-4Xg#_swP6Q!KtmnHju`!Q zyy0A<;Y8!vpMxE}T-URXp4Wg_Ud@z?m=xZJxB9q#NbB*9q+QB=syuYs2)rI^X&81j z>hX@M9`Bdx@h+(z?~UrEseo)i6d)LI?z|rF4eIeeGXUr709j(U1oDwXbMNzG#g**@ zc>szudFn>+L%`nm6yT_s_lne>AqscH!I*m(1|G41SAgS4TrxJU4wg#r9%^KSlwRkM zx|q!nVaRuwlW`$4bFFn_mC;d&jnsiWza}`vP~vFZdK#CCb2pdQIn2j+9XyT8KxAhr zs0)VUJ-=z}7gy&P^i5-u0c)R+;kt>Ojn^9;{U9%#LU~vV`N?iJHHj2fzoe^!@CfK@ z1mpus01+acO-I6e#yarUW6d?}igS)eon`U=O{%)aA(3C7{a9@T?5u=$ipkyU&2HR8#PAbC|81r1&Uv_%q-g>z*@j^ zKo%ewU9)MU?WY9)wlgG9Zkq^y@qHaE6Gg$)uFqtdcs zF3E4~#01n#AJj~DQ8R%`5k=h$MkAK%#)qFEm;aP%67`g!YkfVL>5l;VUrY6b1}d#* z&7z%!NmCsdmPMgj4A~BIENswNa;_0KNgjUEPW9bg3jy%3zAzt9}N zGR8;54Y>c7XIzA^i}>+A|HSghw=u4}V=`qMan(de1YQ?xuE^uKHW>Nv~>Yj=HB_t^jMvHxoq z@xCc%OwcK!(f#M|zrPlHTdD5ner(15`w5t)*Y3Zc`2TVL{cX+ezmE@yNY$5B+RN}T zF|3T+=&eXAsMhIMh;8_-mfYmHAp@i^i;pqgAN%mPllS4DzewGOUw1G}-G{&2pzgz8 zV^sIyFKSTt;g_B?s{8O)f>7Rvzg$xG;h*cHZ>Q|TU+VW4_u(ItF+BR(v>|B;qY{TC z4@gf;9y}l+)sitFHPezjAT?=7LfVkj%#2ZSne$Oh`H|{y<;f~m1u5V89TKP292#l~tRNFP6XcyyX2%{n9=+gCmkFiSn^U+86eV#GTTPuY5+uj+~U z?o06D3VHr}G-kn5v5#6DFzJ{NACJErd}Tz&jK}ww(#1S^o`R8Q&!;N0=t;;$OeUU- z4aC#1Z2a{EhBN%Nc&1n`nUGq5GkgvR@lj&d-vo(O_$wFK0^F690$%|tZ3x!!^BV4U zNQR#A|B@Zzpl3XEq%BlC*dcuuo<UmwD1>uN|JFEnI&HJ})pnqVD%@Pp;C zfx`VP6Hf}$VU29qc_7lVQTm=>KsvDs;^(jLoU8{v9brffcj^UxE{h!kCj3=2I3f|Tpd+g%5MSl z$}O)9a=&JBe@Fv{cAi-ETpjA^RCb!7bU3(ysR*2I znSiMXEE$H=cz*yG4kv1Q^>#QS@tQ(&c^nRokr^T=;!})Z`JTFKkL@_zWqSK4kHgVb z?@ot&cL`3C#XBpjVAb^d7!F5wH&#}taL6RH%JR-CUa)GqRlUQ}!;MuuSn(qe3^Tm5 zN)W7??i!5y1~*m-V8#8|8R}fD=mk0*-^)_{;XnE)^!_*U_ogq+?hXI%!qH3J-H4eCLIU)?QOsc#<4c)Db$50|*q zD6^oj1aoq(b9|$UUzGGy({VngSi<~@uZpQCB4WCvR}eg#>r5`MEG#JJ_Zw9SV1Oyx zddWv2=c0N%HdjwY>Z72>zNyfMYjyc_T+PkZ&`mVhDrXx%J6$;+b}7h9$w|6lcw|2;d6ZRu&Fl5*Y%N*kw zqu{TwE0IxVS70w1cR$baY&GOxZMX`SF`$Cdkz`#LCg}{NGs1Y7U4TQN!DhFYfJeE_ z9yA|ik;YfgN~^59a}t07m zDOUD-S^(=c2cL+RLp!m{cddz!7L z#%A|}PX&TVT^X3Qm1fE=u~V*MQeJ=2T59p|#Ts$_rT&h7hvj4e+iqvMUvZTKq0m zDy7=hR6F_svM;T!u@{tL?c$nJ6tccvw5+%+lu`8+z6xUdW}GY4I);W&NaM$9P7=mx zP7ygd5z%vdl+*cY^UQlh@QN>!H!mtx2B5C@YI#UGc2C1Rpou+t{Ry z9GEUvP&^}y^V#ID4_ z=;n-yWz`J7p#^xL~Z=A zfvxVB-C-Eu=hgO|&JM(_#>T)aJxo745T^Grl;@S5d!mUpz=puac;S2|z1v-SSrBp> z48`RIv+h9+d8kbEJ~VkhL6BN~KDG%7UwP!kHsjMKhE-qJ zxGRSRPn-AjRJtv5R9_d;#ApJ)nZ1LA3kLdw>3HR(F`t^+Ybz>jqFXf@YUWglW@8`J zM4p;-7Hua$=@=}r%HQ?rcl3-BZ~Vqoo=aw_ddm)TRT1P#yVhZ<9b%Y(M}}p?XXHl&y}v-LE|U& z&>Jur-&604&WIG=0+vG}4VjvyP;<2b5qC}R2u*aDcMyT|{>Jr6l;bh?@bAO8%lY4P z_SaUOy6gjY((yq}TL5d;mC}6dWh7kz4`FbZf3^6&xt!9v-*6AFZB4ENAX4tr;oEo{ z6;e4X#CfeTnD;BjERnt0c_McSW|W`hZVz;8%YP8GhZQ!yxL>Hm3>$U8YhIY4x;TCK z?f~Vg!CgD=XCDAvqBNyZ2^q-(FfTkheRy=7CC(b39zQBRgOJY2P;^NXr4M@&Rh#z3Fq*~I4#Kl=G ziK+94;+2G<&RiD3SzNO5O=e3^S~-Pd(29?zpmBne3AMFm)i`Hg0yOoRtOcPjMpIJRb+w& zsm^eDXxaQJ_7}y)M`?^2GP=i+W%vJjCZ{CqF)R`8-)H+L7T~r3_&}EFDF6c?3&6*+ z`2enO!7VBl0mu>vMif;a1T?*2rgy&cGi2O|SM?7s!XsP`A4-b5} zZeV2CnmbYc*fU#Me(rw6l?5z+F5v$SG|vw5w>S_N05LZZR{$}{y$wJN@^=RigKD`6 zKnx2HQ22ZWV&w1u=>dg@0&u#gxHP8(xCa+J2@Wz1WG)EcqUC^^VUy+Hq+$Y&CP>~u zFpUsQWAKgV5VeYdz<{odPb&fGv3j9-!f%hz3O($N}(n zb}`s}Fe#AVKoeLgpo3u2Qz4R|fWiY9fve-0feW8N`gFb0P)6c?8gG52-*1n1W$- e4~Qm4|1F>*XnT(s myHand(j) Then + iTemp = myHand(j) + myHand(j) = myHand(i) + myHand(i) = iTemp + End If + Next +Next + +For i = 1 To 5 +mySuitLessHand(i) = ((myHand(i) - 1) Mod 13) + 1 +If mySuitLessHand(i) = 1 Then + mySuitLessHand(i) = 14 +End If +Next + +For i = 1 To 5 + For j = i + 1 To 5 + If mySuitLessHand(i) > mySuitLessHand(j) Then + iTemp = mySuitLessHand(j) + mySuitLessHand(j) = mySuitLessHand(i) + mySuitLessHand(i) = iTemp + End If + Next +Next + +mySameKind = SameKind(mySuitLessHand) + +If IsFlush(myHand) Then + If IsStraight(mySuitLessHand) Then + HandCode = "8" + Else + HandCode = "5" + End If +ElseIf IsStraight(mySuitLessHand) Then + HandCode = "4" +ElseIf mySameKind = 6 Then + HandCode = "7" + If mySuitLessHand(5) <> mySuitLessHand(4) Then + mySuitLessHand(1) = mySuitLessHand(5) + mySuitLessHand(5) = mySuitLessHand(4) + End If +ElseIf mySameKind = 4 Then + HandCode = "6" + If mySuitLessHand(5) <> mySuitLessHand(3) Then + mySuitLessHand(1) = mySuitLessHand(5) + mySuitLessHand(2) = mySuitLessHand(5) + mySuitLessHand(4) = mySuitLessHand(3) + mySuitLessHand(5) = mySuitLessHand(3) + End If +ElseIf mySameKind = "3" Then + HandCode = "3" + If mySuitLessHand(2) = mySuitLessHand(3) Then + mySuitLessHand(2) = mySuitLessHand(5) + mySuitLessHand(5) = mySuitLessHand(3) + If mySuitLessHand(1) = mySuitLessHand(3) Then + mySuitLessHand(1) = mySuitLessHand(4) + mySuitLessHand(4) = mySuitLessHand(3) + End If + End If +ElseIf mySameKind = "2" Then + HandCode = "2" + If mySuitLessHand(1) = mySuitLessHand(2) Then + If mySuitLessHand(3) = mySuitLessHand(4) Then + mySuitLessHand(3) = mySuitLessHand(5) + mySuitLessHand(5) = mySuitLessHand(4) + End If + mySuitLessHand(1) = mySuitLessHand(3) + mySuitLessHand(3) = mySuitLessHand(2) + End If +ElseIf mySameKind = "1" Then + HandCode = "1" + If mySuitLessHand(1) = mySuitLessHand(2) Then + mySuitLessHand(1) = mySuitLessHand(3) + mySuitLessHand(3) = mySuitLessHand(2) + End If + If mySuitLessHand(2) = mySuitLessHand(3) Then + mySuitLessHand(2) = mySuitLessHand(4) + mySuitLessHand(4) = mySuitLessHand(3) + End If + If mySuitLessHand(3) = mySuitLessHand(4) Then + mySuitLessHand(3) = mySuitLessHand(5) + mySuitLessHand(5) = mySuitLessHand(4) + End If +Else + HandCode = "0" +End If + +RankCode = RankCoder(mySuitLessHand) + +PokerHand= HandCode & RankCode + +End Function + +Function RankCoder(ByVal Hand) As String + +RankCoder = "" + +For j = 5 To 1 Step -1 + RankCoder = RankCoder & Mid("XABCDEFGHIJKLM", Hand(j), 1) +Next + +End Function +Function IsFlush(ByVal Hand) As Integer + +IsFlush = 0 + +If (((Hand(5) - Hand(1)) < 13) And ((Hand(5) Mod 13) > (Hand(1) Mod 13))) Then IsFlush = True + +End Function +Function IsStraight(ByVal Hand) As Integer + +IsStraight = False + +If (Hand(1) + 1 = Hand(2)) Then + If Hand(2) + 1 = Hand(3) Then + If Hand(3) + 1 = Hand(4) Then + If (Hand(4) + 1 = Hand(5)) Or (Hand(4) = "5" And Hand(5) = "14") Then + IsStraight = True + Exit Function + End If + End If + End If +End If + +End Function +Function SameKind(ByVal Hand) + +For i = 1 To 4 + For j = i + 1 To 5 + If Hand(i) = Hand(j) Then + SameKind = SameKind + 1 + End If + Next +Next + +End Function