home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd360 / reels.amos / reels.amosSourceCode < prev    next >
AMOS Source Code  |  1991-09-02  |  41KB  |  1,243 lines
  1. Rem=============REELS By Tom and Kev=========================================            
  2. '
  3. Rem===This is a very large program So, 
  4. Rem===I have tried to number each part in order of operation as far as 
  5. Rem===possible and found it very hard, so forgive me where I failed    
  6. Rem===And I have numbered each proc to help you know if you have reached 
  7. Rem===the one you want or have passed it.  
  8. 'P02 
  9. Screen Open 0,320,200,16,Lowres
  10. Cls 0
  11. Screen Open 1,320,200,32,Lowres
  12. Hide 
  13. 'P04 
  14. Load Iff "TITLE3.IFF",1
  15. Get Bob 110,74,80 To 157,152 : Get Bob 111,180,80 To 263,152
  16. Get Bob 112,286,80 To 370,152 : Get Bob 113,388,80 To 471,152
  17. Get Bob 114,488,80 To 572,152 : Get Bob 115,74,154 To 264,184
  18. 'P06 
  19. Cls 0
  20. Bell : Paste Bob 74,80,110 : Wait 50
  21. Bell : Paste Bob 180,80,111 : Wait 50
  22. Bell : Paste Bob 286,80,112 : Wait 50
  23. Bell : Paste Bob 388,80,113 : Wait 50
  24. Bell : Paste Bob 488,80,114 : Wait 60
  25. Bell : Paste Bob 74,154,115 : Wait 90
  26. Bob Off 
  27. Screen Close 1
  28. Screen Close 0
  29. 'P10..........................List of global variables......................   
  30. Global A,B,C,D,E,F,GR,H,J,K,L,M,N,P,Q,R,S,T,TS,U,V,VW,W,X,Z,STAART,GOES,TRIES
  31. Global PAIR,SCORE,NUDGES,AGAIN,PLANE,MARIO,FROG,MERMAID,BIKE,WIZARD,SCOOP
  32. Global ZON13,ZON14,ZON15,ZON16,ZON17,ZON18,HOLD_1,HOLD_2,HOLD_3,HOLD_4,HOLD_5
  33. Global PITURE,TYME,HI_SCORE,SELECT_1,SELECT_2,SELECT_3,SELECT_4,SELECT_5
  34. Global GAMBLE,WIPE,BONUS,LIM,THIS_SCORE,LAST_SCORE,LEFT,DROOP
  35. '
  36. 'P20=========================CREATE PLAYING AREA===================    
  37. Rem--Extra high screen to mount 8 bobs high then get them as one long bob
  38. Screen Open 2,360,800,16,Lowres
  39. Flash Off : Curs Off 
  40. '
  41. '
  42. 'P25.......................Load bank to pick images from....................         
  43. Load "REELS6.abk"
  44. '
  45. 'P30.....................Paste images to make the long bob.................      
  46. Paste Bob 320,0,12 : Paste Bob 320,96,13 : Paste Bob 320,192,12
  47. Paste Bob 320,288,13 : Paste Bob 320,384,12 : Paste Bob 320,480,13
  48. Paste Bob 320,576,12 : Paste Bob 320,672,13
  49. '
  50. 'P35 ............................Then get long BOB and clear screen.........     
  51. Get Bob 1,320,0 To 352,768
  52. Cls 
  53. '
  54. 'P40...............................Paste 2 bobs for score oblongs    
  55. Paste Bob 10,20,26 : Paste Bob 64,20,27
  56. '
  57. 'P50...............................Get them in one Bob and clear screen......  
  58. Get Bob 2,10,20 To 119,35
  59. Cls 
  60. '
  61. 'P55.................Paste 2 bobs for score oblongs at top of screen.....
  62. Paste Bob 10,40,98 : Paste Bob 73,40,27
  63. '
  64. 'P60 ........................Make One Long Bob and clear screen............. 
  65. Get Bob 3,10,40 To 128,55
  66. Cls 0
  67. '
  68. 'P70...........Put The Iff Picture of Border On To The Screen and get Palette  
  69. Load Iff "OURPICT.iff",1
  70. Get Sprite Palette 
  71. '
  72. 'P75....................Add the Reel and hold borders........................      
  73. Paste Bob 45,46,14 : Paste Bob 93,46,14 : Paste Bob 141,46,14
  74. Paste Bob 189,46,14 : Paste Bob 237,46,14
  75. '
  76. 'P80 ...................Now the Top Score select oblongs.....................        
  77. Paste Bob 100,6,3 : Paste Bob 104,9,43 : Paste Bob 154,9,42
  78. Paste Bob 6,26,3 : Paste Bob 10,29,95 : Paste Bob 60,29,42
  79. Paste Bob 196,26,3 : Paste Bob 200,29,44 : Paste Bob 250,29,42
  80. '
  81. 'P85......................Put the long lines across....................      
  82. Paste Bob 4,21,7 : Paste Bob 100,21,7 : Paste Bob 196,21,7
  83. Paste Bob 220,21,7
  84. Paste Bob 4,41,7 : Paste Bob 100,41,7 : Paste Bob 196,41,7
  85. Paste Bob 220,41,7
  86. Paste Bob 4,120,7 : Paste Bob 100,120,7 : Paste Bob 196,120,7
  87. Paste Bob 220,120,7
  88. Paste Bob 4,215,7 : Paste Bob 100,215,7 : Paste Bob 196,215,7
  89. Paste Bob 220,215,7
  90. '
  91. 'P90...................Make double buffer for smooth movement............  
  92. Double Buffer 
  93. '
  94. 'P95...................Paste Game Name ....................................
  95. Paste Bob 128,28,91
  96. '
  97. 'P100=================SELECT RANDOM FIRST IMAGE NO.s and HOLD IN MEMORY====      
  98. W=Rnd(5) : If W=0 Then W=6
  99. U=Rnd(5) : If U=0 Then U=6
  100. P=Rnd(5) : If P=0 Then P=6
  101. N=Rnd(5) : If N=0 Then N=6
  102. Q=Rnd(5) : If Q=0 Then Q=6
  103. '
  104. 'P105..................Reserve all zones once and for all ...................    
  105. Reserve Zone 27
  106. '
  107. 'P110........Now set all zones except left hand scoring oblongs........  
  108. '..............because you can't set one zone on top of another
  109. '
  110. '.............set zone for HELP .................
  111. Set Zone 27,140,146 To 180,164
  112. '
  113. '............ set zones for five HOLD buttons .................... 
  114. Set Zone 1,48,105 To 79,117 : Set Zone 2,96,105 To 127,117
  115. Set Zone 3,144,105 To 175,117 : Set Zone 4,192,105 To 223,117
  116. Set Zone 5,240,105 To 271,117
  117. '
  118. '............. set zone for the start button "KLIK"
  119. Set Zone 6,278,105 To 309,117
  120. '
  121. '..................Set zones for 6 Right Side scoring oblongs.....................   
  122. Set Zone 13,209,128 To 309,139 : Set Zone 14,199,143 To 299,154
  123. Set Zone 15,191,158 To 291,169 : Set Zone 16,182,173 To 282,184
  124. Set Zone 17,173,188 To 273,199 : Set Zone 18,163,203 To 263,214
  125. '
  126. '..................Set zones for YES And NO..........................
  127. Set Zone 19,145,138 To 166,151 : Set Zone 20,148,164 To 166,177
  128. '
  129. '
  130. '========That is the screen set up for the first show======================        
  131. '
  132. Show 
  133. '......... AGAIN=False here first time so the program ignores the next part
  134. '................. until sent here from the Goto AGAIN instruction   
  135. '
  136. 'P200+P360 ..................Now AGAIN = true..........................      
  137. AGAIN:
  138. '
  139. If AGAIN=True
  140.    '...................These insts. stop program while reels are moving.....    
  141.    While Chanmv(1)
  142.    Wend 
  143.    While Chanmv(2)
  144.    Wend 
  145.    While Chanmv(3)
  146.    Wend 
  147.    While Chanmv(4)
  148.    Wend 
  149.    While Chanmv(5)
  150.    Wend 
  151.    '
  152.    'P210+P370........Test whether to paste the word HOLD on buttons.......        
  153.    '    
  154.    If HOLD_1=False : Paste Bob 48,105,11 : End If 
  155.    If HOLD_2=False : Paste Bob 96,105,11 : End If 
  156.    If HOLD_3=False : Paste Bob 144,105,11 : End If 
  157.    If HOLD_4=False : Paste Bob 192,105,11 : End If 
  158.    If HOLD_5=False : Paste Bob 240,105,11 : End If 
  159. End If 
  160. '
  161. 'P120+P220+P380======First stage carries on from here=====================       
  162. '==============Allocate channels to bobs.Make position "Y" variable Letters==  
  163. '....Using the 1st RDM image No.s and placing them at lowest positions.......        
  164. '...............Ready for the first spin of the reels.....................   
  165. '..............Use Limit bob to make bob windows.......................... 
  166. '
  167. A=-486 : B=-646 : C=-614 : D=-582 : E=-550 : F=-518
  168. Channel 1 To Bob 1
  169. If W=1 Then Bob 1,48,A,1
  170. If W=2 Then Bob 1,48,B,1
  171. If W=3 Then Bob 1,48,C,1
  172. If W=4 Then Bob 1,48,D,1
  173. If W=5 Then Bob 1,48,E,1
  174. If W=6 Then Bob 1,48,F,1
  175. Limit Bob 63,50 To 286,98
  176. '
  177. Channel 2 To Bob 2
  178. If U=1 Then Bob 2,96,A,1
  179. If U=2 Then Bob 2,96,B,1
  180. If U=3 Then Bob 2,96,C,1
  181. If U=4 Then Bob 2,96,D,1
  182. If U=5 Then Bob 2,96,E,1
  183. If U=6 Then Bob 2,96,F,1
  184. Limit Bob 63,50 To 286,98
  185. '
  186. Channel 3 To Bob 3
  187. If P=1 Then Bob 3,144,A,1
  188. If P=2 Then Bob 3,144,B,1
  189. If P=3 Then Bob 3,144,C,1
  190. If P=4 Then Bob 3,144,D,1
  191. If P=5 Then Bob 3,144,E,1
  192. If P=6 Then Bob 3,144,F,1
  193. Limit Bob 63,50 To 286,98
  194. '
  195. Channel 4 To Bob 4
  196. If N=1 Then Bob 4,192,A,1
  197. If N=2 Then Bob 4,192,B,1
  198. If N=3 Then Bob 4,192,C,1
  199. If N=4 Then Bob 4,192,D,1
  200. If N=5 Then Bob 4,192,E,1
  201. If N=6 Then Bob 4,192,F,1
  202. Limit Bob 63,50 To 286,98
  203. '
  204. Channel 5 To Bob 5
  205. If Q=1 Then Bob 5,240,A,1
  206. If Q=2 Then Bob 5,240,B,1
  207. If Q=3 Then Bob 5,240,C,1
  208. If Q=4 Then Bob 5,240,D,1
  209. If Q=5 Then Bob 5,240,E,1
  210. If Q=6 Then Bob 5,240,F,1
  211. Limit Bob 63,50 To 286,98
  212. '
  213. Bell 
  214. 'P125====From here it goes to NEW_GAME_RESET to reset the scores and counters    
  215. '............................at the start of each complete game ............       
  216. If AGAIN=False
  217.    NEW_GAME_RESET_1
  218.    '
  219.    'P150..........Paste klick On Start Button & Print Text Insts.............       
  220.    KLICKING_3
  221.    '
  222. End If 
  223. '..................NUDGES does not=True yet so we skip the next part 
  224. 'P390.............Now it does................................. 
  225. If NUDGES=True
  226.    NUDGES_11
  227. 'P460............................. 
  228.    SELECTYOURHAND_16
  229.    '...........................Now we state it's the end of a game  
  230.    If TRIES=36
  231.       '
  232.       FLAASH_2
  233.       AGAIN=False
  234.       Goto AGAIN
  235.    End If 
  236.    Wait Vbl 
  237.    Rem ======================== Prepare for next hand=======================
  238.    '
  239.    NUDGES=False : STAART=False : AGAIN=False : ESCAPE=False
  240.    SELECT_1=False : SELECT_2=False : SELECT_3=False
  241.    SELECT_4=False : SELECT_5=False
  242.    HOLD_1=False : HOLD_2=False : HOLD_3=False : HOLD_4=False : HOLD_5=False
  243.    '
  244.    GOES=0 : L=0 : PAIR=0
  245.    '...................... Paste blanks over "SCORE" buttons ...........
  246.    Paste Bob 48,105,4 : Paste Bob 96,105,4
  247.    Paste Bob 144,105,4 : Paste Bob 192,105,4 : Paste Bob 240,105,4
  248.    '
  249.    '..............Paste klick On Start Button & Print Text Insts................    
  250.    KLICKING_3
  251.    '
  252.    '.............................Paste the number of credits left.........  
  253.    Paste Bob 18,106,M
  254.    Paste Bob 26,106,S
  255.    '
  256. End If 
  257. '
  258. 'P230...........Test it is not the first go of three. AGAIN would = FALSE      
  259. If GOES<3 and AGAIN=True
  260.    STAART=False
  261.    If GOES=1 and LEFT<6 and THIS_SCORE>24
  262.       GAMBLING_6
  263.    End If 
  264.    HOLDING_8
  265.    'P240..............................................
  266.    '   '=============this part repeats until the holds have been selected   
  267.    '   '=================and the KLICK button clicked on===========   
  268.    Repeat 
  269.       '............................Reel one.................................   
  270.       If Hzone(X Mouse,Y Mouse)=1 and Mouse Key<>0
  271.          If SELECT_1=False
  272.             If HOLD_1=False
  273.                Paste Bob 48,105,10 : Rem ..............HELD button
  274.                HOLD_1=True
  275.             Else 
  276.                Paste Bob 48,105,11 : Rem ..............Hold button
  277.                HOLD_1=False
  278.             End If 
  279.          End If 
  280.          Wait 14 : Rem..............................To stop multiple kliks
  281.       End If 
  282.       '  
  283.       '.............................Reel two................................   
  284.       If Hzone(X Mouse,Y Mouse)=2 and Mouse Key<>0
  285.          If SELECT_2=False
  286.             If HOLD_2=False
  287.                Paste Bob 96,105,10
  288.                HOLD_2=True
  289.             Else 
  290.                Paste Bob 96,105,11
  291.                HOLD_2=False
  292.             End If 
  293.          End If 
  294.          Wait 14 : Rem.....to stop multiple kliks.......... 
  295.       End If 
  296.       '  
  297.       '...................................Reel three..............................   
  298.       If Hzone(X Mouse,Y Mouse)=3 and Mouse Key<>0
  299.          If SELECT_3=False
  300.             If HOLD_3=False
  301.                Paste Bob 144,105,10
  302.                HOLD_3=True
  303.             Else 
  304.                Paste Bob 144,105,11
  305.                HOLD_3=False
  306.             End If 
  307.          End If 
  308.          Wait 14 : Rem.....to stop multiple kliks.......... 
  309.       End If 
  310.       '  
  311.       '..................................Reel four...............................  
  312.       If Hzone(X Mouse,Y Mouse)=4 and Mouse Key<>0
  313.          If SELECT_4=False
  314.             If HOLD_4=False
  315.                Paste Bob 192,105,10
  316.                HOLD_4=True
  317.             Else 
  318.                Paste Bob 192,105,11
  319.                HOLD_4=False
  320.             End If 
  321.          End If 
  322.          Wait 14 : Rem.....to stop multiple kliks.......... 
  323.       End If 
  324.       ' ................................Reel five......................  
  325.       If Hzone(X Mouse,Y Mouse)=5 and Mouse Key<>0
  326.          If SELECT_5=False
  327.             If HOLD_5=False
  328.                Paste Bob 240,105,10
  329.                HOLD_5=True
  330.             Else 
  331.                Paste Bob 240,105,11
  332.                HOLD_5=False
  333.             End If 
  334.          End If 
  335.          Wait 14 : Rem.....to stop multiple kliks.......... 
  336.       End If 
  337.       '  
  338.       'P250......................................................
  339.       'Test for Klick button which will make STAART=true.& Klick button green    
  340.       If Hzone(X Mouse,Y Mouse)=6 and Mouse Key<>0
  341.          Paste Bob 278,106,17 : Rem.....................Green button   
  342.          STAART=True
  343.          Ink 0,0
  344.          S$="THIS WILL BLANK OUT ABOVE WORDS "
  345.          Text 50,238,S$
  346.          'P260............................. 
  347.          Inc GOES : TRIES_NUM_4
  348.       End If 
  349.    Until STAART=True or GOES=3
  350.    Wait Vbl 
  351.    '
  352.    'P280..........Introduce SELECT to freeze HOLDS when KLIK is pressed...  
  353.    '
  354. If HOLD_1=False : SELECT_1=False : Else SELECT_1=True : End If 
  355.    '
  356. If HOLD_2=False : SELECT_2=False : Else SELECT_2=True : End If 
  357.    '
  358. If HOLD_3=False : SELECT_3=False : Else SELECT_3=True : End If 
  359.    '
  360. If HOLD_4=False : SELECT_4=False : Else SELECT_4=True : End If 
  361.    '
  362. If HOLD_5=False : SELECT_5=False : Else SELECT_5=True : End If 
  363.    '
  364.    'P290....Test if there have been three goes, and if so, make NUDGES true..       
  365.    If GOES=3 : NUDGES=True : End If 
  366. End If 
  367. '
  368. 'P160+260+300===Picking out the next random numbers to decide how many images        
  369. '...................to move up, and hold them in memory....            
  370. '==============================REEL 1==================================
  371. '
  372. REEL_1:
  373. If HOLD_1=True Then Goto REEL_2 : 
  374. '
  375. V=Rnd(5)
  376. If V=0 Then V=6
  377. '
  378. '......................... .......Move up 12 first ......................
  379. A$=" For RD=1 To 12; Let Y=Y-1; Pause; Next RD; Pause"
  380. A$=A$+"For RD=1 To 3; Let Y=Y+4; Next RD; Pause"
  381. '
  382. '.................Then move to just 18 before the image......................  
  383. If V=1
  384.    A$=A$+"For RD=1 To 95; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  385. End If 
  386. If V=2
  387.    A$=A$+"For RD=1 To 103; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  388. End If 
  389. If V=3
  390.    A$=A$+"For RD=1 To 111; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  391. End If 
  392. If V=4
  393.    A$=A$+"For RD=1 To 71; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  394. End If 
  395. If V=5
  396.    A$=A$+"For RD=1 To 79; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  397. End If 
  398. If V=6
  399.    A$=A$+"For RD=1 To 87; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  400. End If 
  401. '  
  402. ' .................. Slow down run to 16 past selected image...........
  403. A$=A$+"For RD=1 To 14; Let Y=Y+3; Next RD; Pause"
  404. A$=A$+"For RD=1 To 4; Let Y=Y+2; Next RD; Pause; Pause; Pause; Pause; Pause; Pause"
  405. '
  406. ' ........................Now 16 back after halt ......................... 
  407. A$=A$+"For RD=1 To 4; Let Y=Y-1; Next RD; Pause"
  408. A$=A$+"For RD=1 To 12; Let Y=Y-1; Pause; Next RD; Pause"
  409. '
  410. Amal 1,A$
  411. 'Rem============================Reel 2 ===================================   
  412. REEL_2:
  413. If HOLD_2=True Then Goto REEL_3
  414. R=Rnd(5)
  415. If R=0 Then R=6
  416. RU=R+U
  417. If RU>6 Then RU=RU-6
  418. '
  419. '........................ .......Move up 12 first ...................... 
  420. B$=" For RE=1 To 12; Let Y=Y-1; Pause; Next RE; Pause"
  421. B$=B$+"For RE=1 To 3; Let Y=Y+4; Next RE; Pause"
  422. '
  423. '.................Then move to just 18 before the image......................  
  424. '
  425. If R=1
  426.    B$=B$+"For RE=1 To 95; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  427. End If 
  428. If R=2
  429.    B$=B$+"For RE=1 To 103; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  430. End If 
  431. If R=3
  432.    B$=B$+"For RE=1 To 111; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  433. End If 
  434. If R=4
  435.    B$=B$+"For RE=1 To 71; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  436. End If 
  437. If R=5
  438.    B$=B$+"For RE=1 To 79; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  439. End If 
  440. If R=6
  441.    B$=B$+"For RE=1 To 87; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  442. End If 
  443. '
  444. ' ................... Slow down run to 16 past selected image........... 
  445. B$=B$+"For RE=1 To 14; Let Y=Y+3; Next RE; Pause"
  446. B$=B$+"For RE=1 To 4; Let Y=Y+2; Next RE; Pause; Pause; Pause; Pause; Pause; Pause"
  447. '
  448. ' ......................Now 16 back after halt ......................... 
  449. '
  450. B$=B$+"For RE=1 To 4; Let Y=Y-1; Next RE; Pause"
  451. B$=B$+"For RE=1 To 12; Let Y=Y-1; Pause; Next RE; Pause"
  452. '
  453. Amal 2,B$
  454. 'Rem===============================REEL 3================================  
  455. REEL_3:
  456. If HOLD_3=True Then Goto REEL_4
  457. X=Rnd(5)
  458. If X=0 Then X=6
  459. XP=X+P
  460. If XP>6 Then XP=XP-6
  461. '
  462. '...............................Move up 12 first ......................  
  463. C$=" For RF=1 To 12; Let Y=Y-1; Pause; Next RF; Pause"
  464. C$=C$+"For RF=1 To 3; Let Y=Y+4; Next RF; Pause"
  465. '
  466. '.................Then move to just 18 before the image......................  
  467. '
  468. If X=1
  469.    C$=C$+"For RF=1 To 95; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  470. End If 
  471. If X=2
  472.    C$=C$+"For RF=1 To 103; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  473. End If 
  474. If X=3
  475.    C$=C$+"For RF=1 To 111; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  476. End If 
  477. If X=4
  478.    C$=C$+"For RF=1 To 71; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  479. End If 
  480. If X=5
  481.    C$=C$+"For RF=1 To 79; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  482. End If 
  483. If X=6
  484.    C$=C$+"For RF=1 To 87; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  485. End If 
  486. '
  487. ' .................. Slow down run to 16 past selected image...........
  488. C$=C$+"For RF=1 To 14; Let Y=Y+3; Next RF; Pause"
  489. C$=C$+"For RF=1 To 4; Let Y=Y+2; Next RF; Pause; Pause; Pause; Pause; Pause; Pause"
  490. '
  491. ' .......................Now 16 back after halt .........................
  492. C$=C$+"For RF=1 To 4; Let Y=Y-1; Next RF; Pause"
  493. C$=C$+"For RF=1 To 12; Let Y=Y-1; Pause; Next RF; Pause"
  494. '
  495. Amal 3,C$
  496. 'Rem============================Reel 4================================== 
  497. REEL_4:
  498. If HOLD_4=True Then Goto REEL_5
  499. Z=Rnd(5)
  500. If Z=0 Then Z=6
  501. ZN=Z+N
  502. If ZN>6 Then ZN=ZN-6
  503. '
  504. '...............................Move up 12 first ......................
  505. D$=" For RG=1 To 12; Let Y=Y-1; Pause; Next RG; Pause"
  506. D$=D$+"For RG=1 To 3; Let Y=Y+4; Next RG; Pause"
  507. '
  508. '.................Then move to just 18 before the image......................  
  509. '
  510. If Z=1
  511.    D$=D$+"For RG=1 To 95; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  512. End If 
  513. If Z=2
  514.    D$=D$+"For RG=1 To 103; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  515. End If 
  516. If Z=3
  517.    D$=D$+"For RG=1 To 111; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  518. End If 
  519. If Z=4
  520.    D$=D$+"For RG=1 To 119; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  521. End If 
  522. If Z=5
  523.    D$=D$+"For RG=1 To 79; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  524. End If 
  525. If Z=6
  526.    D$=D$+"For RG=1 To 87; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  527. End If 
  528. '
  529. ' .................. Slow down run to 16 past selected image...........
  530. D$=D$+"For RG=1 To 14; Let Y=Y+3; Next RG; Pause"
  531. D$=D$+"For RG=1 To 4; Let Y=Y+2; Next RG; Pause; Pause; Pause; Pause; Pause; Pause"
  532. '
  533. ' .....................Now 16 back after halt .........................
  534. D$=D$+"For RG=1 To 4; Let Y=Y-1; Next RG; Pause"
  535. D$=D$+"For RG=1 To 12; Let Y=Y-1; Pause; Next RG; Pause"
  536. '
  537. Amal 4,D$
  538. 'Rem============================REEL 5======================================   
  539. REEL_5:
  540. If HOLD_5=True Then Goto CARRYON
  541. T=Rnd(5)
  542. If T=0 Then T=6
  543. TQ=T+Q
  544. If TQ>6 Then TQ=TQ-6
  545. '
  546. '.................................Move up 12 first ......................
  547. E$=" For RH=1 To 12; Let Y=Y-1; Pause; Next RH; Pause"
  548. E$=E$+"For RH=1 To 3; Let Y=Y+4; Next RH; Pause"
  549. '
  550. '.................Then move to just 18 before the image......................  
  551. '
  552. If T=1
  553.    E$=E$+"For RH=1 To 95; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  554. End If 
  555. If T=2
  556.    E$=E$+"For RH=1 To 103; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  557. End If 
  558. If T=3
  559.    E$=E$+"For RH=1 To 111; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  560. End If 
  561. If T=4
  562.    E$=E$+"For RH=1 To 71; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  563. End If 
  564. If T=5
  565.    E$=E$+"For RH=1 To 79; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  566. End If 
  567. If T=6
  568.    E$=E$+"For RH=1 To 87; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  569. End If 
  570. '
  571. ' .................. Slow down run to 16 past selected image...........
  572. E$=E$+"For RH=1 To 14; Let Y=Y+3; Next RH; Pause"
  573. E$=E$+"For RH=1 To 4; Let Y=Y+2; Next RH; Pause; Pause; Pause; Pause; Pause; Pause"
  574. '
  575. ' ........................Now 16 back after halt ......................... 
  576. E$=E$+"For RH=1 To 4; Let Y=Y-1; Next RH; Pause"
  577. E$=E$+"For RH=1 To 12; Let Y=Y-1; Pause; Next RH; Pause"
  578. '
  579. Amal 5,E$
  580. '  
  581. 'P170+P310=============This is where we push the Klik button ...............     
  582. CARRYON:
  583. If STAART=False
  584.    Paste Bob 278,106,17 : Rem...............make Staart button green 
  585.    'P175+P320.......................Add 1 to GOES.........................  
  586.    Inc GOES
  587.    'P180+P330..........down to proc TRIES_NUM_3 to put black blocks in frames   
  588.    TRIES_NUM_4
  589. End If 
  590. 'P185+P340====Here the amals are turned on unless HOLDS are TRUE========   
  591. '===The first numbers are added to the second numbers and if they are ==     
  592. '==== more than 6 then 6 is deducted and you are left with next number   
  593. '
  594. '.......NG is variable to test whether all hold buttons are held. If they
  595. '....... are, go straight on to the "nudges" phase................ 
  596. NG=2
  597. If HOLD_1=False : NG=1 : Amal On 1 : W=W+V : If W>6 : W=W-6 : End If : End If 
  598. If HOLD_2=False : NG=1 : Amal On 2 : U=U+R : If U>6 : U=U-6 : End If : End If 
  599. If HOLD_3=False : NG=1 : Amal On 3 : P=P+X : If P>6 : P=P-6 : End If : End If 
  600. If HOLD_4=False : NG=1 : Amal On 4 : N=N+Z : If N>6 : N=N-6 : End If : End If 
  601. If HOLD_5=False : NG=1 : Amal On 5 : Q=Q+T : If Q>6 : Q=Q-6 : End If : End If 
  602. If NG=2 Then NUDGES=True : GOES=3 : TRIES_NUM_4
  603. '
  604. '
  605. 'P190+P350...................Turn AGAIN to TRUE..then go back to again......   
  606. AGAIN=True
  607. Goto AGAIN
  608. '===========================PROCS FROM HERE================================
  609. '
  610. '.......In this PROC we put the the changing parts of the program    
  611. Procedure NEW_GAME_RESET_1
  612.    '
  613.    '............Top and bottom of counter frame each side for  36 Tries...  
  614.    Paste Bob 6,100,15 : Paste Bob 6,46,40
  615.    Paste Bob 274,100,15 : Paste Bob 274,46,40
  616.    '
  617.    '...................... Paste blanks over "SCORE" buttons ...........
  618.    Paste Bob 10,105,4 : Paste Bob 48,105,4 : Paste Bob 96,105,4
  619.    Paste Bob 144,105,4 : Paste Bob 192,105,4 : Paste Bob 240,105,4
  620.    '
  621.    '...............................paste KLICK Button...................  
  622.    'Paste Bob 278,106,16 : Rem...3rd
  623.    '
  624.    '......................Number 36 in Tries left number frame  
  625.    Paste Bob 18,106,33
  626.    Paste Bob 26,106,36
  627.    '
  628.    '.....................Left bottom Score select oblongs....................   
  629.    Paste Bob 6,125,2 : Paste Bob 10,128,45 : Paste Bob 60,128,46
  630.    Paste Bob 16,140,2 : Paste Bob 19,143,47 : Paste Bob 70,143,48
  631.    Paste Bob 24,155,2 : Paste Bob 27,158,49 : Paste Bob 78,158,50
  632.    Paste Bob 32,170,2 : Paste Bob 36,173,51 : Paste Bob 86,173,52
  633.    Paste Bob 40,185,2 : Paste Bob 44,188,53 : Paste Bob 94,188,54
  634.    Paste Bob 50,200,2 : Paste Bob 54,203,55 : Paste Bob 104,203,56
  635.    '
  636.    '.........................Right bottom Score select oblongs............    
  637.    Paste Bob 205,125,2 : Paste Bob 209,128,8 : Paste Bob 259,128,9
  638.    Paste Bob 195,140,2 : Paste Bob 198,143,28 : Paste Bob 249,143,29
  639.    Paste Bob 187,155,2 : Paste Bob 191,158,57 : Paste Bob 241,158,58
  640.    Paste Bob 178,170,2 : Paste Bob 182,173,59 : Paste Bob 232,173,60
  641.    Paste Bob 169,185,2 : Paste Bob 173,188,61 : Paste Bob 223,188,62
  642.    Paste Bob 159,200,2 : Paste Bob 163,203,63 : Paste Bob 213,203,64
  643.    '
  644.    '
  645.    Limit Mouse : Rem  Releases mouse pointer
  646.    '
  647.    'P130---------Now we set the variable values for start and new games-        
  648.    '
  649.    GOES=0 : TRIES=0 : TS=0 : L=0 : NUDGES=False : STAART=False : AGAIN=False
  650.    SELECT_1=False : SELECT_2=False : SELECT_3=False : SCORE=0 : PAIR=0 : SCOOP=0
  651.    SELECT_4=False : SELECT_5=False : H=10 : J=45 : K=278 : M=33 : S=36 : LEFT=0
  652.    HOLD_1=False : HOLD_2=False : HOLD_3=False : HOLD_4=False : HOLD_5=False
  653.    ZON13=True : ZON14=True : ZON15=True : ZON16=True : ZON17=True : ZON18=True
  654.    PLANE=True : MARIO=True : FROG=True : MERMAID=True : BIKE=True : WIZARD=True
  655.    '
  656.    'P135.....................Puts Last Score on screen..................... 
  657.    LAST_SCORE=THIS_SCORE
  658.    Ink 11,4
  659.    S$=Right$("0000"+Mid$(Str$(LAST_SCORE),2),4)
  660.    Text 278,36,S$
  661.    '
  662.    'P140.....................Changes HI_SCORE if needed.................
  663.    If LAST_SCORE>HI_SCORE
  664.       HI_SCORE=LAST_SCORE
  665.       Ink 11,4
  666.       S$=Right$("0000"+Mid$(Str$(HI_SCORE),2),4)
  667.       Text 182,16,S$
  668.    End If 
  669.    '
  670.    'P145.....................Brings This_Score down to zero................ 
  671.    Ink 11,4
  672.    S$=Right$("0000"+Mid$(Str$(0),2),4)
  673.    Text 88,36,S$
  674.    THIS_SCORE=0
  675. End Proc
  676. '
  677. Procedure FLAASH_2
  678.    Curs Off 
  679.    Repeat 
  680.       Ink 11,0
  681.       S$="END OF GAME -- HOLD LEFT MOUSE"
  682.       Text 40,238,S$
  683.       Wait 40
  684.       Ink 0,0
  685.       S$="THIS WILL BLANK OUT THE ABOVE-"
  686.       Text 40,238,S$
  687.       Wait 10
  688.    Until Mouse Key<>0
  689. End Proc
  690. '
  691. Procedure KLICKING_3
  692.    Paste Bob 278,106,16
  693. Paste Bob 140,146,102
  694.    Do 
  695.       Ink 11,0
  696.       S$="CLICK ON      TO START"
  697.       Text 70,238,S$
  698.       Ink 9,14
  699.       T$="KLIK"
  700.       Text 142,238,T$
  701.       If Hzone(X Mouse,Y Mouse)=6 and Mouse Key<>0
  702.          Ink 0,0
  703.          V$="THIS WILL BLANK OUT ABOVE"
  704.          Text 70,238,V$
  705. Paste Bob 140,146,101
  706.          Pop Proc
  707.       End If 
  708. If Hzone(X Mouse,Y Mouse)=27 and Mouse Key<>0
  709. HELP_19
  710. End If 
  711.    Loop 
  712. End Proc
  713. '
  714. 'P260........................................... 
  715. 'This proc counts the "TRIES" & puts black blocks in the counter frames......    
  716. '.....................K=278...H=10 and J=45 and TS=0.L=0.................      
  717. Procedure TRIES_NUM_4
  718.    If L<3
  719.       'P270..................we go to TRINUM_5 to dec the printed number 
  720.       TRINUM_5
  721.       Inc TS : Inc TRIES
  722.       J=J+4
  723.       Paste Bob H,J,99
  724.       Paste Bob K,J,99
  725.       Inc L
  726.       '
  727.       If TS=3 : J=J+1 : End If 
  728.       If TS=6 : J=J+1 : End If 
  729.       If TS=9 : J=J+1 : End If 
  730.       If TS=12
  731.          If TRIES=24
  732.             J=45 : H=32 : K=300 : TS=0
  733.          Else 
  734.             J=45 : H=21 : K=289 : TS=0
  735.          End If 
  736.          '
  737.       End If 
  738.       '
  739.    End If 
  740. End Proc
  741. '  
  742. 'P270..............................................................
  743. Procedure TRINUM_5
  744.    'This proc blanks out the credit number of tries & then puts in new number..   
  745.    '....................M=tens,..S=units............................... 
  746.    Paste Bob 10,105,4
  747.    Dec S
  748.    If S=29 : Dec M : S=39
  749.    End If 
  750.    If M>30
  751.       Paste Bob 18,106,M
  752.    End If 
  753.    Paste Bob 26,106,S
  754. End Proc
  755. '
  756. Procedure GAMBLING_6
  757.    Wait Vbl 
  758.    Ink 6,4
  759.    S$="GAMBLE TO GET FOUR OF A KIND ?"
  760.    Text 50,238,S$
  761.    Bob 8,145,138,92
  762.    Bob 9,148,164,93
  763.    GAMBLE=10
  764.    Repeat 
  765.       If Hzone(X Mouse,Y Mouse)=19 and Mouse Key<>0
  766.       GAMBLE=True : End If 
  767.       If Hzone(X Mouse,Y Mouse)=20 and Mouse Key<>0
  768.       GAMBLE=False : End If 
  769.    Until GAMBLE=True or GAMBLE=False
  770.    Bob Off 8
  771.    Bob Off 9
  772.    If GAMBLE=True Then GAMBLING_7
  773. End Proc
  774. '
  775. Procedure GAMBLING_7
  776.    GAMBLE=10
  777.    Ink 6,4
  778.    S$="CLICK ON ARROW FOR SELECTION   "
  779.    Text 50,238,S$
  780.    '
  781.    '..................Set zones for six Arrows  
  782.    Set Zone 21,78,128 To 110,137 : Set Zone 22,88,143 To 120,152
  783.    Set Zone 23,96,158 To 128,167 : Set Zone 24,104,173 To 136,182
  784.    Set Zone 25,112,188 To 144,197 : Set Zone 26,122,203 To 154,212
  785.    If PLANE=True Then Bob 10,78,128,94
  786.    If MARIO=True Then Bob 11,88,143,94
  787.    If FROG=True Then Bob 12,96,158,94
  788.    If MERMAID=True Then Bob 13,104,173,94
  789.    If BIKE=True Then Bob 14,112,188,94
  790.    If WIZARD=True Then Bob 15,122,203,94
  791.    Repeat 
  792.       If Hzone(X Mouse,Y Mouse)=21 and Mouse Key<>0 and PLANE=True
  793.       Bob 16,78,128,94 : GAMBLE=True : LIM=1 : End If 
  794.       If Hzone(X Mouse,Y Mouse)=22 and Mouse Key<>0 and MARIO=True
  795.       Bob 17,88,143,94 : GAMBLE=True : LIM=2 : End If 
  796.       If Hzone(X Mouse,Y Mouse)=23 and Mouse Key<>0 and FROG=True
  797.       Bob 18,96,158,94 : GAMBLE=True : LIM=3 : End If 
  798.       If Hzone(X Mouse,Y Mouse)=24 and Mouse Key<>0 and MERMAID=True
  799.       Bob 19,104,173,94 : GAMBLE=True : LIM=4 : End If 
  800.       If Hzone(X Mouse,Y Mouse)=25 and Mouse Key<>0 and BIKE=True
  801.       Bob 20,112,188,94 : GAMBLE=True : LIM=5 : End If 
  802.       If Hzone(X Mouse,Y Mouse)=26 and Mouse Key<>0 and WIZARD=True
  803.       Bob 21,122,203,94 : GAMBLE=True : LIM=6 : End If 
  804.    Until GAMBLE=True
  805.    Reset Zone 21 : Reset Zone 22 : Reset Zone 23
  806.    Reset Zone 24 : Reset Zone 25 : Reset Zone 26
  807.    Bob Off 10 : Bob Off 11 : Bob Off 12 : Bob Off 13 : Bob Off 14 : Bob Off 15
  808. End Proc
  809. '
  810. 'P240......................................................
  811. Procedure HOLDING_8
  812.    Wait Vbl 
  813.    Paste Bob 278,106,16 : Rem...1st
  814.    Ink 11,0
  815.    S$="SELECT HOLDS & CLICK ON KLIK   "
  816.    Text 50,238,S$
  817. End Proc
  818. '
  819. 'P430................................................. 
  820. Procedure NUDGEHINT_9
  821.    Ink 11,0
  822.    S$="USE NUDGES OR CLICK ON SCORE TO CLEAR"
  823.    Text 10,238,S$
  824. End Proc
  825. '
  826. '
  827. 'P400............................................................. 
  828. Procedure NUDGES_11
  829.    '...........................Animate the nudge numbers up and down 3 times
  830.    Channel 10 To Bob 10
  831.    Bob 10,278,49,22 : Wait 10
  832.    Amal 10,"Anim 3,(18,10)(19,10)(20,10)(21,10)(22,10);"
  833.    Amal On 10 : Wait 150 : Amal Off 10
  834.    Bob Off 10 : Paste Bob 278,49,22
  835.    '.....................Pick out random nudge number and go to Nudge_num 
  836.    Wait Vbl 
  837.    GR=Rnd(4)
  838. 'P410............................
  839.    If GR>0 Then NUDGE_NUM_13
  840. 'P420..............................
  841.    NUDGE_12
  842. End Proc
  843. '
  844. '..........................Paste the word Nudge on five buttons..........
  845. '
  846. 'P420..................................... 
  847. Procedure NUDGE_12
  848.    If GR=0 Then Goto MISS_NUDGES
  849.    Paste Bob 48,105,25 : Paste Bob 96,105,25 : Paste Bob 144,105,25
  850.    Paste Bob 192,105,25 : Paste Bob 240,105,25
  851.    '
  852.    '........................paste the word SCORE over the start button... 
  853.    Paste Bob 278,106,23
  854.    '
  855.    Repeat 
  856.       If Hzone(X Mouse,Y Mouse)=1 and Mouse Key<>0
  857.          NUDGE_1$=" For RK=1 To 32; Let Y=Y+1; Next RK; Pause"
  858.          Amal 1,NUDGE_1$
  859.          Amal On 1 : Wait 35 : Dec GR
  860.          NUDGE_NUM_13
  861.          W=W+1 : If W>6 : W=W-6 : End If 
  862.       End If 
  863.       '
  864.       If Hzone(X Mouse,Y Mouse)=2 and Mouse Key<>0
  865.          NUDGE_2$=" For RL=1 To 32; Let Y=Y+1; Next RL; Pause"
  866.          Amal 2,NUDGE_2$
  867.          Amal On 2 : Wait 35 : Dec GR
  868.          NUDGE_NUM_13
  869.          U=U+1 : If U>6 : U=U-6 : End If 
  870.       End If 
  871.       '
  872.       If Hzone(X Mouse,Y Mouse)=3 and Mouse Key<>0
  873.          NUDGE_3$=" For RM=1 To 32; Let Y=Y+1; Next RM; Pause"
  874.          Amal 3,NUDGE_3$
  875.          Amal On 3 : Wait 35 : Dec GR
  876.          NUDGE_NUM_13
  877.          P=P+1 : If P>6 : P=P-6 : End If 
  878.       End If 
  879.       '
  880.       If Hzone(X Mouse,Y Mouse)=4 and Mouse Key<>0
  881.          NUDGE_4$=" For RN=1 To 32; Let Y=Y+1; Next RN; Pause"
  882.          Amal 4,NUDGE_4$
  883.          Amal On 4 : Wait 35 : Dec GR
  884.          NUDGE_NUM_13
  885.          N=N+1 : If N>6 : N=N-6 : End If 
  886.       End If 
  887.       '  
  888.       If Hzone(X Mouse,Y Mouse)=5 and Mouse Key<>0
  889.          NUDGE_5$=" For RO=1 To 32; Let Y=Y+1; Next RO; Pause"
  890.          Amal 5,NUDGE_5$
  891.          Amal On 5 : Wait 35 : Dec GR
  892.          NUDGE_NUM_13
  893.          Q=Q+1 : If Q>6 : Q=Q-6 : End If 
  894.       End If 
  895. 'P430......................................
  896.       NUDGEHINT_9
  897.    Until GR=0 or Hzone(X Mouse,Y Mouse)=6 and Mouse Key<>0 : Rem Start button 
  898.    Ink 0,0
  899.    S$="HOPEFULLY THIS WILL  BLANK  OUT  ABOVE"
  900.    Text 8,238,S$
  901.    MISS_NUDGES:
  902.    '........................paste the word SCORE over the start button... 
  903.    Paste Bob 278,106,23
  904.    '
  905. 'P440............................................
  906.    CLONE_IT_14
  907. 'P450..............................................
  908.    SCORE_15
  909. End Proc
  910. '
  911. 'P410................................... 
  912. Procedure NUDGE_NUM_13
  913.    If GR=1 Then Paste Bob 278,49,21
  914.    If GR=2 Then Paste Bob 278,49,20
  915.    If GR=3 Then Paste Bob 278,49,19
  916.    If GR=4 Then Paste Bob 278,49,18
  917. End Proc
  918. '
  919. '
  920. 'P440................................
  921. Procedure CLONE_IT_14
  922.    '...................................called from Proc NUDGE...........  
  923.    '............Puts identical copy of frame over to the right side ..    
  924.    Get Bob 41,6,46 To 42,101
  925.    Paste Bob 274,46,41
  926. End Proc
  927. '
  928. 'P450................................
  929. Procedure SCORE_15
  930.    '.......................called from Proc NUDGE............   
  931.    '........................Paste "SCORE" under each reel   
  932.    Paste Bob 48,106,23 : Paste Bob 96,106,23
  933.    Paste Bob 144,106,23 : Paste Bob 192,106,23 : Paste Bob 240,106,23
  934.    '
  935. End Proc
  936. 'P460....................................
  937. Procedure SELECTYOURHAND_16
  938.    '
  939.    If GAMBLE=True
  940.       TRAPPOINT_18
  941.    End If 
  942.    'P470.....Finds out what hand is displayed for right side...............   
  943.    If W=U : Inc PAIR : End If : If W=P : Inc PAIR : End If 
  944.    If W=N : Inc PAIR : End If : If W=Q : Inc PAIR : End If 
  945.    If U=P : Inc PAIR : End If : If U=N : Inc PAIR : End If 
  946.    If U=Q : Inc PAIR : End If : If P=N : Inc PAIR : End If 
  947.    If P=Q : Inc PAIR : End If : If N=Q : Inc PAIR : End If 
  948.    '
  949.    'P480..............bonus for five the same...................
  950.    If PAIR=10
  951.       BONUS=100
  952.       SCORE=SCORE+BONUS
  953.       Ink 11,4
  954.       B$=" FIVE IN A ROW BONUS POINTS "
  955.       Text 30,238,B$
  956.       S$=Right$("000"+Mid$(Str$(BONUS),2),3)
  957.       Text 260,238,S$
  958.       Wait 80
  959.       Ink 0,0
  960.       B$="THIS LINE  WILL ERASE  ABOVE"
  961.       Text 30,238,B$
  962.       S$=Right$("000"+Mid$(Str$(BONUS),2),3)
  963.       Text 260,238,S$
  964.       '
  965.    End If 
  966.    '
  967.    'P490..............................TEN SECOND TIMER WARNING..................  
  968.    TYME=120
  969.    Repeat 
  970.       If GAMBLE=True
  971.          Ink 6,4
  972.          S$=" PRESS LEFT MOUSE BUTTON NOW"
  973.          Text 30,238,S$
  974.          Goto PICKOUT
  975.       End If 
  976.       '
  977.       'If GAMBLE=False Then Goto TENSEC
  978.       'TENSEC: 
  979.       If TYME=120 Then Bell 
  980.       If TYME>96
  981.          Ink 6,4
  982.          S$="YOU HAVE 10 SECS TO SELECT YOUR CHOICE"
  983.          Text 8,238,S$
  984.       End If 
  985.       If TYME=96 Then Bell 
  986.       If TYME<96 and TYME>72
  987.          Ink 6,4
  988.          S$="YOU HAVE  8 SECS TO SELECT YOUR CHOICE"
  989.          Text 8,238,S$
  990.       End If 
  991.       If TYME=72 Then Bell 
  992.       If TYME<72 and TYME>48
  993.          Ink 6,4
  994.          S$="YOU HAVE  6 SECS TO SELECT YOUR CHOICE"
  995.          Text 8,238,S$
  996.       End If 
  997.       If TYME=48 Then Bell 
  998.       If TYME<48 and TYME>36
  999.          Ink 6,4
  1000.          S$="YOU HAVE  4 SECS TO SELECT YOUR CHOICE"
  1001.          Text 8,238,S$
  1002.       End If 
  1003.       If TYME=36 Then Bell 
  1004.       If TYME<36 and TYME>24
  1005.          Ink 6,4
  1006.          S$="YOU HAVE  3 SECS TO SELECT YOUR CHOICE"
  1007.          Text 8,238,S$
  1008.       End If 
  1009.       If TYME=24 Then Bell 
  1010.       If TYME<24 and TYME>12
  1011.          Ink 6,4
  1012.          S$="YOU HAVE  2 SECS TO SELECT YOUR CHOICE"
  1013.          Text 8,238,S$
  1014.       End If 
  1015.       If TYME=12 Then Bell 
  1016.       If TYME<12 and TYME>0
  1017.          Ink 6,4
  1018.          S$="YOU HAVE  1 SECS TO SELECT YOUR CHOICE"
  1019.          Text 8,238,S$
  1020.       End If 
  1021.       '
  1022.       PICKOUT:
  1023.       'P500.......................Bottom right hand side score oblongs.......
  1024.       ESCAPE=False : PITURE=0
  1025.       If Hzone(X Mouse,Y Mouse)=13 and Mouse Key<>0
  1026.          If PAIR>4 and ZON13=True : SCORE=SCORE+50 : ZON13=False
  1027.             ESCAPE=True : Paste Bob 209,128,67 : Paste Bob 259,128,68
  1028.       End If : End If 
  1029.       If Hzone(X Mouse,Y Mouse)=14 and Mouse Key<>0
  1030.          If PAIR=10 or PAIR=4 and ZON14=True : SCORE=SCORE+45 : ZON14=False
  1031.             ESCAPE=True : Paste Bob 198,143,69 : Paste Bob 249,143,70
  1032.       End If : End If 
  1033.       If Hzone(X Mouse,Y Mouse)=15 and Mouse Key<>0
  1034.          If PAIR=0 and ZON15=True : SCORE=SCORE+40 : ZON15=False
  1035.             ESCAPE=True : Paste Bob 191,158,83 : Paste Bob 241,158,84
  1036.       End If : End If 
  1037.       If Hzone(X Mouse,Y Mouse)=16 and Mouse Key<>0
  1038.          If PAIR>2 and ZON16=True : SCORE=SCORE+35 : ZON16=False
  1039.             ESCAPE=True : Paste Bob 182,173,85 : Paste Bob 232,173,86
  1040.       End If : End If 
  1041.       If Hzone(X Mouse,Y Mouse)=17 and Mouse Key<>0
  1042.          If ZON17=True and PAIR=2 or PAIR>3 : SCORE=SCORE+30 : ZON17=False
  1043.             ESCAPE=True : Paste Bob 173,188,87 : Paste Bob 223,188,88
  1044.       End If : End If 
  1045.       If Hzone(X Mouse,Y Mouse)=18 and Mouse Key<>0
  1046.          If PAIR<2 and ZON18=True : SCORE=SCORE+25 : ZON18=False
  1047.             ESCAPE=True : Paste Bob 163,203,89 : Paste Bob 213,203,90
  1048.       End If : End If 
  1049.       'P510......................Bottom left hand score oblongs................  
  1050.       '
  1051.       '.....SET ZONES 6 LEFT SIDE  
  1052.       Set Zone 7,10,128 To 110,139 : Set Zone 8,20,143 To 120,154
  1053.       Set Zone 9,28,158 To 128,169 : Set Zone 10,36,173 To 136,184
  1054.       Set Zone 11,44,188 To 144,199 : Set Zone 12,54,203 To 154,214
  1055.       '  
  1056.       If Hzone(X Mouse,Y Mouse)=7 and Mouse Key<>0
  1057.          If PLANE=True : PITURE=6 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*4
  1058.             PLANE=False : Paste Bob 10,128,71 : Paste Bob 60,128,72 : Inc LEFT
  1059.       End If : End If 
  1060.       If Hzone(X Mouse,Y Mouse)=8 and Mouse Key<>0
  1061.          If MARIO=True : PITURE=5 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*7
  1062.             MARIO=False : Paste Bob 20,143,73 : Paste Bob 70,143,74 : Inc LEFT
  1063.       End If : End If 
  1064.       If Hzone(X Mouse,Y Mouse)=9 and Mouse Key<>0
  1065.          If FROG=True : PITURE=4 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*5
  1066.             FROG=False : Paste Bob 28,158,75 : Paste Bob 78,158,76 : Inc LEFT
  1067.       End If : End If 
  1068.       If Hzone(X Mouse,Y Mouse)=10 and Mouse Key<>0
  1069.          If MERMAID=True : PITURE=3 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*8
  1070.             MERMAID=False : Paste Bob 36,173,77 : Paste Bob 86,173,78 : Inc LEFT
  1071.       End If : End If 
  1072.       If Hzone(X Mouse,Y Mouse)=11 and Mouse Key<>0
  1073.          If BIKE=True : PITURE=2 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*6
  1074.             BIKE=False : Paste Bob 44,188,79 : Paste Bob 94,188,80 : Inc LEFT
  1075.       End If : End If 
  1076.       If Hzone(X Mouse,Y Mouse)=12 and Mouse Key<>0
  1077.          If WIZARD=True : PITURE=1 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*9
  1078.             WIZARD=False : Paste Bob 54,203,81 : Paste Bob 104,203,82 : Inc LEFT
  1079.       End If : End If 
  1080.       '
  1081.       Reset Zone 7 : Reset Zone 8 : Reset Zone 9
  1082.       Reset Zone 10 : Reset Zone 11 : Reset Zone 12
  1083.       Dec TYME
  1084.    Until PITURE>0 or ESCAPE=True or TYME=0
  1085.    Limit Mouse 
  1086.    '
  1087.    Ink 0,0
  1088.    S$="HOPEFULLY THIS WILL  CLEAR THOSE WORDS"
  1089.    Text 8,238,S$
  1090.    'P510............................................... 
  1091.    If TYME=0
  1092.       SCORE=SCORE-50
  1093.       Ink 11,4
  1094.       S$="OUT OF TIME LOSE 50 POINTS"
  1095.       Text 56,238,S$
  1096.       Wait 150
  1097.       Ink 0,0
  1098.       B$="THIS LINE WILL ERASE ABOVE"
  1099.       Text 56,238,B$
  1100.    End If 
  1101.    'P520..............................................
  1102.    If GAMBLE=True and DROOP>3
  1103.       SCOOP=100
  1104.       GAMBLE=False
  1105.    End If 
  1106.    If GAMBLE=True and DROOP<4
  1107.       SCOOP=-25
  1108.       GAMBLE=False
  1109.    End If 
  1110.    Bob Off 16 : Bob Off 17 : Bob Off 18 : Bob Off 19 : Bob Off 20 : Bob Off 21
  1111.    'P530........................................... 
  1112.    THIS_SCORE=THIS_SCORE+SCORE+SCOOP
  1113.    SCORE=0 : SCOOP=0
  1114.    Ink 11,4
  1115.    S$=Right$("0000"+Mid$(Str$(THIS_SCORE),2),4)
  1116.    Text 88,36,S$
  1117. End Proc
  1118. '
  1119. Procedure SWOOP_17
  1120.    SCOOP=0
  1121.    If PITURE=W Then Inc SCOOP
  1122.    If PITURE=U Then Inc SCOOP
  1123.    If PITURE=P Then Inc SCOOP
  1124.    If PITURE=N Then Inc SCOOP
  1125.    If PITURE=Q Then Inc SCOOP
  1126. End Proc
  1127. '
  1128. '
  1129. 'P470......................................... 
  1130. Procedure TRAPPOINT_18
  1131.    If LIM=1 Then Limit Mouse 140,170 To 238,178
  1132.    If LIM=2 Then Limit Mouse 145,185 To 245,193
  1133.    If LIM=3 Then Limit Mouse 155,200 To 255,208
  1134.    If LIM=4 Then Limit Mouse 165,215 To 265,223
  1135.    If LIM=5 Then Limit Mouse 172,230 To 272,238
  1136.    If LIM=6 Then Limit Mouse 182,245 To 280,253
  1137. End Proc
  1138. '
  1139. Procedure HELP_19
  1140. Screen Open 2,320,260,16,Lowres
  1141. Cls 6 : Pen 2 : Paper 6 : Hide : Flash Off : Curs Off 
  1142. Print 
  1143. Print 
  1144. Print 
  1145. Print 
  1146. Print "  You have 12 sets of three spins each "
  1147. Print "making 36 spins to each game & up to"
  1148. Print "four nudges per set."
  1149. Print 
  1150. Print "On the first set try for five the same"
  1151. Print "(You always try for five the same "
  1152. Print "in ten of the twelve sets), because"
  1153. Print "five in a row gets you 100 bonus points"
  1154. Print 
  1155. Print "If you get five you click on FOUR SAME"
  1156. Print "Then you will score the 100 bonus "
  1157. Print "plus the 50 for the FOUR SAME"
  1158. Print 
  1159. Print "Of course if you cannot get the five"
  1160. Print "you make the best hand you can from "
  1161. Print "the right hand side"
  1162. Print 
  1163. Print "    WARNING WARNING WARNING WARNING"
  1164. Print 
  1165. Print "         AT THE END OF EACH SET"
  1166. Print "    YOU HAVE TEN SECONDS TO CHOOSE "
  1167. Print "        OR YOU LOSE 50 POINTS"
  1168. Print "          SO DO NOT DITHER"
  1169. Print 
  1170. Print 
  1171. Print 
  1172. Print "Press any key for next page"
  1173. Wait Key 
  1174. Cls 
  1175. Print 
  1176. Print 
  1177. Print 
  1178. Print 
  1179. Print "While we are on the subject of the "
  1180. Print "right hand side.*****Some Tips****,"
  1181. Print 
  1182. Print "You can use Five the same on"
  1183. Print "FOUR SAME-THREE AND TWO-THREE SAME"
  1184. Print "TWO PAIR."
  1185. Print "You can use Four the same on"
  1186. Print "THREE SAME-TWO PAIR"
  1187. Print 
  1188. Print "It is risky to finish the left hand "
  1189. Print "before the right hand side. "
  1190. Print 
  1191. Print "Provided you have 25 points or more "
  1192. Print "When you spin for the second set "
  1193. Print "You will have a decision to make"
  1194. Print "TO GAMBLE OR NOT TO GAMBLE?"
  1195. Print 
  1196. Print "Check the reels and see what you have"
  1197. Print "if you do not want to gamble just click"
  1198. Print "on NO and carry on"
  1199. Print 
  1200. Print "If you do want to gamble click on YES"
  1201. Print 
  1202. Print 
  1203. Print 
  1204. Print "Press any key for next page"
  1205. Wait Key 
  1206. Cls 
  1207. Print 
  1208. Print 
  1209. Print 
  1210. Print 
  1211. Print "You can only gamble on the left side "
  1212. Print "You are gambling to make four the same"
  1213. Print "If you win you get 100 points"
  1214. Print "If you lose, you lose 25 points"
  1215. Print "Plus that area cannot be used again"
  1216. Print 
  1217. Print "If you manage five the same "
  1218. Print "you will also get the 100 bonus making "
  1219. Print "200 points for that area"
  1220. Print 
  1221. Print "If you click on YES,arrows will appear"
  1222. Print "on the areas you can gamble on"
  1223. Print 
  1224. Print "Click on arrow of the area you fancy "
  1225. Print "But do it right, you cannot change "
  1226. Print 
  1227. Print "Then click on the HOLDS of the reels"
  1228. Print "Here you can change, until you roll"
  1229. Print 
  1230. Print "TIP***You have a better chance on a "
  1231. Print "Gamble if you have two the same in"
  1232. Print "the frames and the sight of another "
  1233. Print "on its way down"
  1234. Print 
  1235. Print "To clear unused nudges click on SCORE"
  1236. Print 
  1237. Print 
  1238. Print 
  1239. Print "Press any Key to go back to game"
  1240. Wait Key 
  1241. Screen Close 2
  1242. Show 
  1243. End Proc