home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 476-500 / apd483 / hilow.amos / hilow.amosSourceCode < prev    next >
AMOS Source Code  |  1992-02-08  |  6KB  |  242 lines
  1. '************************************************************
  2. '* Programmed By Ray (Zimmer) Watson of Gemini Software.    *
  3. '* With the help of DPaint IV and the stunning new Amos Pro.*
  4. '* Don't Panic it will also work on Amos 1.3 .              *
  5. '*                                                          *
  6. '* I hope this is of some use to new Amos programmers .     *  
  7. '* Please use and abuse this listing as you feel fit.       *
  8. '*                                                          *
  9. '*P.S. If anyone writing a demo would like to greet Gemini  *
  10. '* we will not be offended.                                 *
  11. '*                                                          *  
  12. '*                    HAPPY COMPUTING                       *  
  13. '*                          Ray                             *    
  14. '************************************************************
  15. '
  16. '*********** Set Up The Screens ***********  
  17. Screen Open 1,640,70,8,Hires : Cls 0
  18. Screen Display 1,140,120,,
  19. Screen Hide 1
  20. Screen Open 0,320,256,16,Lowres
  21. Cls 0 : 
  22. '********** Variables ***********
  23. Dim CARDS(52)
  24. Dim MESAGE$(14)
  25. SP$=Space$(29)
  26. CASH=5
  27. BANK=500
  28. For A=1 To 14
  29.    Read MESAGE$(A)
  30. Next A
  31. Unpack 2 To 0
  32. Get Palette 0
  33. '*********** Set Things Up Never to Return **********
  34. Screen 0
  35. Paper 0 : Pen 3
  36. Gosub BANK1
  37. Limit Mouse 128,42 To 448,298
  38.  
  39. Reserve Zone(6)
  40. Set Zone 1,112,220 To 203,235
  41. Set Zone 2,140,171 To 180,187
  42. Set Zone 3,101,152 To 141,168
  43. Set Zone 4,179,152 To 219,168
  44. Set Zone 5,306,101 To 316,116
  45. Set Zone 6,306,117 To 316,130
  46. MZ=Mouse Zone
  47. MC=Mouse Click
  48. '*********** Start The Game ********** 
  49. MAINLOOP:
  50. Gosub BANK1
  51. If BANK<=0 Then WL=13 : Gosub WINLOOSE
  52. If BANK=>999 Then WL=14 : Gosub WINLOOSE
  53. Bob Off 
  54. Gosub MESAGE1 : Print MESAGE$(6)
  55. Hide 
  56. Wait 50
  57. Show 
  58. CARD=0 : F=0
  59. Gosub MESAGE1 : Print MESAGE$(3)
  60. For A=1 To 52
  61.    CARDS(A)=0
  62. Next A
  63. CP=72
  64. Gosub CARDCHOICE
  65.  
  66. Repeat 
  67.    MZ=Mouse Zone
  68.    MC=Mouse Click
  69.    If MZ=1 and MC=1 Then Gosub INFO
  70.    If MZ=2 and MC=1 Then Gosub FIN
  71.    If MZ=3 and MC=1 Then Gosub HIGH
  72.    If MZ=4 and MC=1 Then Gosub LOW
  73.    If MZ=5 and MC=1 and F=0 Then Gosub MONEYUP
  74.    If MZ=6 and MC=1 and F=0 Then Gosub MONEYDO
  75. Until MZ=2 and MC=2
  76.  
  77. FIN1:
  78. Gosub MESAGE1 : Print MESAGE$(2) : Wait 50
  79. Edit 
  80. '*********** Hi or Low Take your Pick ***********
  81. HIGH:
  82. Gosub MESAGE1
  83. Bob 59,306,101,59
  84. F=1
  85. TEMP=C
  86. Gosub CARDCHOICE
  87. If C>TEMP and CARD=5
  88.    Gosub MESAGE1 : Print MESAGE$(10) : Wait 50
  89.    BANK=BANK+CASH
  90.    Goto MAINLOOP
  91. End If 
  92. If C<=TEMP
  93.    Gosub MESAGE1 : Print MESAGE$(9) : Wait 50
  94.    BANK=BANK-CASH
  95.    Goto MAINLOOP
  96. End If 
  97. Return 
  98.  
  99. LOW:
  100. Gosub MESAGE1
  101. Bob 59,306,101,59
  102. F=1
  103. TEMP=C
  104. Gosub CARDCHOICE
  105. If C<TEMP and CARD=5
  106.    Gosub MESAGE1 : Print MESAGE$(10) : Wait 50
  107.    BANK=BANK+CASH
  108.    Goto MAINLOOP
  109. End If 
  110. If C=>TEMP
  111.    Gosub MESAGE1 : Print MESAGE$(9) : Wait 50
  112.    BANK=BANK-CASH
  113.    Goto MAINLOOP
  114. End If 
  115. Return 
  116. '*********** Pick a Card Any Card? ********* 
  117. CARDCHOICE:
  118. C=Rnd(51)+1
  119. If CARDS(C)=1 Then Goto CARDCHOICE : Rem ***** If Card Already Chosen? Chose again *****' 
  120. CARDS(C)=1
  121. Bob C,CP,101,C
  122. If C>39 Then C=C-39
  123. If C>26 Then C=C-26
  124. If C>13 Then C=C-13
  125. CP=CP+37
  126. Inc CARD
  127. Return 
  128. '********** Check for Quit **********
  129. FIN:
  130. Gosub MESAGE1
  131. Locate 5,25 : Print MESAGE$(8)
  132. Bob 56,101,152,56
  133. Bob 55,179,152,55
  134. Do 
  135.    MZ=Mouse Zone
  136.    MK=Mouse Key
  137.    If MZ=3 and MK=1 Then Goto FIN1
  138.    If MZ=4 and MK=1 Then Goto FIN2
  139. Loop 
  140. FIN2:
  141. Paste Bob 101,152,58
  142. Paste Bob 179,152,57
  143. Gosub MESAGE1
  144. Goto MAINLOOP
  145. Return 
  146. '********** Win Lose Routine ********* 
  147. WINLOOSE:
  148. Gosub MESAGE1 : Print MESAGE$(WL)
  149. Paste Bob 101,152,56
  150. Paste Bob 179,152,55
  151. Do 
  152.    MZ=Mouse Zone
  153.    MK=Mouse Key
  154.    If MZ=3 and MK=1 Then Goto FIN11
  155.    If MZ=4 and MK=1 Then Goto FIN1
  156. Loop 
  157. FIN11:
  158. BANK=500
  159. Gosub BANK1
  160. Paste Bob 101,152,58
  161. Paste Bob 179,152,57
  162. Gosub MESAGE1
  163. Return 
  164. '********** Betting Routine ********** 
  165. MONEYUP:
  166. If COUNT>0 Then Goto FIN5
  167. If CASH=>50
  168.    Gosub MESAGE1
  169.    Print MESAGE$(4)
  170.    CASH=50
  171.    Goto FIN5
  172. End If 
  173. CASH=CASH+5
  174. Gosub PCASH
  175. Gosub MESAGE1
  176. FIN5:
  177. BET=CASH
  178. Return 
  179.  
  180. MONEYDO:
  181. If COUNT>0 Then Goto FIN6
  182. If CASH=<10
  183.    Gosub MESAGE1
  184.    Print MESAGE$(5)
  185.    CASH=5
  186.    Locate 35,15 : Print "05"
  187.    Goto FIN6
  188. End If 
  189. CASH=CASH-5
  190. Gosub PCASH
  191. Gosub MESAGE1
  192. FIN6:
  193. BET=CASH
  194. Return 
  195. '********** Infomation Screen ********** 
  196. INFO:
  197. Hide 
  198. Gosub MESAGE1
  199. Print MESAGE$(7)
  200. Bob 54,112,220,54
  201. Screen To Front 1
  202. Screen Show 1
  203. Screen 1
  204. Curs Off 
  205. Locate 0,0
  206. Paper 0
  207. Print Pen$(2)+"This program was written using"+Pen$(5)+" AMOS PRO"+Pen$(2)+"and "+Pen$(5)+"DELUX PAINT IV "+Pen$(2)+"The Idea of the game"
  208. Print "is to Place your bet on the first card. Then to try to guess if the next four "
  209. Print "cards will be Higher or Lower.If you complete a run of all five cards you Win."
  210. Print "Just to make things a little harder get a pair and you lose."
  211. Print : Centre Pen$(6)+"Program By R.Watson"+Pen$(2)+" (Zimmer) "+Pen$(6)+"Of GEMINI "
  212. Print : Print : Centre Pen$(4)+"Left Mouse Button Please"
  213. Repeat 
  214. Until Mouse Click=1
  215. Show 
  216. Screen To Back 1
  217. Screen 0
  218. Paste Bob 112,220,53
  219. Gosub MESAGE1
  220. Return 
  221.  
  222. BANK1:
  223. Locate 2,15 : Print "    "
  224. Locate 2,15 : Print BANK
  225. Locate 35,15 : Print "05"
  226. CASH=5
  227. Return 
  228. '********** Message Strings ********** 
  229. Data SP$,"....Programmed By R.Watson....","Place Your Bets ","Sorry The Top Limit Is 50"
  230. Data "Sorry The Lowest Limit Is 5","Shuffling Cards Please wait","Left Mouse Button To Return"
  231. Data "QUIT?  Are You Sure","Sorry You Lost That Round","CONGRATULATIONS","Nothing For a Pair Not in this Game"
  232. Data "Your Stating Card","Your out of Money Replay?","You've broke the Bank Replay?"
  233. '********** Clears Message Window ********** 
  234. MESAGE1:
  235. Locate 5,25 : Print MESAGE$(1)
  236. Locate 5,25
  237. Return 
  238. '********** Print Bet ********** 
  239. PCASH:
  240. Locate 34,15 : Print "  "
  241. Locate 34,15 : Print CASH
  242. Return