home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 5 / cdactual5.iso / scala / scripts / artwork / cdmain / pictbook.sca < prev    next >
Encoding:
Text File  |  1996-05-01  |  23.1 KB  |  515 lines

  1. !ScalaScript
  2.  
  3. // "Flushevent" is used to keep scala from prebuffering the next page/variables.
  4.  
  5. :"The Picture Book"
  6. EVENT
  7.   Group:
  8.     Integer(
  9.         Direct
  10.         );
  11.     String(
  12.         WipeType
  13.         );
  14.     
  15.   Sequence:
  16.  
  17.     :"Intro"
  18.     EVENT
  19.       Group:
  20.         WipeType = "FlipOver";
  21.  
  22.         Display(Face(Pen(1)),Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  23.         
  24.         Clip(320, 0, "artwork\pictbook\book00.bmp");
  25.         Text(429, 135, "Welcome to the", Shadow(Off, Offset(1, 1)), Font("SGaramond", 23));
  26.         Text(437, 156, "Scala Holiday", Shadow(Off, Offset(1, 1)), Font("SGaramond", 23));
  27.  
  28.         Button(
  29.             Normal(Clip(473, 199, "..\clips\scala\scala3.bmp")),
  30.             Select(Clip(473, 199, "..\clips\scala\scala3.bmp"), Use("Quit"))
  31.             );
  32.  
  33.         Button(
  34.             Normal(Clip(604, 449, "artwork\pictbook\Front2_r.bmp", Operation(On))),
  35.             Highlight(Clip(604, 449, "artwork\pictbook\Front_r.bmp", Operation(On)), Use(WRight)),
  36.             Select(Clip(604, 449, "artwork\pictbook\Front_r.bmp", Operation(On)), Goto("Page 1"))
  37.             );
  38.           Wait();
  39.  
  40.       Sequence:
  41.  
  42.       Resources:
  43.         :"Quit"
  44.         EVENT
  45.             Quit(1);
  46.         END
  47.     END
  48.  
  49.     :"FlushEvent"
  50.     EVENT
  51.     END
  52.  
  53.     // Main Page 1
  54.  
  55.     :"Page 1"
  56.     EVENT
  57.       Group:
  58.         Picture("artwork\pictbook\book001.bmp", Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  59.  
  60.         Button(
  61.             Normal(Clip(51, 56, "artwork\pictbook\pict001.bmp", Operation(On, Resize(191, 146)))),
  62.             Highlight(Clip(51, 56, "artwork\pictbook\pict001.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  63.             Select(Clip(51, 56, "artwork\pictbook\pict001.bmp", Operation(On, Resize(191, 146))), Goto("pict001"))
  64.             );
  65.         
  66.         Button(
  67.             Normal(Clip(51, 249, "artwork\pictbook\pict002.bmp", Operation(On, Resize(191, 146)))),
  68.             Highlight(Clip(51, 249, "artwork\pictbook\pict002.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  69.             Select(Clip(51, 249, "artwork\pictbook\pict002.bmp", Operation(On, Resize(191, 146))), Goto("pict002"))
  70.             );
  71.  
  72.         Button(
  73.             Normal(Clip(389, 56, "artwork\pictbook\pict003.bmp", Operation(On, Resize(191, 146)))),
  74.             Highlight(Clip(389, 56, "artwork\pictbook\pict003.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  75.             Select(Clip(389, 56, "artwork\pictbook\pict003.bmp", Operation(On, Resize(191, 146))), Goto("pict003"))
  76.             );
  77.         
  78.         Button(
  79.             Normal(Clip(389, 249, "artwork\pictbook\pict004.bmp", Operation(On, Resize(191, 146)))),
  80.             Highlight(Clip(389, 249, "artwork\pictbook\pict004.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  81.             Select(Clip(389, 249, "artwork\pictbook\pict004.bmp", Operation(On, Resize(191, 146))), Goto("pict004"))
  82.             );
  83.         
  84.         Clip(12, 9, "artwork\pictbook\paper001.bmp");
  85.  
  86.         Button(
  87.             Normal(Clip(49, 29, "..\clips\scala\scala3.bmp")),
  88.             Select(Clip(49, 29, "..\clips\scala\scala3.bmp"), Use("Quit"))
  89.             );
  90.  
  91.            Button(
  92.             Normal(Clip(-2, 449, "artwork\pictbook\arr2_l.bmp", Operation(On))),
  93.             Highlight(Clip(-2, 449, "artwork\pictbook\arr_l.bmp", Operation(On)), Use(WLeft)),
  94.             Select(Clip(-2, 449, "artwork\pictbook\arr_l.bmp", Operation(On)), Goto("Intro"))
  95.             );
  96.         
  97.         Button(
  98.             Normal(Clip(604, 449, "artwork\pictbook\arr2_r.bmp", Operation(On))),
  99.             Highlight(Clip(604, 449, "artwork\pictbook\arr_r.bmp", Operation(On)), Use(WRight)),
  100.             Select(Clip(604, 449, "artwork\pictbook\arr_r.bmp", Operation(On)), Goto("Page 2"))
  101.             );
  102.           Wait();
  103.       Sequence:
  104.       Resources:
  105.         :"Quit"
  106.         EVENT
  107.             Quit(1);
  108.         END
  109.     END
  110.     
  111.     :"FlushEvent.1"
  112.     EVENT
  113.     END
  114.     
  115.     // Main Page 2
  116.  
  117.     :"Page 2"
  118.     EVENT
  119.       Group:
  120.         Picture("artwork\pictbook\book001.bmp", Wipe(WipeType, Speed(3), Direction(Direct)), Palette(RGBPen(0, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253, 394246, 5670702, 11044913, 8917040, 2573590, 5262105, 11387746, 9350970, 8225346, 5596724, 7899016, 11381062, 5203060, 1524852, 5509660, 11119245, 12043967, 468765, 3759394, 8165702, 5141040, 15000528, 2499346, 8625545, 8148500, 13738794, 14339234, 2836034, 9864741, 13349033, 1128727, 5539512, 13920772, 11252802, 5593162, 6644276, 11122076, 8480036, 9739146, 5534842, 6976824, 7123684, 11650258, 10579753, 5332254, 14337615, 10066232, 11253177, 8095336, 4482676, 4084297, 3622956, 6845812, 338497, 2636859, 10781817, 4349776, 8940106, 9607862, 6915434, 9343363, 7107924, 5203280, 14145744, 3363925, 6915737, 9487068, 10986855, 9340515, 12498755, 2759956, 13160623, 471623, 14468995, 5187109, 1583389, 7038284, 11909008, 9940895, 9411687, 8622208, 7493428, 12356132, 13369860, 2701608, 13938805, 10068880, 5535132, 12900584, 6722237, 6984765, 3495036, 5528116, 7966559, 8287831, 726546, 7360033, 9744247, 4352802, 5994833, 16250356, 8165815, 2704989, 11318120, 3625776, 6760740, 9679302, 2707733, 8228399, 3958432, 6650456, 12961202, 8428141, 5533009, 8137268, 5065270, 12437121, 16576172, 13939257, 13894356, 15482500, 14429796, 12870260, 13934252, 11544895, 11294212, 7602692, 10775148, 11272708, 14211263, 9191996, 8485674, 11572778, 14997122, 2905216, 4536861, 11704972, 3963588, 9714236, 11290188, 13285532, 6643013, 15184932, 3966684, 12686681, 11811420, 7105140, 12757611, 16043652, 12324420, 6267108, 6559276, 11304524, 15519553, 13159886, 15784616, 10849373, 8174308, 13941605, 12364332, 15522508, 9270356, 8213843, 6981428, 9278024, 11041310, 12892273, 7617076, 14966412, 15984348, 7109016, 3618840, 15057714, 8168898, 9287374, 3478548, 9730604, 11574357, 10988452, 1784104, 5266533, 11570827, 9201260, 2901549, 12764243, 8357543, 8694470, 1649460, 10276588, 9998951, 1587278, 12767869, 9718276, 1382931, 9447216, 2902900, 5279964, 9613134, 7967142, 6044173, 5532972, 5335942, 8560445, 5536557, 2633244, 14330664, 10796361, 6974760, 9203236, 7109423, 9806152, 11451845, 5517610, 6974545, 5799083, 14334526, 9274183, 4351117, 14207163, 14409451, 12105641, 12560977, 4417868, 9676208, 6784840, 15512164, 4464132, 12176603, 7175038, 4021110, 11452006, 12884013, 14476532, 2505809, 6457008, 7770687, 10254964)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  121.  
  122.         Button(
  123.             Normal(Clip(51, 56, "artwork\pictbook\pict005.bmp", Operation(On, Resize(191, 146)))),
  124.             Highlight(Clip(51, 56, "artwork\pictbook\pict005.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  125.             Select(Clip(51, 56, "artwork\pictbook\pict005.bmp", Operation(On, Resize(191, 146))), Goto("pict005"))
  126.             );
  127.         
  128.         Button(
  129.             Normal(Clip(51, 249, "artwork\pictbook\pict006.bmp", Operation(On, Resize(191, 146)))),
  130.             Highlight(Clip(51, 249, "artwork\pictbook\pict006.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  131.             Select(Clip(51, 249, "artwork\pictbook\pict006.bmp", Operation(On, Resize(191, 146))), Goto("pict006"))
  132.             );
  133.  
  134.         Button(
  135.             Normal(Clip(389, 56, "artwork\pictbook\pict007.bmp", Operation(On, Resize(191, 146)))),
  136.             Highlight(Clip(389, 56, "artwork\pictbook\pict007.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  137.             Select(Clip(389, 56, "artwork\pictbook\pict007.bmp", Operation(On, Resize(191, 146))), Goto("pict007"))
  138.             );
  139.         
  140.         Button(
  141.             Normal(Clip(389, 249, "artwork\pictbook\pict008.bmp", Operation(On, Resize(191, 146)))),
  142.             Highlight(Clip(389, 249, "artwork\pictbook\pict008.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  143.             Select(Clip(389, 249, "artwork\pictbook\pict008.bmp", Operation(On, Resize(191, 146))), Goto("pict008"))
  144.             );
  145.  
  146.         Clip(12, 9, "artwork\pictbook\paper001.bmp");
  147.  
  148.         Button(
  149.             Normal(Clip(49, 29, "..\clips\scala\scala3.bmp")),
  150.             Select(Clip(49, 29, "..\clips\scala\scala3.bmp"), Use("Quit"))
  151.             );
  152.         
  153.         Button(
  154.             Normal(Clip(-2, 449, "artwork\pictbook\arr2_l.bmp", Operation(On))),
  155.             Highlight(Clip(-2, 449, "artwork\pictbook\arr_l.bmp", Operation(On)), Use(WLeft)),
  156.             Select(Clip(-2, 449, "artwork\pictbook\arr_l.bmp", Operation(On)), Goto("Page 1"))
  157.             );
  158.         
  159.         Button(
  160.             Normal(Clip(604, 449, "artwork\pictbook\arr2_r.bmp", Operation(On))),
  161.             Highlight(Clip(604, 449, "artwork\pictbook\arr_r.bmp", Operation(On)), Use(WRight)),
  162.             Select(Clip(604, 449, "artwork\pictbook\arr_r.bmp", Operation(On)), Goto("Page 3"))
  163.             );
  164.         Wait();
  165.       Sequence:
  166.       Resources:
  167.         :"Quit"
  168.         EVENT
  169.             Quit(1);
  170.         END
  171.     END
  172.  
  173.     :"FlushEvent.1b"
  174.     EVENT
  175.     END
  176.  
  177.     :"Page 3"
  178.     EVENT
  179.       Group:
  180.         Picture("artwork\pictbook\book001.bmp", Wipe(WipeType, Speed(3), Direction(Direct)), Palette(RGBPen(0, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253, 394246, 5670702, 11044913, 8917040, 2573590, 5262105, 11387746, 9350970, 8225346, 5596724, 7899016, 11381062, 5203060, 1524852, 5509660, 11119245, 12043967, 468765, 3759394, 8165702, 5141040, 15000528, 2499346, 8625545, 8148500, 13738794, 14339234, 2836034, 9864741, 13349033, 1128727, 5539512, 13920772, 11252802, 5593162, 6644276, 11122076, 8480036, 9739146, 5534842, 6976824, 7123684, 11650258, 10579753, 5332254, 14337615, 10066232, 11253177, 8095336, 4482676, 4084297, 3622956, 6845812, 338497, 2636859, 10781817, 4349776, 8940106, 9607862, 6915434, 9343363, 7107924, 5203280, 14145744, 3363925, 6915737, 9487068, 10986855, 9340515, 12498755, 2759956, 13160623, 471623, 14468995, 5187109, 1583389, 7038284, 11909008, 9940895, 9411687, 8622208, 7493428, 12356132, 13369860, 2701608, 13938805, 10068880, 5535132, 12900584, 6722237, 6984765, 3495036, 5528116, 7966559, 8287831, 726546, 7360033, 9744247, 4352802, 5994833, 16250356, 8165815, 2704989, 11318120, 3625776, 6760740, 9679302, 2707733, 8228399, 3958432, 6650456, 12961202, 8428141, 5533009, 8137268, 5065270, 12437121, 16576172, 13939257, 13894356, 15482500, 14429796, 12870260, 13934252, 11544895, 11294212, 7602692, 10775148, 11272708, 14211263, 9191996, 8485674, 11572778, 14997122, 2905216, 4536861, 11704972, 3963588, 9714236, 11290188, 13285532, 6643013, 15184932, 3966684, 12686681, 11811420, 7105140, 12757611, 16043652, 12324420, 6267108, 6559276, 11304524, 15519553, 13159886, 15784616, 10849373, 8174308, 13941605, 12364332, 15522508, 9270356, 8213843, 6981428, 9278024, 11041310, 12892273, 7617076, 14966412, 15984348, 7109016, 3618840, 15057714, 8168898, 9287374, 3478548, 9730604, 11574357, 10988452, 1784104, 5266533, 11570827, 9201260, 2901549, 12764243, 8357543, 8694470, 1649460, 10276588, 9998951, 1587278, 12767869, 9718276, 1382931, 9447216, 2902900, 5279964, 9613134, 7967142, 6044173, 5532972, 5335942, 8560445, 5536557, 2633244, 14330664, 10796361, 6974760, 9203236, 7109423, 9806152, 11451845, 5517610, 6974545, 5799083, 14334526, 9274183, 4351117, 14207163, 14409451, 12105641, 12560977, 4417868, 9676208, 6784840, 15512164, 4464132, 12176603, 7175038, 4021110, 11452006, 12884013, 14476532, 2505809, 6457008, 7770687, 10254964)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  181.  
  182.         Button(
  183.             Normal(Clip(51, 56, "artwork\pictbook\pict009.bmp", Operation(On, Resize(191, 146)))),
  184.             Highlight(Clip(51, 56, "artwork\pictbook\pict009.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  185.             Select(Clip(51, 56, "artwork\pictbook\pict009.bmp", Operation(On, Resize(191, 146))), Goto("pict009"))
  186.             );
  187.         
  188.         Button(
  189.             Normal(Clip(389, 56, "artwork\pictbook\pict010.bmp", Operation(On, Resize(191, 146)))),
  190.             Highlight(Clip(389, 56, "artwork\pictbook\pict010.bmp", Operation(On, Resize(191, 146))), Use("ShowClip")),
  191.             Select(Clip(389, 56, "artwork\pictbook\pict010.bmp", Operation(On, Resize(191, 146))), Goto("pict010"))
  192.             );
  193.         
  194.         Clip(13, 13, "artwork\pictbook\paper002.bmp");
  195.  
  196.         Button(
  197.             Normal(Clip(49, 29, "..\clips\scala\scala3.bmp")),
  198.             Select(Clip(49, 29, "..\clips\scala\scala3.bmp"), Use("Quit"))
  199.             );
  200.  
  201.         Text(48, 215, "The fjord district of West-^nern Norway offers some^nspectacular views. We had^na great time during our^nvisit last May, when the^napple trees were blooming.^nWe went skiing in the^nmountains, biking along^nthe fjords - with many", Face(On, Pen(4)), Shadow(Off, Pen(3)), Font("SGaramond", 23), Leading(2));
  202.         Text(385, 215, "pleasant surprises along^nthe way. We can recommend^nthe local ^"spekemat^" ,^nwhich is cured ham and^nmeat, and the Norwegian^naquavit!", Face(On, Pen(4)), Font("SGaramond", 23), Leading(2));
  203.  
  204.         Button(
  205.             Normal(Clip(-2, 449, "artwork\pictbook\arr2_l.bmp", Operation(On))),
  206.             Highlight(Clip(-2, 449, "artwork\pictbook\arr_l.bmp", Operation(On)), Use(WLeft)),
  207.             Select(Clip(-2, 449, "artwork\pictbook\arr_l.bmp", Operation(On)), Goto("Page 2"))
  208.             );
  209.         
  210.         Button(
  211.             Normal(Clip(604, 449, "artwork\pictbook\arr2_r.bmp", Operation(On))),
  212.             Highlight(Clip(604, 449, "artwork\pictbook\arr_r.bmp", Operation(On)), Use(WRight)),
  213.             Select(Clip(604, 449, "artwork\pictbook\arr_r.bmp", Operation(On)), Goto("End"))
  214.             );
  215.         Wait();
  216.       Sequence:
  217.       Resources:
  218.         :"Quit"
  219.         EVENT
  220.             Quit(1);
  221.         END
  222.     END
  223.  
  224.     :"FlushEvent.2"
  225.     EVENT
  226.     END
  227.  
  228.     :"End"
  229.     EVENT    
  230.       Group:
  231.         Display(Face(Pen(1)),Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  232.  
  233.         Clip(0, 0, "artwork\pictbook\book003.bmp", Operation(On, Resize(320, 480)));
  234.         Text(45, 376, "These pictures can be ordered from", Face(On, Pen(8)), Font("SFuturaB", 12));
  235.         Text(114, 393, "Fjord Norway", Face(On, Pen(8)), Font("SFuturaB", 12));
  236.         Text(90, 405, "P.O. Box 4108 Dreggen", Face(On, Pen(8)), Font("SFuturaB", 12), Kerning(None));
  237.         Text(111, 416, "N-5023 Bergen", Face(On, Pen(8)), Font("SFuturaB", 12));
  238.         Text(134, 427, "Norway", Face(On, Pen(8)), Font("SFuturaB", 12));
  239.         Clip(104, 242, "artwork\pictbook\logo.bmp", Bevel(On, Thickness(3), Left(Pen(8)), Right(Pen(7)), Top(Pen(8)), Bottom(Pen(7))), Operation(On, Resize(105, 128)));
  240.  
  241.         Button(
  242.             Normal(Clip(49, 29, "..\clips\scala\scala3.bmp")),
  243.             Select(Clip(49, 29, "..\clips\scala\scala3.bmp"), Use("Quit"))
  244.             );
  245.  
  246.         Button(
  247.             Normal(Clip(-2, 449, "artwork\pictbook\Front2_l.bmp", Operation(On))),
  248.             Highlight(Clip(-2, 449, "artwork\pictbook\Front_l.bmp", Operation(On)), Use(WLeft)),
  249.             Select(Clip(-2, 449, "artwork\pictbook\Front_l.bmp", Operation(On)), Goto("Page 3"))
  250.             );
  251.         Wait();
  252.       Sequence:
  253.       Resources:
  254.         :"Quit"
  255.         EVENT
  256.             Quit(1);
  257.         END
  258.     END
  259.  
  260.     :"FlushEvent.2b"
  261.     EVENT
  262.     END
  263.  
  264.     // Page 1 Clip 1
  265.  
  266.     :"pict001"
  267.     EVENT
  268.       Group:
  269.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  270.         Clip(33, 24, "artwork\pictbook\pict001.bmp", Operation(On, Resize(578, 427)));
  271.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  272.  
  273.         Button(
  274.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  275.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  276.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 1"))
  277.             );
  278.         Wait();
  279.         Return();
  280.       Sequence:
  281.     END
  282.  
  283.     :"FlushEvent.3"
  284.     EVENT
  285.     END
  286.  
  287.     // Page 1 Clip 2
  288.  
  289.     :"pict002"
  290.     EVENT
  291.       Group:
  292.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  293.         Clip(33, 24, "artwork\pictbook\pict002.bmp", Operation(On, Resize(578, 427)));
  294.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  295.         
  296.         Button(
  297.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  298.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  299.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 1"))
  300.             );
  301.         Wait();
  302.         Return();
  303.       Sequence:
  304.     END
  305.  
  306.     :"FlushEvent.4"
  307.     EVENT
  308.     END
  309.  
  310.     // Page 1 Clip 3
  311.  
  312.     :"pict003"
  313.     EVENT
  314.       Group:
  315.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  316.         Clip(33, 24, "artwork\pictbook\pict003.bmp", Operation(On, Resize(578, 427)));
  317.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  318.         
  319.         Button(
  320.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  321.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  322.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 1"))
  323.             );
  324.         Wait();
  325.         Return();
  326.       Sequence:
  327.     END
  328.  
  329.     :"FlushEvent.5"
  330.     EVENT
  331.     END
  332.  
  333.     // Page 1 Clip 4
  334.  
  335.     :"pict004"
  336.     EVENT
  337.       Group:
  338.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  339.         Clip(33, 24, "artwork\pictbook\pict004.bmp", Operation(On));
  340.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  341.  
  342.         Button(
  343.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  344.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  345.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 1"))
  346.             );
  347.         Wait();
  348.         Return();
  349.       Sequence:
  350.     END
  351.  
  352.     :"FlushEvent.6"
  353.     EVENT
  354.     END
  355.     
  356.     // Page 2 Clip 1
  357.  
  358.     :"pict005"
  359.     EVENT
  360.       Group:
  361.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  362.         Clip(33, 24, "artwork\pictbook\pict005.bmp", Operation(On, Resize(578, 427)));
  363.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  364.  
  365.         Button(
  366.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  367.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  368.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 2"))
  369.             );
  370.         Wait();
  371.         Return();
  372.       Sequence:
  373.     END
  374.  
  375.     :"FlushEvent.7"
  376.     EVENT
  377.     END
  378.  
  379.     // Page 2 Clip 2
  380.  
  381.     :"pict006"
  382.     EVENT
  383.       Group:
  384.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  385.         Clip(33, 24, "artwork\pictbook\pict006.bmp", Operation(On, Resize(578, 427)));
  386.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  387.         
  388.         Button(
  389.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  390.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  391.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 2"))
  392.             );
  393.         Wait();
  394.         Return();
  395.       Sequence:
  396.     END
  397.  
  398.     :"FlushEvent.8"
  399.     EVENT
  400.     END
  401.  
  402.     // Page 2 Clip 3
  403.  
  404.     :"pict007"
  405.     EVENT
  406.       Group:
  407.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  408.         Clip(33, 24, "artwork\pictbook\pict007.bmp", Operation(On, Resize(578, 427)));
  409.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  410.         
  411.         Button(
  412.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  413.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  414.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 2"))
  415.             );
  416.         Wait();
  417.         Return();
  418.       Sequence:
  419.     END
  420.  
  421.     :"FlushEvent.9"
  422.     EVENT
  423.     END
  424.  
  425.     // Page 2 Clip 4
  426.  
  427.     :"pict008"
  428.     EVENT
  429.       Group:
  430.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  431.         Clip(33, 24, "artwork\pictbook\pict008.bmp", Operation(On));
  432.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  433.  
  434.         Button(
  435.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  436.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  437.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 2"))
  438.             );
  439.         Wait();
  440.         Return();
  441.       Sequence:
  442.     END
  443.  
  444.     :"FlushEvent.10"
  445.     EVENT
  446.     END
  447.  
  448.     // Page 3 Clip 1
  449.  
  450.     :"pict009"
  451.     EVENT
  452.       Group:
  453.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  454.         Clip(33, 24, "artwork\pictbook\pict009.bmp", Operation(On));
  455.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  456.  
  457.         Button(
  458.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  459.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  460.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 3"))
  461.             );
  462.         Wait();
  463.         Return();
  464.       Sequence:
  465.     END
  466.  
  467.     :"FlushEvent.11"
  468.     EVENT
  469.     END
  470.  
  471.     // Page 3 Clip 2
  472.  
  473.     :"pict010"
  474.     EVENT
  475.       Group:
  476.         Display(Wipe(WipeType, Speed(3), Direction(Direct)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  477.         Clip(33, 24, "artwork\pictbook\pict010.bmp", Operation(On));
  478.         Clip(0, 0, "artwork\pictbook\book04.bmp");
  479.  
  480.         Button(
  481.             Normal(Clip(299, 455, "artwork\pictbook\back1.bmp", Operation(On))),
  482.             Highlight(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Use(ShowClip)),
  483.             Select(Clip(299, 455, "artwork\pictbook\back2.bmp", Operation(On)), Goto("Page 3"))
  484.             );
  485.         Wait();
  486.         Return();
  487.       Sequence:
  488.     END
  489.  
  490.     :"FlushEvent.12"
  491.     EVENT
  492.     END
  493.  
  494.   Resources:
  495.     :"ShowClip"
  496.     EVENT
  497.         Direct = 315;
  498.         WipeType = "DiagonalZooms";
  499.     END
  500.     
  501.     :"WLeft"
  502.     EVENT
  503.         Direct = 0;
  504.         WipeType = "FlipOver";
  505.     END
  506.  
  507.     :"WRight"
  508.     EVENT
  509.         Direct = 180;
  510.         WipeType = "FlipOver";
  511.     END
  512. END
  513.  
  514. // EB'96
  515.