home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / IDEAS / GAME.SBP < prev    next >
Encoding:
Text File  |  1990-01-31  |  2.1 KB  |  134 lines
  1. SBP
  2.   Γ e
  3.   ¼ à
  4.   ╦ e
  5.   ┤ £"Game"
  6.   ╫but$(16)
  7.   ¢px% 1 q16
  8.  cb$ "b"  H( (px%,2,0)) "%"
  9.  ex$ "but$(px%) = cb$:" cb$ "=px%"
  10.   ûex$
  11.   ▒px%
  12.   òb16%
  13.  Cp% 16
  14.  win$ "If you can imagine it..."  (13)  (13) " Microsoft Database can do it..."
  15.   £
  16.   ╧ ¢2
  17.   £2
  18.  Start$ "NEW GAME":q$ "QUIT"
  19. StartGame: 
  20.  hit% 0
  21.   ╧ ▀ 
  22.  Ñ
  23.   íhit% 
  24. 1 
  25. hit% 16 p
  26.  ¥a$:a$  >(a$)
  27.  ía$ "N" 
  28. hit%  1 p
  29. ct% 0:moves$ ""
  30.  wShuffle
  31.  wStartGame
  32.  Æ í
  33.  ía$ "Q" 
  34. hit%  2 p wEnditall  Æ í
  35.  wStartGame
  36.   Æ í
  37.  pos%  (Cp% hit%)
  38.   í((pos% 1) 
  39. (pos% 4)) p
  40.  í(pos% 1) p
  41.  í( ((Cp% 1) 4)  ((hit% 1) 4)) p
  42.  
  43.  wStartGame
  44.  Æ í
  45.  Æ í
  46. ex$ but$(Cp%) "=" but$(hit%)
  47.  ûex$
  48. ct% ct% 1
  49. moves$ "No. of Moves:"  (ct%,5,0)
  50. Cp% hit%
  51.  vEraseButton
  52.  £
  53.  íCp% 16 p vCheckWin  Æ í
  54.   ^
  55.  
  56.   Æ í
  57.   wStartGame
  58. Enditall: 
  59.  win$ "Thanks for 'playing'"  (13) "with"  (13) "Microsoft Database"
  60.   £1
  61.   Γ │: ╦ │
  62.   Æ
  63. EndGame: 
  64.  hit% 0
  65.   ╧ ▀ 
  66.  Ñ
  67.   ¥a$:a$  >(a$)
  68.   ía$ "Q" 
  69. a$  (27) 
  70. hit%  2 p wEnditall
  71.   ía$ "N" 
  72. hit%  1 pmoves$ "":ct% 0: wShuffle  Æ í
  73.   
  74.   wEndGame
  75. Shuffle: 
  76.   òa%
  77.   ╫a%(16)
  78.   ¢x% 1 q16
  79.  ex$ "a%(x%)=" but$(x%)
  80.   ûex$
  81.   ▒x%
  82.   ¢x% 1 q30
  83. S1: 
  84.  px%  (16  (1) 1)
  85.   ípx% Cp% p wS1
  86.  fr%  ((Cp% 1) 4)
  87.  g%  ((px% 1) 4)
  88.  pos%  (fr% g%)
  89.  disp% (Cp% px%) { 4:4
  90.   ╪pos% 0
  91.  a%(Cp%) a%(Cp% disp%)
  92.  Cp% Cp% disp%
  93.  pos% pos% 1
  94.   ┘
  95.  pos%  (Cp% px%)
  96.  disp% (Cp% px%) { 1:1
  97.   ╪pos% 0
  98.  a%(Cp%) a%(Cp% disp%)
  99.  Cp% Cp% disp%
  100.  pos% pos% 1
  101.   ┘
  102.   ▒x%
  103.   ¢x% 1 q16
  104.  ex$ but$(x%) " = a%(x%)"
  105.   ûex$
  106.   ▒x%
  107.   òa%
  108.   vEraseButton
  109.   £
  110.   wStartGame
  111. EraseButton: 
  112.  cb$ but$(Cp%)
  113.  ex$ cb$ "=0:erase " cb$
  114.   ûex$
  115.   ├
  116. QueryButton: 
  117.  ex$ "ret%=" but$(px%)
  118.   ûex$
  119.   ├
  120. CheckWin: 
  121.   ¢x% 15 q1 k 1
  122. ex$ "cb% =" but$(x%) "- x%"
  123.  ûex$
  124.  ícb% 0 px% 1
  125.   ▒x%
  126.   ícb% p ├
  127.  win$ "You Won!!"
  128.   £1
  129.   ¢x% 1 q4
  130.  win$ "You Won!!"
  131.   
  132.   £
  133.   ╧ ¢.7
  134.  win$ ""
  135.   £
  136.   ╧ ¢.3
  137.   ▒x%
  138.  moves$ "You Won in "  H( (ct%,5,0)) " moves!"
  139.   £2
  140.   wEndGame
  141.  
  142.  
  143.