home *** CD-ROM | disk | FTP | other *** search
/ Love Bytes / LoveBytes.bin / lb.z / garden.VRT / world.script < prev    next >
Encoding:
Text File  |  1997-11-21  |  162.2 KB  |  25,244 lines
  1. ;
  2. ; Script conversion of file GARDEN.WLD
  3. ;
  4. Type: WRLD
  5. Title: "\n\n\r"
  6.        "World file GARDEN.WLD revision 12\n\r"
  7.        "Saved from VRT version 5.00\n\r"
  8.        "\x1A"
  9. ;
  10. ;-------Layers------------------------------------------------------------
  11. ;
  12. Chunk: LayerNames
  13.  NumLayers: 2
  14.  Name:     "Default"
  15.  Name:     "System"
  16. End_Chunk
  17. ;
  18. ;-------Object    0-------------------------------------------------------
  19. ; 
  20. Chunk: Standard
  21.  Name:     "RootObject"
  22.  Number:   0
  23.  Size:     2147483647 2147483647 2147483647
  24.  Position: 0 0 0
  25.  Type:     65535
  26.  Layer:    0
  27.  DFlags:   E
  28. End_Chunk
  29. Chunk: ViewPoint
  30.  Number:    100
  31.  Subchunk
  32.   Number:  1
  33.   Type:    19
  34.   View:    3
  35.   Control: 2
  36.   Point:   0
  37.   Frames:  1
  38.   Position:  0 Frame:   0  Type: StraightMove Pos: 714 679 -392
  39.   Rotation:  0 Frame:   0 Type: Relative Offset: 0 20 0 Zoom: 0x2000
  40.  Subchunk
  41.   Number:  2
  42.   Type:    35
  43.   View:    0
  44.   Point:   0
  45.   Frames:  1
  46.   Position:  0 Frame:   0  Type: StraightMove Pos: 2016296 39986 1881656
  47.   Rotation:  0 Frame:   0 Type: Relative Offset: 6116 33100 0 Zoom: 0x2000
  48.  Subchunk
  49.   Number:  3
  50.   Type:    31
  51.   View:    127
  52.   Control: 128
  53.   Point:   0
  54.   Frames:  1
  55.   Position:  0 Frame:   0  Type: StraightMove Pos: 4941 22095 -6084
  56.   Rotation:  0 Frame:   0 Type: Relative Offset: 10033 65523 0 Zoom: 0x2000
  57.  Subchunk
  58.   Number:  4
  59.   Type:    35
  60.   View:    0
  61.   Point:   0
  62.   Frames:  1
  63.   Position:  0 Frame:   0  Type: StraightMove Pos: 2051206 25330 2059621
  64.   Rotation:  0 Frame:   0 Type: Relative Offset: 4792 34095 0 Zoom: 0x2000
  65.  Subchunk
  66.   Number:  5
  67.   Type:    35
  68.   View:    0
  69.   Point:   0
  70.   Frames:  500
  71.   Position:  0 Frame:   0  Type: CurveMove Pos: 2020807 18393 1810405
  72.   Position:  1 Frame:  49  Type: CurveMove Pos: 2015939 26612 1868727
  73.   Position:  2 Frame:  99  Type: CurveMove Pos: 2049001 6226 1933842
  74.   Position:  3 Frame: 149  Type: StraightMove Pos: 2036195 14257 1989871
  75.   Position:  4 Frame: 499  Type: StraightMove Pos: 2036195 14257 1989871
  76.   Rotation:  0 Frame:   0 Target: 99 Offset: 1499 1499 0 Zoom: 0x2000
  77.   Rotation:  1 Frame:  49 Target: 99 Offset: 1499 1499 0 Zoom: 0x2000
  78.   Rotation:  2 Frame:  99 Target: 99 Offset: 1499 1499 0 Zoom: 0x2000
  79.   Rotation:  3 Frame: 149 Type: Relative Offset: 65310 65363 0 Zoom: 0x1570
  80.   Rotation:  4 Frame: 499 Type: Relative Offset: 65310 65363 0 Zoom: 0x1570
  81.  Subchunk
  82.   Number:  6
  83.   Type:    35
  84.   View:    0
  85.   Point:   0
  86.   Frames:  1
  87.   Position:  0 Frame:   0  Type: StraightMove Pos: 2020807 18393 1810405
  88.   Rotation:  0 Frame:   0 Type: Relative Offset: 0 0 0 Zoom: 0x2000
  89. End_Chunk
  90. Chunk: Colours
  91.  Number: 6
  92.  0xCB 0x00 0x01 0xCB 0x00 0x01
  93. End_Chunk
  94. Chunk: LightSource
  95.  Brightness: 2048
  96.  Offset:     -724 1448 -1254
  97.  Rotation:   0x0000 0x0000 0x0000
  98.  BeamWidth:  0
  99.  Dispersion: 200
  100.  Colour:     0xFF 0xFF 0xFF
  101.  BeamEdge:   0
  102.  Flags:      pOo
  103. End_Chunk
  104.  
  105. Children:
  106. ;
  107. ;-------Object    1-------------------------------------------------------
  108. ; 
  109. Chunk: Standard
  110.  Name:     "Anchor"
  111.  Number:   1
  112.  Size:     20000 300 20000
  113.  Position: 2000000 0 2000000
  114.  Type:     0
  115.  Layer:    0
  116. End_Chunk
  117. ;
  118. ;-------Object    8-------------------------------------------------------
  119. ; 
  120. Chunk: Standard
  121.  Name:     "frontwall"
  122.  Number:   8
  123.  Size:     128066 76000 10000
  124.  Position: 1954000 0 1990000
  125.  Type:     0
  126.  Layer:    0
  127. End_Chunk
  128. Chunk: TexCoords
  129.  Number: 1
  130.  Mode:   0
  131.  SubChunk
  132.   Facet:     2
  133.   ImageRef:  1
  134.   PixScale:  0
  135.   NumCoords: 4
  136.     0.00000 0.00000
  137.     0.00000 1.00000
  138.     1.00000 1.00000
  139.     1.00000 0.00000
  140. End_Chunk
  141.  
  142. Chunk: ImageRef
  143.  Number: 1
  144.  Index: 1 Image: 6
  145. End_Chunk
  146. Chunk: Colours
  147.  Number: 6
  148.  0x77 0x76 0x77 0x76 0x75 0x75
  149. End_Chunk
  150. ;
  151. ;-------Object   68-------------------------------------------------------
  152. ; 
  153. Chunk: Standard
  154.  Name:     "floor[68]"
  155.  Number:   68
  156.  Size:     364456 1000 22200
  157.  Position: 1870910 0 1853600
  158.  Type:     5
  159.  Layer:    0
  160. End_Chunk
  161. Chunk: SCL
  162. short  T;
  163.  
  164.  
  165.  
  166. resume (1, 2);
  167.  
  168. if (first)
  169.  
  170. {
  171.  
  172.   share (80)=0;
  173.  
  174.   dlgIntro;
  175.  
  176.   while (1==aviState)
  177.  
  178.   {
  179.  
  180.     setvp (6);
  181.  
  182.     share (80)=1;
  183.  
  184.     waitf;
  185.  
  186.   }
  187.  
  188.   if (share (80))
  189.  
  190.   {
  191.  
  192.     setvp (5);
  193.  
  194.     waitfs (100);
  195.  
  196.     waitfs (50);
  197.  
  198.     menuLock (1);
  199.  
  200.     loadvrt ("living.vrt");
  201.  
  202.   }
  203.  
  204.   if (dlgLines==0)
  205.  
  206.     exitVis;
  207.  
  208. }
  209. end
  210. End_Chunk
  211. Chunk: Colours
  212.  Number: 1
  213.  0x35
  214. End_Chunk
  215. ;
  216. ;-------Object   69-------------------------------------------------------
  217. ; 
  218. Chunk: Standard
  219.  Name:     "floor[69]"
  220.  Number:   69
  221.  Size:     364456 1000 39000
  222.  Position: 1870910 0 1814600
  223.  Type:     5
  224.  Layer:    0
  225. End_Chunk
  226. Chunk: Colours
  227.  Number: 1
  228.  0x37
  229. End_Chunk
  230. ;
  231. ;-------Object   70-------------------------------------------------------
  232. ; 
  233. Chunk: Standard
  234.  Name:     "floor[70]"
  235.  Number:   70
  236.  Size:     364456 1000 22200
  237.  Position: 1870910 0 1792400
  238.  Type:     5
  239.  Layer:    0
  240. End_Chunk
  241. Chunk: SCL
  242. if (random (500)==1)
  243.  
  244. {
  245.  
  246.   if (vis? (#118) || vis? (#119) || vis? (#120))
  247.  
  248.     counter (26)=153;
  249.  
  250.   if (vis? (#116) || vis? (#117))
  251.  
  252.     counter (26)=table (random (3)) {126, 127, 128};
  253.  
  254.   if (vis? (#115) || vis? (#72))
  255.  
  256.     counter (26)=table (random (2)) {128, 127};
  257.  
  258. }
  259. end
  260. End_Chunk
  261. Chunk: Colours
  262.  Number: 1
  263.  0x35
  264. End_Chunk
  265. ;
  266. ;-------Object   71-------------------------------------------------------
  267. ; 
  268. Chunk: Standard
  269.  Name:     "floor[71]"
  270.  Number:   71
  271.  Size:     97456 91000 22200
  272.  Position: 2135910 0 1770200
  273.  Type:     2
  274.  Layer:    0
  275. End_Chunk
  276. Chunk: TexCoords
  277.  Number: 1
  278.  Mode:   0
  279.  SubChunk
  280.   Facet:     1
  281.   ImageRef:  1
  282.   PixScale:  0
  283.   NumCoords: 4
  284.     0.00000 0.00000
  285.     0.00000 1.00000
  286.     1.00000 1.00000
  287.     1.00000 0.00000
  288. End_Chunk
  289.  
  290. Chunk: ImageRef
  291.  Number: 1
  292.  Index: 1 Image: 27
  293. End_Chunk
  294. Chunk: Colours
  295.  Number: 1
  296.  0x26
  297. End_Chunk
  298. ;
  299. ;-------Object    4-------------------------------------------------------
  300. ; 
  301. Chunk: Standard
  302.  Name:     "floor"
  303.  Number:   4
  304.  Size:     96356 1000 114200
  305.  Position: 1969910 0 1875800
  306.  Type:     7
  307.  Layer:    0
  308. End_Chunk
  309. Chunk: TexCoords
  310.  Number: 1
  311.  Mode:   0
  312.  SubChunk
  313.   Facet:     1
  314.   ImageRef:  1
  315.   PixScale:  0
  316.   NumCoords: 4
  317.     0.00000 0.00000
  318.     0.00000 1.00000
  319.     1.00000 1.00000
  320.     1.00000 0.00000
  321. End_Chunk
  322. Chunk: SCL
  323. objnum O;
  324.  
  325. short  Select;
  326.  
  327. long   Weed=60000, Grass=60000;
  328.  
  329. short  Seeds, WKill;
  330.  
  331.  
  332.  
  333. resume (1, 2);
  334.  
  335. if (first)
  336.  
  337.   ranseed (vrtime);
  338.  
  339. if (share (1)==27 && mouseb)
  340.  
  341.   counter (1)=1;
  342.  
  343. if (share (1)==26)
  344.  
  345. {
  346.  
  347.   Select=2;
  348.  
  349.   if (Seeds<=0)
  350.  
  351.     Seeds=5;
  352.  
  353. }
  354.  
  355. if (share (1)!=27 && share (1)!=26)
  356.  
  357.   Select=0;
  358.  
  359. if (share (1)==27)
  360.  
  361. {
  362.  
  363.   if (Select!=1)
  364.  
  365.     WKill=8;
  366.  
  367.   Select=1;
  368.  
  369.   while (!mouseb)
  370.  
  371.     waitf;
  372.  
  373.   while (mouseb)
  374.  
  375.     waitf;
  376.  
  377.   --WKill;
  378.  
  379.   if (WKill<=0)
  380.  
  381.   {
  382.  
  383.     useObj (share (1));
  384.  
  385.     Select=0;
  386.  
  387.   }
  388.  
  389. }
  390.  
  391. if (activate (me, 0) && Select==2 && Facet>1)
  392.  
  393. {
  394.  
  395.   O=object (table (Facet) {0, 0, 52, 43, 42, 41, 40, 39, 51, 50, 
  396.  
  397.       49, 48, 47, 46, 45, 44, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 32, 
  398.  
  399.       33, 34, 23, 35, 36, 22, 37, 38, 21});
  400.  
  401.   if (!vis? (O))
  402.  
  403.   {
  404.  
  405.     settrig (13, O);
  406.  
  407.     waitf;
  408.  
  409.     xrot (O)=0;
  410.  
  411.     vis (O);
  412.  
  413.     timgref (O, 1)=1;
  414.  
  415.     waitfs (10);
  416.  
  417.     timgref (O, 1)=2;
  418.  
  419.     waitfs (10);
  420.  
  421.     timgref (O, 1)=3;
  422.  
  423.   }
  424.  
  425.   counter (30)=1;
  426.  
  427.   --Seeds;
  428.  
  429.   if (Seeds==0)
  430.  
  431.   {
  432.  
  433.     useObj (share (1));
  434.  
  435.     Select=0;
  436.  
  437.   }
  438.  
  439.   clrtrig (me, 0);
  440.  
  441. }
  442. end
  443. End_Chunk
  444.  
  445. Chunk: ImageRef
  446.  Number: 1
  447.  Index: 1 Image: 1
  448. End_Chunk
  449. ;
  450. ;-------Object   83-------------------------------------------------------
  451. ; 
  452. Chunk: Standard
  453.  Name:     "frontwall[83]"
  454.  Number:   83
  455.  Size:     139000 50000 44000
  456.  Position: 1949000 76000 1984000
  457.  Type:     9
  458.  Layer:    0
  459. End_Chunk
  460. Chunk: TexCoords
  461.  Number: 4
  462.  Mode:   0
  463.  SubChunk
  464.   Facet:     1
  465.   ImageRef:  1
  466.   PixScale:  0
  467.   NumCoords: 4
  468.     0.00000 0.00000
  469.     0.00000 1.00000
  470.     1.00000 1.00000
  471.     1.00000 0.00000
  472.  SubChunk
  473.   Facet:     3
  474.   ImageRef:  2
  475.   PixScale:  0
  476.   NumCoords: 4
  477.     0.00000 0.00000
  478.     0.00000 1.00000
  479.     1.00000 1.00000
  480.     1.00000 0.00000
  481.  SubChunk
  482.   Facet:     2
  483.   ImageRef:  3
  484.   PixScale:  0
  485.   NumCoords: 4
  486.     0.00000 0.00000
  487.     0.00000 1.00000
  488.     1.00000 1.00000
  489.     1.00000 0.29418
  490.  SubChunk
  491.   Facet:     4
  492.   ImageRef:  4
  493.   PixScale:  0
  494.   NumCoords: 4
  495.     0.00000 0.00000
  496.     0.00000 1.00000
  497.     1.00000 1.00000
  498.     0.70582 0.00000
  499. End_Chunk
  500.  
  501. Chunk: ImageRef
  502.  Number: 4
  503.  Index: 1 Image: 5
  504.  Index: 2 Image: 19
  505.  Index: 3 Image: 23
  506.  Index: 4 Image: 24
  507. End_Chunk
  508. Chunk: Colours
  509.  Number: 6
  510.  0x20 0x21 0x22 0x23 0x24 0x01
  511. End_Chunk
  512. ;
  513. ;-------Object    5-------------------------------------------------------
  514. ; 
  515. Chunk: Standard
  516.  Name:     "leftwall"
  517.  Number:   5
  518.  Size:     10000 31000 114200
  519.  Position: 1959910 0 1875800
  520.  Type:     0
  521.  Layer:    0
  522. End_Chunk
  523. Chunk: TexCoords
  524.  Number: 1
  525.  Mode:   0
  526.  SubChunk
  527.   Facet:     3
  528.   ImageRef:  1
  529.   PixScale:  0
  530.   NumCoords: 4
  531.     0.00000 0.00000
  532.     0.00000 1.00000
  533.     1.00000 1.00000
  534.     1.00000 0.00000
  535. End_Chunk
  536.  
  537. Chunk: ImageRef
  538.  Number: 1
  539.  Index: 1 Image: 3
  540. End_Chunk
  541. Chunk: Colours
  542.  Number: 6
  543.  0x00 0x17 0x77 0x76 0x00 0x75
  544. End_Chunk
  545. ;
  546. ;-------Object   90-------------------------------------------------------
  547. ; 
  548. Chunk: Standard
  549.  Name:     "chimney[90]"
  550.  Number:   90
  551.  Size:     8000 5000 8000
  552.  Position: 2052913 126000 2004090
  553.  Type:     11
  554.  Layer:    0
  555. End_Chunk
  556. ;
  557. ;-------Object   89-------------------------------------------------------
  558. ; 
  559. Chunk: Standard
  560.  Name:     "chimney"
  561.  Number:   89
  562.  Size:     8000 5000 8000
  563.  Position: 2040913 126000 2004090
  564.  Type:     11
  565.  Layer:    0
  566. End_Chunk
  567. ;
  568. ;-------Object   13-------------------------------------------------------
  569. ; 
  570. Chunk: Standard
  571.  Name:     "rightwall[13]"
  572.  Number:   13
  573.  Size:     33356 30000 10000
  574.  Position: 1969910 1000 1866800
  575.  Type:     0
  576.  Layer:    0
  577. End_Chunk
  578. Chunk: TexCoords
  579.  Number: 3
  580.  Mode:   0
  581.  SubChunk
  582.   Facet:     3
  583.   ImageRef:  1
  584.   PixScale:  0
  585.   NumCoords: 4
  586.     0.00000 0.00000
  587.     0.00000 1.00000
  588.     1.00000 1.00000
  589.     1.00000 0.00000
  590.  SubChunk
  591.   Facet:     4
  592.   ImageRef:  2
  593.   PixScale:  0
  594.   NumCoords: 4
  595.     0.00000 0.00000
  596.     0.00000 1.00000
  597.     1.00000 1.00000
  598.     1.00000 0.00000
  599.  SubChunk
  600.   Facet:     2
  601.   ImageRef:  2
  602.   PixScale:  0
  603.   NumCoords: 4
  604.     0.00000 0.00000
  605.     0.00000 1.00000
  606.     1.00000 1.00000
  607.     1.00000 0.00000
  608. End_Chunk
  609.  
  610. Chunk: ImageRef
  611.  Number: 2
  612.  Index: 1 Image: 29
  613.  Index: 2 Image: 28
  614. End_Chunk
  615. Chunk: Colours
  616.  Number: 6
  617.  0x77 0x76 0x4B 0x76 0x17 0x75
  618. End_Chunk
  619. ;
  620. ;-------Object   91-------------------------------------------------------
  621. ; 
  622. Chunk: Standard
  623.  Name:     "chimney[91]"
  624.  Number:   91
  625.  Size:     4300 4000 4500
  626.  Position: 2036913 1000 1877300
  627.  Type:     0
  628.  Layer:    0
  629. End_Chunk
  630. Chunk: TexCoords
  631.  Number: 1
  632.  Mode:   0
  633.  SubChunk
  634.   Facet:     5
  635.   ImageRef:  1
  636.   PixScale:  0
  637.   NumCoords: 4
  638.     0.00000 0.00000
  639.     0.00000 1.00000
  640.     1.00000 1.00000
  641.     1.00000 0.00000
  642. End_Chunk
  643. Chunk: SCL
  644. resume (1, 2);
  645.  
  646. if (activate (me, 0) && #4.Select==2)
  647.  
  648. {
  649.  
  650.   if (!vis? (#19))
  651.  
  652.   {
  653.  
  654.     settrig (13, #19);
  655.  
  656.     waitf;
  657.  
  658.     xrot (#19)=0;
  659.  
  660.     vis (#19);
  661.  
  662.     timgref (#19, 1)=1;
  663.  
  664.     waitfs (10);
  665.  
  666.     timgref (#19, 1)=2;
  667.  
  668.     waitfs (10);
  669.  
  670.     timgref (#19, 1)=3;
  671.  
  672.   }
  673.  
  674.   clrtrig (me, 0);
  675.  
  676. }
  677. end
  678. End_Chunk
  679. Chunk: Colours
  680.  Number: 6
  681.  0x15 0x76 0x15 0x1F 0x75 0x75
  682. End_Chunk
  683.  
  684. Chunk: ImageRef
  685.  Number: 1
  686.  Index: 1 Image: 11
  687. End_Chunk
  688. ;
  689. ;-------Object   92-------------------------------------------------------
  690. ; 
  691. Chunk: Standard
  692.  Name:     "chimney[92]"
  693.  Number:   92
  694.  Size:     4600 4000 4300
  695.  Position: 1999013 1000 1877200
  696.  Type:     0
  697.  Layer:    0
  698. End_Chunk
  699. Chunk: TexCoords
  700.  Number: 1
  701.  Mode:   0
  702.  SubChunk
  703.   Facet:     5
  704.   ImageRef:  1
  705.   PixScale:  0
  706.   NumCoords: 4
  707.     0.00000 0.00000
  708.     0.00000 1.00000
  709.     1.00000 1.00000
  710.     1.00000 0.00000
  711. End_Chunk
  712. Chunk: SCL
  713. resume (1, 2);
  714.  
  715. if (activate (me, 0) && #4.Select==2)
  716.  
  717. {
  718.  
  719.   if (!vis? (#20))
  720.  
  721.   {
  722.  
  723.     settrig (13, #20);
  724.  
  725.     waitf;
  726.  
  727.     xrot (#20)=0;
  728.  
  729.     vis (#20);
  730.  
  731.     timgref (#20, 1)=1;
  732.  
  733.     waitfs (10);
  734.  
  735.     timgref (#20, 1)=2;
  736.  
  737.     waitfs (10);
  738.  
  739.     timgref (#20, 1)=3;
  740.  
  741.   }
  742.  
  743.   clrtrig (me, 0);
  744.  
  745. }
  746. end
  747. End_Chunk
  748. Chunk: Colours
  749.  Number: 6
  750.  0x15 0x76 0x15 0x1F 0x75 0x75
  751. End_Chunk
  752.  
  753. Chunk: ImageRef
  754.  Number: 1
  755.  Index: 1 Image: 11
  756. End_Chunk
  757. ;
  758. ;-------Object   78-------------------------------------------------------
  759. ; 
  760. Chunk: Standard
  761.  Name:     "backwall[78]"
  762.  Number:   78
  763.  Size:     29644 14000 500
  764.  Position: 2003266 1000 1876300
  765.  Type:     0
  766.  Layer:    0
  767. End_Chunk
  768. Chunk: TexCoords
  769.  Number: 2
  770.  Mode:   0
  771.  SubChunk
  772.   Facet:     4
  773.   ImageRef:  1
  774.   PixScale:  0
  775.   NumCoords: 4
  776.     0.00000 0.00000
  777.     0.00000 1.00000
  778.     1.00000 1.00000
  779.     1.00000 0.00000
  780.  SubChunk
  781.   Facet:     2
  782.   ImageRef:  1
  783.   PixScale:  0
  784.   NumCoords: 4
  785.     0.00000 0.00000
  786.     0.00000 1.00000
  787.     1.00000 1.00000
  788.     1.00000 0.00000
  789. End_Chunk
  790. Chunk: Colours
  791.  Number: 6
  792.  0x77 0x76 0x77 0x76 0x00 0x00
  793. End_Chunk
  794.  
  795. Chunk: ImageRef
  796.  Number: 1
  797.  Index: 1 Image: 20
  798. End_Chunk
  799. ;
  800. ;-------Object  114-------------------------------------------------------
  801. ; 
  802. Chunk: Standard
  803.  Name:     "backwall[114]"
  804.  Number:   114
  805.  Size:     29644 30000 500
  806.  Position: 2003266 1000 1876300
  807.  Type:     65535
  808.  Layer:    0
  809. End_Chunk
  810. ;
  811. ;-------Object    7-------------------------------------------------------
  812. ; 
  813. Chunk: Standard
  814.  Name:     "rightwall[7]"
  815.  Number:   7
  816.  Size:     33356 30000 8000
  817.  Position: 2032910 1000 1868800
  818.  Type:     0
  819.  Layer:    0
  820. End_Chunk
  821. Chunk: TexCoords
  822.  Number: 3
  823.  Mode:   0
  824.  SubChunk
  825.   Facet:     4
  826.   ImageRef:  1
  827.   PixScale:  0
  828.   NumCoords: 4
  829.     0.00000 0.00000
  830.     0.00000 1.00000
  831.     1.00000 1.00000
  832.     1.00000 0.00000
  833.  SubChunk
  834.   Facet:     2
  835.   ImageRef:  1
  836.   PixScale:  0
  837.   NumCoords: 4
  838.     0.00000 0.00000
  839.     0.00000 1.00000
  840.     1.00000 1.00000
  841.     1.00000 0.00000
  842.  SubChunk
  843.   Facet:     1
  844.   ImageRef:  2
  845.   PixScale:  0
  846.   NumCoords: 4
  847.     0.00000 0.00000
  848.     0.00000 1.00000
  849.     1.00000 1.00000
  850.     1.00000 0.00000
  851. End_Chunk
  852.  
  853. Chunk: ImageRef
  854.  Number: 2
  855.  Index: 1 Image: 28
  856.  Index: 2 Image: 29
  857. End_Chunk
  858. Chunk: Colours
  859.  Number: 6
  860.  0x77 0x76 0x00 0x76 0x17 0x75
  861. End_Chunk
  862. ;
  863. ;-------Object  113-------------------------------------------------------
  864. ; 
  865. Chunk: Standard
  866.  Name:     "rightwall[113]"
  867.  Number:   113
  868.  Size:     106266 0 121200
  869.  Position: 1960000 31000 1868800
  870.  Type:     65535
  871.  Layer:    0
  872. End_Chunk
  873. ;
  874. ;-------Object   12-------------------------------------------------------
  875. ; 
  876. Chunk: Standard
  877.  Name:     "floor[12]"
  878.  Number:   12
  879.  Size:     97456 91000 22200
  880.  Position: 2038454 0 1770200
  881.  Type:     2
  882.  Layer:    0
  883. End_Chunk
  884. Chunk: TexCoords
  885.  Number: 1
  886.  Mode:   0
  887.  SubChunk
  888.   Facet:     1
  889.   ImageRef:  1
  890.   PixScale:  0
  891.   NumCoords: 4
  892.     0.00000 0.00000
  893.     0.00000 1.00000
  894.     1.00000 1.00000
  895.     1.00000 0.00000
  896. End_Chunk
  897.  
  898. Chunk: ImageRef
  899.  Number: 1
  900.  Index: 1 Image: 27
  901. End_Chunk
  902. Chunk: Colours
  903.  Number: 1
  904.  0x26
  905. End_Chunk
  906. ;
  907. ;-------Object   14-------------------------------------------------------
  908. ; 
  909. Chunk: Standard
  910.  Name:     "floor[14]"
  911.  Number:   14
  912.  Size:     97456 91000 22200
  913.  Position: 1940998 0 1770200
  914.  Type:     2
  915.  Layer:    0
  916. End_Chunk
  917. Chunk: TexCoords
  918.  Number: 1
  919.  Mode:   0
  920.  SubChunk
  921.   Facet:     1
  922.   ImageRef:  1
  923.   PixScale:  0
  924.   NumCoords: 4
  925.     0.00000 0.00000
  926.     0.00000 1.00000
  927.     1.00000 1.00000
  928.     1.00000 0.00000
  929. End_Chunk
  930.  
  931. Chunk: ImageRef
  932.  Number: 1
  933.  Index: 1 Image: 27
  934. End_Chunk
  935. Chunk: Colours
  936.  Number: 1
  937.  0x26
  938. End_Chunk
  939. ;
  940. ;-------Object   15-------------------------------------------------------
  941. ; 
  942. Chunk: Standard
  943.  Name:     "floor[15]"
  944.  Number:   15
  945.  Size:     97456 91000 22200
  946.  Position: 1843542 0 1770200
  947.  Type:     2
  948.  Layer:    0
  949. End_Chunk
  950. Chunk: TexCoords
  951.  Number: 1
  952.  Mode:   0
  953.  SubChunk
  954.   Facet:     1
  955.   ImageRef:  1
  956.   PixScale:  0
  957.   NumCoords: 4
  958.     0.00000 0.00000
  959.     0.00000 1.00000
  960.     1.00000 1.00000
  961.     1.00000 0.00000
  962. End_Chunk
  963.  
  964. Chunk: ImageRef
  965.  Number: 1
  966.  Index: 1 Image: 27
  967. End_Chunk
  968. Chunk: Colours
  969.  Number: 1
  970.  0x26
  971. End_Chunk
  972. ;
  973. ;-------Object   81-------------------------------------------------------
  974. ; 
  975. Chunk: Standard
  976.  Name:     "frontwall[81]"
  977.  Number:   81
  978.  Size:     45000 18000 0
  979.  Position: 1979000 14000 1989900
  980.  Type:     0
  981.  Layer:    0
  982. End_Chunk
  983. Chunk: TexCoords
  984.  Number: 1
  985.  Mode:   0
  986.  SubChunk
  987.   Facet:     2
  988.   ImageRef:  1
  989.   PixScale:  0
  990.   NumCoords: 4
  991.     0.00000 0.00000
  992.     0.00000 1.00000
  993.     1.00000 1.00000
  994.     1.00000 0.00000
  995. End_Chunk
  996.  
  997. Chunk: ImageRef
  998.  Number: 1
  999.  Index: 1 Image: 8
  1000. End_Chunk
  1001. Chunk: Colours
  1002.  Number: 6
  1003.  0x77 0xAA 0x77 0x76 0x75 0x75
  1004. End_Chunk
  1005. ;
  1006. ;-------Object   17-------------------------------------------------------
  1007. ; 
  1008. Chunk: Standard
  1009.  Name:     "leftwall[17]"
  1010.  Number:   17
  1011.  Size:     0 61000 64200
  1012.  Position: 2124910 0 1935800
  1013.  Type:     0
  1014.  Layer:    0
  1015.  DFlags:   r
  1016. End_Chunk
  1017. Chunk: TexCoords
  1018.  Number: 1
  1019.  Mode:   0
  1020.  SubChunk
  1021.   Facet:     3
  1022.   ImageRef:  1
  1023.   PixScale:  0
  1024.   NumCoords: 4
  1025.     0.00000 0.00000
  1026.     0.00000 1.00000
  1027.     1.00000 1.00000
  1028.     1.00000 0.00000
  1029. End_Chunk
  1030. Chunk: Rotations
  1031.  Initial: 0x0000 0xFFFF8000 0x0000
  1032.  Centre:  0 30500 32100
  1033. End_Chunk
  1034.  
  1035. Chunk: ImageRef
  1036.  Number: 1
  1037.  Index: 1 Image: 26
  1038. End_Chunk
  1039. Chunk: Colours
  1040.  Number: 6
  1041.  0x00 0x76 0x77 0x76 0x00 0x75
  1042. End_Chunk
  1043. ;
  1044. ;-------Object   16-------------------------------------------------------
  1045. ; 
  1046. Chunk: Standard
  1047.  Name:     "leftwall[16]"
  1048.  Number:   16
  1049.  Size:     0 61000 64200
  1050.  Position: 2094910 0 1885800
  1051.  Type:     0
  1052.  Layer:    0
  1053.  DFlags:   r
  1054. End_Chunk
  1055. Chunk: TexCoords
  1056.  Number: 1
  1057.  Mode:   0
  1058.  SubChunk
  1059.   Facet:     3
  1060.   ImageRef:  1
  1061.   PixScale:  0
  1062.   NumCoords: 4
  1063.     0.00000 0.00000
  1064.     0.00000 1.00000
  1065.     1.00000 1.00000
  1066.     1.00000 0.00000
  1067. End_Chunk
  1068. Chunk: Rotations
  1069.  Initial: 0x0000 0xFFFF8000 0x0000
  1070.  Centre:  0 30500 32100
  1071. End_Chunk
  1072.  
  1073. Chunk: ImageRef
  1074.  Number: 1
  1075.  Index: 1 Image: 26
  1076. End_Chunk
  1077. Chunk: Colours
  1078.  Number: 6
  1079.  0x00 0x76 0x77 0x76 0x00 0x75
  1080. End_Chunk
  1081. ;
  1082. ;-------Object    9-------------------------------------------------------
  1083. ; 
  1084. Chunk: Standard
  1085.  Name:     "leftwall[9]"
  1086.  Number:   9
  1087.  Size:     0 61000 64200
  1088.  Position: 1919910 0 1935800
  1089.  Type:     0
  1090.  Layer:    0
  1091. End_Chunk
  1092. Chunk: TexCoords
  1093.  Number: 1
  1094.  Mode:   0
  1095.  SubChunk
  1096.   Facet:     3
  1097.   ImageRef:  1
  1098.   PixScale:  0
  1099.   NumCoords: 4
  1100.     0.00000 0.00000
  1101.     0.00000 1.00000
  1102.     1.00000 1.00000
  1103.     1.00000 0.00000
  1104. End_Chunk
  1105.  
  1106. Chunk: ImageRef
  1107.  Number: 1
  1108.  Index: 1 Image: 26
  1109. End_Chunk
  1110. Chunk: Colours
  1111.  Number: 6
  1112.  0x00 0x76 0x77 0x76 0x00 0x75
  1113. End_Chunk
  1114. ;
  1115. ;-------Object   10-------------------------------------------------------
  1116. ; 
  1117. Chunk: Standard
  1118.  Name:     "leftwall[10]"
  1119.  Number:   10
  1120.  Size:     0 61000 64200
  1121.  Position: 1929910 0 1875800
  1122.  Type:     0
  1123.  Layer:    0
  1124. End_Chunk
  1125. Chunk: TexCoords
  1126.  Number: 1
  1127.  Mode:   0
  1128.  SubChunk
  1129.   Facet:     3
  1130.   ImageRef:  1
  1131.   PixScale:  0
  1132.   NumCoords: 4
  1133.     0.00000 0.00000
  1134.     0.00000 1.00000
  1135.     1.00000 1.00000
  1136.     1.00000 0.00000
  1137. End_Chunk
  1138.  
  1139. Chunk: ImageRef
  1140.  Number: 1
  1141.  Index: 1 Image: 26
  1142. End_Chunk
  1143. Chunk: Colours
  1144.  Number: 6
  1145.  0x00 0x76 0x77 0x76 0x00 0x75
  1146. End_Chunk
  1147. ;
  1148. ;-------Object   11-------------------------------------------------------
  1149. ; 
  1150. Chunk: Standard
  1151.  Name:     "leftwall[11]"
  1152.  Number:   11
  1153.  Size:     0 61000 64200
  1154.  Position: 1919910 0 1815800
  1155.  Type:     0
  1156.  Layer:    0
  1157. End_Chunk
  1158. Chunk: TexCoords
  1159.  Number: 1
  1160.  Mode:   0
  1161.  SubChunk
  1162.   Facet:     3
  1163.   ImageRef:  1
  1164.   PixScale:  0
  1165.   NumCoords: 4
  1166.     0.00000 0.00000
  1167.     0.00000 1.00000
  1168.     -1.00000 1.00000
  1169.     -1.00000 0.00000
  1170. End_Chunk
  1171.  
  1172. Chunk: ImageRef
  1173.  Number: 1
  1174.  Index: 1 Image: 26
  1175. End_Chunk
  1176. Chunk: Colours
  1177.  Number: 6
  1178.  0x00 0x76 0x77 0x76 0x00 0x75
  1179. End_Chunk
  1180. ;
  1181. ;-------Object   19-------------------------------------------------------
  1182. ; 
  1183. Chunk: Standard
  1184.  Name:     "chimney[19]"
  1185.  Number:   19
  1186.  Size:     3300 6000 0
  1187.  Position: 2036913 5000 1880800
  1188.  Type:     18
  1189.  Layer:    0
  1190.  DFlags:   r
  1191.  OFlags:   Ii
  1192. End_Chunk
  1193. Chunk: TexCoords
  1194.  Number: 1
  1195.  Mode:   0
  1196.  SubChunk
  1197.   Facet:     1
  1198.   ImageRef:  1
  1199.   PixScale:  0
  1200.   NumCoords: 4
  1201.     0.00000 0.00000
  1202.     0.00000 1.00000
  1203.     1.00000 1.00000
  1204.     1.00000 0.00000
  1205. End_Chunk
  1206. Chunk: Rotations
  1207.  Initial: 0x0000 0xFFFF8000 0x0000
  1208.  Centre:  1650 0 0
  1209. End_Chunk
  1210. Chunk: InitSize
  1211.  Size: 3300 6000 0
  1212. End_Chunk
  1213.  
  1214. Chunk: SoundRef
  1215.  Number: 1
  1216.  Index: 1 Sound: 1
  1217. End_Chunk
  1218. Chunk: SCL
  1219. long   Temp;
  1220.  
  1221.  
  1222.  
  1223. resume (1, 2);
  1224.  
  1225. if (first)
  1226.  
  1227. {
  1228.  
  1229.   regGetN ("flower26", &Temp);
  1230.  
  1231.   if (Temp)
  1232.  
  1233.   {
  1234.  
  1235.     vis (me);
  1236.  
  1237.     timgref (me, 1)=3;
  1238.  
  1239.   }
  1240.  
  1241. }
  1242.  
  1243. if (activate (me, 13) && !vis? (me))
  1244.  
  1245.   regPutN ("flower26", 1);
  1246.  
  1247. if (activate (me, 0) && #4.Select==1)
  1248.  
  1249. {
  1250.  
  1251.   regPutN ("flower26", 0);
  1252.  
  1253.   sound (1, 64, 127, 0);
  1254.  
  1255.   repeat (10)
  1256.  
  1257.   {
  1258.  
  1259.     xrot (me)-=9;
  1260.  
  1261.     waitf;
  1262.  
  1263.   }
  1264.  
  1265.   invis (me);
  1266.  
  1267.   clrtrig (me, 0);
  1268.  
  1269. }
  1270. end
  1271. End_Chunk
  1272.  
  1273. Chunk: ImageRef
  1274.  Number: 3
  1275.  Index: 1 Image: 32
  1276.  Index: 2 Image: 37
  1277.  Index: 3 Image: 21
  1278. End_Chunk
  1279. ;
  1280. ;-------Object   20-------------------------------------------------------
  1281. ; 
  1282. Chunk: Standard
  1283.  Name:     "chimney[20]"
  1284.  Number:   20
  1285.  Size:     3300 6000 0
  1286.  Position: 1999913 5000 1880800
  1287.  Type:     18
  1288.  Layer:    0
  1289.  DFlags:   r
  1290.  OFlags:   Ii
  1291. End_Chunk
  1292. Chunk: TexCoords
  1293.  Number: 1
  1294.  Mode:   0
  1295.  SubChunk
  1296.   Facet:     1
  1297.   ImageRef:  1
  1298.   PixScale:  0
  1299.   NumCoords: 4
  1300.     0.00000 0.00000
  1301.     0.00000 1.00000
  1302.     1.00000 1.00000
  1303.     1.00000 0.00000
  1304. End_Chunk
  1305. Chunk: Rotations
  1306.  Initial: 0x0000 0xFFFF8000 0x0000
  1307.  Centre:  1650 0 0
  1308. End_Chunk
  1309. Chunk: InitSize
  1310.  Size: 3300 6000 0
  1311. End_Chunk
  1312.  
  1313. Chunk: SoundRef
  1314.  Number: 1
  1315.  Index: 1 Sound: 1
  1316. End_Chunk
  1317. Chunk: SCL
  1318. long   Temp;
  1319.  
  1320.  
  1321.  
  1322. resume (1, 2);
  1323.  
  1324. if (first)
  1325.  
  1326. {
  1327.  
  1328.   regGetN ("flower27", &Temp);
  1329.  
  1330.   if (Temp)
  1331.  
  1332.   {
  1333.  
  1334.     vis (me);
  1335.  
  1336.     timgref (me, 1)=3;
  1337.  
  1338.   }
  1339.  
  1340. }
  1341.  
  1342. if (activate (me, 13) && !vis? (me))
  1343.  
  1344.   regPutN ("flower27", 1);
  1345.  
  1346. if (activate (me, 0) && #4.Select==1)
  1347.  
  1348. {
  1349.  
  1350.   regPutN ("flower27", 0);
  1351.  
  1352.   sound (1, 64, 127, 0);
  1353.  
  1354.   repeat (10)
  1355.  
  1356.   {
  1357.  
  1358.     xrot (me)-=9;
  1359.  
  1360.     waitf;
  1361.  
  1362.   }
  1363.  
  1364.   invis (me);
  1365.  
  1366.   clrtrig (me, 0);
  1367.  
  1368. }
  1369. end
  1370. End_Chunk
  1371.  
  1372. Chunk: ImageRef
  1373.  Number: 3
  1374.  Index: 1 Image: 32
  1375.  Index: 2 Image: 37
  1376.  Index: 3 Image: 21
  1377. End_Chunk
  1378. ;
  1379. ;-------Object   25-------------------------------------------------------
  1380. ; 
  1381. Chunk: Standard
  1382.  Name:     "chimney[25]"
  1383.  Number:   25
  1384.  Size:     6300 5000 0
  1385.  Position: 2044913 1000 1900800
  1386.  Type:     18
  1387.  Layer:    0
  1388.  DFlags:   E
  1389.  OFlags:   Ii
  1390. End_Chunk
  1391. Chunk: TexCoords
  1392.  Number: 1
  1393.  Mode:   0
  1394.  SubChunk
  1395.   Facet:     1
  1396.   ImageRef:  1
  1397.   PixScale:  0
  1398.   NumCoords: 4
  1399.     0.00000 0.00000
  1400.     0.00000 1.00000
  1401.     1.00000 1.00000
  1402.     1.00000 0.00000
  1403. End_Chunk
  1404. Chunk: Sorting
  1405.  Offset: 0 0 -3000
  1406.  Size:   6300 0 6300
  1407. End_Chunk
  1408. Chunk: InitSize
  1409.  Size: 6300 5000 0
  1410. End_Chunk
  1411. Chunk: SCL
  1412. long   Temp, X, Z, X2, Z2;
  1413.  
  1414.  
  1415.  
  1416. yrot (me)=359-yvroff+yrot (object (vattach));
  1417.  
  1418. resume (1, 2);
  1419.  
  1420. if (first)
  1421.  
  1422. {
  1423.  
  1424.   regGetN ("grass12", &Temp);
  1425.  
  1426.   if (Temp)
  1427.  
  1428.     vis (me);
  1429.  
  1430. }
  1431.  
  1432. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  1433.  
  1434. {
  1435.  
  1436.   vis (me);
  1437.  
  1438.   ysize (me)=0;
  1439.  
  1440.   repeat (50)
  1441.  
  1442.   {
  1443.  
  1444.     ysize (me)+=100;
  1445.  
  1446.     waitf;
  1447.  
  1448.   }
  1449.  
  1450.   regPutN ("grass12", 1);
  1451.  
  1452.   counter (30)=1;
  1453.  
  1454. }
  1455.  
  1456. if (getvp==3)
  1457.  
  1458. {
  1459.  
  1460.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  1461.  
  1462.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  1463.  
  1464.   if (abs (X-X2)+abs (Z-Z2)<10000)
  1465.  
  1466.   {
  1467.  
  1468.     regPutN ("grass12", 0);
  1469.  
  1470.     invis (me);
  1471.  
  1472.     counter (30)=1;
  1473.  
  1474.   }
  1475.  
  1476. }
  1477. end
  1478. End_Chunk
  1479. Chunk: Rotations
  1480.  Initial: 0x0000 0xFFFFA053 0x0000
  1481.  Centre:  3150 2500 0
  1482. End_Chunk
  1483.  
  1484. Chunk: ImageRef
  1485.  Number: 1
  1486.  Index: 1 Image: 22
  1487. End_Chunk
  1488. ;
  1489. ;-------Object   29-------------------------------------------------------
  1490. ; 
  1491. Chunk: Standard
  1492.  Name:     "chimney[29]"
  1493.  Number:   29
  1494.  Size:     10300 10000 0
  1495.  Position: 2104616 61000 1952800
  1496.  Type:     0
  1497.  Layer:    0
  1498.  DFlags:   r
  1499. End_Chunk
  1500. Chunk: TexCoords
  1501.  Number: 1
  1502.  Mode:   0
  1503.  SubChunk
  1504.   Facet:     4
  1505.   ImageRef:  1
  1506.   PixScale:  0
  1507.   NumCoords: 4
  1508.     0.00000 0.00000
  1509.     0.00000 1.00000
  1510.     1.00000 1.00000
  1511.     0.00000 0.00000
  1512. End_Chunk
  1513. Chunk: Rotations
  1514.  Initial: 0x0000 0xFFFFC000 0x0000
  1515.  Centre:  1650 3000 0
  1516. End_Chunk
  1517.  
  1518. Chunk: ImageRef
  1519.  Number: 1
  1520.  Index: 1 Image: 30
  1521. End_Chunk
  1522. ;
  1523. ;-------Object   30-------------------------------------------------------
  1524. ; 
  1525. Chunk: Standard
  1526.  Name:     "chimney[30]"
  1527.  Number:   30
  1528.  Size:     19300 12000 0
  1529.  Position: 2111616 80000 1917800
  1530.  Type:     0
  1531.  Layer:    0
  1532.  DFlags:   r
  1533. End_Chunk
  1534. Chunk: TexCoords
  1535.  Number: 1
  1536.  Mode:   0
  1537.  SubChunk
  1538.   Facet:     4
  1539.   ImageRef:  1
  1540.   PixScale:  0
  1541.   NumCoords: 4
  1542.     0.00000 0.00000
  1543.     0.00000 1.00000
  1544.     1.00000 1.00000
  1545.     0.00000 0.00000
  1546. End_Chunk
  1547. Chunk: Rotations
  1548.  Initial: 0x0000 0xFFFFC000 0x0000
  1549.  Centre:  1650 3000 0
  1550. End_Chunk
  1551.  
  1552. Chunk: ImageRef
  1553.  Number: 1
  1554.  Index: 1 Image: 31
  1555. End_Chunk
  1556. ;
  1557. ;-------Object   31-------------------------------------------------------
  1558. ; 
  1559. Chunk: Standard
  1560.  Name:     "chimney[31]"
  1561.  Number:   31
  1562.  Size:     19300 12000 0
  1563.  Position: 2111616 80000 1861800
  1564.  Type:     0
  1565.  Layer:    0
  1566.  DFlags:   r
  1567. End_Chunk
  1568. Chunk: TexCoords
  1569.  Number: 1
  1570.  Mode:   0
  1571.  SubChunk
  1572.   Facet:     4
  1573.   ImageRef:  1
  1574.   PixScale:  0
  1575.   NumCoords: 4
  1576.     0.00000 0.00000
  1577.     0.00000 1.00000
  1578.     1.00000 1.00000
  1579.     0.00000 0.00000
  1580. End_Chunk
  1581. Chunk: Rotations
  1582.  Initial: 0x0000 0xFFFFC000 0x0000
  1583.  Centre:  1650 3000 0
  1584. End_Chunk
  1585.  
  1586. Chunk: ImageRef
  1587.  Number: 1
  1588.  Index: 1 Image: 31
  1589. End_Chunk
  1590. ;
  1591. ;-------Object   84-------------------------------------------------------
  1592. ; 
  1593. Chunk: Standard
  1594.  Name:     "frontwall[84]"
  1595.  Number:   84
  1596.  Size:     34000 18000 0
  1597.  Position: 1974000 50600 1989900
  1598.  Type:     0
  1599.  Layer:    0
  1600. End_Chunk
  1601. Chunk: TexCoords
  1602.  Number: 1
  1603.  Mode:   0
  1604.  SubChunk
  1605.   Facet:     2
  1606.   ImageRef:  1
  1607.   PixScale:  0
  1608.   NumCoords: 4
  1609.     0.00000 0.00000
  1610.     0.00000 1.00000
  1611.     1.00000 1.00000
  1612.     1.00000 0.00000
  1613. End_Chunk
  1614.  
  1615. Chunk: ImageRef
  1616.  Number: 1
  1617.  Index: 1 Image: 9
  1618. End_Chunk
  1619. Chunk: Colours
  1620.  Number: 6
  1621.  0x77 0xAA 0x77 0x76 0x75 0x75
  1622. End_Chunk
  1623. ;
  1624. ;-------Object   82-------------------------------------------------------
  1625. ; 
  1626. Chunk: Standard
  1627.  Name:     "frontwall[82]"
  1628.  Number:   82
  1629.  Size:     38000 18000 0
  1630.  Position: 2025000 50600 1989900
  1631.  Type:     0
  1632.  Layer:    0
  1633. End_Chunk
  1634. Chunk: TexCoords
  1635.  Number: 1
  1636.  Mode:   0
  1637.  SubChunk
  1638.   Facet:     2
  1639.   ImageRef:  1
  1640.   PixScale:  0
  1641.   NumCoords: 4
  1642.     0.00000 0.00000
  1643.     0.00000 1.00000
  1644.     1.00000 1.00000
  1645.     1.00000 0.00000
  1646. End_Chunk
  1647.  
  1648. Chunk: ImageRef
  1649.  Number: 1
  1650.  Index: 1 Image: 7
  1651. End_Chunk
  1652. Chunk: Colours
  1653.  Number: 6
  1654.  0x77 0xAA 0x77 0x76 0x75 0x75
  1655. End_Chunk
  1656. ;
  1657. ;-------Object   32-------------------------------------------------------
  1658. ; 
  1659. Chunk: Standard
  1660.  Name:     "chimney[32]"
  1661.  Number:   32
  1662.  Size:     3300 6000 0
  1663.  Position: 2059913 1000 1976800
  1664.  Type:     18
  1665.  Layer:    0
  1666.  DFlags:   r
  1667.  OFlags:   Ii
  1668. End_Chunk
  1669. Chunk: TexCoords
  1670.  Number: 1
  1671.  Mode:   0
  1672.  SubChunk
  1673.   Facet:     1
  1674.   ImageRef:  1
  1675.   PixScale:  0
  1676.   NumCoords: 4
  1677.     0.00000 0.00000
  1678.     0.00000 1.00000
  1679.     1.00000 1.00000
  1680.     0.00000 0.00000
  1681. End_Chunk
  1682. Chunk: InitSize
  1683.  Size: 3300 6000 0
  1684. End_Chunk
  1685.  
  1686. Chunk: SoundRef
  1687.  Number: 1
  1688.  Index: 1 Sound: 1
  1689. End_Chunk
  1690. Chunk: SCL
  1691. long   Temp;
  1692.  
  1693.  
  1694.  
  1695. resume (1, 2);
  1696.  
  1697. if (first)
  1698.  
  1699. {
  1700.  
  1701.   regGetN ("flower16", &Temp);
  1702.  
  1703.   if (Temp)
  1704.  
  1705.   {
  1706.  
  1707.     vis (me);
  1708.  
  1709.     timgref (me, 1)=3;
  1710.  
  1711.   }
  1712.  
  1713. }
  1714.  
  1715. if (activate (me, 13) && !vis? (me))
  1716.  
  1717.   regPutN ("flower16", 1);
  1718.  
  1719. if (activate (me, 0) && #4.Select==1)
  1720.  
  1721. {
  1722.  
  1723.   regPutN ("flower16", 0);
  1724.  
  1725.   sound (1, 64, 127, 0);
  1726.  
  1727.   repeat (10)
  1728.  
  1729.   {
  1730.  
  1731.     xrot (me)-=9;
  1732.  
  1733.     waitf;
  1734.  
  1735.   }
  1736.  
  1737.   invis (me);
  1738.  
  1739.   clrtrig (me, 0);
  1740.  
  1741. }
  1742. end
  1743. End_Chunk
  1744. Chunk: Rotations
  1745.  Initial: 0x0000 0x4000 0x0000
  1746.  Centre:  1650 0 0
  1747. End_Chunk
  1748.  
  1749. Chunk: ImageRef
  1750.  Number: 3
  1751.  Index: 1 Image: 32
  1752.  Index: 2 Image: 37
  1753.  Index: 3 Image: 21
  1754. End_Chunk
  1755. ;
  1756. ;-------Object   34-------------------------------------------------------
  1757. ; 
  1758. Chunk: Standard
  1759.  Name:     "chimney[34]"
  1760.  Number:   34
  1761.  Size:     3300 6000 0
  1762.  Position: 2059913 1000 1954800
  1763.  Type:     18
  1764.  Layer:    0
  1765.  DFlags:   r
  1766.  OFlags:   Ii
  1767. End_Chunk
  1768. Chunk: TexCoords
  1769.  Number: 1
  1770.  Mode:   0
  1771.  SubChunk
  1772.   Facet:     1
  1773.   ImageRef:  1
  1774.   PixScale:  0
  1775.   NumCoords: 4
  1776.     0.00000 0.00000
  1777.     0.00000 1.00000
  1778.     1.00000 1.00000
  1779.     0.00000 0.00000
  1780. End_Chunk
  1781. Chunk: InitSize
  1782.  Size: 3300 6000 0
  1783. End_Chunk
  1784.  
  1785. Chunk: SoundRef
  1786.  Number: 1
  1787.  Index: 1 Sound: 1
  1788. End_Chunk
  1789. Chunk: SCL
  1790. long   Temp;
  1791.  
  1792.  
  1793.  
  1794. resume (1, 2);
  1795.  
  1796. if (first)
  1797.  
  1798. {
  1799.  
  1800.   regGetN ("flower18", &Temp);
  1801.  
  1802.   if (Temp)
  1803.  
  1804.   {
  1805.  
  1806.     vis (me);
  1807.  
  1808.     timgref (me, 1)=3;
  1809.  
  1810.   }
  1811.  
  1812. }
  1813.  
  1814. if (activate (me, 13) && !vis? (me))
  1815.  
  1816.   regPutN ("flower18", 1);
  1817.  
  1818. if (activate (me, 0) && #4.Select==1)
  1819.  
  1820. {
  1821.  
  1822.   regPutN ("flower18", 0);
  1823.  
  1824.   sound (1, 64, 127, 0);
  1825.  
  1826.   repeat (10)
  1827.  
  1828.   {
  1829.  
  1830.     xrot (me)-=9;
  1831.  
  1832.     waitf;
  1833.  
  1834.   }
  1835.  
  1836.   invis (me);
  1837.  
  1838.   clrtrig (me, 0);
  1839.  
  1840. }
  1841. end
  1842. End_Chunk
  1843. Chunk: Rotations
  1844.  Initial: 0x0000 0x4000 0x0000
  1845.  Centre:  1650 0 0
  1846. End_Chunk
  1847.  
  1848. Chunk: ImageRef
  1849.  Number: 3
  1850.  Index: 1 Image: 32
  1851.  Index: 2 Image: 37
  1852.  Index: 3 Image: 21
  1853. End_Chunk
  1854. ;
  1855. ;-------Object   35-------------------------------------------------------
  1856. ; 
  1857. Chunk: Standard
  1858.  Name:     "chimney[35]"
  1859.  Number:   35
  1860.  Size:     3300 6000 0
  1861.  Position: 2059913 1000 1929800
  1862.  Type:     18
  1863.  Layer:    0
  1864.  DFlags:   r
  1865.  OFlags:   Ii
  1866. End_Chunk
  1867. Chunk: TexCoords
  1868.  Number: 1
  1869.  Mode:   0
  1870.  SubChunk
  1871.   Facet:     1
  1872.   ImageRef:  1
  1873.   PixScale:  0
  1874.   NumCoords: 4
  1875.     0.00000 0.00000
  1876.     0.00000 1.00000
  1877.     1.00000 1.00000
  1878.     0.00000 0.00000
  1879. End_Chunk
  1880. Chunk: InitSize
  1881.  Size: 3300 6000 0
  1882. End_Chunk
  1883.  
  1884. Chunk: SoundRef
  1885.  Number: 1
  1886.  Index: 1 Sound: 1
  1887. End_Chunk
  1888. Chunk: SCL
  1889. long   Temp;
  1890.  
  1891.  
  1892.  
  1893. resume (1, 2);
  1894.  
  1895. if (first)
  1896.  
  1897. {
  1898.  
  1899.   regGetN ("flower20", &Temp);
  1900.  
  1901.   if (Temp)
  1902.  
  1903.   {
  1904.  
  1905.     vis (me);
  1906.  
  1907.     timgref (me, 1)=3;
  1908.  
  1909.   }
  1910.  
  1911. }
  1912.  
  1913. if (activate (me, 13) && !vis? (me))
  1914.  
  1915.   regPutN ("flower20", 1);
  1916.  
  1917. if (activate (me, 0) && #4.Select==1)
  1918.  
  1919. {
  1920.  
  1921.   regPutN ("flower20", 0);
  1922.  
  1923.   sound (1, 64, 127, 0);
  1924.  
  1925.   repeat (10)
  1926.  
  1927.   {
  1928.  
  1929.     xrot (me)-=9;
  1930.  
  1931.     waitf;
  1932.  
  1933.   }
  1934.  
  1935.   invis (me);
  1936.  
  1937.   clrtrig (me, 0);
  1938.  
  1939. }
  1940. end
  1941. End_Chunk
  1942. Chunk: Rotations
  1943.  Initial: 0x0000 0x4000 0x0000
  1944.  Centre:  1650 0 0
  1945. End_Chunk
  1946.  
  1947. Chunk: ImageRef
  1948.  Number: 3
  1949.  Index: 1 Image: 32
  1950.  Index: 2 Image: 37
  1951.  Index: 3 Image: 21
  1952. End_Chunk
  1953. ;
  1954. ;-------Object   22-------------------------------------------------------
  1955. ; 
  1956. Chunk: Standard
  1957.  Name:     "chimney[22]"
  1958.  Number:   22
  1959.  Size:     3300 6000 0
  1960.  Position: 2059913 1000 1908800
  1961.  Type:     18
  1962.  Layer:    0
  1963.  DFlags:   r
  1964.  OFlags:   Ii
  1965. End_Chunk
  1966. Chunk: TexCoords
  1967.  Number: 1
  1968.  Mode:   0
  1969.  SubChunk
  1970.   Facet:     1
  1971.   ImageRef:  1
  1972.   PixScale:  0
  1973.   NumCoords: 4
  1974.     0.00000 0.00000
  1975.     0.00000 1.00000
  1976.     1.00000 1.00000
  1977.     0.00000 0.00000
  1978. End_Chunk
  1979. Chunk: InitSize
  1980.  Size: 3300 6000 0
  1981. End_Chunk
  1982.  
  1983. Chunk: SoundRef
  1984.  Number: 1
  1985.  Index: 1 Sound: 1
  1986. End_Chunk
  1987. Chunk: SCL
  1988. long   Temp;
  1989.  
  1990.  
  1991.  
  1992. resume (1, 2);
  1993.  
  1994. if (first)
  1995.  
  1996. {
  1997.  
  1998.   regGetN ("flower22", &Temp);
  1999.  
  2000.   if (Temp)
  2001.  
  2002.   {
  2003.  
  2004.     vis (me);
  2005.  
  2006.     timgref (me, 1)=3;
  2007.  
  2008.   }
  2009.  
  2010. }
  2011.  
  2012. if (activate (me, 13) && !vis? (me))
  2013.  
  2014.   regPutN ("flower22", 1);
  2015.  
  2016. if (activate (me, 0) && #4.Select==1)
  2017.  
  2018. {
  2019.  
  2020.   regPutN ("flower22", 0);
  2021.  
  2022.   sound (1, 64, 127, 0);
  2023.  
  2024.   repeat (10)
  2025.  
  2026.   {
  2027.  
  2028.     xrot (me)-=9;
  2029.  
  2030.     waitf;
  2031.  
  2032.   }
  2033.  
  2034.   invis (me);
  2035.  
  2036.   clrtrig (me, 0);
  2037.  
  2038. }
  2039. end
  2040. End_Chunk
  2041. Chunk: Rotations
  2042.  Initial: 0x0000 0x4000 0x0000
  2043.  Centre:  1650 0 0
  2044. End_Chunk
  2045.  
  2046. Chunk: ImageRef
  2047.  Number: 3
  2048.  Index: 1 Image: 32
  2049.  Index: 2 Image: 37
  2050.  Index: 3 Image: 21
  2051. End_Chunk
  2052. ;
  2053. ;-------Object   38-------------------------------------------------------
  2054. ; 
  2055. Chunk: Standard
  2056.  Name:     "chimney[38]"
  2057.  Number:   38
  2058.  Size:     3300 6000 0
  2059.  Position: 2059913 1000 1886800
  2060.  Type:     18
  2061.  Layer:    0
  2062.  DFlags:   r
  2063.  OFlags:   Ii
  2064. End_Chunk
  2065. Chunk: TexCoords
  2066.  Number: 1
  2067.  Mode:   0
  2068.  SubChunk
  2069.   Facet:     1
  2070.   ImageRef:  1
  2071.   PixScale:  0
  2072.   NumCoords: 4
  2073.     0.00000 0.00000
  2074.     0.00000 1.00000
  2075.     1.00000 1.00000
  2076.     0.00000 0.00000
  2077. End_Chunk
  2078. Chunk: InitSize
  2079.  Size: 3300 6000 0
  2080. End_Chunk
  2081.  
  2082. Chunk: SoundRef
  2083.  Number: 1
  2084.  Index: 1 Sound: 1
  2085. End_Chunk
  2086. Chunk: SCL
  2087. long   Temp;
  2088.  
  2089.  
  2090.  
  2091. resume (1, 2);
  2092.  
  2093. if (first)
  2094.  
  2095. {
  2096.  
  2097.   regGetN ("flower24", &Temp);
  2098.  
  2099.   if (Temp)
  2100.  
  2101.   {
  2102.  
  2103.     vis (me);
  2104.  
  2105.     timgref (me, 1)=3;
  2106.  
  2107.   }
  2108.  
  2109. }
  2110.  
  2111. if (activate (me, 13) && !vis? (me))
  2112.  
  2113.   regPutN ("flower24", 1);
  2114.  
  2115. if (activate (me, 0) && #4.Select==1)
  2116.  
  2117. {
  2118.  
  2119.   regPutN ("flower24", 0);
  2120.  
  2121.   sound (1, 64, 127, 0);
  2122.  
  2123.   repeat (10)
  2124.  
  2125.   {
  2126.  
  2127.     xrot (me)-=9;
  2128.  
  2129.     waitf;
  2130.  
  2131.   }
  2132.  
  2133.   invis (me);
  2134.  
  2135.   clrtrig (me, 0);
  2136.  
  2137. }
  2138. end
  2139. End_Chunk
  2140. Chunk: Rotations
  2141.  Initial: 0x0000 0x4000 0x0000
  2142.  Centre:  1650 0 0
  2143. End_Chunk
  2144.  
  2145. Chunk: ImageRef
  2146.  Number: 3
  2147.  Index: 1 Image: 32
  2148.  Index: 2 Image: 37
  2149.  Index: 3 Image: 21
  2150. End_Chunk
  2151. ;
  2152. ;-------Object   24-------------------------------------------------------
  2153. ; 
  2154. Chunk: Standard
  2155.  Name:     "chimney[24]"
  2156.  Number:   24
  2157.  Size:     3300 6000 0
  2158.  Position: 2062913 1000 1984800
  2159.  Type:     18
  2160.  Layer:    0
  2161.  DFlags:   r
  2162.  OFlags:   Ii
  2163. End_Chunk
  2164. Chunk: TexCoords
  2165.  Number: 1
  2166.  Mode:   0
  2167.  SubChunk
  2168.   Facet:     1
  2169.   ImageRef:  1
  2170.   PixScale:  0
  2171.   NumCoords: 4
  2172.     0.00000 0.00000
  2173.     0.00000 1.00000
  2174.     1.00000 1.00000
  2175.     0.00000 0.00000
  2176. End_Chunk
  2177. Chunk: SCL
  2178. long   Temp;
  2179.  
  2180.  
  2181.  
  2182. resume (1, 2);
  2183.  
  2184. if (first)
  2185.  
  2186. {
  2187.  
  2188.   regGetN ("flower15", &Temp);
  2189.  
  2190.   if (Temp)
  2191.  
  2192.   {
  2193.  
  2194.     vis (me);
  2195.  
  2196.     timgref (me, 1)=3;
  2197.  
  2198.   }
  2199.  
  2200. }
  2201.  
  2202. if (activate (me, 13) && !vis? (me))
  2203.  
  2204.   regPutN ("flower15", 1);
  2205.  
  2206. if (activate (me, 0) && #4.Select==1)
  2207.  
  2208. {
  2209.  
  2210.   regPutN ("flower15", 0);
  2211.  
  2212.   sound (1, 64, 127, 0);
  2213.  
  2214.   repeat (10)
  2215.  
  2216.   {
  2217.  
  2218.     xrot (me)-=9;
  2219.  
  2220.     waitf;
  2221.  
  2222.   }
  2223.  
  2224.   invis (me);
  2225.  
  2226.   clrtrig (me, 0);
  2227.  
  2228. }
  2229. end
  2230. End_Chunk
  2231.  
  2232. Chunk: SoundRef
  2233.  Number: 1
  2234.  Index: 1 Sound: 1
  2235. End_Chunk
  2236. Chunk: InitSize
  2237.  Size: 3300 6000 0
  2238. End_Chunk
  2239. Chunk: Rotations
  2240.  Initial: 0x0000 0x4000 0x0000
  2241.  Centre:  1650 0 0
  2242. End_Chunk
  2243.  
  2244. Chunk: ImageRef
  2245.  Number: 3
  2246.  Index: 1 Image: 32
  2247.  Index: 2 Image: 37
  2248.  Index: 3 Image: 21
  2249. End_Chunk
  2250. ;
  2251. ;-------Object   33-------------------------------------------------------
  2252. ; 
  2253. Chunk: Standard
  2254.  Name:     "chimney[33]"
  2255.  Number:   33
  2256.  Size:     3300 6000 0
  2257.  Position: 2060913 1000 1965800
  2258.  Type:     18
  2259.  Layer:    0
  2260.  DFlags:   r
  2261.  OFlags:   Ii
  2262. End_Chunk
  2263. Chunk: TexCoords
  2264.  Number: 1
  2265.  Mode:   0
  2266.  SubChunk
  2267.   Facet:     1
  2268.   ImageRef:  1
  2269.   PixScale:  0
  2270.   NumCoords: 4
  2271.     0.00000 0.00000
  2272.     0.00000 1.00000
  2273.     1.00000 1.00000
  2274.     0.00000 0.00000
  2275. End_Chunk
  2276. Chunk: InitSize
  2277.  Size: 3300 6000 0
  2278. End_Chunk
  2279.  
  2280. Chunk: SoundRef
  2281.  Number: 1
  2282.  Index: 1 Sound: 1
  2283. End_Chunk
  2284. Chunk: SCL
  2285. long   Temp;
  2286.  
  2287.  
  2288.  
  2289. resume (1, 2);
  2290.  
  2291. if (first)
  2292.  
  2293. {
  2294.  
  2295.   regGetN ("flower17", &Temp);
  2296.  
  2297.   if (Temp)
  2298.  
  2299.   {
  2300.  
  2301.     vis (me);
  2302.  
  2303.     timgref (me, 1)=3;
  2304.  
  2305.   }
  2306.  
  2307. }
  2308.  
  2309. if (activate (me, 13) && !vis? (me))
  2310.  
  2311.   regPutN ("flower17", 1);
  2312.  
  2313. if (activate (me, 0) && #4.Select==1)
  2314.  
  2315. {
  2316.  
  2317.   regPutN ("flower17", 0);
  2318.  
  2319.   sound (1, 64, 127, 0);
  2320.  
  2321.   repeat (10)
  2322.  
  2323.   {
  2324.  
  2325.     xrot (me)-=9;
  2326.  
  2327.     waitf;
  2328.  
  2329.   }
  2330.  
  2331.   invis (me);
  2332.  
  2333.   clrtrig (me, 0);
  2334.  
  2335. }
  2336. end
  2337. End_Chunk
  2338. Chunk: Rotations
  2339.  Initial: 0x0000 0x4000 0x0000
  2340.  Centre:  1650 0 0
  2341. End_Chunk
  2342.  
  2343. Chunk: ImageRef
  2344.  Number: 3
  2345.  Index: 1 Image: 32
  2346.  Index: 2 Image: 37
  2347.  Index: 3 Image: 21
  2348. End_Chunk
  2349. ;
  2350. ;-------Object   23-------------------------------------------------------
  2351. ; 
  2352. Chunk: Standard
  2353.  Name:     "chimney[23]"
  2354.  Number:   23
  2355.  Size:     3300 6000 0
  2356.  Position: 2060913 1000 1943800
  2357.  Type:     18
  2358.  Layer:    0
  2359.  DFlags:   r
  2360.  OFlags:   Ii
  2361. End_Chunk
  2362. Chunk: TexCoords
  2363.  Number: 1
  2364.  Mode:   0
  2365.  SubChunk
  2366.   Facet:     1
  2367.   ImageRef:  1
  2368.   PixScale:  0
  2369.   NumCoords: 4
  2370.     0.00000 0.00000
  2371.     0.00000 1.00000
  2372.     1.00000 1.00000
  2373.     0.00000 0.00000
  2374. End_Chunk
  2375. Chunk: InitSize
  2376.  Size: 3300 6000 0
  2377. End_Chunk
  2378.  
  2379. Chunk: SoundRef
  2380.  Number: 1
  2381.  Index: 1 Sound: 1
  2382. End_Chunk
  2383. Chunk: SCL
  2384. long   Temp;
  2385.  
  2386.  
  2387.  
  2388. resume (1, 2);
  2389.  
  2390. if (first)
  2391.  
  2392. {
  2393.  
  2394.   regGetN ("flower19", &Temp);
  2395.  
  2396.   if (Temp)
  2397.  
  2398.   {
  2399.  
  2400.     vis (me);
  2401.  
  2402.     timgref (me, 1)=3;
  2403.  
  2404.   }
  2405.  
  2406. }
  2407.  
  2408. if (activate (me, 13) && !vis? (me))
  2409.  
  2410.   regPutN ("flower19", 1);
  2411.  
  2412. if (activate (me, 0) && #4.Select==1)
  2413.  
  2414. {
  2415.  
  2416.   regPutN ("flower19", 0);
  2417.  
  2418.   sound (1, 64, 127, 0);
  2419.  
  2420.   repeat (10)
  2421.  
  2422.   {
  2423.  
  2424.     xrot (me)-=9;
  2425.  
  2426.     waitf;
  2427.  
  2428.   }
  2429.  
  2430.   invis (me);
  2431.  
  2432.   clrtrig (me, 0);
  2433.  
  2434. }
  2435. end
  2436. End_Chunk
  2437. Chunk: Rotations
  2438.  Initial: 0x0000 0x4000 0x0000
  2439.  Centre:  1650 0 0
  2440. End_Chunk
  2441.  
  2442. Chunk: ImageRef
  2443.  Number: 3
  2444.  Index: 1 Image: 32
  2445.  Index: 2 Image: 37
  2446.  Index: 3 Image: 21
  2447. End_Chunk
  2448. ;
  2449. ;-------Object   36-------------------------------------------------------
  2450. ; 
  2451. Chunk: Standard
  2452.  Name:     "chimney[36]"
  2453.  Number:   36
  2454.  Size:     3300 6000 0
  2455.  Position: 2060913 1000 1918800
  2456.  Type:     18
  2457.  Layer:    0
  2458.  DFlags:   r
  2459.  OFlags:   Ii
  2460. End_Chunk
  2461. Chunk: TexCoords
  2462.  Number: 1
  2463.  Mode:   0
  2464.  SubChunk
  2465.   Facet:     1
  2466.   ImageRef:  1
  2467.   PixScale:  0
  2468.   NumCoords: 4
  2469.     0.00000 0.00000
  2470.     0.00000 1.00000
  2471.     1.00000 1.00000
  2472.     0.00000 0.00000
  2473. End_Chunk
  2474. Chunk: InitSize
  2475.  Size: 3300 6000 0
  2476. End_Chunk
  2477.  
  2478. Chunk: SoundRef
  2479.  Number: 1
  2480.  Index: 1 Sound: 1
  2481. End_Chunk
  2482. Chunk: SCL
  2483. long   Temp;
  2484.  
  2485.  
  2486.  
  2487. resume (1, 2);
  2488.  
  2489. if (first)
  2490.  
  2491. {
  2492.  
  2493.   regGetN ("flower21", &Temp);
  2494.  
  2495.   if (Temp)
  2496.  
  2497.   {
  2498.  
  2499.     vis (me);
  2500.  
  2501.     timgref (me, 1)=3;
  2502.  
  2503.   }
  2504.  
  2505. }
  2506.  
  2507. if (activate (me, 13) && !vis? (me))
  2508.  
  2509.   regPutN ("flower21", 1);
  2510.  
  2511. if (activate (me, 0) && #4.Select==1)
  2512.  
  2513. {
  2514.  
  2515.   regPutN ("flower21", 0);
  2516.  
  2517.   sound (1, 64, 127, 0);
  2518.  
  2519.   repeat (10)
  2520.  
  2521.   {
  2522.  
  2523.     xrot (me)-=9;
  2524.  
  2525.     waitf;
  2526.  
  2527.   }
  2528.  
  2529.   invis (me);
  2530.  
  2531.   clrtrig (me, 0);
  2532.  
  2533. }
  2534. end
  2535. End_Chunk
  2536. Chunk: Rotations
  2537.  Initial: 0x0000 0x4000 0x0000
  2538.  Centre:  1650 0 0
  2539. End_Chunk
  2540.  
  2541. Chunk: ImageRef
  2542.  Number: 3
  2543.  Index: 1 Image: 32
  2544.  Index: 2 Image: 37
  2545.  Index: 3 Image: 21
  2546. End_Chunk
  2547. ;
  2548. ;-------Object   37-------------------------------------------------------
  2549. ; 
  2550. Chunk: Standard
  2551.  Name:     "chimney[37]"
  2552.  Number:   37
  2553.  Size:     3300 6000 0
  2554.  Position: 2060913 1000 1897800
  2555.  Type:     18
  2556.  Layer:    0
  2557.  DFlags:   r
  2558.  OFlags:   Ii
  2559. End_Chunk
  2560. Chunk: TexCoords
  2561.  Number: 1
  2562.  Mode:   0
  2563.  SubChunk
  2564.   Facet:     1
  2565.   ImageRef:  1
  2566.   PixScale:  0
  2567.   NumCoords: 4
  2568.     0.00000 0.00000
  2569.     0.00000 1.00000
  2570.     1.00000 1.00000
  2571.     0.00000 0.00000
  2572. End_Chunk
  2573. Chunk: InitSize
  2574.  Size: 3300 6000 0
  2575. End_Chunk
  2576.  
  2577. Chunk: SoundRef
  2578.  Number: 1
  2579.  Index: 1 Sound: 1
  2580. End_Chunk
  2581. Chunk: SCL
  2582. long   Temp;
  2583.  
  2584.  
  2585.  
  2586. resume (1, 2);
  2587.  
  2588. if (first)
  2589.  
  2590. {
  2591.  
  2592.   regGetN ("flower23", &Temp);
  2593.  
  2594.   if (Temp)
  2595.  
  2596.   {
  2597.  
  2598.     vis (me);
  2599.  
  2600.     timgref (me, 1)=3;
  2601.  
  2602.   }
  2603.  
  2604. }
  2605.  
  2606. if (activate (me, 13) && !vis? (me))
  2607.  
  2608.   regPutN ("flower23", 1);
  2609.  
  2610. if (activate (me, 0) && #4.Select==1)
  2611.  
  2612. {
  2613.  
  2614.   regPutN ("flower23", 0);
  2615.  
  2616.   sound (1, 64, 127, 0);
  2617.  
  2618.   repeat (10)
  2619.  
  2620.   {
  2621.  
  2622.     xrot (me)-=9;
  2623.  
  2624.     waitf;
  2625.  
  2626.   }
  2627.  
  2628.   invis (me);
  2629.  
  2630.   clrtrig (me, 0);
  2631.  
  2632. }
  2633. end
  2634. End_Chunk
  2635. Chunk: Rotations
  2636.  Initial: 0x0000 0x4000 0x0000
  2637.  Centre:  1650 0 0
  2638. End_Chunk
  2639.  
  2640. Chunk: ImageRef
  2641.  Number: 3
  2642.  Index: 1 Image: 32
  2643.  Index: 2 Image: 37
  2644.  Index: 3 Image: 21
  2645. End_Chunk
  2646. ;
  2647. ;-------Object   21-------------------------------------------------------
  2648. ; 
  2649. Chunk: Standard
  2650.  Name:     "chimney[21]"
  2651.  Number:   21
  2652.  Size:     3300 6000 0
  2653.  Position: 2060913 1000 1880800
  2654.  Type:     18
  2655.  Layer:    0
  2656.  DFlags:   r
  2657.  OFlags:   Ii
  2658. End_Chunk
  2659. Chunk: TexCoords
  2660.  Number: 1
  2661.  Mode:   0
  2662.  SubChunk
  2663.   Facet:     1
  2664.   ImageRef:  1
  2665.   PixScale:  0
  2666.   NumCoords: 4
  2667.     0.00000 0.00000
  2668.     0.00000 1.00000
  2669.     1.00000 1.00000
  2670.     0.00000 0.00000
  2671. End_Chunk
  2672. Chunk: InitSize
  2673.  Size: 3300 6000 0
  2674. End_Chunk
  2675.  
  2676. Chunk: SoundRef
  2677.  Number: 1
  2678.  Index: 1 Sound: 1
  2679. End_Chunk
  2680. Chunk: SCL
  2681. long   Temp;
  2682.  
  2683.  
  2684.  
  2685. resume (1, 2);
  2686.  
  2687. if (first)
  2688.  
  2689. {
  2690.  
  2691.   regGetN ("flower25", &Temp);
  2692.  
  2693.   if (Temp)
  2694.  
  2695.   {
  2696.  
  2697.     vis (me);
  2698.  
  2699.     timgref (me, 1)=3;
  2700.  
  2701.   }
  2702.  
  2703. }
  2704.  
  2705. if (activate (me, 13) && !vis? (me))
  2706.  
  2707.   regPutN ("flower25", 1);
  2708.  
  2709. if (activate (me, 0) && #4.Select==1)
  2710.  
  2711. {
  2712.  
  2713.   regPutN ("flower25", 0);
  2714.  
  2715.   sound (1, 64, 127, 0);
  2716.  
  2717.   repeat (10)
  2718.  
  2719.   {
  2720.  
  2721.     xrot (me)-=9;
  2722.  
  2723.     waitf;
  2724.  
  2725.   }
  2726.  
  2727.   invis (me);
  2728.  
  2729.   clrtrig (me, 0);
  2730.  
  2731. }
  2732. end
  2733. End_Chunk
  2734. Chunk: Rotations
  2735.  Initial: 0x0000 0x4000 0x0000
  2736.  Centre:  1650 0 0
  2737. End_Chunk
  2738.  
  2739. Chunk: ImageRef
  2740.  Number: 3
  2741.  Index: 1 Image: 32
  2742.  Index: 2 Image: 37
  2743.  Index: 3 Image: 21
  2744. End_Chunk
  2745. ;
  2746. ;-------Object   39-------------------------------------------------------
  2747. ; 
  2748. Chunk: Standard
  2749.  Name:     "chimney[39]"
  2750.  Number:   39
  2751.  Size:     3300 6000 0
  2752.  Position: 2013016 1000 1984800
  2753.  Type:     18
  2754.  Layer:    0
  2755.  DFlags:   r
  2756.  OFlags:   Ii
  2757. End_Chunk
  2758. Chunk: TexCoords
  2759.  Number: 1
  2760.  Mode:   0
  2761.  SubChunk
  2762.   Facet:     1
  2763.   ImageRef:  1
  2764.   PixScale:  0
  2765.   NumCoords: 4
  2766.     0.00000 0.00000
  2767.     0.00000 1.00000
  2768.     1.00000 1.00000
  2769.     1.00000 0.00000
  2770. End_Chunk
  2771. Chunk: Rotations
  2772.  Initial: 0x0000 0x0000 0x0000
  2773.  Centre:  1650 0 0
  2774. End_Chunk
  2775. Chunk: SCL
  2776. long   Temp;
  2777.  
  2778.  
  2779.  
  2780. resume (1, 2);
  2781.  
  2782. if (first)
  2783.  
  2784. {
  2785.  
  2786.   regGetN ("flower14", &Temp);
  2787.  
  2788.   if (Temp)
  2789.  
  2790.   {
  2791.  
  2792.     vis (me);
  2793.  
  2794.     timgref (me, 1)=3;
  2795.  
  2796.   }
  2797.  
  2798. }
  2799.  
  2800. if (activate (me, 13) && !vis? (me))
  2801.  
  2802.   regPutN ("flower14", 1);
  2803.  
  2804. if (activate (me, 0) && #4.Select==1)
  2805.  
  2806. {
  2807.  
  2808.   regPutN ("flower14", 0);
  2809.  
  2810.   sound (1, 64, 127, 0);
  2811.  
  2812.   repeat (10)
  2813.  
  2814.   {
  2815.  
  2816.     xrot (me)-=9;
  2817.  
  2818.     waitf;
  2819.  
  2820.   }
  2821.  
  2822.   invis (me);
  2823.  
  2824.   clrtrig (me, 0);
  2825.  
  2826. }
  2827. end
  2828. End_Chunk
  2829.  
  2830. Chunk: SoundRef
  2831.  Number: 1
  2832.  Index: 1 Sound: 1
  2833. End_Chunk
  2834. Chunk: InitSize
  2835.  Size: 3300 6000 0
  2836. End_Chunk
  2837.  
  2838. Chunk: ImageRef
  2839.  Number: 3
  2840.  Index: 1 Image: 32
  2841.  Index: 2 Image: 37
  2842.  Index: 3 Image: 21
  2843. End_Chunk
  2844. ;
  2845. ;-------Object   40-------------------------------------------------------
  2846. ; 
  2847. Chunk: Standard
  2848.  Name:     "chimney[40]"
  2849.  Number:   40
  2850.  Size:     3300 6000 0
  2851.  Position: 2002016 1000 1978800
  2852.  Type:     18
  2853.  Layer:    0
  2854.  DFlags:   r
  2855.  OFlags:   Ii
  2856. End_Chunk
  2857. Chunk: TexCoords
  2858.  Number: 1
  2859.  Mode:   0
  2860.  SubChunk
  2861.   Facet:     1
  2862.   ImageRef:  1
  2863.   PixScale:  0
  2864.   NumCoords: 4
  2865.     0.00000 0.00000
  2866.     0.00000 1.00000
  2867.     1.00000 1.00000
  2868.     1.00000 0.00000
  2869. End_Chunk
  2870. Chunk: Rotations
  2871.  Initial: 0x0000 0x0000 0x0000
  2872.  Centre:  1650 0 0
  2873. End_Chunk
  2874. Chunk: SCL
  2875. long   Temp;
  2876.  
  2877.  
  2878.  
  2879. resume (1, 2);
  2880.  
  2881. if (first)
  2882.  
  2883. {
  2884.  
  2885.   regGetN ("flower13", &Temp);
  2886.  
  2887.   if (Temp)
  2888.  
  2889.   {
  2890.  
  2891.     vis (me);
  2892.  
  2893.     timgref (me, 1)=3;
  2894.  
  2895.   }
  2896.  
  2897. }
  2898.  
  2899. if (activate (me, 13) && !vis? (me))
  2900.  
  2901.   regPutN ("flower13", 1);
  2902.  
  2903. if (activate (me, 0) && #4.Select==1)
  2904.  
  2905. {
  2906.  
  2907.   regPutN ("flower13", 0);
  2908.  
  2909.   sound (1, 64, 127, 0);
  2910.  
  2911.   repeat (10)
  2912.  
  2913.   {
  2914.  
  2915.     xrot (me)-=9;
  2916.  
  2917.     waitf;
  2918.  
  2919.   }
  2920.  
  2921.   invis (me);
  2922.  
  2923.   clrtrig (me, 0);
  2924.  
  2925. }
  2926. end
  2927. End_Chunk
  2928.  
  2929. Chunk: SoundRef
  2930.  Number: 1
  2931.  Index: 1 Sound: 1
  2932. End_Chunk
  2933. Chunk: InitSize
  2934.  Size: 3300 6000 0
  2935. End_Chunk
  2936.  
  2937. Chunk: ImageRef
  2938.  Number: 3
  2939.  Index: 1 Image: 32
  2940.  Index: 2 Image: 37
  2941.  Index: 3 Image: 21
  2942. End_Chunk
  2943. ;
  2944. ;-------Object   42-------------------------------------------------------
  2945. ; 
  2946. Chunk: Standard
  2947.  Name:     "chimney[42]"
  2948.  Number:   42
  2949.  Size:     3300 6000 0
  2950.  Position: 1985016 1000 1978800
  2951.  Type:     18
  2952.  Layer:    0
  2953.  DFlags:   r
  2954.  OFlags:   Ii
  2955. End_Chunk
  2956. Chunk: TexCoords
  2957.  Number: 1
  2958.  Mode:   0
  2959.  SubChunk
  2960.   Facet:     1
  2961.   ImageRef:  1
  2962.   PixScale:  0
  2963.   NumCoords: 4
  2964.     0.00000 0.00000
  2965.     0.00000 1.00000
  2966.     1.00000 1.00000
  2967.     1.00000 0.00000
  2968. End_Chunk
  2969. Chunk: SCL
  2970. long   Temp;
  2971.  
  2972.  
  2973.  
  2974. resume (1, 2);
  2975.  
  2976. if (first)
  2977.  
  2978. {
  2979.  
  2980.   regGetN ("flower11", &Temp);
  2981.  
  2982.   if (Temp)
  2983.  
  2984.   {
  2985.  
  2986.     vis (me);
  2987.  
  2988.     timgref (me, 1)=3;
  2989.  
  2990.   }
  2991.  
  2992. }
  2993.  
  2994. if (activate (me, 13) && !vis? (me))
  2995.  
  2996.   regPutN ("flower11", 1);
  2997.  
  2998. if (activate (me, 0) && #4.Select==1)
  2999.  
  3000. {
  3001.  
  3002.   regPutN ("flower11", 0);
  3003.  
  3004.   sound (1, 64, 127, 0);
  3005.  
  3006.   repeat (10)
  3007.  
  3008.   {
  3009.  
  3010.     xrot (me)-=9;
  3011.  
  3012.     waitf;
  3013.  
  3014.   }
  3015.  
  3016.   invis (me);
  3017.  
  3018.   clrtrig (me, 0);
  3019.  
  3020. }
  3021. end
  3022. End_Chunk
  3023.  
  3024. Chunk: SoundRef
  3025.  Number: 1
  3026.  Index: 1 Sound: 1
  3027. End_Chunk
  3028. Chunk: InitSize
  3029.  Size: 3300 6000 0
  3030. End_Chunk
  3031. Chunk: Rotations
  3032.  Initial: 0x0000 0xFFFFE000 0x0000
  3033.  Centre:  1650 0 0
  3034. End_Chunk
  3035.  
  3036. Chunk: ImageRef
  3037.  Number: 3
  3038.  Index: 1 Image: 32
  3039.  Index: 2 Image: 37
  3040.  Index: 3 Image: 21
  3041. End_Chunk
  3042. ;
  3043. ;-------Object   43-------------------------------------------------------
  3044. ; 
  3045. Chunk: Standard
  3046.  Name:     "chimney[43]"
  3047.  Number:   43
  3048.  Size:     3300 6000 0
  3049.  Position: 1974016 1000 1982800
  3050.  Type:     18
  3051.  Layer:    0
  3052.  DFlags:   r
  3053.  OFlags:   Ii
  3054. End_Chunk
  3055. Chunk: TexCoords
  3056.  Number: 1
  3057.  Mode:   0
  3058.  SubChunk
  3059.   Facet:     1
  3060.   ImageRef:  1
  3061.   PixScale:  0
  3062.   NumCoords: 4
  3063.     0.00000 0.00000
  3064.     0.00000 1.00000
  3065.     1.00000 1.00000
  3066.     1.00000 0.00000
  3067. End_Chunk
  3068. Chunk: SCL
  3069. long   Temp;
  3070.  
  3071.  
  3072.  
  3073. resume (1, 2);
  3074.  
  3075. if (first)
  3076.  
  3077. {
  3078.  
  3079.   regGetN ("flower10", &Temp);
  3080.  
  3081.   if (Temp)
  3082.  
  3083.   {
  3084.  
  3085.     vis (me);
  3086.  
  3087.     timgref (me, 1)=3;
  3088.  
  3089.   }
  3090.  
  3091. }
  3092.  
  3093. if (activate (me, 13) && !vis? (me))
  3094.  
  3095.   regPutN ("flower10", 1);
  3096.  
  3097. if (activate (me, 0) && #4.Select==1)
  3098.  
  3099. {
  3100.  
  3101.   regPutN ("flower10", 0);
  3102.  
  3103.   sound (1, 64, 127, 0);
  3104.  
  3105.   repeat (10)
  3106.  
  3107.   {
  3108.  
  3109.     xrot (me)-=9;
  3110.  
  3111.     waitf;
  3112.  
  3113.   }
  3114.  
  3115.   invis (me);
  3116.  
  3117.   clrtrig (me, 0);
  3118.  
  3119. }
  3120. end
  3121. End_Chunk
  3122.  
  3123. Chunk: SoundRef
  3124.  Number: 1
  3125.  Index: 1 Sound: 1
  3126. End_Chunk
  3127. Chunk: InitSize
  3128.  Size: 3300 6000 0
  3129. End_Chunk
  3130. Chunk: Rotations
  3131.  Initial: 0x0000 0xFFFFE000 0x0000
  3132.  Centre:  1650 0 0
  3133. End_Chunk
  3134.  
  3135. Chunk: ImageRef
  3136.  Number: 3
  3137.  Index: 1 Image: 32
  3138.  Index: 2 Image: 37
  3139.  Index: 3 Image: 21
  3140. End_Chunk
  3141. ;
  3142. ;-------Object   41-------------------------------------------------------
  3143. ; 
  3144. Chunk: Standard
  3145.  Name:     "chimney[41]"
  3146.  Number:   41
  3147.  Size:     3300 6000 0
  3148.  Position: 1994016 1000 1983800
  3149.  Type:     18
  3150.  Layer:    0
  3151.  DFlags:   r
  3152.  OFlags:   Ii
  3153. End_Chunk
  3154. Chunk: TexCoords
  3155.  Number: 1
  3156.  Mode:   0
  3157.  SubChunk
  3158.   Facet:     1
  3159.   ImageRef:  1
  3160.   PixScale:  0
  3161.   NumCoords: 4
  3162.     0.00000 0.00000
  3163.     0.00000 1.00000
  3164.     1.00000 1.00000
  3165.     1.00000 0.00000
  3166. End_Chunk
  3167. Chunk: Rotations
  3168.  Initial: 0x0000 0x0000 0x0000
  3169.  Centre:  1650 0 0
  3170. End_Chunk
  3171. Chunk: SCL
  3172. long   Temp;
  3173.  
  3174.  
  3175.  
  3176. resume (1, 2);
  3177.  
  3178. if (first)
  3179.  
  3180. {
  3181.  
  3182.   regGetN ("flower12", &Temp);
  3183.  
  3184.   if (Temp)
  3185.  
  3186.   {
  3187.  
  3188.     vis (me);
  3189.  
  3190.     timgref (me, 1)=3;
  3191.  
  3192.   }
  3193.  
  3194. }
  3195.  
  3196. if (activate (me, 13) && !vis? (me))
  3197.  
  3198.   regPutN ("flower12", 1);
  3199.  
  3200. if (activate (me, 0) && #4.Select==1)
  3201.  
  3202. {
  3203.  
  3204.   regPutN ("flower12", 0);
  3205.  
  3206.   sound (1, 64, 127, 0);
  3207.  
  3208.   repeat (10)
  3209.  
  3210.   {
  3211.  
  3212.     xrot (me)-=9;
  3213.  
  3214.     waitf;
  3215.  
  3216.   }
  3217.  
  3218.   invis (me);
  3219.  
  3220.   clrtrig (me, 0);
  3221.  
  3222. }
  3223. end
  3224. End_Chunk
  3225.  
  3226. Chunk: SoundRef
  3227.  Number: 1
  3228.  Index: 1 Sound: 1
  3229. End_Chunk
  3230. Chunk: InitSize
  3231.  Size: 3300 6000 0
  3232. End_Chunk
  3233.  
  3234. Chunk: ImageRef
  3235.  Number: 3
  3236.  Index: 1 Image: 32
  3237.  Index: 2 Image: 37
  3238.  Index: 3 Image: 21
  3239. End_Chunk
  3240. ;
  3241. ;-------Object   44-------------------------------------------------------
  3242. ; 
  3243. Chunk: Standard
  3244.  Name:     "chimney[44]"
  3245.  Number:   44
  3246.  Size:     3300 6000 0
  3247.  Position: 1978653 1000 1972437
  3248.  Type:     18
  3249.  Layer:    0
  3250.  DFlags:   r
  3251.  OFlags:   Ii
  3252. End_Chunk
  3253. Chunk: TexCoords
  3254.  Number: 1
  3255.  Mode:   0
  3256.  SubChunk
  3257.   Facet:     1
  3258.   ImageRef:  1
  3259.   PixScale:  0
  3260.   NumCoords: 4
  3261.     0.00000 0.00000
  3262.     0.00000 1.00000
  3263.     1.00000 1.00000
  3264.     1.00000 0.00000
  3265. End_Chunk
  3266. Chunk: SCL
  3267. long   Temp;
  3268.  
  3269.  
  3270.  
  3271. resume (1, 2);
  3272.  
  3273. if (first)
  3274.  
  3275. {
  3276.  
  3277.   regGetN ("flower9", &Temp);
  3278.  
  3279.   if (Temp)
  3280.  
  3281.   {
  3282.  
  3283.     vis (me);
  3284.  
  3285.     timgref (me, 1)=3;
  3286.  
  3287.   }
  3288.  
  3289. }
  3290.  
  3291. if (activate (me, 13) && !vis? (me))
  3292.  
  3293.   regPutN ("flower9", 1);
  3294.  
  3295. if (activate (me, 0) && #4.Select==1)
  3296.  
  3297. {
  3298.  
  3299.   regPutN ("flower9", 0);
  3300.  
  3301.   sound (1, 64, 127, 0);
  3302.  
  3303.   repeat (10)
  3304.  
  3305.   {
  3306.  
  3307.     xrot (me)-=9;
  3308.  
  3309.     waitf;
  3310.  
  3311.   }
  3312.  
  3313.   invis (me);
  3314.  
  3315.   clrtrig (me, 0);
  3316.  
  3317. }
  3318. end
  3319. End_Chunk
  3320.  
  3321. Chunk: SoundRef
  3322.  Number: 1
  3323.  Index: 1 Sound: 1
  3324. End_Chunk
  3325. Chunk: InitSize
  3326.  Size: 3300 6000 0
  3327. End_Chunk
  3328. Chunk: Rotations
  3329.  Initial: 0x0000 0xFFFFE000 0x0000
  3330.  Centre:  1650 0 0
  3331. End_Chunk
  3332.  
  3333. Chunk: ImageRef
  3334.  Number: 3
  3335.  Index: 1 Image: 32
  3336.  Index: 2 Image: 37
  3337.  Index: 3 Image: 21
  3338. End_Chunk
  3339. ;
  3340. ;-------Object   45-------------------------------------------------------
  3341. ; 
  3342. Chunk: Standard
  3343.  Name:     "chimney[45]"
  3344.  Number:   45
  3345.  Size:     3300 6000 0
  3346.  Position: 1972997 1000 1960781
  3347.  Type:     18
  3348.  Layer:    0
  3349.  DFlags:   r
  3350.  OFlags:   Ii
  3351. End_Chunk
  3352. Chunk: TexCoords
  3353.  Number: 1
  3354.  Mode:   0
  3355.  SubChunk
  3356.   Facet:     1
  3357.   ImageRef:  1
  3358.   PixScale:  0
  3359.   NumCoords: 4
  3360.     0.00000 0.00000
  3361.     0.00000 1.00000
  3362.     1.00000 1.00000
  3363.     0.00000 0.00000
  3364. End_Chunk
  3365. Chunk: SCL
  3366. long   Temp;
  3367.  
  3368.  
  3369.  
  3370. resume (1, 2);
  3371.  
  3372. if (first)
  3373.  
  3374. {
  3375.  
  3376.   regGetN ("flower8", &Temp);
  3377.  
  3378.   if (Temp)
  3379.  
  3380.   {
  3381.  
  3382.     vis (me);
  3383.  
  3384.     timgref (me, 1)=3;
  3385.  
  3386.   }
  3387.  
  3388. }
  3389.  
  3390. if (activate (me, 13) && !vis? (me))
  3391.  
  3392.   regPutN ("flower8", 1);
  3393.  
  3394. if (activate (me, 0) && #4.Select==1)
  3395.  
  3396. {
  3397.  
  3398.   regPutN ("flower8", 0);
  3399.  
  3400.   sound (1, 64, 127, 0);
  3401.  
  3402.   repeat (10)
  3403.  
  3404.   {
  3405.  
  3406.     xrot (me)-=9;
  3407.  
  3408.     waitf;
  3409.  
  3410.   }
  3411.  
  3412.   invis (me);
  3413.  
  3414.   clrtrig (me, 0);
  3415.  
  3416. }
  3417. end
  3418. End_Chunk
  3419.  
  3420. Chunk: SoundRef
  3421.  Number: 1
  3422.  Index: 1 Sound: 1
  3423. End_Chunk
  3424. Chunk: InitSize
  3425.  Size: 3300 6000 0
  3426. End_Chunk
  3427. Chunk: Rotations
  3428.  Initial: 0x0000 0xFFFFC000 0x0000
  3429.  Centre:  1650 0 0
  3430. End_Chunk
  3431.  
  3432. Chunk: ImageRef
  3433.  Number: 3
  3434.  Index: 1 Image: 32
  3435.  Index: 2 Image: 37
  3436.  Index: 3 Image: 21
  3437. End_Chunk
  3438. ;
  3439. ;-------Object   47-------------------------------------------------------
  3440. ; 
  3441. Chunk: Standard
  3442.  Name:     "chimney[47]"
  3443.  Number:   47
  3444.  Size:     3300 6000 0
  3445.  Position: 1972997 1000 1937781
  3446.  Type:     18
  3447.  Layer:    0
  3448.  DFlags:   r
  3449.  OFlags:   Ii
  3450. End_Chunk
  3451. Chunk: TexCoords
  3452.  Number: 1
  3453.  Mode:   0
  3454.  SubChunk
  3455.   Facet:     1
  3456.   ImageRef:  1
  3457.   PixScale:  0
  3458.   NumCoords: 4
  3459.     0.00000 0.00000
  3460.     0.00000 1.00000
  3461.     1.00000 1.00000
  3462.     0.00000 0.00000
  3463. End_Chunk
  3464. Chunk: SCL
  3465. long   Temp;
  3466.  
  3467.  
  3468.  
  3469. resume (1, 2);
  3470.  
  3471. if (first)
  3472.  
  3473. {
  3474.  
  3475.   regGetN ("flower6", &Temp);
  3476.  
  3477.   if (Temp)
  3478.  
  3479.   {
  3480.  
  3481.     vis (me);
  3482.  
  3483.     timgref (me, 1)=3;
  3484.  
  3485.   }
  3486.  
  3487. }
  3488.  
  3489. if (activate (me, 13) && !vis? (me))
  3490.  
  3491.   regPutN ("flower6", 1);
  3492.  
  3493. if (activate (me, 0) && #4.Select==1)
  3494.  
  3495. {
  3496.  
  3497.   regPutN ("flower6", 0);
  3498.  
  3499.   sound (1, 64, 127, 0);
  3500.  
  3501.   repeat (10)
  3502.  
  3503.   {
  3504.  
  3505.     xrot (me)-=9;
  3506.  
  3507.     waitf;
  3508.  
  3509.   }
  3510.  
  3511.   invis (me);
  3512.  
  3513.   clrtrig (me, 0);
  3514.  
  3515. }
  3516. end
  3517. End_Chunk
  3518.  
  3519. Chunk: SoundRef
  3520.  Number: 1
  3521.  Index: 1 Sound: 1
  3522. End_Chunk
  3523. Chunk: InitSize
  3524.  Size: 3300 6000 0
  3525. End_Chunk
  3526. Chunk: Rotations
  3527.  Initial: 0x0000 0xFFFFC000 0x0000
  3528.  Centre:  1650 0 0
  3529. End_Chunk
  3530.  
  3531. Chunk: ImageRef
  3532.  Number: 3
  3533.  Index: 1 Image: 32
  3534.  Index: 2 Image: 37
  3535.  Index: 3 Image: 21
  3536. End_Chunk
  3537. ;
  3538. ;-------Object   49-------------------------------------------------------
  3539. ; 
  3540. Chunk: Standard
  3541.  Name:     "chimney[49]"
  3542.  Number:   49
  3543.  Size:     3300 6000 0
  3544.  Position: 1972997 1000 1917781
  3545.  Type:     18
  3546.  Layer:    0
  3547.  DFlags:   r
  3548.  OFlags:   Ii
  3549. End_Chunk
  3550. Chunk: TexCoords
  3551.  Number: 1
  3552.  Mode:   0
  3553.  SubChunk
  3554.   Facet:     1
  3555.   ImageRef:  1
  3556.   PixScale:  0
  3557.   NumCoords: 4
  3558.     0.00000 0.00000
  3559.     0.00000 1.00000
  3560.     1.00000 1.00000
  3561.     0.00000 0.00000
  3562. End_Chunk
  3563. Chunk: SCL
  3564. long   Temp;
  3565.  
  3566.  
  3567.  
  3568. resume (1, 2);
  3569.  
  3570. if (first)
  3571.  
  3572. {
  3573.  
  3574.   regGetN ("flower4", &Temp);
  3575.  
  3576.   if (Temp)
  3577.  
  3578.   {
  3579.  
  3580.     vis (me);
  3581.  
  3582.     timgref (me, 1)=3;
  3583.  
  3584.   }
  3585.  
  3586. }
  3587.  
  3588. if (activate (me, 13) && !vis? (me))
  3589.  
  3590.   regPutN ("flower4", 1);
  3591.  
  3592. if (activate (me, 0) && #4.Select==1)
  3593.  
  3594. {
  3595.  
  3596.   regPutN ("flower4", 0);
  3597.  
  3598.   sound (1, 64, 127, 0);
  3599.  
  3600.   repeat (10)
  3601.  
  3602.   {
  3603.  
  3604.     xrot (me)-=9;
  3605.  
  3606.     waitf;
  3607.  
  3608.   }
  3609.  
  3610.   invis (me);
  3611.  
  3612.   clrtrig (me, 0);
  3613.  
  3614. }
  3615. end
  3616. End_Chunk
  3617.  
  3618. Chunk: SoundRef
  3619.  Number: 1
  3620.  Index: 1 Sound: 1
  3621. End_Chunk
  3622. Chunk: InitSize
  3623.  Size: 3300 6000 0
  3624. End_Chunk
  3625. Chunk: Rotations
  3626.  Initial: 0x0000 0xFFFFC000 0x0000
  3627.  Centre:  1650 0 0
  3628. End_Chunk
  3629.  
  3630. Chunk: ImageRef
  3631.  Number: 3
  3632.  Index: 1 Image: 32
  3633.  Index: 2 Image: 37
  3634.  Index: 3 Image: 21
  3635. End_Chunk
  3636. ;
  3637. ;-------Object   51-------------------------------------------------------
  3638. ; 
  3639. Chunk: Standard
  3640.  Name:     "chimney[51]"
  3641.  Number:   51
  3642.  Size:     3300 6000 0
  3643.  Position: 1972997 1000 1891781
  3644.  Type:     18
  3645.  Layer:    0
  3646.  DFlags:   r
  3647.  OFlags:   Ii
  3648. End_Chunk
  3649. Chunk: TexCoords
  3650.  Number: 1
  3651.  Mode:   0
  3652.  SubChunk
  3653.   Facet:     1
  3654.   ImageRef:  1
  3655.   PixScale:  0
  3656.   NumCoords: 4
  3657.     0.00000 0.00000
  3658.     0.00000 1.00000
  3659.     1.00000 1.00000
  3660.     0.00000 0.00000
  3661. End_Chunk
  3662. Chunk: SCL
  3663. long   Temp;
  3664.  
  3665.  
  3666.  
  3667. resume (1, 2);
  3668.  
  3669. if (first)
  3670.  
  3671. {
  3672.  
  3673.   regGetN ("flower2", &Temp);
  3674.  
  3675.   if (Temp)
  3676.  
  3677.   {
  3678.  
  3679.     vis (me);
  3680.  
  3681.     timgref (me, 1)=3;
  3682.  
  3683.   }
  3684.  
  3685. }
  3686.  
  3687. if (activate (me, 13) && !vis? (me))
  3688.  
  3689.   regPutN ("flower2", 1);
  3690.  
  3691. if (activate (me, 0) && #4.Select==1)
  3692.  
  3693. {
  3694.  
  3695.   regPutN ("flower2", 0);
  3696.  
  3697.   sound (1, 64, 127, 0);
  3698.  
  3699.   repeat (10)
  3700.  
  3701.   {
  3702.  
  3703.     xrot (me)-=9;
  3704.  
  3705.     waitf;
  3706.  
  3707.   }
  3708.  
  3709.   invis (me);
  3710.  
  3711.   clrtrig (me, 0);
  3712.  
  3713. }
  3714. end
  3715. End_Chunk
  3716.  
  3717. Chunk: SoundRef
  3718.  Number: 1
  3719.  Index: 1 Sound: 1
  3720. End_Chunk
  3721. Chunk: InitSize
  3722.  Size: 3300 6000 0
  3723. End_Chunk
  3724. Chunk: Rotations
  3725.  Initial: 0x0000 0xFFFFC000 0x0000
  3726.  Centre:  1650 0 0
  3727. End_Chunk
  3728.  
  3729. Chunk: ImageRef
  3730.  Number: 3
  3731.  Index: 1 Image: 32
  3732.  Index: 2 Image: 37
  3733.  Index: 3 Image: 21
  3734. End_Chunk
  3735. ;
  3736. ;-------Object   46-------------------------------------------------------
  3737. ; 
  3738. Chunk: Standard
  3739.  Name:     "chimney[46]"
  3740.  Number:   46
  3741.  Size:     3300 6000 0
  3742.  Position: 1974997 1000 1947781
  3743.  Type:     18
  3744.  Layer:    0
  3745.  DFlags:   r
  3746.  OFlags:   Ii
  3747. End_Chunk
  3748. Chunk: TexCoords
  3749.  Number: 1
  3750.  Mode:   0
  3751.  SubChunk
  3752.   Facet:     1
  3753.   ImageRef:  1
  3754.   PixScale:  0
  3755.   NumCoords: 4
  3756.     0.00000 0.00000
  3757.     0.00000 1.00000
  3758.     1.00000 1.00000
  3759.     0.00000 0.00000
  3760. End_Chunk
  3761. Chunk: SCL
  3762. long   Temp;
  3763.  
  3764.  
  3765.  
  3766. resume (1, 2);
  3767.  
  3768. if (first)
  3769.  
  3770. {
  3771.  
  3772.   regGetN ("flower7", &Temp);
  3773.  
  3774.   if (Temp)
  3775.  
  3776.   {
  3777.  
  3778.     vis (me);
  3779.  
  3780.     timgref (me, 1)=3;
  3781.  
  3782.   }
  3783.  
  3784. }
  3785.  
  3786. if (activate (me, 13) && !vis? (me))
  3787.  
  3788.   regPutN ("flower7", 1);
  3789.  
  3790. if (activate (me, 0) && #4.Select==1)
  3791.  
  3792. {
  3793.  
  3794.   regPutN ("flower7", 0);
  3795.  
  3796.   sound (1, 64, 127, 0);
  3797.  
  3798.   repeat (10)
  3799.  
  3800.   {
  3801.  
  3802.     xrot (me)-=9;
  3803.  
  3804.     waitf;
  3805.  
  3806.   }
  3807.  
  3808.   invis (me);
  3809.  
  3810.   clrtrig (me, 0);
  3811.  
  3812. }
  3813. end
  3814. End_Chunk
  3815.  
  3816. Chunk: SoundRef
  3817.  Number: 1
  3818.  Index: 1 Sound: 1
  3819. End_Chunk
  3820. Chunk: InitSize
  3821.  Size: 3300 6000 0
  3822. End_Chunk
  3823. Chunk: Rotations
  3824.  Initial: 0x0000 0xFFFFC000 0x0000
  3825.  Centre:  1650 0 0
  3826. End_Chunk
  3827.  
  3828. Chunk: ImageRef
  3829.  Number: 3
  3830.  Index: 1 Image: 32
  3831.  Index: 2 Image: 37
  3832.  Index: 3 Image: 21
  3833. End_Chunk
  3834. ;
  3835. ;-------Object   48-------------------------------------------------------
  3836. ; 
  3837. Chunk: Standard
  3838.  Name:     "chimney[48]"
  3839.  Number:   48
  3840.  Size:     3300 6000 0
  3841.  Position: 1974997 1000 1927781
  3842.  Type:     18
  3843.  Layer:    0
  3844.  DFlags:   r
  3845.  OFlags:   Ii
  3846. End_Chunk
  3847. Chunk: TexCoords
  3848.  Number: 1
  3849.  Mode:   0
  3850.  SubChunk
  3851.   Facet:     1
  3852.   ImageRef:  1
  3853.   PixScale:  0
  3854.   NumCoords: 4
  3855.     0.00000 0.00000
  3856.     0.00000 1.00000
  3857.     1.00000 1.00000
  3858.     0.00000 0.00000
  3859. End_Chunk
  3860. Chunk: SCL
  3861. long   Temp;
  3862.  
  3863.  
  3864.  
  3865. resume (1, 2);
  3866.  
  3867. if (first)
  3868.  
  3869. {
  3870.  
  3871.   regGetN ("flower5", &Temp);
  3872.  
  3873.   if (Temp)
  3874.  
  3875.   {
  3876.  
  3877.     vis (me);
  3878.  
  3879.     timgref (me, 1)=3;
  3880.  
  3881.   }
  3882.  
  3883. }
  3884.  
  3885. if (activate (me, 13) && !vis? (me))
  3886.  
  3887.   regPutN ("flower5", 1);
  3888.  
  3889. if (activate (me, 0) && #4.Select==1)
  3890.  
  3891. {
  3892.  
  3893.   regPutN ("flower5", 0);
  3894.  
  3895.   sound (1, 64, 127, 0);
  3896.  
  3897.   repeat (10)
  3898.  
  3899.   {
  3900.  
  3901.     xrot (me)-=9;
  3902.  
  3903.     waitf;
  3904.  
  3905.   }
  3906.  
  3907.   invis (me);
  3908.  
  3909.   clrtrig (me, 0);
  3910.  
  3911. }
  3912. end
  3913. End_Chunk
  3914.  
  3915. Chunk: SoundRef
  3916.  Number: 1
  3917.  Index: 1 Sound: 1
  3918. End_Chunk
  3919. Chunk: InitSize
  3920.  Size: 3300 6000 0
  3921. End_Chunk
  3922. Chunk: Rotations
  3923.  Initial: 0x0000 0xFFFFC000 0x0000
  3924.  Centre:  1650 0 0
  3925. End_Chunk
  3926.  
  3927. Chunk: ImageRef
  3928.  Number: 3
  3929.  Index: 1 Image: 32
  3930.  Index: 2 Image: 37
  3931.  Index: 3 Image: 21
  3932. End_Chunk
  3933. ;
  3934. ;-------Object   50-------------------------------------------------------
  3935. ; 
  3936. Chunk: Standard
  3937.  Name:     "chimney[50]"
  3938.  Number:   50
  3939.  Size:     3300 6000 0
  3940.  Position: 1974997 1000 1903781
  3941.  Type:     18
  3942.  Layer:    0
  3943.  DFlags:   r
  3944.  OFlags:   Ii
  3945. End_Chunk
  3946. Chunk: TexCoords
  3947.  Number: 1
  3948.  Mode:   0
  3949.  SubChunk
  3950.   Facet:     1
  3951.   ImageRef:  1
  3952.   PixScale:  0
  3953.   NumCoords: 4
  3954.     0.00000 0.00000
  3955.     0.00000 1.00000
  3956.     1.00000 1.00000
  3957.     0.00000 0.00000
  3958. End_Chunk
  3959. Chunk: SCL
  3960. long   Temp;
  3961.  
  3962.  
  3963.  
  3964. resume (1, 2);
  3965.  
  3966. if (first)
  3967.  
  3968. {
  3969.  
  3970.   regGetN ("flower3", &Temp);
  3971.  
  3972.   if (Temp)
  3973.  
  3974.   {
  3975.  
  3976.     vis (me);
  3977.  
  3978.     timgref (me, 1)=3;
  3979.  
  3980.   }
  3981.  
  3982. }
  3983.  
  3984. if (activate (me, 13) && !vis? (me))
  3985.  
  3986.   regPutN ("flower3", 1);
  3987.  
  3988. if (activate (me, 0) && #4.Select==1)
  3989.  
  3990. {
  3991.  
  3992.   regPutN ("flower3", 0);
  3993.  
  3994.   sound (1, 64, 127, 0);
  3995.  
  3996.   repeat (10)
  3997.  
  3998.   {
  3999.  
  4000.     xrot (me)-=9;
  4001.  
  4002.     waitf;
  4003.  
  4004.   }
  4005.  
  4006.   invis (me);
  4007.  
  4008.   clrtrig (me, 0);
  4009.  
  4010. }
  4011. end
  4012. End_Chunk
  4013.  
  4014. Chunk: SoundRef
  4015.  Number: 1
  4016.  Index: 1 Sound: 1
  4017. End_Chunk
  4018. Chunk: InitSize
  4019.  Size: 3300 6000 0
  4020. End_Chunk
  4021. Chunk: Rotations
  4022.  Initial: 0x0000 0xFFFFC000 0x0000
  4023.  Centre:  1650 0 0
  4024. End_Chunk
  4025.  
  4026. Chunk: ImageRef
  4027.  Number: 3
  4028.  Index: 1 Image: 32
  4029.  Index: 2 Image: 37
  4030.  Index: 3 Image: 21
  4031. End_Chunk
  4032. ;
  4033. ;-------Object   52-------------------------------------------------------
  4034. ; 
  4035. Chunk: Standard
  4036.  Name:     "flower"
  4037.  Number:   52
  4038.  Size:     3300 6000 0
  4039.  Position: 1975997 1000 1882781
  4040.  Type:     18
  4041.  Layer:    0
  4042.  DFlags:   r
  4043.  OFlags:   Ii
  4044. End_Chunk
  4045. Chunk: TexCoords
  4046.  Number: 1
  4047.  Mode:   0
  4048.  SubChunk
  4049.   Facet:     1
  4050.   ImageRef:  1
  4051.   PixScale:  0
  4052.   NumCoords: 4
  4053.     0.00000 0.00000
  4054.     0.00000 1.00000
  4055.     1.00000 1.00000
  4056.     0.00000 0.00000
  4057. End_Chunk
  4058. Chunk: InitSize
  4059.  Size: 3300 6000 0
  4060. End_Chunk
  4061.  
  4062. Chunk: SoundRef
  4063.  Number: 1
  4064.  Index: 1 Sound: 1
  4065. End_Chunk
  4066. Chunk: SCL
  4067. long   Temp;
  4068.  
  4069.  
  4070.  
  4071. resume (1, 2);
  4072.  
  4073. if (first)
  4074.  
  4075. {
  4076.  
  4077.   regGetN ("flower1", &Temp);
  4078.  
  4079.   if (Temp)
  4080.  
  4081.   {
  4082.  
  4083.     vis (me);
  4084.  
  4085.     timgref (me, 1)=3;
  4086.  
  4087.   }
  4088.  
  4089. }
  4090.  
  4091. if (activate (me, 13) && !vis? (me))
  4092.  
  4093.   regPutN ("flower1", 1);
  4094.  
  4095. if (activate (me, 0) && #4.Select==1)
  4096.  
  4097. {
  4098.  
  4099.   regPutN ("flower1", 0);
  4100.  
  4101.   sound (1, 64, 127, 0);
  4102.  
  4103.   repeat (10)
  4104.  
  4105.   {
  4106.  
  4107.     xrot (me)-=9;
  4108.  
  4109.     waitf;
  4110.  
  4111.   }
  4112.  
  4113.   invis (me);
  4114.  
  4115.   clrtrig (me, 0);
  4116.  
  4117. }
  4118. end
  4119. End_Chunk
  4120. Chunk: Rotations
  4121.  Initial: 0x0000 0xFFFFC000 0x0000
  4122.  Centre:  1650 0 0
  4123. End_Chunk
  4124.  
  4125. Chunk: ImageRef
  4126.  Number: 3
  4127.  Index: 1 Image: 32
  4128.  Index: 2 Image: 37
  4129.  Index: 3 Image: 21
  4130. End_Chunk
  4131. ;
  4132. ;-------Object   27-------------------------------------------------------
  4133. ; 
  4134. Chunk: Standard
  4135.  Name:     "chimney[27]"
  4136.  Number:   27
  4137.  Size:     4300 8000 0
  4138.  Position: 2058913 1000 1979800
  4139.  Type:     18
  4140.  Layer:    0
  4141.  OFlags:   Ii
  4142. End_Chunk
  4143. Chunk: TexCoords
  4144.  Number: 1
  4145.  Mode:   0
  4146.  SubChunk
  4147.   Facet:     1
  4148.   ImageRef:  1
  4149.   PixScale:  0
  4150.   NumCoords: 4
  4151.     0.00000 0.00000
  4152.     0.00000 1.00000
  4153.     1.00000 1.00000
  4154.     0.00000 0.00000
  4155. End_Chunk
  4156.  
  4157. Chunk: SoundRef
  4158.  Number: 1
  4159.  Index: 1 Sound: 1
  4160. End_Chunk
  4161. Chunk: SCL
  4162. long   Temp;
  4163.  
  4164.  
  4165.  
  4166. resume (1, 2);
  4167.  
  4168. if (first)
  4169.  
  4170. {
  4171.  
  4172.   regGetN ("weed12", &Temp);
  4173.  
  4174.   if (Temp)
  4175.  
  4176.   {
  4177.  
  4178.     vis (me);
  4179.  
  4180.     timgref (me, 1)=3;
  4181.  
  4182.   }
  4183.  
  4184. }
  4185.  
  4186. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4187.  
  4188. {
  4189.  
  4190.   xrot (me)=0;
  4191.  
  4192.   timgref (me, 1)=1;
  4193.  
  4194.   vis (me);
  4195.  
  4196.   waitfs (10);
  4197.  
  4198.   timgref (me, 1)=2;
  4199.  
  4200.   waitfs (10);
  4201.  
  4202.   timgref (me, 1)=3;
  4203.  
  4204.   regPutN ("weed12", 1);
  4205.  
  4206. }
  4207.  
  4208. if (activate (me, 0) && #4.Select==1)
  4209.  
  4210. {
  4211.  
  4212.   regPutN ("weed12", 0);
  4213.  
  4214.   sound (1, 64, 127, 0);
  4215.  
  4216.   repeat (10)
  4217.  
  4218.   {
  4219.  
  4220.     xrot (me)-=9;
  4221.  
  4222.     waitf;
  4223.  
  4224.   }
  4225.  
  4226.   invis (me);
  4227.  
  4228.   clrtrig (me, 0);
  4229.  
  4230. }
  4231. end
  4232. End_Chunk
  4233. Chunk: Rotations
  4234.  Initial: 0x0000 0x4000 0x0000
  4235.  Centre:  2150 0 0
  4236. End_Chunk
  4237.  
  4238. Chunk: ImageRef
  4239.  Number: 3
  4240.  Index: 1 Image: 33
  4241.  Index: 2 Image: 34
  4242.  Index: 3 Image: 25
  4243. End_Chunk
  4244. ;
  4245. ;-------Object   56-------------------------------------------------------
  4246. ; 
  4247. Chunk: Standard
  4248.  Name:     "chimney[56]"
  4249.  Number:   56
  4250.  Size:     4300 8000 0
  4251.  Position: 2058913 1000 1937800
  4252.  Type:     18
  4253.  Layer:    0
  4254.  OFlags:   Ii
  4255. End_Chunk
  4256. Chunk: TexCoords
  4257.  Number: 1
  4258.  Mode:   0
  4259.  SubChunk
  4260.   Facet:     1
  4261.   ImageRef:  1
  4262.   PixScale:  0
  4263.   NumCoords: 4
  4264.     0.00000 0.00000
  4265.     0.00000 1.00000
  4266.     1.00000 1.00000
  4267.     0.00000 0.00000
  4268. End_Chunk
  4269.  
  4270. Chunk: SoundRef
  4271.  Number: 1
  4272.  Index: 1 Sound: 1
  4273. End_Chunk
  4274. Chunk: SCL
  4275. long   Temp;
  4276.  
  4277.  
  4278.  
  4279. resume (1, 2);
  4280.  
  4281. if (first)
  4282.  
  4283. {
  4284.  
  4285.   regGetN ("weed16", &Temp);
  4286.  
  4287.   if (Temp)
  4288.  
  4289.   {
  4290.  
  4291.     vis (me);
  4292.  
  4293.     timgref (me, 1)=3;
  4294.  
  4295.   }
  4296.  
  4297. }
  4298.  
  4299. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4300.  
  4301. {
  4302.  
  4303.   xrot (me)=0;
  4304.  
  4305.   timgref (me, 1)=1;
  4306.  
  4307.   vis (me);
  4308.  
  4309.   waitfs (10);
  4310.  
  4311.   timgref (me, 1)=2;
  4312.  
  4313.   waitfs (10);
  4314.  
  4315.   timgref (me, 1)=3;
  4316.  
  4317.   regPutN ("weed16", 1);
  4318.  
  4319. }
  4320.  
  4321. if (activate (me, 0) && #4.Select==1)
  4322.  
  4323. {
  4324.  
  4325.   regPutN ("weed16", 0);
  4326.  
  4327.   sound (1, 64, 127, 0);
  4328.  
  4329.   repeat (10)
  4330.  
  4331.   {
  4332.  
  4333.     xrot (me)-=9;
  4334.  
  4335.     waitf;
  4336.  
  4337.   }
  4338.  
  4339.   invis (me);
  4340.  
  4341.   clrtrig (me, 0);
  4342.  
  4343. }
  4344. end
  4345. End_Chunk
  4346. Chunk: Rotations
  4347.  Initial: 0x0000 0x4000 0x0000
  4348.  Centre:  2150 0 0
  4349. End_Chunk
  4350.  
  4351. Chunk: ImageRef
  4352.  Number: 3
  4353.  Index: 1 Image: 33
  4354.  Index: 2 Image: 34
  4355.  Index: 3 Image: 25
  4356. End_Chunk
  4357. ;
  4358. ;-------Object   61-------------------------------------------------------
  4359. ; 
  4360. Chunk: Standard
  4361.  Name:     "chimney[61]"
  4362.  Number:   61
  4363.  Size:     4300 8000 0
  4364.  Position: 2058913 1000 1882800
  4365.  Type:     18
  4366.  Layer:    0
  4367.  OFlags:   Ii
  4368. End_Chunk
  4369. Chunk: TexCoords
  4370.  Number: 1
  4371.  Mode:   0
  4372.  SubChunk
  4373.   Facet:     1
  4374.   ImageRef:  1
  4375.   PixScale:  0
  4376.   NumCoords: 4
  4377.     0.00000 0.00000
  4378.     0.00000 1.00000
  4379.     1.00000 1.00000
  4380.     0.00000 0.00000
  4381. End_Chunk
  4382.  
  4383. Chunk: SoundRef
  4384.  Number: 1
  4385.  Index: 1 Sound: 1
  4386. End_Chunk
  4387. Chunk: SCL
  4388. long   Temp;
  4389.  
  4390.  
  4391.  
  4392. resume (1, 2);
  4393.  
  4394. if (first)
  4395.  
  4396. {
  4397.  
  4398.   regGetN ("weed21", &Temp);
  4399.  
  4400.   if (Temp)
  4401.  
  4402.   {
  4403.  
  4404.     vis (me);
  4405.  
  4406.     timgref (me, 1)=3;
  4407.  
  4408.   }
  4409.  
  4410. }
  4411.  
  4412. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4413.  
  4414. {
  4415.  
  4416.   xrot (me)=0;
  4417.  
  4418.   timgref (me, 1)=1;
  4419.  
  4420.   vis (me);
  4421.  
  4422.   waitfs (10);
  4423.  
  4424.   timgref (me, 1)=2;
  4425.  
  4426.   waitfs (10);
  4427.  
  4428.   timgref (me, 1)=3;
  4429.  
  4430.   regPutN ("weed21", 1);
  4431.  
  4432. }
  4433.  
  4434. if (activate (me, 0) && #4.Select==1)
  4435.  
  4436. {
  4437.  
  4438.   regPutN ("weed21", 0);
  4439.  
  4440.   sound (1, 64, 127, 0);
  4441.  
  4442.   repeat (10)
  4443.  
  4444.   {
  4445.  
  4446.     xrot (me)-=9;
  4447.  
  4448.     waitf;
  4449.  
  4450.   }
  4451.  
  4452.   invis (me);
  4453.  
  4454.   clrtrig (me, 0);
  4455.  
  4456. }
  4457. end
  4458. End_Chunk
  4459. Chunk: Rotations
  4460.  Initial: 0x0000 0x4000 0x0000
  4461.  Centre:  2150 0 0
  4462. End_Chunk
  4463.  
  4464. Chunk: ImageRef
  4465.  Number: 3
  4466.  Index: 1 Image: 33
  4467.  Index: 2 Image: 34
  4468.  Index: 3 Image: 25
  4469. End_Chunk
  4470. ;
  4471. ;-------Object   53-------------------------------------------------------
  4472. ; 
  4473. Chunk: Standard
  4474.  Name:     "chimney[53]"
  4475.  Number:   53
  4476.  Size:     4300 8000 0
  4477.  Position: 2057913 1000 1970800
  4478.  Type:     18
  4479.  Layer:    0
  4480.  OFlags:   Ii
  4481. End_Chunk
  4482. Chunk: TexCoords
  4483.  Number: 1
  4484.  Mode:   0
  4485.  SubChunk
  4486.   Facet:     1
  4487.   ImageRef:  1
  4488.   PixScale:  0
  4489.   NumCoords: 4
  4490.     0.00000 0.00000
  4491.     0.00000 1.00000
  4492.     1.00000 1.00000
  4493.     0.00000 0.00000
  4494. End_Chunk
  4495.  
  4496. Chunk: SoundRef
  4497.  Number: 1
  4498.  Index: 1 Sound: 1
  4499. End_Chunk
  4500. Chunk: SCL
  4501. long   Temp;
  4502.  
  4503.  
  4504.  
  4505. resume (1, 2);
  4506.  
  4507. if (first)
  4508.  
  4509. {
  4510.  
  4511.   regGetN ("weed13", &Temp);
  4512.  
  4513.   if (Temp)
  4514.  
  4515.   {
  4516.  
  4517.     vis (me);
  4518.  
  4519.     timgref (me, 1)=3;
  4520.  
  4521.   }
  4522.  
  4523. }
  4524.  
  4525. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4526.  
  4527. {
  4528.  
  4529.   xrot (me)=0;
  4530.  
  4531.   timgref (me, 1)=1;
  4532.  
  4533.   vis (me);
  4534.  
  4535.   waitfs (10);
  4536.  
  4537.   timgref (me, 1)=2;
  4538.  
  4539.   waitfs (10);
  4540.  
  4541.   timgref (me, 1)=3;
  4542.  
  4543.   regPutN ("weed13", 1);
  4544.  
  4545. }
  4546.  
  4547. if (activate (me, 0) && #4.Select==1)
  4548.  
  4549. {
  4550.  
  4551.   regPutN ("weed13", 0);
  4552.  
  4553.   sound (1, 64, 127, 0);
  4554.  
  4555.   repeat (10)
  4556.  
  4557.   {
  4558.  
  4559.     xrot (me)-=9;
  4560.  
  4561.     waitf;
  4562.  
  4563.   }
  4564.  
  4565.   invis (me);
  4566.  
  4567.   clrtrig (me, 0);
  4568.  
  4569. }
  4570. end
  4571. End_Chunk
  4572. Chunk: Rotations
  4573.  Initial: 0x0000 0x4000 0x0000
  4574.  Centre:  2150 0 0
  4575. End_Chunk
  4576.  
  4577. Chunk: ImageRef
  4578.  Number: 3
  4579.  Index: 1 Image: 33
  4580.  Index: 2 Image: 34
  4581.  Index: 3 Image: 25
  4582. End_Chunk
  4583. ;
  4584. ;-------Object   54-------------------------------------------------------
  4585. ; 
  4586. Chunk: Standard
  4587.  Name:     "chimney[54]"
  4588.  Number:   54
  4589.  Size:     4300 8000 0
  4590.  Position: 2057913 1000 1964800
  4591.  Type:     18
  4592.  Layer:    0
  4593.  OFlags:   Ii
  4594. End_Chunk
  4595. Chunk: TexCoords
  4596.  Number: 1
  4597.  Mode:   0
  4598.  SubChunk
  4599.   Facet:     1
  4600.   ImageRef:  1
  4601.   PixScale:  0
  4602.   NumCoords: 4
  4603.     0.00000 0.00000
  4604.     0.00000 1.00000
  4605.     1.00000 1.00000
  4606.     0.00000 0.00000
  4607. End_Chunk
  4608.  
  4609. Chunk: SoundRef
  4610.  Number: 1
  4611.  Index: 1 Sound: 1
  4612. End_Chunk
  4613. Chunk: SCL
  4614. long   Temp;
  4615.  
  4616.  
  4617.  
  4618. resume (1, 2);
  4619.  
  4620. if (first)
  4621.  
  4622. {
  4623.  
  4624.   regGetN ("weed14", &Temp);
  4625.  
  4626.   if (Temp)
  4627.  
  4628.   {
  4629.  
  4630.     vis (me);
  4631.  
  4632.     timgref (me, 1)=3;
  4633.  
  4634.   }
  4635.  
  4636. }
  4637.  
  4638. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4639.  
  4640. {
  4641.  
  4642.   xrot (me)=0;
  4643.  
  4644.   timgref (me, 1)=1;
  4645.  
  4646.   vis (me);
  4647.  
  4648.   waitfs (10);
  4649.  
  4650.   timgref (me, 1)=2;
  4651.  
  4652.   waitfs (10);
  4653.  
  4654.   timgref (me, 1)=3;
  4655.  
  4656.   regPutN ("weed14", 1);
  4657.  
  4658. }
  4659.  
  4660. if (activate (me, 0) && #4.Select==1)
  4661.  
  4662. {
  4663.  
  4664.   regPutN ("weed14", 0);
  4665.  
  4666.   sound (1, 64, 127, 0);
  4667.  
  4668.   repeat (10)
  4669.  
  4670.   {
  4671.  
  4672.     xrot (me)-=9;
  4673.  
  4674.     waitf;
  4675.  
  4676.   }
  4677.  
  4678.   invis (me);
  4679.  
  4680.   clrtrig (me, 0);
  4681.  
  4682. }
  4683. end
  4684. End_Chunk
  4685. Chunk: Rotations
  4686.  Initial: 0x0000 0x4000 0x0000
  4687.  Centre:  2150 0 0
  4688. End_Chunk
  4689.  
  4690. Chunk: ImageRef
  4691.  Number: 3
  4692.  Index: 1 Image: 33
  4693.  Index: 2 Image: 34
  4694.  Index: 3 Image: 25
  4695. End_Chunk
  4696. ;
  4697. ;-------Object   55-------------------------------------------------------
  4698. ; 
  4699. Chunk: Standard
  4700.  Name:     "chimney[55]"
  4701.  Number:   55
  4702.  Size:     4300 8000 0
  4703.  Position: 2056913 1000 1946800
  4704.  Type:     18
  4705.  Layer:    0
  4706.  OFlags:   Ii
  4707. End_Chunk
  4708. Chunk: TexCoords
  4709.  Number: 1
  4710.  Mode:   0
  4711.  SubChunk
  4712.   Facet:     1
  4713.   ImageRef:  1
  4714.   PixScale:  0
  4715.   NumCoords: 4
  4716.     0.00000 0.00000
  4717.     0.00000 1.00000
  4718.     1.00000 1.00000
  4719.     0.00000 0.00000
  4720. End_Chunk
  4721.  
  4722. Chunk: SoundRef
  4723.  Number: 1
  4724.  Index: 1 Sound: 1
  4725. End_Chunk
  4726. Chunk: SCL
  4727. long   Temp;
  4728.  
  4729.  
  4730.  
  4731. resume (1, 2);
  4732.  
  4733. if (first)
  4734.  
  4735. {
  4736.  
  4737.   regGetN ("weed15", &Temp);
  4738.  
  4739.   if (Temp)
  4740.  
  4741.   {
  4742.  
  4743.     vis (me);
  4744.  
  4745.     timgref (me, 1)=3;
  4746.  
  4747.   }
  4748.  
  4749. }
  4750.  
  4751. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4752.  
  4753. {
  4754.  
  4755.   xrot (me)=0;
  4756.  
  4757.   timgref (me, 1)=1;
  4758.  
  4759.   vis (me);
  4760.  
  4761.   waitfs (10);
  4762.  
  4763.   timgref (me, 1)=2;
  4764.  
  4765.   waitfs (10);
  4766.  
  4767.   timgref (me, 1)=3;
  4768.  
  4769.   regPutN ("weed15", 1);
  4770.  
  4771. }
  4772.  
  4773. if (activate (me, 0) && #4.Select==1)
  4774.  
  4775. {
  4776.  
  4777.   regPutN ("weed15", 0);
  4778.  
  4779.   sound (1, 64, 127, 0);
  4780.  
  4781.   repeat (10)
  4782.  
  4783.   {
  4784.  
  4785.     xrot (me)-=9;
  4786.  
  4787.     waitf;
  4788.  
  4789.   }
  4790.  
  4791.   invis (me);
  4792.  
  4793.   clrtrig (me, 0);
  4794.  
  4795. }
  4796. end
  4797. End_Chunk
  4798. Chunk: Rotations
  4799.  Initial: 0x0000 0x4000 0x0000
  4800.  Centre:  2150 0 0
  4801. End_Chunk
  4802.  
  4803. Chunk: ImageRef
  4804.  Number: 3
  4805.  Index: 1 Image: 33
  4806.  Index: 2 Image: 34
  4807.  Index: 3 Image: 25
  4808. End_Chunk
  4809. ;
  4810. ;-------Object   57-------------------------------------------------------
  4811. ; 
  4812. Chunk: Standard
  4813.  Name:     "chimney[57]"
  4814.  Number:   57
  4815.  Size:     4300 8000 0
  4816.  Position: 2056913 1000 1926800
  4817.  Type:     18
  4818.  Layer:    0
  4819.  OFlags:   Ii
  4820. End_Chunk
  4821. Chunk: TexCoords
  4822.  Number: 1
  4823.  Mode:   0
  4824.  SubChunk
  4825.   Facet:     1
  4826.   ImageRef:  1
  4827.   PixScale:  0
  4828.   NumCoords: 4
  4829.     0.00000 0.00000
  4830.     0.00000 1.00000
  4831.     1.00000 1.00000
  4832.     0.00000 0.00000
  4833. End_Chunk
  4834.  
  4835. Chunk: SoundRef
  4836.  Number: 1
  4837.  Index: 1 Sound: 1
  4838. End_Chunk
  4839. Chunk: SCL
  4840. long   Temp;
  4841.  
  4842.  
  4843.  
  4844. resume (1, 2);
  4845.  
  4846. if (first)
  4847.  
  4848. {
  4849.  
  4850.   regGetN ("weed17", &Temp);
  4851.  
  4852.   if (Temp)
  4853.  
  4854.   {
  4855.  
  4856.     vis (me);
  4857.  
  4858.     timgref (me, 1)=3;
  4859.  
  4860.   }
  4861.  
  4862. }
  4863.  
  4864. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4865.  
  4866. {
  4867.  
  4868.   xrot (me)=0;
  4869.  
  4870.   timgref (me, 1)=1;
  4871.  
  4872.   vis (me);
  4873.  
  4874.   waitfs (10);
  4875.  
  4876.   timgref (me, 1)=2;
  4877.  
  4878.   waitfs (10);
  4879.  
  4880.   timgref (me, 1)=3;
  4881.  
  4882.   regPutN ("weed17", 1);
  4883.  
  4884. }
  4885.  
  4886. if (activate (me, 0) && #4.Select==1)
  4887.  
  4888. {
  4889.  
  4890.   regPutN ("weed17", 0);
  4891.  
  4892.   sound (1, 64, 127, 0);
  4893.  
  4894.   repeat (10)
  4895.  
  4896.   {
  4897.  
  4898.     xrot (me)-=9;
  4899.  
  4900.     waitf;
  4901.  
  4902.   }
  4903.  
  4904.   invis (me);
  4905.  
  4906.   clrtrig (me, 0);
  4907.  
  4908. }
  4909. end
  4910. End_Chunk
  4911. Chunk: Rotations
  4912.  Initial: 0x0000 0x4000 0x0000
  4913.  Centre:  2150 0 0
  4914. End_Chunk
  4915.  
  4916. Chunk: ImageRef
  4917.  Number: 3
  4918.  Index: 1 Image: 33
  4919.  Index: 2 Image: 34
  4920.  Index: 3 Image: 25
  4921. End_Chunk
  4922. ;
  4923. ;-------Object   58-------------------------------------------------------
  4924. ; 
  4925. Chunk: Standard
  4926.  Name:     "chimney[58]"
  4927.  Number:   58
  4928.  Size:     4300 8000 0
  4929.  Position: 2057913 1000 1914800
  4930.  Type:     18
  4931.  Layer:    0
  4932.  OFlags:   Ii
  4933. End_Chunk
  4934. Chunk: TexCoords
  4935.  Number: 1
  4936.  Mode:   0
  4937.  SubChunk
  4938.   Facet:     1
  4939.   ImageRef:  1
  4940.   PixScale:  0
  4941.   NumCoords: 4
  4942.     0.00000 0.00000
  4943.     0.00000 1.00000
  4944.     1.00000 1.00000
  4945.     0.00000 0.00000
  4946. End_Chunk
  4947.  
  4948. Chunk: SoundRef
  4949.  Number: 1
  4950.  Index: 1 Sound: 1
  4951. End_Chunk
  4952. Chunk: SCL
  4953. long   Temp;
  4954.  
  4955.  
  4956.  
  4957. resume (1, 2);
  4958.  
  4959. if (first)
  4960.  
  4961. {
  4962.  
  4963.   regGetN ("weed18", &Temp);
  4964.  
  4965.   if (Temp)
  4966.  
  4967.   {
  4968.  
  4969.     vis (me);
  4970.  
  4971.     timgref (me, 1)=3;
  4972.  
  4973.   }
  4974.  
  4975. }
  4976.  
  4977. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  4978.  
  4979. {
  4980.  
  4981.   xrot (me)=0;
  4982.  
  4983.   timgref (me, 1)=1;
  4984.  
  4985.   vis (me);
  4986.  
  4987.   waitfs (10);
  4988.  
  4989.   timgref (me, 1)=2;
  4990.  
  4991.   waitfs (10);
  4992.  
  4993.   timgref (me, 1)=3;
  4994.  
  4995.   regPutN ("weed18", 1);
  4996.  
  4997. }
  4998.  
  4999. if (activate (me, 0) && #4.Select==1)
  5000.  
  5001. {
  5002.  
  5003.   regPutN ("weed18", 0);
  5004.  
  5005.   sound (1, 64, 127, 0);
  5006.  
  5007.   repeat (10)
  5008.  
  5009.   {
  5010.  
  5011.     xrot (me)-=9;
  5012.  
  5013.     waitf;
  5014.  
  5015.   }
  5016.  
  5017.   invis (me);
  5018.  
  5019.   clrtrig (me, 0);
  5020.  
  5021. }
  5022. end
  5023. End_Chunk
  5024. Chunk: Rotations
  5025.  Initial: 0x0000 0x4000 0x0000
  5026.  Centre:  2150 0 0
  5027. End_Chunk
  5028.  
  5029. Chunk: ImageRef
  5030.  Number: 3
  5031.  Index: 1 Image: 33
  5032.  Index: 2 Image: 34
  5033.  Index: 3 Image: 25
  5034. End_Chunk
  5035. ;
  5036. ;-------Object   59-------------------------------------------------------
  5037. ; 
  5038. Chunk: Standard
  5039.  Name:     "chimney[59]"
  5040.  Number:   59
  5041.  Size:     4300 8000 0
  5042.  Position: 2056913 1000 1899800
  5043.  Type:     18
  5044.  Layer:    0
  5045.  OFlags:   Ii
  5046. End_Chunk
  5047. Chunk: TexCoords
  5048.  Number: 1
  5049.  Mode:   0
  5050.  SubChunk
  5051.   Facet:     1
  5052.   ImageRef:  1
  5053.   PixScale:  0
  5054.   NumCoords: 4
  5055.     0.00000 0.00000
  5056.     0.00000 1.00000
  5057.     1.00000 1.00000
  5058.     0.00000 0.00000
  5059. End_Chunk
  5060.  
  5061. Chunk: SoundRef
  5062.  Number: 1
  5063.  Index: 1 Sound: 1
  5064. End_Chunk
  5065. Chunk: SCL
  5066. long   Temp;
  5067.  
  5068.  
  5069.  
  5070. resume (1, 2);
  5071.  
  5072. if (first)
  5073.  
  5074. {
  5075.  
  5076.   regGetN ("weed19", &Temp);
  5077.  
  5078.   if (Temp)
  5079.  
  5080.   {
  5081.  
  5082.     vis (me);
  5083.  
  5084.     timgref (me, 1)=3;
  5085.  
  5086.   }
  5087.  
  5088. }
  5089.  
  5090. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5091.  
  5092. {
  5093.  
  5094.   xrot (me)=0;
  5095.  
  5096.   timgref (me, 1)=1;
  5097.  
  5098.   vis (me);
  5099.  
  5100.   waitfs (10);
  5101.  
  5102.   timgref (me, 1)=2;
  5103.  
  5104.   waitfs (10);
  5105.  
  5106.   timgref (me, 1)=3;
  5107.  
  5108.   regPutN ("weed19", 1);
  5109.  
  5110. }
  5111.  
  5112. if (activate (me, 0) && #4.Select==1)
  5113.  
  5114. {
  5115.  
  5116.   regPutN ("weed19", 0);
  5117.  
  5118.   sound (1, 64, 127, 0);
  5119.  
  5120.   repeat (10)
  5121.  
  5122.   {
  5123.  
  5124.     xrot (me)-=9;
  5125.  
  5126.     waitf;
  5127.  
  5128.   }
  5129.  
  5130.   invis (me);
  5131.  
  5132.   clrtrig (me, 0);
  5133.  
  5134. }
  5135. end
  5136. End_Chunk
  5137. Chunk: Rotations
  5138.  Initial: 0x0000 0x4000 0x0000
  5139.  Centre:  2150 0 0
  5140. End_Chunk
  5141.  
  5142. Chunk: ImageRef
  5143.  Number: 3
  5144.  Index: 1 Image: 33
  5145.  Index: 2 Image: 34
  5146.  Index: 3 Image: 25
  5147. End_Chunk
  5148. ;
  5149. ;-------Object   60-------------------------------------------------------
  5150. ; 
  5151. Chunk: Standard
  5152.  Name:     "chimney[60]"
  5153.  Number:   60
  5154.  Size:     4300 8000 0
  5155.  Position: 2061913 1000 1895800
  5156.  Type:     18
  5157.  Layer:    0
  5158.  OFlags:   Ii
  5159. End_Chunk
  5160. Chunk: TexCoords
  5161.  Number: 1
  5162.  Mode:   0
  5163.  SubChunk
  5164.   Facet:     1
  5165.   ImageRef:  1
  5166.   PixScale:  0
  5167.   NumCoords: 4
  5168.     0.00000 0.00000
  5169.     0.00000 1.00000
  5170.     1.00000 1.00000
  5171.     0.00000 0.00000
  5172. End_Chunk
  5173.  
  5174. Chunk: SoundRef
  5175.  Number: 1
  5176.  Index: 1 Sound: 1
  5177. End_Chunk
  5178. Chunk: SCL
  5179. long   Temp;
  5180.  
  5181.  
  5182.  
  5183. resume (1, 2);
  5184.  
  5185. if (first)
  5186.  
  5187. {
  5188.  
  5189.   regGetN ("weed20", &Temp);
  5190.  
  5191.   if (Temp)
  5192.  
  5193.   {
  5194.  
  5195.     vis (me);
  5196.  
  5197.     timgref (me, 1)=3;
  5198.  
  5199.   }
  5200.  
  5201. }
  5202.  
  5203. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5204.  
  5205. {
  5206.  
  5207.   xrot (me)=0;
  5208.  
  5209.   timgref (me, 1)=1;
  5210.  
  5211.   vis (me);
  5212.  
  5213.   waitfs (10);
  5214.  
  5215.   timgref (me, 1)=2;
  5216.  
  5217.   waitfs (10);
  5218.  
  5219.   timgref (me, 1)=3;
  5220.  
  5221.   regPutN ("weed20", 1);
  5222.  
  5223. }
  5224.  
  5225. if (activate (me, 0) && #4.Select==1)
  5226.  
  5227. {
  5228.  
  5229.   regPutN ("weed20", 0);
  5230.  
  5231.   sound (1, 64, 127, 0);
  5232.  
  5233.   repeat (10)
  5234.  
  5235.   {
  5236.  
  5237.     xrot (me)-=9;
  5238.  
  5239.     waitf;
  5240.  
  5241.   }
  5242.  
  5243.   invis (me);
  5244.  
  5245.   clrtrig (me, 0);
  5246.  
  5247. }
  5248. end
  5249. End_Chunk
  5250. Chunk: Rotations
  5251.  Initial: 0x0000 0x4000 0x0000
  5252.  Centre:  2150 0 0
  5253. End_Chunk
  5254.  
  5255. Chunk: ImageRef
  5256.  Number: 3
  5257.  Index: 1 Image: 33
  5258.  Index: 2 Image: 34
  5259.  Index: 3 Image: 25
  5260. End_Chunk
  5261. ;
  5262. ;-------Object   28-------------------------------------------------------
  5263. ; 
  5264. Chunk: Standard
  5265.  Name:     "chimney[28]"
  5266.  Number:   28
  5267.  Size:     4300 8000 0
  5268.  Position: 2006913 1000 1979800
  5269.  Type:     18
  5270.  Layer:    0
  5271.  OFlags:   Ii
  5272. End_Chunk
  5273. Chunk: TexCoords
  5274.  Number: 1
  5275.  Mode:   0
  5276.  SubChunk
  5277.   Facet:     1
  5278.   ImageRef:  1
  5279.   PixScale:  0
  5280.   NumCoords: 4
  5281.     0.00000 0.00000
  5282.     0.00000 1.00000
  5283.     1.00000 1.00000
  5284.     1.00000 0.00000
  5285. End_Chunk
  5286.  
  5287. Chunk: SoundRef
  5288.  Number: 1
  5289.  Index: 1 Sound: 1
  5290. End_Chunk
  5291. Chunk: SCL
  5292. long   Temp;
  5293.  
  5294.  
  5295.  
  5296. resume (1, 2);
  5297.  
  5298. if (first)
  5299.  
  5300. {
  5301.  
  5302.   regGetN ("weed11", &Temp);
  5303.  
  5304.   if (Temp)
  5305.  
  5306.   {
  5307.  
  5308.     vis (me);
  5309.  
  5310.     timgref (me, 1)=3;
  5311.  
  5312.   }
  5313.  
  5314. }
  5315.  
  5316. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5317.  
  5318. {
  5319.  
  5320.   xrot (me)=0;
  5321.  
  5322.   timgref (me, 1)=1;
  5323.  
  5324.   vis (me);
  5325.  
  5326.   waitfs (10);
  5327.  
  5328.   timgref (me, 1)=2;
  5329.  
  5330.   waitfs (10);
  5331.  
  5332.   timgref (me, 1)=3;
  5333.  
  5334.   regPutN ("weed11", 1);
  5335.  
  5336. }
  5337.  
  5338. if (activate (me, 0) && #4.Select==1)
  5339.  
  5340. {
  5341.  
  5342.   regPutN ("weed11", 0);
  5343.  
  5344.   sound (1, 64, 127, 0);
  5345.  
  5346.   repeat (10)
  5347.  
  5348.   {
  5349.  
  5350.     xrot (me)-=9;
  5351.  
  5352.     waitf;
  5353.  
  5354.   }
  5355.  
  5356.   invis (me);
  5357.  
  5358.   clrtrig (me, 0);
  5359.  
  5360. }
  5361. end
  5362. End_Chunk
  5363. Chunk: Rotations
  5364.  Initial: 0x0000 0x0000 0x0000
  5365.  Centre:  2150 0 0
  5366. End_Chunk
  5367.  
  5368. Chunk: ImageRef
  5369.  Number: 3
  5370.  Index: 1 Image: 33
  5371.  Index: 2 Image: 34
  5372.  Index: 3 Image: 25
  5373. End_Chunk
  5374. ;
  5375. ;-------Object   62-------------------------------------------------------
  5376. ; 
  5377. Chunk: Standard
  5378.  Name:     "chimney[62]"
  5379.  Number:   62
  5380.  Size:     4300 8000 0
  5381.  Position: 1998913 1000 1979800
  5382.  Type:     18
  5383.  Layer:    0
  5384.  OFlags:   Ii
  5385. End_Chunk
  5386. Chunk: TexCoords
  5387.  Number: 1
  5388.  Mode:   0
  5389.  SubChunk
  5390.   Facet:     1
  5391.   ImageRef:  1
  5392.   PixScale:  0
  5393.   NumCoords: 4
  5394.     0.00000 0.00000
  5395.     0.00000 1.00000
  5396.     1.00000 1.00000
  5397.     1.00000 0.00000
  5398. End_Chunk
  5399. Chunk: SCL
  5400. long   Temp;
  5401.  
  5402.  
  5403.  
  5404. resume (1, 2);
  5405.  
  5406. if (first)
  5407.  
  5408. {
  5409.  
  5410.   regGetN ("weed10", &Temp);
  5411.  
  5412.   if (Temp)
  5413.  
  5414.   {
  5415.  
  5416.     vis (me);
  5417.  
  5418.     timgref (me, 1)=3;
  5419.  
  5420.   }
  5421.  
  5422. }
  5423.  
  5424. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5425.  
  5426. {
  5427.  
  5428.   xrot (me)=0;
  5429.  
  5430.   timgref (me, 1)=1;
  5431.  
  5432.   vis (me);
  5433.  
  5434.   waitfs (10);
  5435.  
  5436.   timgref (me, 1)=2;
  5437.  
  5438.   waitfs (10);
  5439.  
  5440.   timgref (me, 1)=3;
  5441.  
  5442.   regPutN ("weed10", 1);
  5443.  
  5444. }
  5445.  
  5446. if (activate (me, 0) && #4.Select==1)
  5447.  
  5448. {
  5449.  
  5450.   regPutN ("weed10", 0);
  5451.  
  5452.   sound (1, 64, 127, 0);
  5453.  
  5454.   repeat (10)
  5455.  
  5456.   {
  5457.  
  5458.     xrot (me)-=9;
  5459.  
  5460.     waitf;
  5461.  
  5462.   }
  5463.  
  5464.   invis (me);
  5465.  
  5466.   clrtrig (me, 0);
  5467.  
  5468. }
  5469. end
  5470. End_Chunk
  5471.  
  5472. Chunk: SoundRef
  5473.  Number: 1
  5474.  Index: 1 Sound: 1
  5475. End_Chunk
  5476. Chunk: Rotations
  5477.  Initial: 0x0000 0x0000 0x0000
  5478.  Centre:  2150 0 0
  5479. End_Chunk
  5480.  
  5481. Chunk: ImageRef
  5482.  Number: 3
  5483.  Index: 1 Image: 33
  5484.  Index: 2 Image: 34
  5485.  Index: 3 Image: 25
  5486. End_Chunk
  5487. ;
  5488. ;-------Object   63-------------------------------------------------------
  5489. ; 
  5490. Chunk: Standard
  5491.  Name:     "chimney[63]"
  5492.  Number:   63
  5493.  Size:     4300 8000 0
  5494.  Position: 1987913 1000 1975800
  5495.  Type:     18
  5496.  Layer:    0
  5497.  OFlags:   Ii
  5498. End_Chunk
  5499. Chunk: TexCoords
  5500.  Number: 1
  5501.  Mode:   0
  5502.  SubChunk
  5503.   Facet:     1
  5504.   ImageRef:  1
  5505.   PixScale:  0
  5506.   NumCoords: 4
  5507.     0.00000 0.00000
  5508.     0.00000 1.00000
  5509.     1.00000 1.00000
  5510.     1.00000 0.00000
  5511. End_Chunk
  5512. Chunk: SCL
  5513. long   Temp;
  5514.  
  5515.  
  5516.  
  5517. resume (1, 2);
  5518.  
  5519. if (first)
  5520.  
  5521. {
  5522.  
  5523.   regGetN ("weed9", &Temp);
  5524.  
  5525.   if (Temp)
  5526.  
  5527.   {
  5528.  
  5529.     vis (me);
  5530.  
  5531.     timgref (me, 1)=3;
  5532.  
  5533.   }
  5534.  
  5535. }
  5536.  
  5537. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5538.  
  5539. {
  5540.  
  5541.   xrot (me)=0;
  5542.  
  5543.   timgref (me, 1)=1;
  5544.  
  5545.   vis (me);
  5546.  
  5547.   waitfs (10);
  5548.  
  5549.   timgref (me, 1)=2;
  5550.  
  5551.   waitfs (10);
  5552.  
  5553.   timgref (me, 1)=3;
  5554.  
  5555.   regPutN ("weed9", 1);
  5556.  
  5557. }
  5558.  
  5559. if (activate (me, 0) && #4.Select==1)
  5560.  
  5561. {
  5562.  
  5563.   regPutN ("weed9", 0);
  5564.  
  5565.   sound (1, 64, 127, 0);
  5566.  
  5567.   repeat (10)
  5568.  
  5569.   {
  5570.  
  5571.     xrot (me)-=9;
  5572.  
  5573.     waitf;
  5574.  
  5575.   }
  5576.  
  5577.   invis (me);
  5578.  
  5579.   clrtrig (me, 0);
  5580.  
  5581. }
  5582. end
  5583. End_Chunk
  5584.  
  5585. Chunk: SoundRef
  5586.  Number: 1
  5587.  Index: 1 Sound: 1
  5588. End_Chunk
  5589. Chunk: Rotations
  5590.  Initial: 0x0000 0xFFFFE000 0x0000
  5591.  Centre:  2150 0 0
  5592. End_Chunk
  5593.  
  5594. Chunk: ImageRef
  5595.  Number: 3
  5596.  Index: 1 Image: 33
  5597.  Index: 2 Image: 34
  5598.  Index: 3 Image: 25
  5599. End_Chunk
  5600. ;
  5601. ;-------Object   64-------------------------------------------------------
  5602. ; 
  5603. Chunk: Standard
  5604.  Name:     "chimney[64]"
  5605.  Number:   64
  5606.  Size:     4300 8000 0
  5607.  Position: 1982913 1000 1970800
  5608.  Type:     18
  5609.  Layer:    0
  5610.  OFlags:   Ii
  5611. End_Chunk
  5612. Chunk: TexCoords
  5613.  Number: 1
  5614.  Mode:   0
  5615.  SubChunk
  5616.   Facet:     1
  5617.   ImageRef:  1
  5618.   PixScale:  0
  5619.   NumCoords: 4
  5620.     0.00000 0.00000
  5621.     0.00000 1.00000
  5622.     1.00000 1.00000
  5623.     1.00000 0.00000
  5624. End_Chunk
  5625. Chunk: SCL
  5626. long   Temp;
  5627.  
  5628.  
  5629.  
  5630. resume (1, 2);
  5631.  
  5632. if (first)
  5633.  
  5634. {
  5635.  
  5636.   regGetN ("weed8", &Temp);
  5637.  
  5638.   if (Temp)
  5639.  
  5640.   {
  5641.  
  5642.     vis (me);
  5643.  
  5644.     timgref (me, 1)=3;
  5645.  
  5646.   }
  5647.  
  5648. }
  5649.  
  5650. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5651.  
  5652. {
  5653.  
  5654.   xrot (me)=0;
  5655.  
  5656.   timgref (me, 1)=1;
  5657.  
  5658.   vis (me);
  5659.  
  5660.   waitfs (10);
  5661.  
  5662.   timgref (me, 1)=2;
  5663.  
  5664.   waitfs (10);
  5665.  
  5666.   timgref (me, 1)=3;
  5667.  
  5668.   regPutN ("weed8", 1);
  5669.  
  5670. }
  5671.  
  5672. if (activate (me, 0) && #4.Select==1)
  5673.  
  5674. {
  5675.  
  5676.   regPutN ("weed8", 0);
  5677.  
  5678.   sound (1, 64, 127, 0);
  5679.  
  5680.   repeat (10)
  5681.  
  5682.   {
  5683.  
  5684.     xrot (me)-=9;
  5685.  
  5686.     waitf;
  5687.  
  5688.   }
  5689.  
  5690.   invis (me);
  5691.  
  5692.   clrtrig (me, 0);
  5693.  
  5694. }
  5695. end
  5696. End_Chunk
  5697.  
  5698. Chunk: SoundRef
  5699.  Number: 1
  5700.  Index: 1 Sound: 1
  5701. End_Chunk
  5702. Chunk: Rotations
  5703.  Initial: 0x0000 0xFFFFE000 0x0000
  5704.  Centre:  2150 0 0
  5705. End_Chunk
  5706.  
  5707. Chunk: ImageRef
  5708.  Number: 3
  5709.  Index: 1 Image: 33
  5710.  Index: 2 Image: 34
  5711.  Index: 3 Image: 25
  5712. End_Chunk
  5713. ;
  5714. ;-------Object   65-------------------------------------------------------
  5715. ; 
  5716. Chunk: Standard
  5717.  Name:     "chimney[65]"
  5718.  Number:   65
  5719.  Size:     4300 8000 0
  5720.  Position: 1977183 1000 1947350
  5721.  Type:     18
  5722.  Layer:    0
  5723.  OFlags:   Ii
  5724. End_Chunk
  5725. Chunk: TexCoords
  5726.  Number: 1
  5727.  Mode:   0
  5728.  SubChunk
  5729.   Facet:     1
  5730.   ImageRef:  1
  5731.   PixScale:  0
  5732.   NumCoords: 4
  5733.     0.00000 0.00000
  5734.     0.00000 1.00000
  5735.     1.00000 1.00000
  5736.     0.00000 0.00000
  5737. End_Chunk
  5738. Chunk: SCL
  5739. long   Temp;
  5740.  
  5741.  
  5742.  
  5743. resume (1, 2);
  5744.  
  5745. if (first)
  5746.  
  5747. {
  5748.  
  5749.   regGetN ("weed6", &Temp);
  5750.  
  5751.   if (Temp)
  5752.  
  5753.   {
  5754.  
  5755.     vis (me);
  5756.  
  5757.     timgref (me, 1)=3;
  5758.  
  5759.   }
  5760.  
  5761. }
  5762.  
  5763. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5764.  
  5765. {
  5766.  
  5767.   xrot (me)=0;
  5768.  
  5769.   timgref (me, 1)=1;
  5770.  
  5771.   vis (me);
  5772.  
  5773.   waitfs (10);
  5774.  
  5775.   timgref (me, 1)=2;
  5776.  
  5777.   waitfs (10);
  5778.  
  5779.   timgref (me, 1)=3;
  5780.  
  5781.   regPutN ("weed6", 1);
  5782.  
  5783. }
  5784.  
  5785. if (activate (me, 0) && #4.Select==1)
  5786.  
  5787. {
  5788.  
  5789.   regPutN ("weed6", 0);
  5790.  
  5791.   sound (1, 64, 127, 0);
  5792.  
  5793.   repeat (10)
  5794.  
  5795.   {
  5796.  
  5797.     xrot (me)-=9;
  5798.  
  5799.     waitf;
  5800.  
  5801.   }
  5802.  
  5803.   invis (me);
  5804.  
  5805.   clrtrig (me, 0);
  5806.  
  5807. }
  5808. end
  5809. End_Chunk
  5810.  
  5811. Chunk: SoundRef
  5812.  Number: 1
  5813.  Index: 1 Sound: 1
  5814. End_Chunk
  5815. Chunk: Rotations
  5816.  Initial: 0x0000 0xFFFFC000 0x0000
  5817.  Centre:  2150 0 0
  5818. End_Chunk
  5819.  
  5820. Chunk: ImageRef
  5821.  Number: 3
  5822.  Index: 1 Image: 33
  5823.  Index: 2 Image: 34
  5824.  Index: 3 Image: 25
  5825. End_Chunk
  5826. ;
  5827. ;-------Object   66-------------------------------------------------------
  5828. ; 
  5829. Chunk: Standard
  5830.  Name:     "chimney[66]"
  5831.  Number:   66
  5832.  Size:     4300 8000 0
  5833.  Position: 1977183 1000 1959350
  5834.  Type:     18
  5835.  Layer:    0
  5836.  OFlags:   Ii
  5837. End_Chunk
  5838. Chunk: TexCoords
  5839.  Number: 1
  5840.  Mode:   0
  5841.  SubChunk
  5842.   Facet:     1
  5843.   ImageRef:  1
  5844.   PixScale:  0
  5845.   NumCoords: 4
  5846.     0.00000 0.00000
  5847.     0.00000 1.00000
  5848.     1.00000 1.00000
  5849.     0.00000 0.00000
  5850. End_Chunk
  5851. Chunk: SCL
  5852. long   Temp;
  5853.  
  5854.  
  5855.  
  5856. resume (1, 2);
  5857.  
  5858. if (first)
  5859.  
  5860. {
  5861.  
  5862.   regGetN ("weed7", &Temp);
  5863.  
  5864.   if (Temp)
  5865.  
  5866.   {
  5867.  
  5868.     vis (me);
  5869.  
  5870.     timgref (me, 1)=3;
  5871.  
  5872.   }
  5873.  
  5874. }
  5875.  
  5876. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5877.  
  5878. {
  5879.  
  5880.   xrot (me)=0;
  5881.  
  5882.   timgref (me, 1)=1;
  5883.  
  5884.   vis (me);
  5885.  
  5886.   waitfs (10);
  5887.  
  5888.   timgref (me, 1)=2;
  5889.  
  5890.   waitfs (10);
  5891.  
  5892.   timgref (me, 1)=3;
  5893.  
  5894.   regPutN ("weed7", 1);
  5895.  
  5896. }
  5897.  
  5898. if (activate (me, 0) && #4.Select==1)
  5899.  
  5900. {
  5901.  
  5902.   regPutN ("weed7", 0);
  5903.  
  5904.   sound (1, 64, 127, 0);
  5905.  
  5906.   repeat (10)
  5907.  
  5908.   {
  5909.  
  5910.     xrot (me)-=9;
  5911.  
  5912.     waitf;
  5913.  
  5914.   }
  5915.  
  5916.   invis (me);
  5917.  
  5918.   clrtrig (me, 0);
  5919.  
  5920. }
  5921. end
  5922. End_Chunk
  5923.  
  5924. Chunk: SoundRef
  5925.  Number: 1
  5926.  Index: 1 Sound: 1
  5927. End_Chunk
  5928. Chunk: Rotations
  5929.  Initial: 0x0000 0xFFFFC000 0x0000
  5930.  Centre:  2150 0 0
  5931. End_Chunk
  5932.  
  5933. Chunk: ImageRef
  5934.  Number: 3
  5935.  Index: 1 Image: 33
  5936.  Index: 2 Image: 34
  5937.  Index: 3 Image: 25
  5938. End_Chunk
  5939. ;
  5940. ;-------Object   67-------------------------------------------------------
  5941. ; 
  5942. Chunk: Standard
  5943.  Name:     "chimney[67]"
  5944.  Number:   67
  5945.  Size:     4300 8000 0
  5946.  Position: 1977183 1000 1936350
  5947.  Type:     18
  5948.  Layer:    0
  5949.  OFlags:   Ii
  5950. End_Chunk
  5951. Chunk: TexCoords
  5952.  Number: 1
  5953.  Mode:   0
  5954.  SubChunk
  5955.   Facet:     1
  5956.   ImageRef:  1
  5957.   PixScale:  0
  5958.   NumCoords: 4
  5959.     0.00000 0.00000
  5960.     0.00000 1.00000
  5961.     1.00000 1.00000
  5962.     0.00000 0.00000
  5963. End_Chunk
  5964. Chunk: SCL
  5965. long   Temp;
  5966.  
  5967.  
  5968.  
  5969. resume (1, 2);
  5970.  
  5971. if (first)
  5972.  
  5973. {
  5974.  
  5975.   regGetN ("weed5", &Temp);
  5976.  
  5977.   if (Temp)
  5978.  
  5979.   {
  5980.  
  5981.     vis (me);
  5982.  
  5983.     timgref (me, 1)=3;
  5984.  
  5985.   }
  5986.  
  5987. }
  5988.  
  5989. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  5990.  
  5991. {
  5992.  
  5993.   xrot (me)=0;
  5994.  
  5995.   timgref (me, 1)=1;
  5996.  
  5997.   vis (me);
  5998.  
  5999.   waitfs (10);
  6000.  
  6001.   timgref (me, 1)=2;
  6002.  
  6003.   waitfs (10);
  6004.  
  6005.   timgref (me, 1)=3;
  6006.  
  6007.   regPutN ("weed5", 1);
  6008.  
  6009. }
  6010.  
  6011. if (activate (me, 0) && #4.Select==1)
  6012.  
  6013. {
  6014.  
  6015.   regPutN ("weed5", 0);
  6016.  
  6017.   sound (1, 64, 127, 0);
  6018.  
  6019.   repeat (10)
  6020.  
  6021.   {
  6022.  
  6023.     xrot (me)-=9;
  6024.  
  6025.     waitf;
  6026.  
  6027.   }
  6028.  
  6029.   invis (me);
  6030.  
  6031.   clrtrig (me, 0);
  6032.  
  6033. }
  6034. end
  6035. End_Chunk
  6036.  
  6037. Chunk: SoundRef
  6038.  Number: 1
  6039.  Index: 1 Sound: 1
  6040. End_Chunk
  6041. Chunk: Rotations
  6042.  Initial: 0x0000 0xFFFFC000 0x0000
  6043.  Centre:  2150 0 0
  6044. End_Chunk
  6045.  
  6046. Chunk: ImageRef
  6047.  Number: 3
  6048.  Index: 1 Image: 33
  6049.  Index: 2 Image: 34
  6050.  Index: 3 Image: 25
  6051. End_Chunk
  6052. ;
  6053. ;-------Object   73-------------------------------------------------------
  6054. ; 
  6055. Chunk: Standard
  6056.  Name:     "chimney[73]"
  6057.  Number:   73
  6058.  Size:     4300 8000 0
  6059.  Position: 1977183 1000 1925350
  6060.  Type:     18
  6061.  Layer:    0
  6062.  OFlags:   Ii
  6063. End_Chunk
  6064. Chunk: TexCoords
  6065.  Number: 1
  6066.  Mode:   0
  6067.  SubChunk
  6068.   Facet:     1
  6069.   ImageRef:  1
  6070.   PixScale:  0
  6071.   NumCoords: 4
  6072.     0.00000 0.00000
  6073.     0.00000 1.00000
  6074.     1.00000 1.00000
  6075.     0.00000 0.00000
  6076. End_Chunk
  6077. Chunk: SCL
  6078. long   Temp;
  6079.  
  6080.  
  6081.  
  6082. resume (1, 2);
  6083.  
  6084. if (first)
  6085.  
  6086. {
  6087.  
  6088.   regGetN ("weed4", &Temp);
  6089.  
  6090.   if (Temp)
  6091.  
  6092.   {
  6093.  
  6094.     vis (me);
  6095.  
  6096.     timgref (me, 1)=3;
  6097.  
  6098.   }
  6099.  
  6100. }
  6101.  
  6102. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  6103.  
  6104. {
  6105.  
  6106.   xrot (me)=0;
  6107.  
  6108.   timgref (me, 1)=1;
  6109.  
  6110.   vis (me);
  6111.  
  6112.   waitfs (10);
  6113.  
  6114.   timgref (me, 1)=2;
  6115.  
  6116.   waitfs (10);
  6117.  
  6118.   timgref (me, 1)=3;
  6119.  
  6120.   regPutN ("weed4", 1);
  6121.  
  6122. }
  6123.  
  6124. if (activate (me, 0) && #4.Select==1)
  6125.  
  6126. {
  6127.  
  6128.   regPutN ("weed4", 0);
  6129.  
  6130.   sound (1, 64, 127, 0);
  6131.  
  6132.   repeat (10)
  6133.  
  6134.   {
  6135.  
  6136.     xrot (me)-=9;
  6137.  
  6138.     waitf;
  6139.  
  6140.   }
  6141.  
  6142.   invis (me);
  6143.  
  6144.   clrtrig (me, 0);
  6145.  
  6146. }
  6147. end
  6148. End_Chunk
  6149.  
  6150. Chunk: SoundRef
  6151.  Number: 1
  6152.  Index: 1 Sound: 1
  6153. End_Chunk
  6154. Chunk: Rotations
  6155.  Initial: 0x0000 0xFFFFC000 0x0000
  6156.  Centre:  2150 0 0
  6157. End_Chunk
  6158.  
  6159. Chunk: ImageRef
  6160.  Number: 3
  6161.  Index: 1 Image: 33
  6162.  Index: 2 Image: 34
  6163.  Index: 3 Image: 25
  6164. End_Chunk
  6165. ;
  6166. ;-------Object   74-------------------------------------------------------
  6167. ; 
  6168. Chunk: Standard
  6169.  Name:     "chimney[74]"
  6170.  Number:   74
  6171.  Size:     4300 8000 0
  6172.  Position: 1977183 1000 1912350
  6173.  Type:     18
  6174.  Layer:    0
  6175.  OFlags:   Ii
  6176. End_Chunk
  6177. Chunk: TexCoords
  6178.  Number: 1
  6179.  Mode:   0
  6180.  SubChunk
  6181.   Facet:     1
  6182.   ImageRef:  1
  6183.   PixScale:  0
  6184.   NumCoords: 4
  6185.     0.00000 0.00000
  6186.     0.00000 1.00000
  6187.     1.00000 1.00000
  6188.     0.00000 0.00000
  6189. End_Chunk
  6190. Chunk: SCL
  6191. long   Temp;
  6192.  
  6193.  
  6194.  
  6195. resume (1, 2);
  6196.  
  6197. if (first)
  6198.  
  6199. {
  6200.  
  6201.   regGetN ("weed3", &Temp);
  6202.  
  6203.   if (Temp)
  6204.  
  6205.   {
  6206.  
  6207.     vis (me);
  6208.  
  6209.     timgref (me, 1)=3;
  6210.  
  6211.   }
  6212.  
  6213. }
  6214.  
  6215. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  6216.  
  6217. {
  6218.  
  6219.   xrot (me)=0;
  6220.  
  6221.   timgref (me, 1)=1;
  6222.  
  6223.   vis (me);
  6224.  
  6225.   waitfs (10);
  6226.  
  6227.   timgref (me, 1)=2;
  6228.  
  6229.   waitfs (10);
  6230.  
  6231.   timgref (me, 1)=3;
  6232.  
  6233.   regPutN ("weed3", 1);
  6234.  
  6235. }
  6236.  
  6237. if (activate (me, 0) && #4.Select==1)
  6238.  
  6239. {
  6240.  
  6241.   regPutN ("weed3", 0);
  6242.  
  6243.   sound (1, 64, 127, 0);
  6244.  
  6245.   repeat (10)
  6246.  
  6247.   {
  6248.  
  6249.     xrot (me)-=9;
  6250.  
  6251.     waitf;
  6252.  
  6253.   }
  6254.  
  6255.   invis (me);
  6256.  
  6257.   clrtrig (me, 0);
  6258.  
  6259. }
  6260. end
  6261. End_Chunk
  6262.  
  6263. Chunk: SoundRef
  6264.  Number: 1
  6265.  Index: 1 Sound: 1
  6266. End_Chunk
  6267. Chunk: Rotations
  6268.  Initial: 0x0000 0xFFFFC000 0x0000
  6269.  Centre:  2150 0 0
  6270. End_Chunk
  6271.  
  6272. Chunk: ImageRef
  6273.  Number: 3
  6274.  Index: 1 Image: 33
  6275.  Index: 2 Image: 34
  6276.  Index: 3 Image: 25
  6277. End_Chunk
  6278. ;
  6279. ;-------Object   76-------------------------------------------------------
  6280. ; 
  6281. Chunk: Standard
  6282.  Name:     "chimney[76]"
  6283.  Number:   76
  6284.  Size:     4300 8000 0
  6285.  Position: 1977183 1000 1903350
  6286.  Type:     18
  6287.  Layer:    0
  6288.  OFlags:   Ii
  6289. End_Chunk
  6290. Chunk: TexCoords
  6291.  Number: 1
  6292.  Mode:   0
  6293.  SubChunk
  6294.   Facet:     1
  6295.   ImageRef:  1
  6296.   PixScale:  0
  6297.   NumCoords: 4
  6298.     0.00000 0.00000
  6299.     0.00000 1.00000
  6300.     1.00000 1.00000
  6301.     0.00000 0.00000
  6302. End_Chunk
  6303. Chunk: SCL
  6304. long   Temp;
  6305.  
  6306.  
  6307.  
  6308. resume (1, 2);
  6309.  
  6310. if (first)
  6311.  
  6312. {
  6313.  
  6314.   regGetN ("weed2", &Temp);
  6315.  
  6316.   if (Temp)
  6317.  
  6318.   {
  6319.  
  6320.     vis (me);
  6321.  
  6322.     timgref (me, 1)=3;
  6323.  
  6324.   }
  6325.  
  6326. }
  6327.  
  6328. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  6329.  
  6330. {
  6331.  
  6332.   xrot (me)=0;
  6333.  
  6334.   timgref (me, 1)=1;
  6335.  
  6336.   vis (me);
  6337.  
  6338.   waitfs (10);
  6339.  
  6340.   timgref (me, 1)=2;
  6341.  
  6342.   waitfs (10);
  6343.  
  6344.   timgref (me, 1)=3;
  6345.  
  6346.   regPutN ("weed2", 1);
  6347.  
  6348. }
  6349.  
  6350. if (activate (me, 0) && #4.Select==1)
  6351.  
  6352. {
  6353.  
  6354.   regPutN ("weed2", 0);
  6355.  
  6356.   sound (1, 64, 127, 0);
  6357.  
  6358.   repeat (10)
  6359.  
  6360.   {
  6361.  
  6362.     xrot (me)-=9;
  6363.  
  6364.     waitf;
  6365.  
  6366.   }
  6367.  
  6368.   invis (me);
  6369.  
  6370.   clrtrig (me, 0);
  6371.  
  6372. }
  6373. end
  6374. End_Chunk
  6375.  
  6376. Chunk: SoundRef
  6377.  Number: 1
  6378.  Index: 1 Sound: 1
  6379. End_Chunk
  6380. Chunk: Rotations
  6381.  Initial: 0x0000 0xFFFFC000 0x0000
  6382.  Centre:  2150 0 0
  6383. End_Chunk
  6384.  
  6385. Chunk: ImageRef
  6386.  Number: 3
  6387.  Index: 1 Image: 33
  6388.  Index: 2 Image: 34
  6389.  Index: 3 Image: 25
  6390. End_Chunk
  6391. ;
  6392. ;-------Object   77-------------------------------------------------------
  6393. ; 
  6394. Chunk: Standard
  6395.  Name:     "masterweed"
  6396.  Number:   77
  6397.  Size:     4300 8000 0
  6398.  Position: 1977183 1000 1891350
  6399.  Type:     18
  6400.  Layer:    0
  6401.  OFlags:   Ii
  6402. End_Chunk
  6403. Chunk: TexCoords
  6404.  Number: 1
  6405.  Mode:   0
  6406.  SubChunk
  6407.   Facet:     1
  6408.   ImageRef:  1
  6409.   PixScale:  0
  6410.   NumCoords: 4
  6411.     0.00000 0.00000
  6412.     0.00000 1.00000
  6413.     1.00000 1.00000
  6414.     0.00000 0.00000
  6415. End_Chunk
  6416.  
  6417. Chunk: SoundRef
  6418.  Number: 1
  6419.  Index: 1 Sound: 1
  6420. End_Chunk
  6421. Chunk: SCL
  6422. long   Temp;
  6423.  
  6424.  
  6425.  
  6426. resume (1, 2);
  6427.  
  6428. if (first)
  6429.  
  6430. {
  6431.  
  6432.   regGetN ("weed1", &Temp);
  6433.  
  6434.   if (Temp)
  6435.  
  6436.   {
  6437.  
  6438.     vis (me);
  6439.  
  6440.     timgref (me, 1)=3;
  6441.  
  6442.   }
  6443.  
  6444. }
  6445.  
  6446. if (random (#4.Weed-timSince/144)==1 && !vis? (me))
  6447.  
  6448. {
  6449.  
  6450.   xrot (me)=0;
  6451.  
  6452.   timgref (me, 1)=1;
  6453.  
  6454.   vis (me);
  6455.  
  6456.   waitfs (10);
  6457.  
  6458.   timgref (me, 1)=2;
  6459.  
  6460.   waitfs (10);
  6461.  
  6462.   timgref (me, 1)=3;
  6463.  
  6464.   regPutN ("weed1", 1);
  6465.  
  6466. }
  6467.  
  6468. if (activate (me, 0) && #4.Select==1)
  6469.  
  6470. {
  6471.  
  6472.   regPutN ("weed1", 0);
  6473.  
  6474.   sound (1, 64, 127, 0);
  6475.  
  6476.   repeat (10)
  6477.  
  6478.   {
  6479.  
  6480.     xrot (me)-=9;
  6481.  
  6482.     waitf;
  6483.  
  6484.   }
  6485.  
  6486.   invis (me);
  6487.  
  6488.   clrtrig (me, 0);
  6489.  
  6490. }
  6491. end
  6492. End_Chunk
  6493. Chunk: Rotations
  6494.  Initial: 0x0000 0xFFFFC000 0x0000
  6495.  Centre:  2150 0 0
  6496. End_Chunk
  6497.  
  6498. Chunk: ImageRef
  6499.  Number: 3
  6500.  Index: 1 Image: 33
  6501.  Index: 2 Image: 34
  6502.  Index: 3 Image: 25
  6503. End_Chunk
  6504. ;
  6505. ;-------Object   26-------------------------------------------------------
  6506. ; 
  6507. Chunk: Standard
  6508.  Name:     "chimney[26]"
  6509.  Number:   26
  6510.  Size:     6300 5000 0
  6511.  Position: 2047139 1000 1913225
  6512.  Type:     18
  6513.  Layer:    0
  6514.  DFlags:   E
  6515.  OFlags:   Ii
  6516. End_Chunk
  6517. Chunk: TexCoords
  6518.  Number: 1
  6519.  Mode:   0
  6520.  SubChunk
  6521.   Facet:     1
  6522.   ImageRef:  1
  6523.   PixScale:  0
  6524.   NumCoords: 4
  6525.     0.00000 0.00000
  6526.     0.00000 1.00000
  6527.     1.00000 1.00000
  6528.     1.00000 0.00000
  6529. End_Chunk
  6530. Chunk: Sorting
  6531.  Offset: 0 0 -3000
  6532.  Size:   6300 0 6300
  6533. End_Chunk
  6534. Chunk: InitSize
  6535.  Size: 6300 5000 0
  6536. End_Chunk
  6537. Chunk: SCL
  6538. long   Temp, X, Z, X2, Z2;
  6539.  
  6540.  
  6541.  
  6542. yrot (me)=359-yvroff+yrot (object (vattach));
  6543.  
  6544. resume (1, 2);
  6545.  
  6546. if (first)
  6547.  
  6548. {
  6549.  
  6550.   regGetN ("grass11", &Temp);
  6551.  
  6552.   if (Temp)
  6553.  
  6554.     vis (me);
  6555.  
  6556. }
  6557.  
  6558. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  6559.  
  6560. {
  6561.  
  6562.   vis (me);
  6563.  
  6564.   ysize (me)=0;
  6565.  
  6566.   repeat (50)
  6567.  
  6568.   {
  6569.  
  6570.     ysize (me)+=100;
  6571.  
  6572.     waitf;
  6573.  
  6574.   }
  6575.  
  6576.   regPutN ("grass11", 1);
  6577.  
  6578.   counter (30)=1;
  6579.  
  6580. }
  6581.  
  6582. if (getvp==3)
  6583.  
  6584. {
  6585.  
  6586.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  6587.  
  6588.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  6589.  
  6590.   if (abs (X-X2)+abs (Z-Z2)<10000)
  6591.  
  6592.   {
  6593.  
  6594.     regPutN ("grass11", 0);
  6595.  
  6596.     invis (me);
  6597.  
  6598.     counter (30)=1;
  6599.  
  6600.   }
  6601.  
  6602. }
  6603. end
  6604. End_Chunk
  6605. Chunk: Rotations
  6606.  Initial: 0x0000 0xFFFFA053 0x0000
  6607.  Centre:  3150 2500 0
  6608. End_Chunk
  6609.  
  6610. Chunk: ImageRef
  6611.  Number: 1
  6612.  Index: 1 Image: 22
  6613. End_Chunk
  6614. ;
  6615. ;-------Object   85-------------------------------------------------------
  6616. ; 
  6617. Chunk: Standard
  6618.  Name:     "chimney[85]"
  6619.  Number:   85
  6620.  Size:     6300 5000 0
  6621.  Position: 2050819 1000 1938999
  6622.  Type:     18
  6623.  Layer:    0
  6624.  DFlags:   E
  6625.  OFlags:   Ii
  6626. End_Chunk
  6627. Chunk: TexCoords
  6628.  Number: 1
  6629.  Mode:   0
  6630.  SubChunk
  6631.   Facet:     1
  6632.   ImageRef:  1
  6633.   PixScale:  0
  6634.   NumCoords: 4
  6635.     0.00000 0.00000
  6636.     0.00000 1.00000
  6637.     1.00000 1.00000
  6638.     1.00000 0.00000
  6639. End_Chunk
  6640. Chunk: Sorting
  6641.  Offset: 0 0 -3000
  6642.  Size:   6300 0 6300
  6643. End_Chunk
  6644. Chunk: InitSize
  6645.  Size: 6300 5000 0
  6646. End_Chunk
  6647. Chunk: SCL
  6648. long   Temp, X, Z, X2, Z2;
  6649.  
  6650.  
  6651.  
  6652. yrot (me)=359-yvroff+yrot (object (vattach));
  6653.  
  6654. resume (1, 2);
  6655.  
  6656. if (first)
  6657.  
  6658. {
  6659.  
  6660.   regGetN ("grass10", &Temp);
  6661.  
  6662.   if (Temp)
  6663.  
  6664.     vis (me);
  6665.  
  6666. }
  6667.  
  6668. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  6669.  
  6670. {
  6671.  
  6672.   vis (me);
  6673.  
  6674.   ysize (me)=0;
  6675.  
  6676.   repeat (50)
  6677.  
  6678.   {
  6679.  
  6680.     ysize (me)+=100;
  6681.  
  6682.     waitf;
  6683.  
  6684.   }
  6685.  
  6686.   regPutN ("grass10", 1);
  6687.  
  6688.   counter (30)=1;
  6689.  
  6690. }
  6691.  
  6692. if (getvp==3)
  6693.  
  6694. {
  6695.  
  6696.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  6697.  
  6698.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  6699.  
  6700.   if (abs (X-X2)+abs (Z-Z2)<10000)
  6701.  
  6702.   {
  6703.  
  6704.     regPutN ("grass10", 0);
  6705.  
  6706.     invis (me);
  6707.  
  6708.     counter (30)=1;
  6709.  
  6710.   }
  6711.  
  6712. }
  6713. end
  6714. End_Chunk
  6715. Chunk: Rotations
  6716.  Initial: 0x0000 0xFFFFA053 0x0000
  6717.  Centre:  3150 2500 0
  6718. End_Chunk
  6719.  
  6720. Chunk: ImageRef
  6721.  Number: 1
  6722.  Index: 1 Image: 22
  6723. End_Chunk
  6724. ;
  6725. ;-------Object   86-------------------------------------------------------
  6726. ; 
  6727. Chunk: Standard
  6728.  Name:     "chimney[86]"
  6729.  Number:   86
  6730.  Size:     6300 5000 0
  6731.  Position: 2018803 1000 1946363
  6732.  Type:     18
  6733.  Layer:    0
  6734.  DFlags:   E
  6735.  OFlags:   Ii
  6736. End_Chunk
  6737. Chunk: TexCoords
  6738.  Number: 1
  6739.  Mode:   0
  6740.  SubChunk
  6741.   Facet:     1
  6742.   ImageRef:  1
  6743.   PixScale:  0
  6744.   NumCoords: 4
  6745.     0.00000 0.00000
  6746.     0.00000 1.00000
  6747.     1.00000 1.00000
  6748.     1.00000 0.00000
  6749. End_Chunk
  6750. Chunk: Sorting
  6751.  Offset: 0 0 -3000
  6752.  Size:   6300 0 6300
  6753. End_Chunk
  6754. Chunk: InitSize
  6755.  Size: 6300 5000 0
  6756. End_Chunk
  6757. Chunk: SCL
  6758. long   Temp, X, Z, X2, Z2;
  6759.  
  6760.  
  6761.  
  6762. yrot (me)=359-yvroff+yrot (object (vattach));
  6763.  
  6764. resume (1, 2);
  6765.  
  6766. if (first)
  6767.  
  6768. {
  6769.  
  6770.   regGetN ("grass6", &Temp);
  6771.  
  6772.   if (Temp)
  6773.  
  6774.     vis (me);
  6775.  
  6776. }
  6777.  
  6778. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  6779.  
  6780. {
  6781.  
  6782.   vis (me);
  6783.  
  6784.   ysize (me)=0;
  6785.  
  6786.   repeat (50)
  6787.  
  6788.   {
  6789.  
  6790.     ysize (me)+=100;
  6791.  
  6792.     waitf;
  6793.  
  6794.   }
  6795.  
  6796.   regPutN ("grass6", 1);
  6797.  
  6798.   counter (30)=1;
  6799.  
  6800. }
  6801.  
  6802. if (getvp==3)
  6803.  
  6804. {
  6805.  
  6806.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  6807.  
  6808.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  6809.  
  6810.   if (abs (X-X2)+abs (Z-Z2)<10000)
  6811.  
  6812.   {
  6813.  
  6814.     regPutN ("grass6", 0);
  6815.  
  6816.     invis (me);
  6817.  
  6818.     counter (30)=1;
  6819.  
  6820.   }
  6821.  
  6822. }
  6823. end
  6824. End_Chunk
  6825. Chunk: Rotations
  6826.  Initial: 0x0000 0xFFFFA053 0x0000
  6827.  Centre:  3150 2500 0
  6828. End_Chunk
  6829.  
  6830. Chunk: ImageRef
  6831.  Number: 1
  6832.  Index: 1 Image: 22
  6833. End_Chunk
  6834. ;
  6835. ;-------Object   87-------------------------------------------------------
  6836. ; 
  6837. Chunk: Standard
  6838.  Name:     "chimney[87]"
  6839.  Number:   87
  6840.  Size:     6300 5000 0
  6841.  Position: 1989023 1000 1955167
  6842.  Type:     18
  6843.  Layer:    0
  6844.  DFlags:   E
  6845.  OFlags:   Ii
  6846. End_Chunk
  6847. Chunk: TexCoords
  6848.  Number: 1
  6849.  Mode:   0
  6850.  SubChunk
  6851.   Facet:     1
  6852.   ImageRef:  1
  6853.   PixScale:  0
  6854.   NumCoords: 4
  6855.     0.00000 0.00000
  6856.     0.00000 1.00000
  6857.     1.00000 1.00000
  6858.     1.00000 0.00000
  6859. End_Chunk
  6860. Chunk: Sorting
  6861.  Offset: 0 0 -3000
  6862.  Size:   6300 0 6300
  6863. End_Chunk
  6864. Chunk: InitSize
  6865.  Size: 6300 5000 0
  6866. End_Chunk
  6867. Chunk: SCL
  6868. long   Temp, X, Z, X2, Z2;
  6869.  
  6870.  
  6871.  
  6872. yrot (me)=359-yvroff+yrot (object (vattach));
  6873.  
  6874. resume (1, 2);
  6875.  
  6876. if (first)
  6877.  
  6878. {
  6879.  
  6880.   regGetN ("grass8", &Temp);
  6881.  
  6882.   if (Temp)
  6883.  
  6884.     vis (me);
  6885.  
  6886. }
  6887.  
  6888. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  6889.  
  6890. {
  6891.  
  6892.   vis (me);
  6893.  
  6894.   ysize (me)=0;
  6895.  
  6896.   repeat (50)
  6897.  
  6898.   {
  6899.  
  6900.     ysize (me)+=100;
  6901.  
  6902.     waitf;
  6903.  
  6904.   }
  6905.  
  6906.   regPutN ("grass8", 1);
  6907.  
  6908.   counter (30)=1;
  6909.  
  6910. }
  6911.  
  6912. if (getvp==3)
  6913.  
  6914. {
  6915.  
  6916.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  6917.  
  6918.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  6919.  
  6920.   if (abs (X-X2)+abs (Z-Z2)<10000)
  6921.  
  6922.   {
  6923.  
  6924.     regPutN ("grass8", 0);
  6925.  
  6926.     invis (me);
  6927.  
  6928.     counter (30)=1;
  6929.  
  6930.   }
  6931.  
  6932. }
  6933. end
  6934. End_Chunk
  6935. Chunk: Rotations
  6936.  Initial: 0x0000 0xFFFFA053 0x0000
  6937.  Centre:  3150 2500 0
  6938. End_Chunk
  6939.  
  6940. Chunk: ImageRef
  6941.  Number: 1
  6942.  Index: 1 Image: 22
  6943. End_Chunk
  6944. ;
  6945. ;-------Object   88-------------------------------------------------------
  6946. ; 
  6947. Chunk: Standard
  6948.  Name:     "chimney[88]"
  6949.  Number:   88
  6950.  Size:     6300 5000 0
  6951.  Position: 2005513 1000 1951485
  6952.  Type:     18
  6953.  Layer:    0
  6954.  DFlags:   E
  6955.  OFlags:   Ii
  6956. End_Chunk
  6957. Chunk: TexCoords
  6958.  Number: 1
  6959.  Mode:   0
  6960.  SubChunk
  6961.   Facet:     1
  6962.   ImageRef:  1
  6963.   PixScale:  0
  6964.   NumCoords: 4
  6965.     0.00000 0.00000
  6966.     0.00000 1.00000
  6967.     1.00000 1.00000
  6968.     1.00000 0.00000
  6969. End_Chunk
  6970. Chunk: Sorting
  6971.  Offset: 0 0 -3000
  6972.  Size:   6300 0 6300
  6973. End_Chunk
  6974. Chunk: InitSize
  6975.  Size: 6300 5000 0
  6976. End_Chunk
  6977. Chunk: SCL
  6978. long   Temp, X, Z, X2, Z2;
  6979.  
  6980.  
  6981.  
  6982. yrot (me)=359-yvroff+yrot (object (vattach));
  6983.  
  6984. resume (1, 2);
  6985.  
  6986. if (first)
  6987.  
  6988. {
  6989.  
  6990.   regGetN ("grass7", &Temp);
  6991.  
  6992.   if (Temp)
  6993.  
  6994.     vis (me);
  6995.  
  6996. }
  6997.  
  6998. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  6999.  
  7000. {
  7001.  
  7002.   vis (me);
  7003.  
  7004.   ysize (me)=0;
  7005.  
  7006.   repeat (50)
  7007.  
  7008.   {
  7009.  
  7010.     ysize (me)+=100;
  7011.  
  7012.     waitf;
  7013.  
  7014.   }
  7015.  
  7016.   regPutN ("grass7", 1);
  7017.  
  7018.   counter (30)=1;
  7019.  
  7020. }
  7021.  
  7022. if (getvp==3)
  7023.  
  7024. {
  7025.  
  7026.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  7027.  
  7028.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  7029.  
  7030.   if (abs (X-X2)+abs (Z-Z2)<10000)
  7031.  
  7032.   {
  7033.  
  7034.     regPutN ("grass7", 0);
  7035.  
  7036.     invis (me);
  7037.  
  7038.     counter (30)=1;
  7039.  
  7040.   }
  7041.  
  7042. }
  7043. end
  7044. End_Chunk
  7045. Chunk: Rotations
  7046.  Initial: 0x0000 0xFFFFA053 0x0000
  7047.  Centre:  3150 2500 0
  7048. End_Chunk
  7049.  
  7050. Chunk: ImageRef
  7051.  Number: 1
  7052.  Index: 1 Image: 22
  7053. End_Chunk
  7054. ;
  7055. ;-------Object   93-------------------------------------------------------
  7056. ; 
  7057. Chunk: Standard
  7058.  Name:     "chimney[93]"
  7059.  Number:   93
  7060.  Size:     6300 5000 0
  7061.  Position: 1995427 1000 1930031
  7062.  Type:     18
  7063.  Layer:    0
  7064.  DFlags:   E
  7065.  OFlags:   Ii
  7066. End_Chunk
  7067. Chunk: TexCoords
  7068.  Number: 1
  7069.  Mode:   0
  7070.  SubChunk
  7071.   Facet:     1
  7072.   ImageRef:  1
  7073.   PixScale:  0
  7074.   NumCoords: 4
  7075.     0.00000 0.00000
  7076.     0.00000 1.00000
  7077.     1.00000 1.00000
  7078.     1.00000 0.00000
  7079. End_Chunk
  7080. Chunk: Sorting
  7081.  Offset: 0 0 -3000
  7082.  Size:   6300 0 6300
  7083. End_Chunk
  7084. Chunk: InitSize
  7085.  Size: 6300 5000 0
  7086. End_Chunk
  7087. Chunk: SCL
  7088. long   Temp, X, Z, X2, Z2;
  7089.  
  7090.  
  7091.  
  7092. yrot (me)=359-yvroff+yrot (object (vattach));
  7093.  
  7094. resume (1, 2);
  7095.  
  7096. if (first)
  7097.  
  7098. {
  7099.  
  7100.   regGetN ("grass4", &Temp);
  7101.  
  7102.   if (Temp)
  7103.  
  7104.     vis (me);
  7105.  
  7106. }
  7107.  
  7108. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  7109.  
  7110. {
  7111.  
  7112.   vis (me);
  7113.  
  7114.   ysize (me)=0;
  7115.  
  7116.   repeat (50)
  7117.  
  7118.   {
  7119.  
  7120.     ysize (me)+=100;
  7121.  
  7122.     waitf;
  7123.  
  7124.   }
  7125.  
  7126.   regPutN ("grass4", 1);
  7127.  
  7128.   counter (30)=1;
  7129.  
  7130. }
  7131.  
  7132. if (getvp==3)
  7133.  
  7134. {
  7135.  
  7136.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  7137.  
  7138.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  7139.  
  7140.   if (abs (X-X2)+abs (Z-Z2)<10000)
  7141.  
  7142.   {
  7143.  
  7144.     regPutN ("grass4", 0);
  7145.  
  7146.     invis (me);
  7147.  
  7148.     counter (30)=1;
  7149.  
  7150.   }
  7151.  
  7152. }
  7153. end
  7154. End_Chunk
  7155. Chunk: Rotations
  7156.  Initial: 0x0000 0xFFFFA053 0x0000
  7157.  Centre:  3150 2500 0
  7158. End_Chunk
  7159.  
  7160. Chunk: ImageRef
  7161.  Number: 1
  7162.  Index: 1 Image: 22
  7163. End_Chunk
  7164. ;
  7165. ;-------Object   94-------------------------------------------------------
  7166. ; 
  7167. Chunk: Standard
  7168.  Name:     "chimney[94]"
  7169.  Number:   94
  7170.  Size:     6300 5000 0
  7171.  Position: 2011277 1000 1926189
  7172.  Type:     18
  7173.  Layer:    0
  7174.  DFlags:   E
  7175.  OFlags:   Ii
  7176. End_Chunk
  7177. Chunk: TexCoords
  7178.  Number: 1
  7179.  Mode:   0
  7180.  SubChunk
  7181.   Facet:     1
  7182.   ImageRef:  1
  7183.   PixScale:  0
  7184.   NumCoords: 4
  7185.     0.00000 0.00000
  7186.     0.00000 1.00000
  7187.     1.00000 1.00000
  7188.     1.00000 0.00000
  7189. End_Chunk
  7190. Chunk: InitSize
  7191.  Size: 6300 5000 0
  7192. End_Chunk
  7193. Chunk: Sorting
  7194.  Offset: 0 0 -3000
  7195.  Size:   6300 0 6300
  7196. End_Chunk
  7197. Chunk: SCL
  7198. long   Temp, X, Z, X2, Z2;
  7199.  
  7200.  
  7201.  
  7202. yrot (me)=359-yvroff+yrot (object (vattach));
  7203.  
  7204. resume (1, 2);
  7205.  
  7206. if (first)
  7207.  
  7208. {
  7209.  
  7210.   regGetN ("grass5", &Temp);
  7211.  
  7212.   if (Temp)
  7213.  
  7214.     vis (me);
  7215.  
  7216. }
  7217.  
  7218. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  7219.  
  7220. {
  7221.  
  7222.   vis (me);
  7223.  
  7224.   ysize (me)=0;
  7225.  
  7226.   repeat (50)
  7227.  
  7228.   {
  7229.  
  7230.     ysize (me)+=100;
  7231.  
  7232.     waitf;
  7233.  
  7234.   }
  7235.  
  7236.   regPutN ("grass5", 1);
  7237.  
  7238.   counter (30)=1;
  7239.  
  7240. }
  7241.  
  7242. if (getvp==3)
  7243.  
  7244. {
  7245.  
  7246.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  7247.  
  7248.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  7249.  
  7250.   if (abs (X-X2)+abs (Z-Z2)<10000)
  7251.  
  7252.   {
  7253.  
  7254.     regPutN ("grass5", 0);
  7255.  
  7256.     invis (me);
  7257.  
  7258.     counter (30)=1;
  7259.  
  7260.   }
  7261.  
  7262. }
  7263. end
  7264. End_Chunk
  7265. Chunk: Rotations
  7266.  Initial: 0x0000 0xFFFFA053 0x0000
  7267.  Centre:  3150 2500 0
  7268. End_Chunk
  7269.  
  7270. Chunk: ImageRef
  7271.  Number: 1
  7272.  Index: 1 Image: 22
  7273. End_Chunk
  7274. ;
  7275. ;-------Object   95-------------------------------------------------------
  7276. ; 
  7277. Chunk: Standard
  7278.  Name:     "chimney[95]"
  7279.  Number:   95
  7280.  Size:     6300 5000 0
  7281.  Position: 1990143 1000 1913385
  7282.  Type:     18
  7283.  Layer:    0
  7284.  DFlags:   E
  7285.  OFlags:   Ii
  7286. End_Chunk
  7287. Chunk: TexCoords
  7288.  Number: 1
  7289.  Mode:   0
  7290.  SubChunk
  7291.   Facet:     1
  7292.   ImageRef:  1
  7293.   PixScale:  0
  7294.   NumCoords: 4
  7295.     0.00000 0.00000
  7296.     0.00000 1.00000
  7297.     1.00000 1.00000
  7298.     1.00000 0.00000
  7299. End_Chunk
  7300. Chunk: Sorting
  7301.  Offset: 0 0 -3000
  7302.  Size:   6300 0 6300
  7303. End_Chunk
  7304. Chunk: InitSize
  7305.  Size: 6300 5000 0
  7306. End_Chunk
  7307. Chunk: SCL
  7308. long   Temp, X, Z, X2, Z2;
  7309.  
  7310.  
  7311.  
  7312. yrot (me)=359-yvroff+yrot (object (vattach));
  7313.  
  7314. resume (1, 2);
  7315.  
  7316. if (first)
  7317.  
  7318. {
  7319.  
  7320.   regGetN ("grass3", &Temp);
  7321.  
  7322.   if (Temp)
  7323.  
  7324.     vis (me);
  7325.  
  7326. }
  7327.  
  7328. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  7329.  
  7330. {
  7331.  
  7332.   vis (me);
  7333.  
  7334.   ysize (me)=0;
  7335.  
  7336.   repeat (50)
  7337.  
  7338.   {
  7339.  
  7340.     ysize (me)+=100;
  7341.  
  7342.     waitf;
  7343.  
  7344.   }
  7345.  
  7346.   regPutN ("grass3", 1);
  7347.  
  7348.   counter (30)=1;
  7349.  
  7350. }
  7351.  
  7352. if (getvp==3)
  7353.  
  7354. {
  7355.  
  7356.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  7357.  
  7358.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  7359.  
  7360.   if (abs (X-X2)+abs (Z-Z2)<10000)
  7361.  
  7362.   {
  7363.  
  7364.     regPutN ("grass3", 0);
  7365.  
  7366.     invis (me);
  7367.  
  7368.     counter (30)=1;
  7369.  
  7370.   }
  7371.  
  7372. }
  7373. end
  7374. End_Chunk
  7375. Chunk: Rotations
  7376.  Initial: 0x0000 0xFFFFA053 0x0000
  7377.  Centre:  3150 2500 0
  7378. End_Chunk
  7379.  
  7380. Chunk: ImageRef
  7381.  Number: 1
  7382.  Index: 1 Image: 22
  7383. End_Chunk
  7384. ;
  7385. ;-------Object   96-------------------------------------------------------
  7386. ; 
  7387. Chunk: Standard
  7388.  Name:     "chimney[96]"
  7389.  Number:   96
  7390.  Size:     6300 5000 0
  7391.  Position: 1997349 1000 1898815
  7392.  Type:     18
  7393.  Layer:    0
  7394.  DFlags:   E
  7395.  OFlags:   Ii
  7396. End_Chunk
  7397. Chunk: TexCoords
  7398.  Number: 1
  7399.  Mode:   0
  7400.  SubChunk
  7401.   Facet:     1
  7402.   ImageRef:  1
  7403.   PixScale:  0
  7404.   NumCoords: 4
  7405.     0.00000 0.00000
  7406.     0.00000 1.00000
  7407.     1.00000 1.00000
  7408.     1.00000 0.00000
  7409. End_Chunk
  7410. Chunk: Sorting
  7411.  Offset: 0 0 -3000
  7412.  Size:   6300 0 6300
  7413. End_Chunk
  7414. Chunk: InitSize
  7415.  Size: 6300 5000 0
  7416. End_Chunk
  7417. Chunk: SCL
  7418. long   Temp, X, Z, X2, Z2;
  7419.  
  7420.  
  7421.  
  7422. yrot (me)=359-yvroff+yrot (object (vattach));
  7423.  
  7424. resume (1, 2);
  7425.  
  7426. if (first)
  7427.  
  7428. {
  7429.  
  7430.   regGetN ("grass2", &Temp);
  7431.  
  7432.   if (Temp)
  7433.  
  7434.     vis (me);
  7435.  
  7436. }
  7437.  
  7438. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  7439.  
  7440. {
  7441.  
  7442.   vis (me);
  7443.  
  7444.   ysize (me)=0;
  7445.  
  7446.   repeat (50)
  7447.  
  7448.   {
  7449.  
  7450.     ysize (me)+=100;
  7451.  
  7452.     waitf;
  7453.  
  7454.   }
  7455.  
  7456.   regPutN ("grass2", 1);
  7457.  
  7458.   counter (30)=1;
  7459.  
  7460. }
  7461.  
  7462. if (getvp==3)
  7463.  
  7464. {
  7465.  
  7466.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  7467.  
  7468.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  7469.  
  7470.   if (abs (X-X2)+abs (Z-Z2)<10000)
  7471.  
  7472.   {
  7473.  
  7474.     regPutN ("grass2", 0);
  7475.  
  7476.     invis (me);
  7477.  
  7478.     counter (30)=1;
  7479.  
  7480.   }
  7481.  
  7482. }
  7483. end
  7484. End_Chunk
  7485. Chunk: Rotations
  7486.  Initial: 0x0000 0xFFFFA053 0x0000
  7487.  Centre:  3150 2500 0
  7488. End_Chunk
  7489.  
  7490. Chunk: ImageRef
  7491.  Number: 1
  7492.  Index: 1 Image: 22
  7493. End_Chunk
  7494. ;
  7495. ;-------Object   98-------------------------------------------------------
  7496. ; 
  7497. Chunk: Standard
  7498.  Name:     "chimney[98]"
  7499.  Number:   98
  7500.  Size:     6300 5000 0
  7501.  Position: 2019828 1000 1972600
  7502.  Type:     18
  7503.  Layer:    0
  7504.  DFlags:   E
  7505.  OFlags:   Ii
  7506. End_Chunk
  7507. Chunk: TexCoords
  7508.  Number: 1
  7509.  Mode:   0
  7510.  SubChunk
  7511.   Facet:     1
  7512.   ImageRef:  1
  7513.   PixScale:  0
  7514.   NumCoords: 4
  7515.     0.00000 0.00000
  7516.     0.00000 1.00000
  7517.     1.00000 1.00000
  7518.     1.00000 0.00000
  7519. End_Chunk
  7520. Chunk: Sorting
  7521.  Offset: 0 0 -3000
  7522.  Size:   6300 0 6300
  7523. End_Chunk
  7524. Chunk: InitSize
  7525.  Size: 6300 5000 0
  7526. End_Chunk
  7527. Chunk: SCL
  7528. long   Temp, X, Z, X2, Z2;
  7529.  
  7530.  
  7531.  
  7532. yrot (me)=359-yvroff+yrot (object (vattach));
  7533.  
  7534. resume (1, 2);
  7535.  
  7536. if (first)
  7537.  
  7538. {
  7539.  
  7540.   regGetN ("grass9", &Temp);
  7541.  
  7542.   if (Temp)
  7543.  
  7544.     vis (me);
  7545.  
  7546. }
  7547.  
  7548. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  7549.  
  7550. {
  7551.  
  7552.   vis (me);
  7553.  
  7554.   ysize (me)=0;
  7555.  
  7556.   repeat (50)
  7557.  
  7558.   {
  7559.  
  7560.     ysize (me)+=100;
  7561.  
  7562.     waitf;
  7563.  
  7564.   }
  7565.  
  7566.   regPutN ("grass9", 1);
  7567.  
  7568.   counter (30)=1;
  7569.  
  7570. }
  7571.  
  7572. if (getvp==3)
  7573.  
  7574. {
  7575.  
  7576.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  7577.  
  7578.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  7579.  
  7580.   if (abs (X-X2)+abs (Z-Z2)<10000)
  7581.  
  7582.   {
  7583.  
  7584.     regPutN ("grass9", 0);
  7585.  
  7586.     invis (me);
  7587.  
  7588.     counter (30)=1;
  7589.  
  7590.   }
  7591.  
  7592. }
  7593. end
  7594. End_Chunk
  7595. Chunk: Rotations
  7596.  Initial: 0x0000 0xFFFFA053 0x0000
  7597.  Centre:  3150 2500 0
  7598. End_Chunk
  7599.  
  7600. Chunk: ImageRef
  7601.  Number: 1
  7602.  Index: 1 Image: 22
  7603. End_Chunk
  7604. ;
  7605. ;-------Object   72-------------------------------------------------------
  7606. ; 
  7607. Chunk: Standard
  7608.  Name:     "floor[72]"
  7609.  Number:   72
  7610.  Size:     27456 15000 200
  7611.  Position: 2004910 1000 1855600
  7612.  Type:     2
  7613.  Layer:    0
  7614. End_Chunk
  7615. Chunk: TexCoords
  7616.  Number: 1
  7617.  Mode:   0
  7618.  SubChunk
  7619.   Facet:     1
  7620.   ImageRef:  1
  7621.   PixScale:  0
  7622.   NumCoords: 4
  7623.     0.00000 0.00000
  7624.     0.00000 1.00000
  7625.     1.00000 1.00000
  7626.     1.00000 0.00000
  7627. End_Chunk
  7628. Chunk: SCL
  7629. if (activate (me, 0))
  7630.  
  7631. {
  7632.  
  7633.   share (70)=0;
  7634.  
  7635.   share (69)=0;
  7636.  
  7637. /* Menulock stuff*/
  7638.  
  7639.   regPutN ("jogo", 0);
  7640.  
  7641.   menuLock (1);
  7642.  
  7643.   loadvrt ("map.vrt");
  7644.  
  7645.   clrtrig (me, 0);
  7646.  
  7647. }
  7648.  
  7649. if (share (1)==68)
  7650.  
  7651.   vis (me);
  7652.  
  7653. else
  7654.  
  7655.   invis (me);
  7656.  
  7657.  
  7658. end
  7659. End_Chunk
  7660.  
  7661. Chunk: ImageRef
  7662.  Number: 1
  7663.  Index: 1 Image: 55
  7664. End_Chunk
  7665. Chunk: Colours
  7666.  Number: 1
  7667.  0xA9
  7668. End_Chunk
  7669. ;
  7670. ;-------Object    6-------------------------------------------------------
  7671. ; 
  7672. Chunk: Standard
  7673.  Name:     "rightwall"
  7674.  Number:   6
  7675.  Size:     10000 30000 113200
  7676.  Position: 2066266 1000 1876800
  7677.  Type:     0
  7678.  Layer:    0
  7679. End_Chunk
  7680. Chunk: TexCoords
  7681.  Number: 1
  7682.  Mode:   0
  7683.  SubChunk
  7684.   Facet:     1
  7685.   ImageRef:  1
  7686.   PixScale:  0
  7687.   NumCoords: 4
  7688.     0.00000 0.00000
  7689.     0.00000 1.00000
  7690.     1.00000 1.00000
  7691.     1.00000 0.00000
  7692. End_Chunk
  7693.  
  7694. Chunk: ImageRef
  7695.  Number: 1
  7696.  Index: 1 Image: 3
  7697. End_Chunk
  7698. Chunk: Colours
  7699.  Number: 6
  7700.  0x77 0x00 0x00 0x76 0x00 0x75
  7701. End_Chunk
  7702. ;
  7703. ;-------Object   79-------------------------------------------------------
  7704. ; 
  7705. Chunk: Standard
  7706.  Name:     "frontwall[79]"
  7707.  Number:   79
  7708.  Size:     20000 9000 8000
  7709.  Position: 2033600 32800 1982000
  7710.  Type:     8
  7711.  Layer:    0
  7712. End_Chunk
  7713. Chunk: TexCoords
  7714.  Number: 6
  7715.  Mode:   0
  7716.  SubChunk
  7717.   Facet:     1
  7718.   ImageRef:  1
  7719.   PixScale:  0
  7720.   NumCoords: 4
  7721.     0.00000 0.00000
  7722.     0.00000 1.00000
  7723.     1.00000 1.00000
  7724.     0.30000 0.00000
  7725.  SubChunk
  7726.   Facet:     4
  7727.   ImageRef:  2
  7728.   PixScale:  0
  7729.   NumCoords: 4
  7730.     0.00000 0.00000
  7731.     0.00000 1.00000
  7732.     1.00000 1.00000
  7733.     1.00000 0.00000
  7734.  SubChunk
  7735.   Facet:     6
  7736.   ImageRef:  2
  7737.   PixScale:  0
  7738.   NumCoords: 4
  7739.     0.00000 0.00000
  7740.     0.00000 1.00000
  7741.     1.00000 1.00000
  7742.     1.00000 0.00000
  7743.  SubChunk
  7744.   Facet:     3
  7745.   ImageRef:  3
  7746.   PixScale:  0
  7747.   NumCoords: 4
  7748.     0.00000 0.00000
  7749.     0.00000 1.00000
  7750.     1.00000 1.00000
  7751.     1.00000 0.70000
  7752.  SubChunk
  7753.   Facet:     5
  7754.   ImageRef:  4
  7755.   PixScale:  0
  7756.   NumCoords: 4
  7757.     0.00000 0.00000
  7758.     0.00000 1.00000
  7759.     1.00000 1.00000
  7760.     1.00000 0.00000
  7761.  SubChunk
  7762.   Facet:     2
  7763.   ImageRef:  5
  7764.   PixScale:  0
  7765.   NumCoords: 4
  7766.     0.00000 0.00000
  7767.     0.00000 1.00000
  7768.     1.00000 1.00000
  7769.     1.00000 0.00000
  7770. End_Chunk
  7771.  
  7772. Chunk: ImageRef
  7773.  Number: 5
  7774.  Index: 1 Image: 14
  7775.  Index: 2 Image: 15
  7776.  Index: 3 Image: 16
  7777.  Index: 4 Image: 17
  7778.  Index: 5 Image: 18
  7779. End_Chunk
  7780. ;
  7781. ;-------Object   75-------------------------------------------------------
  7782. ; 
  7783. Chunk: Standard
  7784.  Name:     "frontwall[75]"
  7785.  Number:   75
  7786.  Size:     20366 2000 7000
  7787.  Position: 2033300 1000 1983000
  7788.  Type:     0
  7789.  Layer:    0
  7790. End_Chunk
  7791. Chunk: TexCoords
  7792.  Number: 4
  7793.  Mode:   0
  7794.  SubChunk
  7795.   Facet:     1
  7796.   ImageRef:  1
  7797.   PixScale:  0
  7798.   NumCoords: 4
  7799.     0.00000 0.00000
  7800.     0.00000 1.00000
  7801.     1.00000 1.00000
  7802.     1.00000 0.00000
  7803.  SubChunk
  7804.   Facet:     3
  7805.   ImageRef:  1
  7806.   PixScale:  0
  7807.   NumCoords: 4
  7808.     0.00000 0.00000
  7809.     0.00000 1.00000
  7810.     1.00000 1.00000
  7811.     1.00000 0.00000
  7812.  SubChunk
  7813.   Facet:     2
  7814.   ImageRef:  2
  7815.   PixScale:  0
  7816.   NumCoords: 4
  7817.     0.00000 0.00000
  7818.     0.00000 1.00000
  7819.     1.00000 1.00000
  7820.     1.00000 0.00000
  7821.  SubChunk
  7822.   Facet:     5
  7823.   ImageRef:  3
  7824.   PixScale:  0
  7825.   NumCoords: 4
  7826.     0.00000 0.00000
  7827.     0.00000 1.00000
  7828.     1.00000 1.00000
  7829.     1.00000 0.00000
  7830. End_Chunk
  7831.  
  7832. Chunk: ImageRef
  7833.  Number: 3
  7834.  Index: 1 Image: 10
  7835.  Index: 2 Image: 12
  7836.  Index: 3 Image: 13
  7837. End_Chunk
  7838. Chunk: Colours
  7839.  Number: 6
  7840.  0x2A 0x27 0x2A 0x76 0x24 0x75
  7841. End_Chunk
  7842. ;
  7843. ;-------Object   99-------------------------------------------------------
  7844. ; 
  7845. Chunk: Standard
  7846.  Name:     "wall[99]"
  7847.  Number:   99
  7848.  Size:     2999 2999 0
  7849.  Position: 2034820 15200 1988505
  7850.  Type:     19
  7851.  Layer:    0
  7852. End_Chunk
  7853. Chunk: TexCoords
  7854.  Number: 1
  7855.  Mode:   0
  7856.  SubChunk
  7857.   Facet:     2
  7858.   ImageRef:  1
  7859.   PixScale:  0
  7860.   NumCoords: 4
  7861.     0.00000 0.00000
  7862.     0.00000 1.00000
  7863.     1.00000 1.00000
  7864.     0.99929 0.00000
  7865. End_Chunk
  7866. Chunk: Rotations
  7867.  Initial: 0xFFFFFFED 0xFFFFC388 0x0000
  7868.  Centre:  1499 1499 0
  7869. End_Chunk
  7870. Chunk: SCL
  7871. yrot (me)=359-yvroff+yrot (object (vattach));
  7872.  
  7873. xrot (me)=359-xvroff;
  7874.  
  7875. if (activate (me, 0))
  7876.  
  7877. {
  7878.  
  7879.  
  7880.  
  7881.  
  7882.  
  7883.  
  7884.  
  7885.  
  7886.  
  7887.  
  7888.  
  7889.  
  7890.  
  7891.  
  7892.  
  7893.  
  7894.  
  7895.  
  7896.  
  7897.  
  7898.  
  7899.  
  7900.  
  7901.  
  7902.  
  7903.  
  7904.  
  7905.  
  7906.  
  7907.  
  7908.  
  7909.  
  7910.  
  7911.  
  7912.  
  7913.  
  7914.  
  7915.  
  7916.  
  7917.  
  7918.  
  7919.  
  7920.  
  7921.  
  7922.  
  7923.  
  7924.  
  7925.  
  7926.  
  7927.  
  7928.  
  7929.  
  7930.  
  7931.  
  7932.  
  7933.  
  7934.  
  7935.  
  7936.  
  7937.  
  7938.  
  7939.  
  7940.  
  7941.  
  7942.  
  7943.  
  7944.  
  7945.  
  7946.  
  7947.  
  7948.  
  7949.  
  7950.  
  7951.  
  7952.  
  7953.  
  7954.  
  7955.  
  7956.  
  7957.  
  7958.  
  7959.  
  7960.  
  7961.  
  7962.  
  7963.  
  7964.  
  7965.  
  7966.  
  7967.  
  7968.  
  7969.  
  7970.  
  7971.  
  7972.  
  7973.  
  7974.  
  7975.  
  7976.  
  7977.  
  7978.  
  7979.  
  7980.  
  7981.  
  7982.  
  7983.  
  7984.  
  7985.  
  7986.  
  7987.  
  7988.  
  7989.  
  7990.  
  7991.  
  7992.  
  7993.  
  7994.  
  7995.  
  7996.  
  7997.  
  7998.  
  7999.  
  8000.  
  8001.  
  8002.  
  8003.  
  8004.  
  8005.  
  8006.  
  8007.  
  8008.  
  8009.  
  8010.  
  8011.  
  8012.  
  8013.  
  8014.  
  8015.  
  8016.  
  8017.  
  8018.  
  8019.  
  8020.  
  8021.  
  8022.  
  8023.  
  8024.  
  8025.  
  8026.  
  8027.  
  8028.  
  8029.  
  8030.  
  8031.  
  8032.  
  8033.  
  8034.  
  8035.  
  8036.  
  8037.  
  8038.  
  8039.  
  8040.  
  8041.  
  8042.  
  8043.  
  8044.  
  8045.  
  8046.  
  8047.  
  8048.  
  8049.  
  8050.  
  8051.  
  8052.  
  8053.  
  8054.  
  8055.  
  8056.  
  8057.  
  8058.  
  8059.  
  8060.  
  8061.  
  8062.  
  8063.  
  8064.  
  8065.  
  8066.  
  8067.  
  8068.  
  8069.  
  8070.  
  8071.  
  8072.  
  8073.  
  8074.  
  8075.  
  8076.  
  8077.  
  8078.  
  8079.  
  8080.  
  8081.  
  8082.  
  8083.  
  8084.  
  8085.  
  8086.  
  8087.  
  8088.  
  8089.  
  8090.  
  8091.  
  8092.  
  8093.  
  8094.  
  8095.  
  8096.  
  8097.  
  8098.  
  8099.  
  8100.  
  8101.  
  8102.  
  8103.  
  8104.  
  8105.  
  8106.  
  8107.  
  8108.  
  8109.  
  8110.  
  8111.  
  8112.  
  8113.  
  8114.  
  8115.  
  8116.  
  8117.  
  8118.  
  8119.  
  8120.  
  8121.  
  8122.  
  8123.  
  8124.  
  8125.  
  8126.  
  8127.  
  8128.  
  8129.  
  8130.  
  8131.  
  8132.  
  8133.  
  8134.  
  8135.  
  8136.  
  8137.  
  8138.  
  8139.  
  8140.  
  8141.  
  8142.  
  8143.  
  8144.  
  8145.  
  8146.  
  8147.  
  8148.  
  8149.  
  8150.  
  8151.  
  8152.  
  8153.  
  8154.  
  8155.  
  8156.  
  8157.  
  8158.  
  8159.  
  8160.  
  8161.  
  8162.  
  8163.  
  8164.  
  8165.  
  8166.  
  8167.  
  8168.  
  8169.  
  8170.  
  8171.  
  8172.  
  8173.  
  8174.  
  8175.  
  8176.  
  8177.  
  8178.  
  8179.  
  8180.  
  8181.  
  8182.  
  8183.  
  8184.  
  8185.  
  8186.  
  8187.  
  8188.  
  8189.  
  8190.  
  8191.  
  8192.  
  8193.  
  8194.  
  8195.  
  8196.  
  8197.  
  8198.  
  8199.  
  8200.  
  8201.  
  8202.  
  8203.  
  8204.  
  8205.  
  8206.  
  8207.  
  8208.  
  8209.  
  8210.  
  8211.  
  8212.  
  8213.  
  8214.  
  8215.  
  8216.  
  8217.  
  8218.  
  8219.  
  8220.  
  8221.  
  8222.  
  8223.  
  8224.  
  8225.  
  8226.  
  8227.  
  8228.  
  8229.  
  8230.  
  8231.  
  8232.  
  8233.  
  8234.  
  8235.  
  8236.  
  8237.  
  8238.  
  8239.  
  8240.  
  8241.  
  8242.  
  8243.  
  8244.  
  8245.  
  8246.  
  8247.  
  8248.  
  8249.  
  8250.  
  8251.  
  8252.  
  8253.  
  8254.  
  8255.  
  8256.  
  8257.  
  8258.  
  8259.  
  8260.  
  8261.  
  8262.  
  8263.  
  8264.  
  8265.  
  8266.  
  8267.  
  8268.  
  8269.  
  8270.  
  8271.  
  8272.  
  8273.  
  8274.  
  8275.  
  8276.  
  8277.  
  8278.  
  8279.  
  8280.  
  8281.  
  8282.  
  8283.  
  8284.  
  8285.  
  8286.  
  8287.  
  8288.  
  8289.  
  8290.  
  8291.  
  8292.  
  8293.  
  8294.  
  8295.  
  8296.  
  8297.  
  8298.  
  8299.  
  8300.  
  8301.  
  8302.  
  8303.  
  8304.  
  8305.  
  8306.  
  8307.  
  8308.  
  8309.  
  8310.  
  8311.  
  8312.  
  8313.  
  8314.  
  8315.  
  8316.  
  8317.  
  8318.  
  8319.  
  8320.  
  8321.  
  8322.  
  8323.  
  8324.  
  8325.  
  8326.  
  8327.  
  8328.  
  8329.  
  8330.  
  8331.  
  8332.  
  8333.  
  8334.  
  8335.  
  8336.  
  8337.  
  8338.  
  8339.  
  8340.  
  8341.  
  8342.  
  8343.  
  8344.  
  8345.  
  8346.  
  8347.  
  8348.  
  8349.  
  8350.  
  8351.  
  8352.  
  8353.  
  8354.  
  8355.  
  8356.  
  8357.  
  8358.  
  8359.  
  8360.  
  8361.  
  8362.  
  8363.  
  8364.  
  8365.  
  8366.  
  8367.  
  8368.  
  8369.  
  8370.  
  8371.  
  8372.  
  8373.  
  8374.  
  8375.  
  8376.  
  8377.  
  8378.  
  8379.  
  8380.  
  8381.  
  8382.  
  8383.  
  8384.  
  8385.  
  8386.  
  8387.  
  8388.  
  8389.  
  8390.  
  8391.  
  8392.  
  8393.  
  8394.  
  8395.  
  8396.  
  8397.  
  8398.  
  8399.  
  8400.  
  8401.  
  8402.  
  8403.  
  8404.  
  8405.  
  8406.  
  8407.  
  8408.  
  8409.  
  8410.  
  8411.  
  8412.  
  8413.  
  8414.  
  8415.  
  8416.  
  8417.  
  8418.  
  8419.  
  8420.  
  8421.  
  8422.  
  8423.  
  8424.  
  8425.  
  8426.  
  8427.  
  8428.  
  8429.  
  8430.  
  8431.  
  8432.  
  8433.  
  8434.  
  8435.  
  8436.  
  8437.  
  8438.  
  8439.  
  8440.  
  8441.  
  8442.  
  8443.  
  8444.  
  8445.  
  8446.  
  8447.  
  8448.  
  8449.  
  8450.  
  8451.  
  8452.  
  8453.  
  8454.  
  8455.  
  8456.  
  8457.  
  8458.  
  8459.  
  8460.  
  8461.  
  8462.  
  8463.  
  8464.  
  8465.  
  8466.  
  8467.  
  8468.  
  8469.  
  8470.  
  8471.  
  8472.  
  8473.  
  8474.  
  8475.  
  8476.  
  8477.  
  8478.  
  8479.  
  8480.  
  8481.  
  8482.  
  8483.  
  8484.  
  8485.  
  8486.  
  8487.  
  8488.  
  8489.  
  8490.  
  8491.  
  8492.  
  8493.  
  8494.  
  8495.  
  8496.  
  8497.  
  8498.  
  8499.  
  8500.  
  8501.  
  8502.  
  8503.  
  8504.  
  8505.  
  8506.  
  8507.  
  8508.  
  8509.  
  8510.  
  8511.  
  8512.  
  8513.  
  8514.  
  8515.  
  8516.  
  8517.  
  8518.  
  8519.  
  8520.  
  8521.  
  8522.  
  8523.  
  8524.  
  8525.  
  8526.  
  8527.  
  8528.  
  8529.  
  8530.  
  8531.  
  8532.  
  8533.  
  8534.  
  8535.  
  8536.  
  8537.  
  8538.  
  8539.  
  8540.  
  8541.  
  8542.  
  8543.  
  8544.  
  8545.  
  8546.  
  8547.  
  8548.  
  8549.  
  8550.  
  8551.  
  8552.  
  8553.  
  8554.  
  8555.  
  8556.  
  8557.  
  8558.  
  8559.  
  8560.  
  8561.  
  8562.  
  8563.  
  8564.  
  8565.  
  8566.  
  8567.  
  8568.  
  8569.  
  8570.  
  8571.  
  8572.  
  8573.  
  8574.  
  8575.  
  8576.  
  8577.  
  8578.  
  8579.  
  8580.  
  8581.  
  8582.  
  8583.  
  8584.  
  8585.  
  8586.  
  8587.  
  8588.  
  8589.  
  8590.  
  8591.  
  8592.  
  8593.  
  8594.  
  8595.  
  8596.  
  8597.  
  8598.  
  8599.  
  8600.  
  8601.  
  8602.  
  8603.  
  8604.  
  8605.  
  8606.  
  8607.  
  8608.  
  8609.  
  8610.  
  8611.  
  8612.  
  8613.  
  8614.  
  8615.  
  8616.  
  8617.  
  8618.  
  8619.  
  8620.  
  8621.  
  8622.  
  8623.  
  8624.  
  8625.  
  8626.  
  8627.  
  8628.  
  8629.  
  8630.  
  8631.  
  8632.  
  8633.  
  8634.  
  8635.  
  8636.  
  8637.  
  8638.  
  8639.  
  8640.  
  8641.  
  8642.  
  8643.  
  8644.  
  8645.  
  8646.  
  8647.  
  8648.  
  8649.  
  8650.  
  8651.  
  8652.  
  8653.  
  8654.  
  8655.  
  8656.  
  8657.  
  8658.  
  8659.  
  8660.  
  8661.  
  8662.  
  8663.  
  8664.  
  8665.  
  8666.  
  8667.  
  8668.  
  8669.  
  8670.  
  8671.  
  8672.  
  8673.  
  8674.  
  8675.  
  8676.  
  8677.  
  8678.  
  8679.  
  8680.  
  8681.  
  8682.  
  8683.  
  8684.  
  8685.  
  8686.  
  8687.  
  8688.  
  8689.  
  8690.  
  8691.  
  8692.  
  8693.  
  8694.  
  8695.  
  8696.  
  8697.  
  8698.  
  8699.  
  8700.  
  8701.  
  8702.  
  8703.  
  8704.  
  8705.  
  8706.  
  8707.  
  8708.  
  8709.  
  8710.  
  8711.  
  8712.  
  8713.  
  8714.  
  8715.  
  8716.  
  8717.  
  8718.  
  8719.  
  8720.  
  8721.  
  8722.  
  8723.  
  8724.  
  8725.  
  8726.  
  8727.  
  8728.  
  8729.  
  8730.  
  8731.  
  8732.  
  8733.  
  8734.  
  8735.  
  8736.  
  8737.  
  8738.  
  8739.  
  8740.  
  8741.  
  8742.  
  8743.  
  8744.  
  8745.  
  8746.  
  8747.  
  8748.  
  8749.  
  8750.  
  8751.  
  8752.  
  8753.  
  8754.  
  8755.  
  8756.  
  8757.  
  8758.  
  8759.  
  8760.  
  8761.  
  8762.  
  8763.  
  8764.  
  8765.  
  8766.  
  8767.  
  8768.  
  8769.  
  8770.  
  8771.  
  8772.  
  8773.  
  8774.  
  8775.  
  8776.  
  8777.  
  8778.  
  8779.  
  8780.  
  8781.  
  8782.  
  8783.  
  8784.  
  8785.  
  8786.  
  8787.  
  8788.  
  8789.  
  8790.  
  8791.  
  8792.  
  8793.  
  8794.  
  8795.  
  8796.  
  8797.  
  8798.  
  8799.  
  8800.  
  8801.  
  8802.  
  8803.  
  8804.  
  8805.  
  8806.  
  8807.  
  8808.  
  8809.  
  8810.  
  8811.  
  8812.  
  8813.  
  8814.  
  8815.  
  8816.  
  8817.  
  8818.  
  8819.  
  8820.  
  8821.  
  8822.  
  8823.  
  8824.  
  8825.  
  8826.  
  8827.  
  8828.  
  8829.  
  8830.  
  8831.  
  8832.  
  8833.  
  8834.  
  8835.  
  8836.  
  8837.  
  8838.  
  8839.  
  8840.  
  8841.  
  8842.  
  8843.  
  8844.  
  8845.  
  8846.  
  8847.  
  8848.  
  8849.  
  8850.  
  8851.  
  8852.  
  8853.  
  8854.  
  8855.  
  8856.  
  8857.  
  8858.  
  8859.  
  8860.  
  8861.  
  8862.  
  8863.  
  8864.  
  8865.  
  8866.  
  8867.  
  8868.  
  8869.  
  8870.  
  8871.  
  8872.  
  8873.  
  8874.  
  8875.  
  8876.  
  8877.  
  8878.  
  8879.  
  8880.  
  8881.  
  8882.  
  8883.  
  8884.  
  8885.  
  8886.  
  8887.  
  8888.  
  8889.  
  8890.  
  8891.  
  8892.  
  8893.  
  8894.  
  8895.  
  8896.  
  8897.  
  8898.  
  8899.  
  8900.  
  8901. /* Menulock stuff*/
  8902.  
  8903.  
  8904.  
  8905.  
  8906.  
  8907.  
  8908.  
  8909.  
  8910.  
  8911.  
  8912.  
  8913.  
  8914.  
  8915.  
  8916.  
  8917.  
  8918.  
  8919.  
  8920.  
  8921.  
  8922.  
  8923.  
  8924.  
  8925.  
  8926.  
  8927.  
  8928.  
  8929.  
  8930.  
  8931.  
  8932.  
  8933.  
  8934.  
  8935.  
  8936.  
  8937.  
  8938.  
  8939.  
  8940.  
  8941.  
  8942.  
  8943.  
  8944.  
  8945.  
  8946.  
  8947.  
  8948.  
  8949.  
  8950.  
  8951.  
  8952.  
  8953.  
  8954.  
  8955.  
  8956.  
  8957.  
  8958.  
  8959.  
  8960.  
  8961.  
  8962.  
  8963.  
  8964.  
  8965.  
  8966.  
  8967.  
  8968.  
  8969.  
  8970.  
  8971.  
  8972.  
  8973.  
  8974.  
  8975.  
  8976.  
  8977.  
  8978.  
  8979.  
  8980.  
  8981.  
  8982.  
  8983.  
  8984.  
  8985.  
  8986.  
  8987.  
  8988.  
  8989.  
  8990.  
  8991.  
  8992.  
  8993.  
  8994.  
  8995.  
  8996.  
  8997.  
  8998.  
  8999.  
  9000.  
  9001.  
  9002.  
  9003.  
  9004.  
  9005.  
  9006.  
  9007.  
  9008.  
  9009.  
  9010.  
  9011.  
  9012.  
  9013.  
  9014.  
  9015.  
  9016.  
  9017.  
  9018.  
  9019.  
  9020.  
  9021.  
  9022.  
  9023.  
  9024.  
  9025.  
  9026.  
  9027.  
  9028.  
  9029.  
  9030.  
  9031.  
  9032.  
  9033.  
  9034.  
  9035.  
  9036.  
  9037.  
  9038.  
  9039.  
  9040.  
  9041.  
  9042.  
  9043.  
  9044.  
  9045.  
  9046.  
  9047.  
  9048.  
  9049.  
  9050.  
  9051.  
  9052.  
  9053.  
  9054.  
  9055.  
  9056.  
  9057.  
  9058.  
  9059.  
  9060.  
  9061.  
  9062.  
  9063.  
  9064.  
  9065.  
  9066.  
  9067.  
  9068.  
  9069.  
  9070.  
  9071.  
  9072.  
  9073.  
  9074.  
  9075.  
  9076.  
  9077.  
  9078.  
  9079.  
  9080.  
  9081.  
  9082.  
  9083.  
  9084.  
  9085.  
  9086.  
  9087.  
  9088.  
  9089.  
  9090.  
  9091.  
  9092.  
  9093.  
  9094.  
  9095.  
  9096.  
  9097.  
  9098.  
  9099.  
  9100.  
  9101.  
  9102.  
  9103.  
  9104.  
  9105.  
  9106.  
  9107.  
  9108.  
  9109.  
  9110.  
  9111.  
  9112.  
  9113.  
  9114.  
  9115.  
  9116.  
  9117.  
  9118.  
  9119.  
  9120.  
  9121.  
  9122.  
  9123.  
  9124.  
  9125.  
  9126.  
  9127.  
  9128.  
  9129.  
  9130.  
  9131.  
  9132.  
  9133.  
  9134.  
  9135.  
  9136.  
  9137.  
  9138.  
  9139.  
  9140.  
  9141.  
  9142.  
  9143.  
  9144.  
  9145.  
  9146.  
  9147.  
  9148.  
  9149.  
  9150.  
  9151.  
  9152.  
  9153.  
  9154.  
  9155.  
  9156.  
  9157.  
  9158.  
  9159.  
  9160.  
  9161.  
  9162.  
  9163.  
  9164.  
  9165.  
  9166.  
  9167.  
  9168.  
  9169.  
  9170.  
  9171.  
  9172.  
  9173.  
  9174.  
  9175.  
  9176.  
  9177.  
  9178.  
  9179.  
  9180.  
  9181.  
  9182.  
  9183.  
  9184.  
  9185.  
  9186.  
  9187.  
  9188.  
  9189.  
  9190.  
  9191.  
  9192.  
  9193.  
  9194.  
  9195.  
  9196.  
  9197.  
  9198.  
  9199.  
  9200.  
  9201.  
  9202.  
  9203.  
  9204.  
  9205.  
  9206.  
  9207.  
  9208.  
  9209.  
  9210.  
  9211.  
  9212.  
  9213.  
  9214.  
  9215.  
  9216.  
  9217.  
  9218.  
  9219.  
  9220.  
  9221.  
  9222.  
  9223.  
  9224.  
  9225.  
  9226.  
  9227.  
  9228.  
  9229.  
  9230.  
  9231.  
  9232.  
  9233.  
  9234.  
  9235.  
  9236.  
  9237.  
  9238.  
  9239.  
  9240.  
  9241.  
  9242.  
  9243.  
  9244.  
  9245.  
  9246.  
  9247.  
  9248.  
  9249.  
  9250.  
  9251.  
  9252.  
  9253.  
  9254.  
  9255.  
  9256.  
  9257.  
  9258.  
  9259.  
  9260.  
  9261.  
  9262.  
  9263.  
  9264.  
  9265.  
  9266.  
  9267.  
  9268.  
  9269.  
  9270.  
  9271.  
  9272.  
  9273.  
  9274.  
  9275.  
  9276.  
  9277.  
  9278.  
  9279.  
  9280.  
  9281.  
  9282.  
  9283.  
  9284.  
  9285.  
  9286.  
  9287.  
  9288.  
  9289.  
  9290.  
  9291.  
  9292.  
  9293.  
  9294.  
  9295.  
  9296.  
  9297.  
  9298.  
  9299.  
  9300.  
  9301.  
  9302.  
  9303.  
  9304.  
  9305.  
  9306.  
  9307.  
  9308.  
  9309.  
  9310.  
  9311.  
  9312.  
  9313.  
  9314.  
  9315.  
  9316.  
  9317.  
  9318.  
  9319.  
  9320.  
  9321.  
  9322.  
  9323.  
  9324.  
  9325.  
  9326.  
  9327.  
  9328.  
  9329.  
  9330.  
  9331.  
  9332.  
  9333.  
  9334.  
  9335.  
  9336.  
  9337.  
  9338.  
  9339.  
  9340.  
  9341.  
  9342.  
  9343.  
  9344.  
  9345.  
  9346.  
  9347.  
  9348.  
  9349.  
  9350.  
  9351.  
  9352.  
  9353.  
  9354.  
  9355.  
  9356.  
  9357.  
  9358.  
  9359.  
  9360.  
  9361.  
  9362.  
  9363.  
  9364.  
  9365.  
  9366.  
  9367.  
  9368.  
  9369.  
  9370.  
  9371.  
  9372.  
  9373.  
  9374.  
  9375.  
  9376.  
  9377.  
  9378.  
  9379.  
  9380.  
  9381.  
  9382.  
  9383.  
  9384.  
  9385.  
  9386.  
  9387.  
  9388.  
  9389.  
  9390.  
  9391.  
  9392.  
  9393.  
  9394.  
  9395.  
  9396.  
  9397.  
  9398.  
  9399.  
  9400.  
  9401.  
  9402.  
  9403.  
  9404.  
  9405.  
  9406.  
  9407.  
  9408.  
  9409.  
  9410.  
  9411.  
  9412.  
  9413.  
  9414.  
  9415.  
  9416.  
  9417.  
  9418.  
  9419.  
  9420.  
  9421.  
  9422.  
  9423.  
  9424.  
  9425.  
  9426.  
  9427.  
  9428.  
  9429.  
  9430.  
  9431.  
  9432.  
  9433.  
  9434.  
  9435.  
  9436.  
  9437.  
  9438.  
  9439.  
  9440.  
  9441.  
  9442.  
  9443.  
  9444.  
  9445.  
  9446.  
  9447.  
  9448.  
  9449.  
  9450.  
  9451.  
  9452.  
  9453.  
  9454.  
  9455.  
  9456.  
  9457.  
  9458.  
  9459.  
  9460.  
  9461.  
  9462.  
  9463.  
  9464.  
  9465.  
  9466.  
  9467.  
  9468.  
  9469.  
  9470.  
  9471.  
  9472.  
  9473.  
  9474.  
  9475.  
  9476.  
  9477.  
  9478.  
  9479.  
  9480.  
  9481.  
  9482.  
  9483.  
  9484.  
  9485.  
  9486.  
  9487.  
  9488.  
  9489.  
  9490.  
  9491.  
  9492.  
  9493.  
  9494.  
  9495.  
  9496.  
  9497.  
  9498.  
  9499.  
  9500.  
  9501.  
  9502.  
  9503.  
  9504.  
  9505.  
  9506.  
  9507.  
  9508.  
  9509.  
  9510.  
  9511.  
  9512.  
  9513.  
  9514.  
  9515.  
  9516.  
  9517.  
  9518.  
  9519.  
  9520.  
  9521.  
  9522.  
  9523.  
  9524.  
  9525.  
  9526.  
  9527.  
  9528.  
  9529.  
  9530.  
  9531.  
  9532.  
  9533.  
  9534.  
  9535.  
  9536.  
  9537.  
  9538.  
  9539.  
  9540.  
  9541.  
  9542.  
  9543.  
  9544.  
  9545.  
  9546.  
  9547.  
  9548.  
  9549.  
  9550.  
  9551.  
  9552.  
  9553.  
  9554.  
  9555.  
  9556.  
  9557.  
  9558.  
  9559.  
  9560.  
  9561.  
  9562.  
  9563.  
  9564.  
  9565.  
  9566.  
  9567.  
  9568.  
  9569.  
  9570.  
  9571.  
  9572.  
  9573.  
  9574.  
  9575.  
  9576.  
  9577.  
  9578.  
  9579.  
  9580.  
  9581.  
  9582.  
  9583.  
  9584.  
  9585.  
  9586.  
  9587.  
  9588.  
  9589.  
  9590.  
  9591.  
  9592.  
  9593.  
  9594.  
  9595.  
  9596.  
  9597.  
  9598.  
  9599.  
  9600.  
  9601.  
  9602.  
  9603.  
  9604.  
  9605.  
  9606.  
  9607.  
  9608.  
  9609.  
  9610.  
  9611.  
  9612.  
  9613.  
  9614.  
  9615.  
  9616.  
  9617.  
  9618.  
  9619.  
  9620.  
  9621.  
  9622.  
  9623.  
  9624.  
  9625.  
  9626.  
  9627.  
  9628.  
  9629.  
  9630.  
  9631.  
  9632.  
  9633.  
  9634.  
  9635.  
  9636.  
  9637.  
  9638.  
  9639.  
  9640.  
  9641.  
  9642.  
  9643.  
  9644.  
  9645.  
  9646.  
  9647.  
  9648.  
  9649.  
  9650.  
  9651.  
  9652.  
  9653.  
  9654.  
  9655.  
  9656.  
  9657.  
  9658.  
  9659.  
  9660.  
  9661.  
  9662.  
  9663.  
  9664.  
  9665.  
  9666.  
  9667.  
  9668.  
  9669.  
  9670.  
  9671.  
  9672.  
  9673.  
  9674.  
  9675.  
  9676.  
  9677.  
  9678.  
  9679.  
  9680.  
  9681.  
  9682.  
  9683.  
  9684.  
  9685.  
  9686.  
  9687.  
  9688.  
  9689.  
  9690.  
  9691.  
  9692.  
  9693.  
  9694.  
  9695.  
  9696.  
  9697.  
  9698.  
  9699.  
  9700.  
  9701.  
  9702.  
  9703.  
  9704.  
  9705.  
  9706.  
  9707.  
  9708.  
  9709.  
  9710.  
  9711.  
  9712.  
  9713.  
  9714.  
  9715.  
  9716.  
  9717.  
  9718.  
  9719.  
  9720.  
  9721.  
  9722.  
  9723.  
  9724.  
  9725.  
  9726.  
  9727.  
  9728.  
  9729.  
  9730.  
  9731.  
  9732.  
  9733.  
  9734.  
  9735.  
  9736.  
  9737.  
  9738.  
  9739.  
  9740.  
  9741.  
  9742.  
  9743.  
  9744.  
  9745.  
  9746.  
  9747.  
  9748.  
  9749.  
  9750.  
  9751.  
  9752.  
  9753.  
  9754.  
  9755.  
  9756.  
  9757.  
  9758.  
  9759.  
  9760.  
  9761.  
  9762.  
  9763.  
  9764.  
  9765.  
  9766.  
  9767.  
  9768.  
  9769.  
  9770.  
  9771.  
  9772.  
  9773.  
  9774.  
  9775.  
  9776.  
  9777.  
  9778.  
  9779.  
  9780.  
  9781.  
  9782.  
  9783.  
  9784.  
  9785.  
  9786.  
  9787.  
  9788.  
  9789.  
  9790.  
  9791.  
  9792.  
  9793.  
  9794.  
  9795.  
  9796.  
  9797.  
  9798.  
  9799.  
  9800.  
  9801.  
  9802.  
  9803.  
  9804.  
  9805.  
  9806.  
  9807.  
  9808.  
  9809.  
  9810.  
  9811.  
  9812.  
  9813.  
  9814.  
  9815.  
  9816.  
  9817.  
  9818.  
  9819.  
  9820.  
  9821.  
  9822.  
  9823.  
  9824.  
  9825.  
  9826.  
  9827.  
  9828.  
  9829.  
  9830.  
  9831.  
  9832.  
  9833.  
  9834.  
  9835.  
  9836.  
  9837.  
  9838.  
  9839.  
  9840.  
  9841.  
  9842.  
  9843.  
  9844.  
  9845.  
  9846.  
  9847.  
  9848.  
  9849.  
  9850.  
  9851.  
  9852.  
  9853.  
  9854.  
  9855.  
  9856.  
  9857.  
  9858.  
  9859.  
  9860.  
  9861.  
  9862.  
  9863.  
  9864.  
  9865.  
  9866.  
  9867.  
  9868.  
  9869.  
  9870.  
  9871.  
  9872.  
  9873.  
  9874.  
  9875.  
  9876.  
  9877.  
  9878.  
  9879.  
  9880.  
  9881.  
  9882.  
  9883.  
  9884.  
  9885.  
  9886.  
  9887.  
  9888.  
  9889.  
  9890.  
  9891.  
  9892.  
  9893.  
  9894.  
  9895.  
  9896.  
  9897.  
  9898.  
  9899.  
  9900.  
  9901.  
  9902.  
  9903.  
  9904.  
  9905.  
  9906.  
  9907.  
  9908.  
  9909.  
  9910.  
  9911.  
  9912.  
  9913.  
  9914.  
  9915.  
  9916.  
  9917.  
  9918.  
  9919.  
  9920.  
  9921.  
  9922.  
  9923.  
  9924.  
  9925.   share (99)=0;
  9926.  
  9927.   menuLock (1);
  9928.  
  9929.   loadvrt ("living.vrt");
  9930.  
  9931.   clrtrig (me, 0);
  9932.  
  9933. }
  9934. end
  9935. End_Chunk
  9936.  
  9937. Chunk: ImageRef
  9938.  Number: 1
  9939.  Index: 1 Image: 39
  9940. End_Chunk
  9941. Chunk: Colours
  9942.  Number: 2
  9943.  0x77 0x76
  9944. End_Chunk
  9945. ;
  9946. ;-------Object  145-------------------------------------------------------
  9947. ; 
  9948. Chunk: Standard
  9949.  Name:     "other"
  9950.  Number:   145
  9951.  Size:     3000 3000 3000
  9952.  Position: 2045257 0 2025864
  9953.  Type:     65535
  9954.  Layer:    0
  9955. End_Chunk
  9956. Chunk: Colours
  9957.  Number: 6
  9958.  0x13 0x30 0x13 0x39 0x13 0x13
  9959. End_Chunk
  9960. Chunk: SCL
  9961. long   STATS[8];
  9962.  
  9963.  
  9964.  
  9965. if (first)
  9966.  
  9967. {
  9968.  
  9969.   counter (50)=-1;
  9970.  
  9971.   counter (51)=-1;
  9972.  
  9973.   counter (52)=-1;
  9974.  
  9975.   counter (53)=-1;
  9976.  
  9977. }
  9978.  
  9979. if (counter (50)!=-1 || counter (51)!=-1 || counter (52)!=-1 || 
  9980.  
  9981.     counter (53)!=-1)
  9982.  
  9983. {
  9984.  
  9985.   if (counter (50)!=-1)
  9986.  
  9987.     STATS[0]=counter (50);
  9988.  
  9989.   else
  9990.  
  9991.     STATS[0]=0;
  9992.  
  9993.   if (counter (51)!=-1)
  9994.  
  9995.     STATS[1]=counter (51);
  9996.  
  9997.   else
  9998.  
  9999.     STATS[1]=0;
  10000.  
  10001.   if (counter (52)!=-1)
  10002.  
  10003.     STATS[2]=counter (52);
  10004.  
  10005.   else
  10006.  
  10007.     STATS[2]=0;
  10008.  
  10009.   if (counter (53)!=-1)
  10010.  
  10011.     STATS[4]=counter (53);
  10012.  
  10013.   else
  10014.  
  10015.     STATS[4]=0;
  10016.  
  10017.   STATS[5]=0;
  10018.  
  10019.   STATS[6]=0;
  10020.  
  10021.   STATS[7]=0;
  10022.  
  10023.   statsExp (&STATS);
  10024.  
  10025.   counter (50)=-1;
  10026.  
  10027.   counter (51)=-1;
  10028.  
  10029.   counter (52)=-1;
  10030.  
  10031.   counter (53)=-1;
  10032.  
  10033. }
  10034. end
  10035. End_Chunk
  10036. ;
  10037. ;-------Object  104-------------------------------------------------------
  10038. ; 
  10039. Chunk: Standard
  10040.  Name:     "Jo-in-or-out"
  10041.  Number:   104
  10042.  Size:     3000 3000 3000
  10043.  Position: 2063257 0 2025864
  10044.  Type:     65535
  10045.  Layer:    0
  10046. End_Chunk
  10047. Chunk: SCL
  10048. long   oldVALUE, STATS[8], CURRENT, TEMP, Time;
  10049.  
  10050. float  newVALUE, TOTAL;
  10051.  
  10052. char   REG[256], VALUE[5];
  10053.  
  10054. short  LOWEST;
  10055.  
  10056.  
  10057.  
  10058. if (first || vrtime>Time+60000)
  10059.  
  10060. {
  10061.  
  10062.   Time=vrtime;
  10063.  
  10064.   CURRENT=0;
  10065.  
  10066.   repeat (25)
  10067.  
  10068.   {
  10069.  
  10070.     strcpy (®, "flower");
  10071.  
  10072.     ltoa (&VALUE, inloop);
  10073.  
  10074.     strcat (®, &VALUE);
  10075.  
  10076.     if (regGetN (®, &TEMP))
  10077.  
  10078.       TEMP=0;
  10079.  
  10080.     CURRENT+=TEMP;
  10081.  
  10082.   }
  10083.  
  10084.   if (CURRENT>=20)
  10085.  
  10086.   {
  10087.  
  10088.     CURRENT=0;
  10089.  
  10090.     repeat (21)
  10091.  
  10092.     {
  10093.  
  10094.       strcpy (®, "weed");
  10095.  
  10096.       ltoa (&VALUE, inloop);
  10097.  
  10098.       strcat (®, &VALUE);
  10099.  
  10100.       if (regGetN (®, &TEMP))
  10101.  
  10102.         TEMP=0;
  10103.  
  10104.       CURRENT+=TEMP;
  10105.  
  10106.     }
  10107.  
  10108.     if (CURRENT<10)
  10109.  
  10110.     {
  10111.  
  10112.       CURRENT=0;
  10113.  
  10114.       repeat (12)
  10115.  
  10116.       {
  10117.  
  10118.         strcpy (®, "grass");
  10119.  
  10120.         ltoa (&VALUE, inloop);
  10121.  
  10122.         strcat (®, &VALUE);
  10123.  
  10124.         if (regGetN (®, &TEMP))
  10125.  
  10126.           TEMP=0;
  10127.  
  10128.         CURRENT+=TEMP;
  10129.  
  10130.       }
  10131.  
  10132.       if (CURRENT<5)
  10133.  
  10134.       {
  10135.  
  10136.         statsGet (&STATS);
  10137.  
  10138.         repeat (5)
  10139.  
  10140.         {
  10141.  
  10142.           TEMP=5+-inloop;
  10143.  
  10144.           repeat (5)
  10145.  
  10146.           {
  10147.  
  10148.             if (STATS[TEMP]<STATS[inloop-1] && 
  10149.  
  10150.                 STATS[TEMP]<STATS[LOWEST])
  10151.  
  10152.               LOWEST=TEMP;
  10153.  
  10154.           }
  10155.  
  10156.         }
  10157.  
  10158.         if (STATS[LOWEST]>800)
  10159.  
  10160.           vis (#109);
  10161.  
  10162.       }
  10163.  
  10164.     }
  10165.  
  10166.   }
  10167.  
  10168. }
  10169. end
  10170. End_Chunk
  10171. Chunk: Colours
  10172.  Number: 6
  10173.  0x3D 0x13 0x3D 0x33 0x11 0x11
  10174. End_Chunk
  10175. ;
  10176. ;-------Object   18-------------------------------------------------------
  10177. ; 
  10178. Chunk: Standard
  10179.  Name:     "statsOverTime"
  10180.  Number:   18
  10181.  Size:     3000 3000 3000
  10182.  Position: 2057257 0 2025864
  10183.  Type:     65535
  10184.  Layer:    0
  10185. End_Chunk
  10186. Chunk: SCL
  10187. /*
  10188.  
  10189.  
  10190.  
  10191. USE THIS CODE TO AFFECT STATS OVER TIME
  10192.  
  10193.  
  10194.  
  10195.  TO DUMP WHEN STATS GET TOO LOW
  10196.  
  10197.  
  10198.  
  10199. */
  10200.  
  10201.  
  10202.  
  10203. float  DAYS;
  10204.  
  10205. short  Hunger, Happy, Health, Sex;
  10206.  
  10207. long   STATS[8], Time;
  10208.  
  10209. float  Total;
  10210.  
  10211.  
  10212.  
  10213. if (first)
  10214.  
  10215. {
  10216.  
  10217.   DAYS=timSince;
  10218.  
  10219.   DAYS=DAYS/60;
  10220.  
  10221.   DAYS=DAYS/24;
  10222.  
  10223.   Hunger=table (DAYS) {0, -10, -20, -40, -60, -90, -115, -150, 
  10224.  
  10225.       -200, -250, -300};
  10226.  
  10227.   if (DAYS>10)
  10228.  
  10229.     Hunger=-1000;
  10230.  
  10231.   Happy=table (DAYS) {0, -10, -20, -40, -60, -90, -115, -150, 
  10232.  
  10233.     -200, -250, -300};
  10234.  
  10235.   if (DAYS>10)
  10236.  
  10237.     Happy=-1000;
  10238.  
  10239.   counter (51)=Happy;
  10240.  
  10241.   counter (53)=Hunger;
  10242.  
  10243.   Time=vrtime;
  10244.  
  10245.   if (DAYS>3)
  10246.  
  10247.     counter (26)=181;
  10248.  
  10249. }
  10250.  
  10251. if (vrtime>Time+120000 || first)
  10252.  
  10253. {
  10254.  
  10255.   Health=0;
  10256.  
  10257.   Happy=0;
  10258.  
  10259.   Sex=0;
  10260.  
  10261.   Hunger=-2;
  10262.  
  10263.   statsGet (&STATS);
  10264.  
  10265.   if (STATS[4]<60)
  10266.  
  10267.   {
  10268.  
  10269.     Happy=-3;
  10270.  
  10271.     Health=-3;
  10272.  
  10273.   }
  10274.  
  10275.   if (STATS[0]<60)
  10276.  
  10277.   {
  10278.  
  10279.     Happy=-3;
  10280.  
  10281.     Sex=-1;
  10282.  
  10283.   }
  10284.  
  10285.   if (STATS[1]<60)
  10286.  
  10287.     Sex=-3;
  10288.  
  10289.   STATS[0]=Health;
  10290.  
  10291.   STATS[1]=Happy;
  10292.  
  10293.   STATS[2]=Sex;
  10294.  
  10295.   STATS[3]=0;
  10296.  
  10297.   STATS[4]=Hunger;
  10298.  
  10299.   STATS[5]=0;
  10300.  
  10301.   STATS[6]=0;
  10302.  
  10303.   STATS[7]=0;
  10304.  
  10305.   statsExp (&STATS);
  10306.  
  10307.   statsGet (&STATS);
  10308.  
  10309.   Total=STATS[0]+STATS[1]+STATS[2]+STATS[4];
  10310.  
  10311.   Total=Total/4;
  10312.  
  10313.   Time=vrtime;
  10314.  
  10315. }
  10316.  
  10317. if (Total<200)
  10318.  
  10319. {
  10320.  
  10321.   share (1)=-1;
  10322.  
  10323.   dumpHim (0);
  10324.  
  10325.   exitVis;
  10326.  
  10327. }
  10328. end
  10329. End_Chunk
  10330. Chunk: Colours
  10331.  Number: 6
  10332.  0x13 0x12 0x13 0x0B 0x13 0x13
  10333. End_Chunk
  10334. ;
  10335. ;-------Object  108-------------------------------------------------------
  10336. ; 
  10337. Chunk: Standard
  10338.  Name:     "remarks"
  10339.  Number:   108
  10340.  Size:     3000 3000 3000
  10341.  Position: 2069257 0 2025864
  10342.  Type:     65535
  10343.  Layer:    0
  10344. End_Chunk
  10345. Chunk: SCL
  10346. long   STATS[8], PARAM[4];
  10347.  
  10348. short  MOOD, RANDOM, TEMP, LOWEST, RND, EXISTS, COOK, CTIMER, 
  10349.  
  10350.     MSLD, TCOOKED;
  10351.  
  10352. long   VALUE, TIMER, DAY, MONTH, CHOUR, CMONTH, CDAY, CMINS;
  10353.  
  10354. char   NAME[35], INLOOP[4];
  10355.  
  10356. objnum OBJECT;
  10357.  
  10358.  
  10359.  
  10360. resume (0, 2);
  10361.  
  10362.  
  10363.  
  10364. /*CODE FOR AMBIENT REMARKS*/
  10365.  
  10366.  
  10367.  
  10368. if (first)
  10369.  
  10370.   ranseed (vrtime);
  10371.  
  10372. resume (0, 2);
  10373.  
  10374. if (vis? (#109))
  10375.  
  10376. {
  10377.  
  10378.   RND=random (800);
  10379.  
  10380.   EXISTS=0;
  10381.  
  10382.   VALUE=0;
  10383.  
  10384.   RND=random (1500);
  10385.  
  10386.   if (RND==4 || first)
  10387.  
  10388.   {
  10389.  
  10390.     if (regGetN ("Cooking", &VALUE))
  10391.  
  10392.       VALUE=0;
  10393.  
  10394.     if (VALUE)
  10395.  
  10396.     {
  10397.  
  10398.  
  10399.  
  10400.   /*
  10401.  
  10402.  
  10403.  
  10404.   CHECK HOW LONG ITEM HAS BEEN COOKING
  10405.  
  10406.  
  10407.  
  10408.   */
  10409.  
  10410.  
  10411.  
  10412.       regGetN ("CookerTimer", &TIMER);
  10413.  
  10414.       regGetN ("CookDay", &DAY);
  10415.  
  10416.       regGetN ("CookMonth", &MONTH);
  10417.  
  10418.       regGetN ("Cooker", &VALUE);
  10419.  
  10420.       COOK=VALUE;
  10421.  
  10422.       paramGet (COOK, &PARAM);
  10423.  
  10424.       timeCurr (&CHOUR, &CMINS);
  10425.  
  10426.       dateCurr (&CMONTH, &CDAY);
  10427.  
  10428.       CTIMER=CHOUR*60;
  10429.  
  10430.       CTIMER=CTIMER+CMINS;
  10431.  
  10432.       if (CDAY>DAY+1 || CMONTH!=MONTH)
  10433.  
  10434.       {
  10435.  
  10436.  
  10437.  
  10438.      /* HOUSE HAS BURNT */
  10439.  
  10440.  
  10441.  
  10442.         share (1)=-1;
  10443.  
  10444.         dumpHim (1);
  10445.  
  10446.         exitVis;
  10447.  
  10448.       }
  10449.  
  10450.       else
  10451.  
  10452.       {
  10453.  
  10454.         if (CDAY==DAY+1)
  10455.  
  10456.         {
  10457.  
  10458.           MSLD=1440-TIMER;
  10459.  
  10460.           TCOOKED=MSLD+CTIMER;
  10461.  
  10462.         }
  10463.  
  10464.         if (CDAY==DAY)
  10465.  
  10466.           TCOOKED=CTIMER-TIMER;
  10467.  
  10468.         if (TCOOKED<0)
  10469.  
  10470.           TCOOKED=-TCOOKED;
  10471.  
  10472.         if (TCOOKED>=PARAM[0] && TCOOKED<PARAM[0]+10)
  10473.  
  10474.           counter (26)=38;
  10475.  
  10476.         if (TCOOKED>=PARAM[0]+10 && TCOOKED<PARAM[0]+30)
  10477.  
  10478.           counter (26)=table (random (3)) {3, 106, 107};
  10479.  
  10480.         if (TCOOKED>=PARAM[0]+30 && TCOOKED<PARAM[0]+60)
  10481.  
  10482.           counter (26)=table (random (4)) {39, 108, 109};
  10483.  
  10484.  
  10485.  
  10486.         /*vis ('smoke');*/
  10487.  
  10488.  
  10489.  
  10490.         if (TCOOKED>=PARAM[0]+60)
  10491.  
  10492.         { /*BURN HOUSE*/
  10493.  
  10494.  
  10495.  
  10496.           share (1)=-1;
  10497.  
  10498.           dumpHim (1);
  10499.  
  10500.           exitVis;
  10501.  
  10502.         }
  10503.  
  10504.       }
  10505.  
  10506.  
  10507.  
  10508. /*AMBIENT REMARKS*/
  10509.  
  10510.  
  10511.  
  10512.     }
  10513.  
  10514.   }
  10515.  
  10516.   RANDOM=random (600);
  10517.  
  10518.   if (RANDOM==100 || first)
  10519.  
  10520.   {
  10521.  
  10522.     statsGet (&STATS);
  10523.  
  10524.     repeat (5)
  10525.  
  10526.     {
  10527.  
  10528.       TEMP=5+-inloop;
  10529.  
  10530.       repeat (5)
  10531.  
  10532.       {
  10533.  
  10534.         if (STATS[TEMP]<STATS[inloop-1] && 
  10535.  
  10536.             STATS[TEMP]<STATS[LOWEST])
  10537.  
  10538.           LOWEST=TEMP;
  10539.  
  10540.       }
  10541.  
  10542.     }
  10543.  
  10544.     MOOD=STATS[LOWEST]/100;
  10545.  
  10546.     MOOD=table (MOOD) {0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4};
  10547.  
  10548.     switch (MOOD);
  10549.  
  10550.     case 0: 
  10551.  
  10552.       counter (26)=table (random (2)) {121, 149};
  10553.  
  10554.     case 1: 
  10555.  
  10556.       counter (26)=table (random (2)) {71, 90};
  10557.  
  10558.     case 2: 
  10559.  
  10560.       counter (26)=table (random (3)) {182, 36, 88};
  10561.  
  10562.     case 3: 
  10563.  
  10564.       counter (26)=table (random (2)) {16, 53, 159, 100};
  10565.  
  10566.     case 4: 
  10567.  
  10568.       counter (26)=table (random (2)) {1, 20, 68, 100, 159};
  10569.  
  10570.     if (MOOD<3)
  10571.  
  10572.       invis (#109);
  10573.  
  10574.   }
  10575.  
  10576.   if (#110.ROT)
  10577.  
  10578.     counter (20)=-1;
  10579.  
  10580. }
  10581. end
  10582. End_Chunk
  10583. Chunk: Colours
  10584.  Number: 6
  10585.  0x3D 0x13 0x3D 0x32 0x11 0x11
  10586. End_Chunk
  10587. ;
  10588. ;-------Object  107-------------------------------------------------------
  10589. ; 
  10590. Chunk: Standard
  10591.  Name:     "loadImage"
  10592.  Number:   107
  10593.  Size:     3000 3000 3000
  10594.  Position: 2066257 0 2025864
  10595.  Type:     65535
  10596.  Layer:    0
  10597. End_Chunk
  10598. Chunk: Colours
  10599.  Number: 6
  10600.  0x3D 0x13 0x3D 0x33 0x11 0x11
  10601. End_Chunk
  10602. Chunk: SCL
  10603. char   NAME[10], PATH[256], DIR[256], DRIVE[3];
  10604.  
  10605. long   WIDTH, HEIGHT, newPOS, oldWIDTH, STATS[8];
  10606.  
  10607. short  Scale=20, imgNum=35, LOWEST, MOODS=1, TEMP, ROT;
  10608.  
  10609.  
  10610.  
  10611. resume (2, 2);
  10612.  
  10613. if (first)
  10614.  
  10615. {
  10616.  
  10617.   cdDrive (&DRIVE);
  10618.  
  10619.   strcpy (&DIR, &DRIVE);
  10620.  
  10621.   strcat (&DIR, "\\LoveBytes\\");
  10622.  
  10623.   counter (20)=-1;
  10624.  
  10625.   counter (25)=-1;
  10626.  
  10627. }
  10628.  
  10629. if (vis? (#109))
  10630.  
  10631. {
  10632.  
  10633.   if (counter (20)>-1)
  10634.  
  10635.   {
  10636.  
  10637.     strcpy (&PATH, &DIR);
  10638.  
  10639.     strcat (&PATH, "images\\");
  10640.  
  10641.     ROT=#110.ROT;
  10642.  
  10643.     if (ROT>0)
  10644.  
  10645.     {
  10646.  
  10647.       ltoa (&NAME, ROT);
  10648.  
  10649.       strcat (&PATH, &NAME);
  10650.  
  10651.       strcat (&PATH, "\\");
  10652.  
  10653.     }
  10654.  
  10655.     ltoa (&NAME, counter (20));
  10656.  
  10657.     strcat (&PATH, &NAME);
  10658.  
  10659.     strcat (&PATH, ".gif");
  10660.  
  10661.     imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);
  10662.  
  10663.     newPOS=zpos (#110);
  10664.  
  10665.     oldWIDTH=zsize (#110)/2;
  10666.  
  10667.     zsize (#110)=WIDTH*Scale;
  10668.  
  10669.     ysize (#110)=HEIGHT*Scale;
  10670.  
  10671.     write (&zcent (#110))=zsize (#110)/2;
  10672.  
  10673.     newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;
  10674.  
  10675.     zpos (#110)=newPOS;
  10676.  
  10677.     counter (20)=-1;
  10678.  
  10679.     if (ROT==0)
  10680.  
  10681.       MOODS=1;
  10682.  
  10683.     ROT=0;
  10684.  
  10685.   }
  10686.  
  10687.   if (counter (25)>-1)
  10688.  
  10689.   {
  10690.  
  10691.     strcpy (&PATH, &DIR);
  10692.  
  10693.     strcat (&PATH, "sounds\\");
  10694.  
  10695.     ltoa (&NAME, counter (25));
  10696.  
  10697.     strcat (&PATH, &NAME);
  10698.  
  10699.     strcat (&PATH, ".wav");
  10700.  
  10701.     playWAV (&PATH);
  10702.  
  10703.     counter (25)=-1;
  10704.  
  10705.   }
  10706.  
  10707.   if (counter (26)>-1)
  10708.  
  10709.   {
  10710.  
  10711.     strcpy (&PATH, &DIR);
  10712.  
  10713.     strcat (&PATH, "sounds\\");
  10714.  
  10715.     ltoa (&NAME, counter (26));
  10716.  
  10717.     strcat (&PATH, &NAME);
  10718.  
  10719.     strcat (&PATH, ".wav");
  10720.  
  10721.     while (sndState)
  10722.  
  10723.       waitf;
  10724.  
  10725.     playWAV (&PATH);
  10726.  
  10727.     counter (26)=-1;
  10728.  
  10729.   }
  10730.  
  10731.   if (MOODS)
  10732.  
  10733.   {
  10734.  
  10735.     if (!first)
  10736.  
  10737.       waitfs (50);
  10738.  
  10739.     statsGet (&STATS);
  10740.  
  10741.     repeat (5)
  10742.  
  10743.     {
  10744.  
  10745.       TEMP=5+-inloop;
  10746.  
  10747.       repeat (5)
  10748.  
  10749.       {
  10750.  
  10751.         if (STATS[TEMP]<STATS[inloop-1] && 
  10752.  
  10753.             STATS[TEMP]<STATS[LOWEST])
  10754.  
  10755.           LOWEST=TEMP;
  10756.  
  10757.       }
  10758.  
  10759.     }
  10760.  
  10761.     if (STATS[LOWEST]<111)
  10762.  
  10763.       counter (20)=132;
  10764.  
  10765.     if (STATS[LOWEST]>=111 && STATS[LOWEST]<222)
  10766.  
  10767.       counter (20)=9;
  10768.  
  10769.     if (STATS[LOWEST]>=222 && STATS[LOWEST]<333)
  10770.  
  10771.       counter (20)=105;
  10772.  
  10773.     if (STATS[LOWEST]>=333 && STATS[LOWEST]<444)
  10774.  
  10775.       counter (20)=164;
  10776.  
  10777.     if (STATS[LOWEST]>=444 && STATS[LOWEST]<555)
  10778.  
  10779.       counter (20)=169;
  10780.  
  10781.     if (STATS[LOWEST]>=555 && STATS[LOWEST]<666)
  10782.  
  10783.       counter (20)=145;
  10784.  
  10785.     if (STATS[LOWEST]>=666 && STATS[LOWEST]<777)
  10786.  
  10787.       counter (20)=148;
  10788.  
  10789.     if (STATS[LOWEST]>=777 && STATS[LOWEST]<888)
  10790.  
  10791.       counter (20)=143;
  10792.  
  10793.     if (STATS[LOWEST]>=888)
  10794.  
  10795.       counter (20)=144;
  10796.  
  10797.     strcpy (&PATH, &DIR);
  10798.  
  10799.     strcat (&PATH, "images\\");
  10800.  
  10801.     ltoa (&NAME, counter (20));
  10802.  
  10803.     strcat (&PATH, &NAME);
  10804.  
  10805.     strcat (&PATH, ".gif");
  10806.  
  10807.     imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);
  10808.  
  10809.     newPOS=zpos (#110);
  10810.  
  10811.     oldWIDTH=zsize (#110)/2;
  10812.  
  10813.     zsize (#110)=WIDTH*Scale;
  10814.  
  10815.     ysize (#110)=HEIGHT*Scale;
  10816.  
  10817.     write (&zcent (#110))=zsize (#110)/2;
  10818.  
  10819.     newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;
  10820.  
  10821.     zpos (#110)=newPOS;
  10822.  
  10823.     counter (20)=-1;
  10824.  
  10825.     MOODS=0;
  10826.  
  10827.   }
  10828.  
  10829. }
  10830. end
  10831. End_Chunk
  10832. ;
  10833. ;-------Object  105-------------------------------------------------------
  10834. ; 
  10835. Chunk: Standard
  10836.  Name:     "clickJo"
  10837.  Number:   105
  10838.  Size:     3000 3000 3000
  10839.  Position: 2060257 0 2025864
  10840.  Type:     65535
  10841.  Layer:    0
  10842. End_Chunk
  10843. Chunk: SCL
  10844. long   STATS[8];
  10845.  
  10846. short  LOWEST, MOOD, TEMP;
  10847.  
  10848. float  Total;
  10849.  
  10850.  
  10851.  
  10852.  
  10853.  
  10854.  
  10855.  
  10856. /*CODE FOR CLICKING ON JO*/
  10857.  
  10858.  
  10859.  
  10860. resume (2, 2);
  10861.  
  10862. if (activate (#110, 0))
  10863.  
  10864. {
  10865.  
  10866.   if (share (1)>=0)
  10867.  
  10868.   {
  10869.  
  10870.     #110.ROT=0;
  10871.  
  10872.     #110.ONCE=1;
  10873.  
  10874.  
  10875.  
  10876. /*GET HER MOOD*/
  10877.  
  10878.  
  10879.  
  10880.   }
  10881.  
  10882.   statsGet (&STATS);
  10883.  
  10884.   repeat (5)
  10885.  
  10886.   {
  10887.  
  10888.     TEMP=5+-inloop;
  10889.  
  10890.     repeat (5)
  10891.  
  10892.     {
  10893.  
  10894.       if (STATS[TEMP]<STATS[inloop-1] && 
  10895.  
  10896.           STATS[TEMP]<STATS[LOWEST])
  10897.  
  10898.         LOWEST=TEMP;
  10899.  
  10900.     }
  10901.  
  10902.   }
  10903.  
  10904.   MOOD=STATS[LOWEST]/100;
  10905.  
  10906.   MOOD=table (MOOD) {0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4};
  10907.  
  10908.   if (share (1)<0)
  10909.  
  10910.   {
  10911.  
  10912.  
  10913.  
  10914.  /* SOUND RESPONSES FOR TOUCHING UP DEPENDING ON MOOD */
  10915.  
  10916.  
  10917.  
  10918.     switch (MOOD);
  10919.  
  10920.     case 0: 
  10921.  
  10922.       counter (25)=table (random (6)) {176, 11, 29, 82, 89, 90};
  10923.  
  10924.     case 1: 
  10925.  
  10926.       counter (25)=table (random (5)) {175, 178, 41, 28, 72, 
  10927.  
  10928.           12};
  10929.  
  10930.     case 2: 
  10931.  
  10932.       counter (25)=table (random (2)) {15, 9};
  10933.  
  10934.     case 3: 
  10935.  
  10936.       counter (25)=table (random (4)) {171, 179, 94, 174};
  10937.  
  10938.     case 4: 
  10939.  
  10940.       counter (25)=table (random (3)) {172, 173, 174};
  10941.  
  10942.     counter (50)=-2;
  10943.  
  10944.     counter (51)=-2;
  10945.  
  10946.     counter (52)=-2;
  10947.  
  10948.     counter (53)=-2;
  10949.  
  10950.   }
  10951.  
  10952.   else
  10953.  
  10954.     counter (40)=MOOD;
  10955.  
  10956.   statsGet (&STATS);
  10957.  
  10958.   Total=STATS[0]+STATS[1]+STATS[2]+STATS[4];
  10959.  
  10960.   Total=Total/4;
  10961.  
  10962.   if (Total<30)
  10963.  
  10964.   {
  10965.  
  10966.     share (1)=-1;
  10967.  
  10968.     dumpHim (0);
  10969.  
  10970.     exitVis;
  10971.  
  10972.   }
  10973.  
  10974.   while (mouseb)
  10975.  
  10976.     waitf;
  10977.  
  10978.   clrtrig (me, 0);
  10979.  
  10980.   clrtrig (#110, 0);
  10981.  
  10982. }
  10983. end
  10984. End_Chunk
  10985. Chunk: Colours
  10986.  Number: 6
  10987.  0x13 0x34 0x13 0x35 0x13 0x13
  10988. End_Chunk
  10989. ;
  10990. ;-------Object  103-------------------------------------------------------
  10991. ; 
  10992. Chunk: Standard
  10993.  Name:     "updateAmbient"
  10994.  Number:   103
  10995.  Size:     3000 3000 3000
  10996.  Position: 2054257 0 2025864
  10997.  Type:     65535
  10998.  Layer:    0
  10999. End_Chunk
  11000. Chunk: SCL
  11001. long   oldVALUE, stats[8], CURRENT, TEMP, TEMP2;
  11002.  
  11003. float  newVALUE, TOTAL;
  11004.  
  11005. char   REG[256], VALUE[5];
  11006.  
  11007.  
  11008.  
  11009. if (counter (30) || first || activate (me, 0))
  11010.  
  11011. {
  11012.  
  11013.   CURRENT=0;
  11014.  
  11015.   regGetN ("AmbientTotal", &TEMP);
  11016.  
  11017.   TOTAL=TEMP;
  11018.  
  11019.   if (regGetN ("rat", &TEMP))
  11020.  
  11021.     TEMP=0;
  11022.  
  11023.   CURRENT+=TEMP*5;
  11024.  
  11025.   if (regGetN ("tony", &TEMP))
  11026.  
  11027.     TEMP=0;
  11028.  
  11029.   CURRENT+=TEMP*5;
  11030.  
  11031.   if (regGetN ("alex", &TEMP))
  11032.  
  11033.     TEMP=0;
  11034.  
  11035.   CURRENT+=TEMP*5;
  11036.  
  11037.   regGetN ("fish", &TEMP);
  11038.  
  11039.   if (TEMP==0)
  11040.  
  11041.     CURRENT+=5;
  11042.  
  11043.   regGetN ("dog", &TEMP);
  11044.  
  11045.   if (TEMP==0)
  11046.  
  11047.     CURRENT+=5;
  11048.  
  11049.   repeat (20)
  11050.  
  11051.   {
  11052.  
  11053.     strcpy (®, "rubbish");
  11054.  
  11055.     ltoa (&VALUE, inloop);
  11056.  
  11057.     strcat (®, &VALUE);
  11058.  
  11059.     if (regGetN (®, &TEMP))
  11060.  
  11061.       TEMP=0;
  11062.  
  11063.     CURRENT+=TEMP;
  11064.  
  11065.   }
  11066.  
  11067.   repeat (18)
  11068.  
  11069.   {
  11070.  
  11071.     strcpy (®, "ClothesItemStatus");
  11072.  
  11073.     ltoa (&VALUE, inloop);
  11074.  
  11075.     strcat (®, &VALUE);
  11076.  
  11077.     if (regGetN (®, &TEMP2))
  11078.  
  11079.       TEMP2=0;
  11080.  
  11081.     if (TEMP2==2)
  11082.  
  11083.       TEMP=1;
  11084.  
  11085.     else
  11086.  
  11087.       TEMP=0;
  11088.  
  11089.     CURRENT+=TEMP;
  11090.  
  11091.   }
  11092.  
  11093.   repeat (10)
  11094.  
  11095.   {
  11096.  
  11097.     strcpy (®, "Dishes");
  11098.  
  11099.     ltoa (&VALUE, inloop);
  11100.  
  11101.     strcat (®, &VALUE);
  11102.  
  11103.     if (regGetN (®, &TEMP))
  11104.  
  11105.       TEMP=0;
  11106.  
  11107.     CURRENT+=TEMP;
  11108.  
  11109.   }
  11110.  
  11111.   repeat (21)
  11112.  
  11113.   {
  11114.  
  11115.     strcpy (®, "weed");
  11116.  
  11117.     ltoa (&VALUE, inloop);
  11118.  
  11119.     strcat (®, &VALUE);
  11120.  
  11121.     if (regGetN (®, &TEMP))
  11122.  
  11123.       TEMP=0;
  11124.  
  11125.     CURRENT+=TEMP;
  11126.  
  11127.   }
  11128.  
  11129.   repeat (12)
  11130.  
  11131.   {
  11132.  
  11133.     strcpy (®, "grass");
  11134.  
  11135.     ltoa (&VALUE, inloop);
  11136.  
  11137.     strcat (®, &VALUE);
  11138.  
  11139.     if (regGetN (®, &TEMP))
  11140.  
  11141.       TEMP=0;
  11142.  
  11143.     CURRENT+=TEMP;
  11144.  
  11145.   }
  11146.  
  11147.   repeat (5)
  11148.  
  11149.   {
  11150.  
  11151.     strcpy (®, "water");
  11152.  
  11153.     ltoa (&VALUE, inloop);
  11154.  
  11155.     strcat (®, &VALUE);
  11156.  
  11157.     if (regGetN (®, &TEMP))
  11158.  
  11159.       TEMP=0;
  11160.  
  11161.     CURRENT+=TEMP;
  11162.  
  11163.   }
  11164.  
  11165.   repeat (25)
  11166.  
  11167.   {
  11168.  
  11169.     strcpy (®, "flower");
  11170.  
  11171.     ltoa (&VALUE, inloop);
  11172.  
  11173.     strcat (®, &VALUE);
  11174.  
  11175.     if (regGetN (®, &TEMP2))
  11176.  
  11177.       TEMP=0;
  11178.  
  11179.     if (!TEMP2)
  11180.  
  11181.       CURRENT+=1;
  11182.  
  11183.   }
  11184.  
  11185.  
  11186.  
  11187. /*
  11188.  
  11189.  
  11190.  
  11191.   IF CURRENT IS >TOTAL THEN AMBIENT = 0
  11192.  
  11193.  
  11194.  
  11195.   IF CURRENT IS 0 THEN AMBIENT = 1000
  11196.  
  11197.  
  11198.  
  11199. *//*DO CALCULATION*/
  11200.  
  11201.  
  11202.  
  11203.  
  11204.  
  11205.  
  11206.  
  11207.  
  11208.  
  11209.  
  11210.  
  11211.  
  11212.  
  11213.  
  11214.  
  11215.   CURRENT=TOTAL-CURRENT;
  11216.  
  11217.   if (CURRENT<0)
  11218.  
  11219.     CURRENT=0;
  11220.  
  11221.   newVALUE=CURRENT/TOTAL;
  11222.  
  11223.   newVALUE=newVALUE*1000;
  11224.  
  11225.   if (newVALUE>1000)
  11226.  
  11227.     newVALUE=1000;
  11228.  
  11229.  
  11230.  
  11231.   /*GET AMBIENT VALUE*/
  11232.  
  11233.  
  11234.  
  11235.   statsGet (&stats);
  11236.  
  11237.   oldVALUE=stats[3];
  11238.  
  11239.  
  11240.  
  11241.   /*FIND DIFFERENCE*/
  11242.  
  11243.  
  11244.  
  11245.   newVALUE=newVALUE-oldVALUE;
  11246.  
  11247.  
  11248.  
  11249.   /*WRITE NEW VALUE*/
  11250.  
  11251.  
  11252.  
  11253.   stats[0]=0;
  11254.  
  11255.   stats[1]=0;
  11256.  
  11257.   stats[2]=0;
  11258.  
  11259.   stats[3]=newVALUE;
  11260.  
  11261.   stats[4]=0;
  11262.  
  11263.   stats[5]=0;
  11264.  
  11265.   stats[6]=0;
  11266.  
  11267.   stats[7]=0;
  11268.  
  11269.   statsExp (&stats);
  11270.  
  11271.   counter (30)=0;
  11272.  
  11273. }
  11274. end
  11275. End_Chunk
  11276. Chunk: Colours
  11277.  Number: 6
  11278.  0x13 0x12 0x13 0x37 0x13 0x13
  11279. End_Chunk
  11280. ;
  11281. ;-------Object  102-------------------------------------------------------
  11282. ; 
  11283. Chunk: Standard
  11284.  Name:     "Items"
  11285.  Number:   102
  11286.  Size:     3000 3000 3000
  11287.  Position: 2051257 0 2025864
  11288.  Type:     65535
  11289.  Layer:    0
  11290. End_Chunk
  11291. Chunk: SCL
  11292. short  TEMP=-1, imgNum=36, imgNum2=40, TEMP2;
  11293.  
  11294. long   WIDTH, HEIGHT, COOKEDV;
  11295.  
  11296. char   NAME[10], PATH[256], DIR[256], SHARE[5];
  11297.  
  11298.  
  11299.  
  11300. if (first)
  11301.  
  11302.   strcpy (&DIR, "c:\\LoveBytes\\images\\");
  11303.  
  11304. if (activate (me, 0))
  11305.  
  11306.   share (1)=-1;
  11307.  
  11308. if (TEMP!=share (1))
  11309.  
  11310. {
  11311.  
  11312.   if (share (1)>=0)
  11313.  
  11314.   {
  11315.  
  11316.     ltoa (&SHARE, share (1));
  11317.  
  11318.     strcpy (&PATH, &DIR);
  11319.  
  11320.     strcat (&PATH, &SHARE);
  11321.  
  11322.     if (objAttrP (share (1), "C") && share (5)>0)
  11323.  
  11324.     {
  11325.  
  11326.       regGetN ("CookedValue", &COOKEDV);
  11327.  
  11328.       if (COOKEDV==2)
  11329.  
  11330.         strcat (&PATH, "r");
  11331.  
  11332.       if (COOKEDV>2)
  11333.  
  11334.         strcat (&PATH, "b");
  11335.  
  11336.     }
  11337.  
  11338.     strcat (&PATH, ".bmp");
  11339.  
  11340.     imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);
  11341.  
  11342.     #101.SELECTED=imgNum;
  11343.  
  11344.   }
  11345.  
  11346.   else
  11347.  
  11348.     #101.SELECTED=imgNum2;
  11349.  
  11350.   strcpy (&PATH, &DIR);
  11351.  
  11352. }
  11353.  
  11354. TEMP=share (1);
  11355.  
  11356.  
  11357. end
  11358. End_Chunk
  11359. Chunk: Colours
  11360.  Number: 6
  11361.  0x13 0x12 0x13 0x38 0x13 0x13
  11362. End_Chunk
  11363. ;
  11364. ;-------Object  101-------------------------------------------------------
  11365. ; 
  11366. Chunk: Standard
  11367.  Name:     "Icons"
  11368.  Number:   101
  11369.  Size:     3000 3000 3000
  11370.  Position: 2048257 0 2025864
  11371.  Type:     65535
  11372.  Layer:    0
  11373. End_Chunk
  11374. Chunk: Colours
  11375.  Number: 6
  11376.  0x13 0x30 0x13 0x39 0x13 0x13
  11377. End_Chunk
  11378. Chunk: SCL
  11379. short  SELECTED=40;
  11380.  
  11381.  
  11382.  
  11383. instr (1)=41;
  11384.  
  11385. instr (2)=43;
  11386.  
  11387. instr (3)=45;
  11388.  
  11389. instr (4)=SELECTED;
  11390.  
  11391. switch (marker (2));
  11392.  
  11393. case 1: 
  11394.  
  11395.   instr (1)=42;
  11396.  
  11397. case 2: 
  11398.  
  11399.   instr (2)=44;
  11400.  
  11401. case 3: 
  11402.  
  11403.   instr (3)=46;
  11404.  
  11405. switch (marker (1));
  11406.  
  11407. case 1: 
  11408.  
  11409.   dlgStats;
  11410.  
  11411. case 2: 
  11412.  
  11413.   dlgShop;
  11414.  
  11415. case 3: 
  11416.  
  11417.   dlgUse;
  11418.  
  11419. marker (1)=0;
  11420.  
  11421. marker (2)=0;
  11422.  
  11423. repeat (4)
  11424.  
  11425.   update (inloop);
  11426.  
  11427.  
  11428. end
  11429. End_Chunk
  11430. ;
  11431. ;-------Object  112-------------------------------------------------------
  11432. ; 
  11433. Chunk: Standard
  11434.  Name:     "9"
  11435.  Number:   112
  11436.  Size:     1000 1000 1000
  11437.  Position: 2019679 1000 1880800
  11438.  Type:     65535
  11439.  Layer:    0
  11440.  DFlags:   E
  11441. End_Chunk
  11442. Chunk: SCL
  11443. long   nearMe;
  11444.  
  11445. objnum Choose;
  11446.  
  11447. short  theObj;
  11448.  
  11449.  
  11450.  
  11451. resume (2, 0);
  11452.  
  11453. if (#111.Follow==me)
  11454.  
  11455. {
  11456.  
  11457.   nearMe=mdist (me, #109);
  11458.  
  11459.   if (nearMe<14000)
  11460.  
  11461.   {
  11462.  
  11463.     #111.Go=0;
  11464.  
  11465.     waitfs (#111.Delay);
  11466.  
  11467.     theObj=table (random (2)) {#135, #138};
  11468.  
  11469.     Choose=object (theObj);
  11470.  
  11471.     #111.Follow=Choose;
  11472.  
  11473.     #111.Go=1;
  11474.  
  11475.   }
  11476.  
  11477. }
  11478. end
  11479. End_Chunk
  11480. ;
  11481. ;-------Object  115-------------------------------------------------------
  11482. ; 
  11483. Chunk: Standard
  11484.  Name:     "floor[115]"
  11485.  Number:   115
  11486.  Size:     27456 15000 200
  11487.  Position: 2004910 1000 1848600
  11488.  Type:     2
  11489.  Layer:    0
  11490. End_Chunk
  11491. Chunk: TexCoords
  11492.  Number: 1
  11493.  Mode:   0
  11494.  SubChunk
  11495.   Facet:     1
  11496.   ImageRef:  1
  11497.   PixScale:  0
  11498.   NumCoords: 4
  11499.     0.00000 0.00000
  11500.     0.00000 1.00000
  11501.     1.00000 1.00000
  11502.     1.00000 0.00000
  11503. End_Chunk
  11504. Chunk: SCL
  11505. if (activate (me, 0))
  11506.  
  11507. {
  11508.  
  11509.   share (70)=0;
  11510.  
  11511.   share (69)=0;
  11512.  
  11513.  
  11514.  
  11515.  
  11516.  
  11517.  
  11518.  
  11519.  
  11520.  
  11521.  
  11522.  
  11523.  
  11524.  
  11525.  
  11526.  
  11527.  
  11528.  
  11529.  
  11530.  
  11531.  
  11532.  
  11533.  
  11534.  
  11535.  
  11536.  
  11537.  
  11538.  
  11539.  
  11540.  
  11541.  
  11542.  
  11543.  
  11544.  
  11545.  
  11546.  
  11547.  
  11548.  
  11549.  
  11550.  
  11551.  
  11552.  
  11553.  
  11554.  
  11555.  
  11556.  
  11557.  
  11558.  
  11559.  
  11560.  
  11561.  
  11562.  
  11563.  
  11564.  
  11565.  
  11566.  
  11567.  
  11568.  
  11569.  
  11570.  
  11571.  
  11572.  
  11573.  
  11574.  
  11575.  
  11576.  
  11577.  
  11578.  
  11579.  
  11580.  
  11581.  
  11582.  
  11583.  
  11584.  
  11585.  
  11586.  
  11587.  
  11588.  
  11589.  
  11590.  
  11591.  
  11592.  
  11593.  
  11594.  
  11595.  
  11596.  
  11597.  
  11598.  
  11599.  
  11600.  
  11601.  
  11602.  
  11603.  
  11604.  
  11605.  
  11606.  
  11607.  
  11608.  
  11609.  
  11610.  
  11611.  
  11612.  
  11613.  
  11614.  
  11615.  
  11616.  
  11617.  
  11618.  
  11619.  
  11620.  
  11621.  
  11622.  
  11623.  
  11624.  
  11625.  
  11626.  
  11627.  
  11628.  
  11629.  
  11630.  
  11631.  
  11632.  
  11633.  
  11634.  
  11635.  
  11636.  
  11637.  
  11638.  
  11639.  
  11640.  
  11641.  
  11642.  
  11643.  
  11644.  
  11645.  
  11646.  
  11647.  
  11648.  
  11649.  
  11650.  
  11651.  
  11652.  
  11653.  
  11654.  
  11655.  
  11656.  
  11657.  
  11658.  
  11659.  
  11660.  
  11661.  
  11662.  
  11663.  
  11664.  
  11665.  
  11666.  
  11667.  
  11668.  
  11669.  
  11670.  
  11671.  
  11672.  
  11673.  
  11674.  
  11675.  
  11676.  
  11677.  
  11678.  
  11679.  
  11680.  
  11681.  
  11682.  
  11683.  
  11684.  
  11685.  
  11686.  
  11687.  
  11688.  
  11689.  
  11690.  
  11691.  
  11692.  
  11693.  
  11694.  
  11695.  
  11696.  
  11697.  
  11698.  
  11699.  
  11700.  
  11701.  
  11702.  
  11703.  
  11704.  
  11705.  
  11706.  
  11707.  
  11708.  
  11709.  
  11710.  
  11711.  
  11712.  
  11713.  
  11714.  
  11715.  
  11716.  
  11717.  
  11718.  
  11719.  
  11720.  
  11721.  
  11722.  
  11723.  
  11724.  
  11725.  
  11726.  
  11727.  
  11728.  
  11729.  
  11730.  
  11731.  
  11732.  
  11733.  
  11734.  
  11735.  
  11736.  
  11737.  
  11738.  
  11739.  
  11740.  
  11741.  
  11742.  
  11743.  
  11744.  
  11745.  
  11746.  
  11747.  
  11748.  
  11749.  
  11750.  
  11751.  
  11752.  
  11753.  
  11754.  
  11755.  
  11756.  
  11757.  
  11758.  
  11759.  
  11760.  
  11761.  
  11762.  
  11763.  
  11764.  
  11765.  
  11766.  
  11767.  
  11768.  
  11769.  
  11770.  
  11771.  
  11772.  
  11773.  
  11774.  
  11775.  
  11776.  
  11777.  
  11778.  
  11779.  
  11780.  
  11781.  
  11782.  
  11783.  
  11784.  
  11785.  
  11786.  
  11787.  
  11788.  
  11789.  
  11790.  
  11791.  
  11792.  
  11793.  
  11794.  
  11795.  
  11796.  
  11797.  
  11798.  
  11799.  
  11800.  
  11801.  
  11802.  
  11803.  
  11804.  
  11805.  
  11806.  
  11807.  
  11808.  
  11809.  
  11810.  
  11811.  
  11812.  
  11813.  
  11814.  
  11815.  
  11816.  
  11817.  
  11818.  
  11819.  
  11820.  
  11821.  
  11822.  
  11823.  
  11824.  
  11825.  
  11826.  
  11827.  
  11828.  
  11829.  
  11830.  
  11831.  
  11832.  
  11833.  
  11834.  
  11835.  
  11836.  
  11837.  
  11838.  
  11839.  
  11840.  
  11841.  
  11842.  
  11843.  
  11844.  
  11845.  
  11846.  
  11847.  
  11848.  
  11849.  
  11850.  
  11851.  
  11852.  
  11853.  
  11854.  
  11855.  
  11856.  
  11857.  
  11858.  
  11859.  
  11860.  
  11861.  
  11862.  
  11863.  
  11864.  
  11865.  
  11866.  
  11867.  
  11868.  
  11869.  
  11870.  
  11871.  
  11872.  
  11873.  
  11874.  
  11875.  
  11876.  
  11877.  
  11878.  
  11879.  
  11880.  
  11881.  
  11882.  
  11883.  
  11884.  
  11885.  
  11886.  
  11887.  
  11888.  
  11889.  
  11890.  
  11891.  
  11892.  
  11893.  
  11894.  
  11895.  
  11896.  
  11897.  
  11898.  
  11899.  
  11900.  
  11901.  
  11902.  
  11903.  
  11904.  
  11905.  
  11906.  
  11907.  
  11908.  
  11909.  
  11910.  
  11911.  
  11912.  
  11913.  
  11914.  
  11915.  
  11916.  
  11917.  
  11918.  
  11919.  
  11920.  
  11921.  
  11922.  
  11923.  
  11924.  
  11925.  
  11926.  
  11927.  
  11928.  
  11929.  
  11930.  
  11931.  
  11932.  
  11933.  
  11934.  
  11935.  
  11936.  
  11937.  
  11938.  
  11939.  
  11940.  
  11941.  
  11942.  
  11943.  
  11944.  
  11945.  
  11946.  
  11947.  
  11948.  
  11949.  
  11950.  
  11951.  
  11952.  
  11953.  
  11954.  
  11955.  
  11956.  
  11957.  
  11958.  
  11959.  
  11960.  
  11961.  
  11962.  
  11963.  
  11964.  
  11965.  
  11966.  
  11967.  
  11968.  
  11969.  
  11970.  
  11971.  
  11972.  
  11973.  
  11974.  
  11975.  
  11976.  
  11977.  
  11978.  
  11979.  
  11980.  
  11981.  
  11982.  
  11983.  
  11984.  
  11985.  
  11986.  
  11987.  
  11988.  
  11989.  
  11990.  
  11991.  
  11992.  
  11993.  
  11994.  
  11995.  
  11996.  
  11997.  
  11998.  
  11999.  
  12000.  
  12001.  
  12002.  
  12003.  
  12004.  
  12005.  
  12006.  
  12007.  
  12008.  
  12009.  
  12010.  
  12011.  
  12012.  
  12013.  
  12014.  
  12015.  
  12016.  
  12017.  
  12018.  
  12019.  
  12020.  
  12021.  
  12022.  
  12023.  
  12024.  
  12025.  
  12026.  
  12027.  
  12028.  
  12029.  
  12030.  
  12031.  
  12032.  
  12033.  
  12034.  
  12035.  
  12036.  
  12037.  
  12038.  
  12039.  
  12040.  
  12041.  
  12042.  
  12043.  
  12044.  
  12045.  
  12046.  
  12047.  
  12048.  
  12049.  
  12050.  
  12051.  
  12052.  
  12053.  
  12054.  
  12055.  
  12056.  
  12057.  
  12058.  
  12059.  
  12060.  
  12061.  
  12062.  
  12063.  
  12064.  
  12065.  
  12066.  
  12067.  
  12068.  
  12069.  
  12070.  
  12071.  
  12072.  
  12073.  
  12074.  
  12075.  
  12076.  
  12077.  
  12078.  
  12079.  
  12080.  
  12081.  
  12082.  
  12083.  
  12084.  
  12085.  
  12086.  
  12087.  
  12088.  
  12089.  
  12090.  
  12091.  
  12092.  
  12093.  
  12094.  
  12095.  
  12096.  
  12097.  
  12098.  
  12099.  
  12100.  
  12101.  
  12102.  
  12103.  
  12104.  
  12105.  
  12106.  
  12107.  
  12108.  
  12109.  
  12110.  
  12111.  
  12112.  
  12113.  
  12114.  
  12115.  
  12116.  
  12117.  
  12118.  
  12119.  
  12120.  
  12121.  
  12122.  
  12123.  
  12124.  
  12125.  
  12126.  
  12127.  
  12128.  
  12129.  
  12130.  
  12131.  
  12132.  
  12133.  
  12134.  
  12135.  
  12136.  
  12137.  
  12138.  
  12139.  
  12140.  
  12141.  
  12142.  
  12143.  
  12144.  
  12145.  
  12146.  
  12147.  
  12148.  
  12149.  
  12150.  
  12151.  
  12152.  
  12153.  
  12154.  
  12155.  
  12156.  
  12157.  
  12158.  
  12159.  
  12160.  
  12161.  
  12162.  
  12163.  
  12164.  
  12165.  
  12166.  
  12167.  
  12168.  
  12169.  
  12170.  
  12171.  
  12172.  
  12173.  
  12174.  
  12175.  
  12176.  
  12177.  
  12178.  
  12179.  
  12180.  
  12181.  
  12182.  
  12183.  
  12184.  
  12185.  
  12186.  
  12187.  
  12188.  
  12189.  
  12190.  
  12191.  
  12192.  
  12193.  
  12194.  
  12195.  
  12196.  
  12197.  
  12198.  
  12199.  
  12200.  
  12201.  
  12202.  
  12203.  
  12204.  
  12205.  
  12206.  
  12207.  
  12208.  
  12209.  
  12210.  
  12211.  
  12212.  
  12213.  
  12214.  
  12215.  
  12216.  
  12217.  
  12218.  
  12219.  
  12220.  
  12221.  
  12222.  
  12223.  
  12224.  
  12225.  
  12226.  
  12227.  
  12228.  
  12229.  
  12230.  
  12231.  
  12232.  
  12233.  
  12234.  
  12235.  
  12236.  
  12237.  
  12238.  
  12239.  
  12240.  
  12241.  
  12242.  
  12243.  
  12244.  
  12245.  
  12246.  
  12247.  
  12248.  
  12249.  
  12250.  
  12251.  
  12252.  
  12253.  
  12254.  
  12255.  
  12256.  
  12257.  
  12258.  
  12259.  
  12260.  
  12261.  
  12262.  
  12263.  
  12264.  
  12265.  
  12266.  
  12267.  
  12268.  
  12269.  
  12270.  
  12271.  
  12272.  
  12273.  
  12274.  
  12275.  
  12276.  
  12277.  
  12278.  
  12279.  
  12280.  
  12281.  
  12282.  
  12283.  
  12284.  
  12285.  
  12286.  
  12287.  
  12288.  
  12289.  
  12290.  
  12291.  
  12292.  
  12293.  
  12294.  
  12295.  
  12296.  
  12297.  
  12298.  
  12299.  
  12300.  
  12301.  
  12302.  
  12303.  
  12304.  
  12305.  
  12306.  
  12307.  
  12308.  
  12309.  
  12310.  
  12311.  
  12312.  
  12313.  
  12314.  
  12315.  
  12316.  
  12317.  
  12318.  
  12319.  
  12320.  
  12321.  
  12322.  
  12323.  
  12324.  
  12325.  
  12326.  
  12327.  
  12328.  
  12329.  
  12330.  
  12331.  
  12332.  
  12333.  
  12334.  
  12335.  
  12336.  
  12337.  
  12338.  
  12339.  
  12340.  
  12341.  
  12342.  
  12343.  
  12344.  
  12345.  
  12346.  
  12347.  
  12348.  
  12349.  
  12350.  
  12351.  
  12352.  
  12353.  
  12354.  
  12355.  
  12356.  
  12357.  
  12358.  
  12359.  
  12360.  
  12361.  
  12362.  
  12363.  
  12364.  
  12365.  
  12366.  
  12367.  
  12368.  
  12369.  
  12370.  
  12371.  
  12372.  
  12373.  
  12374.  
  12375.  
  12376.  
  12377.  
  12378.  
  12379.  
  12380.  
  12381.  
  12382.  
  12383.  
  12384.  
  12385.  
  12386.  
  12387.  
  12388.  
  12389.  
  12390.  
  12391.  
  12392.  
  12393.  
  12394.  
  12395.  
  12396.  
  12397.  
  12398.  
  12399.  
  12400.  
  12401.  
  12402.  
  12403.  
  12404.  
  12405.  
  12406.  
  12407.  
  12408.  
  12409.  
  12410.  
  12411.  
  12412.  
  12413.  
  12414.  
  12415.  
  12416.  
  12417.  
  12418.  
  12419.  
  12420.  
  12421.  
  12422.  
  12423.  
  12424.  
  12425.  
  12426.  
  12427.  
  12428.  
  12429.  
  12430.  
  12431.  
  12432.  
  12433.  
  12434.  
  12435.  
  12436.  
  12437.  
  12438.  
  12439.  
  12440.  
  12441.  
  12442.  
  12443.  
  12444.  
  12445.  
  12446.  
  12447.  
  12448.  
  12449.  
  12450.  
  12451.  
  12452.  
  12453.  
  12454.  
  12455.  
  12456.  
  12457.  
  12458.  
  12459.  
  12460.  
  12461.  
  12462.  
  12463.  
  12464.  
  12465.  
  12466.  
  12467.  
  12468.  
  12469.  
  12470.  
  12471.  
  12472.  
  12473.  
  12474.  
  12475.  
  12476.  
  12477.  
  12478.  
  12479.  
  12480.  
  12481.  
  12482.  
  12483.  
  12484.  
  12485.  
  12486.  
  12487.  
  12488.  
  12489.  
  12490.  
  12491.  
  12492.  
  12493.  
  12494.  
  12495.  
  12496.  
  12497.  
  12498.  
  12499.  
  12500.  
  12501.  
  12502.  
  12503.  
  12504.  
  12505.  
  12506.  
  12507.  
  12508.  
  12509.  
  12510.  
  12511.  
  12512.  
  12513.  
  12514.  
  12515.  
  12516.  
  12517.  
  12518.  
  12519.  
  12520.  
  12521.  
  12522.  
  12523.  
  12524.  
  12525.  
  12526.  
  12527.  
  12528.  
  12529. /* Menulock stuff*/
  12530.  
  12531.  
  12532.  
  12533.  
  12534.  
  12535.  
  12536.  
  12537.  
  12538.  
  12539.  
  12540.  
  12541.  
  12542.  
  12543.  
  12544.  
  12545.  
  12546.  
  12547.  
  12548.  
  12549.  
  12550.  
  12551.  
  12552.  
  12553.  
  12554.  
  12555.  
  12556.  
  12557.  
  12558.  
  12559.  
  12560.  
  12561.  
  12562.  
  12563.  
  12564.  
  12565.  
  12566.  
  12567.  
  12568.  
  12569.  
  12570.  
  12571.  
  12572.  
  12573.  
  12574.  
  12575.  
  12576.  
  12577.  
  12578.  
  12579.  
  12580.  
  12581.  
  12582.  
  12583.  
  12584.  
  12585.  
  12586.  
  12587.  
  12588.  
  12589.  
  12590.  
  12591.  
  12592.  
  12593.  
  12594.  
  12595.  
  12596.  
  12597.  
  12598.  
  12599.  
  12600.  
  12601.  
  12602.  
  12603.  
  12604.  
  12605.  
  12606.  
  12607.  
  12608.  
  12609.  
  12610.  
  12611.  
  12612.  
  12613.  
  12614.  
  12615.  
  12616.  
  12617.  
  12618.  
  12619.  
  12620.  
  12621.  
  12622.  
  12623.  
  12624.  
  12625.  
  12626.  
  12627.  
  12628.  
  12629.  
  12630.  
  12631.  
  12632.  
  12633.  
  12634.  
  12635.  
  12636.  
  12637.  
  12638.  
  12639.  
  12640.  
  12641.  
  12642.  
  12643.  
  12644.  
  12645.  
  12646.  
  12647.  
  12648.  
  12649.  
  12650.  
  12651.  
  12652.  
  12653.  
  12654.  
  12655.  
  12656.  
  12657.  
  12658.  
  12659.  
  12660.  
  12661.  
  12662.  
  12663.  
  12664.  
  12665.  
  12666.  
  12667.  
  12668.  
  12669.  
  12670.  
  12671.  
  12672.  
  12673.  
  12674.  
  12675.  
  12676.  
  12677.  
  12678.  
  12679.  
  12680.  
  12681.  
  12682.  
  12683.  
  12684.  
  12685.  
  12686.  
  12687.  
  12688.  
  12689.  
  12690.  
  12691.  
  12692.  
  12693.  
  12694.  
  12695.  
  12696.  
  12697.  
  12698.  
  12699.  
  12700.  
  12701.  
  12702.  
  12703.  
  12704.  
  12705.  
  12706.  
  12707.  
  12708.  
  12709.  
  12710.  
  12711.  
  12712.  
  12713.  
  12714.  
  12715.  
  12716.  
  12717.  
  12718.  
  12719.  
  12720.  
  12721.  
  12722.  
  12723.  
  12724.  
  12725.  
  12726.  
  12727.  
  12728.  
  12729.  
  12730.  
  12731.  
  12732.  
  12733.  
  12734.  
  12735.  
  12736.  
  12737.  
  12738.  
  12739.  
  12740.  
  12741.  
  12742.  
  12743.  
  12744.  
  12745.  
  12746.  
  12747.  
  12748.  
  12749.  
  12750.  
  12751.  
  12752.  
  12753.  
  12754.  
  12755.  
  12756.  
  12757.  
  12758.  
  12759.  
  12760.  
  12761.  
  12762.  
  12763.  
  12764.  
  12765.  
  12766.  
  12767.  
  12768.  
  12769.  
  12770.  
  12771.  
  12772.  
  12773.  
  12774.  
  12775.  
  12776.  
  12777.  
  12778.  
  12779.  
  12780.  
  12781.  
  12782.  
  12783.  
  12784.  
  12785.  
  12786.  
  12787.  
  12788.  
  12789.  
  12790.  
  12791.  
  12792.  
  12793.  
  12794.  
  12795.  
  12796.  
  12797.  
  12798.  
  12799.  
  12800.  
  12801.  
  12802.  
  12803.  
  12804.  
  12805.  
  12806.  
  12807.  
  12808.  
  12809.  
  12810.  
  12811.  
  12812.  
  12813.  
  12814.  
  12815.  
  12816.  
  12817.  
  12818.  
  12819.  
  12820.  
  12821.  
  12822.  
  12823.  
  12824.  
  12825.  
  12826.  
  12827.  
  12828.  
  12829.  
  12830.  
  12831.  
  12832.  
  12833.  
  12834.  
  12835.  
  12836.  
  12837.  
  12838.  
  12839.  
  12840.  
  12841.  
  12842.  
  12843.  
  12844.  
  12845.  
  12846.  
  12847.  
  12848.  
  12849.  
  12850.  
  12851.  
  12852.  
  12853.  
  12854.  
  12855.  
  12856.  
  12857.  
  12858.  
  12859.  
  12860.  
  12861.  
  12862.  
  12863.  
  12864.  
  12865.  
  12866.  
  12867.  
  12868.  
  12869.  
  12870.  
  12871.  
  12872.  
  12873.  
  12874.  
  12875.  
  12876.  
  12877.  
  12878.  
  12879.  
  12880.  
  12881.  
  12882.  
  12883.  
  12884.  
  12885.  
  12886.  
  12887.  
  12888.  
  12889.  
  12890.  
  12891.  
  12892.  
  12893.  
  12894.  
  12895.  
  12896.  
  12897.  
  12898.  
  12899.  
  12900.  
  12901.  
  12902.  
  12903.  
  12904.  
  12905.  
  12906.  
  12907.  
  12908.  
  12909.  
  12910.  
  12911.  
  12912.  
  12913.  
  12914.  
  12915.  
  12916.  
  12917.  
  12918.  
  12919.  
  12920.  
  12921.  
  12922.  
  12923.  
  12924.  
  12925.  
  12926.  
  12927.  
  12928.  
  12929.  
  12930.  
  12931.  
  12932.  
  12933.  
  12934.  
  12935.  
  12936.  
  12937.  
  12938.  
  12939.  
  12940.  
  12941.  
  12942.  
  12943.  
  12944.  
  12945.  
  12946.  
  12947.  
  12948.  
  12949.  
  12950.  
  12951.  
  12952.  
  12953.  
  12954.  
  12955.  
  12956.  
  12957.  
  12958.  
  12959.  
  12960.  
  12961.  
  12962.  
  12963.  
  12964.  
  12965.  
  12966.  
  12967.  
  12968.  
  12969.  
  12970.  
  12971.  
  12972.  
  12973.  
  12974.  
  12975.  
  12976.  
  12977.  
  12978.  
  12979.  
  12980.  
  12981.  
  12982.  
  12983.  
  12984.  
  12985.  
  12986.  
  12987.  
  12988.  
  12989.  
  12990.  
  12991.  
  12992.  
  12993.  
  12994.  
  12995.  
  12996.  
  12997.  
  12998.  
  12999.  
  13000.  
  13001.  
  13002.  
  13003.  
  13004.  
  13005.  
  13006.  
  13007.  
  13008.  
  13009.  
  13010.  
  13011.  
  13012.  
  13013.  
  13014.  
  13015.  
  13016.  
  13017.  
  13018.  
  13019.  
  13020.  
  13021.  
  13022.  
  13023.  
  13024.  
  13025.  
  13026.  
  13027.  
  13028.  
  13029.  
  13030.  
  13031.  
  13032.  
  13033.  
  13034.  
  13035.  
  13036.  
  13037.  
  13038.  
  13039.  
  13040.  
  13041.   regPutN ("jogo", 0);
  13042.  
  13043.   menuLock (1);
  13044.  
  13045.   loadvrt ("map.vrt");
  13046.  
  13047.   clrtrig (me, 0);
  13048.  
  13049. }
  13050.  
  13051. if (share (1)==69)
  13052.  
  13053.   vis (me);
  13054.  
  13055. else
  13056.  
  13057.   invis (me);
  13058.  
  13059.  
  13060. end
  13061. End_Chunk
  13062.  
  13063. Chunk: ImageRef
  13064.  Number: 1
  13065.  Index: 1 Image: 52
  13066. End_Chunk
  13067. Chunk: Colours
  13068.  Number: 1
  13069.  0xA9
  13070. End_Chunk
  13071. ;
  13072. ;-------Object  116-------------------------------------------------------
  13073. ; 
  13074. Chunk: Standard
  13075.  Name:     "floor[116]"
  13076.  Number:   116
  13077.  Size:     40456 16000 200
  13078.  Position: 1992910 1000 1840600
  13079.  Type:     2
  13080.  Layer:    0
  13081. End_Chunk
  13082. Chunk: TexCoords
  13083.  Number: 1
  13084.  Mode:   0
  13085.  SubChunk
  13086.   Facet:     1
  13087.   ImageRef:  1
  13088.   PixScale:  0
  13089.   NumCoords: 4
  13090.     0.00000 0.00000
  13091.     0.00000 1.00000
  13092.     1.00000 1.00000
  13093.     1.00000 0.00000
  13094. End_Chunk
  13095. Chunk: SCL
  13096. if (activate (me, 0))
  13097.  
  13098. {
  13099.  
  13100.   share (70)=0;
  13101.  
  13102.   share (69)=0;
  13103.  
  13104.  
  13105.  
  13106.  
  13107.  
  13108.  
  13109.  
  13110.  
  13111.  
  13112.  
  13113.  
  13114.  
  13115.  
  13116.  
  13117.  
  13118.  
  13119.  
  13120.  
  13121.  
  13122.  
  13123.  
  13124.  
  13125.  
  13126.  
  13127.  
  13128.  
  13129.  
  13130.  
  13131.  
  13132.  
  13133.  
  13134.  
  13135.  
  13136.  
  13137.  
  13138.  
  13139.  
  13140.  
  13141.  
  13142.  
  13143.  
  13144.  
  13145.  
  13146.  
  13147.  
  13148.  
  13149.  
  13150.  
  13151.  
  13152.  
  13153.  
  13154.  
  13155.  
  13156.  
  13157.  
  13158.  
  13159.  
  13160.  
  13161.  
  13162.  
  13163.  
  13164.  
  13165.  
  13166.  
  13167.  
  13168.  
  13169.  
  13170.  
  13171.  
  13172.  
  13173.  
  13174.  
  13175.  
  13176.  
  13177.  
  13178.  
  13179.  
  13180.  
  13181.  
  13182.  
  13183.  
  13184.  
  13185.  
  13186.  
  13187.  
  13188.  
  13189.  
  13190.  
  13191.  
  13192.  
  13193.  
  13194.  
  13195.  
  13196.  
  13197.  
  13198.  
  13199.  
  13200.  
  13201.  
  13202.  
  13203.  
  13204.  
  13205.  
  13206.  
  13207.  
  13208.  
  13209.  
  13210.  
  13211.  
  13212.  
  13213.  
  13214.  
  13215.  
  13216.  
  13217.  
  13218.  
  13219.  
  13220.  
  13221.  
  13222.  
  13223.  
  13224.  
  13225.  
  13226.  
  13227.  
  13228.  
  13229.  
  13230.  
  13231.  
  13232.  
  13233.  
  13234.  
  13235.  
  13236.  
  13237.  
  13238.  
  13239.  
  13240.  
  13241.  
  13242.  
  13243.  
  13244.  
  13245.  
  13246.  
  13247.  
  13248.  
  13249.  
  13250.  
  13251.  
  13252.  
  13253.  
  13254.  
  13255.  
  13256.  
  13257.  
  13258.  
  13259.  
  13260.  
  13261.  
  13262.  
  13263.  
  13264.  
  13265.  
  13266.  
  13267.  
  13268.  
  13269.  
  13270.  
  13271.  
  13272.  
  13273.  
  13274.  
  13275.  
  13276.  
  13277.  
  13278.  
  13279.  
  13280.  
  13281.  
  13282.  
  13283.  
  13284.  
  13285.  
  13286.  
  13287.  
  13288.  
  13289.  
  13290.  
  13291.  
  13292.  
  13293.  
  13294.  
  13295.  
  13296.  
  13297.  
  13298.  
  13299.  
  13300.  
  13301.  
  13302.  
  13303.  
  13304.  
  13305.  
  13306.  
  13307.  
  13308.  
  13309.  
  13310.  
  13311.  
  13312.  
  13313.  
  13314.  
  13315.  
  13316.  
  13317.  
  13318.  
  13319.  
  13320.  
  13321.  
  13322.  
  13323.  
  13324.  
  13325.  
  13326.  
  13327.  
  13328.  
  13329.  
  13330.  
  13331.  
  13332.  
  13333.  
  13334.  
  13335.  
  13336.  
  13337.  
  13338.  
  13339.  
  13340.  
  13341.  
  13342.  
  13343.  
  13344.  
  13345.  
  13346.  
  13347.  
  13348.  
  13349.  
  13350.  
  13351.  
  13352.  
  13353.  
  13354.  
  13355.  
  13356.  
  13357.  
  13358.  
  13359.  
  13360.  
  13361.  
  13362.  
  13363.  
  13364.  
  13365.  
  13366.  
  13367.  
  13368.  
  13369.  
  13370.  
  13371.  
  13372.  
  13373.  
  13374.  
  13375.  
  13376.  
  13377.  
  13378.  
  13379.  
  13380.  
  13381.  
  13382.  
  13383.  
  13384.  
  13385.  
  13386.  
  13387.  
  13388.  
  13389.  
  13390.  
  13391.  
  13392.  
  13393.  
  13394.  
  13395.  
  13396.  
  13397.  
  13398.  
  13399.  
  13400.  
  13401.  
  13402.  
  13403.  
  13404.  
  13405.  
  13406.  
  13407.  
  13408.  
  13409.  
  13410.  
  13411.  
  13412.  
  13413.  
  13414.  
  13415.  
  13416.  
  13417.  
  13418.  
  13419.  
  13420.  
  13421.  
  13422.  
  13423.  
  13424.  
  13425.  
  13426.  
  13427.  
  13428.  
  13429.  
  13430.  
  13431.  
  13432.  
  13433.  
  13434.  
  13435.  
  13436.  
  13437.  
  13438.  
  13439.  
  13440.  
  13441.  
  13442.  
  13443.  
  13444.  
  13445.  
  13446.  
  13447.  
  13448.  
  13449.  
  13450.  
  13451.  
  13452.  
  13453.  
  13454.  
  13455.  
  13456.  
  13457.  
  13458.  
  13459.  
  13460.  
  13461.  
  13462.  
  13463.  
  13464.  
  13465.  
  13466.  
  13467.  
  13468.  
  13469.  
  13470.  
  13471.  
  13472.  
  13473.  
  13474.  
  13475.  
  13476.  
  13477.  
  13478.  
  13479.  
  13480.  
  13481.  
  13482.  
  13483.  
  13484.  
  13485.  
  13486.  
  13487.  
  13488.  
  13489.  
  13490.  
  13491.  
  13492.  
  13493.  
  13494.  
  13495.  
  13496.  
  13497.  
  13498.  
  13499.  
  13500.  
  13501.  
  13502.  
  13503.  
  13504.  
  13505.  
  13506.  
  13507.  
  13508.  
  13509.  
  13510.  
  13511.  
  13512.  
  13513.  
  13514.  
  13515.  
  13516.  
  13517.  
  13518.  
  13519.  
  13520.  
  13521.  
  13522.  
  13523.  
  13524.  
  13525.  
  13526.  
  13527.  
  13528.  
  13529.  
  13530.  
  13531.  
  13532.  
  13533.  
  13534.  
  13535.  
  13536.  
  13537.  
  13538.  
  13539.  
  13540.  
  13541.  
  13542.  
  13543.  
  13544.  
  13545.  
  13546.  
  13547.  
  13548.  
  13549.  
  13550.  
  13551.  
  13552.  
  13553.  
  13554.  
  13555.  
  13556.  
  13557.  
  13558.  
  13559.  
  13560.  
  13561.  
  13562.  
  13563.  
  13564.  
  13565.  
  13566.  
  13567.  
  13568.  
  13569.  
  13570.  
  13571.  
  13572.  
  13573.  
  13574.  
  13575.  
  13576.  
  13577.  
  13578.  
  13579.  
  13580.  
  13581.  
  13582.  
  13583.  
  13584.  
  13585.  
  13586.  
  13587.  
  13588.  
  13589.  
  13590.  
  13591.  
  13592.  
  13593.  
  13594.  
  13595.  
  13596.  
  13597.  
  13598.  
  13599.  
  13600.  
  13601.  
  13602.  
  13603.  
  13604.  
  13605.  
  13606.  
  13607.  
  13608.  
  13609.  
  13610.  
  13611.  
  13612.  
  13613.  
  13614.  
  13615.  
  13616.  
  13617.  
  13618.  
  13619.  
  13620.  
  13621.  
  13622.  
  13623.  
  13624.  
  13625.  
  13626.  
  13627.  
  13628.  
  13629.  
  13630.  
  13631.  
  13632.  
  13633.  
  13634.  
  13635.  
  13636.  
  13637.  
  13638.  
  13639.  
  13640.  
  13641.  
  13642.  
  13643.  
  13644.  
  13645.  
  13646.  
  13647.  
  13648.  
  13649.  
  13650.  
  13651.  
  13652.  
  13653.  
  13654.  
  13655.  
  13656.  
  13657.  
  13658.  
  13659.  
  13660.  
  13661.  
  13662.  
  13663.  
  13664.  
  13665.  
  13666.  
  13667.  
  13668.  
  13669.  
  13670.  
  13671.  
  13672.  
  13673.  
  13674.  
  13675.  
  13676.  
  13677.  
  13678.  
  13679.  
  13680.  
  13681.  
  13682.  
  13683.  
  13684.  
  13685.  
  13686.  
  13687.  
  13688.  
  13689.  
  13690.  
  13691.  
  13692.  
  13693.  
  13694.  
  13695.  
  13696.  
  13697.  
  13698.  
  13699.  
  13700.  
  13701.  
  13702.  
  13703.  
  13704.  
  13705.  
  13706.  
  13707.  
  13708.  
  13709.  
  13710.  
  13711.  
  13712.  
  13713.  
  13714.  
  13715.  
  13716.  
  13717.  
  13718.  
  13719.  
  13720.  
  13721.  
  13722.  
  13723.  
  13724.  
  13725.  
  13726.  
  13727.  
  13728.  
  13729.  
  13730.  
  13731.  
  13732.  
  13733.  
  13734.  
  13735.  
  13736.  
  13737.  
  13738.  
  13739.  
  13740.  
  13741.  
  13742.  
  13743.  
  13744.  
  13745.  
  13746.  
  13747.  
  13748.  
  13749.  
  13750.  
  13751.  
  13752.  
  13753.  
  13754.  
  13755.  
  13756.  
  13757.  
  13758.  
  13759.  
  13760.  
  13761.  
  13762.  
  13763.  
  13764.  
  13765.  
  13766.  
  13767.  
  13768.  
  13769.  
  13770.  
  13771.  
  13772.  
  13773.  
  13774.  
  13775.  
  13776.  
  13777.  
  13778.  
  13779.  
  13780.  
  13781.  
  13782.  
  13783.  
  13784.  
  13785.  
  13786.  
  13787.  
  13788.  
  13789.  
  13790.  
  13791.  
  13792.  
  13793.  
  13794.  
  13795.  
  13796.  
  13797.  
  13798.  
  13799.  
  13800.  
  13801.  
  13802.  
  13803.  
  13804.  
  13805.  
  13806.  
  13807.  
  13808.  
  13809.  
  13810.  
  13811.  
  13812.  
  13813.  
  13814.  
  13815.  
  13816.  
  13817.  
  13818.  
  13819.  
  13820.  
  13821.  
  13822.  
  13823.  
  13824.  
  13825.  
  13826.  
  13827.  
  13828.  
  13829.  
  13830.  
  13831.  
  13832.  
  13833.  
  13834.  
  13835.  
  13836.  
  13837.  
  13838.  
  13839.  
  13840.  
  13841.  
  13842.  
  13843.  
  13844.  
  13845.  
  13846.  
  13847.  
  13848.  
  13849.  
  13850.  
  13851.  
  13852.  
  13853.  
  13854.  
  13855.  
  13856.  
  13857.  
  13858.  
  13859.  
  13860.  
  13861.  
  13862.  
  13863.  
  13864.  
  13865.  
  13866.  
  13867.  
  13868.  
  13869.  
  13870.  
  13871.  
  13872.  
  13873.  
  13874.  
  13875.  
  13876.  
  13877.  
  13878.  
  13879.  
  13880.  
  13881.  
  13882.  
  13883.  
  13884.  
  13885.  
  13886.  
  13887.  
  13888.  
  13889.  
  13890.  
  13891.  
  13892.  
  13893.  
  13894.  
  13895.  
  13896.  
  13897.  
  13898.  
  13899.  
  13900.  
  13901.  
  13902.  
  13903.  
  13904.  
  13905.  
  13906.  
  13907.  
  13908.  
  13909.  
  13910.  
  13911.  
  13912.  
  13913.  
  13914.  
  13915.  
  13916.  
  13917.  
  13918.  
  13919.  
  13920.  
  13921.  
  13922.  
  13923.  
  13924.  
  13925.  
  13926.  
  13927.  
  13928.  
  13929.  
  13930.  
  13931.  
  13932.  
  13933.  
  13934.  
  13935.  
  13936.  
  13937.  
  13938.  
  13939.  
  13940.  
  13941.  
  13942.  
  13943.  
  13944.  
  13945.  
  13946.  
  13947.  
  13948.  
  13949.  
  13950.  
  13951.  
  13952.  
  13953.  
  13954.  
  13955.  
  13956.  
  13957.  
  13958.  
  13959.  
  13960.  
  13961.  
  13962.  
  13963.  
  13964.  
  13965.  
  13966.  
  13967.  
  13968.  
  13969.  
  13970.  
  13971.  
  13972.  
  13973.  
  13974.  
  13975.  
  13976.  
  13977.  
  13978.  
  13979.  
  13980.  
  13981.  
  13982.  
  13983.  
  13984.  
  13985.  
  13986.  
  13987.  
  13988.  
  13989.  
  13990.  
  13991.  
  13992.  
  13993.  
  13994.  
  13995.  
  13996.  
  13997.  
  13998.  
  13999.  
  14000.  
  14001.  
  14002.  
  14003.  
  14004.  
  14005.  
  14006.  
  14007.  
  14008.  
  14009.  
  14010.  
  14011.  
  14012.  
  14013.  
  14014.  
  14015.  
  14016.  
  14017.  
  14018.  
  14019.  
  14020.  
  14021.  
  14022.  
  14023.  
  14024.  
  14025.  
  14026.  
  14027.  
  14028.  
  14029.  
  14030.  
  14031.  
  14032.  
  14033.  
  14034.  
  14035.  
  14036.  
  14037.  
  14038.  
  14039.  
  14040.  
  14041.  
  14042.  
  14043.  
  14044.  
  14045.  
  14046.  
  14047.  
  14048.  
  14049.  
  14050.  
  14051.  
  14052.  
  14053.  
  14054.  
  14055.  
  14056.  
  14057.  
  14058.  
  14059.  
  14060.  
  14061.  
  14062.  
  14063.  
  14064.  
  14065.  
  14066.  
  14067.  
  14068.  
  14069.  
  14070.  
  14071.  
  14072.  
  14073.  
  14074.  
  14075.  
  14076.  
  14077.  
  14078.  
  14079.  
  14080.  
  14081.  
  14082.  
  14083.  
  14084.  
  14085.  
  14086.  
  14087.  
  14088.  
  14089.  
  14090.  
  14091.  
  14092.  
  14093.  
  14094.  
  14095.  
  14096.  
  14097.  
  14098.  
  14099.  
  14100.  
  14101.  
  14102.  
  14103.  
  14104.  
  14105.  
  14106.  
  14107.  
  14108.  
  14109.  
  14110.  
  14111.  
  14112.  
  14113.  
  14114.  
  14115.  
  14116. /* Menulock stuff*/
  14117.  
  14118.  
  14119.  
  14120.  
  14121.  
  14122.  
  14123.  
  14124.  
  14125.  
  14126.  
  14127.  
  14128.  
  14129.  
  14130.  
  14131.  
  14132.  
  14133.  
  14134.  
  14135.  
  14136.  
  14137.  
  14138.  
  14139.  
  14140.  
  14141.  
  14142.  
  14143.  
  14144.  
  14145.  
  14146.  
  14147.  
  14148.  
  14149.  
  14150.  
  14151.  
  14152.  
  14153.  
  14154.  
  14155.  
  14156.  
  14157.  
  14158.  
  14159.  
  14160.  
  14161.  
  14162.  
  14163.  
  14164.  
  14165.  
  14166.  
  14167.  
  14168.  
  14169.  
  14170.  
  14171.  
  14172.  
  14173.  
  14174.  
  14175.  
  14176.  
  14177.  
  14178.  
  14179.  
  14180.  
  14181.  
  14182.  
  14183.  
  14184.  
  14185.  
  14186.  
  14187.  
  14188.  
  14189.  
  14190.  
  14191.  
  14192.  
  14193.  
  14194.  
  14195.  
  14196.  
  14197.  
  14198.  
  14199.  
  14200.  
  14201.  
  14202.  
  14203.  
  14204.  
  14205.  
  14206.  
  14207.  
  14208.  
  14209.  
  14210.  
  14211.  
  14212.  
  14213.  
  14214.  
  14215.  
  14216.  
  14217.  
  14218.  
  14219.  
  14220.  
  14221.  
  14222.  
  14223.  
  14224.  
  14225.  
  14226.  
  14227.  
  14228.  
  14229.  
  14230.  
  14231.  
  14232.  
  14233.  
  14234.  
  14235.  
  14236.  
  14237.  
  14238.  
  14239.  
  14240.  
  14241.  
  14242.  
  14243.  
  14244.  
  14245.  
  14246.  
  14247.  
  14248.  
  14249.  
  14250.  
  14251.  
  14252.  
  14253.  
  14254.  
  14255.  
  14256.  
  14257.  
  14258.  
  14259.  
  14260.  
  14261.  
  14262.  
  14263.  
  14264.  
  14265.  
  14266.  
  14267.  
  14268.  
  14269.  
  14270.  
  14271.  
  14272.  
  14273.  
  14274.  
  14275.  
  14276.  
  14277.  
  14278.  
  14279.  
  14280.  
  14281.  
  14282.  
  14283.  
  14284.  
  14285.  
  14286.  
  14287.  
  14288.  
  14289.  
  14290.  
  14291.  
  14292.  
  14293.  
  14294.  
  14295.  
  14296.  
  14297.  
  14298.  
  14299.  
  14300.  
  14301.  
  14302.  
  14303.  
  14304.  
  14305.  
  14306.  
  14307.  
  14308.  
  14309.  
  14310.  
  14311.  
  14312.  
  14313.  
  14314.  
  14315.  
  14316.  
  14317.  
  14318.  
  14319.  
  14320.  
  14321.  
  14322.  
  14323.  
  14324.  
  14325.  
  14326.  
  14327.  
  14328.  
  14329.  
  14330.  
  14331.  
  14332.  
  14333.  
  14334.  
  14335.  
  14336.  
  14337.  
  14338.  
  14339.  
  14340.  
  14341.  
  14342.  
  14343.  
  14344.  
  14345.  
  14346.  
  14347.  
  14348.  
  14349.  
  14350.  
  14351.  
  14352.  
  14353.  
  14354.  
  14355.  
  14356.  
  14357.  
  14358.  
  14359.  
  14360.  
  14361.  
  14362.  
  14363.  
  14364.  
  14365.  
  14366.  
  14367.  
  14368.  
  14369.  
  14370.  
  14371.  
  14372.  
  14373.  
  14374.  
  14375.  
  14376.  
  14377.  
  14378.  
  14379.  
  14380.  
  14381.  
  14382.  
  14383.  
  14384.  
  14385.  
  14386.  
  14387.  
  14388.  
  14389.  
  14390.  
  14391.  
  14392.  
  14393.  
  14394.  
  14395.  
  14396.  
  14397.  
  14398.  
  14399.  
  14400.  
  14401.  
  14402.  
  14403.  
  14404.  
  14405.  
  14406.  
  14407.  
  14408.  
  14409.  
  14410.  
  14411.  
  14412.  
  14413.  
  14414.  
  14415.  
  14416.  
  14417.  
  14418.  
  14419.  
  14420.  
  14421.  
  14422.  
  14423.  
  14424.  
  14425.  
  14426.  
  14427.  
  14428.  
  14429.  
  14430.  
  14431.  
  14432.  
  14433.  
  14434.  
  14435.  
  14436.  
  14437.  
  14438.  
  14439.  
  14440.  
  14441.  
  14442.  
  14443.  
  14444.  
  14445.  
  14446.  
  14447.  
  14448.  
  14449.  
  14450.  
  14451.  
  14452.  
  14453.  
  14454.  
  14455.  
  14456.  
  14457.  
  14458.  
  14459.  
  14460.  
  14461.  
  14462.  
  14463.  
  14464.  
  14465.  
  14466.  
  14467.  
  14468.  
  14469.  
  14470.  
  14471.  
  14472.  
  14473.  
  14474.  
  14475.  
  14476.  
  14477.  
  14478.  
  14479.  
  14480.  
  14481.  
  14482.  
  14483.  
  14484.  
  14485.  
  14486.  
  14487.  
  14488.  
  14489.  
  14490.  
  14491.  
  14492.  
  14493.  
  14494.  
  14495.  
  14496.  
  14497.  
  14498.  
  14499.  
  14500.  
  14501.  
  14502.  
  14503.  
  14504.  
  14505.  
  14506.  
  14507.  
  14508.  
  14509.  
  14510.  
  14511.  
  14512.  
  14513.  
  14514.  
  14515.  
  14516.  
  14517.  
  14518.  
  14519.  
  14520.  
  14521.  
  14522.  
  14523.  
  14524.  
  14525.  
  14526.  
  14527.  
  14528.  
  14529.  
  14530.  
  14531.  
  14532.  
  14533.  
  14534.  
  14535.  
  14536.  
  14537.  
  14538.  
  14539.  
  14540.  
  14541.  
  14542.  
  14543.  
  14544.  
  14545.  
  14546.  
  14547.  
  14548.  
  14549.  
  14550.  
  14551.  
  14552.  
  14553.  
  14554.  
  14555.  
  14556.  
  14557.  
  14558.  
  14559.  
  14560.  
  14561.  
  14562.  
  14563.  
  14564.  
  14565.  
  14566.  
  14567.  
  14568.  
  14569.  
  14570.  
  14571.  
  14572.  
  14573.  
  14574.  
  14575.  
  14576.  
  14577.  
  14578.  
  14579.  
  14580.  
  14581.  
  14582.  
  14583.  
  14584.  
  14585.  
  14586.  
  14587.  
  14588.  
  14589.  
  14590.  
  14591.  
  14592.  
  14593.  
  14594.  
  14595.  
  14596.  
  14597.  
  14598.  
  14599.  
  14600.  
  14601.  
  14602.  
  14603.  
  14604.  
  14605.  
  14606.  
  14607.  
  14608.  
  14609.  
  14610.  
  14611.  
  14612.  
  14613.  
  14614.  
  14615.  
  14616.  
  14617.  
  14618.  
  14619.  
  14620.  
  14621.  
  14622.  
  14623.  
  14624.  
  14625.  
  14626.  
  14627.  
  14628.   regPutN ("jogo", 0);
  14629.  
  14630.   menuLock (1);
  14631.  
  14632.   loadvrt ("map.vrt");
  14633.  
  14634.   clrtrig (me, 0);
  14635.  
  14636. }
  14637.  
  14638. if (share (1)==70)
  14639.  
  14640.   vis (me);
  14641.  
  14642. else
  14643.  
  14644.   invis (me);
  14645.  
  14646.  
  14647. end
  14648. End_Chunk
  14649.  
  14650. Chunk: ImageRef
  14651.  Number: 1
  14652.  Index: 1 Image: 53
  14653. End_Chunk
  14654. Chunk: Colours
  14655.  Number: 1
  14656.  0xA9
  14657. End_Chunk
  14658. ;
  14659. ;-------Object  117-------------------------------------------------------
  14660. ; 
  14661. Chunk: Standard
  14662.  Name:     "floor[117]"
  14663.  Number:   117
  14664.  Size:     42456 16000 200
  14665.  Position: 1992910 1000 1831600
  14666.  Type:     2
  14667.  Layer:    0
  14668. End_Chunk
  14669. Chunk: TexCoords
  14670.  Number: 1
  14671.  Mode:   0
  14672.  SubChunk
  14673.   Facet:     1
  14674.   ImageRef:  1
  14675.   PixScale:  0
  14676.   NumCoords: 4
  14677.     0.00000 0.00000
  14678.     0.00000 1.00000
  14679.     1.00000 1.00000
  14680.     1.00000 0.00000
  14681. End_Chunk
  14682. Chunk: SCL
  14683. if (activate (me, 0))
  14684.  
  14685. {
  14686.  
  14687.   share (70)=0;
  14688.  
  14689.   share (69)=0;
  14690.  
  14691.  
  14692.  
  14693.  
  14694.  
  14695.  
  14696.  
  14697.  
  14698.  
  14699.  
  14700.  
  14701.  
  14702.  
  14703.  
  14704.  
  14705.  
  14706.  
  14707.  
  14708.  
  14709.  
  14710.  
  14711.  
  14712.  
  14713.  
  14714.  
  14715.  
  14716.  
  14717.  
  14718.  
  14719.  
  14720.  
  14721.  
  14722.  
  14723.  
  14724.  
  14725.  
  14726.  
  14727.  
  14728.  
  14729.  
  14730.  
  14731.  
  14732.  
  14733.  
  14734.  
  14735.  
  14736.  
  14737.  
  14738.  
  14739.  
  14740.  
  14741.  
  14742.  
  14743.  
  14744.  
  14745.  
  14746.  
  14747.  
  14748.  
  14749.  
  14750.  
  14751.  
  14752.  
  14753.  
  14754.  
  14755.  
  14756.  
  14757.  
  14758.  
  14759.  
  14760.  
  14761.  
  14762.  
  14763.  
  14764.  
  14765.  
  14766.  
  14767.  
  14768.  
  14769.  
  14770.  
  14771.  
  14772.  
  14773.  
  14774.  
  14775.  
  14776.  
  14777.  
  14778.  
  14779.  
  14780.  
  14781.  
  14782.  
  14783.  
  14784.  
  14785.  
  14786.  
  14787.  
  14788.  
  14789.  
  14790.  
  14791.  
  14792.  
  14793.  
  14794.  
  14795.  
  14796.  
  14797.  
  14798.  
  14799.  
  14800.  
  14801.  
  14802.  
  14803.  
  14804.  
  14805.  
  14806.  
  14807.  
  14808.  
  14809.  
  14810.  
  14811.  
  14812.  
  14813.  
  14814.  
  14815.  
  14816.  
  14817.  
  14818.  
  14819.  
  14820.  
  14821.  
  14822.  
  14823.  
  14824.  
  14825.  
  14826.  
  14827.  
  14828.  
  14829.  
  14830.  
  14831.  
  14832.  
  14833.  
  14834.  
  14835.  
  14836.  
  14837.  
  14838.  
  14839.  
  14840.  
  14841.  
  14842.  
  14843.  
  14844.  
  14845.  
  14846.  
  14847.  
  14848.  
  14849.  
  14850.  
  14851.  
  14852.  
  14853.  
  14854.  
  14855.  
  14856.  
  14857.  
  14858.  
  14859.  
  14860.  
  14861.  
  14862.  
  14863.  
  14864.  
  14865.  
  14866.  
  14867.  
  14868.  
  14869.  
  14870.  
  14871.  
  14872.  
  14873.  
  14874.  
  14875.  
  14876.  
  14877.  
  14878.  
  14879.  
  14880.  
  14881.  
  14882.  
  14883.  
  14884.  
  14885.  
  14886.  
  14887.  
  14888.  
  14889.  
  14890.  
  14891.  
  14892.  
  14893.  
  14894.  
  14895.  
  14896.  
  14897.  
  14898.  
  14899.  
  14900.  
  14901.  
  14902.  
  14903.  
  14904.  
  14905.  
  14906.  
  14907.  
  14908.  
  14909.  
  14910.  
  14911.  
  14912.  
  14913.  
  14914.  
  14915.  
  14916.  
  14917.  
  14918.  
  14919.  
  14920.  
  14921.  
  14922.  
  14923.  
  14924.  
  14925.  
  14926.  
  14927.  
  14928.  
  14929.  
  14930.  
  14931.  
  14932.  
  14933.  
  14934.  
  14935.  
  14936.  
  14937.  
  14938.  
  14939.  
  14940.  
  14941.  
  14942.  
  14943.  
  14944.  
  14945.  
  14946.  
  14947.  
  14948.  
  14949.  
  14950.  
  14951.  
  14952.  
  14953.  
  14954.  
  14955.  
  14956.  
  14957.  
  14958.  
  14959.  
  14960.  
  14961.  
  14962.  
  14963.  
  14964.  
  14965.  
  14966.  
  14967.  
  14968.  
  14969.  
  14970.  
  14971.  
  14972.  
  14973.  
  14974.  
  14975.  
  14976.  
  14977.  
  14978.  
  14979.  
  14980.  
  14981.  
  14982.  
  14983.  
  14984.  
  14985.  
  14986.  
  14987.  
  14988.  
  14989.  
  14990.  
  14991.  
  14992.  
  14993.  
  14994.  
  14995.  
  14996.  
  14997.  
  14998.  
  14999.  
  15000.  
  15001.  
  15002.  
  15003.  
  15004.  
  15005.  
  15006.  
  15007.  
  15008.  
  15009.  
  15010.  
  15011.  
  15012.  
  15013.  
  15014.  
  15015.  
  15016.  
  15017.  
  15018.  
  15019.  
  15020.  
  15021.  
  15022.  
  15023.  
  15024.  
  15025.  
  15026.  
  15027.  
  15028.  
  15029.  
  15030.  
  15031.  
  15032.  
  15033.  
  15034.  
  15035.  
  15036.  
  15037.  
  15038.  
  15039.  
  15040.  
  15041.  
  15042.  
  15043.  
  15044.  
  15045.  
  15046.  
  15047.  
  15048.  
  15049.  
  15050.  
  15051.  
  15052.  
  15053.  
  15054.  
  15055.  
  15056.  
  15057.  
  15058.  
  15059.  
  15060.  
  15061.  
  15062.  
  15063.  
  15064.  
  15065.  
  15066.  
  15067.  
  15068.  
  15069.  
  15070.  
  15071.  
  15072.  
  15073.  
  15074.  
  15075.  
  15076.  
  15077.  
  15078.  
  15079.  
  15080.  
  15081.  
  15082.  
  15083.  
  15084.  
  15085.  
  15086.  
  15087.  
  15088.  
  15089.  
  15090.  
  15091.  
  15092.  
  15093.  
  15094.  
  15095.  
  15096.  
  15097.  
  15098.  
  15099.  
  15100.  
  15101.  
  15102.  
  15103.  
  15104.  
  15105.  
  15106.  
  15107.  
  15108.  
  15109.  
  15110.  
  15111.  
  15112.  
  15113.  
  15114.  
  15115.  
  15116.  
  15117.  
  15118.  
  15119.  
  15120.  
  15121.  
  15122.  
  15123.  
  15124.  
  15125.  
  15126.  
  15127.  
  15128.  
  15129.  
  15130.  
  15131.  
  15132.  
  15133.  
  15134.  
  15135.  
  15136.  
  15137.  
  15138.  
  15139.  
  15140.  
  15141.  
  15142.  
  15143.  
  15144.  
  15145.  
  15146.  
  15147.  
  15148.  
  15149.  
  15150.  
  15151.  
  15152.  
  15153.  
  15154.  
  15155.  
  15156.  
  15157.  
  15158.  
  15159.  
  15160.  
  15161.  
  15162.  
  15163.  
  15164.  
  15165.  
  15166.  
  15167.  
  15168.  
  15169.  
  15170.  
  15171.  
  15172.  
  15173.  
  15174.  
  15175.  
  15176.  
  15177.  
  15178.  
  15179.  
  15180.  
  15181.  
  15182.  
  15183.  
  15184.  
  15185.  
  15186.  
  15187.  
  15188.  
  15189.  
  15190.  
  15191.  
  15192.  
  15193.  
  15194.  
  15195.  
  15196.  
  15197.  
  15198.  
  15199.  
  15200.  
  15201.  
  15202.  
  15203.  
  15204.  
  15205.  
  15206.  
  15207.  
  15208.  
  15209.  
  15210.  
  15211.  
  15212.  
  15213.  
  15214.  
  15215.  
  15216.  
  15217.  
  15218.  
  15219.  
  15220.  
  15221.  
  15222.  
  15223.  
  15224.  
  15225.  
  15226.  
  15227.  
  15228.  
  15229.  
  15230.  
  15231.  
  15232.  
  15233.  
  15234.  
  15235.  
  15236.  
  15237.  
  15238.  
  15239.  
  15240.  
  15241.  
  15242.  
  15243.  
  15244.  
  15245.  
  15246.  
  15247.  
  15248.  
  15249.  
  15250.  
  15251.  
  15252.  
  15253.  
  15254.  
  15255.  
  15256.  
  15257.  
  15258.  
  15259.  
  15260.  
  15261.  
  15262.  
  15263.  
  15264.  
  15265.  
  15266.  
  15267.  
  15268.  
  15269.  
  15270.  
  15271.  
  15272.  
  15273.  
  15274.  
  15275.  
  15276.  
  15277.  
  15278.  
  15279.  
  15280.  
  15281.  
  15282.  
  15283.  
  15284.  
  15285.  
  15286.  
  15287.  
  15288.  
  15289.  
  15290.  
  15291.  
  15292.  
  15293.  
  15294.  
  15295.  
  15296.  
  15297.  
  15298.  
  15299.  
  15300.  
  15301.  
  15302.  
  15303.  
  15304.  
  15305.  
  15306.  
  15307.  
  15308.  
  15309.  
  15310.  
  15311.  
  15312.  
  15313.  
  15314.  
  15315.  
  15316.  
  15317.  
  15318.  
  15319.  
  15320.  
  15321.  
  15322.  
  15323.  
  15324.  
  15325.  
  15326.  
  15327.  
  15328.  
  15329.  
  15330.  
  15331.  
  15332.  
  15333.  
  15334.  
  15335.  
  15336.  
  15337.  
  15338.  
  15339.  
  15340.  
  15341.  
  15342.  
  15343.  
  15344.  
  15345.  
  15346.  
  15347.  
  15348.  
  15349.  
  15350.  
  15351.  
  15352.  
  15353.  
  15354.  
  15355.  
  15356.  
  15357.  
  15358.  
  15359.  
  15360.  
  15361.  
  15362.  
  15363.  
  15364.  
  15365.  
  15366.  
  15367.  
  15368.  
  15369.  
  15370.  
  15371.  
  15372.  
  15373.  
  15374.  
  15375.  
  15376.  
  15377.  
  15378.  
  15379.  
  15380.  
  15381.  
  15382.  
  15383.  
  15384.  
  15385.  
  15386.  
  15387.  
  15388.  
  15389.  
  15390.  
  15391.  
  15392.  
  15393.  
  15394.  
  15395.  
  15396.  
  15397.  
  15398.  
  15399.  
  15400.  
  15401.  
  15402.  
  15403.  
  15404.  
  15405.  
  15406.  
  15407.  
  15408.  
  15409.  
  15410.  
  15411.  
  15412.  
  15413.  
  15414.  
  15415.  
  15416.  
  15417.  
  15418.  
  15419.  
  15420.  
  15421.  
  15422.  
  15423.  
  15424.  
  15425.  
  15426.  
  15427.  
  15428.  
  15429.  
  15430.  
  15431.  
  15432.  
  15433.  
  15434.  
  15435.  
  15436.  
  15437.  
  15438.  
  15439.  
  15440.  
  15441.  
  15442.  
  15443.  
  15444.  
  15445.  
  15446.  
  15447.  
  15448.  
  15449.  
  15450.  
  15451.  
  15452.  
  15453.  
  15454.  
  15455.  
  15456.  
  15457.  
  15458.  
  15459.  
  15460.  
  15461.  
  15462.  
  15463.  
  15464.  
  15465.  
  15466.  
  15467.  
  15468.  
  15469.  
  15470.  
  15471.  
  15472.  
  15473.  
  15474.  
  15475.  
  15476.  
  15477.  
  15478.  
  15479.  
  15480.  
  15481.  
  15482.  
  15483.  
  15484.  
  15485.  
  15486.  
  15487.  
  15488.  
  15489.  
  15490.  
  15491.  
  15492.  
  15493.  
  15494.  
  15495.  
  15496.  
  15497.  
  15498.  
  15499.  
  15500.  
  15501.  
  15502.  
  15503.  
  15504.  
  15505.  
  15506.  
  15507.  
  15508.  
  15509.  
  15510.  
  15511.  
  15512.  
  15513.  
  15514.  
  15515.  
  15516.  
  15517.  
  15518.  
  15519.  
  15520.  
  15521.  
  15522.  
  15523.  
  15524.  
  15525.  
  15526.  
  15527.  
  15528.  
  15529.  
  15530.  
  15531.  
  15532.  
  15533.  
  15534.  
  15535.  
  15536.  
  15537.  
  15538.  
  15539.  
  15540.  
  15541.  
  15542.  
  15543.  
  15544.  
  15545.  
  15546.  
  15547.  
  15548.  
  15549.  
  15550.  
  15551.  
  15552.  
  15553.  
  15554.  
  15555.  
  15556.  
  15557.  
  15558.  
  15559.  
  15560.  
  15561.  
  15562.  
  15563.  
  15564.  
  15565.  
  15566.  
  15567.  
  15568.  
  15569.  
  15570.  
  15571.  
  15572.  
  15573.  
  15574.  
  15575.  
  15576.  
  15577.  
  15578.  
  15579.  
  15580.  
  15581.  
  15582.  
  15583.  
  15584.  
  15585.  
  15586.  
  15587.  
  15588.  
  15589.  
  15590.  
  15591.  
  15592.  
  15593.  
  15594.  
  15595.  
  15596.  
  15597.  
  15598.  
  15599.  
  15600.  
  15601.  
  15602.  
  15603.  
  15604.  
  15605.  
  15606.  
  15607.  
  15608.  
  15609.  
  15610.  
  15611.  
  15612.  
  15613.  
  15614.  
  15615.  
  15616.  
  15617.  
  15618.  
  15619.  
  15620.  
  15621.  
  15622.  
  15623.  
  15624.  
  15625.  
  15626.  
  15627.  
  15628.  
  15629.  
  15630.  
  15631.  
  15632.  
  15633.  
  15634.  
  15635.  
  15636.  
  15637.  
  15638.  
  15639.  
  15640.  
  15641.  
  15642.  
  15643.  
  15644.  
  15645.  
  15646.  
  15647.  
  15648.  
  15649.  
  15650.  
  15651.  
  15652.  
  15653.  
  15654.  
  15655.  
  15656.  
  15657.  
  15658.  
  15659.  
  15660.  
  15661.  
  15662.  
  15663.  
  15664.  
  15665.  
  15666.  
  15667.  
  15668.  
  15669.  
  15670.  
  15671.  
  15672.  
  15673.  
  15674.  
  15675.  
  15676.  
  15677.  
  15678.  
  15679.  
  15680.  
  15681.  
  15682.  
  15683.  
  15684.  
  15685.  
  15686.  
  15687.  
  15688.  
  15689.  
  15690.  
  15691.  
  15692.  
  15693.  
  15694.  
  15695.  
  15696.  
  15697. /* Menulock stuff*/
  15698.  
  15699.  
  15700.  
  15701.  
  15702.  
  15703.  
  15704.  
  15705.  
  15706.  
  15707.  
  15708.  
  15709.  
  15710.  
  15711.  
  15712.  
  15713.  
  15714.  
  15715.  
  15716.  
  15717.  
  15718.  
  15719.  
  15720.  
  15721.  
  15722.  
  15723.  
  15724.  
  15725.  
  15726.  
  15727.  
  15728.  
  15729.  
  15730.  
  15731.  
  15732.  
  15733.  
  15734.  
  15735.  
  15736.  
  15737.  
  15738.  
  15739.  
  15740.  
  15741.  
  15742.  
  15743.  
  15744.  
  15745.  
  15746.  
  15747.  
  15748.  
  15749.  
  15750.  
  15751.  
  15752.  
  15753.  
  15754.  
  15755.  
  15756.  
  15757.  
  15758.  
  15759.  
  15760.  
  15761.  
  15762.  
  15763.  
  15764.  
  15765.  
  15766.  
  15767.  
  15768.  
  15769.  
  15770.  
  15771.  
  15772.  
  15773.  
  15774.  
  15775.  
  15776.  
  15777.  
  15778.  
  15779.  
  15780.  
  15781.  
  15782.  
  15783.  
  15784.  
  15785.  
  15786.  
  15787.  
  15788.  
  15789.  
  15790.  
  15791.  
  15792.  
  15793.  
  15794.  
  15795.  
  15796.  
  15797.  
  15798.  
  15799.  
  15800.  
  15801.  
  15802.  
  15803.  
  15804.  
  15805.  
  15806.  
  15807.  
  15808.  
  15809.  
  15810.  
  15811.  
  15812.  
  15813.  
  15814.  
  15815.  
  15816.  
  15817.  
  15818.  
  15819.  
  15820.  
  15821.  
  15822.  
  15823.  
  15824.  
  15825.  
  15826.  
  15827.  
  15828.  
  15829.  
  15830.  
  15831.  
  15832.  
  15833.  
  15834.  
  15835.  
  15836.  
  15837.  
  15838.  
  15839.  
  15840.  
  15841.  
  15842.  
  15843.  
  15844.  
  15845.  
  15846.  
  15847.  
  15848.  
  15849.  
  15850.  
  15851.  
  15852.  
  15853.  
  15854.  
  15855.  
  15856.  
  15857.  
  15858.  
  15859.  
  15860.  
  15861.  
  15862.  
  15863.  
  15864.  
  15865.  
  15866.  
  15867.  
  15868.  
  15869.  
  15870.  
  15871.  
  15872.  
  15873.  
  15874.  
  15875.  
  15876.  
  15877.  
  15878.  
  15879.  
  15880.  
  15881.  
  15882.  
  15883.  
  15884.  
  15885.  
  15886.  
  15887.  
  15888.  
  15889.  
  15890.  
  15891.  
  15892.  
  15893.  
  15894.  
  15895.  
  15896.  
  15897.  
  15898.  
  15899.  
  15900.  
  15901.  
  15902.  
  15903.  
  15904.  
  15905.  
  15906.  
  15907.  
  15908.  
  15909.  
  15910.  
  15911.  
  15912.  
  15913.  
  15914.  
  15915.  
  15916.  
  15917.  
  15918.  
  15919.  
  15920.  
  15921.  
  15922.  
  15923.  
  15924.  
  15925.  
  15926.  
  15927.  
  15928.  
  15929.  
  15930.  
  15931.  
  15932.  
  15933.  
  15934.  
  15935.  
  15936.  
  15937.  
  15938.  
  15939.  
  15940.  
  15941.  
  15942.  
  15943.  
  15944.  
  15945.  
  15946.  
  15947.  
  15948.  
  15949.  
  15950.  
  15951.  
  15952.  
  15953.  
  15954.  
  15955.  
  15956.  
  15957.  
  15958.  
  15959.  
  15960.  
  15961.  
  15962.  
  15963.  
  15964.  
  15965.  
  15966.  
  15967.  
  15968.  
  15969.  
  15970.  
  15971.  
  15972.  
  15973.  
  15974.  
  15975.  
  15976.  
  15977.  
  15978.  
  15979.  
  15980.  
  15981.  
  15982.  
  15983.  
  15984.  
  15985.  
  15986.  
  15987.  
  15988.  
  15989.  
  15990.  
  15991.  
  15992.  
  15993.  
  15994.  
  15995.  
  15996.  
  15997.  
  15998.  
  15999.  
  16000.  
  16001.  
  16002.  
  16003.  
  16004.  
  16005.  
  16006.  
  16007.  
  16008.  
  16009.  
  16010.  
  16011.  
  16012.  
  16013.  
  16014.  
  16015.  
  16016.  
  16017.  
  16018.  
  16019.  
  16020.  
  16021.  
  16022.  
  16023.  
  16024.  
  16025.  
  16026.  
  16027.  
  16028.  
  16029.  
  16030.  
  16031.  
  16032.  
  16033.  
  16034.  
  16035.  
  16036.  
  16037.  
  16038.  
  16039.  
  16040.  
  16041.  
  16042.  
  16043.  
  16044.  
  16045.  
  16046.  
  16047.  
  16048.  
  16049.  
  16050.  
  16051.  
  16052.  
  16053.  
  16054.  
  16055.  
  16056.  
  16057.  
  16058.  
  16059.  
  16060.  
  16061.  
  16062.  
  16063.  
  16064.  
  16065.  
  16066.  
  16067.  
  16068.  
  16069.  
  16070.  
  16071.  
  16072.  
  16073.  
  16074.  
  16075.  
  16076.  
  16077.  
  16078.  
  16079.  
  16080.  
  16081.  
  16082.  
  16083.  
  16084.  
  16085.  
  16086.  
  16087.  
  16088.  
  16089.  
  16090.  
  16091.  
  16092.  
  16093.  
  16094.  
  16095.  
  16096.  
  16097.  
  16098.  
  16099.  
  16100.  
  16101.  
  16102.  
  16103.  
  16104.  
  16105.  
  16106.  
  16107.  
  16108.  
  16109.  
  16110.  
  16111.  
  16112.  
  16113.  
  16114.  
  16115.  
  16116.  
  16117.  
  16118.  
  16119.  
  16120.  
  16121.  
  16122.  
  16123.  
  16124.  
  16125.  
  16126.  
  16127.  
  16128.  
  16129.  
  16130.  
  16131.  
  16132.  
  16133.  
  16134.  
  16135.  
  16136.  
  16137.  
  16138.  
  16139.  
  16140.  
  16141.  
  16142.  
  16143.  
  16144.  
  16145.  
  16146.  
  16147.  
  16148.  
  16149.  
  16150.  
  16151.  
  16152.  
  16153.  
  16154.  
  16155.  
  16156.  
  16157.  
  16158.  
  16159.  
  16160.  
  16161.  
  16162.  
  16163.  
  16164.  
  16165.  
  16166.  
  16167.  
  16168.  
  16169.  
  16170.  
  16171.  
  16172.  
  16173.  
  16174.  
  16175.  
  16176.  
  16177.  
  16178.  
  16179.  
  16180.  
  16181.  
  16182.  
  16183.  
  16184.  
  16185.  
  16186.  
  16187.  
  16188.  
  16189.  
  16190.  
  16191.  
  16192.  
  16193.  
  16194.  
  16195.  
  16196.  
  16197.  
  16198.  
  16199.  
  16200.  
  16201.  
  16202.  
  16203.  
  16204.  
  16205.  
  16206.  
  16207.  
  16208.  
  16209.   regPutN ("jogo", 1);
  16210.  
  16211.   menuLock (1);
  16212.  
  16213.   loadvrt ("map.vrt");
  16214.  
  16215.   clrtrig (me, 0);
  16216.  
  16217. }
  16218.  
  16219. if (share (1)==71)
  16220.  
  16221.   vis (me);
  16222.  
  16223. else
  16224.  
  16225.   invis (me);
  16226.  
  16227.  
  16228. end
  16229. End_Chunk
  16230.  
  16231. Chunk: ImageRef
  16232.  Number: 1
  16233.  Index: 1 Image: 50
  16234. End_Chunk
  16235. Chunk: Colours
  16236.  Number: 1
  16237.  0xA9
  16238. End_Chunk
  16239. ;
  16240. ;-------Object  118-------------------------------------------------------
  16241. ; 
  16242. Chunk: Standard
  16243.  Name:     "floor[118]"
  16244.  Number:   118
  16245.  Size:     42456 16000 200
  16246.  Position: 1992910 1000 1817600
  16247.  Type:     2
  16248.  Layer:    0
  16249. End_Chunk
  16250. Chunk: TexCoords
  16251.  Number: 1
  16252.  Mode:   0
  16253.  SubChunk
  16254.   Facet:     1
  16255.   ImageRef:  1
  16256.   PixScale:  0
  16257.   NumCoords: 4
  16258.     0.00000 0.00000
  16259.     0.00000 1.00000
  16260.     1.00000 1.00000
  16261.     1.00000 0.00000
  16262. End_Chunk
  16263. Chunk: SCL
  16264. if (activate (me, 0))
  16265.  
  16266. {
  16267.  
  16268.   share (70)=0;
  16269.  
  16270.   share (69)=0;
  16271.  
  16272.  
  16273.  
  16274.  
  16275.  
  16276.  
  16277.  
  16278.  
  16279.  
  16280.  
  16281.  
  16282.  
  16283.  
  16284.  
  16285.  
  16286.  
  16287.  
  16288.  
  16289.  
  16290.  
  16291.  
  16292.  
  16293.  
  16294.  
  16295.  
  16296.  
  16297.  
  16298.  
  16299.  
  16300.  
  16301.  
  16302.  
  16303.  
  16304.  
  16305.  
  16306.  
  16307.  
  16308.  
  16309.  
  16310.  
  16311.  
  16312.  
  16313.  
  16314.  
  16315.  
  16316.  
  16317.  
  16318.  
  16319.  
  16320.  
  16321.  
  16322.  
  16323.  
  16324.  
  16325.  
  16326.  
  16327.  
  16328.  
  16329.  
  16330.  
  16331.  
  16332.  
  16333.  
  16334.  
  16335.  
  16336.  
  16337.  
  16338.  
  16339.  
  16340.  
  16341.  
  16342.  
  16343.  
  16344.  
  16345.  
  16346.  
  16347.  
  16348.  
  16349.  
  16350.  
  16351.  
  16352.  
  16353.  
  16354.  
  16355.  
  16356.  
  16357.  
  16358.  
  16359.  
  16360.  
  16361.  
  16362.  
  16363.  
  16364.  
  16365.  
  16366.  
  16367.  
  16368.  
  16369.  
  16370.  
  16371.  
  16372.  
  16373.  
  16374.  
  16375.  
  16376.  
  16377.  
  16378.  
  16379.  
  16380.  
  16381.  
  16382.  
  16383.  
  16384.  
  16385.  
  16386.  
  16387.  
  16388.  
  16389.  
  16390.  
  16391.  
  16392.  
  16393.  
  16394.  
  16395.  
  16396.  
  16397.  
  16398.  
  16399.  
  16400.  
  16401.  
  16402.  
  16403.  
  16404.  
  16405.  
  16406.  
  16407.  
  16408.  
  16409.  
  16410.  
  16411.  
  16412.  
  16413.  
  16414.  
  16415.  
  16416.  
  16417.  
  16418.  
  16419.  
  16420.  
  16421.  
  16422.  
  16423.  
  16424.  
  16425.  
  16426.  
  16427.  
  16428.  
  16429.  
  16430.  
  16431.  
  16432.  
  16433.  
  16434.  
  16435.  
  16436.  
  16437.  
  16438.  
  16439.  
  16440.  
  16441.  
  16442.  
  16443.  
  16444.  
  16445.  
  16446.  
  16447.  
  16448.  
  16449.  
  16450.  
  16451.  
  16452.  
  16453.  
  16454.  
  16455.  
  16456.  
  16457.  
  16458.  
  16459.  
  16460.  
  16461.  
  16462.  
  16463.  
  16464.  
  16465.  
  16466.  
  16467.  
  16468.  
  16469.  
  16470.  
  16471.  
  16472.  
  16473.  
  16474.  
  16475.  
  16476.  
  16477.  
  16478.  
  16479.  
  16480.  
  16481.  
  16482.  
  16483.  
  16484.  
  16485.  
  16486.  
  16487.  
  16488.  
  16489.  
  16490.  
  16491.  
  16492.  
  16493.  
  16494.  
  16495.  
  16496.  
  16497.  
  16498.  
  16499.  
  16500.  
  16501.  
  16502.  
  16503.  
  16504.  
  16505.  
  16506.  
  16507.  
  16508.  
  16509.  
  16510.  
  16511.  
  16512.  
  16513.  
  16514.  
  16515.  
  16516.  
  16517.  
  16518.  
  16519.  
  16520.  
  16521.  
  16522.  
  16523.  
  16524.  
  16525.  
  16526.  
  16527.  
  16528.  
  16529.  
  16530.  
  16531.  
  16532.  
  16533.  
  16534.  
  16535.  
  16536.  
  16537.  
  16538.  
  16539.  
  16540.  
  16541.  
  16542.  
  16543.  
  16544.  
  16545.  
  16546.  
  16547.  
  16548.  
  16549.  
  16550.  
  16551.  
  16552.  
  16553.  
  16554.  
  16555.  
  16556.  
  16557.  
  16558.  
  16559.  
  16560.  
  16561.  
  16562.  
  16563.  
  16564.  
  16565.  
  16566.  
  16567.  
  16568.  
  16569.  
  16570.  
  16571.  
  16572.  
  16573.  
  16574.  
  16575.  
  16576.  
  16577.  
  16578.  
  16579.  
  16580.  
  16581.  
  16582.  
  16583.  
  16584.  
  16585.  
  16586.  
  16587.  
  16588.  
  16589.  
  16590.  
  16591.  
  16592.  
  16593.  
  16594.  
  16595.  
  16596.  
  16597.  
  16598.  
  16599.  
  16600.  
  16601.  
  16602.  
  16603.  
  16604.  
  16605.  
  16606.  
  16607.  
  16608.  
  16609.  
  16610.  
  16611.  
  16612.  
  16613.  
  16614.  
  16615.  
  16616.  
  16617.  
  16618.  
  16619.  
  16620.  
  16621.  
  16622.  
  16623.  
  16624.  
  16625.  
  16626.  
  16627.  
  16628.  
  16629.  
  16630.  
  16631.  
  16632.  
  16633.  
  16634.  
  16635.  
  16636.  
  16637.  
  16638.  
  16639.  
  16640.  
  16641.  
  16642.  
  16643.  
  16644.  
  16645.  
  16646.  
  16647.  
  16648.  
  16649.  
  16650.  
  16651.  
  16652.  
  16653.  
  16654.  
  16655.  
  16656.  
  16657.  
  16658.  
  16659.  
  16660.  
  16661.  
  16662.  
  16663.  
  16664.  
  16665.  
  16666.  
  16667.  
  16668.  
  16669.  
  16670.  
  16671.  
  16672.  
  16673.  
  16674.  
  16675.  
  16676.  
  16677.  
  16678.  
  16679.  
  16680.  
  16681.  
  16682.  
  16683.  
  16684.  
  16685.  
  16686.  
  16687.  
  16688.  
  16689.  
  16690.  
  16691.  
  16692.  
  16693.  
  16694.  
  16695.  
  16696.  
  16697.  
  16698.  
  16699.  
  16700.  
  16701.  
  16702.  
  16703.  
  16704.  
  16705.  
  16706.  
  16707.  
  16708.  
  16709.  
  16710.  
  16711.  
  16712.  
  16713.  
  16714.  
  16715.  
  16716.  
  16717.  
  16718.  
  16719.  
  16720.  
  16721.  
  16722.  
  16723.  
  16724.  
  16725.  
  16726.  
  16727.  
  16728.  
  16729.  
  16730.  
  16731.  
  16732.  
  16733.  
  16734.  
  16735.  
  16736.  
  16737.  
  16738.  
  16739.  
  16740.  
  16741.  
  16742.  
  16743.  
  16744.  
  16745.  
  16746.  
  16747.  
  16748.  
  16749.  
  16750.  
  16751.  
  16752.  
  16753.  
  16754.  
  16755.  
  16756.  
  16757.  
  16758.  
  16759.  
  16760.  
  16761.  
  16762.  
  16763.  
  16764.  
  16765.  
  16766.  
  16767.  
  16768.  
  16769.  
  16770.  
  16771.  
  16772.  
  16773.  
  16774.  
  16775.  
  16776.  
  16777.  
  16778.  
  16779.  
  16780.  
  16781.  
  16782.  
  16783.  
  16784.  
  16785.  
  16786.  
  16787.  
  16788.  
  16789.  
  16790.  
  16791.  
  16792.  
  16793.  
  16794.  
  16795.  
  16796.  
  16797.  
  16798.  
  16799.  
  16800.  
  16801.  
  16802.  
  16803.  
  16804.  
  16805.  
  16806.  
  16807.  
  16808.  
  16809.  
  16810.  
  16811.  
  16812.  
  16813.  
  16814.  
  16815.  
  16816.  
  16817.  
  16818.  
  16819.  
  16820.  
  16821.  
  16822.  
  16823.  
  16824.  
  16825.  
  16826.  
  16827.  
  16828.  
  16829.  
  16830.  
  16831.  
  16832.  
  16833.  
  16834.  
  16835.  
  16836.  
  16837.  
  16838.  
  16839.  
  16840.  
  16841.  
  16842.  
  16843.  
  16844.  
  16845.  
  16846.  
  16847.  
  16848.  
  16849.  
  16850.  
  16851.  
  16852.  
  16853.  
  16854.  
  16855.  
  16856.  
  16857.  
  16858.  
  16859.  
  16860.  
  16861.  
  16862.  
  16863.  
  16864.  
  16865.  
  16866.  
  16867.  
  16868.  
  16869.  
  16870.  
  16871.  
  16872.  
  16873.  
  16874.  
  16875.  
  16876.  
  16877.  
  16878.  
  16879.  
  16880.  
  16881.  
  16882.  
  16883.  
  16884.  
  16885.  
  16886.  
  16887.  
  16888.  
  16889.  
  16890.  
  16891.  
  16892.  
  16893.  
  16894.  
  16895.  
  16896.  
  16897.  
  16898.  
  16899.  
  16900.  
  16901.  
  16902.  
  16903.  
  16904.  
  16905.  
  16906.  
  16907.  
  16908.  
  16909.  
  16910.  
  16911.  
  16912.  
  16913.  
  16914.  
  16915.  
  16916.  
  16917.  
  16918.  
  16919.  
  16920.  
  16921.  
  16922.  
  16923.  
  16924.  
  16925.  
  16926.  
  16927.  
  16928.  
  16929.  
  16930.  
  16931.  
  16932.  
  16933.  
  16934.  
  16935.  
  16936.  
  16937.  
  16938.  
  16939.  
  16940.  
  16941.  
  16942.  
  16943.  
  16944.  
  16945.  
  16946.  
  16947.  
  16948.  
  16949.  
  16950.  
  16951.  
  16952.  
  16953.  
  16954.  
  16955.  
  16956.  
  16957.  
  16958.  
  16959.  
  16960.  
  16961.  
  16962.  
  16963.  
  16964.  
  16965.  
  16966.  
  16967.  
  16968.  
  16969.  
  16970.  
  16971.  
  16972.  
  16973.  
  16974.  
  16975.  
  16976.  
  16977.  
  16978.  
  16979.  
  16980.  
  16981.  
  16982.  
  16983.  
  16984.  
  16985.  
  16986.  
  16987.  
  16988.  
  16989.  
  16990.  
  16991.  
  16992.  
  16993.  
  16994.  
  16995.  
  16996.  
  16997.  
  16998.  
  16999.  
  17000.  
  17001.  
  17002.  
  17003.  
  17004.  
  17005.  
  17006.  
  17007.  
  17008.  
  17009.  
  17010.  
  17011.  
  17012.  
  17013.  
  17014.  
  17015.  
  17016.  
  17017.  
  17018.  
  17019.  
  17020.  
  17021.  
  17022.  
  17023.  
  17024.  
  17025.  
  17026.  
  17027.  
  17028.  
  17029.  
  17030.  
  17031.  
  17032.  
  17033.  
  17034.  
  17035.  
  17036.  
  17037.  
  17038.  
  17039.  
  17040.  
  17041.  
  17042.  
  17043.  
  17044.  
  17045.  
  17046.  
  17047.  
  17048.  
  17049.  
  17050.  
  17051.  
  17052.  
  17053.  
  17054.  
  17055.  
  17056.  
  17057.  
  17058.  
  17059.  
  17060.  
  17061.  
  17062.  
  17063.  
  17064.  
  17065.  
  17066.  
  17067.  
  17068.  
  17069.  
  17070.  
  17071.  
  17072.  
  17073.  
  17074.  
  17075.  
  17076.  
  17077.  
  17078.  
  17079.  
  17080.  
  17081.  
  17082.  
  17083.  
  17084.  
  17085.  
  17086.  
  17087.  
  17088.  
  17089.  
  17090.  
  17091.  
  17092.  
  17093.  
  17094.  
  17095.  
  17096.  
  17097.  
  17098.  
  17099.  
  17100.  
  17101.  
  17102.  
  17103.  
  17104.  
  17105.  
  17106.  
  17107.  
  17108.  
  17109.  
  17110.  
  17111.  
  17112.  
  17113.  
  17114.  
  17115.  
  17116.  
  17117.  
  17118.  
  17119.  
  17120.  
  17121.  
  17122.  
  17123.  
  17124.  
  17125.  
  17126.  
  17127.  
  17128.  
  17129.  
  17130.  
  17131.  
  17132.  
  17133.  
  17134.  
  17135.  
  17136.  
  17137.  
  17138.  
  17139.  
  17140.  
  17141.  
  17142.  
  17143.  
  17144.  
  17145.  
  17146.  
  17147.  
  17148.  
  17149.  
  17150.  
  17151.  
  17152.  
  17153.  
  17154.  
  17155.  
  17156.  
  17157.  
  17158.  
  17159.  
  17160.  
  17161.  
  17162.  
  17163.  
  17164.  
  17165.  
  17166.  
  17167.  
  17168.  
  17169.  
  17170.  
  17171.  
  17172.  
  17173.  
  17174.  
  17175.  
  17176.  
  17177.  
  17178.  
  17179.  
  17180.  
  17181.  
  17182.  
  17183.  
  17184.  
  17185.  
  17186.  
  17187.  
  17188.  
  17189.  
  17190.  
  17191.  
  17192.  
  17193.  
  17194.  
  17195.  
  17196.  
  17197.  
  17198.  
  17199.  
  17200.  
  17201.  
  17202.  
  17203.  
  17204.  
  17205.  
  17206.  
  17207.  
  17208.  
  17209.  
  17210.  
  17211.  
  17212.  
  17213.  
  17214.  
  17215.  
  17216.  
  17217.  
  17218.  
  17219.  
  17220.  
  17221.  
  17222.  
  17223.  
  17224.  
  17225.  
  17226.  
  17227.  
  17228.  
  17229.  
  17230.  
  17231.  
  17232.  
  17233.  
  17234.  
  17235.  
  17236.  
  17237.  
  17238.  
  17239.  
  17240.  
  17241.  
  17242.  
  17243.  
  17244.  
  17245.  
  17246.  
  17247.  
  17248.  
  17249.  
  17250.  
  17251.  
  17252.  
  17253.  
  17254.  
  17255.  
  17256.  
  17257.  
  17258.  
  17259.  
  17260.  
  17261.  
  17262.  
  17263.  
  17264.  
  17265.  
  17266.  
  17267.  
  17268.  
  17269.  
  17270.  
  17271.  
  17272.  
  17273.  
  17274.  
  17275.  
  17276.  
  17277.  
  17278.  
  17279.  
  17280.  
  17281.  
  17282.  
  17283.  
  17284. /* Menulock stuff*/
  17285.  
  17286.  
  17287.  
  17288.  
  17289.  
  17290.  
  17291.  
  17292.  
  17293.  
  17294.  
  17295.  
  17296.  
  17297.  
  17298.  
  17299.  
  17300.  
  17301.  
  17302.  
  17303.  
  17304.  
  17305.  
  17306.  
  17307.  
  17308.  
  17309.  
  17310.  
  17311.  
  17312.  
  17313.  
  17314.  
  17315.  
  17316.  
  17317.  
  17318.  
  17319.  
  17320.  
  17321.  
  17322.  
  17323.  
  17324.  
  17325.  
  17326.  
  17327.  
  17328.  
  17329.  
  17330.  
  17331.  
  17332.  
  17333.  
  17334.  
  17335.  
  17336.  
  17337.  
  17338.  
  17339.  
  17340.  
  17341.  
  17342.  
  17343.  
  17344.  
  17345.  
  17346.  
  17347.  
  17348.  
  17349.  
  17350.  
  17351.  
  17352.  
  17353.  
  17354.  
  17355.  
  17356.  
  17357.  
  17358.  
  17359.  
  17360.  
  17361.  
  17362.  
  17363.  
  17364.  
  17365.  
  17366.  
  17367.  
  17368.  
  17369.  
  17370.  
  17371.  
  17372.  
  17373.  
  17374.  
  17375.  
  17376.  
  17377.  
  17378.  
  17379.  
  17380.  
  17381.  
  17382.  
  17383.  
  17384.  
  17385.  
  17386.  
  17387.  
  17388.  
  17389.  
  17390.  
  17391.  
  17392.  
  17393.  
  17394.  
  17395.  
  17396.  
  17397.  
  17398.  
  17399.  
  17400.  
  17401.  
  17402.  
  17403.  
  17404.  
  17405.  
  17406.  
  17407.  
  17408.  
  17409.  
  17410.  
  17411.  
  17412.  
  17413.  
  17414.  
  17415.  
  17416.  
  17417.  
  17418.  
  17419.  
  17420.  
  17421.  
  17422.  
  17423.  
  17424.  
  17425.  
  17426.  
  17427.  
  17428.  
  17429.  
  17430.  
  17431.  
  17432.  
  17433.  
  17434.  
  17435.  
  17436.  
  17437.  
  17438.  
  17439.  
  17440.  
  17441.  
  17442.  
  17443.  
  17444.  
  17445.  
  17446.  
  17447.  
  17448.  
  17449.  
  17450.  
  17451.  
  17452.  
  17453.  
  17454.  
  17455.  
  17456.  
  17457.  
  17458.  
  17459.  
  17460.  
  17461.  
  17462.  
  17463.  
  17464.  
  17465.  
  17466.  
  17467.  
  17468.  
  17469.  
  17470.  
  17471.  
  17472.  
  17473.  
  17474.  
  17475.  
  17476.  
  17477.  
  17478.  
  17479.  
  17480.  
  17481.  
  17482.  
  17483.  
  17484.  
  17485.  
  17486.  
  17487.  
  17488.  
  17489.  
  17490.  
  17491.  
  17492.  
  17493.  
  17494.  
  17495.  
  17496.  
  17497.  
  17498.  
  17499.  
  17500.  
  17501.  
  17502.  
  17503.  
  17504.  
  17505.  
  17506.  
  17507.  
  17508.  
  17509.  
  17510.  
  17511.  
  17512.  
  17513.  
  17514.  
  17515.  
  17516.  
  17517.  
  17518.  
  17519.  
  17520.  
  17521.  
  17522.  
  17523.  
  17524.  
  17525.  
  17526.  
  17527.  
  17528.  
  17529.  
  17530.  
  17531.  
  17532.  
  17533.  
  17534.  
  17535.  
  17536.  
  17537.  
  17538.  
  17539.  
  17540.  
  17541.  
  17542.  
  17543.  
  17544.  
  17545.  
  17546.  
  17547.  
  17548.  
  17549.  
  17550.  
  17551.  
  17552.  
  17553.  
  17554.  
  17555.  
  17556.  
  17557.  
  17558.  
  17559.  
  17560.  
  17561.  
  17562.  
  17563.  
  17564.  
  17565.  
  17566.  
  17567.  
  17568.  
  17569.  
  17570.  
  17571.  
  17572.  
  17573.  
  17574.  
  17575.  
  17576.  
  17577.  
  17578.  
  17579.  
  17580.  
  17581.  
  17582.  
  17583.  
  17584.  
  17585.  
  17586.  
  17587.  
  17588.  
  17589.  
  17590.  
  17591.  
  17592.  
  17593.  
  17594.  
  17595.  
  17596.  
  17597.  
  17598.  
  17599.  
  17600.  
  17601.  
  17602.  
  17603.  
  17604.  
  17605.  
  17606.  
  17607.  
  17608.  
  17609.  
  17610.  
  17611.  
  17612.  
  17613.  
  17614.  
  17615.  
  17616.  
  17617.  
  17618.  
  17619.  
  17620.  
  17621.  
  17622.  
  17623.  
  17624.  
  17625.  
  17626.  
  17627.  
  17628.  
  17629.  
  17630.  
  17631.  
  17632.  
  17633.  
  17634.  
  17635.  
  17636.  
  17637.  
  17638.  
  17639.  
  17640.  
  17641.  
  17642.  
  17643.  
  17644.  
  17645.  
  17646.  
  17647.  
  17648.  
  17649.  
  17650.  
  17651.  
  17652.  
  17653.  
  17654.  
  17655.  
  17656.  
  17657.  
  17658.  
  17659.  
  17660.  
  17661.  
  17662.  
  17663.  
  17664.  
  17665.  
  17666.  
  17667.  
  17668.  
  17669.  
  17670.  
  17671.  
  17672.  
  17673.  
  17674.  
  17675.  
  17676.  
  17677.  
  17678.  
  17679.  
  17680.  
  17681.  
  17682.  
  17683.  
  17684.  
  17685.  
  17686.  
  17687.  
  17688.  
  17689.  
  17690.  
  17691.  
  17692.  
  17693.  
  17694.  
  17695.  
  17696.  
  17697.  
  17698.  
  17699.  
  17700.  
  17701.  
  17702.  
  17703.  
  17704.  
  17705.  
  17706.  
  17707.  
  17708.  
  17709.  
  17710.  
  17711.  
  17712.  
  17713.  
  17714.  
  17715.  
  17716.  
  17717.  
  17718.  
  17719.  
  17720.  
  17721.  
  17722.  
  17723.  
  17724.  
  17725.  
  17726.  
  17727.  
  17728.  
  17729.  
  17730.  
  17731.  
  17732.  
  17733.  
  17734.  
  17735.  
  17736.  
  17737.  
  17738.  
  17739.  
  17740.  
  17741.  
  17742.  
  17743.  
  17744.  
  17745.  
  17746.  
  17747.  
  17748.  
  17749.  
  17750.  
  17751.  
  17752.  
  17753.  
  17754.  
  17755.  
  17756.  
  17757.  
  17758.  
  17759.  
  17760.  
  17761.  
  17762.  
  17763.  
  17764.  
  17765.  
  17766.  
  17767.  
  17768.  
  17769.  
  17770.  
  17771.  
  17772.  
  17773.  
  17774.  
  17775.  
  17776.  
  17777.  
  17778.  
  17779.  
  17780.  
  17781.  
  17782.  
  17783.  
  17784.  
  17785.  
  17786.  
  17787.  
  17788.  
  17789.  
  17790.  
  17791.  
  17792.  
  17793.  
  17794.  
  17795.  
  17796.   regPutN ("jogo", 1);
  17797.  
  17798.   menuLock (1);
  17799.  
  17800.   loadvrt ("map.vrt");
  17801.  
  17802.   clrtrig (me, 0);
  17803.  
  17804. }
  17805.  
  17806. if (share (1)==72)
  17807.  
  17808.   vis (me);
  17809.  
  17810. else
  17811.  
  17812.   invis (me);
  17813.  
  17814.  
  17815. end
  17816. End_Chunk
  17817.  
  17818. Chunk: ImageRef
  17819.  Number: 1
  17820.  Index: 1 Image: 47
  17821. End_Chunk
  17822. Chunk: Colours
  17823.  Number: 1
  17824.  0xA9
  17825. End_Chunk
  17826. ;
  17827. ;-------Object  119-------------------------------------------------------
  17828. ; 
  17829. Chunk: Standard
  17830.  Name:     "floor[119]"
  17831.  Number:   119
  17832.  Size:     42456 16000 200
  17833.  Position: 1992910 1000 1811600
  17834.  Type:     2
  17835.  Layer:    0
  17836. End_Chunk
  17837. Chunk: TexCoords
  17838.  Number: 1
  17839.  Mode:   0
  17840.  SubChunk
  17841.   Facet:     1
  17842.   ImageRef:  1
  17843.   PixScale:  0
  17844.   NumCoords: 4
  17845.     0.00000 0.00000
  17846.     0.00000 1.00000
  17847.     1.00000 1.00000
  17848.     1.00000 0.00000
  17849. End_Chunk
  17850. Chunk: SCL
  17851. if (activate (me, 0))
  17852.  
  17853. {
  17854.  
  17855.   share (70)=0;
  17856.  
  17857.   share (69)=0;
  17858.  
  17859.  
  17860.  
  17861.  
  17862.  
  17863.  
  17864.  
  17865.  
  17866.  
  17867.  
  17868.  
  17869.  
  17870.  
  17871.  
  17872.  
  17873.  
  17874.  
  17875.  
  17876.  
  17877.  
  17878.  
  17879.  
  17880.  
  17881.  
  17882.  
  17883.  
  17884.  
  17885.  
  17886.  
  17887.  
  17888.  
  17889.  
  17890.  
  17891.  
  17892.  
  17893.  
  17894.  
  17895.  
  17896.  
  17897.  
  17898.  
  17899.  
  17900.  
  17901.  
  17902.  
  17903.  
  17904.  
  17905.  
  17906.  
  17907.  
  17908.  
  17909.  
  17910.  
  17911.  
  17912.  
  17913.  
  17914.  
  17915.  
  17916.  
  17917.  
  17918.  
  17919.  
  17920.  
  17921.  
  17922.  
  17923.  
  17924.  
  17925.  
  17926.  
  17927.  
  17928.  
  17929.  
  17930.  
  17931.  
  17932.  
  17933.  
  17934.  
  17935.  
  17936.  
  17937.  
  17938.  
  17939.  
  17940.  
  17941.  
  17942.  
  17943.  
  17944.  
  17945.  
  17946.  
  17947.  
  17948.  
  17949.  
  17950.  
  17951.  
  17952.  
  17953.  
  17954.  
  17955.  
  17956.  
  17957.  
  17958.  
  17959.  
  17960.  
  17961.  
  17962.  
  17963.  
  17964.  
  17965.  
  17966.  
  17967.  
  17968.  
  17969.  
  17970.  
  17971.  
  17972.  
  17973.  
  17974.  
  17975.  
  17976.  
  17977.  
  17978.  
  17979.  
  17980.  
  17981.  
  17982.  
  17983.  
  17984.  
  17985.  
  17986.  
  17987.  
  17988.  
  17989.  
  17990.  
  17991.  
  17992.  
  17993.  
  17994.  
  17995.  
  17996.  
  17997.  
  17998.  
  17999.  
  18000.  
  18001.  
  18002.  
  18003.  
  18004.  
  18005.  
  18006.  
  18007.  
  18008.  
  18009.  
  18010.  
  18011.  
  18012.  
  18013.  
  18014.  
  18015.  
  18016.  
  18017.  
  18018.  
  18019.  
  18020.  
  18021.  
  18022.  
  18023.  
  18024.  
  18025.  
  18026.  
  18027.  
  18028.  
  18029.  
  18030.  
  18031.  
  18032.  
  18033.  
  18034.  
  18035.  
  18036.  
  18037.  
  18038.  
  18039.  
  18040.  
  18041.  
  18042.  
  18043.  
  18044.  
  18045.  
  18046.  
  18047.  
  18048.  
  18049.  
  18050.  
  18051.  
  18052.  
  18053.  
  18054.  
  18055.  
  18056.  
  18057.  
  18058.  
  18059.  
  18060.  
  18061.  
  18062.  
  18063.  
  18064.  
  18065.  
  18066.  
  18067.  
  18068.  
  18069.  
  18070.  
  18071.  
  18072.  
  18073.  
  18074.  
  18075.  
  18076.  
  18077.  
  18078.  
  18079.  
  18080.  
  18081.  
  18082.  
  18083.  
  18084.  
  18085.  
  18086.  
  18087.  
  18088.  
  18089.  
  18090.  
  18091.  
  18092.  
  18093.  
  18094.  
  18095.  
  18096.  
  18097.  
  18098.  
  18099.  
  18100.  
  18101.  
  18102.  
  18103.  
  18104.  
  18105.  
  18106.  
  18107.  
  18108.  
  18109.  
  18110.  
  18111.  
  18112.  
  18113.  
  18114.  
  18115.  
  18116.  
  18117.  
  18118.  
  18119.  
  18120.  
  18121.  
  18122.  
  18123.  
  18124.  
  18125.  
  18126.  
  18127.  
  18128.  
  18129.  
  18130.  
  18131.  
  18132.  
  18133.  
  18134.  
  18135.  
  18136.  
  18137.  
  18138.  
  18139.  
  18140.  
  18141.  
  18142.  
  18143.  
  18144.  
  18145.  
  18146.  
  18147.  
  18148.  
  18149.  
  18150.  
  18151.  
  18152.  
  18153.  
  18154.  
  18155.  
  18156.  
  18157.  
  18158.  
  18159.  
  18160.  
  18161.  
  18162.  
  18163.  
  18164.  
  18165.  
  18166.  
  18167.  
  18168.  
  18169.  
  18170.  
  18171.  
  18172.  
  18173.  
  18174.  
  18175.  
  18176.  
  18177.  
  18178.  
  18179.  
  18180.  
  18181.  
  18182.  
  18183.  
  18184.  
  18185.  
  18186.  
  18187.  
  18188.  
  18189.  
  18190.  
  18191.  
  18192.  
  18193.  
  18194.  
  18195.  
  18196.  
  18197.  
  18198.  
  18199.  
  18200.  
  18201.  
  18202.  
  18203.  
  18204.  
  18205.  
  18206.  
  18207.  
  18208.  
  18209.  
  18210.  
  18211.  
  18212.  
  18213.  
  18214.  
  18215.  
  18216.  
  18217.  
  18218.  
  18219.  
  18220.  
  18221.  
  18222.  
  18223.  
  18224.  
  18225.  
  18226.  
  18227.  
  18228.  
  18229.  
  18230.  
  18231.  
  18232.  
  18233.  
  18234.  
  18235.  
  18236.  
  18237.  
  18238.  
  18239.  
  18240.  
  18241.  
  18242.  
  18243.  
  18244.  
  18245.  
  18246.  
  18247.  
  18248.  
  18249.  
  18250.  
  18251.  
  18252.  
  18253.  
  18254.  
  18255.  
  18256.  
  18257.  
  18258.  
  18259.  
  18260.  
  18261.  
  18262.  
  18263.  
  18264.  
  18265.  
  18266.  
  18267.  
  18268.  
  18269.  
  18270.  
  18271.  
  18272.  
  18273.  
  18274.  
  18275.  
  18276.  
  18277.  
  18278.  
  18279.  
  18280.  
  18281.  
  18282.  
  18283.  
  18284.  
  18285.  
  18286.  
  18287.  
  18288.  
  18289.  
  18290.  
  18291.  
  18292.  
  18293.  
  18294.  
  18295.  
  18296.  
  18297.  
  18298.  
  18299.  
  18300.  
  18301.  
  18302.  
  18303.  
  18304.  
  18305.  
  18306.  
  18307.  
  18308.  
  18309.  
  18310.  
  18311.  
  18312.  
  18313.  
  18314.  
  18315.  
  18316.  
  18317.  
  18318.  
  18319.  
  18320.  
  18321.  
  18322.  
  18323.  
  18324.  
  18325.  
  18326.  
  18327.  
  18328.  
  18329.  
  18330.  
  18331.  
  18332.  
  18333.  
  18334.  
  18335.  
  18336.  
  18337.  
  18338.  
  18339.  
  18340.  
  18341.  
  18342.  
  18343.  
  18344.  
  18345.  
  18346.  
  18347.  
  18348.  
  18349.  
  18350.  
  18351.  
  18352.  
  18353.  
  18354.  
  18355.  
  18356.  
  18357.  
  18358.  
  18359.  
  18360.  
  18361.  
  18362.  
  18363.  
  18364.  
  18365.  
  18366.  
  18367.  
  18368.  
  18369.  
  18370.  
  18371.  
  18372.  
  18373.  
  18374.  
  18375.  
  18376.  
  18377.  
  18378.  
  18379.  
  18380.  
  18381.  
  18382.  
  18383.  
  18384.  
  18385.  
  18386.  
  18387.  
  18388.  
  18389.  
  18390.  
  18391.  
  18392.  
  18393.  
  18394.  
  18395.  
  18396.  
  18397.  
  18398.  
  18399.  
  18400.  
  18401.  
  18402.  
  18403.  
  18404.  
  18405.  
  18406.  
  18407.  
  18408.  
  18409.  
  18410.  
  18411.  
  18412.  
  18413.  
  18414.  
  18415.  
  18416.  
  18417.  
  18418.  
  18419.  
  18420.  
  18421.  
  18422.  
  18423.  
  18424.  
  18425.  
  18426.  
  18427.  
  18428.  
  18429.  
  18430.  
  18431.  
  18432.  
  18433.  
  18434.  
  18435.  
  18436.  
  18437.  
  18438.  
  18439.  
  18440.  
  18441.  
  18442.  
  18443.  
  18444.  
  18445.  
  18446.  
  18447.  
  18448.  
  18449.  
  18450.  
  18451.  
  18452.  
  18453.  
  18454.  
  18455.  
  18456.  
  18457.  
  18458.  
  18459.  
  18460.  
  18461.  
  18462.  
  18463.  
  18464.  
  18465.  
  18466.  
  18467.  
  18468.  
  18469.  
  18470.  
  18471.  
  18472.  
  18473.  
  18474.  
  18475.  
  18476.  
  18477.  
  18478.  
  18479.  
  18480.  
  18481.  
  18482.  
  18483.  
  18484.  
  18485.  
  18486.  
  18487.  
  18488.  
  18489.  
  18490.  
  18491.  
  18492.  
  18493.  
  18494.  
  18495.  
  18496.  
  18497.  
  18498.  
  18499.  
  18500.  
  18501.  
  18502.  
  18503.  
  18504.  
  18505.  
  18506.  
  18507.  
  18508.  
  18509.  
  18510.  
  18511.  
  18512.  
  18513.  
  18514.  
  18515.  
  18516.  
  18517.  
  18518.  
  18519.  
  18520.  
  18521.  
  18522.  
  18523.  
  18524.  
  18525.  
  18526.  
  18527.  
  18528.  
  18529.  
  18530.  
  18531.  
  18532.  
  18533.  
  18534.  
  18535.  
  18536.  
  18537.  
  18538.  
  18539.  
  18540.  
  18541.  
  18542.  
  18543.  
  18544.  
  18545.  
  18546.  
  18547.  
  18548.  
  18549.  
  18550.  
  18551.  
  18552.  
  18553.  
  18554.  
  18555.  
  18556.  
  18557.  
  18558.  
  18559.  
  18560.  
  18561.  
  18562.  
  18563.  
  18564.  
  18565.  
  18566.  
  18567.  
  18568.  
  18569.  
  18570.  
  18571.  
  18572.  
  18573.  
  18574.  
  18575.  
  18576.  
  18577.  
  18578.  
  18579.  
  18580.  
  18581.  
  18582.  
  18583.  
  18584.  
  18585.  
  18586.  
  18587.  
  18588.  
  18589.  
  18590.  
  18591.  
  18592.  
  18593.  
  18594.  
  18595.  
  18596.  
  18597.  
  18598.  
  18599.  
  18600.  
  18601.  
  18602.  
  18603.  
  18604.  
  18605.  
  18606.  
  18607.  
  18608.  
  18609.  
  18610.  
  18611.  
  18612.  
  18613.  
  18614.  
  18615.  
  18616.  
  18617.  
  18618.  
  18619.  
  18620.  
  18621.  
  18622.  
  18623.  
  18624.  
  18625.  
  18626.  
  18627.  
  18628.  
  18629.  
  18630.  
  18631.  
  18632.  
  18633.  
  18634.  
  18635.  
  18636.  
  18637.  
  18638.  
  18639.  
  18640.  
  18641.  
  18642.  
  18643.  
  18644.  
  18645.  
  18646.  
  18647.  
  18648.  
  18649.  
  18650.  
  18651.  
  18652.  
  18653.  
  18654.  
  18655.  
  18656.  
  18657.  
  18658.  
  18659.  
  18660.  
  18661.  
  18662.  
  18663.  
  18664.  
  18665.  
  18666.  
  18667.  
  18668.  
  18669.  
  18670.  
  18671.  
  18672.  
  18673.  
  18674.  
  18675.  
  18676.  
  18677.  
  18678.  
  18679.  
  18680.  
  18681.  
  18682.  
  18683.  
  18684.  
  18685.  
  18686.  
  18687.  
  18688.  
  18689.  
  18690.  
  18691.  
  18692.  
  18693.  
  18694.  
  18695.  
  18696.  
  18697.  
  18698.  
  18699.  
  18700.  
  18701.  
  18702.  
  18703.  
  18704.  
  18705.  
  18706.  
  18707.  
  18708.  
  18709.  
  18710.  
  18711.  
  18712.  
  18713.  
  18714.  
  18715.  
  18716.  
  18717.  
  18718.  
  18719.  
  18720.  
  18721.  
  18722.  
  18723.  
  18724.  
  18725.  
  18726.  
  18727.  
  18728.  
  18729.  
  18730.  
  18731.  
  18732.  
  18733.  
  18734.  
  18735.  
  18736.  
  18737.  
  18738.  
  18739.  
  18740.  
  18741.  
  18742.  
  18743.  
  18744.  
  18745.  
  18746.  
  18747.  
  18748.  
  18749.  
  18750.  
  18751.  
  18752.  
  18753.  
  18754.  
  18755.  
  18756.  
  18757.  
  18758.  
  18759.  
  18760.  
  18761.  
  18762.  
  18763.  
  18764.  
  18765.  
  18766.  
  18767.  
  18768.  
  18769.  
  18770.  
  18771.  
  18772.  
  18773.  
  18774.  
  18775.  
  18776.  
  18777.  
  18778.  
  18779.  
  18780.  
  18781.  
  18782.  
  18783.  
  18784.  
  18785.  
  18786.  
  18787.  
  18788.  
  18789.  
  18790.  
  18791.  
  18792.  
  18793.  
  18794.  
  18795.  
  18796.  
  18797.  
  18798.  
  18799.  
  18800.  
  18801.  
  18802.  
  18803.  
  18804.  
  18805.  
  18806.  
  18807.  
  18808.  
  18809.  
  18810.  
  18811.  
  18812.  
  18813.  
  18814.  
  18815.  
  18816.  
  18817.  
  18818.  
  18819.  
  18820.  
  18821.  
  18822.  
  18823.  
  18824.  
  18825.  
  18826.  
  18827.  
  18828.  
  18829.  
  18830.  
  18831.  
  18832.  
  18833.  
  18834.  
  18835.  
  18836.  
  18837.  
  18838.  
  18839.  
  18840.  
  18841.  
  18842.  
  18843.  
  18844.  
  18845.  
  18846.  
  18847.  
  18848.  
  18849.  
  18850.  
  18851.  
  18852.  
  18853.  
  18854.  
  18855.  
  18856.  
  18857.  
  18858.  
  18859.  
  18860.  
  18861.  
  18862.  
  18863.  
  18864.  
  18865.  
  18866.  
  18867.  
  18868.  
  18869.  
  18870.  
  18871. /* Menulock stuff*/
  18872.  
  18873.  
  18874.  
  18875.  
  18876.  
  18877.  
  18878.  
  18879.  
  18880.  
  18881.  
  18882.  
  18883.  
  18884.  
  18885.  
  18886.  
  18887.  
  18888.  
  18889.  
  18890.  
  18891.  
  18892.  
  18893.  
  18894.  
  18895.  
  18896.  
  18897.  
  18898.  
  18899.  
  18900.  
  18901.  
  18902.  
  18903.  
  18904.  
  18905.  
  18906.  
  18907.  
  18908.  
  18909.  
  18910.  
  18911.  
  18912.  
  18913.  
  18914.  
  18915.  
  18916.  
  18917.  
  18918.  
  18919.  
  18920.  
  18921.  
  18922.  
  18923.  
  18924.  
  18925.  
  18926.  
  18927.  
  18928.  
  18929.  
  18930.  
  18931.  
  18932.  
  18933.  
  18934.  
  18935.  
  18936.  
  18937.  
  18938.  
  18939.  
  18940.  
  18941.  
  18942.  
  18943.  
  18944.  
  18945.  
  18946.  
  18947.  
  18948.  
  18949.  
  18950.  
  18951.  
  18952.  
  18953.  
  18954.  
  18955.  
  18956.  
  18957.  
  18958.  
  18959.  
  18960.  
  18961.  
  18962.  
  18963.  
  18964.  
  18965.  
  18966.  
  18967.  
  18968.  
  18969.  
  18970.  
  18971.  
  18972.  
  18973.  
  18974.  
  18975.  
  18976.  
  18977.  
  18978.  
  18979.  
  18980.  
  18981.  
  18982.  
  18983.  
  18984.  
  18985.  
  18986.  
  18987.  
  18988.  
  18989.  
  18990.  
  18991.  
  18992.  
  18993.  
  18994.  
  18995.  
  18996.  
  18997.  
  18998.  
  18999.  
  19000.  
  19001.  
  19002.  
  19003.  
  19004.  
  19005.  
  19006.  
  19007.  
  19008.  
  19009.  
  19010.  
  19011.  
  19012.  
  19013.  
  19014.  
  19015.  
  19016.  
  19017.  
  19018.  
  19019.  
  19020.  
  19021.  
  19022.  
  19023.  
  19024.  
  19025.  
  19026.  
  19027.  
  19028.  
  19029.  
  19030.  
  19031.  
  19032.  
  19033.  
  19034.  
  19035.  
  19036.  
  19037.  
  19038.  
  19039.  
  19040.  
  19041.  
  19042.  
  19043.  
  19044.  
  19045.  
  19046.  
  19047.  
  19048.  
  19049.  
  19050.  
  19051.  
  19052.  
  19053.  
  19054.  
  19055.  
  19056.  
  19057.  
  19058.  
  19059.  
  19060.  
  19061.  
  19062.  
  19063.  
  19064.  
  19065.  
  19066.  
  19067.  
  19068.  
  19069.  
  19070.  
  19071.  
  19072.  
  19073.  
  19074.  
  19075.  
  19076.  
  19077.  
  19078.  
  19079.  
  19080.  
  19081.  
  19082.  
  19083.  
  19084.  
  19085.  
  19086.  
  19087.  
  19088.  
  19089.  
  19090.  
  19091.  
  19092.  
  19093.  
  19094.  
  19095.  
  19096.  
  19097.  
  19098.  
  19099.  
  19100.  
  19101.  
  19102.  
  19103.  
  19104.  
  19105.  
  19106.  
  19107.  
  19108.  
  19109.  
  19110.  
  19111.  
  19112.  
  19113.  
  19114.  
  19115.  
  19116.  
  19117.  
  19118.  
  19119.  
  19120.  
  19121.  
  19122.  
  19123.  
  19124.  
  19125.  
  19126.  
  19127.  
  19128.  
  19129.  
  19130.  
  19131.  
  19132.  
  19133.  
  19134.  
  19135.  
  19136.  
  19137.  
  19138.  
  19139.  
  19140.  
  19141.  
  19142.  
  19143.  
  19144.  
  19145.  
  19146.  
  19147.  
  19148.  
  19149.  
  19150.  
  19151.  
  19152.  
  19153.  
  19154.  
  19155.  
  19156.  
  19157.  
  19158.  
  19159.  
  19160.  
  19161.  
  19162.  
  19163.  
  19164.  
  19165.  
  19166.  
  19167.  
  19168.  
  19169.  
  19170.  
  19171.  
  19172.  
  19173.  
  19174.  
  19175.  
  19176.  
  19177.  
  19178.  
  19179.  
  19180.  
  19181.  
  19182.  
  19183.  
  19184.  
  19185.  
  19186.  
  19187.  
  19188.  
  19189.  
  19190.  
  19191.  
  19192.  
  19193.  
  19194.  
  19195.  
  19196.  
  19197.  
  19198.  
  19199.  
  19200.  
  19201.  
  19202.  
  19203.  
  19204.  
  19205.  
  19206.  
  19207.  
  19208.  
  19209.  
  19210.  
  19211.  
  19212.  
  19213.  
  19214.  
  19215.  
  19216.  
  19217.  
  19218.  
  19219.  
  19220.  
  19221.  
  19222.  
  19223.  
  19224.  
  19225.  
  19226.  
  19227.  
  19228.  
  19229.  
  19230.  
  19231.  
  19232.  
  19233.  
  19234.  
  19235.  
  19236.  
  19237.  
  19238.  
  19239.  
  19240.  
  19241.  
  19242.  
  19243.  
  19244.  
  19245.  
  19246.  
  19247.  
  19248.  
  19249.  
  19250.  
  19251.  
  19252.  
  19253.  
  19254.  
  19255.  
  19256.  
  19257.  
  19258.  
  19259.  
  19260.  
  19261.  
  19262.  
  19263.  
  19264.  
  19265.  
  19266.  
  19267.  
  19268.  
  19269.  
  19270.  
  19271.  
  19272.  
  19273.  
  19274.  
  19275.  
  19276.  
  19277.  
  19278.  
  19279.  
  19280.  
  19281.  
  19282.  
  19283.  
  19284.  
  19285.  
  19286.  
  19287.  
  19288.  
  19289.  
  19290.  
  19291.  
  19292.  
  19293.  
  19294.  
  19295.  
  19296.  
  19297.  
  19298.  
  19299.  
  19300.  
  19301.  
  19302.  
  19303.  
  19304.  
  19305.  
  19306.  
  19307.  
  19308.  
  19309.  
  19310.  
  19311.  
  19312.  
  19313.  
  19314.  
  19315.  
  19316.  
  19317.  
  19318.  
  19319.  
  19320.  
  19321.  
  19322.  
  19323.  
  19324.  
  19325.  
  19326.  
  19327.  
  19328.  
  19329.  
  19330.  
  19331.  
  19332.  
  19333.  
  19334.  
  19335.  
  19336.  
  19337.  
  19338.  
  19339.  
  19340.  
  19341.  
  19342.  
  19343.  
  19344.  
  19345.  
  19346.  
  19347.  
  19348.  
  19349.  
  19350.  
  19351.  
  19352.  
  19353.  
  19354.  
  19355.  
  19356.  
  19357.  
  19358.  
  19359.  
  19360.  
  19361.  
  19362.  
  19363.  
  19364.  
  19365.  
  19366.  
  19367.  
  19368.  
  19369.  
  19370.  
  19371.  
  19372.  
  19373.  
  19374.  
  19375.  
  19376.  
  19377.  
  19378.  
  19379.  
  19380.  
  19381.  
  19382.  
  19383.   regPutN ("jogo", 1);
  19384.  
  19385.   menuLock (1);
  19386.  
  19387.   loadvrt ("map.vrt");
  19388.  
  19389.   clrtrig (me, 0);
  19390.  
  19391. }
  19392.  
  19393. if (share (1)==73)
  19394.  
  19395.   vis (me);
  19396.  
  19397. else
  19398.  
  19399.   invis (me);
  19400.  
  19401.  
  19402. end
  19403. End_Chunk
  19404.  
  19405. Chunk: ImageRef
  19406.  Number: 1
  19407.  Index: 1 Image: 48
  19408. End_Chunk
  19409. Chunk: Colours
  19410.  Number: 1
  19411.  0xA9
  19412. End_Chunk
  19413. ;
  19414. ;-------Object  120-------------------------------------------------------
  19415. ; 
  19416. Chunk: Standard
  19417.  Name:     "floor[120]"
  19418.  Number:   120
  19419.  Size:     47456 16000 200
  19420.  Position: 1992910 1000 1805600
  19421.  Type:     2
  19422.  Layer:    0
  19423. End_Chunk
  19424. Chunk: TexCoords
  19425.  Number: 1
  19426.  Mode:   0
  19427.  SubChunk
  19428.   Facet:     1
  19429.   ImageRef:  1
  19430.   PixScale:  0
  19431.   NumCoords: 4
  19432.     0.00000 0.00000
  19433.     0.00000 1.00000
  19434.     1.00000 1.00000
  19435.     1.00000 0.00000
  19436. End_Chunk
  19437. Chunk: SCL
  19438. if (activate (me, 0))
  19439.  
  19440. {
  19441.  
  19442.   share (70)=0;
  19443.  
  19444.   share (69)=0;
  19445.  
  19446.  
  19447.  
  19448.  
  19449.  
  19450.  
  19451.  
  19452.  
  19453.  
  19454.  
  19455.  
  19456.  
  19457.  
  19458.  
  19459.  
  19460.  
  19461.  
  19462.  
  19463.  
  19464.  
  19465.  
  19466.  
  19467.  
  19468.  
  19469.  
  19470.  
  19471.  
  19472.  
  19473.  
  19474.  
  19475.  
  19476.  
  19477.  
  19478.  
  19479.  
  19480.  
  19481.  
  19482.  
  19483.  
  19484.  
  19485.  
  19486.  
  19487.  
  19488.  
  19489.  
  19490.  
  19491.  
  19492.  
  19493.  
  19494.  
  19495.  
  19496.  
  19497.  
  19498.  
  19499.  
  19500.  
  19501.  
  19502.  
  19503.  
  19504.  
  19505.  
  19506.  
  19507.  
  19508.  
  19509.  
  19510.  
  19511.  
  19512.  
  19513.  
  19514.  
  19515.  
  19516.  
  19517.  
  19518.  
  19519.  
  19520.  
  19521.  
  19522.  
  19523.  
  19524.  
  19525.  
  19526.  
  19527.  
  19528.  
  19529.  
  19530.  
  19531.  
  19532.  
  19533.  
  19534.  
  19535.  
  19536.  
  19537.  
  19538.  
  19539.  
  19540.  
  19541.  
  19542.  
  19543.  
  19544.  
  19545.  
  19546.  
  19547.  
  19548.  
  19549.  
  19550.  
  19551.  
  19552.  
  19553.  
  19554.  
  19555.  
  19556.  
  19557.  
  19558.  
  19559.  
  19560.  
  19561.  
  19562.  
  19563.  
  19564.  
  19565.  
  19566.  
  19567.  
  19568.  
  19569.  
  19570.  
  19571.  
  19572.  
  19573.  
  19574.  
  19575.  
  19576.  
  19577.  
  19578.  
  19579.  
  19580.  
  19581.  
  19582.  
  19583.  
  19584.  
  19585.  
  19586.  
  19587.  
  19588.  
  19589.  
  19590.  
  19591.  
  19592.  
  19593.  
  19594.  
  19595.  
  19596.  
  19597.  
  19598.  
  19599.  
  19600.  
  19601.  
  19602.  
  19603.  
  19604.  
  19605.  
  19606.  
  19607.  
  19608.  
  19609.  
  19610.  
  19611.  
  19612.  
  19613.  
  19614.  
  19615.  
  19616.  
  19617.  
  19618.  
  19619.  
  19620.  
  19621.  
  19622.  
  19623.  
  19624.  
  19625.  
  19626.  
  19627.  
  19628.  
  19629.  
  19630.  
  19631.  
  19632.  
  19633.  
  19634.  
  19635.  
  19636.  
  19637.  
  19638.  
  19639.  
  19640.  
  19641.  
  19642.  
  19643.  
  19644.  
  19645.  
  19646.  
  19647.  
  19648.  
  19649.  
  19650.  
  19651.  
  19652.  
  19653.  
  19654.  
  19655.  
  19656.  
  19657.  
  19658.  
  19659.  
  19660.  
  19661.  
  19662.  
  19663.  
  19664.  
  19665.  
  19666.  
  19667.  
  19668.  
  19669.  
  19670.  
  19671.  
  19672.  
  19673.  
  19674.  
  19675.  
  19676.  
  19677.  
  19678.  
  19679.  
  19680.  
  19681.  
  19682.  
  19683.  
  19684.  
  19685.  
  19686.  
  19687.  
  19688.  
  19689.  
  19690.  
  19691.  
  19692.  
  19693.  
  19694.  
  19695.  
  19696.  
  19697.  
  19698.  
  19699.  
  19700.  
  19701.  
  19702.  
  19703.  
  19704.  
  19705.  
  19706.  
  19707.  
  19708.  
  19709.  
  19710.  
  19711.  
  19712.  
  19713.  
  19714.  
  19715.  
  19716.  
  19717.  
  19718.  
  19719.  
  19720.  
  19721.  
  19722.  
  19723.  
  19724.  
  19725.  
  19726.  
  19727.  
  19728.  
  19729.  
  19730.  
  19731.  
  19732.  
  19733.  
  19734.  
  19735.  
  19736.  
  19737.  
  19738.  
  19739.  
  19740.  
  19741.  
  19742.  
  19743.  
  19744.  
  19745.  
  19746.  
  19747.  
  19748.  
  19749.  
  19750.  
  19751.  
  19752.  
  19753.  
  19754.  
  19755.  
  19756.  
  19757.  
  19758.  
  19759.  
  19760.  
  19761.  
  19762.  
  19763.  
  19764.  
  19765.  
  19766.  
  19767.  
  19768.  
  19769.  
  19770.  
  19771.  
  19772.  
  19773.  
  19774.  
  19775.  
  19776.  
  19777.  
  19778.  
  19779.  
  19780.  
  19781.  
  19782.  
  19783.  
  19784.  
  19785.  
  19786.  
  19787.  
  19788.  
  19789.  
  19790.  
  19791.  
  19792.  
  19793.  
  19794.  
  19795.  
  19796.  
  19797.  
  19798.  
  19799.  
  19800.  
  19801.  
  19802.  
  19803.  
  19804.  
  19805.  
  19806.  
  19807.  
  19808.  
  19809.  
  19810.  
  19811.  
  19812.  
  19813.  
  19814.  
  19815.  
  19816.  
  19817.  
  19818.  
  19819.  
  19820.  
  19821.  
  19822.  
  19823.  
  19824.  
  19825.  
  19826.  
  19827.  
  19828.  
  19829.  
  19830.  
  19831.  
  19832.  
  19833.  
  19834.  
  19835.  
  19836.  
  19837.  
  19838.  
  19839.  
  19840.  
  19841.  
  19842.  
  19843.  
  19844.  
  19845.  
  19846.  
  19847.  
  19848.  
  19849.  
  19850.  
  19851.  
  19852.  
  19853.  
  19854.  
  19855.  
  19856.  
  19857.  
  19858.  
  19859.  
  19860.  
  19861.  
  19862.  
  19863.  
  19864.  
  19865.  
  19866.  
  19867.  
  19868.  
  19869.  
  19870.  
  19871.  
  19872.  
  19873.  
  19874.  
  19875.  
  19876.  
  19877.  
  19878.  
  19879.  
  19880.  
  19881.  
  19882.  
  19883.  
  19884.  
  19885.  
  19886.  
  19887.  
  19888.  
  19889.  
  19890.  
  19891.  
  19892.  
  19893.  
  19894.  
  19895.  
  19896.  
  19897.  
  19898.  
  19899.  
  19900.  
  19901.  
  19902.  
  19903.  
  19904.  
  19905.  
  19906.  
  19907.  
  19908.  
  19909.  
  19910.  
  19911.  
  19912.  
  19913.  
  19914.  
  19915.  
  19916.  
  19917.  
  19918.  
  19919.  
  19920.  
  19921.  
  19922.  
  19923.  
  19924.  
  19925.  
  19926.  
  19927.  
  19928.  
  19929.  
  19930.  
  19931.  
  19932.  
  19933.  
  19934.  
  19935.  
  19936.  
  19937.  
  19938.  
  19939.  
  19940.  
  19941.  
  19942.  
  19943.  
  19944.  
  19945.  
  19946.  
  19947.  
  19948.  
  19949.  
  19950.  
  19951.  
  19952.  
  19953.  
  19954.  
  19955.  
  19956.  
  19957.  
  19958.  
  19959.  
  19960.  
  19961.  
  19962.  
  19963.  
  19964.  
  19965.  
  19966.  
  19967.  
  19968.  
  19969.  
  19970.  
  19971.  
  19972.  
  19973.  
  19974.  
  19975.  
  19976.  
  19977.  
  19978.  
  19979.  
  19980.  
  19981.  
  19982.  
  19983.  
  19984.  
  19985.  
  19986.  
  19987.  
  19988.  
  19989.  
  19990.  
  19991.  
  19992.  
  19993.  
  19994.  
  19995.  
  19996.  
  19997.  
  19998.  
  19999.  
  20000.  
  20001.  
  20002.  
  20003.  
  20004.  
  20005.  
  20006.  
  20007.  
  20008.  
  20009.  
  20010.  
  20011.  
  20012.  
  20013.  
  20014.  
  20015.  
  20016.  
  20017.  
  20018.  
  20019.  
  20020.  
  20021.  
  20022.  
  20023.  
  20024.  
  20025.  
  20026.  
  20027.  
  20028.  
  20029.  
  20030.  
  20031.  
  20032.  
  20033.  
  20034.  
  20035.  
  20036.  
  20037.  
  20038.  
  20039.  
  20040.  
  20041.  
  20042.  
  20043.  
  20044.  
  20045.  
  20046.  
  20047.  
  20048.  
  20049.  
  20050.  
  20051.  
  20052.  
  20053.  
  20054.  
  20055.  
  20056.  
  20057.  
  20058.  
  20059.  
  20060.  
  20061.  
  20062.  
  20063.  
  20064.  
  20065.  
  20066.  
  20067.  
  20068.  
  20069.  
  20070.  
  20071.  
  20072.  
  20073.  
  20074.  
  20075.  
  20076.  
  20077.  
  20078.  
  20079.  
  20080.  
  20081.  
  20082.  
  20083.  
  20084.  
  20085.  
  20086.  
  20087.  
  20088.  
  20089.  
  20090.  
  20091.  
  20092.  
  20093.  
  20094.  
  20095.  
  20096.  
  20097.  
  20098.  
  20099.  
  20100.  
  20101.  
  20102.  
  20103.  
  20104.  
  20105.  
  20106.  
  20107.  
  20108.  
  20109.  
  20110.  
  20111.  
  20112.  
  20113.  
  20114.  
  20115.  
  20116.  
  20117.  
  20118.  
  20119.  
  20120.  
  20121.  
  20122.  
  20123.  
  20124.  
  20125.  
  20126.  
  20127.  
  20128.  
  20129.  
  20130.  
  20131.  
  20132.  
  20133.  
  20134.  
  20135.  
  20136.  
  20137.  
  20138.  
  20139.  
  20140.  
  20141.  
  20142.  
  20143.  
  20144.  
  20145.  
  20146.  
  20147.  
  20148.  
  20149.  
  20150.  
  20151.  
  20152.  
  20153.  
  20154.  
  20155.  
  20156.  
  20157.  
  20158.  
  20159.  
  20160.  
  20161.  
  20162.  
  20163.  
  20164.  
  20165.  
  20166.  
  20167.  
  20168.  
  20169.  
  20170.  
  20171.  
  20172.  
  20173.  
  20174.  
  20175.  
  20176.  
  20177.  
  20178.  
  20179.  
  20180.  
  20181.  
  20182.  
  20183.  
  20184.  
  20185.  
  20186.  
  20187.  
  20188.  
  20189.  
  20190.  
  20191.  
  20192.  
  20193.  
  20194.  
  20195.  
  20196.  
  20197.  
  20198.  
  20199.  
  20200.  
  20201.  
  20202.  
  20203.  
  20204.  
  20205.  
  20206.  
  20207.  
  20208.  
  20209.  
  20210.  
  20211.  
  20212.  
  20213.  
  20214.  
  20215.  
  20216.  
  20217.  
  20218.  
  20219.  
  20220.  
  20221.  
  20222.  
  20223.  
  20224.  
  20225.  
  20226.  
  20227.  
  20228.  
  20229.  
  20230.  
  20231.  
  20232.  
  20233.  
  20234.  
  20235.  
  20236.  
  20237.  
  20238.  
  20239.  
  20240.  
  20241.  
  20242.  
  20243.  
  20244.  
  20245.  
  20246.  
  20247.  
  20248.  
  20249.  
  20250.  
  20251.  
  20252.  
  20253.  
  20254.  
  20255.  
  20256.  
  20257.  
  20258.  
  20259.  
  20260.  
  20261.  
  20262.  
  20263.  
  20264.  
  20265.  
  20266.  
  20267.  
  20268.  
  20269.  
  20270.  
  20271.  
  20272.  
  20273.  
  20274.  
  20275.  
  20276.  
  20277.  
  20278.  
  20279.  
  20280.  
  20281.  
  20282.  
  20283.  
  20284.  
  20285.  
  20286.  
  20287.  
  20288.  
  20289.  
  20290.  
  20291.  
  20292.  
  20293.  
  20294.  
  20295.  
  20296.  
  20297.  
  20298.  
  20299.  
  20300.  
  20301.  
  20302.  
  20303.  
  20304.  
  20305.  
  20306.  
  20307.  
  20308.  
  20309.  
  20310.  
  20311.  
  20312.  
  20313.  
  20314.  
  20315.  
  20316.  
  20317.  
  20318.  
  20319.  
  20320.  
  20321.  
  20322.  
  20323.  
  20324.  
  20325.  
  20326.  
  20327.  
  20328.  
  20329.  
  20330.  
  20331.  
  20332.  
  20333.  
  20334.  
  20335.  
  20336.  
  20337.  
  20338.  
  20339.  
  20340.  
  20341.  
  20342.  
  20343.  
  20344.  
  20345.  
  20346.  
  20347.  
  20348.  
  20349.  
  20350.  
  20351.  
  20352.  
  20353.  
  20354.  
  20355.  
  20356.  
  20357.  
  20358.  
  20359.  
  20360.  
  20361.  
  20362.  
  20363.  
  20364.  
  20365.  
  20366.  
  20367.  
  20368.  
  20369.  
  20370.  
  20371.  
  20372.  
  20373.  
  20374.  
  20375.  
  20376.  
  20377.  
  20378.  
  20379.  
  20380.  
  20381.  
  20382.  
  20383.  
  20384.  
  20385.  
  20386.  
  20387.  
  20388.  
  20389.  
  20390.  
  20391.  
  20392.  
  20393.  
  20394.  
  20395.  
  20396.  
  20397.  
  20398.  
  20399.  
  20400.  
  20401.  
  20402.  
  20403.  
  20404.  
  20405.  
  20406.  
  20407.  
  20408.  
  20409.  
  20410.  
  20411.  
  20412.  
  20413.  
  20414.  
  20415.  
  20416.  
  20417.  
  20418.  
  20419.  
  20420.  
  20421.  
  20422.  
  20423.  
  20424.  
  20425.  
  20426.  
  20427.  
  20428.  
  20429.  
  20430.  
  20431.  
  20432.  
  20433.  
  20434.  
  20435.  
  20436.  
  20437.  
  20438.  
  20439.  
  20440.  
  20441.  
  20442.  
  20443.  
  20444.  
  20445.  
  20446.  
  20447.  
  20448.  
  20449.  
  20450.  
  20451.  
  20452. /* Menulock stuff*/
  20453.  
  20454.  
  20455.  
  20456.  
  20457.  
  20458.  
  20459.  
  20460.  
  20461.  
  20462.  
  20463.  
  20464.  
  20465.  
  20466.  
  20467.  
  20468.  
  20469.  
  20470.  
  20471.  
  20472.  
  20473.  
  20474.  
  20475.  
  20476.  
  20477.  
  20478.  
  20479.  
  20480.  
  20481.  
  20482.  
  20483.  
  20484.  
  20485.  
  20486.  
  20487.  
  20488.  
  20489.  
  20490.  
  20491.  
  20492.  
  20493.  
  20494.  
  20495.  
  20496.  
  20497.  
  20498.  
  20499.  
  20500.  
  20501.  
  20502.  
  20503.  
  20504.  
  20505.  
  20506.  
  20507.  
  20508.  
  20509.  
  20510.  
  20511.  
  20512.  
  20513.  
  20514.  
  20515.  
  20516.  
  20517.  
  20518.  
  20519.  
  20520.  
  20521.  
  20522.  
  20523.  
  20524.  
  20525.  
  20526.  
  20527.  
  20528.  
  20529.  
  20530.  
  20531.  
  20532.  
  20533.  
  20534.  
  20535.  
  20536.  
  20537.  
  20538.  
  20539.  
  20540.  
  20541.  
  20542.  
  20543.  
  20544.  
  20545.  
  20546.  
  20547.  
  20548.  
  20549.  
  20550.  
  20551.  
  20552.  
  20553.  
  20554.  
  20555.  
  20556.  
  20557.  
  20558.  
  20559.  
  20560.  
  20561.  
  20562.  
  20563.  
  20564.  
  20565.  
  20566.  
  20567.  
  20568.  
  20569.  
  20570.  
  20571.  
  20572.  
  20573.  
  20574.  
  20575.  
  20576.  
  20577.  
  20578.  
  20579.  
  20580.  
  20581.  
  20582.  
  20583.  
  20584.  
  20585.  
  20586.  
  20587.  
  20588.  
  20589.  
  20590.  
  20591.  
  20592.  
  20593.  
  20594.  
  20595.  
  20596.  
  20597.  
  20598.  
  20599.  
  20600.  
  20601.  
  20602.  
  20603.  
  20604.  
  20605.  
  20606.  
  20607.  
  20608.  
  20609.  
  20610.  
  20611.  
  20612.  
  20613.  
  20614.  
  20615.  
  20616.  
  20617.  
  20618.  
  20619.  
  20620.  
  20621.  
  20622.  
  20623.  
  20624.  
  20625.  
  20626.  
  20627.  
  20628.  
  20629.  
  20630.  
  20631.  
  20632.  
  20633.  
  20634.  
  20635.  
  20636.  
  20637.  
  20638.  
  20639.  
  20640.  
  20641.  
  20642.  
  20643.  
  20644.  
  20645.  
  20646.  
  20647.  
  20648.  
  20649.  
  20650.  
  20651.  
  20652.  
  20653.  
  20654.  
  20655.  
  20656.  
  20657.  
  20658.  
  20659.  
  20660.  
  20661.  
  20662.  
  20663.  
  20664.  
  20665.  
  20666.  
  20667.  
  20668.  
  20669.  
  20670.  
  20671.  
  20672.  
  20673.  
  20674.  
  20675.  
  20676.  
  20677.  
  20678.  
  20679.  
  20680.  
  20681.  
  20682.  
  20683.  
  20684.  
  20685.  
  20686.  
  20687.  
  20688.  
  20689.  
  20690.  
  20691.  
  20692.  
  20693.  
  20694.  
  20695.  
  20696.  
  20697.  
  20698.  
  20699.  
  20700.  
  20701.  
  20702.  
  20703.  
  20704.  
  20705.  
  20706.  
  20707.  
  20708.  
  20709.  
  20710.  
  20711.  
  20712.  
  20713.  
  20714.  
  20715.  
  20716.  
  20717.  
  20718.  
  20719.  
  20720.  
  20721.  
  20722.  
  20723.  
  20724.  
  20725.  
  20726.  
  20727.  
  20728.  
  20729.  
  20730.  
  20731.  
  20732.  
  20733.  
  20734.  
  20735.  
  20736.  
  20737.  
  20738.  
  20739.  
  20740.  
  20741.  
  20742.  
  20743.  
  20744.  
  20745.  
  20746.  
  20747.  
  20748.  
  20749.  
  20750.  
  20751.  
  20752.  
  20753.  
  20754.  
  20755.  
  20756.  
  20757.  
  20758.  
  20759.  
  20760.  
  20761.  
  20762.  
  20763.  
  20764.  
  20765.  
  20766.  
  20767.  
  20768.  
  20769.  
  20770.  
  20771.  
  20772.  
  20773.  
  20774.  
  20775.  
  20776.  
  20777.  
  20778.  
  20779.  
  20780.  
  20781.  
  20782.  
  20783.  
  20784.  
  20785.  
  20786.  
  20787.  
  20788.  
  20789.  
  20790.  
  20791.  
  20792.  
  20793.  
  20794.  
  20795.  
  20796.  
  20797.  
  20798.  
  20799.  
  20800.  
  20801.  
  20802.  
  20803.  
  20804.  
  20805.  
  20806.  
  20807.  
  20808.  
  20809.  
  20810.  
  20811.  
  20812.  
  20813.  
  20814.  
  20815.  
  20816.  
  20817.  
  20818.  
  20819.  
  20820.  
  20821.  
  20822.  
  20823.  
  20824.  
  20825.  
  20826.  
  20827.  
  20828.  
  20829.  
  20830.  
  20831.  
  20832.  
  20833.  
  20834.  
  20835.  
  20836.  
  20837.  
  20838.  
  20839.  
  20840.  
  20841.  
  20842.  
  20843.  
  20844.  
  20845.  
  20846.  
  20847.  
  20848.  
  20849.  
  20850.  
  20851.  
  20852.  
  20853.  
  20854.  
  20855.  
  20856.  
  20857.  
  20858.  
  20859.  
  20860.  
  20861.  
  20862.  
  20863.  
  20864.  
  20865.  
  20866.  
  20867.  
  20868.  
  20869.  
  20870.  
  20871.  
  20872.  
  20873.  
  20874.  
  20875.  
  20876.  
  20877.  
  20878.  
  20879.  
  20880.  
  20881.  
  20882.  
  20883.  
  20884.  
  20885.  
  20886.  
  20887.  
  20888.  
  20889.  
  20890.  
  20891.  
  20892.  
  20893.  
  20894.  
  20895.  
  20896.  
  20897.  
  20898.  
  20899.  
  20900.  
  20901.  
  20902.  
  20903.  
  20904.  
  20905.  
  20906.  
  20907.  
  20908.  
  20909.  
  20910.  
  20911.  
  20912.  
  20913.  
  20914.  
  20915.  
  20916.  
  20917.  
  20918.  
  20919.  
  20920.  
  20921.  
  20922.  
  20923.  
  20924.  
  20925.  
  20926.  
  20927.  
  20928.  
  20929.  
  20930.  
  20931.  
  20932.  
  20933.  
  20934.  
  20935.  
  20936.  
  20937.  
  20938.  
  20939.  
  20940.  
  20941.  
  20942.  
  20943.  
  20944.  
  20945.  
  20946.  
  20947.  
  20948.  
  20949.  
  20950.  
  20951.  
  20952.  
  20953.  
  20954.  
  20955.  
  20956.  
  20957.  
  20958.  
  20959.  
  20960.  
  20961.  
  20962.  
  20963.  
  20964.   regPutN ("jogo", 1);
  20965.  
  20966.   menuLock (1);
  20967.  
  20968.   loadvrt ("map.vrt");
  20969.  
  20970.   clrtrig (me, 0);
  20971.  
  20972. }
  20973.  
  20974. if (share (1)==75)
  20975.  
  20976.   vis (me);
  20977.  
  20978. else
  20979.  
  20980.   invis (me);
  20981.  
  20982.  
  20983. end
  20984. End_Chunk
  20985.  
  20986. Chunk: ImageRef
  20987.  Number: 1
  20988.  Index: 1 Image: 51
  20989. End_Chunk
  20990. Chunk: Colours
  20991.  Number: 1
  20992.  0xA9
  20993. End_Chunk
  20994. ;
  20995. ;-------Object  128-------------------------------------------------------
  20996. ; 
  20997. Chunk: Standard
  20998.  Name:     "mower[128]"
  20999.  Number:   128
  21000.  Size:     10004 13233 12933
  21001.  Position: 2023945 1000 1906650
  21002.  Type:     65535
  21003.  Layer:    0
  21004.  DFlags:   E
  21005.  OFlags:   Ii
  21006. End_Chunk
  21007. Chunk: SCL
  21008. if (share (1)==28)
  21009.  
  21010.   vis (me);
  21011.  
  21012. else
  21013.  
  21014.   invis (me);
  21015.  
  21016.  
  21017. end
  21018. End_Chunk
  21019. Chunk: Dynamics
  21020.  MovType:     0x80000421
  21021.  Fuel:        0
  21022.  Climb:       0
  21023.  Gravity:     0
  21024.  Coupled:     127
  21025.  Drive:       0 0 0
  21026.  External:    0 0 0
  21027.  MaxForce:    0 0 0
  21028.  GroundFric:  0 0 0
  21029.  Restitution: 0 0 0
  21030.  Velocity:    0 0 0
  21031.  MaxVel:      0 0 0
  21032. End_Chunk
  21033. Chunk: InitPos
  21034.  Position: 2023945 1000 1906650
  21035. End_Chunk
  21036.  
  21037. Children:
  21038. ;
  21039. ;-------Object  127-------------------------------------------------------
  21040. ; 
  21041. Chunk: Standard
  21042.  Name:     "mower[127]"
  21043.  Number:   127
  21044.  Size:     10004 13233 12933
  21045.  Position: 0 0 0
  21046.  Type:     65535
  21047.  Layer:    0
  21048.  DFlags:   r
  21049. End_Chunk
  21050. Chunk: Rotations
  21051.  Initial: 0x0000 0x0000 0x0000
  21052.  Centre:  5000 6616 8466
  21053. End_Chunk
  21054.  
  21055. Children:
  21056. ;
  21057. ;-------Object  121-------------------------------------------------------
  21058. ; 
  21059. Chunk: Standard
  21060.  Name:     "mower"
  21061.  Number:   121
  21062.  Size:     10000 1000 10000
  21063.  Position: 4 0 2933
  21064.  Type:     23
  21065.  Layer:    0
  21066. End_Chunk
  21067.  
  21068. Chunk: ImageRef
  21069.  Number: 1
  21070.  Index: 1 Image: 56
  21071. End_Chunk
  21072. Chunk: TexCoords
  21073.  Number: 1
  21074.  Mode:   0
  21075.  SubChunk
  21076.   Facet:     1
  21077.   ImageRef:  1
  21078.   PixScale:  0
  21079.   NumCoords: 4
  21080.     0.00000 0.00000
  21081.     0.00000 1.00000
  21082.     1.00000 1.00000
  21083.     1.00000 0.00000
  21084. End_Chunk
  21085. Chunk: SCL
  21086. resume (1, 2);
  21087.  
  21088. if (activate (me, 0))
  21089.  
  21090. {
  21091.  
  21092.   while (mouseb)
  21093.  
  21094.     waitf;
  21095.  
  21096.   if (getvp==3)
  21097.  
  21098.     setvp (1);
  21099.  
  21100.   else
  21101.  
  21102.     setvp (3);
  21103.  
  21104.   clrtrig (me, 0);
  21105.  
  21106. }
  21107. end
  21108. End_Chunk
  21109. ;
  21110. ;-------Object  123-------------------------------------------------------
  21111. ; 
  21112. Chunk: Standard
  21113.  Name:     "mower-centre"
  21114.  Number:   123
  21115.  Size:     3000 2500 3400
  21116.  Position: 3504 1000 6433
  21117.  Type:     0
  21118.  Layer:    0
  21119. End_Chunk
  21120. Chunk: SCL
  21121. resume (1, 2);
  21122.  
  21123. if (activate (me, 0))
  21124.  
  21125. {
  21126.  
  21127.   while (mouseb)
  21128.  
  21129.     waitf;
  21130.  
  21131.   if (getvp==3)
  21132.  
  21133.     setvp (1);
  21134.  
  21135.   else
  21136.  
  21137.     setvp (3);
  21138.  
  21139.   clrtrig (me, 0);
  21140.  
  21141. }
  21142. end
  21143. End_Chunk
  21144. Chunk: Colours
  21145.  Number: 6
  21146.  0x38 0x3B 0x38 0x3B 0x75 0x75
  21147. End_Chunk
  21148. ;
  21149. ;-------Object  122-------------------------------------------------------
  21150. ; 
  21151. Chunk: Standard
  21152.  Name:     "mower[122]"
  21153.  Number:   122
  21154.  Size:     4000 500 5000
  21155.  Position: 3004 3500 5633
  21156.  Type:     0
  21157.  Layer:    0
  21158. End_Chunk
  21159. Chunk: TexCoords
  21160.  Number: 1
  21161.  Mode:   0
  21162.  SubChunk
  21163.   Facet:     5
  21164.   ImageRef:  1
  21165.   PixScale:  0
  21166.   NumCoords: 4
  21167.     0.00000 0.00000
  21168.     0.00000 1.00000
  21169.     1.00000 1.00000
  21170.     1.00000 0.00000
  21171. End_Chunk
  21172. Chunk: SCL
  21173. resume (1, 2);
  21174.  
  21175. if (activate (me, 0))
  21176.  
  21177. {
  21178.  
  21179.   while (mouseb)
  21180.  
  21181.     waitf;
  21182.  
  21183.   if (getvp==3)
  21184.  
  21185.     setvp (1);
  21186.  
  21187.   else
  21188.  
  21189.     setvp (3);
  21190.  
  21191.   clrtrig (me, 0);
  21192.  
  21193. }
  21194. end
  21195. End_Chunk
  21196. Chunk: Colours
  21197.  Number: 6
  21198.  0x35 0x38 0x35 0x38 0x75 0x75
  21199. End_Chunk
  21200.  
  21201. Chunk: ImageRef
  21202.  Number: 1
  21203.  Index: 1 Image: 57
  21204. End_Chunk
  21205. ;
  21206. ;-------Object  124-------------------------------------------------------
  21207. ; 
  21208. Chunk: Standard
  21209.  Name:     "mower[124]"
  21210.  Number:   124
  21211.  Size:     0 16900 800
  21212.  Position: 2504 1000 7833
  21213.  Type:     24
  21214.  Layer:    0
  21215. End_Chunk
  21216.  
  21217. Chunk: ImageRef
  21218.  Number: 1
  21219.  Index: 1 Image: 58
  21220. End_Chunk
  21221. Chunk: TexCoords
  21222.  Number: 1
  21223.  Mode:   0
  21224.  SubChunk
  21225.   Facet:     1
  21226.   ImageRef:  1
  21227.   PixScale:  0
  21228.   NumCoords: 4
  21229.     0.00000 0.00000
  21230.     0.00000 1.00000
  21231.     1.00000 1.00000
  21232.     1.00000 0.00000
  21233. End_Chunk
  21234. Chunk: SCL
  21235. resume (1, 2);
  21236.  
  21237. if (activate (me, 0))
  21238.  
  21239. {
  21240.  
  21241.   while (mouseb)
  21242.  
  21243.     waitf;
  21244.  
  21245.   if (getvp==3)
  21246.  
  21247.     setvp (1);
  21248.  
  21249.   else
  21250.  
  21251.     setvp (3);
  21252.  
  21253.   clrtrig (me, 0);
  21254.  
  21255. }
  21256. end
  21257. End_Chunk
  21258. Chunk: Rotations
  21259.  Initial: 0x2000 0x0000 0x0000
  21260.  Centre:  0 0 400
  21261. End_Chunk
  21262. ;
  21263. ;-------Object  125-------------------------------------------------------
  21264. ; 
  21265. Chunk: Standard
  21266.  Name:     "mower[125]"
  21267.  Number:   125
  21268.  Size:     0 16900 800
  21269.  Position: 7504 1000 7833
  21270.  Type:     24
  21271.  Layer:    0
  21272. End_Chunk
  21273.  
  21274. Chunk: ImageRef
  21275.  Number: 1
  21276.  Index: 1 Image: 58
  21277. End_Chunk
  21278. Chunk: TexCoords
  21279.  Number: 1
  21280.  Mode:   0
  21281.  SubChunk
  21282.   Facet:     1
  21283.   ImageRef:  1
  21284.   PixScale:  0
  21285.   NumCoords: 4
  21286.     0.00000 0.00000
  21287.     0.00000 1.00000
  21288.     1.00000 1.00000
  21289.     1.00000 0.00000
  21290. End_Chunk
  21291. Chunk: SCL
  21292. resume (1, 2);
  21293.  
  21294. if (activate (me, 0))
  21295.  
  21296. {
  21297.  
  21298.   while (mouseb)
  21299.  
  21300.     waitf;
  21301.  
  21302.   if (getvp==3)
  21303.  
  21304.     setvp (1);
  21305.  
  21306.   else
  21307.  
  21308.     setvp (3);
  21309.  
  21310.   clrtrig (me, 0);
  21311.  
  21312. }
  21313. end
  21314. End_Chunk
  21315. Chunk: Rotations
  21316.  Initial: 0x2000 0x0000 0x0000
  21317.  Centre:  0 0 400
  21318. End_Chunk
  21319. ;
  21320. ;-------Object  126-------------------------------------------------------
  21321. ; 
  21322. Chunk: Standard
  21323.  Name:     "mower[126]"
  21324.  Number:   126
  21325.  Size:     5000 500 0
  21326.  Position: 2504 12763 -3688
  21327.  Type:     0
  21328.  Layer:    0
  21329. End_Chunk
  21330. Chunk: TexCoords
  21331.  Number: 2
  21332.  Mode:   0
  21333.  SubChunk
  21334.   Facet:     2
  21335.   ImageRef:  1
  21336.   PixScale:  0
  21337.   NumCoords: 4
  21338.     0.00000 0.00000
  21339.     0.00000 1.00000
  21340.     1.00000 1.00000
  21341.     1.00000 0.00000
  21342.  SubChunk
  21343.   Facet:     4
  21344.   ImageRef:  1
  21345.   PixScale:  0
  21346.   NumCoords: 4
  21347.     0.00000 0.00000
  21348.     0.00000 1.00000
  21349.     1.00000 1.00000
  21350.     1.00000 0.00000
  21351. End_Chunk
  21352. Chunk: SCL
  21353. resume (1, 2);
  21354.  
  21355. if (activate (me, 0))
  21356.  
  21357. {
  21358.  
  21359.   while (mouseb)
  21360.  
  21361.     waitf;
  21362.  
  21363.   if (getvp==3)
  21364.  
  21365.     setvp (1);
  21366.  
  21367.   else
  21368.  
  21369.     setvp (3);
  21370.  
  21371.   clrtrig (me, 0);
  21372.  
  21373. }
  21374. end
  21375. End_Chunk
  21376.  
  21377. Chunk: ImageRef
  21378.  Number: 1
  21379.  Index: 1 Image: 38
  21380. End_Chunk
  21381. Chunk: Rotations
  21382.  Initial: 0xFFFFE000 0x0000 0x0000
  21383.  Centre:  2500 250 0
  21384. End_Chunk
  21385.  
  21386. End_Children
  21387.  
  21388. End_Children
  21389. ;
  21390. ;-------Object   97-------------------------------------------------------
  21391. ; 
  21392. Chunk: Standard
  21393.  Name:     "chimney[97]"
  21394.  Number:   97
  21395.  Size:     6300 5000 0
  21396.  Position: 1988236 1000 1897208
  21397.  Type:     18
  21398.  Layer:    0
  21399.  DFlags:   E
  21400.  OFlags:   Ii
  21401. End_Chunk
  21402. Chunk: TexCoords
  21403.  Number: 1
  21404.  Mode:   0
  21405.  SubChunk
  21406.   Facet:     1
  21407.   ImageRef:  1
  21408.   PixScale:  0
  21409.   NumCoords: 4
  21410.     0.00000 0.00000
  21411.     0.00000 1.00000
  21412.     1.00000 1.00000
  21413.     1.00000 0.00000
  21414. End_Chunk
  21415. Chunk: Sorting
  21416.  Offset: 0 0 -3000
  21417.  Size:   6300 0 6300
  21418. End_Chunk
  21419. Chunk: InitSize
  21420.  Size: 6300 5000 0
  21421. End_Chunk
  21422. Chunk: SCL
  21423. long   Temp, X, Z, X2, Z2;
  21424.  
  21425.  
  21426.  
  21427. yrot (me)=359-yvroff+yrot (object (vattach));
  21428.  
  21429. resume (1, 2);
  21430.  
  21431. if (first)
  21432.  
  21433. {
  21434.  
  21435.   regGetN ("grass1", &Temp);
  21436.  
  21437.   if (Temp)
  21438.  
  21439.     vis (me);
  21440.  
  21441. }
  21442.  
  21443. if (random (#4.Grass-timSince/144)==1 && !vis? (me))
  21444.  
  21445. {
  21446.  
  21447.   vis (me);
  21448.  
  21449.   ysize (me)=0;
  21450.  
  21451.   repeat (50)
  21452.  
  21453.   {
  21454.  
  21455.     ysize (me)+=100;
  21456.  
  21457.     waitf;
  21458.  
  21459.   }
  21460.  
  21461.   regPutN ("grass1", 1);
  21462.  
  21463.   counter (30)=1;
  21464.  
  21465. }
  21466.  
  21467. if (getvp==3)
  21468.  
  21469. {
  21470.  
  21471.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  21472.  
  21473.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  21474.  
  21475.   if (abs (X-X2)+abs (Z-Z2)<10000)
  21476.  
  21477.   {
  21478.  
  21479.     regPutN ("grass1", 0);
  21480.  
  21481.     invis (me);
  21482.  
  21483.     counter (30)=1;
  21484.  
  21485.   }
  21486.  
  21487. }
  21488. end
  21489. End_Chunk
  21490. Chunk: Rotations
  21491.  Initial: 0x0000 0xFFFFA053 0x0000
  21492.  Centre:  3150 2500 0
  21493. End_Chunk
  21494.  
  21495. Chunk: ImageRef
  21496.  Number: 1
  21497.  Index: 1 Image: 22
  21498. End_Chunk
  21499. ;
  21500. ;-------Object  129-------------------------------------------------------
  21501. ; 
  21502. Chunk: Standard
  21503.  Name:     "floor[129]"
  21504.  Number:   129
  21505.  Size:     27456 15000 200
  21506.  Position: 2004910 1000 1842600
  21507.  Type:     2
  21508.  Layer:    0
  21509. End_Chunk
  21510. Chunk: TexCoords
  21511.  Number: 1
  21512.  Mode:   0
  21513.  SubChunk
  21514.   Facet:     1
  21515.   ImageRef:  1
  21516.   PixScale:  0
  21517.   NumCoords: 4
  21518.     0.00000 0.00000
  21519.     0.00000 1.00000
  21520.     1.00000 1.00000
  21521.     1.00000 0.00000
  21522. End_Chunk
  21523. Chunk: SCL
  21524. if (activate (me, 0))
  21525.  
  21526. {
  21527.  
  21528.   share (70)=0;
  21529.  
  21530.   share (69)=0;
  21531.  
  21532.  
  21533.  
  21534.  
  21535.  
  21536.  
  21537.  
  21538.  
  21539.  
  21540.  
  21541.  
  21542.  
  21543.  
  21544.  
  21545.  
  21546.  
  21547.  
  21548.  
  21549.  
  21550.  
  21551.  
  21552.  
  21553.  
  21554.  
  21555.  
  21556.  
  21557.  
  21558.  
  21559.  
  21560.  
  21561.  
  21562.  
  21563.  
  21564.  
  21565.  
  21566.  
  21567.  
  21568.  
  21569.  
  21570.  
  21571.  
  21572.  
  21573.  
  21574.  
  21575.  
  21576.  
  21577.  
  21578.  
  21579.  
  21580.  
  21581.  
  21582.  
  21583.  
  21584.  
  21585.  
  21586.  
  21587.  
  21588.  
  21589.  
  21590.  
  21591.  
  21592.  
  21593.  
  21594.  
  21595.  
  21596.  
  21597.  
  21598.  
  21599.  
  21600.  
  21601.  
  21602.  
  21603.  
  21604.  
  21605.  
  21606.  
  21607.  
  21608.  
  21609.  
  21610.  
  21611.  
  21612.  
  21613.  
  21614.  
  21615.  
  21616.  
  21617.  
  21618.  
  21619.  
  21620.  
  21621.  
  21622.  
  21623.  
  21624.  
  21625.  
  21626.  
  21627.  
  21628.  
  21629.  
  21630.  
  21631.  
  21632.  
  21633.  
  21634.  
  21635.  
  21636.  
  21637.  
  21638.  
  21639.  
  21640.  
  21641.  
  21642.  
  21643.  
  21644.  
  21645.  
  21646.  
  21647.  
  21648.  
  21649.  
  21650.  
  21651.  
  21652.  
  21653.  
  21654.  
  21655.  
  21656.  
  21657.  
  21658.  
  21659.  
  21660.  
  21661.  
  21662.  
  21663.  
  21664.  
  21665.  
  21666.  
  21667.  
  21668.  
  21669.  
  21670.  
  21671.  
  21672.  
  21673.  
  21674.  
  21675.  
  21676.  
  21677.  
  21678.  
  21679.  
  21680.  
  21681.  
  21682.  
  21683.  
  21684.  
  21685.  
  21686.  
  21687.  
  21688.  
  21689.  
  21690.  
  21691.  
  21692.  
  21693.  
  21694.  
  21695.  
  21696.  
  21697.  
  21698.  
  21699.  
  21700.  
  21701.  
  21702.  
  21703.  
  21704.  
  21705.  
  21706.  
  21707.  
  21708.  
  21709.  
  21710.  
  21711.  
  21712.  
  21713.  
  21714.  
  21715.  
  21716.  
  21717.  
  21718.  
  21719.  
  21720.  
  21721.  
  21722.  
  21723.  
  21724.  
  21725.  
  21726.  
  21727.  
  21728.  
  21729.  
  21730.  
  21731.  
  21732.  
  21733.  
  21734.  
  21735.  
  21736.  
  21737.  
  21738.  
  21739.  
  21740.  
  21741.  
  21742.  
  21743.  
  21744.  
  21745.  
  21746.  
  21747.  
  21748.  
  21749.  
  21750.  
  21751.  
  21752.  
  21753.  
  21754.  
  21755.  
  21756.  
  21757.  
  21758.  
  21759.  
  21760.  
  21761.  
  21762.  
  21763.  
  21764.  
  21765.  
  21766.  
  21767.  
  21768.  
  21769.  
  21770.  
  21771.  
  21772.  
  21773.  
  21774.  
  21775.  
  21776.  
  21777.  
  21778.  
  21779.  
  21780.  
  21781.  
  21782.  
  21783.  
  21784.  
  21785.  
  21786.  
  21787.  
  21788.  
  21789.  
  21790.  
  21791.  
  21792.  
  21793.  
  21794.  
  21795.  
  21796.  
  21797.  
  21798.  
  21799.  
  21800.  
  21801.  
  21802.  
  21803.  
  21804.  
  21805.  
  21806.  
  21807.  
  21808.  
  21809.  
  21810.  
  21811.  
  21812.  
  21813.  
  21814.  
  21815.  
  21816.  
  21817.  
  21818.  
  21819.  
  21820.  
  21821.  
  21822.  
  21823.  
  21824.  
  21825.  
  21826.  
  21827.  
  21828.  
  21829.  
  21830.  
  21831.  
  21832.  
  21833.  
  21834.  
  21835.  
  21836.  
  21837.  
  21838.  
  21839.  
  21840.  
  21841.  
  21842.  
  21843.  
  21844.  
  21845.  
  21846.  
  21847.  
  21848.  
  21849.  
  21850.  
  21851.  
  21852.  
  21853.  
  21854.  
  21855.  
  21856.  
  21857.  
  21858.  
  21859.  
  21860.  
  21861.  
  21862.  
  21863.  
  21864.  
  21865.  
  21866.  
  21867.  
  21868.  
  21869.  
  21870.  
  21871.  
  21872.  
  21873.  
  21874.  
  21875.  
  21876.  
  21877.  
  21878.  
  21879.  
  21880.  
  21881.  
  21882.  
  21883.  
  21884.  
  21885.  
  21886.  
  21887.  
  21888.  
  21889.  
  21890.  
  21891.  
  21892.  
  21893.  
  21894.  
  21895.  
  21896.  
  21897.  
  21898.  
  21899.  
  21900.  
  21901.  
  21902.  
  21903.  
  21904.  
  21905.  
  21906.  
  21907.  
  21908.  
  21909.  
  21910.  
  21911.  
  21912.  
  21913.  
  21914.  
  21915.  
  21916.  
  21917.  
  21918.  
  21919.  
  21920.  
  21921.  
  21922.  
  21923.  
  21924.  
  21925.  
  21926.  
  21927.  
  21928.  
  21929.  
  21930.  
  21931.  
  21932.  
  21933.  
  21934.  
  21935.  
  21936.  
  21937.  
  21938.  
  21939.  
  21940.  
  21941.  
  21942.  
  21943.  
  21944.  
  21945.  
  21946.  
  21947.  
  21948.  
  21949.  
  21950.  
  21951.  
  21952.  
  21953.  
  21954.  
  21955.  
  21956.  
  21957.  
  21958.  
  21959.  
  21960.  
  21961.  
  21962.  
  21963.  
  21964.  
  21965.  
  21966.  
  21967.  
  21968.  
  21969.  
  21970.  
  21971.  
  21972.  
  21973.  
  21974.  
  21975.  
  21976.  
  21977.  
  21978.  
  21979.  
  21980.  
  21981.  
  21982.  
  21983.  
  21984.  
  21985.  
  21986.  
  21987.  
  21988.  
  21989.  
  21990.  
  21991.  
  21992.  
  21993.  
  21994.  
  21995.  
  21996.  
  21997.  
  21998.  
  21999.  
  22000.  
  22001.  
  22002.  
  22003.  
  22004.  
  22005.  
  22006.  
  22007.  
  22008.  
  22009.  
  22010.  
  22011.  
  22012.  
  22013.  
  22014.  
  22015.  
  22016.  
  22017.  
  22018.  
  22019.  
  22020.  
  22021.  
  22022.  
  22023.  
  22024.  
  22025.  
  22026.  
  22027.  
  22028.  
  22029.  
  22030.  
  22031.  
  22032.  
  22033.  
  22034.  
  22035.  
  22036.  
  22037.  
  22038.  
  22039.  
  22040.  
  22041.  
  22042.  
  22043.  
  22044.  
  22045.  
  22046.  
  22047.  
  22048.  
  22049.  
  22050.  
  22051.  
  22052.  
  22053.  
  22054.  
  22055.  
  22056.  
  22057.  
  22058.  
  22059.  
  22060.  
  22061.  
  22062.  
  22063.  
  22064.  
  22065.  
  22066.  
  22067.  
  22068.  
  22069.  
  22070.  
  22071.  
  22072.  
  22073.  
  22074.  
  22075.  
  22076.  
  22077.  
  22078.  
  22079.  
  22080.  
  22081.  
  22082.  
  22083.  
  22084.  
  22085.  
  22086.  
  22087.  
  22088.  
  22089.  
  22090.  
  22091.  
  22092.  
  22093.  
  22094.  
  22095.  
  22096.  
  22097.  
  22098.  
  22099.  
  22100.  
  22101.  
  22102.  
  22103.  
  22104.  
  22105.  
  22106.  
  22107.  
  22108.  
  22109.  
  22110.  
  22111.  
  22112.  
  22113.  
  22114.  
  22115.  
  22116.  
  22117.  
  22118.  
  22119.  
  22120.  
  22121.  
  22122.  
  22123.  
  22124.  
  22125.  
  22126.  
  22127.  
  22128.  
  22129.  
  22130.  
  22131.  
  22132.  
  22133.  
  22134.  
  22135.  
  22136.  
  22137.  
  22138.  
  22139.  
  22140.  
  22141.  
  22142.  
  22143.  
  22144.  
  22145.  
  22146.  
  22147.  
  22148.  
  22149.  
  22150.  
  22151.  
  22152.  
  22153.  
  22154.  
  22155.  
  22156.  
  22157.  
  22158.  
  22159.  
  22160.  
  22161.  
  22162.  
  22163.  
  22164.  
  22165.  
  22166.  
  22167.  
  22168.  
  22169.  
  22170.  
  22171.  
  22172.  
  22173.  
  22174.  
  22175.  
  22176.  
  22177.  
  22178.  
  22179.  
  22180.  
  22181.  
  22182.  
  22183.  
  22184.  
  22185.  
  22186.  
  22187.  
  22188.  
  22189.  
  22190.  
  22191.  
  22192.  
  22193.  
  22194.  
  22195.  
  22196.  
  22197.  
  22198.  
  22199.  
  22200.  
  22201.  
  22202.  
  22203.  
  22204.  
  22205.  
  22206.  
  22207.  
  22208.  
  22209.  
  22210.  
  22211.  
  22212.  
  22213.  
  22214.  
  22215.  
  22216.  
  22217.  
  22218.  
  22219.  
  22220.  
  22221.  
  22222.  
  22223.  
  22224.  
  22225.  
  22226.  
  22227.  
  22228.  
  22229.  
  22230.  
  22231.  
  22232.  
  22233.  
  22234.  
  22235.  
  22236.  
  22237.  
  22238.  
  22239.  
  22240.  
  22241.  
  22242.  
  22243.  
  22244.  
  22245.  
  22246.  
  22247.  
  22248.  
  22249.  
  22250.  
  22251.  
  22252.  
  22253.  
  22254.  
  22255.  
  22256.  
  22257.  
  22258.  
  22259.  
  22260.  
  22261.  
  22262.  
  22263.  
  22264.  
  22265.  
  22266.  
  22267.  
  22268.  
  22269.  
  22270.  
  22271.  
  22272.  
  22273.  
  22274.  
  22275.  
  22276.  
  22277.  
  22278.  
  22279.  
  22280.  
  22281.  
  22282.  
  22283.  
  22284.  
  22285.  
  22286.  
  22287.  
  22288.  
  22289.  
  22290.  
  22291.  
  22292.  
  22293.  
  22294.  
  22295.  
  22296.  
  22297.  
  22298.  
  22299.  
  22300.  
  22301.  
  22302.  
  22303.  
  22304.  
  22305.  
  22306.  
  22307.  
  22308.  
  22309.  
  22310.  
  22311.  
  22312.  
  22313.  
  22314.  
  22315.  
  22316.  
  22317.  
  22318.  
  22319.  
  22320.  
  22321.  
  22322.  
  22323.  
  22324.  
  22325.  
  22326.  
  22327.  
  22328.  
  22329.  
  22330.  
  22331.  
  22332.  
  22333.  
  22334.  
  22335.  
  22336.  
  22337.  
  22338.  
  22339.  
  22340.  
  22341.  
  22342.  
  22343.  
  22344.  
  22345.  
  22346.  
  22347.  
  22348.  
  22349.  
  22350.  
  22351.  
  22352.  
  22353.  
  22354.  
  22355.  
  22356.  
  22357.  
  22358.  
  22359.  
  22360.  
  22361.  
  22362.  
  22363.  
  22364.  
  22365.  
  22366.  
  22367.  
  22368.  
  22369.  
  22370.  
  22371.  
  22372.  
  22373.  
  22374.  
  22375.  
  22376.  
  22377.  
  22378.  
  22379.  
  22380.  
  22381.  
  22382.  
  22383.  
  22384.  
  22385.  
  22386.  
  22387.  
  22388.  
  22389.  
  22390.  
  22391.  
  22392.  
  22393.  
  22394.  
  22395.  
  22396.  
  22397.  
  22398.  
  22399.  
  22400.  
  22401.  
  22402.  
  22403.  
  22404.  
  22405.  
  22406.  
  22407.  
  22408.  
  22409.  
  22410.  
  22411.  
  22412.  
  22413.  
  22414.  
  22415.  
  22416.  
  22417.  
  22418.  
  22419.  
  22420.  
  22421.  
  22422.  
  22423.  
  22424.  
  22425.  
  22426.  
  22427.  
  22428.  
  22429.  
  22430.  
  22431.  
  22432.  
  22433.  
  22434.  
  22435.  
  22436.  
  22437.  
  22438.  
  22439.  
  22440.  
  22441.  
  22442.  
  22443.  
  22444.  
  22445.  
  22446.  
  22447.  
  22448.  
  22449.  
  22450.  
  22451.  
  22452.  
  22453.  
  22454.  
  22455.  
  22456.  
  22457.  
  22458.  
  22459.  
  22460.  
  22461.  
  22462.  
  22463.  
  22464.  
  22465.  
  22466.  
  22467.  
  22468.  
  22469.  
  22470.  
  22471.  
  22472.  
  22473.  
  22474.  
  22475.  
  22476.  
  22477.  
  22478.  
  22479.  
  22480.  
  22481.  
  22482.  
  22483.  
  22484.  
  22485.  
  22486.  
  22487.  
  22488.  
  22489.  
  22490.  
  22491.  
  22492.  
  22493.  
  22494.  
  22495.  
  22496.  
  22497.  
  22498.  
  22499.  
  22500.  
  22501.  
  22502.  
  22503.  
  22504.  
  22505.  
  22506.  
  22507.  
  22508.  
  22509.  
  22510.  
  22511.  
  22512.  
  22513.  
  22514.  
  22515.  
  22516.  
  22517.  
  22518.  
  22519.  
  22520.  
  22521.  
  22522.  
  22523.  
  22524.  
  22525.  
  22526.  
  22527.  
  22528.  
  22529.  
  22530.  
  22531.  
  22532.  
  22533.  
  22534.  
  22535.  
  22536.  
  22537.  
  22538.  
  22539.  
  22540.  
  22541.  
  22542. /* Menulock stuff*/
  22543.  
  22544.  
  22545.  
  22546.  
  22547.  
  22548.  
  22549.  
  22550.  
  22551.  
  22552.  
  22553.  
  22554.  
  22555.  
  22556.  
  22557.  
  22558.  
  22559.  
  22560.  
  22561.  
  22562.  
  22563.  
  22564.  
  22565.  
  22566.  
  22567.  
  22568.  
  22569.  
  22570.  
  22571.  
  22572.  
  22573.  
  22574.  
  22575.  
  22576.  
  22577.  
  22578.  
  22579.  
  22580.  
  22581.  
  22582.  
  22583.  
  22584.  
  22585.  
  22586.  
  22587.  
  22588.  
  22589.  
  22590.  
  22591.  
  22592.  
  22593.  
  22594.  
  22595.  
  22596.  
  22597.  
  22598.  
  22599.  
  22600.  
  22601.  
  22602.  
  22603.  
  22604.  
  22605.  
  22606.  
  22607.  
  22608.  
  22609.  
  22610.  
  22611.  
  22612.  
  22613.  
  22614.  
  22615.  
  22616.  
  22617.  
  22618.  
  22619.  
  22620.  
  22621.  
  22622.  
  22623.  
  22624.  
  22625.  
  22626.  
  22627.  
  22628.  
  22629.  
  22630.  
  22631.  
  22632.  
  22633.  
  22634.  
  22635.  
  22636.  
  22637.  
  22638.  
  22639.  
  22640.  
  22641.  
  22642.  
  22643.  
  22644.  
  22645.  
  22646.  
  22647.  
  22648.  
  22649.  
  22650.  
  22651.  
  22652.  
  22653.  
  22654.  
  22655.  
  22656.  
  22657.  
  22658.  
  22659.  
  22660.  
  22661.  
  22662.  
  22663.  
  22664.  
  22665.  
  22666.  
  22667.  
  22668.  
  22669.  
  22670.  
  22671.  
  22672.  
  22673.  
  22674.  
  22675.  
  22676.  
  22677.  
  22678.  
  22679.  
  22680.  
  22681.  
  22682.  
  22683.  
  22684.  
  22685.  
  22686.  
  22687.  
  22688.  
  22689.  
  22690.  
  22691.  
  22692.  
  22693.  
  22694.  
  22695.  
  22696.  
  22697.  
  22698.  
  22699.  
  22700.  
  22701.  
  22702.  
  22703.  
  22704.  
  22705.  
  22706.  
  22707.  
  22708.  
  22709.  
  22710.  
  22711.  
  22712.  
  22713.  
  22714.  
  22715.  
  22716.  
  22717.  
  22718.  
  22719.  
  22720.  
  22721.  
  22722.  
  22723.  
  22724.  
  22725.  
  22726.  
  22727.  
  22728.  
  22729.  
  22730.  
  22731.  
  22732.  
  22733.  
  22734.  
  22735.  
  22736.  
  22737.  
  22738.  
  22739.  
  22740.  
  22741.  
  22742.  
  22743.  
  22744.  
  22745.  
  22746.  
  22747.  
  22748.  
  22749.  
  22750.  
  22751.  
  22752.  
  22753.  
  22754.  
  22755.  
  22756.  
  22757.  
  22758.  
  22759.  
  22760.  
  22761.  
  22762.  
  22763.  
  22764.  
  22765.  
  22766.  
  22767.  
  22768.  
  22769.  
  22770.  
  22771.  
  22772.  
  22773.  
  22774.  
  22775.  
  22776.  
  22777.  
  22778.  
  22779.  
  22780.  
  22781.  
  22782.  
  22783.  
  22784.  
  22785.  
  22786.  
  22787.  
  22788.  
  22789.  
  22790.  
  22791.  
  22792.  
  22793.  
  22794.  
  22795.  
  22796.  
  22797.  
  22798.  
  22799.  
  22800.  
  22801.  
  22802.  
  22803.  
  22804.  
  22805.  
  22806.  
  22807.  
  22808.  
  22809.  
  22810.  
  22811.  
  22812.  
  22813.  
  22814.  
  22815.  
  22816.  
  22817.  
  22818.  
  22819.  
  22820.  
  22821.  
  22822.  
  22823.  
  22824.  
  22825.  
  22826.  
  22827.  
  22828.  
  22829.  
  22830.  
  22831.  
  22832.  
  22833.  
  22834.  
  22835.  
  22836.  
  22837.  
  22838.  
  22839.  
  22840.  
  22841.  
  22842.  
  22843.  
  22844.  
  22845.  
  22846.  
  22847.  
  22848.  
  22849.  
  22850.  
  22851.  
  22852.  
  22853.  
  22854.  
  22855.  
  22856.  
  22857.  
  22858.  
  22859.  
  22860.  
  22861.  
  22862.  
  22863.  
  22864.  
  22865.  
  22866.  
  22867.  
  22868.  
  22869.  
  22870.  
  22871.  
  22872.  
  22873.  
  22874.  
  22875.  
  22876.  
  22877.  
  22878.  
  22879.  
  22880.  
  22881.  
  22882.  
  22883.  
  22884.  
  22885.  
  22886.  
  22887.  
  22888.  
  22889.  
  22890.  
  22891.  
  22892.  
  22893.  
  22894.  
  22895.  
  22896.  
  22897.  
  22898.  
  22899.  
  22900.  
  22901.  
  22902.  
  22903.  
  22904.  
  22905.  
  22906.  
  22907.  
  22908.  
  22909.  
  22910.  
  22911.  
  22912.  
  22913.  
  22914.  
  22915.  
  22916.  
  22917.  
  22918.  
  22919.  
  22920.  
  22921.  
  22922.  
  22923.  
  22924.  
  22925.  
  22926.  
  22927.  
  22928.  
  22929.  
  22930.  
  22931.  
  22932.  
  22933.  
  22934.  
  22935.  
  22936.  
  22937.  
  22938.  
  22939.  
  22940.  
  22941.  
  22942.  
  22943.  
  22944.  
  22945.  
  22946.  
  22947.  
  22948.  
  22949.  
  22950.  
  22951.  
  22952.  
  22953.  
  22954.  
  22955.  
  22956.  
  22957.  
  22958.  
  22959.  
  22960.  
  22961.  
  22962.  
  22963.  
  22964.  
  22965.  
  22966.  
  22967.  
  22968.  
  22969.  
  22970.  
  22971.  
  22972.  
  22973.  
  22974.  
  22975.  
  22976.  
  22977.  
  22978.  
  22979.  
  22980.  
  22981.  
  22982.  
  22983.  
  22984.  
  22985.  
  22986.  
  22987.  
  22988.  
  22989.  
  22990.  
  22991.  
  22992.  
  22993.  
  22994.  
  22995.  
  22996.  
  22997.  
  22998.  
  22999.  
  23000.  
  23001.  
  23002.  
  23003.  
  23004.  
  23005.  
  23006.  
  23007.  
  23008.  
  23009.  
  23010.  
  23011.  
  23012.  
  23013.  
  23014.  
  23015.  
  23016.  
  23017.  
  23018.  
  23019.  
  23020.  
  23021.  
  23022.  
  23023.  
  23024.  
  23025.  
  23026.  
  23027.  
  23028.  
  23029.  
  23030.  
  23031.  
  23032.  
  23033.  
  23034.  
  23035.  
  23036.  
  23037.  
  23038.  
  23039.  
  23040.  
  23041.  
  23042.  
  23043.  
  23044.  
  23045.  
  23046.  
  23047.  
  23048.  
  23049.  
  23050.  
  23051.  
  23052.  
  23053.  
  23054.   regPutN ("jogo", 1);
  23055.  
  23056.   menuLock (1);
  23057.  
  23058.   loadvrt ("map.vrt");
  23059.  
  23060.   clrtrig (me, 0);
  23061.  
  23062. }
  23063.  
  23064. if (share (1)==74)
  23065.  
  23066.   vis (me);
  23067.  
  23068. else
  23069.  
  23070.   invis (me);
  23071.  
  23072.  
  23073. end
  23074. End_Chunk
  23075.  
  23076. Chunk: ImageRef
  23077.  Number: 1
  23078.  Index: 1 Image: 54
  23079. End_Chunk
  23080. Chunk: Colours
  23081.  Number: 1
  23082.  0xA9
  23083. End_Chunk
  23084. ;
  23085. ;-------Object  130-------------------------------------------------------
  23086. ; 
  23087. Chunk: Standard
  23088.  Name:     "floor[130]"
  23089.  Number:   130
  23090.  Size:     50456 24000 200
  23091.  Position: 1949910 1000 1859600
  23092.  Type:     25
  23093.  Layer:    0
  23094. End_Chunk
  23095.  
  23096. Chunk: ImageRef
  23097.  Number: 2
  23098.  Index: 1 Image: 49
  23099.  Index: 2 Image: 59
  23100. End_Chunk
  23101. Chunk: TexCoords
  23102.  Number: 2
  23103.  Mode:   0
  23104.  SubChunk
  23105.   Facet:     1
  23106.   ImageRef:  1
  23107.   PixScale:  0
  23108.   NumCoords: 4
  23109.     0.00000 0.00000
  23110.     0.00000 1.00000
  23111.     1.00000 1.00000
  23112.     1.00000 0.00000
  23113.  SubChunk
  23114.   Facet:     2
  23115.   ImageRef:  2
  23116.   PixScale:  0
  23117.   NumCoords: 4
  23118.     0.00000 0.00000
  23119.     0.00000 1.00000
  23120.     1.00000 1.00000
  23121.     1.00000 0.00000
  23122. End_Chunk
  23123.  
  23124. Chunk: SoundRef
  23125.  Number: 1
  23126.  Index: 1 Sound: 2
  23127. End_Chunk
  23128. Chunk: InitPos
  23129.  Position: 1949910 1000 1859600
  23130. End_Chunk
  23131. Chunk: SCL
  23132. resume (1, 2);
  23133.  
  23134. if (activate (me, 0))
  23135.  
  23136. {
  23137.  
  23138. /* Menulock stuff*/
  23139.  
  23140.   useObj (76);
  23141.  
  23142.   regPutN ("jogo", 1);
  23143.  
  23144.   menuLock (1);
  23145.  
  23146.   share (1)=76;
  23147.  
  23148.   share (70)=0;
  23149.  
  23150.   share (69)=0;
  23151.  
  23152.   loadvrt ("map.vrt");
  23153.  
  23154.   clrtrig (me, 0);
  23155.  
  23156. }
  23157.  
  23158. if (share (1)==76)
  23159.  
  23160. {
  23161.  
  23162.   vis (me);
  23163.  
  23164.   if (xpos (me)==ixpos (me))
  23165.  
  23166.   {
  23167.  
  23168.     repeat (40)
  23169.  
  23170.     {
  23171.  
  23172.       xpos (me)+=1000;
  23173.  
  23174.       waitf;
  23175.  
  23176.     }
  23177.  
  23178.     sound (1, 62, 127, 0);
  23179.  
  23180.     sound (1, 62, 127, 0);
  23181.  
  23182.     sound (1, 62, 127, 0);
  23183.  
  23184.   }
  23185.  
  23186. }
  23187.  
  23188. else
  23189.  
  23190.   invis (me);
  23191.  
  23192.  
  23193. end
  23194. End_Chunk
  23195. Chunk: Colours
  23196.  Number: 1
  23197.  0xA9
  23198. End_Chunk
  23199. ;
  23200. ;-------Object  131-------------------------------------------------------
  23201. ; 
  23202. Chunk: Standard
  23203.  Name:     "rightwall[131]"
  23204.  Number:   131
  23205.  Size:     33356 30000 0
  23206.  Position: 1936554 1000 1866800
  23207.  Type:     0
  23208.  Layer:    0
  23209. End_Chunk
  23210. Chunk: TexCoords
  23211.  Number: 1
  23212.  Mode:   0
  23213.  SubChunk
  23214.   Facet:     2
  23215.   ImageRef:  1
  23216.   PixScale:  0
  23217.   NumCoords: 4
  23218.     0.00000 0.00000
  23219.     0.00000 1.00000
  23220.     1.00000 1.00000
  23221.     1.00000 0.00000
  23222. End_Chunk
  23223.  
  23224. Chunk: ImageRef
  23225.  Number: 2
  23226.  Index: 1 Image: 28
  23227.  Index: 2 Image: 65535
  23228. End_Chunk
  23229. Chunk: Colours
  23230.  Number: 6
  23231.  0x77 0x76 0x4B 0x76 0x17 0x75
  23232. End_Chunk
  23233. ;
  23234. ;-------Object  132-------------------------------------------------------
  23235. ; 
  23236. Chunk: Standard
  23237.  Name:     "rightwall[132]"
  23238.  Number:   132
  23239.  Size:     33356 30000 8000
  23240.  Position: 2066266 1000 1868800
  23241.  Type:     0
  23242.  Layer:    0
  23243. End_Chunk
  23244. Chunk: TexCoords
  23245.  Number: 1
  23246.  Mode:   0
  23247.  SubChunk
  23248.   Facet:     2
  23249.   ImageRef:  1
  23250.   PixScale:  0
  23251.   NumCoords: 4
  23252.     0.00000 0.00000
  23253.     0.00000 1.00000
  23254.     1.00000 1.00000
  23255.     1.00000 0.00000
  23256. End_Chunk
  23257.  
  23258. Chunk: ImageRef
  23259.  Number: 2
  23260.  Index: 1 Image: 28
  23261.  Index: 2 Image: 65535
  23262. End_Chunk
  23263. Chunk: Colours
  23264.  Number: 6
  23265.  0x77 0x76 0x00 0x76 0x17 0x75
  23266. End_Chunk
  23267. ;
  23268. ;-------Object  133-------------------------------------------------------
  23269. ; 
  23270. Chunk: Standard
  23271.  Name:     "chimney[133]"
  23272.  Number:   133
  23273.  Size:     7300 9000 0
  23274.  Position: 2031013 1000 1935675
  23275.  Type:     18
  23276.  Layer:    0
  23277.  DFlags:   E
  23278.  OFlags:   Ii
  23279. End_Chunk
  23280. Chunk: TexCoords
  23281.  Number: 1
  23282.  Mode:   0
  23283.  SubChunk
  23284.   Facet:     1
  23285.   ImageRef:  1
  23286.   PixScale:  0
  23287.   NumCoords: 4
  23288.     0.00000 0.00000
  23289.     0.00000 1.00000
  23290.     1.00000 1.00000
  23291.     1.00000 0.00000
  23292. End_Chunk
  23293.  
  23294. Chunk: SoundRef
  23295.  Number: 3
  23296.  Index: 1 Sound: 3
  23297.  Index: 2 Sound: 4
  23298.  Index: 3 Sound: 5
  23299. End_Chunk
  23300. Chunk: InitSize
  23301.  Size: 7300 9000 0
  23302. End_Chunk
  23303. Chunk: SCL
  23304. long   Temp, X, Z, X2, Z2, TEMP;
  23305.  
  23306.  
  23307.  
  23308. resume (1, 2);
  23309.  
  23310. if (first)
  23311.  
  23312. {
  23313.  
  23314.   regGetN ("dog", &Temp);
  23315.  
  23316.   if (Temp)
  23317.  
  23318.     vis (me);
  23319.  
  23320. }
  23321.  
  23322. yrot (me)=359-yvroff+yrot (object (vattach));
  23323.  
  23324. if (timgref (me, 1)!=4)
  23325.  
  23326.   timgref (me, 1)=random (2)+1;
  23327.  
  23328. if (random (100)==1 && vis? (me) && timgref (me, 1)!=4)
  23329.  
  23330. {
  23331.  
  23332.   timgref (me, 1)=3;
  23333.  
  23334.   sound (1, 64, 127, 0);
  23335.  
  23336.   waitfs (10);
  23337.  
  23338. }
  23339.  
  23340. if (random (80000-timSince/144)==1)
  23341.  
  23342. {
  23343.  
  23344.  
  23345.  
  23346. /* get hungry*/
  23347.  
  23348.  
  23349.  
  23350.   regGetN ("dog", &TEMP);
  23351.  
  23352.   if (TEMP>1)
  23353.  
  23354.   {
  23355.  
  23356.     --TEMP;
  23357.  
  23358.     regPutN ("dog", TEMP);
  23359.  
  23360.     if (TEMP<3)
  23361.  
  23362.       sound (2, 64, 127, 0);
  23363.  
  23364.   }
  23365.  
  23366.   else
  23367.  
  23368.     regPutN ("dog", 0);
  23369.  
  23370. }
  23371.  
  23372. if (activate (me, 0))
  23373.  
  23374. {
  23375.  
  23376.   if (share (1)==24)
  23377.  
  23378.   {
  23379.  
  23380.  
  23381.  
  23382. /* give food   */
  23383.  
  23384.  
  23385.  
  23386.     regPutN ("dog", 5);
  23387.  
  23388.     sound (3, 64, 127, 0);
  23389.  
  23390.     useObj (share (1));
  23391.  
  23392.   }
  23393.  
  23394.   else
  23395.  
  23396.   {
  23397.  
  23398.     if ( (share (1)==29 || share (1)==27) && #66.Temp==0)
  23399.  
  23400.     {
  23401.  
  23402.  
  23403.  
  23404. /* poisoned*/
  23405.  
  23406.  
  23407.  
  23408.       useObj (share (1));
  23409.  
  23410.       sound (2, 64, 127, 0);
  23411.  
  23412.       timgref (me, 1)=4;
  23413.  
  23414.       #66.Temp=2;
  23415.  
  23416.       regPutN ("dog", 0);
  23417.  
  23418.     }
  23419.  
  23420.   }
  23421.  
  23422.   clrtrig (me, 0);
  23423.  
  23424. }
  23425.  
  23426. if (getvp==3 && vis? (me))
  23427.  
  23428. {
  23429.  
  23430.   xrot (me)=359-yvroff;
  23431.  
  23432.   apos (1500, 500, 1700, #127, &X, &null, &Z);
  23433.  
  23434.   apos (3200, 500, 0, me, &X2, &null, &Z2);
  23435.  
  23436.   if (abs (X-X2)+abs (Z-Z2)<10000)
  23437.  
  23438.   {
  23439.  
  23440.     invis (me);
  23441.  
  23442.     vis (#134);
  23443.  
  23444.     if (timgref (me, 1)!=4)
  23445.  
  23446.       sound (2, 64, 127, 0);
  23447.  
  23448.     regPutN ("dog", 0);
  23449.  
  23450.     kill (me);
  23451.  
  23452.   }
  23453.  
  23454. }
  23455. end
  23456. End_Chunk
  23457. Chunk: Rotations
  23458.  Initial: 0x0000 0xFFFF8819 0x0000
  23459.  Centre:  3650 4500 0
  23460. End_Chunk
  23461.  
  23462. Chunk: ImageRef
  23463.  Number: 4
  23464.  Index: 1 Image: 60
  23465.  Index: 2 Image: 62
  23466.  Index: 3 Image: 63
  23467.  Index: 4 Image: 65
  23468. End_Chunk
  23469. ;
  23470. ;-------Object  134-------------------------------------------------------
  23471. ; 
  23472. Chunk: Standard
  23473.  Name:     "dogblood"
  23474.  Number:   134
  23475.  Size:     9294 0 8002
  23476.  Position: 2030386 1000 1931441
  23477.  Type:     5
  23478.  Layer:    0
  23479.  DFlags:   E
  23480.  OFlags:   Ii
  23481. End_Chunk
  23482. Chunk: TexCoords
  23483.  Number: 1
  23484.  Mode:   0
  23485.  SubChunk
  23486.   Facet:     1
  23487.   ImageRef:  1
  23488.   PixScale:  0
  23489.   NumCoords: 4
  23490.     0.00000 0.00000
  23491.     0.00000 1.00000
  23492.     1.00000 1.00000
  23493.     1.00000 0.00000
  23494. End_Chunk
  23495.  
  23496. Chunk: ImageRef
  23497.  Number: 1
  23498.  Index: 1 Image: 64
  23499. End_Chunk
  23500. ;
  23501. ;-------Object  106-------------------------------------------------------
  23502. ; 
  23503. Chunk: Standard
  23504.  Name:     "10"
  23505.  Number:   106
  23506.  Size:     1000 1000 1000
  23507.  Position: 2047679 1000 1887800
  23508.  Type:     65535
  23509.  Layer:    0
  23510.  DFlags:   E
  23511. End_Chunk
  23512. Chunk: SCL
  23513. long   nearMe;
  23514.  
  23515. objnum Choose;
  23516.  
  23517. short  theObj;
  23518.  
  23519.  
  23520.  
  23521. resume (2, 0);
  23522.  
  23523. if (#111.Follow==me)
  23524.  
  23525. {
  23526.  
  23527.   nearMe=mdist (me, #109);
  23528.  
  23529.   if (nearMe<14000)
  23530.  
  23531.   {
  23532.  
  23533.     #111.Go=0;
  23534.  
  23535.     waitfs (#111.Delay);
  23536.  
  23537.     theObj=table (random (2)) {#142, #135};
  23538.  
  23539.     Choose=object (theObj);
  23540.  
  23541.     #111.Follow=Choose;
  23542.  
  23543.     #111.Go=1;
  23544.  
  23545.   }
  23546.  
  23547. }
  23548. end
  23549. End_Chunk
  23550. ;
  23551. ;-------Object  135-------------------------------------------------------
  23552. ; 
  23553. Chunk: Standard
  23554.  Name:     "8"
  23555.  Number:   135
  23556.  Size:     1000 1000 1000
  23557.  Position: 1991679 1000 1895800
  23558.  Type:     65535
  23559.  Layer:    0
  23560.  DFlags:   E
  23561. End_Chunk
  23562. Chunk: SCL
  23563. long   nearMe;
  23564.  
  23565. objnum Choose;
  23566.  
  23567. short  theObj;
  23568.  
  23569.  
  23570.  
  23571. resume (2, 0);
  23572.  
  23573. if (#111.Follow==me)
  23574.  
  23575. {
  23576.  
  23577.   nearMe=mdist (me, #109);
  23578.  
  23579.   if (nearMe<14000)
  23580.  
  23581.   {
  23582.  
  23583.     #111.Go=0;
  23584.  
  23585.     waitfs (#111.Delay);
  23586.  
  23587.     theObj=table (random (2)) {#142, #141};
  23588.  
  23589.     Choose=object (theObj);
  23590.  
  23591.     #111.Follow=Choose;
  23592.  
  23593.     #111.Go=1;
  23594.  
  23595.   }
  23596.  
  23597. }
  23598. end
  23599. End_Chunk
  23600. ;
  23601. ;-------Object  136-------------------------------------------------------
  23602. ; 
  23603. Chunk: Standard
  23604.  Name:     "1"
  23605.  Number:   136
  23606.  Size:     1000 1000 1000
  23607.  Position: 1986679 1000 1940800
  23608.  Type:     65535
  23609.  Layer:    0
  23610.  DFlags:   E
  23611. End_Chunk
  23612. Chunk: SCL
  23613. long   nearMe;
  23614.  
  23615. objnum Choose;
  23616.  
  23617. short  theObj;
  23618.  
  23619.  
  23620.  
  23621. resume (2, 0);
  23622.  
  23623. if (#111.Follow==me)
  23624.  
  23625. {
  23626.  
  23627.   nearMe=mdist (me, #109);
  23628.  
  23629.   if (nearMe<14000)
  23630.  
  23631.   {
  23632.  
  23633.     #111.Go=0;
  23634.  
  23635.     waitfs (#111.Delay);
  23636.  
  23637.     theObj=table (random (2)) {#142, #135};
  23638.  
  23639.     Choose=object (theObj);
  23640.  
  23641.     #111.Follow=Choose;
  23642.  
  23643.     #111.Go=1;
  23644.  
  23645.   }
  23646.  
  23647. }
  23648. end
  23649. End_Chunk
  23650. ;
  23651. ;-------Object  137-------------------------------------------------------
  23652. ; 
  23653. Chunk: Standard
  23654.  Name:     "7"
  23655.  Number:   137
  23656.  Size:     1000 1000 1000
  23657.  Position: 2008679 1000 1925800
  23658.  Type:     65535
  23659.  Layer:    0
  23660.  DFlags:   E
  23661. End_Chunk
  23662. Chunk: SCL
  23663. long   nearMe;
  23664.  
  23665. objnum Choose;
  23666.  
  23667. short  theObj;
  23668.  
  23669.  
  23670.  
  23671. resume (2, 0);
  23672.  
  23673. if (#111.Follow==me)
  23674.  
  23675. {
  23676.  
  23677.   nearMe=mdist (me, #109);
  23678.  
  23679.   if (nearMe<14000)
  23680.  
  23681.   {
  23682.  
  23683.     #111.Go=0;
  23684.  
  23685.     waitfs (#111.Delay);
  23686.  
  23687.     theObj=table (random (2)) {#136, #112};
  23688.  
  23689.     Choose=object (theObj);
  23690.  
  23691.     #111.Follow=Choose;
  23692.  
  23693.     #111.Go=1;
  23694.  
  23695.   }
  23696.  
  23697. }
  23698. end
  23699. End_Chunk
  23700. ;
  23701. ;-------Object  138-------------------------------------------------------
  23702. ; 
  23703. Chunk: Standard
  23704.  Name:     "5"
  23705.  Number:   138
  23706.  Size:     1000 1000 1000
  23707.  Position: 2052679 1000 1932800
  23708.  Type:     65535
  23709.  Layer:    0
  23710.  DFlags:   E
  23711. End_Chunk
  23712. Chunk: SCL
  23713. long   nearMe;
  23714.  
  23715. objnum Choose;
  23716.  
  23717. short  theObj;
  23718.  
  23719.  
  23720.  
  23721. resume (2, 0);
  23722.  
  23723. if (#111.Follow==me)
  23724.  
  23725. {
  23726.  
  23727.   nearMe=mdist (me, #109);
  23728.  
  23729.   if (nearMe<14000)
  23730.  
  23731.   {
  23732.  
  23733.     #111.Go=0;
  23734.  
  23735.     waitfs (#111.Delay);
  23736.  
  23737.     theObj=table (random (2)) {#140, #106};
  23738.  
  23739.     Choose=object (theObj);
  23740.  
  23741.     #111.Follow=Choose;
  23742.  
  23743.     #111.Go=1;
  23744.  
  23745.   }
  23746.  
  23747. }
  23748. end
  23749. End_Chunk
  23750. ;
  23751. ;-------Object  139-------------------------------------------------------
  23752. ; 
  23753. Chunk: Standard
  23754.  Name:     "2"
  23755.  Number:   139
  23756.  Size:     1000 1000 1000
  23757.  Position: 2042679 3000 1984800
  23758.  Type:     65535
  23759.  Layer:    0
  23760.  DFlags:   E
  23761. End_Chunk
  23762. Chunk: SCL
  23763. long   nearMe;
  23764.  
  23765. objnum Choose;
  23766.  
  23767. short  theObj;
  23768.  
  23769.  
  23770.  
  23771. resume (2, 0);
  23772.  
  23773. if (#111.Follow==me)
  23774.  
  23775. {
  23776.  
  23777.   nearMe=mdist (me, #109);
  23778.  
  23779.   if (nearMe<14000)
  23780.  
  23781.   {
  23782.  
  23783.     #111.Go=0;
  23784.  
  23785.     waitfs (#111.Delay);
  23786.  
  23787.     theObj=table (random (2)) {#137, #138};
  23788.  
  23789.     Choose=object (theObj);
  23790.  
  23791.     #111.Follow=Choose;
  23792.  
  23793.     #111.Go=1;
  23794.  
  23795.   }
  23796.  
  23797. }
  23798. end
  23799. End_Chunk
  23800. ;
  23801. ;-------Object  140-------------------------------------------------------
  23802. ; 
  23803. Chunk: Standard
  23804.  Name:     "4"
  23805.  Number:   140
  23806.  Size:     1000 1000 1000
  23807.  Position: 2037679 1000 1951800
  23808.  Type:     65535
  23809.  Layer:    0
  23810.  DFlags:   E
  23811. End_Chunk
  23812. Chunk: SCL
  23813. long   nearMe;
  23814.  
  23815. objnum Choose;
  23816.  
  23817. short  theObj;
  23818.  
  23819.  
  23820.  
  23821. resume (2, 0);
  23822.  
  23823. if (#111.Follow==me)
  23824.  
  23825. {
  23826.  
  23827.   nearMe=mdist (me, #109);
  23828.  
  23829.   if (nearMe<14000)
  23830.  
  23831.   {
  23832.  
  23833.     #111.Go=0;
  23834.  
  23835.     waitfs (#111.Delay);
  23836.  
  23837.     theObj=table (random (2)) {#141, #137};
  23838.  
  23839.     Choose=object (theObj);
  23840.  
  23841.     #111.Follow=Choose;
  23842.  
  23843.     #111.Go=1;
  23844.  
  23845.   }
  23846.  
  23847. }
  23848. end
  23849. End_Chunk
  23850. ;
  23851. ;-------Object  141-------------------------------------------------------
  23852. ; 
  23853. Chunk: Standard
  23854.  Name:     "6"
  23855.  Number:   141
  23856.  Size:     1000 1000 1000
  23857.  Position: 2031679 1000 1922800
  23858.  Type:     65535
  23859.  Layer:    0
  23860.  DFlags:   E
  23861. End_Chunk
  23862. Chunk: SCL
  23863. long   nearMe;
  23864.  
  23865. objnum Choose;
  23866.  
  23867. short  theObj;
  23868.  
  23869.  
  23870.  
  23871. resume (2, 0);
  23872.  
  23873. if (#111.Follow==me)
  23874.  
  23875. {
  23876.  
  23877.   nearMe=mdist (me, #109);
  23878.  
  23879.   if (nearMe<14000)
  23880.  
  23881.   {
  23882.  
  23883.     #111.Go=0;
  23884.  
  23885.     waitfs (#111.Delay);
  23886.  
  23887.     theObj=table (random (2)) {#112, #106};
  23888.  
  23889.     Choose=object (theObj);
  23890.  
  23891.     #111.Follow=Choose;
  23892.  
  23893.     #111.Go=1;
  23894.  
  23895.   }
  23896.  
  23897. }
  23898. end
  23899. End_Chunk
  23900. ;
  23901. ;-------Object  142-------------------------------------------------------
  23902. ; 
  23903. Chunk: Standard
  23904.  Name:     "3"
  23905.  Number:   142
  23906.  Size:     1000 1000 1000
  23907.  Position: 2015679 1000 1969800
  23908.  Type:     65535
  23909.  Layer:    0
  23910.  DFlags:   E
  23911. End_Chunk
  23912. Chunk: SCL
  23913. long   nearMe;
  23914.  
  23915. objnum Choose;
  23916.  
  23917. short  theObj;
  23918.  
  23919.  
  23920.  
  23921. resume (2, 0);
  23922.  
  23923. if (#111.Follow==me)
  23924.  
  23925. {
  23926.  
  23927.   nearMe=mdist (me, #109);
  23928.  
  23929.   if (nearMe<14000)
  23930.  
  23931.   {
  23932.  
  23933.     #111.Go=0;
  23934.  
  23935.     waitfs (#111.Delay);
  23936.  
  23937.     theObj=table (random (2)) {#139, #140};
  23938.  
  23939.     Choose=object (theObj);
  23940.  
  23941.     #111.Follow=Choose;
  23942.  
  23943.     #111.Go=1;
  23944.  
  23945.   }
  23946.  
  23947. }
  23948. end
  23949. End_Chunk
  23950. ;
  23951. ;-------Object  109-------------------------------------------------------
  23952. ; 
  23953. Chunk: Standard
  23954.  Name:     "WOMAN_HOLD"
  23955.  Number:   109
  23956.  Size:     5470 18000 5640
  23957.  Position: 1988253 0 1961800
  23958.  Type:     65535
  23959.  Layer:    0
  23960.  OFlags:   Ii
  23961. End_Chunk
  23962. Chunk: InitPos
  23963.  Position: 1988253 0 1961800
  23964. End_Chunk
  23965. Chunk: Dynamics
  23966.  MovType:     0x80000081
  23967.  Fuel:        0
  23968.  Climb:       5000
  23969.  Gravity:     120
  23970.  Coupled:     111
  23971.  Drive:       0 0 0
  23972.  External:    0 0 0
  23973.  MaxForce:    0 0 0
  23974.  GroundFric:  0 0 0
  23975.  Restitution: 0 0 0
  23976.  Velocity:    0 0 0
  23977.  MaxVel:      0 0 0
  23978. End_Chunk
  23979.  
  23980. Children:
  23981. ;
  23982. ;-------Object  110-------------------------------------------------------
  23983. ; 
  23984. Chunk: Standard
  23985.  Name:     "woman"
  23986.  Number:   110
  23987.  Size:     0 23900 9600
  23988.  Position: 2621 0 -1519
  23989.  Type:     22
  23990.  Layer:    0
  23991.  DFlags:   E
  23992. End_Chunk
  23993. Chunk: TexCoords
  23994.  Number: 1
  23995.  Mode:   0
  23996.  SubChunk
  23997.   Facet:     2
  23998.   ImageRef:  1
  23999.   PixScale:  0
  24000.   NumCoords: 4
  24001.     0.00000 0.00000
  24002.     0.00000 1.00000
  24003.     1.00000 1.00000
  24004.     1.00000 0.00000
  24005. End_Chunk
  24006.  
  24007. Chunk: ImageRef
  24008.  Number: 1
  24009.  Index: 1 Image: 35
  24010. End_Chunk
  24011. Chunk: InitPos
  24012.  Position: 2621 0 -1519
  24013. End_Chunk
  24014. Chunk: InitSize
  24015.  Size: 0 23900 9600
  24016. End_Chunk
  24017. Chunk: Rotations
  24018.  Initial: 0x0000 0x0000 0x0000
  24019.  Centre:  0 11950 0
  24020. End_Chunk
  24021. Chunk: SCL
  24022. short  ROT, IMG, TEMP, NUM;
  24023.  
  24024. fixed  Y;
  24025.  
  24026. short  ROTS, ONCE=1;
  24027.  
  24028.  
  24029.  
  24030. resume (2, 2);
  24031.  
  24032. yrot (me)=89-yvroff+yrot (object (vattach));
  24033.  
  24034. if (ROT)
  24035.  
  24036. {
  24037.  
  24038.   ROTS=ROT-44;
  24039.  
  24040.   NUM=table (ROTS) {18, 18, 18, 18, 18, 20, 15, 19, 18, 12, 20, 
  24041.  
  24042.       18, 13, 23, 21, 17, 11, 16};
  24043.  
  24044.   Y=angle (me, #2);
  24045.  
  24046.   IMG= ( (-Y+181)/ (360/NUM)+NUM/2-1)%NUM+1;
  24047.  
  24048.   if (ONCE)
  24049.  
  24050.   {
  24051.  
  24052.     repeat (NUM)
  24053.  
  24054.     {
  24055.  
  24056.       counter (20)=inloop;
  24057.  
  24058.       waitf;
  24059.  
  24060.     }
  24061.  
  24062.     ONCE=0;
  24063.  
  24064.   }
  24065.  
  24066.   if (IMG!=TEMP)
  24067.  
  24068.   {
  24069.  
  24070.     counter (20)=IMG;
  24071.  
  24072.     TEMP=IMG;
  24073.  
  24074.   }
  24075.  
  24076. }
  24077. end
  24078. End_Chunk
  24079. ;
  24080. ;-------Object  111-------------------------------------------------------
  24081. ; 
  24082. Chunk: Standard
  24083.  Name:     "direction"
  24084.  Number:   111
  24085.  Size:     2000 2181 2000
  24086.  Position: 1850 13309 1954
  24087.  Type:     65535
  24088.  Layer:    0
  24089.  DFlags:   rE
  24090. End_Chunk
  24091. Chunk: SCL
  24092. objnum Follow;
  24093.  
  24094. short  Speed=800, Delay=200, Go=1;
  24095.  
  24096. fixed  x, y;
  24097.  
  24098.  
  24099.  
  24100. if (first)
  24101.  
  24102.   Follow=#136;
  24103.  
  24104. y=angle3d (Follow, me, &y);
  24105.  
  24106. yrot (me)=y;
  24107.  
  24108. if (Go==1)
  24109.  
  24110.   zdrive (parent (me))=Speed;
  24111.  
  24112. else
  24113.  
  24114.   zdrive (parent (me))=0;
  24115.  
  24116.  
  24117. end
  24118. End_Chunk
  24119. Chunk: Rotations
  24120.  Initial: 0x0000 0x0000 0x0000
  24121.  Centre:  1000 1090 1000
  24122. End_Chunk
  24123.  
  24124. End_Children
  24125. ;
  24126. ;-------Object  143-------------------------------------------------------
  24127. ; 
  24128. Chunk: Standard
  24129.  Name:     "Menus"
  24130.  Number:   143
  24131.  Size:     10000 10000 10000
  24132.  Position: 2069272 0 1914288
  24133.  Type:     65535
  24134.  Layer:    0
  24135. End_Chunk
  24136. Chunk: SCL
  24137. if (first)
  24138.  
  24139. {
  24140.  
  24141.   menuNew (me);
  24142.  
  24143.   menuLock (0);
  24144.  
  24145. }
  24146. end
  24147. End_Chunk
  24148. Chunk: Text
  24149.   "item \"E&xit\" scl exitVis; sclend\r"
  24150.   "item \"A&bout\" scl Credits; sclend"
  24151. End_Chunk
  24152. ;
  24153. ;-------Object  144-------------------------------------------------------
  24154. ; 
  24155. Chunk: Standard
  24156.  Name:     "clickJo 2"
  24157.  Number:   144
  24158.  Size:     3000 3000 3000
  24159.  Position: 2060257 3000 2025864
  24160.  Type:     65535
  24161.  Layer:    0
  24162. End_Chunk
  24163. Chunk: SCL
  24164. long   TEMP, COOKING;
  24165.  
  24166. short  COOKED, FREE=1, MOOD, WEAR;
  24167.  
  24168. char   NAME[256], SHARE[10];
  24169.  
  24170.  
  24171.  
  24172. resume (4, 4);
  24173.  
  24174.  
  24175.  
  24176. /*CODE FOR CLICKING ON JO*/
  24177.  
  24178.  
  24179.  
  24180. if (first)
  24181.  
  24182.   counter (40)=-1;
  24183.  
  24184. if (counter (40)>=0)
  24185.  
  24186. {
  24187.  
  24188.   FREE=1;
  24189.  
  24190.   MOOD=counter (40);
  24191.  
  24192.   counter (40)=-1;
  24193.  
  24194.   if (share (1)>=0)
  24195.  
  24196.   {
  24197.  
  24198.     if (objAttrP (share (1), "G"))
  24199.  
  24200.     {
  24201.  
  24202.  
  24203.  
  24204.       /* SOUND RESPONSES FOR GIVE DEPENDING ON MOOD  */
  24205.  
  24206.  
  24207.  
  24208.       switch (MOOD);
  24209.  
  24210.       case 0: 
  24211.  
  24212.         counter (25)=table (random (4)) {95, 97, 6, 105};
  24213.  
  24214.       case 1: 
  24215.  
  24216.         counter (25)=table (random (3)) {95, 97, 6};
  24217.  
  24218.       case 2: 
  24219.  
  24220.         counter (25)=table (random (4)) {6, 14, 21, 91};
  24221.  
  24222.       case 3: 
  24223.  
  24224.         counter (25)=table (random (10)) {21, 16, 40, 91, 6, 20, 
  24225.  
  24226.             14, 21, 171, 91};
  24227.  
  24228.       case 4: 
  24229.  
  24230.         counter (25)=table (random (10)) {20, 52, 53, 94, 159, 
  24231.  
  24232.             171, 14, 1, 91, 40};
  24233.  
  24234.  
  24235.  
  24236.       /* END OF GIVE */
  24237.  
  24238.  
  24239.  
  24240.     }
  24241.  
  24242.     if (share (1)>=0)
  24243.  
  24244.     {
  24245.  
  24246.       if (objAttrP (share (1), "C") && FREE)
  24247.  
  24248.       {
  24249.  
  24250.         COOKED=share (5);
  24251.  
  24252.         if (COOKED>0)
  24253.  
  24254.         {
  24255.  
  24256.           if (share (1)==22 || share (1)==23)
  24257.  
  24258.           {
  24259.  
  24260.  
  24261.  
  24262.             /* YOU COOKED THE FISH OR THE DOG*/
  24263.  
  24264.  
  24265.  
  24266.             counter (25)=table (random (6)) {30, 63, 72, 73, 72, 
  24267.  
  24268.                 72};
  24269.  
  24270.             counter (20)=table (random (3)) {105, 113, 138};
  24271.  
  24272.             share (5)=0;
  24273.  
  24274.             counter (51)=-200;
  24275.  
  24276.             counter (52)=-50;
  24277.  
  24278.             share (1)=-1;
  24279.  
  24280.           }
  24281.  
  24282.           if (share (1)>13 && share (1)<21)
  24283.  
  24284.           {
  24285.  
  24286.             regGetN ("CookedValue", &COOKING);
  24287.  
  24288.             share (5)=0;
  24289.  
  24290.             switch (COOKING);
  24291.  
  24292.             case 1: 
  24293.  
  24294.             {
  24295.  
  24296.  
  24297.  
  24298.             /*UNDER COOKED*/
  24299.  
  24300.  
  24301.  
  24302.               counter (25)=44;
  24303.  
  24304.               counter (20)=table (random (3)) {169, 170, 189};
  24305.  
  24306.               counter (51)=-20;
  24307.  
  24308.               share (1)=-1;
  24309.  
  24310.             }
  24311.  
  24312.             case 2: 
  24313.  
  24314.             {
  24315.  
  24316.  
  24317.  
  24318.             /*PERFECT*/
  24319.  
  24320.  
  24321.  
  24322.               counter (25)=table (random (3)) {13, 62, 104};
  24323.  
  24324.               counter (20)=table (random (3)) {107, 112, 134};
  24325.  
  24326.               statsObj (share (1));
  24327.  
  24328.               share (1)=-1;
  24329.  
  24330.             }
  24331.  
  24332.             case 3: 
  24333.  
  24334.             {
  24335.  
  24336.  
  24337.  
  24338.             /*BURNT*/
  24339.  
  24340.  
  24341.  
  24342.               counter (25)=table (random (4)) {5, 61, 102, 103};
  24343.  
  24344.               counter (20)=table (random (3)) {113, 138, 184};
  24345.  
  24346.               counter (51)=-10;
  24347.  
  24348.               share (1)=-1;
  24349.  
  24350.             }
  24351.  
  24352.             case 4: 
  24353.  
  24354.             {
  24355.  
  24356.               counter (25)=table (random (4)) {5, 61, 102, 103};
  24357.  
  24358.               counter (20)=table (random (3)) {113, 138, 184};
  24359.  
  24360.               counter (51)=-10;
  24361.  
  24362.               share (1)=-1;
  24363.  
  24364.             }
  24365.  
  24366.             case 5: 
  24367.  
  24368.             {
  24369.  
  24370.               counter (25)=table (random (4)) {5, 61, 102, 103};
  24371.  
  24372.               counter (20)=table (random (3)) {113, 138, 184};
  24373.  
  24374.               counter (51)=-10;
  24375.  
  24376.               share (1)=-1;
  24377.  
  24378.  
  24379.  
  24380.             /* ADD SOME DISHES*/
  24381.  
  24382.  
  24383.  
  24384.             }
  24385.  
  24386.             repeat (10)
  24387.  
  24388.             {
  24389.  
  24390.               strcpy (&NAME, "Dishes");
  24391.  
  24392.               ltoa (&SHARE, inloop);
  24393.  
  24394.               strcat (&NAME, &SHARE);
  24395.  
  24396.               if (regGetN (&NAME, &TEMP))
  24397.  
  24398.               {
  24399.  
  24400.                 regPutN (&NAME, 1);
  24401.  
  24402.                 break;
  24403.  
  24404.               }
  24405.  
  24406.               else
  24407.  
  24408.               {
  24409.  
  24410.                 if (TEMP==0)
  24411.  
  24412.                 {
  24413.  
  24414.                   regPutN (&NAME, 1);
  24415.  
  24416.                   break;
  24417.  
  24418.                 }
  24419.  
  24420.               }
  24421.  
  24422.             }
  24423.  
  24424.           }
  24425.  
  24426.           FREE=0;
  24427.  
  24428.         }
  24429.  
  24430.         else
  24431.  
  24432.         {
  24433.  
  24434.           if (share (1)!=22 && share (1)!=23)
  24435.  
  24436.           {
  24437.  
  24438.             counter (25)=table (random (2)) {24, 101};
  24439.  
  24440.             counter (20)=table (random (3)) {169, 170, 189};
  24441.  
  24442.             FREE=0;
  24443.  
  24444.           }
  24445.  
  24446.         }
  24447.  
  24448.       }
  24449.  
  24450.     }
  24451.  
  24452.     if (share (1)>=0)
  24453.  
  24454.     {
  24455.  
  24456.       if (objAttrP (share (1), "W") && FREE)
  24457.  
  24458.       {
  24459.  
  24460.         WEAR=share (7);
  24461.  
  24462.         strcpy (&NAME, "ClothesItemStatus");
  24463.  
  24464.         TEMP=share (1)-43;
  24465.  
  24466.         ltoa (&SHARE, TEMP);
  24467.  
  24468.         strcat (&NAME, &SHARE);
  24469.  
  24470.         if (regGetN (&NAME, &TEMP))
  24471.  
  24472.           TEMP=0;
  24473.  
  24474.         if (TEMP>0 && !WEAR)
  24475.  
  24476.         {
  24477.  
  24478.           share (1)=-1;
  24479.  
  24480.           counter (25)=189;
  24481.  
  24482.         }
  24483.  
  24484.         else
  24485.  
  24486.         {
  24487.  
  24488.           if (WEAR)
  24489.  
  24490.           {
  24491.  
  24492.             if (MOOD>2)
  24493.  
  24494.             {
  24495.  
  24496.  
  24497.  
  24498.             /* TRY IT ON & MAKE IT DIRTY */
  24499.  
  24500.  
  24501.  
  24502.               #110.ROT=share (1);
  24503.  
  24504.               strcpy (&NAME, "ClothesItemStatus");
  24505.  
  24506.               TEMP=share (1)-43;
  24507.  
  24508.               ltoa (&SHARE, TEMP);
  24509.  
  24510.               strcat (&NAME, &SHARE);
  24511.  
  24512.               regPutN (&NAME, 2);
  24513.  
  24514.               share (1)=-1;
  24515.  
  24516.               counter (30)=1;
  24517.  
  24518.               waitf;
  24519.  
  24520.               while (sndState)
  24521.  
  24522.                 waitf;
  24523.  
  24524.               counter (25)=table (random (6)) {19, 40, 42, 43, 
  24525.  
  24526.     46, 159, 15};
  24527.  
  24528.               share (7)=0;
  24529.  
  24530.             }
  24531.  
  24532.             else
  24533.  
  24534.             {
  24535.  
  24536.  
  24537.  
  24538.               /* NOT IN THE MOOD */
  24539.  
  24540.  
  24541.  
  24542.               share (1)=-1;
  24543.  
  24544.               share (7)=0;
  24545.  
  24546.               counter (25)=table (random (6)) {27, 92, 127};
  24547.  
  24548.             }
  24549.  
  24550.           }
  24551.  
  24552.           else
  24553.  
  24554.           {
  24555.  
  24556.  
  24557.  
  24558.           /* TAKE IT */
  24559.  
  24560.  
  24561.  
  24562.             strcpy (&NAME, "ClothesItemStatus");
  24563.  
  24564.             TEMP=share (1)-43;
  24565.  
  24566.             ltoa (&SHARE, TEMP);
  24567.  
  24568.             strcat (&NAME, &SHARE);
  24569.  
  24570.             regPutN (&NAME, 1);
  24571.  
  24572.             statsObj (share (1));
  24573.  
  24574.             useObj (share (1));
  24575.  
  24576.             counter (20)=table (random (4)) {190, 191, 192, 
  24577.  
  24578.                 193};
  24579.  
  24580.             share (7)=0;
  24581.  
  24582.           }
  24583.  
  24584.         }
  24585.  
  24586.         FREE=0;
  24587.  
  24588.       }
  24589.  
  24590.     }
  24591.  
  24592.     if (share (1)>-1 && share (1)<2 && FREE)
  24593.  
  24594.     { /*flowers*/
  24595.  
  24596.  
  24597.  
  24598.       counter (20)=table (random (4)) {108, 109, 110, 111};
  24599.  
  24600.       statsObj (share (1));
  24601.  
  24602.       useObj (share (1));
  24603.  
  24604.       FREE=0;
  24605.  
  24606.     }
  24607.  
  24608.     if (share (1)>1 && share (1)<4 && FREE)
  24609.  
  24610.     { /*chocs*/
  24611.  
  24612.  
  24613.  
  24614.       if (random (5)==3)
  24615.  
  24616.         counter (25)=33;
  24617.  
  24618.       counter (20)=table (random (4)) {190, 191, 192, 193};
  24619.  
  24620.       statsObj (share (1));
  24621.  
  24622.       useObj (share (1));
  24623.  
  24624.       FREE=0;
  24625.  
  24626.     }
  24627.  
  24628.     if (share (1)==9 && FREE)
  24629.  
  24630.     { /*budviser*/
  24631.  
  24632.  
  24633.  
  24634.       counter (25)=table (random (2)) {67, 123};
  24635.  
  24636.       counter (20)=133;
  24637.  
  24638.       statsObj (share (1));
  24639.  
  24640.       useObj (share (1));
  24641.  
  24642.       FREE=0;
  24643.  
  24644.     }
  24645.  
  24646.     if (share (1)==33 && FREE)
  24647.  
  24648.     { /*frying pan*/
  24649.  
  24650.  
  24651.  
  24652.       counter (20)=table (random (6)) {104, 103, 102, 0, 104, 
  24653.  
  24654.           105, 113};
  24655.  
  24656.       counter (25)=186;
  24657.  
  24658.       counter (26)=table (random (14)) {11, 12, 28, 63, 82, 83, 
  24659.  
  24660.           89, 90, 148, 175, 176, 178, 180, 73};
  24661.  
  24662.       statsObj (share (1));
  24663.  
  24664.       if (MOOD<2)
  24665.  
  24666.       {
  24667.  
  24668.         #111.Go=0;
  24669.  
  24670.         counter (21)=1;
  24671.  
  24672.         repeat (6)
  24673.  
  24674.         {
  24675.  
  24676.           counter (20)=table (inloop-1) {154, 155, 151, 160, 
  24677.  
  24678.               161, 158};
  24679.  
  24680.           waitfs (5);
  24681.  
  24682.         }
  24683.  
  24684.         counter (21)=0;
  24685.  
  24686.         #111.Go=1;
  24687.  
  24688.       }
  24689.  
  24690.       FREE=0;
  24691.  
  24692.     }
  24693.  
  24694.     if (share (1)==34 && FREE)
  24695.  
  24696.     { /*whip*/
  24697.  
  24698.  
  24699.  
  24700.       counter (20)=table (MOOD) {8, 138, 102, 277, 277};
  24701.  
  24702.       counter (25)=185;
  24703.  
  24704.       if (MOOD>2)
  24705.  
  24706.         counter (26)=table (random (8)) {9, 15, 85, 86, 94, 130, 
  24707.  
  24708.             171, 179};
  24709.  
  24710.       else
  24711.  
  24712.         counter (26)=table (random (15)) {93, 11, 12, 28, 63, 
  24713.  
  24714.             82, 83, 89, 90, 148, 175, 176, 178, 180, 73};
  24715.  
  24716.       statsObj (share (1));
  24717.  
  24718.       FREE=0;
  24719.  
  24720.     }
  24721.  
  24722.     if (share (1)==63 && FREE)
  24723.  
  24724.     {
  24725.  
  24726.       share (70)=3;
  24727.  
  24728.  
  24729.  
  24730.     /*add menu lock stuff*/
  24731.  
  24732.  
  24733.  
  24734.       statsObj (share (1));
  24735.  
  24736.       useObj (share (1));
  24737.  
  24738.       FREE=0;
  24739.  
  24740.       menuLock (1);
  24741.  
  24742.       loadvrt ("map.vrt");
  24743.  
  24744.     }
  24745.  
  24746.     if (share (1)==64 && FREE)
  24747.  
  24748.     {
  24749.  
  24750.       share (70)=2;
  24751.  
  24752.       statsObj (share (1));
  24753.  
  24754.       useObj (share (1));
  24755.  
  24756.       FREE=0;
  24757.  
  24758.       menuLock (1);
  24759.  
  24760.       loadvrt ("map.vrt");
  24761.  
  24762.     }
  24763.  
  24764.     if (share (1)==79 && FREE)
  24765.  
  24766.     {
  24767.  
  24768.       share (70)=1;
  24769.  
  24770.       statsObj (share (1));
  24771.  
  24772.       useObj (share (1));
  24773.  
  24774.       FREE=0;
  24775.  
  24776.       menuLock (1);
  24777.  
  24778.       loadvrt ("map.vrt");
  24779.  
  24780.     }
  24781.  
  24782.     if (share (1)>39 && share (1)<43 && FREE)
  24783.  
  24784.     {
  24785.  
  24786.       share (70)=0;
  24787.  
  24788.       switch (share (1));
  24789.  
  24790.       case 40: 
  24791.  
  24792.         share (69)=1;
  24793.  
  24794.       case 41: 
  24795.  
  24796.         share (69)=2;
  24797.  
  24798.       case 42: 
  24799.  
  24800.         share (69)=3;
  24801.  
  24802.       statsObj (share (1));
  24803.  
  24804.       useObj (share (1));
  24805.  
  24806.       FREE=0;
  24807.  
  24808.       share (1)=76;
  24809.  
  24810.       menuLock (1);
  24811.  
  24812.       loadvrt ("map.vrt");
  24813.  
  24814.     }
  24815.  
  24816.     if (share (1)==81 && FREE)
  24817.  
  24818.     {
  24819.  
  24820.       if (MOOD>2)
  24821.  
  24822.       {
  24823.  
  24824.         statsObj (share (1));
  24825.  
  24826.         useObj (share (1));
  24827.  
  24828.         menuLock (1);
  24829.  
  24830.         loadvrt ("striptease.vrt");
  24831.  
  24832.       }
  24833.  
  24834.       else
  24835.  
  24836.       {
  24837.  
  24838.         counter (25)=92;
  24839.  
  24840.         counter (20)=table (random (5)) {164, 169, 170, 189, 
  24841.  
  24842.             184};
  24843.  
  24844.         share (1)=-1;
  24845.  
  24846.       }
  24847.  
  24848.       FREE=0;
  24849.  
  24850.     }
  24851.  
  24852.     if (share (1)>9 && share (1)<13 && FREE)
  24853.  
  24854.     {
  24855.  
  24856.       counter (25)=192;
  24857.  
  24858.       statsObj (share (1));
  24859.  
  24860.       useObj (share (1));
  24861.  
  24862.       FREE=0;
  24863.  
  24864.     }
  24865.  
  24866.     if (share (1)==22)
  24867.  
  24868.     {
  24869.  
  24870.       if (regGetN ("dog", &TEMP))
  24871.  
  24872.         TEMP=0;
  24873.  
  24874.       if (TEMP!=0)
  24875.  
  24876.       {
  24877.  
  24878.         counter (20)=134;
  24879.  
  24880.         counter (25)=171;
  24881.  
  24882.         regPutN ("dog", 5);
  24883.  
  24884.         statsObj (share (1));
  24885.  
  24886.         useObj (share (1));
  24887.  
  24888.       }
  24889.  
  24890.       else
  24891.  
  24892.         counter (25)=-1;
  24893.  
  24894.       FREE=0;
  24895.  
  24896.     }
  24897.  
  24898.     if (share (1)>39 && share (1)<43 && FREE)
  24899.  
  24900.     {
  24901.  
  24902.       counter (20)=-1;
  24903.  
  24904.       counter (25)=-1;
  24905.  
  24906.       FREE=0;
  24907.  
  24908.     }
  24909.  
  24910.     if (share (1)>64 && share (1)<67 && FREE)
  24911.  
  24912.     {
  24913.  
  24914.       counter (20)=-1;
  24915.  
  24916.       counter (25)=-1;
  24917.  
  24918.       FREE=0;
  24919.  
  24920.     }
  24921.  
  24922.     if (share (1)==4 && FREE)
  24923.  
  24924.     {
  24925.  
  24926.       counter (20)=136;
  24927.  
  24928.       counter (25)=table (random (2)) {80, 76};
  24929.  
  24930.       statsObj (share (1));
  24931.  
  24932.       useObj (share (1));
  24933.  
  24934.       FREE=0;
  24935.  
  24936.     }
  24937.  
  24938.     if (share (1)==7 && FREE)
  24939.  
  24940.     {
  24941.  
  24942.       counter (25)=20;
  24943.  
  24944.       statsObj (share (1));
  24945.  
  24946.       useObj (share (1));
  24947.  
  24948.       counter (21)=1;
  24949.  
  24950.       #111.Go=0;
  24951.  
  24952.       repeat (6)
  24953.  
  24954.       {
  24955.  
  24956.         counter (20)=table (inloop-1) {283, 285, 287, 286, 288, 
  24957.  
  24958.             289};
  24959.  
  24960.         waitfs (5);
  24961.  
  24962.       }
  24963.  
  24964.       waitfs (5);
  24965.  
  24966.       counter (21)=0;
  24967.  
  24968.       #111.Go=1;
  24969.  
  24970.       FREE=0;
  24971.  
  24972.     }
  24973.  
  24974.     if (share (1)>4 && share (1)<7 && FREE)
  24975.  
  24976.     {
  24977.  
  24978.       counter (20)=table (random (3)) {170, 137, 300};
  24979.  
  24980.       statsObj (share (1));
  24981.  
  24982.       useObj (share (1));
  24983.  
  24984.       FREE=0;
  24985.  
  24986.     }
  24987.  
  24988.     if (share (1)==80 && FREE)
  24989.  
  24990.     {
  24991.  
  24992.       counter (20)=table (random (5)) {309, 310, 311, 312, 313};
  24993.  
  24994.       statsObj (share (1));
  24995.  
  24996.       useObj (share (1));
  24997.  
  24998.       FREE=0;
  24999.  
  25000.     }
  25001.  
  25002.     if (share (1)==29 && FREE)
  25003.  
  25004.     {
  25005.  
  25006.       counter (20)=table (random (2)) {105, 138};
  25007.  
  25008.       counter (25)=88;
  25009.  
  25010.       regPutN ("ill", 1);
  25011.  
  25012.       statsObj (share (1));
  25013.  
  25014.       useObj (share (1));
  25015.  
  25016.       FREE=0;
  25017.  
  25018.     }
  25019.  
  25020.     if (share (1)==27 && FREE)
  25021.  
  25022.     {
  25023.  
  25024.       counter (20)=table (random (2)) {105, 138};
  25025.  
  25026.       counter (25)=88;
  25027.  
  25028.       regPutN ("ill", 1);
  25029.  
  25030.       statsObj (share (1));
  25031.  
  25032.       useObj (share (1));
  25033.  
  25034.       FREE=0;
  25035.  
  25036.     }
  25037.  
  25038.   }
  25039.  
  25040. }
  25041. end
  25042. End_Chunk
  25043. Chunk: Colours
  25044.  Number: 6
  25045.  0x13 0x34 0x13 0x35 0x13 0x13
  25046. End_Chunk
  25047.  
  25048. End_Children
  25049. ;
  25050. ;-------Object    2-------------------------------------------------------
  25051. ; 
  25052. Chunk: Standard
  25053.  Name:     "HUMANVP: HOLD "
  25054.  Number:   2
  25055.  Size:     4000 4000 4000
  25056.  Position: 2044702 20700 1986000
  25057.  Type:     65535
  25058.  Layer:    0
  25059.  DFlags:   M
  25060. End_Chunk
  25061. Chunk: Colours
  25062.  Number: 18
  25063.  0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E
  25064.  0x0E 0x0E
  25065. End_Chunk
  25066. Chunk: InitPos
  25067.  Position: 2044702 20700 1986000
  25068. End_Chunk
  25069. Chunk: Dynamics
  25070.  MovType:     0x800004A1
  25071.  Fuel:        0
  25072.  Climb:       0
  25073.  Gravity:     0
  25074.  Coupled:     3
  25075.  Drive:       0 0 0
  25076.  External:    0 0 0
  25077.  MaxForce:    0 0 0
  25078.  GroundFric:  8192 0 8192
  25079.  Restitution: 0 0 0
  25080.  Velocity:    0 0 0
  25081.  MaxVel:      0 0 0
  25082. End_Chunk
  25083.  
  25084. Children:
  25085. ;
  25086. ;-------Object    3-------------------------------------------------------
  25087. ; 
  25088. Chunk: Standard
  25089.  Name:     "HUMANVP:View point "
  25090.  Number:   3
  25091.  Size:     1000 1000 1000
  25092.  Position: 1500 1500 1500
  25093.  Type:     65535
  25094.  Layer:    0
  25095.  DFlags:   r
  25096. End_Chunk
  25097. Chunk: Rotations
  25098.  Initial: 0x0000 0x7F5F 0x0000
  25099.  Centre:  500 500 500
  25100. End_Chunk
  25101. Chunk: Colours
  25102.  Number: 18
  25103.  0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B
  25104.  0x0B 0x0B
  25105. End_Chunk
  25106. ;
  25107. ;-------Object  100-------------------------------------------------------
  25108. ; 
  25109. Chunk: Standard
  25110.  Name:     "movelogic"
  25111.  Number:   100
  25112.  Size:     1000 1000 1000
  25113.  Position: 0 0 0
  25114.  Type:     65535
  25115.  Layer:    0
  25116.  DFlags:   r
  25117. End_Chunk
  25118. Chunk: SCL
  25119. short  X, Y;
  25120.  
  25121.  
  25122.  
  25123. resume (1, 2);
  25124.  
  25125. if (first)
  25126.  
  25127. {
  25128.  
  25129.   if (share (99)==3)
  25130.  
  25131.   {
  25132.  
  25133.     xpos (#2)=2019600;
  25134.  
  25135.     ypos (#2)=20700;
  25136.  
  25137.     zpos (#2)=1886000;
  25138.  
  25139.     yrot (#3)=1;
  25140.  
  25141.   }
  25142.  
  25143.   if (share (99)==4)
  25144.  
  25145.   {
  25146.  
  25147.     xpos (#2)=2044000;
  25148.  
  25149.     ypos (#2)=20700;
  25150.  
  25151.     zpos (#2)=1986000;
  25152.  
  25153.     yrot (#3)=192;
  25154.  
  25155.   }
  25156.  
  25157. }
  25158.  
  25159. if (getvp==1)
  25160.  
  25161. {
  25162.  
  25163.   if (mouseb>1)
  25164.  
  25165.   {
  25166.  
  25167.     if (!first)
  25168.  
  25169.       X=mousex;
  25170.  
  25171.     Y=mousey;
  25172.  
  25173.     while (mouseb>1)
  25174.  
  25175.     {
  25176.  
  25177.       if (mouseb==3)
  25178.  
  25179.       {
  25180.  
  25181.         Y=mousey;
  25182.  
  25183.         while (mouseb==3)
  25184.  
  25185.         {
  25186.  
  25187.           ydrive (#2)= (mousey-Y)*-10;
  25188.  
  25189.           yrot (#3)+=deg ( (mousex-X)*4);
  25190.  
  25191.           waitf;
  25192.  
  25193.         }
  25194.  
  25195.         Y=mousey;
  25196.  
  25197.       }
  25198.  
  25199.       zdrive (#2)= (mousey-Y)*-20;
  25200.  
  25201.       yrot (#3)+=deg ( (mousex-X)*4);
  25202.  
  25203.       waitf;
  25204.  
  25205.     }
  25206.  
  25207.   }
  25208.  
  25209. }
  25210.  
  25211. else
  25212.  
  25213. {
  25214.  
  25215.   if (mouseb>1)
  25216.  
  25217.   {
  25218.  
  25219.     if (!first)
  25220.  
  25221.       X=mousex;
  25222.  
  25223.     Y=mousey;
  25224.  
  25225.     while (mouseb>1)
  25226.  
  25227.     {
  25228.  
  25229.       zdrive (#128)= (mousey-Y)*-20;
  25230.  
  25231.       yrot (#127)+=deg ( (mousex-X)*4);
  25232.  
  25233.       waitf;
  25234.  
  25235.     }
  25236.  
  25237.   }
  25238.  
  25239. }
  25240. end
  25241. End_Chunk
  25242.  
  25243. End_Children
  25244. End_File