home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / source / chap11 / puzzle.alx < prev    next >
Encoding:
Text File  |  1996-09-13  |  19.5 KB  |  643 lines
  1.  
  2. <SCRIPT LANGUAGE="VBScript">
  3. <!--
  4.  
  5. ' Each element of the array Right() is used for determining whether the Button 
  6. ' is in its right place :1 if True and :0 if False.  
  7. Dim Right(8)
  8. Dim Click
  9. ' -----------------------------------------------------------------------------------------------
  10. ' This Subroutine is used to to Initialize the Game
  11. Sub Call_To_Start_Fresh()
  12. Dim t
  13.  
  14. ' Array Right() is Initialized to False :0:
  15.     for t=1 to 8
  16.         Right(t) = 0
  17.     Next
  18.  
  19. ' Subroutine Display_Buttons_At_Random is used to Initially Start the game in random state
  20.     Call Display_Buttons_At_Random()
  21.     
  22. ' Make the Label for "You Have Won" Invisible 
  23.     LblWon.Visible = False
  24.     LblClicks.Visible = False
  25.     LblClicks.Caption = ""
  26.     Click = 0
  27. ' To check whether the game has been won by randomize!
  28.     Call Is_Over()
  29.  
  30. End Sub
  31. ' -----------------------------------------------------------------------------------------------
  32.  
  33.  
  34. ' -----------------------------------------------------------------------------------------------
  35. ' Subroutine Display_Buttons_At_Random is used to Initially Start the game in random state
  36. Sub Display_Buttons_At_Random()
  37.  
  38. Dim Number(8)
  39. Dim Random_Number
  40. Dim Button
  41. Dim j
  42. Dim Re_Generate
  43.  
  44. Button=1
  45. j=1
  46. Re_Generate=True
  47. while Button <= 8
  48.     While Re_Generate = True
  49.         Re_Generate = False
  50.         Randomize
  51.         Random_Number= Int((8 * Rnd)+1)
  52.         while Re_Generate = False And j <= Button-1
  53.             if Number(j) = Random_Number then
  54.                 Re_Generate = True
  55.             End if
  56.             j = j + 1
  57.         Wend
  58.         j=1
  59.         if Re_Generate = False then
  60.             Number(Button) = Random_Number
  61.             Button = Button + 1
  62.         End If
  63.     Wend
  64.     Re_Generate = True    
  65. Wend
  66.  
  67. ' Make all buttons visible accept the last
  68. CB1.Visible = True    
  69. CB2.Visible = True    
  70. CB3.Visible = True    
  71. CB4.Visible = True    
  72. CB5.Visible = True    
  73. CB6.Visible = True    
  74. CB7.Visible = True    
  75. CB8.Visible = True    
  76. CB9.Visible = False
  77.  
  78. ' Assign the generated random numbers to all buttons    
  79. CB1.Caption = CStr(Number(1))    
  80. CB2.Caption = CStr(Number(2))    
  81. CB3.Caption = CStr(Number(3))    
  82. CB4.Caption = CStr(Number(4))    
  83. CB5.Caption = CStr(Number(5))    
  84. CB6.Caption = CStr(Number(6))    
  85. CB7.Caption = CStr(Number(7))    
  86. CB8.Caption = CStr(Number(8))    
  87. end sub
  88. ' -----------------------------------------------------------------------------------------------
  89.  
  90.  
  91. ' -----------------------------------------------------------------------------------------------
  92. ' Subroutine called when the Layout is loaded
  93. Sub Layout1_OnLoad()
  94. Call Call_To_Start_Fresh()
  95. End Sub
  96. ' -----------------------------------------------------------------------------------------------
  97.  
  98.  
  99. ' -----------------------------------------------------------------------------------------------
  100. ' Subroutine to check whether the puzzle is solved
  101. Sub Is_Over()
  102. Dim Total
  103. Dim Num
  104. If CB1.Caption = "1" then
  105.     Right(1) = 1
  106. End If
  107. If CB2.Caption = "2" then
  108.     Right(2) = 1
  109. End If
  110. If CB3.Caption = "3" then
  111.     Right(3) = 1
  112. End If
  113. If CB4.Caption = "4" then
  114.     Right(4) = 1
  115. End If
  116. If CB5.Caption = "5" then
  117.     Right(5) = 1
  118. End If
  119. If CB6.Caption = "6" then
  120.     Right(6) = 1
  121. End If
  122. If CB7.Caption = "7" then
  123.     Right(7) = 1
  124. End If
  125. If CB8.Caption = "8" then
  126.     Right(8) = 1
  127. End If
  128.  
  129. for i=1 to 8
  130.     Total = Total + Right(i)
  131. Next
  132. If Total = 8 then
  133.     LblWon.Visible = True
  134.     btnRestart.Caption = "Play Again  ?"
  135.     If Click <> 0 then
  136.         LblClicks.Visible = True
  137.         LblClicks.Caption = "          in " & CStr(Click) & " clicks"
  138.     End If
  139. End If
  140. End Sub
  141. ' -----------------------------------------------------------------------------------------------
  142.  
  143.  
  144. ' -----------------------------------------------------------------------------------------------
  145. ' Subroutine to be called when Button for "Re-start" or "Play Again" is Pressed
  146. Sub btnRestart_MouseUp(Button, Shift, X, Y)
  147. Call Call_To_Start_Fresh()
  148. LblWon.Visible = False
  149. btnRestart.Caption = "Restart"
  150. End Sub
  151. ' -----------------------------------------------------------------------------------------------
  152.  
  153.  
  154. ' -----------------------------------------------------------------------------------------------
  155.  
  156. Sub CB1_MouseUp(Button, ShIft, X, Y)
  157. If CB1.Caption = "1" then
  158.     Right(1) = 1
  159. End If
  160. If CB1.Visible = True then
  161.     If CB2.Visible = False then
  162.         CB2.Visible = True
  163.         CB2.Caption = CB1.Caption
  164.         CB1.Caption = ""
  165.         CB1.Visible = False
  166.         Click = Click + 1
  167.     End If
  168.     If CB4.Visible = False then
  169.         CB4.Visible = True
  170.         CB4.Caption = CB1.Caption
  171.         CB1.Caption = ""
  172.         CB1.Visible = False
  173.         Click = Click + 1
  174.     End If 
  175. End If
  176. If CB1.Caption = "1" then
  177.     Right(1) = 1
  178. else
  179.     Right(1) = 0
  180. End If
  181. Call Is_Over()
  182. End Sub
  183.  
  184. Sub CB2_MouseUp(Button, Shift, X, Y)
  185. If CB2.Caption = "2" then
  186.         Right(2) = 1
  187. End If
  188. If CB2.Visible = True then
  189.     If CB1.Visible = False then
  190.         CB1.Visible = True
  191.         CB1.Caption = CB2.Caption
  192.         CB2.Caption = ""
  193.         CB2.Visible = False
  194.         Click = Click + 1
  195.     End If
  196.     If CB3.Visible = False then
  197.         CB3.Visible = True
  198.         CB3.Caption = CB2.Caption
  199.         CB2.Caption = ""
  200.         CB2.Visible = False
  201.         Click = Click + 1
  202.     End If
  203.     If CB5.Visible = False then
  204.         CB5.Visible = True
  205.         CB5.Caption = CB2.Caption
  206.         CB2.Caption = ""
  207.         CB2.Visible = False
  208.         Click = Click + 1
  209.     End If 
  210. End If
  211. If CB2.Caption = "2" then
  212.     Right(2) = 1
  213. else
  214.     Right(2) = 0
  215. End If
  216. Call Is_Over()
  217. End Sub
  218.  
  219. Sub CB3_MouseUp(Button, ShIft, X, Y)
  220. If CB3.Caption = "3" then
  221.     Right(3) = 1 
  222. End If
  223. If CB3.Visible = True then
  224.     If CB2.Visible = False then
  225.         CB2.Visible = True
  226.         CB2.Caption = CB3.Caption
  227.         CB3.Caption = ""
  228.         CB3.Visible = False
  229.         Click = Click + 1
  230.     End If
  231.     If CB6.Visible = False then
  232.         CB6.Visible = True
  233.         CB6.Caption = CB3.Caption
  234.         CB3.Caption = ""
  235.         CB3.Visible = False
  236.         Click = Click + 1
  237.     End If 
  238. End If
  239. If CB3.Caption = "3" then
  240.     Right(3) = 1
  241. else
  242.     Right(3) = 0
  243. End If
  244. Call Is_Over()
  245. End Sub
  246.  
  247.  
  248. Sub CB4_MouseUp(Button, ShIft, X, Y)
  249. If CB4.Caption = "4" then
  250.     Right(4) = 1 
  251. End If
  252. If CB4.Visible = True then
  253.     If CB1.Visible = False then
  254.         CB1.Visible = True
  255.         CB1.Caption = CB4.Caption
  256.         CB4.Caption = ""
  257.         CB4.Visible = False
  258.         Click = Click + 1    
  259.     End If
  260.     If CB5.Visible = False then
  261.         CB5.Visible = True
  262.         CB5.Caption = CB4.Caption
  263.         CB4.Caption = ""
  264.         CB4.Visible = False
  265.         Click = Click + 1
  266.     End If
  267.     If CB7.Visible = False then
  268.         CB7.Visible = True
  269.         CB7.Caption = CB4.Caption
  270.         CB4.Caption = ""
  271.         CB4.Visible = False
  272.         Click = Click + 1
  273.     End If 
  274. End If
  275. If CB4.Caption = "4" then
  276.     Right(4) = 1
  277. else
  278.     Right(4) = 0
  279. End If    
  280. Call Is_Over()
  281. End Sub
  282.  
  283.  
  284. Sub CB5_MouseUp(Button, ShIft, X, Y)
  285. If CB5.Caption = "5" then
  286.     Right(5) = 1  
  287. End If
  288. If CB5.Visible = True then
  289.     If CB2.Visible = False then
  290.         CB2.Visible = True
  291.         CB2.Caption = CB5.Caption
  292.         CB5.Caption = ""
  293.         CB5.Visible = False
  294.         Click = Click + 1
  295.     End If
  296.     If CB4.Visible = False then
  297.         CB4.Visible = True
  298.         CB4.Caption = CB5.Caption
  299.         CB5.Caption = ""
  300.         CB5.Visible = False
  301.         Click = Click + 1
  302.     End If
  303.     If CB6.Visible = False then
  304.         CB6.Visible = True
  305.         CB6.Caption = CB5.Caption
  306.         CB5.Caption = ""
  307.         CB5.Visible = False
  308.         Click = Click + 1
  309.     End If
  310.     If CB8.Visible = False then
  311.         CB8.Visible = True
  312.         CB8.Caption = CB5.Caption
  313.         CB5.Caption = ""
  314.         CB5.Visible = False
  315.         Click = Click + 1
  316.     End If 
  317. End If
  318. If CB5.Caption = "5" then
  319.     Right(5) = 1
  320. else
  321.     Right(5) = 0
  322. End If
  323. Call Is_Over()
  324. End Sub
  325.  
  326.  
  327. Sub CB6_MouseUp(Button, Shift, X, Y)
  328. If CB6.Caption = "6" then
  329.     Right(6) = 1
  330. End If
  331. If CB6.Visible = True then
  332.     If CB3.Visible = False then
  333.         CB3.Visible = True
  334.         CB3.Caption = CB6.Caption
  335.         CB6.Caption = ""
  336.         CB6.Visible = False
  337.         Click = Click + 1
  338.     End If
  339.     If CB5.Visible = False then
  340.         CB5.Visible = True
  341.         CB5.Caption = CB6.Caption
  342.         CB6.Caption = ""
  343.         CB6.Visible = False
  344.         Click = Click + 1
  345.     End If
  346.     If CB9.Visible = False then
  347.         CB9.Visible = True
  348.         CB9.Caption = CB6.Caption
  349.         CB6.Caption = ""
  350.         CB6.Visible = False
  351.         Click = Click + 1
  352.     End If 
  353. End If
  354. If CB6.Caption = "6" then
  355.     Right(6) = 1
  356. else
  357.     Right(6) = 0
  358. End If
  359. Call Is_Over()
  360. End Sub
  361.  
  362.  
  363.  
  364. Sub CB7_MouseUp(Button, ShIft, X, Y)
  365. If CB7.Caption = "7" then
  366.     Right(7) = 1 
  367. End If
  368. If CB7.Visible = True then
  369.     If CB4.Visible = False then
  370.         CB4.Visible = True
  371.         CB4.Caption = CB7.Caption
  372.         CB7.Caption = ""
  373.         CB7.Visible = False
  374.         Click = Click + 1
  375.     End If
  376.     If CB8.Visible = False then
  377.         CB8.Visible = True
  378.         CB8.Caption = CB7.Caption
  379.         CB7.Caption = ""
  380.         CB7.Visible = False
  381.         Click = Click + 1
  382.     End If
  383. End If
  384. If CB7.Caption = "7" then
  385.     Right(7) = 1
  386. else
  387.     Right(7) = 0
  388. End If
  389. Call Is_Over()
  390. End Sub
  391.  
  392.  
  393. Sub CB8_MouseUp(Button, ShIft, X, Y)
  394. If CB8.Caption = "8" then
  395.     Right(8) = 1  
  396. End If
  397. If CB8.Visible = True then
  398.     If CB5.Visible = False then
  399.         CB5.Visible = True
  400.         CB5.Caption = CB8.Caption
  401.         CB8.Caption = ""
  402.         CB8.Visible = False
  403.         Click = Click + 1
  404.     End If
  405.     If CB7.Visible = False then
  406.         CB7.Visible = True
  407.         CB7.Caption = CB8.Caption
  408.         CB8.Caption = ""
  409.         CB8.Visible = False
  410.         Click = Click + 1
  411.     End If
  412.     If CB9.Visible = False then
  413.         CB9.Visible = True
  414.         CB9.Caption = CB8.Caption
  415.         CB8.Caption = ""
  416.         CB8.Visible = False
  417.         Click = Click + 1
  418.     End If
  419. End If
  420. If CB8.Caption = "8" then
  421.     Right(8) = 1
  422. else
  423.     Right(8) = 0
  424. End If
  425. Call Is_Over()
  426. End Sub
  427.  
  428. Sub CB9_MouseUp(Button, ShIft, X, Y)
  429. If CB9.Visible = True then
  430.     If CB6.Visible = False then
  431.         CB6.Visible = True
  432.         CB6.Caption = CB9.Caption
  433.         CB9.Visible = False
  434.         Click = Click + 1
  435.     End If
  436.     If CB8.Visible = False then
  437.         CB8.Visible = True
  438.         CB8.Caption = CB9.Caption
  439.         CB9.Visible = False
  440.         Click = Click + 1
  441.     End If
  442. End If
  443. Call Is_Over()
  444. End Sub
  445.  
  446.  
  447.  
  448.  
  449. -->
  450. </SCRIPT>
  451. <DIV ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:295pt;HEIGHT:288pt;">
  452.     <OBJECT ID="Image1"
  453.      CLASSID="CLSID:4C599241-6926-101B-9992-00000B65C6F9"
  454.      DATA="DATA:application/x-oleobject;BASE64,QZJZTCZpGxCZkgAAC2XG+QACEAAAFgAA//8AAJoWAAA/IAAAsIFn2krCzxG1
  455. hACqAKcdGmx0AACSCAAAR0lGODlhZABkAPcAAPDw8P///6zO/9/f3//////w
  456. 31dXV1dXV1dXv6v/c5ZbV1ebWP9zj52Pnf9t06uZW/9uZoKvullX07v/iFdX
  457. /7pZV+mro2j/bldXV1dXV1dXr7pZV6ho+6vVZcxYZoL7q9tlhmr/iIZq/6uz
  458. Wf9xX1erV1dXX+H/2JNXV1f/2f//V///2Jvh/9irV1dXV1dXV1/h/9hX///Y
  459. WldXV//H/9hX///YWFdXV1lXV1fN6f//WFdXV9Tp//9X///YWFed/1lXnf9Z
  460. V9FZ/VeoV19XXVf/l1lXXlf2XOGs/1/eW1dXV1fr//Zc/2b/XX1p/1z/rNaT
  461. WVddV1dXdXdjWp3//9hX///YWldXV//H/9j/XFlX233/XFdX/1xZV/9cxayD
  462. qv9cfVmR/6Sm9lxXV5tYWVf2XNWs7/tbV4FXV1dXV5H/4ay8Xu9jkf+d/1lX
  463. Y1h1rf9a3ltjWv2s1pP/rNaTWVddV53/y71XV1dX0Fn/XFlX/1xZV/xX/6yD
  464. qv9cfVmd/6Sm9lxXV5tYWVf2XP+s7/vDWfxXV1dXV2aC/71ZV1dXWVdZV/9c
  465. V1f/rMZ1/1z/XJtY9lz/qf+9WVdjrYha/25XV1dXV1dXV95X/71ZV41az63e
  466. WP+OV1dXV1dXV1feV/9c/71XV1dX/1zWk42t9GFXV8u9y73/bfe8WVdfYVlX
  467. /1z/YFdXy71XV7Ot5Z7+bldXh67Wk1dX462Ee7Zuy71ZV1dX/2DPrf+Y/m7L
  468. vVlXy71ZV5usWVfLvdaT/63/2aTT/27/bf+9WVdXV1lXWVf/vVlX/21XV/9j
  469. V1dXV/+tnYD+bv+9WVfLvVlX/62Mh/5u/71ZV9aTy71ZV1dXWVdXV/+t/4bL
  470. vVlX/71ZV8u9WVf/reWe/m5XV1dXV1f/YV5Xy71ZV+qeV65lZv9uV1dXV1dX
  471. /2FeV/9gV1dZV8u9WVeWnHOu2Fr/blhXV1dXV1dX/2FeV8u9WVeunv5u3Vqh
  472. rq9k5mdYV1dXV1dXV/+1/1eOj/9pzpShs8u9V1dYVyH5BAEAAAAALAAAAABk
  473. AGQAQAj/AAcIHACg4MABBBAmHEgAwMGHDx0KlAixosWBFCsWXHgxI4GPDC9a
  474. FPCRY0aBH0+KnLiSJMaHHGGqJHgQ5EqWNzGSbIgwp8+OFQkEsAmypM2fECnG
  475. PDjTIYChSFemlBoAwM6lPWVGjfgTq8WTPCGaNFqyJsqwN71uXbvVoU0BBDMC
  476. ICo0IQG4URNulKiWrV2BeO8exIv0qFe3M33WvZmYrYCdCsVO9dv4JVPIbIEy
  477. pcnZqgCVTnFmzin07FfGnEWLbjg5aGimlUeDRomzr8i5tkXi5St39NGouBf2
  478. jZ31J/HTUkcrx506KdOqzrfm9nlc88TfzYOi3Vz9qtrWwAuL/60Jd7tGxWhn
  479. Bw0AuCxS3FA7gkdY/b3y6coJBhjq0f3Dz3MN1ZBE9RWGHU6N8dXQZ8IRdl1C
  480. n7GnUEwF5lQhSdXFhJVggLlVEnwuhSTbh+FdxNFfQTloHIf5RRTfZhZmtt2H
  481. n92mWIw1sZidcTs+yGBrxFW4FovgHaWidaqlZV6LtHGl5JFt4ZijSPjxiFxq
  482. vRUmoXRVihiXbExqNxdFjWG2FliW2ZgkjD3KF9ZxQv6HX41hxmkWUEK6RBGD
  483. LzoZ5ll8DWYec7B9huFcde5kJ3F0DgBlZ4SVd99WAgxFWJf00fTadRKR5OBd
  484. S55ZoosrETjgV4/19VF8VrWml6aY5v93mIm6mcWffIMRmqaUTUq1UIYuAVlU
  485. QYh+qetGHXloZV71bXrdftCVhGFcKh1oYm4EDmntmix5eKmC4E7o2amKPfpn
  486. rIP5SmJt9+nIpqMGRbfatj4eJ2BxTNlUnUdbxnkcT0ZR6W6pE6l3U6XvyvsT
  487. XCFqZhSZCQd15bthCadmdI/+ZRVDAcBVrKyzitTnfBIb+NFVigU55XkwCbdl
  488. TXaa2GhNQ3UcL20f/0ntWR2zSyXNUMW8X34xCyrXY0g1XCChoe5q2aZNyxfb
  489. cQ1LVzXEE7e4tM5Zcw0cvbhWmWXEXqeVrcJyxnqquWWbDKq9bEPkaVM6oaRU
  490. 1G37VGOGKWH/WrR9gCuU2EwkX+kRy07LRhzYFVVtYFYHokuabeRGlpZvTW8k
  491. uYxuJeVx2Tlr9CZ3Xv99Jmug3ouR6ZMnZZ5/YCZoJsFIrglgpgQRxa+GJVn6
  492. 88Krusv6jgRadXfVhZ+HG5knh55UfH0mxxDWz9nVH1ZQ6+08aRISi7dY8LkG
  493. aL4dxV273oyPKtandxVQOpuXSnan+Cbq6txUDfl+8XK/e4l2XnWR1LrydiPS
  494. tCliJ8Pex9D0MbFpK0rZ4Z1RMqaUjMyugI/jlnOMV5yjjIkhdzHeU+ijoeCc
  495. jIADtJvyOjQZDjlPOGGpyncmiLgYHe4pm1tdwEAVkUEByFmiuRlg/9gCmg+K
  496. ijP4SyDAcCe4GsbFfE7sX9GIBUKYbUxz+Nke17ZTGYMFR4XBM6FTKic90DkK
  497. ihZRVYD4s6f0ne9PlXGj6w5kRL98DyNq64qF0HJH1GhOiIjrkuMG4h04vYU1
  498. MIti+b6js6KAB01awhyUhtceEEbtVvtrFXW0g0YEjeaHguMP7BbGOUJSkjS3
  499. OwvjXgU+O4qok4pMD5FwA8skaVFJKOLfHDvGR0yqL5FWWxkcp9fEyyVNctiR
  500. 4wElQxYozsyAVpqWmnLYq0D1ypIMghMgfWU52FBTO9dEiHdoKEJFRmU3vNxQ
  501. S95Gmjj+5pRSgxe9timZBCnplHkqEr4IFm+qwSGqNATMm7OUuRnBPDOgLTtL
  502. owrEuMaMUnFtsRhCxwNPLXYxZ9Tzi87q08cIflOD5ySippa5QsGdJKOyCicE
  503. NzqwrH10otKRTvRoB1OYfvF/E9oZBnXpsG6us5M4nBktjUlAzfHyJaDpKAjh
  504. EhAAOw==
  505. "
  506.      STYLE="TOP:0pt;LEFT:0pt;WIDTH:164pt;HEIGHT:234pt;ZINDEX:0;">
  507.     </OBJECT>
  508.     <OBJECT ID="CB3"
  509.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:47pt;LEFT:109pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:2;ZINDEX:1;">
  510.         <PARAM NAME="ForeColor" VALUE="16777215">
  511.         <PARAM NAME="BackColor" VALUE="4210816">
  512.         <PARAM NAME="Size" VALUE="1411;1411">
  513.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  514.         <PARAM NAME="FontHeight" VALUE="280">
  515.         <PARAM NAME="FontCharSet" VALUE="0">
  516.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  517.         <PARAM NAME="ParagraphAlign" VALUE="3">
  518.     </OBJECT>
  519.     <OBJECT ID="CB5"
  520.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:94pt;LEFT:63pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:4;ZINDEX:2;">
  521.         <PARAM NAME="ForeColor" VALUE="16777215">
  522.         <PARAM NAME="BackColor" VALUE="4210816">
  523.         <PARAM NAME="Size" VALUE="1411;1411">
  524.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  525.         <PARAM NAME="FontHeight" VALUE="280">
  526.         <PARAM NAME="FontCharSet" VALUE="0">
  527.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  528.         <PARAM NAME="ParagraphAlign" VALUE="3">
  529.     </OBJECT>
  530.     <OBJECT ID="CB6"
  531.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:94pt;LEFT:109pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:5;ZINDEX:3;">
  532.         <PARAM NAME="ForeColor" VALUE="16777215">
  533.         <PARAM NAME="BackColor" VALUE="4210816">
  534.         <PARAM NAME="Size" VALUE="1411;1411">
  535.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  536.         <PARAM NAME="FontHeight" VALUE="280">
  537.         <PARAM NAME="FontCharSet" VALUE="0">
  538.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  539.         <PARAM NAME="ParagraphAlign" VALUE="3">
  540.     </OBJECT>
  541.     <OBJECT ID="CB7"
  542.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:141pt;LEFT:16pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:6;ZINDEX:4;">
  543.         <PARAM NAME="ForeColor" VALUE="16777215">
  544.         <PARAM NAME="BackColor" VALUE="4210816">
  545.         <PARAM NAME="Size" VALUE="1411;1411">
  546.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  547.         <PARAM NAME="FontHeight" VALUE="280">
  548.         <PARAM NAME="FontCharSet" VALUE="0">
  549.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  550.         <PARAM NAME="ParagraphAlign" VALUE="3">
  551.     </OBJECT>
  552.     <OBJECT ID="CB2"
  553.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:47pt;LEFT:63pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:1;ZINDEX:5;">
  554.         <PARAM NAME="ForeColor" VALUE="16777215">
  555.         <PARAM NAME="BackColor" VALUE="4210816">
  556.         <PARAM NAME="Size" VALUE="1411;1411">
  557.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  558.         <PARAM NAME="FontHeight" VALUE="280">
  559.         <PARAM NAME="FontCharSet" VALUE="0">
  560.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  561.         <PARAM NAME="ParagraphAlign" VALUE="3">
  562.     </OBJECT>
  563.     <OBJECT ID="CB8"
  564.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:141pt;LEFT:63pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:7;ZINDEX:6;">
  565.         <PARAM NAME="ForeColor" VALUE="16777215">
  566.         <PARAM NAME="BackColor" VALUE="4210816">
  567.         <PARAM NAME="Size" VALUE="1411;1411">
  568.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  569.         <PARAM NAME="FontHeight" VALUE="280">
  570.         <PARAM NAME="FontCharSet" VALUE="0">
  571.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  572.         <PARAM NAME="ParagraphAlign" VALUE="3">
  573.     </OBJECT>
  574.     <OBJECT ID="CB4"
  575.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:94pt;LEFT:16pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:3;ZINDEX:7;">
  576.         <PARAM NAME="ForeColor" VALUE="16777215">
  577.         <PARAM NAME="BackColor" VALUE="4210816">
  578.         <PARAM NAME="Size" VALUE="1411;1411">
  579.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  580.         <PARAM NAME="FontHeight" VALUE="280">
  581.         <PARAM NAME="FontCharSet" VALUE="0">
  582.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  583.         <PARAM NAME="ParagraphAlign" VALUE="3">
  584.     </OBJECT>
  585.     <OBJECT ID="CB9"
  586.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:141pt;LEFT:109pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:8;DISPLAY:NONE;ZINDEX:8;">
  587.         <PARAM NAME="ForeColor" VALUE="16777215">
  588.         <PARAM NAME="BackColor" VALUE="4210816">
  589.         <PARAM NAME="Size" VALUE="1411;1411">
  590.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  591.         <PARAM NAME="FontHeight" VALUE="280">
  592.         <PARAM NAME="FontCharSet" VALUE="0">
  593.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  594.         <PARAM NAME="ParagraphAlign" VALUE="3">
  595.     </OBJECT>
  596.     <OBJECT ID="CB1"
  597.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:47pt;LEFT:16pt;WIDTH:40pt;HEIGHT:40pt;TABINDEX:0;ZINDEX:9;">
  598.         <PARAM NAME="ForeColor" VALUE="16777215">
  599.         <PARAM NAME="BackColor" VALUE="4210816">
  600.         <PARAM NAME="Size" VALUE="1411;1411">
  601.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  602.         <PARAM NAME="FontHeight" VALUE="280">
  603.         <PARAM NAME="FontCharSet" VALUE="0">
  604.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  605.         <PARAM NAME="ParagraphAlign" VALUE="3">
  606.     </OBJECT>
  607.     <OBJECT ID="LblWon"
  608.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:8pt;LEFT:24pt;WIDTH:117pt;HEIGHT:16pt;DISPLAY:NONE;ZINDEX:10;">
  609.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  610.         <PARAM NAME="Caption" VALUE="  YOU HAVE WON">
  611.         <PARAM NAME="Size" VALUE="4128;564">
  612.         <PARAM NAME="FontEffects" VALUE="1073741825">
  613.         <PARAM NAME="FontHeight" VALUE="260">
  614.         <PARAM NAME="FontCharSet" VALUE="0">
  615.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  616.         <PARAM NAME="FontWeight" VALUE="700">
  617.     </OBJECT>
  618.     <OBJECT ID="btnRestart"
  619.      CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:188pt;LEFT:16pt;WIDTH:133pt;HEIGHT:24pt;TABINDEX:10;ZINDEX:11;">
  620.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  621.         <PARAM NAME="Caption" VALUE="Restart">
  622.         <PARAM NAME="Size" VALUE="4692;847">
  623.         <PARAM NAME="MousePointer" VALUE="2">
  624.         <PARAM NAME="TakeFocusOnClick" VALUE="0">
  625.         <PARAM NAME="FontName" VALUE="Arial">
  626.         <PARAM NAME="FontHeight" VALUE="220">
  627.         <PARAM NAME="FontCharSet" VALUE="0">
  628.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  629.         <PARAM NAME="ParagraphAlign" VALUE="3">
  630.         <PARAM NAME="FontWeight" VALUE="0">
  631.     </OBJECT>
  632.     <OBJECT ID="LblClicks"
  633.      CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:24pt;LEFT:23pt;WIDTH:117pt;HEIGHT:16pt;ZINDEX:12;">
  634.         <PARAM NAME="VariousPropertyBits" VALUE="8388627">
  635.         <PARAM NAME="Size" VALUE="4128;564">
  636.         <PARAM NAME="FontName" VALUE="Times New Roman">
  637.         <PARAM NAME="FontEffects" VALUE="1073741825">
  638.         <PARAM NAME="FontHeight" VALUE="240">
  639.         <PARAM NAME="FontCharSet" VALUE="0">
  640.         <PARAM NAME="FontPitchAndFamily" VALUE="2">
  641.         <PARAM NAME="FontWeight" VALUE="700">
  642.     </OBJECT>
  643. </DIV>