home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd463 / amos1.34_progs / number_shuffle.amos / number_shuffle.amosSourceCode
AMOS Source Code  |  1993-01-17  |  4KB  |  198 lines

  1. Rem ===================================
  2. Rem =                                 =
  3. Rem =       Shuffle Number Game       =
  4. Rem =                                 =
  5. Rem =   Written in AMOS Basic v1.21   =
  6. Rem =                                 =
  7. Rem =         Mandarin / Jawx         =
  8. Rem =                                 =
  9. Rem =      By G. Albrow   c.1990      =
  10. Rem =                                 =
  11. Rem ===================================
  12. '
  13. '  Escape quits
  14. '
  15. BEGIN:
  16. Randomize Timer
  17. U=0
  18. '
  19. Curs Off : Cls 1
  20. Global DIFFICULTY,U,R1,R2,R3,R4,R5,R6,R7,R8,R9,J
  21. '
  22. Reserve Zone 8
  23. '
  24. Pen 0 : Paper 2 : Set Paint 1 : Ink ,,0
  25. '
  26. Locate 4,2
  27. Print Border$(Zone$(" 1 ",1),2)
  28. Locate 12,2
  29. Print Border$(Zone$(" 2 ",2),2)
  30. Locate 20,2
  31. Print Border$(Zone$(" 3 ",3),2)
  32. '
  33. Locate 31,2
  34. Print Border$(Zone$("About",4),2)
  35. '
  36. Do 
  37.    If Key State(69) Then QUIT
  38.    T=Mouse Zone
  39.    If T=4 and Mouse Key>0 Then ABOUT
  40.    If U=1 Then Goto BEGIN
  41.    If Mouse Key>0 and Mouse Zone>0 Then SETUP
  42. Loop 
  43. '
  44. Procedure MAIN
  45.    '
  46.    Do 
  47.       If Key State(69) Then QUIT
  48.       T=Mouse Zone
  49.       If T=1 and Mouse Key>0 Then SETUP
  50.       If T=2 and Mouse Key>0 Then SETUP
  51.       If T=3 and Mouse Key>0 Then SETUP
  52.       If T=5 and Mouse Key>0 Then S1
  53.       If T=6 and Mouse Key>0 Then S2
  54.       If T=7 and Mouse Key>0 Then S3
  55.       If T=8 and Mouse Key>0 Then S4
  56.       '
  57.       Locate 6,12
  58.       Print R1;" ";R2;" ";R3;" ";R4;" ";R5;" ";R6;" ";R7;" ";R8;" ";R9
  59.       '
  60.       If R1=1 and R2=2 and R3=3 and R4=4 and R5=5 and R6=6 and R7=7 and R8=8 and R9=9 Then Pop Proc
  61.       '
  62.    Loop 
  63. End Proc
  64. '
  65. Goto FINISH
  66. '  
  67. Procedure SETUP
  68.    '
  69.    Locate 11,22
  70.    Print Border$(Zone$("S1",5),2)
  71.    Locate 16,22
  72.    Print Border$(Zone$("S2",6),2)
  73.    Locate 21,22
  74.    Print Border$(Zone$("S3",7),2)
  75.    Locate 26,22
  76.    Print Border$(Zone$("S4",8),2)
  77.    '
  78.    Bar 40,87 To 270,110
  79.    Pen 0 : Ink 0,,
  80.    '
  81.    Polyline 60,116 To 60,136 To 132,136 To 132,116
  82.    Polyline 83,116 To 83,126 To 108,126 To 108,116
  83.    Polyline 156,116 To 156,136 To 228,136 To 228,116
  84.    Polyline 179,116 To 179,126 To 204,126 To 204,116
  85.    Polyline 83,81 To 83,61 To 155,61 To 155,81
  86.    Polyline 106,81 To 106,71 To 131,71 To 131,81
  87.    Polyline 179,81 To 179,61 To 251,61 To 251,81
  88.    Polyline 202,81 To 202,71 To 227,71 To 227,81
  89.    '
  90.    Text 89,148,"S1"
  91.    Text 185,148,"S3"
  92.    Text 111,55,"S2"
  93.    Text 207,55,"S4"
  94.    '
  95.    Ink 2,,
  96.    Shoot 
  97.    T=Mouse Zone
  98.    If T=1 Then DIFFICULTY=4
  99.    If T=2 Then DIFFICULTY=8
  100.    If T=3 Then DIFFICULTY=16
  101.    '
  102.    R1=1 : R2=2 : R3=3 : R4=4 : R5=5 : R6=6 : R7=7 : R8=8 : R9=9
  103.    '
  104.    Locate 6,12
  105.    Print R1;" ";R2;" ";R3;" ";R4;" ";R5;" ";R6;" ";R7;" ";R8;" ";R9
  106.    Wait 100
  107.    '
  108.    BACK:
  109.    '
  110.    For N=1 To DIFFICULTY
  111.       V=Rnd(3)+1
  112.       On V Proc S1,S2,S3,S4
  113.       Locate 6,12
  114.       Print R1;" ";R2;" ";R3;" ";R4;" ";R5;" ";R6;" ";R7;" ";R8;" ";R9
  115.       Wait 5
  116.    Next 
  117.    '
  118.    If R1=1 and R2=2 and R3=3 and R4=4 and R5=5 and R6=6 and R7=7 and R8=8 and R9=9 Then Goto BACK
  119.    '
  120.    T=0
  121.    MAIN
  122.    '
  123. End Proc
  124. '
  125. Procedure S1
  126.    '
  127.    Shoot : T=0
  128.    Swap R1,R4
  129.    Swap R2,R3
  130.    Wait 10
  131.    '
  132. End Proc
  133. '
  134. Procedure S2
  135.    '
  136.    Shoot : T=0
  137.    Swap R2,R5
  138.    Swap R3,R4
  139.    Wait 10
  140.    '
  141. End Proc
  142. '
  143. Procedure S3
  144.    '
  145.    Shoot : T=0
  146.    Swap R5,R8
  147.    Swap R6,R7
  148.    Wait 10
  149.    '
  150. End Proc
  151. '
  152. Procedure S4
  153.    '
  154.    Shoot : T=0
  155.    Swap R6,R9
  156.    Swap R7,R8
  157.    Wait 10
  158.    '
  159. End Proc
  160. '
  161. Procedure ABOUT
  162.    '
  163.    Shoot : T=0
  164.    Cls 1 : Pen 2 : Paper 1
  165.    Locate 0,4
  166.    Centre "This game idea was taken directly"
  167.    Locate 0,6
  168.    Centre "from the CASIO FX-502P program library"
  169.    Locate 0,8
  170.    Centre "Written in AMOS Basic - Mandarin / Jawx"
  171.    Locate 0,11
  172.    Centre "By G. Albrow  c.1990"
  173.    Pen 3
  174.    Locate 0,20
  175.    Centre "Press any Key"
  176.    Pen 2
  177.    Wait Key 
  178.    U=1 : T=1
  179.    '
  180. End Proc
  181. '
  182. Goto BEGIN
  183. '
  184. FINISH:
  185. '
  186. Wait 100
  187. Cls 1
  188. Pen 2 : Paper 1
  189. Locate 0,12
  190. Centre "WELL DONE"
  191. Wait 100
  192. '
  193. Goto BEGIN
  194. '
  195. Procedure QUIT
  196.    Default 
  197.    Edit 
  198. End Proc