home *** CD-ROM | disk | FTP | other *** search
/ Love Bytes / LoveBytes.bin / lb.z / striptease.VRT / world.script < prev    next >
Encoding:
Text File  |  1997-11-04  |  8.7 KB  |  667 lines
  1. ;
  2. ; Script conversion of file STRIPTEA.WLD
  3. ;
  4. Type: WRLD
  5. Title: "\n\n\r"
  6.        "World file STRIPTEA.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:    35
  34.   View:    0
  35.   Point:   0
  36.   Frames:  1
  37.   Position:  0 Frame:   0  Type: StraightMove Pos: 2000818 9841 1969977
  38.   Rotation:  0 Frame:   0 Type: Relative Offset: 0 65399 0 Zoom: 0x2000
  39. End_Chunk
  40. Chunk: Colours
  41.  Number: 6
  42.  0x12 0x00 0x01 0x27 0x00 0x01
  43. End_Chunk
  44. Chunk: LightSource
  45.  Brightness: 2048
  46.  Offset:     -724 1448 -1254
  47.  Rotation:   0x0000 0x0000 0x0000
  48.  BeamWidth:  0
  49.  Dispersion: 200
  50.  Colour:     0xFF 0xFF 0xFF
  51.  BeamEdge:   0
  52.  Flags:      pOo
  53. End_Chunk
  54.  
  55. Children:
  56. ;
  57. ;-------Object    2-------------------------------------------------------
  58. ; 
  59. Chunk: Standard
  60.  Name:     "icons"
  61.  Number:   2
  62.  Size:     2000 2300 1000
  63.  Position: 2006000 0 1993000
  64.  Type:     65535
  65.  Layer:    0
  66. End_Chunk
  67. Chunk: SCL
  68. short  SELECTED=21, HERS=21;
  69.  
  70.  
  71.  
  72. marker (3)=0;
  73.  
  74. instr (1)=17;
  75.  
  76. instr (2)=2;
  77.  
  78. instr (3)=3;
  79.  
  80. instr (5)=SELECTED;
  81.  
  82. instr (4)=HERS;
  83.  
  84. switch (marker (2));
  85.  
  86. case 1: 
  87.  
  88.   instr (1)=18;
  89.  
  90. case 2: 
  91.  
  92.   instr (2)=19;
  93.  
  94. case 3: 
  95.  
  96.   instr (3)=20;
  97.  
  98. switch (marker (1));
  99.  
  100. case 1: 
  101.  
  102. {           
  103.  
  104.    /*menu lock stuff*/
  105.  
  106.   menuLock (1);
  107.  
  108.   loadvrt ("garden.vrt");
  109.  
  110. }
  111.  
  112. case 2: 
  113.  
  114.   marker (3)=1;
  115.  
  116. case 3: 
  117.  
  118.   marker (3)=2;
  119.  
  120. marker (1)=0;
  121.  
  122. marker (2)=0;
  123.  
  124. repeat (5)
  125.  
  126.   update (inloop);
  127.  
  128.  
  129. end
  130. End_Chunk
  131.  
  132. Chunk: ImageRef
  133.  Number: 1
  134.  Index: 1 Image: 2
  135. End_Chunk
  136. Chunk: Textures
  137.  Number: 1
  138.  SubChunk
  139.   Facet:    2
  140.   ImageRef: 1
  141.   Scale:    256 256
  142.   Offset:   0 0
  143.   PixScale: 0
  144. End_Chunk
  145. ;
  146. ;-------Object    3-------------------------------------------------------
  147. ; 
  148. Chunk: Standard
  149.  Name:     "card logics"
  150.  Number:   3
  151.  Size:     2000 2300 1000
  152.  Position: 2008000 0 1993000
  153.  Type:     65535
  154.  Layer:    0
  155. End_Chunk
  156. Chunk: SCL
  157. short  GAME=1, HCARD, YCARD, STRIP, OSTRIP;
  158.  
  159. long   Time;
  160.  
  161.  
  162.  
  163. resume (2, 2);
  164.  
  165. if (first)
  166.  
  167. {
  168.  
  169.   ranseed (vrtime);
  170.  
  171.   marker (3)=0;
  172.  
  173.   marker (4)=0;
  174.  
  175. }
  176.  
  177. if (GAME)
  178.  
  179. {
  180.  
  181.   Time=vrtime;
  182.  
  183.   while (vrtime<Time+2000)
  184.  
  185.     waitf;
  186.  
  187.   #2.SELECTED=21;
  188.  
  189.   #2.HERS=21;
  190.  
  191.   OSTRIP=STRIP;
  192.  
  193. /*LOAD IMAGE*/
  194.  
  195.   YCARD=random (13);
  196.  
  197.   HCARD=random (13);
  198.  
  199.   while (YCARD==HCARD)
  200.  
  201.     HCARD=random (13);
  202.  
  203.   #2.SELECTED=YCARD+4;
  204.  
  205.   GAME=0;
  206.  
  207. }
  208.  
  209. if (marker (3)==1 && GAME==0)
  210.  
  211. {
  212.  
  213. /*HIGHER*/
  214.  
  215.   if (YCARD<HCARD)
  216.  
  217.   {
  218.  
  219.     STRIP+=1;
  220.  
  221.     counter (26)=table (random (7)) {9, 15, 46, 85, 86, 130};
  222.  
  223.   }
  224.  
  225.   else
  226.  
  227.   {
  228.  
  229.     STRIP-=1;
  230.  
  231.     counter (26)=table (random (6)) {172, 173, 174};
  232.  
  233.   }
  234.  
  235.   #2.HERS=HCARD+4;
  236.  
  237.   marker (3)=0;
  238.  
  239.   GAME=1;
  240.  
  241. }
  242.  
  243. if (marker (3)==2 && GAME==0)
  244.  
  245. {
  246.  
  247. /*LOWER*/
  248.  
  249.   if (HCARD<YCARD)
  250.  
  251.   {
  252.  
  253.     STRIP+=1;
  254.  
  255.     counter (26)=table (random (6)) {9, 15, 46, 85, 86, 130};
  256.  
  257.   }
  258.  
  259.   else
  260.  
  261.   {
  262.  
  263.     STRIP-=1;
  264.  
  265.     counter (26)=table (random (6)) {172, 173, 174};
  266.  
  267.   }
  268.  
  269.   #2.HERS=HCARD+4;
  270.  
  271.   marker (3)=0;
  272.  
  273.   GAME=1;
  274.  
  275. }
  276.  
  277. if (OSTRIP!=STRIP)
  278.  
  279. {
  280.  
  281.   if (STRIP<0)
  282.  
  283.     STRIP=0;
  284.  
  285.   if (STRIP>14 || STRIP==14)
  286.  
  287.   {
  288.  
  289.     counter (26)=170;
  290.  
  291.     STRIP=14;
  292.  
  293.     marker (4)=STRIP;
  294.  
  295.     #1.REFRESH=1;
  296.  
  297.     /*menu stuff*/
  298.  
  299.     waitfs (20);
  300.  
  301.     menuLock (1);
  302.  
  303.     loadvrt ("garden.vrt");
  304.  
  305.   }
  306.  
  307.   marker (4)=STRIP;
  308.  
  309.   #1.REFRESH=1;
  310.  
  311.   OSTRIP=STRIP;
  312.  
  313. }
  314. end
  315. End_Chunk
  316.  
  317. Chunk: ImageRef
  318.  Number: 1
  319.  Index: 1 Image: 2
  320. End_Chunk
  321. Chunk: Textures
  322.  Number: 1
  323.  SubChunk
  324.   Facet:    2
  325.   ImageRef: 1
  326.   Scale:    256 256
  327.   Offset:   0 0
  328.   PixScale: 0
  329. End_Chunk
  330. ;
  331. ;-------Object    4-------------------------------------------------------
  332. ; 
  333. Chunk: Standard
  334.  Name:     "sounds"
  335.  Number:   4
  336.  Size:     2000 2300 1000
  337.  Position: 2010000 0 1993000
  338.  Type:     65535
  339.  Layer:    0
  340. End_Chunk
  341. Chunk: SCL
  342. char   NAME[10], PATH[256], DIR[256], DRIVE[3];
  343.  
  344. long   WIDTH, HEIGHT, newPOS, oldWIDTH, STATS[8];
  345.  
  346. short  Scale=20, imgNum=98, LOWEST, MOODS=1, TEMP, ROT;
  347.  
  348.  
  349.  
  350. resume (2, 2);
  351.  
  352. if (first)
  353.  
  354. {
  355.  
  356.   cdDrive (&DRIVE);
  357.  
  358.   strcpy (&DIR, &DRIVE);
  359.  
  360.   strcat (&DIR, "\\LoveBytes\\");
  361.  
  362.   counter (20)=-1;
  363.  
  364.   counter (25)=-1;
  365.  
  366. }
  367.  
  368. if (counter (26)>-1)
  369.  
  370. {
  371.  
  372.   strcpy (&PATH, &DIR);
  373.  
  374.   strcat (&PATH, "sounds\\");
  375.  
  376.   ltoa (&NAME, counter (26));
  377.  
  378.   strcat (&PATH, &NAME);
  379.  
  380.   strcat (&PATH, ".wav");
  381.  
  382.   playWAV (&PATH);
  383.  
  384.   counter (26)=-1;
  385.  
  386. }
  387. end
  388. End_Chunk
  389.  
  390. Chunk: ImageRef
  391.  Number: 1
  392.  Index: 1 Image: 2
  393. End_Chunk
  394. Chunk: Textures
  395.  Number: 1
  396.  SubChunk
  397.   Facet:    2
  398.   ImageRef: 1
  399.   Scale:    256 256
  400.   Offset:   0 0
  401.   PixScale: 0
  402. End_Chunk
  403. ;
  404. ;-------Object    1-------------------------------------------------------
  405. ; 
  406. Chunk: Standard
  407.  Name:     "woman"
  408.  Number:   1
  409.  Size:     14000 22793 1000
  410.  Position: 1997500 0 1995780
  411.  Type:     0
  412.  Layer:    0
  413.  DFlags:   r
  414. End_Chunk
  415. Chunk: TexCoords
  416.  Number: 1
  417.  Mode:   0
  418.  SubChunk
  419.   Facet:     2
  420.   ImageRef:  1
  421.   PixScale:  0
  422.   NumCoords: 4
  423.     0.00000 0.00000
  424.     0.00000 1.00000
  425.     1.00000 1.00000
  426.     1.00000 0.00000
  427. End_Chunk
  428. Chunk: Rotations
  429.  Initial: 0x0000 0x0000 0x0000
  430.  Centre:  4400 3650 4720
  431. End_Chunk
  432. Chunk: InitSize
  433.  Size: 14000 22793 1000
  434. End_Chunk
  435. Chunk: InitPos
  436.  Position: 1997500 0 1995780
  437. End_Chunk
  438.  
  439. Chunk: ImageRef
  440.  Number: 1
  441.  Index: 1 Image: 1
  442. End_Chunk
  443. Chunk: SCL
  444. char   NAME[10], DIR[256], DRIVE[3];
  445.  
  446. long   WIDTH, HEIGHT, newPOS, oldWIDTH, STATS[8];
  447.  
  448. short  Scale=20, imgNum=57, IMAGE, REFRESH=1;
  449.  
  450.  
  451.  
  452. resume (0, 2);
  453.  
  454. if (REFRESH)
  455.  
  456. {
  457.  
  458.   cdDrive (&DRIVE);
  459.  
  460.   strcpy (&DIR, &DRIVE);
  461.  
  462.   strcat (&DIR, "\\LoveBytes\\Images\\");
  463.  
  464.   counter (20)=-1;
  465.  
  466.   counter (25)=-1;
  467.  
  468.   IMAGE=table (marker (4)) {213, 214, 203, 202, 216, 215, 208, 
  469.  
  470.       207, 206, 205, 204, 212, 211, 200, 209};
  471.  
  472.   ltoa (&NAME, IMAGE);
  473.  
  474.   strcat (&DIR, &NAME);
  475.  
  476.   strcat (&DIR, ".gif");
  477.  
  478.   imageLd (&DIR, 1, 1, &WIDTH, &HEIGHT);
  479.  
  480.   newPOS=xpos (me);
  481.  
  482.   oldWIDTH=xsize (me)/2;
  483.  
  484.   xsize (me)=WIDTH*Scale;
  485.  
  486.   ysize (me)=HEIGHT*Scale;
  487.  
  488.   write (&xcent (me))=xsize (me)/2;
  489.  
  490.   newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;
  491.  
  492.   xpos (me)=newPOS;
  493.  
  494.   REFRESH=0;
  495.  
  496. }
  497. end
  498. End_Chunk
  499. ;
  500. ;-------Object    5-------------------------------------------------------
  501. ; 
  502. Chunk: Standard
  503.  Name:     "woman[5]"
  504.  Number:   5
  505.  Size:     20000 0 24000
  506.  Position: 1993879 0 1988901
  507.  Type:     0
  508.  Layer:    0
  509.  DFlags:   r
  510. End_Chunk
  511. Chunk: TexCoords
  512.  Number: 1
  513.  Mode:   0
  514.  SubChunk
  515.   Facet:     5
  516.   ImageRef:  1
  517.   PixScale:  0
  518.   NumCoords: 4
  519.     0.00000 0.00000
  520.     0.00000 1.00000
  521.     1.00000 1.00000
  522.     0.99999 0.00000
  523. End_Chunk
  524. Chunk: Rotations
  525.  Initial: 0x0000 0x2000 0x0000
  526.  Centre:  10000 0 10000
  527. End_Chunk
  528.  
  529. Chunk: ImageRef
  530.  Number: 1
  531.  Index: 1 Image: 23
  532. End_Chunk
  533. ;
  534. ;-------Object    7-------------------------------------------------------
  535. ; 
  536. Chunk: Standard
  537.  Name:     "Menus"
  538.  Number:   7
  539.  Size:     10000 10000 10000
  540.  Position: 1900442 0 2056281
  541.  Type:     65535
  542.  Layer:    0
  543. End_Chunk
  544. Chunk: SCL
  545. if (first)
  546.  
  547. {
  548.  
  549.   menuNew (me);
  550.  
  551.   menuLock (0);
  552.  
  553. }
  554. end
  555. End_Chunk
  556. Chunk: Text
  557.   "item \"E&xit\" scl exitVis; sclend\r"
  558.   "item \"A&bout\" scl Credits; sclend"
  559. End_Chunk
  560. ;
  561. ;-------Object    8-------------------------------------------------------
  562. ; 
  563. Chunk: Standard
  564.  Name:     "woman[8]"
  565.  Number:   8
  566.  Size:     28895 22015 0
  567.  Position: 1977400 10300 2007780
  568.  Type:     0
  569.  Layer:    0
  570.  DFlags:   r
  571. End_Chunk
  572. Chunk: TexCoords
  573.  Number: 1
  574.  Mode:   0
  575.  SubChunk
  576.   Facet:     2
  577.   ImageRef:  1
  578.   PixScale:  0
  579.   NumCoords: 4
  580.     0.00000 0.00000
  581.     0.00000 1.00000
  582.     1.00000 1.00000
  583.     1.00000 0.00000
  584. End_Chunk
  585.  
  586. Chunk: ImageRef
  587.  Number: 11
  588.  Index: 1 Image: 38
  589.  Index: 2 Image: 39
  590.  Index: 3 Image: 40
  591.  Index: 4 Image: 41
  592.  Index: 5 Image: 42
  593.  Index: 6 Image: 43
  594.  Index: 7 Image: 42
  595.  Index: 8 Image: 41
  596.  Index: 9 Image: 40
  597.  Index: 10 Image: 39
  598.  Index: 11 Image: 39
  599. End_Chunk
  600. Chunk: SCL
  601. resume (1, 1);
  602.  
  603. ++timgref (me, 1);
  604.  
  605. if (timgref (me, 1)>=11)
  606.  
  607.   timgref (me, 1)=itimgref (me, 1);
  608.  
  609. waitfs (2);
  610. end
  611. End_Chunk
  612. ;
  613. ;-------Object    6-------------------------------------------------------
  614. ; 
  615. Chunk: Standard
  616.  Name:     "woman[6]"
  617.  Number:   6
  618.  Size:     28895 22015 0
  619.  Position: 2006400 10300 2007780
  620.  Type:     0
  621.  Layer:    0
  622.  DFlags:   r
  623. End_Chunk
  624. Chunk: TexCoords
  625.  Number: 1
  626.  Mode:   0
  627.  SubChunk
  628.   Facet:     2
  629.   ImageRef:  1
  630.   PixScale:  0
  631.   NumCoords: 4
  632.     0.00000 0.00000
  633.     0.00000 1.00000
  634.     1.00000 1.00000
  635.     1.00000 0.00000
  636. End_Chunk
  637.  
  638. Chunk: ImageRef
  639.  Number: 12
  640.  Index: 1 Image: 31
  641.  Index: 2 Image: 32
  642.  Index: 3 Image: 33
  643.  Index: 4 Image: 34
  644.  Index: 5 Image: 35
  645.  Index: 6 Image: 36
  646.  Index: 7 Image: 37
  647.  Index: 8 Image: 36
  648.  Index: 9 Image: 35
  649.  Index: 10 Image: 34
  650.  Index: 11 Image: 33
  651.  Index: 12 Image: 32
  652. End_Chunk
  653. Chunk: SCL
  654. resume (1, 1);
  655.  
  656. ++timgref (me, 1);
  657.  
  658. if (timgref (me, 1)>=12)
  659.  
  660.   timgref (me, 1)=itimgref (me, 1);
  661.  
  662. waitfs (2);
  663. end
  664. End_Chunk
  665.  
  666. End_Children
  667. End_File