home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 476-500 / apd483 / master_source.amos / master_source.amosSourceCode < prev    next >
AMOS Source Code  |  1993-03-07  |  4KB  |  129 lines
  1. ' Mastermind Ver 1.0 
  2. '
  3. ' ï¿½ 1993 Neil Wright 
  4. '
  5. ' Greetings to Jon 
  6. '
  7. ' Thanks to Gordon and Chrissy 
  8. ' for debugging it.  
  9. '
  10. ' Look out for version 2.  
  11. '
  12. ' Buy FontX, the excellent text font editor
  13. '  
  14. ' available now from AMOS PD.
  15. '
  16. ' Features include:
  17. '
  18. ' Intuitive user interface,  
  19. ' Invert and flip characters on both axis, 
  20. ' and even more advanced features!!! 
  21. '
  22. ' End of commercial break, and on with the show: 
  23. '
  24. Sam Bank 10
  25. Screen Open 0,320,256,32,Lowres
  26. Curs Off : Flash Off : Hide : Cls 0
  27. '
  28. Dim ACTUAL(4),GUESS(4)
  29. Global GOS
  30. MAIN:
  31. Auto View Off 
  32. Unpack 6 To 0
  33. Reserve Zone 6
  34. Set Zone 1,24,58 To 37,71 : Rem purple   
  35. Set Zone 2,24,76 To 37,89 : Rem pink 
  36. Set Zone 3,24,93 To 37,106 : Rem red
  37. Set Zone 4,24,110 To 37,123 : Rem green  
  38. Set Zone 5,24,127 To 37,140 : Rem blue 
  39. Set Zone 6,24,145 To 37,158 : Rem yellow   
  40. '
  41. Paper 0 : Pen 13
  42. For T=1 To 4
  43.    ACTUAL(T)=Rnd(5)+1
  44. Next T
  45. Y=0
  46. For U=1 To 4
  47.    Paste Bob 250,76+Y,ACTUAL(U)
  48.    Y=Y+17
  49. Next U
  50. Bob 10,245,63,16
  51. Double Buffer 
  52. Wait 5
  53. View 
  54. Auto View On 
  55. A=1 : Y=0 : X=0 : PINTER=7
  56. COUNTER=0
  57. Do 
  58.    Bob 40,X Screen(X Mouse),Y Screen(Y Mouse),PINTER
  59.    M=Mouse Zone
  60.    If M>0 and Mouse Click<>0 and COUNTER<4
  61.       Sam Play 1,2,3000
  62.       GUESS(COUNTER+1)=M
  63.       PINTER=M+6
  64.       Paste Bob 67+X,76+Y,M
  65.       Inc A : Inc COUNTER
  66.       Y=Y+17
  67.    End If 
  68.    If COUNTER=4
  69.       Gosub CHECK
  70.       If GUESS(1)=ACTUAL(1) and GUESS(2)=ACTUAL(2) and GUESS(3)=ACTUAL(3) and GUESS(4)=ACTUAL(4)
  71.          Bob 2,130,90,17
  72.          Bob Off 10
  73.          Sam Play 1,13,4000
  74.          Repeat : Until Mouse Key<>0
  75.          Fade 4
  76.          Wait 50
  77.          Gosub MAIN
  78.       End If 
  79.       If X>=130
  80.          Bob 2,130,90,18
  81.          Bob Off 10
  82.          Sam Play 1,12,3000
  83.          Repeat : Until Mouse Key<>0
  84.          Fade 4
  85.          Wait 50
  86.          Gosub MAIN
  87.       End If 
  88. X=X+15 : Y=0
  89.       COUNTER=0
  90.    End If 
  91. Loop 
  92.  
  93. CHECK:
  94. Rem *** The new, bug free (hopefully) CHECK routine ***
  95. POS=4
  96. CHECKCOUNTER1=1
  97. CHECKCOUNTER2=1
  98. CHECKCOUNTER3=1
  99. For T=1 To 4
  100.    If GUESS(T)=ACTUAL(T)
  101.       If CHECKCOUNTER1=1 : Paste Bob 67+X-1,62,13 : End If : Rem topleft
  102.       If CHECKCOUNTER1=2 : Paste Bob 67+X+6,62,13 : End If : Rem top right
  103.       If CHECKCOUNTER1=3 : Paste Bob 67+X-1,148,13 : End If : Rem bottom left  
  104.       If CHECKCOUNTER1=4 : Paste Bob 67+X+6,148,13 : End If : Rem bottom right 
  105.    End If 
  106.    If GUESS(T)=ACTUAL(POS) and GUESS(POS)<>ACTUAL(POS) and GUESS(T)<>ACTUAL(T)
  107.       If CHECKCOUNTER2=1 : Paste Bob 67+X-1,62,14 : End If : Rem topleft
  108.       If CHECKCOUNTER2=2 : Paste Bob 67+X+6,62,14 : End If : Rem top right
  109.       If CHECKCOUNTER2=3 : Paste Bob 67+X-1,148,14 : End If : Rem bottom left  
  110.       If CHECKCOUNTER2=4 : Paste Bob 67+X+6,148,14 : End If : Rem bottom right 
  111.    End If 
  112.    If GUESS(T)=ACTUAL(POS) and GUESS(POS)=ACTUAL(POS) and GUESS(T)<>ACTUAL(T)
  113.       If CHECKCOUNTER2=1 : Paste Bob 67+X-1,62,15 : End If : Rem topleft
  114.       If CHECKCOUNTER2=2 : Paste Bob 67+X+6,62,15 : End If : Rem top right
  115.       If CHECKCOUNTER2=3 : Paste Bob 67+X-1,148,15 : End If : Rem bottom left  
  116.       If CHECKCOUNTER2=4 : Paste Bob 67+X+6,148,15 : End If 
  117.    End If 
  118.    If GUESS(T)<>ACTUAL(T) and GUESS(T)<>ACTUAL(POS)
  119.       If CHECKCOUNTER3=1 : Paste Bob 67+X-1,62,15 : End If : Rem topleft
  120.       If CHECKCOUNTER3=2 : Paste Bob 67+X+6,62,15 : End If : Rem top right
  121.       If CHECKCOUNTER3=3 : Paste Bob 67+X-1,148,15 : End If : Rem bottom left  
  122.       If CHECKCOUNTER3=4 : Paste Bob 67+X+6,148,15 : End If : Rem bottom right 
  123.    End If 
  124.    Dec POS
  125.    Inc CHECKCOUNTER1 : Inc CHECKCOUNTER2 : Inc CHECKCOUNTER3
  126. Next T
  127. Return 
  128. '
  129. Rem That's all folks!!!