home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 12 / SPCD12.bin / win95gam / chessmat / res / txt / menu2.txt < prev    next >
Encoding:
Text File  |  1996-04-08  |  4.8 KB  |  192 lines
  1.  
  2. LoadLibrary(menu2)
  3.  
  4. WizardLoop(22222)  // ambiant
  5.  
  6. #Begin
  7.  
  8. OnGoto(MenuTapistryHit,TapistryMenu)
  9.  
  10. #TapistryMenu0 // Learn
  11.  
  12.     Do Pause(1)
  13.  
  14.     OnGoto(LearnCurrent,Learn)
  15.  
  16. #Learn1  // Overview
  17.  
  18. //    Do Pause(1)
  19. //    Do WizAct(250,io025.aif)    // first time
  20. //    Do RunScript(Overview.txt)
  21.  
  22.  
  23.     //Note: jb 960324: BugBase SN #1620 asks that the pieces pop on
  24.     //at the appropriate moment during line 250. That's what I've done
  25.     //here (I hope!) Pieces need to disappear after this line 'cuz then
  26.     //we move onto the Map movie, and the board needs to be empty at
  27.     //that time.
  28.     
  29.     Do Pause(1)
  30.     ClearBoard()
  31.     Tag WizAct(250,io025.aif)    //Well, I believe it's time to take a closer
  32.                                 //look at your kingdom. And while I share with
  33.                                 //you my knowledge of this mysterious game,
  34.                                 //you will use the white pieces.  Your worthy
  35.                                 //opponent will be using the black pieces. 
  36.  
  37.     //Pop on white pieces
  38.     + 12000 PopPiece(White Rook,A1)
  39.     + 12000 PopPiece(White Knight,B1)
  40.     + 12000 PopPiece(White Bishop,C1)
  41.     + 12000 PopPiece(White Queen,D1)
  42.     + 12000 PopPiece(White King,E1)
  43.     + 12000 PopPiece(White Bishop2,F1)
  44.     + 12000 PopPiece(White Knight2,G1)
  45.     + 12000 PopPiece(White Rook2,H1)
  46.     + 12000 PopPiece(White Pawn,A2)
  47.     + 12000 PopPiece(White Pawn2,B2)
  48.     + 12000 PopPiece(White Pawn3,C2)
  49.     + 12000 PopPiece(White Pawn4,D2)
  50.     + 12000 PopPiece(White Pawn5,E2)
  51.     + 12000 PopPiece(White Pawn6,F2)
  52.     + 12000 PopPiece(White Pawn7,G2)
  53.     + 12000 PopPiece(White Pawn8,H2)
  54.     
  55.     //Pop on black pieces
  56.     + 17500 PopPiece(Black Rook,A8)
  57.     + 17500 PopPiece(Black Knight,B8)
  58.     + 17500 PopPiece(Black Bishop,C8)
  59.     + 17500 PopPiece(Black Queen,D8)
  60.     + 17500 PopPiece(Black King,E8)
  61.     + 17500 PopPiece(Black Bishop2,F8)
  62.     + 17500 PopPiece(Black Knight2,G8)
  63.     + 17500 PopPiece(Black Rook2,H8)
  64.     + 17500 PopPiece(Black Pawn,A7)
  65.     + 17500 PopPiece(Black Pawn2,B7)
  66.     + 17500 PopPiece(Black Pawn3,C7)
  67.     + 17500 PopPiece(Black Pawn4,D7)
  68.     + 17500 PopPiece(Black Pawn5,E7)
  69.     + 17500 PopPiece(Black Pawn6,F7)
  70.     + 17500 PopPiece(Black Pawn7,G7)
  71.     + 17500 PopPiece(Black Pawn8,H7)
  72.  
  73.     Wait()
  74.     
  75.     Do Pause(1000)
  76.     Tag WizardGag(23100)                 //wave wand
  77.     //UnPop white pieces
  78.     + 1700 UnPopPiece(White Rook,A1)
  79.     + 1700 UnPopPiece(White Knight,B1)
  80.     + 1700 UnPopPiece(White Bishop,C1)
  81.     + 1700 UnPopPiece(White Queen,D1)
  82.     + 1700 UnPopPiece(White King,E1)
  83.     + 1700 UnPopPiece(White Bishop2,F1)
  84.     + 1700 UnPopPiece(White Knight2,G1)
  85.     + 1700 UnPopPiece(White Rook2,H1)
  86.     + 1700 UnPopPiece(White Pawn,A2)
  87.     + 1700 UnPopPiece(White Pawn2,B2)
  88.     + 1700 UnPopPiece(White Pawn3,C2)
  89.     + 1700 UnPopPiece(White Pawn4,D2)
  90.     + 1700 UnPopPiece(White Pawn5,E2)
  91.     + 1700 UnPopPiece(White Pawn6,F2)
  92.     + 1700 UnPopPiece(White Pawn7,G2)
  93.     + 1700 UnPopPiece(White Pawn8,H2)
  94.     
  95.     //UnPop black pieces
  96.     + 1700 UnPopPiece(Black Rook,A8)
  97.     + 1700 UnPopPiece(Black Knight,B8)
  98.     + 1700 UnPopPiece(Black Bishop,C8)
  99.     + 1700 UnPopPiece(Black Queen,D8)
  100.     + 1700 UnPopPiece(Black King,E8)
  101.     + 1700 UnPopPiece(Black Bishop2,F8)
  102.     + 1700 UnPopPiece(Black Knight2,G8)
  103.     + 1700 UnPopPiece(Black Rook2,H8)
  104.     + 1700 UnPopPiece(Black Pawn,A7)
  105.     + 1700 UnPopPiece(Black Pawn2,B7)
  106.     + 1700 UnPopPiece(Black Pawn3,C7)
  107.     + 1700 UnPopPiece(Black Pawn4,D7)
  108.     + 1700 UnPopPiece(Black Pawn5,E7)
  109.     + 1700 UnPopPiece(Black Pawn6,F7)
  110.     + 1700 UnPopPiece(Black Pawn7,G7)
  111.     + 1700 UnPopPiece(Black Pawn8,H7)
  112.     Wait();                                //wait til' wave is finished
  113.  
  114.     ClearBoard()
  115.     
  116.     Do RunScript(Overview.txt)
  117.  
  118.  
  119. #Learn2  // King Learn
  120.  
  121.     Do Pause(1)
  122.     Do RunScript(Kinglrn.txt)
  123.  
  124. #Learn3  // King Capture
  125.  
  126.     Do Pause(1)
  127.     Do WizAct(260,io026.aif) //"When we were last here, we learned aobut"
  128.     Do WizAct(270,io027.aif) //"the King"
  129.  
  130.     Do WizAct(400,io040.aif) // Let's pick up from there.
  131.  
  132.     Do RunScript(Kingcap.txt)
  133.     
  134. #Learn   // default
  135.     GoTo(Begin)
  136.  
  137. #TapistryMenu1 // Puzzle
  138.  
  139.     Do Pause(1)
  140.  
  141.     If(DonePuzzleBefore,DoneBefore)
  142.         // first time
  143.  
  144.         Do WizAct(410,io041.aif)    //The secret to Chess is not just understanding
  145.                         //how each piece moves, but how you can use
  146.                         //those moves to win the game.  This is what great 
  147.                         //leaders call "strategy", or "tactics".
  148.  
  149.         Do WizAct(420,io042.aif)    //You can learn several clever tactics used in chess
  150.                         //by solving a few simple puzzles. Here, let me show you how.
  151.  
  152.  
  153.  
  154.         DO RunNewPuzzle()
  155.  
  156.         Goto(end)
  157.  
  158.     #DoneBefore
  159.         Do Pause(1) // or the wizact won't happen (sparser weirdness)
  160.  
  161.         Do WizAct(430,io043.aif) // Last time . . .
  162.  
  163.     OnGoto(PuzzleClassCurrent,PuzzleClass)
  164.     
  165. #PuzzleClass0 // Fork
  166.         
  167.         Do Pause(1)
  168.         Do WizAct(450,io045.aif) // Last time ... Fork
  169.  
  170.         Do WizAct(520,io052.aif) // "What say we pick up where we left off, eh? Heh, heh!"
  171.  
  172.         DO RunNewPuzzle()
  173.         Goto(end)
  174.  
  175. #PuzzleClass  // default
  176.     Do Pause(1)
  177.     GoTo(Begin)
  178.  
  179. #TapistryMenu2 // Play
  180.  
  181. #TapistryMenu // default
  182. Goto(Begin)
  183.  
  184.  
  185. #end
  186. FreeLibrary()
  187. UnloadMovie()
  188. UnloadMovie()
  189. UnloadMovie()
  190.  
  191. Endscript()
  192.