home *** CD-ROM | disk | FTP | other *** search
/ Love Bytes / LoveBytes.bin / lb.z / toilet.vrt / world.script < prev    next >
Encoding:
Text File  |  1997-11-04  |  15.0 KB  |  983 lines
  1. ;
  2. ; Script conversion of file TOILET.WLD
  3. ;
  4. Type: WRLD
  5. Title: "\n\n\r"
  6.        "World file TOILET.WLD revision 22\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:    9
  35.   Control: 8
  36.   Point:   0
  37.   Frames:  1
  38.   Position:  0 Frame:   0  Type: StraightMove Pos: 500 500 500
  39.   Rotation:  0 Frame:   0 Type: Relative Offset: 0 0 0 Zoom: 0x3695
  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: 2074486 18184 1962122
  47.   Rotation:  0 Frame:   0 Type: Relative Offset: 537 12 0 Zoom: 0x2000
  48. End_Chunk
  49. Chunk: Colours
  50.  Number: 6
  51.  0xD8 0x07 0x01 0xC8 0x03 0x01
  52. End_Chunk
  53. Chunk: LightSource
  54.  Brightness: 2048
  55.  Offset:     -724 1448 -1254
  56.  Rotation:   0x0000 0x0000 0x0000
  57.  BeamWidth:  0
  58.  Dispersion: 200
  59.  Colour:     0xFF 0xFF 0xFF
  60.  BeamEdge:   0
  61.  Flags:      pOo
  62. End_Chunk
  63.  
  64. Children:
  65. ;
  66. ;-------Object   10-------------------------------------------------------
  67. ; 
  68. Chunk: Standard
  69.  Name:     "leftwall[10]"
  70.  Number:   10
  71.  Size:     100 21000 10360
  72.  Position: 2061000 1000 1953330
  73.  Type:     3
  74.  Layer:    0
  75. End_Chunk
  76. Chunk: TexCoords
  77.  Number: 1
  78.  Mode:   0
  79.  SubChunk
  80.   Facet:     1
  81.   ImageRef:  1
  82.   PixScale:  0
  83.   NumCoords: 4
  84.     0.00000 0.00000
  85.     0.00000 1.00000
  86.     1.00000 1.00000
  87.     1.00000 0.00000
  88. End_Chunk
  89. Chunk: SCL
  90. if (activate (me, 0))
  91.  
  92.   loadvrt ("bathroom.vrt");
  93.  
  94.  
  95. end
  96. End_Chunk
  97.  
  98. Chunk: ImageRef
  99.  Number: 1
  100.  Index: 1 Image: 1
  101. End_Chunk
  102. ;
  103. ;-------Object    4-------------------------------------------------------
  104. ; 
  105. Chunk: Standard
  106.  Name:     "leftwall"
  107.  Number:   4
  108.  Size:     1000 30000 15000
  109.  Position: 2060000 1000 1951000
  110.  Type:     3
  111.  Layer:    0
  112. End_Chunk
  113. Chunk: TexCoords
  114.  Number: 1
  115.  Mode:   0
  116.  SubChunk
  117.   Facet:     1
  118.   ImageRef:  1
  119.   PixScale:  0
  120.   NumCoords: 4
  121.     0.00000 0.00000
  122.     0.00000 1.00000
  123.     1.00000 1.00000
  124.     1.00000 0.00000
  125. End_Chunk
  126. Chunk: Colours
  127.  Number: 1
  128.  0x01
  129. End_Chunk
  130.  
  131. Chunk: ImageRef
  132.  Number: 1
  133.  Index: 1 Image: 6
  134. End_Chunk
  135. ;
  136. ;-------Object    5-------------------------------------------------------
  137. ; 
  138. Chunk: Standard
  139.  Name:     "rightwall"
  140.  Number:   5
  141.  Size:     1000 30000 15000
  142.  Position: 2095000 1000 1951000
  143.  Type:     4
  144.  Layer:    0
  145. End_Chunk
  146. Chunk: TexCoords
  147.  Number: 1
  148.  Mode:   0
  149.  SubChunk
  150.   Facet:     1
  151.   ImageRef:  1
  152.   PixScale:  0
  153.   NumCoords: 4
  154.     0.00000 0.00000
  155.     0.00000 1.00000
  156.     1.00000 1.00000
  157.     1.00000 0.00000
  158. End_Chunk
  159. Chunk: Colours
  160.  Number: 1
  161.  0x00
  162. End_Chunk
  163.  
  164. Chunk: ImageRef
  165.  Number: 1
  166.  Index: 1 Image: 11
  167. End_Chunk
  168.  
  169. Children:
  170. ;
  171. ;-------Object   17-------------------------------------------------------
  172. ; 
  173. Chunk: Standard
  174.  Name:     "rightwall[17]"
  175.  Number:   17
  176.  Size:     0 7600 9000
  177.  Position: 0 17700 3000
  178.  Type:     4
  179.  Layer:    0
  180. End_Chunk
  181. Chunk: TexCoords
  182.  Number: 1
  183.  Mode:   0
  184.  SubChunk
  185.   Facet:     1
  186.   ImageRef:  1
  187.   PixScale:  0
  188.   NumCoords: 4
  189.     0.00000 0.00000
  190.     0.00000 1.00000
  191.     1.00000 1.00000
  192.     1.00000 0.00000
  193. End_Chunk
  194. Chunk: SCL
  195. if (activate (me, 0))
  196.  
  197. {
  198.  
  199.   dlgInfo;
  200.  
  201.   clrtrig (me, 0);
  202.  
  203. }
  204. end
  205. End_Chunk
  206.  
  207. Chunk: ImageRef
  208.  Number: 1
  209.  Index: 1 Image: 2
  210. End_Chunk
  211.  
  212. End_Children
  213. ;
  214. ;-------Object    2-------------------------------------------------------
  215. ; 
  216. Chunk: Standard
  217.  Name:     "floor"
  218.  Number:   2
  219.  Size:     34000 1000 15000
  220.  Position: 2061000 0 1951000
  221.  Type:     6
  222.  Layer:    0
  223. End_Chunk
  224. Chunk: TexCoords
  225.  Number: 1
  226.  Mode:   0
  227.  SubChunk
  228.   Facet:     1
  229.   ImageRef:  1
  230.   PixScale:  0
  231.   NumCoords: 4
  232.     0.00000 0.00000
  233.     0.00000 1.00000
  234.     1.00000 1.00000
  235.     1.00000 0.00000
  236. End_Chunk
  237.  
  238. Chunk: ImageRef
  239.  Number: 1
  240.  Index: 1 Image: 10
  241. End_Chunk
  242. ;
  243. ;-------Object    6-------------------------------------------------------
  244. ; 
  245. Chunk: Standard
  246.  Name:     "backwall"
  247.  Number:   6
  248.  Size:     34000 30000 1000
  249.  Position: 2061000 1000 1966000
  250.  Type:     1
  251.  Layer:    0
  252. End_Chunk
  253. Chunk: TexCoords
  254.  Number: 1
  255.  Mode:   0
  256.  SubChunk
  257.   Facet:     1
  258.   ImageRef:  1
  259.   PixScale:  0
  260.   NumCoords: 4
  261.     0.00000 0.00000
  262.     0.00000 1.00000
  263.     1.00000 1.00000
  264.     1.00000 0.00000
  265. End_Chunk
  266.  
  267. Chunk: ImageRef
  268.  Number: 1
  269.  Index: 1 Image: 4
  270. End_Chunk
  271. ;
  272. ;-------Object    7-------------------------------------------------------
  273. ; 
  274. Chunk: Standard
  275.  Name:     "frontwall"
  276.  Number:   7
  277.  Size:     34000 30000 1000
  278.  Position: 2061000 1000 1950000
  279.  Type:     2
  280.  Layer:    0
  281. End_Chunk
  282. Chunk: TexCoords
  283.  Number: 1
  284.  Mode:   0
  285.  SubChunk
  286.   Facet:     1
  287.   ImageRef:  1
  288.   PixScale:  0
  289.   NumCoords: 4
  290.     0.00000 0.00000
  291.     0.00000 1.00000
  292.     -1.00000 1.00000
  293.     -1.00000 0.00000
  294. End_Chunk
  295.  
  296. Chunk: ImageRef
  297.  Number: 1
  298.  Index: 1 Image: 8
  299. End_Chunk
  300. ;
  301. ;-------Object    3-------------------------------------------------------
  302. ; 
  303. Chunk: Standard
  304.  Name:     "ceiling"
  305.  Number:   3
  306.  Size:     34000 1000 15000
  307.  Position: 2061000 31000 1951000
  308.  Type:     5
  309.  Layer:    0
  310. End_Chunk
  311. ;
  312. ;-------Object   23-------------------------------------------------------
  313. ; 
  314. Chunk: Standard
  315.  Name:     "bog hold"
  316.  Number:   23
  317.  Size:     9000 10000 5000
  318.  Position: 2085900 1000 1956000
  319.  Type:     65535
  320.  Layer:    0
  321. End_Chunk
  322.  
  323. Children:
  324. ;
  325. ;-------Object   22-------------------------------------------------------
  326. ; 
  327. Chunk: Standard
  328.  Name:     "bog[22]"
  329.  Number:   22
  330.  Size:     4000 6000 3000
  331.  Position: 5000 0 1000
  332.  Type:     0
  333.  Layer:    0
  334. End_Chunk
  335. Chunk: TexCoords
  336.  Number: 3
  337.  Mode:   0
  338.  SubChunk
  339.   Facet:     1
  340.   ImageRef:  1
  341.   PixScale:  0
  342.   NumCoords: 4
  343.     0.00000 0.00000
  344.     0.00000 1.00000
  345.     1.00000 1.00000
  346.     1.00000 0.00000
  347.  SubChunk
  348.   Facet:     4
  349.   ImageRef:  1
  350.   PixScale:  0
  351.   NumCoords: 4
  352.     0.00000 0.00000
  353.     0.00000 1.00000
  354.     1.00000 1.00000
  355.     1.00000 0.00000
  356.  SubChunk
  357.   Facet:     2
  358.   ImageRef:  1
  359.   PixScale:  0
  360.   NumCoords: 4
  361.     0.00000 0.00000
  362.     0.00000 1.00000
  363.     1.00000 1.00000
  364.     1.00000 0.00000
  365. End_Chunk
  366.  
  367. Chunk: ImageRef
  368.  Number: 1
  369.  Index: 1 Image: 12
  370. End_Chunk
  371. ;
  372. ;-------Object   21-------------------------------------------------------
  373. ; 
  374. Chunk: Standard
  375.  Name:     "bog[21]"
  376.  Number:   21
  377.  Size:     4000 3000 3000
  378.  Position: 1000 0 1000
  379.  Type:     0
  380.  Layer:    0
  381. End_Chunk
  382. Chunk: TexCoords
  383.  Number: 3
  384.  Mode:   0
  385.  SubChunk
  386.   Facet:     1
  387.   ImageRef:  1
  388.   PixScale:  0
  389.   NumCoords: 4
  390.     0.00000 0.00000
  391.     0.00000 1.00000
  392.     1.00000 1.00000
  393.     1.00000 0.00000
  394.  SubChunk
  395.   Facet:     2
  396.   ImageRef:  1
  397.   PixScale:  0
  398.   NumCoords: 4
  399.     0.00000 0.00000
  400.     0.00000 1.00000
  401.     1.00000 1.00000
  402.     1.00000 0.00000
  403.  SubChunk
  404.   Facet:     4
  405.   ImageRef:  1
  406.   PixScale:  0
  407.   NumCoords: 4
  408.     0.00000 0.00000
  409.     0.00000 1.00000
  410.     1.00000 1.00000
  411.     1.00000 0.00000
  412. End_Chunk
  413.  
  414. Chunk: ImageRef
  415.  Number: 1
  416.  Index: 1 Image: 14
  417. End_Chunk
  418. ;
  419. ;-------Object   11-------------------------------------------------------
  420. ; 
  421. Chunk: Standard
  422.  Name:     "bog"
  423.  Number:   11
  424.  Size:     5000 2000 5000
  425.  Position: 0 3000 0
  426.  Type:     7
  427.  Layer:    0
  428. End_Chunk
  429. Chunk: TexCoords
  430.  Number: 4
  431.  Mode:   0
  432.  SubChunk
  433.   Facet:     6
  434.   ImageRef:  1
  435.   PixScale:  0
  436.   NumCoords: 4
  437.     0.00000 0.00000
  438.     0.00000 1.00000
  439.     1.00000 1.00000
  440.     1.00000 0.00000
  441.  SubChunk
  442.   Facet:     13
  443.   ImageRef:  2
  444.   PixScale:  0
  445.   NumCoords: 4
  446.     0.00000 0.00000
  447.     0.00000 1.00000
  448.     1.00000 1.00000
  449.     1.00000 0.00000
  450.  SubChunk
  451.   Facet:     12
  452.   ImageRef:  2
  453.   PixScale:  0
  454.   NumCoords: 4
  455.     0.00000 0.00000
  456.     0.00000 1.00000
  457.     1.00000 1.00000
  458.     1.00000 0.00000
  459.  SubChunk
  460.   Facet:     10
  461.   ImageRef:  2
  462.   PixScale:  0
  463.   NumCoords: 4
  464.     0.00000 0.00000
  465.     0.00000 1.00000
  466.     1.00000 1.00000
  467.     1.00000 0.00000
  468. End_Chunk
  469. Chunk: Colours
  470.  Number: 13
  471.  0x0A 0x18 0x07 0x07 0x18 0x0A 0x26 0x28 0x29 0x2A 0x2B 0x2C 0x2D
  472. End_Chunk
  473.  
  474. Chunk: ImageRef
  475.  Number: 2
  476.  Index: 1 Image: 9
  477.  Index: 2 Image: 12
  478. End_Chunk
  479. ;
  480. ;-------Object   12-------------------------------------------------------
  481. ; 
  482. Chunk: Standard
  483.  Name:     "bog[12]"
  484.  Number:   12
  485.  Size:     4000 4000 5000
  486.  Position: 5000 6000 0
  487.  Type:     0
  488.  Layer:    0
  489. End_Chunk
  490. Chunk: TexCoords
  491.  Number: 4
  492.  Mode:   0
  493.  SubChunk
  494.   Facet:     1
  495.   ImageRef:  1
  496.   PixScale:  0
  497.   NumCoords: 4
  498.     0.00000 0.00000
  499.     0.00000 1.00000
  500.     1.00000 1.00000
  501.     1.00000 0.00000
  502.  SubChunk
  503.   Facet:     4
  504.   ImageRef:  1
  505.   PixScale:  0
  506.   NumCoords: 4
  507.     0.00000 0.00000
  508.     0.00000 1.00000
  509.     1.00000 1.00000
  510.     1.00000 0.00000
  511.  SubChunk
  512.   Facet:     5
  513.   ImageRef:  1
  514.   PixScale:  0
  515.   NumCoords: 4
  516.     0.00000 0.00000
  517.     0.00000 1.00000
  518.     1.00000 1.00000
  519.     1.00000 0.00000
  520.  SubChunk
  521.   Facet:     2
  522.   ImageRef:  1
  523.   PixScale:  0
  524.   NumCoords: 4
  525.     0.00000 0.00000
  526.     0.00000 1.00000
  527.     1.00000 1.00000
  528.     1.00000 0.00000
  529. End_Chunk
  530. Chunk: Colours
  531.  Number: 6
  532.  0x08 0x76 0x77 0x76 0x75 0x75
  533. End_Chunk
  534.  
  535. Chunk: ImageRef
  536.  Number: 1
  537.  Index: 1 Image: 12
  538. End_Chunk
  539. ;
  540. ;-------Object   14-------------------------------------------------------
  541. ; 
  542. Chunk: Standard
  543.  Name:     "bog[14]"
  544.  Number:   14
  545.  Size:     400 100 930
  546.  Position: 4600 9500 4070
  547.  Type:     9
  548.  Layer:    0
  549. End_Chunk
  550. Chunk: Colours
  551.  Number: 8
  552.  0x08 0x08 0x23 0x24 0x25 0x08 0x08 0x08
  553. End_Chunk
  554.  
  555. End_Children
  556. ;
  557. ;-------Object   13-------------------------------------------------------
  558. ; 
  559. Chunk: Standard
  560.  Name:     "bog[13]"
  561.  Number:   13
  562.  Size:     1559 1439 1079
  563.  Position: 2085200 10700 1964921
  564.  Type:     8
  565.  Layer:    0
  566. End_Chunk
  567. Chunk: TexCoords
  568.  Number: 2
  569.  Mode:   0
  570.  SubChunk
  571.   Facet:     10
  572.   ImageRef:  1
  573.   PixScale:  0
  574.   NumCoords: 4
  575.     0.00000 0.00000
  576.     0.00000 1.00000
  577.     1.00000 1.00000
  578.     1.00000 0.00000
  579.  SubChunk
  580.   Facet:     11
  581.   ImageRef:  1
  582.   PixScale:  0
  583.   NumCoords: 4
  584.     0.00000 0.00000
  585.     0.00000 1.00000
  586.     -1.00000 1.00000
  587.     -1.00000 0.00000
  588. End_Chunk
  589. Chunk: Colours
  590.  Number: 12
  591.  0x37 0x37 0x37 0x37 0x37 0x37 0x36 0x36 0x35 0x29 0x2A 0x20
  592. End_Chunk
  593.  
  594. Chunk: ImageRef
  595.  Number: 1
  596.  Index: 1 Image: 15
  597. End_Chunk
  598. ;
  599. ;-------Object   16-------------------------------------------------------
  600. ; 
  601. Chunk: Standard
  602.  Name:     "frontwall[16]"
  603.  Number:   16
  604.  Size:     2200 30000 15000
  605.  Position: 2082000 1000 1951000
  606.  Type:     65535
  607.  Layer:    0
  608. End_Chunk
  609. ;
  610. ;-------Object   18-------------------------------------------------------
  611. ; 
  612. Chunk: Standard
  613.  Name:     "shower[18]"
  614.  Number:   18
  615.  Size:     3100 2400 3000
  616.  Position: 2091900 24400 1951000
  617.  Type:     65535
  618.  Layer:    0
  619. End_Chunk
  620. Chunk: SCL
  621. char   NAME[10], PATH[256], DIR[256], DRIVE[3];
  622.  
  623. long   WIDTH, HEIGHT, newPOS, oldWIDTH, STATS[8];
  624.  
  625. short  Scale=16, imgNum=3, LOWEST, MOODS=1, TEMP, ROT;
  626.  
  627.  
  628.  
  629. resume (2, 2);
  630.  
  631. if (first)
  632.  
  633. {
  634.  
  635.   cdDrive (&DRIVE);
  636.  
  637.   strcpy (&DIR, &DRIVE);
  638.  
  639.   strcat (&DIR, "\\LoveBytes\\");
  640.  
  641.   counter (20)=-1;
  642.  
  643.   counter (25)=-1;
  644.  
  645. }
  646.  
  647. if (counter (20)>-1)
  648.  
  649. {
  650.  
  651.   strcpy (&PATH, &DIR);
  652.  
  653.   strcat (&PATH, "images\\");
  654.  
  655.   ltoa (&NAME, counter (20));
  656.  
  657.   strcat (&PATH, &NAME);
  658.  
  659.   strcat (&PATH, ".gif");
  660.  
  661.   imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);
  662.  
  663.   newPOS=zpos (#1);
  664.  
  665.   oldWIDTH=zsize (#1)/2;
  666.  
  667.   zsize (#1)=WIDTH*Scale;
  668.  
  669.   ysize (#1)=HEIGHT*Scale;
  670.  
  671.   write (&zcent (#1))=zsize (#1)/2;
  672.  
  673.   newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;
  674.  
  675.   zpos (#1)=newPOS;
  676.  
  677.   counter (20)=-1;
  678.  
  679. }
  680.  
  681. if (counter (25)>-1)
  682.  
  683. {
  684.  
  685.   strcpy (&PATH, &DIR);
  686.  
  687.   strcat (&PATH, "sounds\\");
  688.  
  689.   ltoa (&NAME, counter (25));
  690.  
  691.   strcat (&PATH, &NAME);
  692.  
  693.   strcat (&PATH, ".wav");
  694.  
  695.   playWAV (&PATH);
  696.  
  697.   counter (25)=-1;
  698.  
  699. }
  700.  
  701. if (counter (26)>-1)
  702.  
  703. {
  704.  
  705.   strcpy (&PATH, &DIR);
  706.  
  707.   strcat (&PATH, "sounds\\");
  708.  
  709.   ltoa (&NAME, counter (26));
  710.  
  711.   strcat (&PATH, &NAME);
  712.  
  713.   strcat (&PATH, ".wav");
  714.  
  715.   while (sndState)
  716.  
  717.     waitf;
  718.  
  719.   playWAV (&PATH);
  720.  
  721.   counter (26)=-1;
  722.  
  723. }
  724. end
  725. End_Chunk
  726. ;
  727. ;-------Object    1-------------------------------------------------------
  728. ; 
  729. Chunk: Standard
  730.  Name:     "woman"
  731.  Number:   1
  732.  Size:     0 15589 6664
  733.  Position: 2085900 1000 1955409
  734.  Type:     0
  735.  Layer:    0
  736.  DFlags:   r
  737.  OFlags:   Ii
  738. End_Chunk
  739. Chunk: TexCoords
  740.  Number: 1
  741.  Mode:   0
  742.  SubChunk
  743.   Facet:     1
  744.   ImageRef:  1
  745.   PixScale:  0
  746.   NumCoords: 4
  747.     0.00000 0.00000
  748.     0.00000 1.00000
  749.     1.00000 1.00000
  750.     1.00000 0.00000
  751. End_Chunk
  752. Chunk: Rotations
  753.  Initial: 0x0000 0x0000 0x0000
  754.  Centre:  0 7794 2816
  755. End_Chunk
  756. Chunk: SCL
  757. long   STATS[8], TEMP;
  758.  
  759. short  MOOD, LOWEST;
  760.  
  761.  
  762.  
  763. resume (1, 2);
  764.  
  765. if (first)
  766.  
  767. {
  768.  
  769.   ranseed (vrtime);
  770.  
  771.   if (random (10)==1)
  772.  
  773.     vis (me);
  774.  
  775.   else
  776.  
  777.     invis (me);
  778.  
  779. }
  780.  
  781. if (activate (me, 0) || first)
  782.  
  783. {
  784.  
  785.   zpos (me)=izpos (me);
  786.  
  787.   if (vis? (me))
  788.  
  789.   {
  790.  
  791.     counter (20)=table (random (3)) {59, 60, 61};
  792.  
  793.     counter (26)=table (random (7)) {9, 11, 29, 82, 83, 93, 
  794.  
  795.         130};
  796.  
  797.     while (mouseb)
  798.  
  799.       waitf;
  800.  
  801.     waitfs (20);
  802.  
  803.   }
  804.  
  805.   clrtrig (me, 0);
  806.  
  807. }
  808. end
  809. End_Chunk
  810. Chunk: InitPos
  811.  Position: 2085900 1000 1955409
  812. End_Chunk
  813. Chunk: InitSize
  814.  Size: 0 15589 6664
  815. End_Chunk
  816. Chunk: Colours
  817.  Number: 6
  818.  0x77 0x76 0x77 0x76 0x75 0x75
  819. End_Chunk
  820.  
  821. Chunk: ImageRef
  822.  Number: 5
  823.  Index: 1 Image: 3
  824.  Index: 2 Image: 65535
  825.  Index: 3 Image: 65535
  826.  Index: 4 Image: 65535
  827.  Index: 5 Image: 65535
  828. End_Chunk
  829. ;
  830. ;-------Object   19-------------------------------------------------------
  831. ; 
  832. Chunk: Standard
  833.  Name:     "Menus"
  834.  Number:   19
  835.  Size:     10000 10000 10000
  836.  Position: 2064388 0 1986889
  837.  Type:     65535
  838.  Layer:    0
  839. End_Chunk
  840. Chunk: SCL
  841. if (first)
  842.  
  843. {
  844.  
  845.   menuNew (me);
  846.  
  847.   menuLock (0);
  848.  
  849. }
  850. end
  851. End_Chunk
  852. Chunk: Text
  853.   "item \"E&xit\" scl exitVis; sclend\r"
  854.   "item \"A&bout\" scl Credits; sclend"
  855. End_Chunk
  856.  
  857. End_Children
  858. ;
  859. ;-------Object    8-------------------------------------------------------
  860. ; 
  861. Chunk: Standard
  862.  Name:     "HUMANVP: HOLD "
  863.  Number:   8
  864.  Size:     4000 4000 4000
  865.  Position: 2061100 14120 1959601
  866.  Type:     65535
  867.  Layer:    0
  868.  DFlags:   M
  869. End_Chunk
  870. Chunk: Colours
  871.  Number: 18
  872.  0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E
  873.  0x0E 0x0E
  874. End_Chunk
  875. Chunk: InitPos
  876.  Position: 2061100 14120 1959601
  877. End_Chunk
  878. Chunk: Dynamics
  879.  MovType:     0x800004A1
  880.  Fuel:        0
  881.  Climb:       4000
  882.  Gravity:     0
  883.  Coupled:     9
  884.  Drive:       0 0 0
  885.  External:    0 0 0
  886.  MaxForce:    0 0 0
  887.  GroundFric:  0 0 0
  888.  Restitution: 0 0 0
  889.  Velocity:    0 0 0
  890.  MaxVel:      0 0 0
  891. End_Chunk
  892.  
  893. Children:
  894. ;
  895. ;-------Object    9-------------------------------------------------------
  896. ; 
  897. Chunk: Standard
  898.  Name:     "HUMANVP:View point "
  899.  Number:   9
  900.  Size:     1000 1000 1000
  901.  Position: 1500 1500 1500
  902.  Type:     65535
  903.  Layer:    0
  904.  DFlags:   r
  905. End_Chunk
  906. Chunk: Rotations
  907.  Initial: 0x0000 0x3C71 0x0000
  908.  Centre:  500 500 500
  909. End_Chunk
  910. Chunk: Colours
  911.  Number: 18
  912.  0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B
  913.  0x0B 0x0B
  914. End_Chunk
  915. ;
  916. ;-------Object   15-------------------------------------------------------
  917. ; 
  918. Chunk: Standard
  919.  Name:     "movelogic"
  920.  Number:   15
  921.  Size:     1000 1000 1000
  922.  Position: 0 0 0
  923.  Type:     65535
  924.  Layer:    0
  925.  DFlags:   r
  926. End_Chunk
  927. Chunk: SCL
  928. short  X, Y;
  929.  
  930.  
  931.  
  932. resume (1, 2);
  933.  
  934. if (mouseb>1)
  935.  
  936. {
  937.  
  938.   if (!first)
  939.  
  940.     X=mousex;
  941.  
  942.   Y=mousey;
  943.  
  944.   while (mouseb>1)
  945.  
  946.   {
  947.  
  948.     if (mouseb==3)
  949.  
  950.     {
  951.  
  952.       Y=mousey;
  953.  
  954.       while (mouseb==3)
  955.  
  956.       {
  957.  
  958.         ydrive (#8)= (mousey-Y)*-10;
  959.  
  960.         yrot (#9)+=deg ( (mousex-X)*4);
  961.  
  962.         waitf;
  963.  
  964.       }
  965.  
  966.       Y=mousey;
  967.  
  968.     }
  969.  
  970.     zdrive (#8)= (mousey-Y)*-20;
  971.  
  972.     yrot (#9)+=deg ( (mousex-X)*4);
  973.  
  974.     waitf;
  975.  
  976.   }
  977.  
  978. }
  979. end
  980. End_Chunk
  981.  
  982. End_Children
  983. End_File