Love Bytes/LoveBytes.bin/lb.z/bedroom.VRT/world.script

Text File | 1997-11-21 | 147.0 KB | 10,047 lines

;
; Script conversion of file BEDROOM.WLD
;
Type: WRLD
Title: "\n\n\r"
       "World file BEDROOM.WLD revision 61\n\r"
       "Saved from VRT version 5.00\n\r"
       "\x1A"
;
;-------Layers------------------------------------------------------------
;
Chunk: LayerNames
 NumLayers: 2
 Name:     "Default"
 Name:     "System"
End_Chunk
;
;-------Object    0-------------------------------------------------------
;
Chunk: Standard
 Name:     "RootObject"
 Number:   0
 Size:     2147483647 2147483647 2147483647
 Position: 0 0 0
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: ViewPoint
 Number:    100
 Subchunk
  Number:  1
  Type:    39
  View:    9
  Control: 8
  Point:   0
  Frames:  1
  Position:  0 Frame:   0  Type: StraightMove Pos: 500 500 500
  Rotation:  0 Frame:   0 Type: Relative Offset: 0 0 0 Zoom: 0x2000
 Subchunk
  Number:  2
  Type:    35
  View:    0
  Point:   0
  Frames:  1
  Position:  0 Frame:   0  Type: StraightMove Pos: 2081423 20023 1999118
  Rotation:  0 Frame:   0 Type: Relative Offset: 2172 3793 0 Zoom: 0x2000
 Subchunk
  Number:  3
  Type:    35
  View:    0
  Point:   0
  Frames:  1
  Position:  0 Frame:   0  Type: StraightMove Pos: 2156710 10572 1932691
  Rotation:  0 Frame:   0 Type: Relative Offset: 1428 5774 0 Zoom: 0x2000
 Subchunk
  Number:  99
  Type:    35
  View:    173
  Point:   0
  Frames:  1
  Position:  0 Frame:   0  Type: StraightMove Pos: 499 500 503
  Rotation:  0 Frame:   0 Type: Relative Offset: 1459 0 0 Zoom: 0x156D
End_Chunk
Chunk: Colours
 Number: 6
 0xD8 0x07 0x01 0xC8 0x03 0x01
End_Chunk
Chunk: LightSource
 Brightness: 2048
 Offset:     -724 1448 -1254
 Rotation:   0x0000 0x0000 0x0000
 BeamWidth:  0
 Dispersion: 200
 Colour:     0xFF 0xFF 0xFF
 BeamEdge:   0
 Flags:      pOo
End_Chunk

Children:
;
;-------Object   81-------------------------------------------------------
;
Chunk: Standard
 Name:     "   make me visable!!!"
 Number:   81
 Size:     100000 31000 100000
 Position: 2036725 0 1948284
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk

Children:
;
;-------Object   82-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[82]"
 Number:   82
 Size:     72000 31000 73000
 Position: 10000 0 10000
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk

Children:
;
;-------Object    1-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[1]"
 Number:   1
 Size:     0 31000 73000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x77 0x76 0x75 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 6
End_Chunk
;
;-------Object   80-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[80]"
 Number:   80
 Size:     72000 31000 0
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x00 0x77 0x76 0x75 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 2
End_Chunk
;
;-------Object   87-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[87]"
 Number:   87
 Size:     72000 0 73000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     5
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 12
End_Chunk
;
;-------Object   83-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[83]"
 Number:   83
 Size:     72000 31000 0
 Position: 0 0 73000
 Type:     0
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x00 0x77 0x00 0x75 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 10
End_Chunk

Children:
;
;-------Object    5-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[5]"
 Number:   5
 Size:     33000 2000 0
 Position: 4000 29000 0
 Type:     65535
 Layer:    0
End_Chunk
;
;-------Object    4-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[4]"
 Number:   4
 Size:     33000 4000 0
 Position: 4000 0 0
 Type:     65535
 Layer:    0
End_Chunk

End_Children
;
;-------Object   86-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[86]"
 Number:   86
 Size:     0 31000 73000
 Position: 72000 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x00 0x76 0x75 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 11
End_Chunk
;
;-------Object   89-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[89]"
 Number:   89
 Size:     72000 0 73000
 Position: 0 31000 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x00 0x13
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 13
End_Chunk
;
;-------Object   99-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[99]"
 Number:   99
 Size:     33000 26000 8500
 Position: 4000 4000 64500
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
short  Dir=-10;



resume (1, 2);

if (activate (#100, 0) || activate (#101, 0) || activate (#125,

    0) || activate (#131, 0))

{

  repeat (9)

  {

    yrot (#102)-=Dir;

    yrot (#101)+=Dir*2;

    yrot (#105)+=Dir;

    yrot (#125)-=Dir*2;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (#100, 0);

  clrtrig (#101, 0);

  clrtrig (#125, 0);

  clrtrig (#131, 0);

}
end
End_Chunk

Children:
;
;-------Object  102-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[102]"
 Number:   102
 Size:     16500 26000 500
 Position: 0 0 8000
 Type:     65535
 Layer:    0
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 13000 500
End_Chunk

Children:
;
;-------Object  100-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[100]"
 Number:   100
 Size:     8250 26000 500
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x10 0x76 0x3C 0x76 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 14
End_Chunk
;
;-------Object  101-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[101]"
 Number:   101
 Size:     8250 26000 500
 Position: 8250 0 0
 Type:     0
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 13000 500
End_Chunk
Chunk: Colours
 Number: 6
 0x3B 0x76 0x10 0x76 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 14
End_Chunk

End_Children
;
;-------Object  105-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[105]"
 Number:   105
 Size:     16500 26000 500
 Position: 16500 0 8000
 Type:     65535
 Layer:    0
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  16500 13000 500
End_Chunk

Children:
;
;-------Object  125-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[125]"
 Number:   125
 Size:     8250 26000 500
 Position: 0 0 0
 Type:     0
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  8250 13000 500
End_Chunk
Chunk: Colours
 Number: 6
 0x10 0x76 0x3B 0x76 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 14
End_Chunk
;
;-------Object  131-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[131]"
 Number:   131
 Size:     8250 26000 500
 Position: 8250 0 0
 Type:     0
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  4125 13000 250
End_Chunk
Chunk: Colours
 Number: 6
 0x3C 0x76 0x10 0x76 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 14
End_Chunk

End_Children

End_Children
;
;-------Object   90-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[90]"
 Number:   90
 Size:     26000 28000 33800
 Position: 17000 0 0
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk

Children:
;
;-------Object  104-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[104]"
 Number:   104
 Size:     24000 5000 30309
 Position: 1000 2000 1745
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 3
 Mode:   0
 SubChunk
  Facet:     5
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     3
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
long   STATS[8];

short  TEMP, LOWEST, MOOD;



resume (1, 4);

if (activate (me, 0))

{

  statsGet (&STATS);

  repeat (5)

  {

    TEMP=5+-inloop;

    repeat (5)

    {

      if (STATS[TEMP]<STATS[inloop-1] &&

          STATS[TEMP]<STATS[LOWEST])

        LOWEST=TEMP;

    }

  }

  MOOD=STATS[LOWEST]/100;

  MOOD=table (MOOD) {0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4};

  if (MOOD>3)

  {

    counter (26)=table (random (7)) {52, 53, 94, 171, 172, 173,

        174};

    if (!vis? (#120))

    {

      if (vis? (#11))

      {

        invis (#11);

        kill (#11);

        counter (22)=284;

        waitf;

        vis (#127);

      }

      switch (random (5));

      case 0:

      {

        repeat (9)

        {

          counter (22)=table (inloop-1) {29, 28, 27, 25, 24,

              290, 291, 292, 284};

          waitfs (5);

        }

      }

      case 1:

      {

        repeat (5)

        {

          counter (22)=table (inloop-1) {39, 48, 47, 46, 45};

          waitfs (5);

        }

      }

      case 2:

      {

        repeat (6)

        {

          counter (22)=table (inloop-1) {35, 34, 41, 42, 43,

              44};

          waitfs (5);

        }

      }

      case 3:

      {

        repeat (6)

        {

          counter (22)=table (inloop-1) {45, 40, 39, 38, 37,

              36};

          waitfs (5);

        }

      }

      case 4:

      {

        repeat (4)

        {

          counter (22)=table (inloop-1) {33, 32, 31, 30};

          waitfs (5);

        }

      }

    }

  }

  else

    counter (26)=table (random (3)) {92, 25, 26};

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x75 0x10
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 15
 Index: 2 Image: 18
End_Chunk
;
;-------Object  122-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[122]"
 Number:   122
 Size:     26000 11000 1745
 Position: 0 0 32054
 Type:     65535
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 16
 0x02 0x02 0x02 0x02 0x08 0x08 0x08 0x08 0x08 0x08 0x08 0x08 0x08 0x08 0x08 0x08
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 22
 Index: 2 Image: 17
End_Chunk
Chunk: Textures
 Number: 4
 SubChunk
  Facet:    4
  ImageRef: 1
  Scale:    256 256
  Offset:   0 0
  PixScale: 0
 SubChunk
  Facet:    2
  ImageRef: 1
  Scale:    256 256
  Offset:   0 0
  PixScale: 0
 SubChunk
  Facet:    3
  ImageRef: 2
  Scale:    256 256
  Offset:   0 0
  PixScale: 0
 SubChunk
  Facet:    1
  ImageRef: 2
  Scale:    -256 256
  Offset:   0 0
  PixScale: 0
End_Chunk

Children:
;
;-------Object   84-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[84]"
 Number:   84
 Size:     26000 9000 1745
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 4
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     3
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x17 0x75
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 22
 Index: 2 Image: 17
End_Chunk

End_Children
;
;-------Object  107-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[107]"
 Number:   107
 Size:     26000 4000 33800
 Position: 0 24000 0
 Type:     25
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 10
 Mode:   0
 SubChunk
  Facet:     5
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     6
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     3
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     10
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     8
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
 SubChunk
  Facet:     4
  ImageRef:  3
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
 SubChunk
  Facet:     7
  ImageRef:  3
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
 SubChunk
  Facet:     9
  ImageRef:  3
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
 SubChunk
  Facet:     2
  ImageRef:  3
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 3
 Index: 1 Image: 19
 Index: 2 Image: 20
 Index: 3 Image: 21
End_Chunk
;
;-------Object  106-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[106]"
 Number:   106
 Size:     1000 15000 0
 Position: 24500 9000 32973
 Type:     26
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  500 7500 0
End_Chunk
Chunk: SCL
yrot (me)=359-yvroff+yrot (object (vattach));


end
End_Chunk
Chunk: Colours
 Number: 1
 0x20
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 5
 Index: 2 Image: 17
End_Chunk
;
;-------Object   85-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[85]"
 Number:   85
 Size:     26000 9000 1745
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 4
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     3
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x17 0x75
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 22
 Index: 2 Image: 17
End_Chunk
;
;-------Object  108-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[108]"
 Number:   108
 Size:     1000 15000 0
 Position: 24500 9000 918
 Type:     26
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  500 7500 0
End_Chunk
Chunk: SCL
yrot (me)=359-yvroff+yrot (object (vattach));


end
End_Chunk
Chunk: Colours
 Number: 1
 0x20
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 5
 Index: 2 Image: 17
End_Chunk
;
;-------Object  123-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[123]"
 Number:   123
 Size:     1000 15000 0
 Position: 500 9000 918
 Type:     26
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  500 7500 0
End_Chunk
Chunk: SCL
yrot (me)=359-yvroff+yrot (object (vattach));


end
End_Chunk
Chunk: Colours
 Number: 1
 0x20
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 5
 Index: 2 Image: 17
End_Chunk
;
;-------Object  124-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[124]"
 Number:   124
 Size:     1000 15000 0
 Position: 500 9000 33065
 Type:     26
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  500 7500 0
End_Chunk
Chunk: SCL
yrot (me)=359-yvroff+yrot (object (vattach));


end
End_Chunk
Chunk: Colours
 Number: 1
 0x20
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 5
 Index: 2 Image: 17
End_Chunk
;
;-------Object  103-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[103]"
 Number:   103
 Size:     22000 8000 0
 Position: 2000 9000 918
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 16
End_Chunk
;
;-------Object   29-------------------------------------------------------
;
Chunk: Standard
 Name:     "6"
 Number:   29
 Size:     1000 1000 1000
 Position: 13000 7000 17234
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
long   nearMe;

objnum Choose;

short  theObj;



resume (2, 0);

if (#13.Follow==me)

{

  nearMe=mdist (me, #11);

  if (nearMe<14000)

  {

    #13.Go=0;

    waitfs (#13.Delay);

    theObj=table (random (2)) {#28, #27};

    Choose=object (theObj);

    #13.Follow=Choose;

    #13.Go=1;

  }

}
end
End_Chunk
;
;-------Object  120-------------------------------------------------------
;
Chunk: Standard
 Name:     "ill"
 Number:   120
 Size:     0 14360 17600
 Position: 12622 4000 11836
 Type:     31
 Layer:    0
 DFlags:   rE
 OFlags:   Ii
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 44
End_Chunk
Chunk: InitPos
 Position: 12622 4000 11836
End_Chunk
Chunk: InitSize
 Size: 0 14360 17600
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 7180 8720
End_Chunk
Chunk: SCL
short  ROT, IMG, TEMP, NUM;

fixed  Y;

short  ROTS;



resume (2, 2);

yrot (me)=89-yvroff+yrot (object (vattach));

if (ROT)

{

  ROTS=ROT-44;

  NUM=table (ROTS) {20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,

      20, 20, 20, 20, 20, 20, 20};

  Y=angle (me, #8);

  IMG= ( (-Y+181)/ (360/NUM)+NUM/2-1)%NUM+1;

  if (IMG!=TEMP)

  {

    counter (20)=IMG;

    TEMP=IMG;

  }

}
end
End_Chunk
;
;-------Object  127-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed"
 Number:   127
 Size:     0 14360 17600
 Position: 12622 4000 11836
 Type:     31
 Layer:    0
 DFlags:   rE
 OFlags:   Ii
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 44
End_Chunk
Chunk: InitPos
 Position: 12622 4000 11836
End_Chunk
Chunk: InitSize
 Size: 0 14360 17600
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 7180 8200
End_Chunk
Chunk: SCL
short  ROT, IMG, TEMP, NUM;

fixed  Y;

short  ROTS;



resume (2, 2);

yrot (me)=89-yvroff+yrot (object (vattach));

if (ROT)

{

  ROTS=ROT-44;

  NUM=table (ROTS) {20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,

      20, 20, 20, 20, 20, 20, 20};

  Y=angle (me, #8);

  IMG= ( (-Y+181)/ (360/NUM)+NUM/2-1)%NUM+1;

  if (IMG!=TEMP)

  {

    counter (20)=IMG;

    TEMP=IMG;

  }

}

if (activate (me, 0))

{

  invis (me);

  unkill (#11);

  counter (22)=2;

  waitf;

  vis (#11);

  clrtrig (me, 0);

}
end
End_Chunk

End_Children
;
;-------Object  132-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[132]"
 Number:   132
 Size:     2000 3000 38000
 Position: 0 27000 20000
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x10 0x77 0x10 0xFF 0xFF
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 7
End_Chunk
;
;-------Object  128-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[128]"
 Number:   128
 Size:     12400 10000 15000
 Position: 2000 0 0
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk

Children:
;
;-------Object  141-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[141]"
 Number:   141
 Size:     1400 6300 9000
 Position: 0 1500 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 30
End_Chunk
;
;-------Object  140-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[140]"
 Number:   140
 Size:     1400 6300 9000
 Position: 11000 1500 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 29
End_Chunk
;
;-------Object  109-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[109]"
 Number:   109
 Size:     0 10000 9000
 Position: 12400 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x00 0x47 0x00 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 9
End_Chunk
;
;-------Object  139-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[139]"
 Number:   139
 Size:     12400 2200 9000
 Position: 0 7800 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     5
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x75 0x75
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 27
 Index: 2 Image: 25
End_Chunk
;
;-------Object  138-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[138]"
 Number:   138
 Size:     12400 1500 9000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 28
End_Chunk
;
;-------Object  129-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[129]"
 Number:   129
 Size:     9600 900 9000
 Position: 1400 4200 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 31
End_Chunk
;
;-------Object  130-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[130]"
 Number:   130
 Size:     0 10000 9000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x47 0x00 0x47 0x00 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 9
End_Chunk
;
;-------Object  136-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[136]"
 Number:   136
 Size:     9600 2700 9000
 Position: 1400 5100 0
 Type:     27
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: SCL
short  Dir=500;



resume (1, 2);

if (activate (me, 0))

{

  repeat (10)

  {

    zpos (me)+=Dir;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: InitPos
 Position: 1400 5100 0
End_Chunk
Chunk: Colours
 Number: 14
 0x77 0x76 0x77 0x76 0x20 0x75 0x21 0x22 0x23 0x24 0x10 0x10 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 26
End_Chunk
;
;-------Object  137-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[137]"
 Number:   137
 Size:     9600 2700 9000
 Position: 1400 1500 0
 Type:     27
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: SCL
short  Dir=500;



resume (1, 2);

if (activate (me, 0))

{

  repeat (10)

  {

    zpos (me)+=Dir;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: InitPos
 Position: 1400 1500 0
End_Chunk
Chunk: Colours
 Number: 14
 0x77 0x76 0x77 0x76 0x20 0x75 0x21 0x22 0x23 0x24 0x10 0x10 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 26
End_Chunk

End_Children
;
;-------Object   94-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[94]"
 Number:   94
 Size:     23400 11000 15000
 Position: 48000 0 0
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk

Children:
;
;-------Object  142-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[142]"
 Number:   142
 Size:     7400 11000 15000
 Position: 0 0 0
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk

Children:
;
;-------Object  143-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[143]"
 Number:   143
 Size:     835 6930 9000
 Position: 0 1650 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 30
End_Chunk
;
;-------Object  144-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[144]"
 Number:   144
 Size:     835 6930 9000
 Position: 6564 1650 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 29
End_Chunk
;
;-------Object  145-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[145]"
 Number:   145
 Size:     0 11000 9000
 Position: 7400 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x00 0x47 0x00 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 9
End_Chunk
;
;-------Object  146-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[146]"
 Number:   146
 Size:     7400 2420 9000
 Position: 0 8580 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 27
End_Chunk
;
;-------Object  147-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[147]"
 Number:   147
 Size:     7400 1650 9000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 28
End_Chunk
;
;-------Object  148-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[148]"
 Number:   148
 Size:     5729 990 9000
 Position: 835 4620 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 31
End_Chunk
;
;-------Object  149-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[149]"
 Number:   149
 Size:     0 11000 9000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x47 0x00 0x47 0x00 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 9
End_Chunk
;
;-------Object  150-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[150]"
 Number:   150
 Size:     5729 2970 9000
 Position: 835 5610 0
 Type:     27
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: SCL
short  Dir=500;



resume (1, 2);

if (activate (me, 0))

{

  repeat (10)

  {

    zpos (me)+=Dir;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: InitPos
 Position: 835 5610 0
End_Chunk
Chunk: Colours
 Number: 14
 0x77 0x76 0x77 0x76 0x20 0x75 0x21 0x22 0x23 0x24 0x10 0x10 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 26
End_Chunk
;
;-------Object  151-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[151]"
 Number:   151
 Size:     5729 2970 9000
 Position: 835 1650 0
 Type:     27
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: SCL
short  Dir=500;



resume (1, 2);

if (activate (me, 0))

{

  repeat (10)

  {

    zpos (me)+=Dir;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: InitPos
 Position: 835 1650 0
End_Chunk
Chunk: Colours
 Number: 14
 0x77 0x76 0x77 0x76 0x20 0x75 0x21 0x22 0x23 0x24 0x10 0x10 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 26
End_Chunk

End_Children
;
;-------Object  152-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[152]"
 Number:   152
 Size:     7400 11000 15000
 Position: 16000 0 0
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk

Children:
;
;-------Object  153-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[153]"
 Number:   153
 Size:     835 6930 9000
 Position: 0 1650 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 30
End_Chunk
;
;-------Object  154-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[154]"
 Number:   154
 Size:     835 6930 9000
 Position: 6564 1650 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 29
End_Chunk
;
;-------Object  155-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[155]"
 Number:   155
 Size:     0 11000 9000
 Position: 7400 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x00 0x47 0x00 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 9
End_Chunk
;
;-------Object  156-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[156]"
 Number:   156
 Size:     7400 2420 9000
 Position: 0 8580 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 27
End_Chunk
;
;-------Object  157-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[157]"
 Number:   157
 Size:     7400 1650 9000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 28
End_Chunk
;
;-------Object  158-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[158]"
 Number:   158
 Size:     5729 990 9000
 Position: 835 4620 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 31
End_Chunk
;
;-------Object  159-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[159]"
 Number:   159
 Size:     0 11000 9000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x47 0x00 0x47 0x00 0x00 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 9
End_Chunk
;
;-------Object  160-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[160]"
 Number:   160
 Size:     5729 2970 9000
 Position: 835 5610 0
 Type:     27
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: SCL
short  Dir=500;



resume (1, 2);

if (activate (me, 0))

{

  repeat (10)

  {

    zpos (me)+=Dir;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: InitPos
 Position: 835 5610 0
End_Chunk
Chunk: Colours
 Number: 14
 0x77 0x76 0x77 0x76 0x20 0x75 0x21 0x22 0x23 0x24 0x10 0x10 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 26
End_Chunk
;
;-------Object  161-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[161]"
 Number:   161
 Size:     5729 2970 9000
 Position: 835 1650 0
 Type:     27
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: SCL
short  Dir=500;



resume (1, 2);

if (activate (me, 0))

{

  repeat (10)

  {

    zpos (me)+=Dir;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: InitPos
 Position: 835 1650 0
End_Chunk
Chunk: Colours
 Number: 14
 0x77 0x76 0x77 0x76 0x20 0x75 0x21 0x22 0x23 0x24 0x10 0x10 0x10 0x10
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 26
End_Chunk

End_Children
;
;-------Object   93-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[93]"
 Number:   93
 Size:     8600 1420 9000
 Position: 7400 9580 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     4
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x00 0x76 0x00 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 33
End_Chunk
;
;-------Object   95-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[95]"
 Number:   95
 Size:     23400 0 9000
 Position: 0 11000 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     5
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x00 0x00 0x00 0x59 0x00
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 25
End_Chunk

End_Children
;
;-------Object   96-------------------------------------------------------
;
Chunk: Standard
 Name:     "bed[96]"
 Number:   96
 Size:     10300 8200 0
 Position: 55000 11000 3000
 Type:     28
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     7
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    0.25000 1.00000
    0.25000 0.00000
End_Chunk
Chunk: SCL
fixed  Y;



Y=360-yrot (#9);

if (Y>360)

  Y=Y-360;

txoff (me, 1)=180-Y;


end
End_Chunk
Chunk: Colours
 Number: 7
 0x10 0x3F 0x10 0x10 0x10 0x10 0x64
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 34
End_Chunk
;
;-------Object   10-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[10]"
 Number:   10
 Size:     0 22000 33000
 Position: 1000 5000 22200
 Type:     65535
 Layer:    0
End_Chunk
Chunk: SCL
short  Dir=1000, IMAGE, facetNo=24;

char   IMAGEN[5], DIR[1024], PATH[1024], DRIVE[3];

long   WIDTH, HEIGHT;



resume (1, 2);

if (first)

{

  cdDrive (&DRIVE);

  strcpy (&DIR, &DRIVE);

  strcat (&DIR, "\\LoveBytes\\Locations\\");

}

if (activate (#133, 0) || activate (#6, 0) || activate (#7, 0)

    || activate (#134, 0))

{

  if (Dir==1000)

  {

    IMAGE=random (6);

    ltoa (&IMAGEN, IMAGE);

    strcpy (&PATH, &DIR);

    strcat (&PATH, &IMAGEN);

    strcat (&PATH, ".gif");

    imageLd (&PATH, facetNo, 0, &WIDTH, &HEIGHT);

    strcpy (&PATH, &DIR);

  }

  repeat (8)

  {

    zpos (#6)-=Dir;

    zpos (#7)+=Dir;

    waitf;

  }

  Dir=Dir*-1;

  clrtrig (#133, 0);

  clrtrig (#6, 0);

  clrtrig (#7, 0);

  clrtrig (#134, 0);

}
end
End_Chunk

Children:
;
;-------Object    7-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[7]"
 Number:   7
 Size:     0 22000 9000
 Position: 0 0 16000
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: InitPos
 Position: 0 0 16000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x10 0x77 0x10 0xFF 0xFF
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 23
End_Chunk
;
;-------Object  134-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[134]"
 Number:   134
 Size:     0 22000 9000
 Position: 0 0 24000
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x10 0x77 0x10 0xFF 0xFF
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 23
End_Chunk
;
;-------Object    6-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[6]"
 Number:   6
 Size:     0 22000 9000
 Position: 0 0 8000
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: InitPos
 Position: 0 0 8000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x10 0x77 0x10 0xFF 0xFF
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 23
End_Chunk
;
;-------Object  133-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[133]"
 Number:   133
 Size:     0 22000 9000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x10 0x77 0x10 0xFF 0xFF
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 23
End_Chunk

End_Children
;
;-------Object   22-------------------------------------------------------
;
Chunk: Standard
 Name:     "wall[22]"
 Number:   22
 Size:     2000 2000 0
 Position: 69864 12029 28443
 Type:     34
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  1000 1000 0
End_Chunk
Chunk: SCL
resume (1, 2);

yrot (me)=359-yvroff+yrot (object (vattach));

xrot (me)=359-xvroff;

if (activate (me, 0))

{















/* Menulock stuff*/















  share (99)=2;

  waitf;

  menuLock (1);

  loadvrt ("living.vrt");

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 64
End_Chunk
Chunk: Colours
 Number: 2
 0x77 0x76
End_Chunk
;
;-------Object   27-------------------------------------------------------
;
Chunk: Standard
 Name:     "5"
 Number:   27
 Size:     1000 1000 1000
 Position: 7356 0 17234
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
long   nearMe;

objnum Choose;

short  theObj;



resume (2, 0);

if (#13.Follow==me)

{

  nearMe=mdist (me, #11);

  if (nearMe<14000)

  {

    #13.Go=0;

    waitfs (#13.Delay);

    theObj=table (random (1)) {#25};

    Choose=object (theObj);

    #13.Follow=Choose;

    #13.Go=1;

  }

}
end
End_Chunk
;
;-------Object   28-------------------------------------------------------
;
Chunk: Standard
 Name:     "7"
 Number:   28
 Size:     1000 1000 1000
 Position: 60000 0 21234
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
long   nearMe;

objnum Choose;

short  theObj;



resume (2, 0);

if (#13.Follow==me)

{

  nearMe=mdist (me, #11);

  if (nearMe<14000)

  {

    #13.Go=0;

    waitfs (#13.Delay);

    theObj=table (random (1)) {#24};

    Choose=object (theObj);

    #13.Follow=Choose;

    #13.Go=1;

  }

}
end
End_Chunk
;
;-------Object   23-------------------------------------------------------
;
Chunk: Standard
 Name:     "1"
 Number:   23
 Size:     1000 1000 1000
 Position: 67000 0 60234
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
long   nearMe;

objnum Choose;

short  theObj;



resume (2, 0);

if (#13.Follow==me)

{

  nearMe=mdist (me, #11);

  if (nearMe<14000)

  {

    #13.Go=0;

    waitfs (#13.Delay);

    theObj=table (random (2)) {#25, #28};

    Choose=object (theObj);

    #13.Follow=Choose;

    #13.Go=1;

  }

}
end
End_Chunk
;
;-------Object   26-------------------------------------------------------
;
Chunk: Standard
 Name:     "4"
 Number:   26
 Size:     1000 1000 1000
 Position: 13356 0 37234
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
long   nearMe;

objnum Choose;

short  theObj;



resume (2, 0);

if (#13.Follow==me)

{

  nearMe=mdist (me, #11);

  if (nearMe<14000)

  {

    #13.Go=0;

    waitfs (#13.Delay);

    theObj=table (random (2)) {#24, #27};

    Choose=object (theObj);

    #13.Follow=Choose;

    #13.Go=1;

  }

}
end
End_Chunk
;
;-------Object   25-------------------------------------------------------
;
Chunk: Standard
 Name:     "2"
 Number:   25
 Size:     1000 1000 1000
 Position: 9356 0 57234
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
long   nearMe;

objnum Choose;

short  theObj;



resume (2, 0);

if (#13.Follow==me)

{

  nearMe=mdist (me, #11);

  if (nearMe<14000)

  {

    #13.Go=0;

    waitfs (#13.Delay);

    theObj=table (random (2)) {#24, #26};

    Choose=object (theObj);

    #13.Follow=Choose;

    #13.Go=1;

  }

}
end
End_Chunk
;
;-------Object   20-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA: HOLD "
 Number:   20
 Size:     1199 6980 6980
 Position: 0 17600 6310
 Type:     65535
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 18
 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C 0x0C
 0x0C 0x0C
End_Chunk

Children:
;
;-------Object   67-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Rim "
 Number:   67
 Size:     1199 6980 6980
 Position: 0 0 0
 Type:     35
 Layer:    0
End_Chunk

Children:
;
;-------Object   68-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face hold "
 Number:   68
 Size:     413 4799 4799
 Position: 0 1088 1088
 Type:     65535
 Layer:    0
End_Chunk

Children:
;
;-------Object   69-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Hour hand "
 Number:   69
 Size:     0 1799 479
 Position: 404 2288 2159
 Type:     36
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 3
 0x30 0x01 0x37
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 110 239
End_Chunk
;
;-------Object   70-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Minute hand "
 Number:   70
 Size:     0 2399 599
 Position: 407 2249 2099
 Type:     37
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x9E 0x01 0x01 0xA7 0x05 0x01
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 149 299
End_Chunk
;
;-------Object   71-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Second hand "
 Number:   71
 Size:     0 2399 23
 Position: 410 2249 2387
 Type:     38
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 2
 0x01 0x00
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 149 11
End_Chunk
;
;-------Object   72-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face hold (0,1) "
 Number:   72
 Size:     0 4799 4799
 Position: 401 0 0
 Type:     65535
 Layer:    0
End_Chunk
Chunk: SCL
short  h, m, s, s2=0;



 /* stores the hours,minutes and second values of the system clock */

time (&h, &m, &s);

    /* rotates the hands of the clock relative to the time */

if (s2!=s)

  /*sound (1, 72, -500, 0);*/

  s2=s;

xrot (#71)=360-s*6.0000;

xrot (#70)=360-m*6.0000-s/10.0000;

xrot (#69)=360-h*30.0000-m/2.0000;



    /*                */
end
End_Chunk

Children:
;
;-------Object   73-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face "
 Number:   73
 Size:     0 4799 4799
 Position: 0 0 0
 Type:     39
 Layer:    0
 OFlags:   r
End_Chunk
Chunk: Colours
 Number: 35
 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01
 0x01 0x01 0x01 0x01 0x01 0x32 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x00 0x01
 0x01 0x01 0x01
End_Chunk
Chunk: Distancing
 Visible:   7493
 Invisible: 7961
 Replace:   74
End_Chunk
;
;-------Object   74-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face Rep1 "
 Number:   74
 Size:     0 4799 4799
 Position: 0 0 0
 Type:     40
 Layer:    0
 DFlags:   R
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 30
 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x32 0x01 0x01 0x01 0x01 0x01 0x01 0x01
 0x01 0x01 0x01 0x01 0x01 0xC7 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01
End_Chunk

End_Children

End_Children

End_Children
;
;-------Object   75-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Rim Rep1 "
 Number:   75
 Size:     1199 6980 6980
 Position: 0 0 0
 Type:     41
 Layer:    0
 DFlags:   R
 OFlags:   Ii
End_Chunk

Children:
;
;-------Object   76-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face hold Rep1 "
 Number:   76
 Size:     413 4799 4799
 Position: 0 1088 1088
 Type:     65535
 Layer:    0
End_Chunk

Children:
;
;-------Object   77-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Hour hand Rep1 "
 Number:   77
 Size:     0 1799 479
 Position: 404 2288 2159
 Type:     36
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 4
 0x30 0x01 0x37 0x30
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 110 239
End_Chunk
;
;-------Object   78-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Minute hand Rep1 "
 Number:   78
 Size:     0 2399 599
 Position: 407 2249 2099
 Type:     37
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x9E 0x08 0x01 0xA7 0x05 0x01
End_Chunk
Chunk: Colours
 Number: 6
 0x9E 0x08 0x01 0xA7 0x05 0x01
End_Chunk
Chunk: Colours
 Number: 4
 0x30 0x01 0x01 0x30
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 149 299
End_Chunk
;
;-------Object   79-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Second hand Rep1 "
 Number:   79
 Size:     0 2399 23
 Position: 410 2249 2387
 Type:     38
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 2
 0x01 0x00
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 149 11
End_Chunk
;
;-------Object  110-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face hold (2,3) "
 Number:   110
 Size:     0 4799 4799
 Position: 401 0 0
 Type:     65535
 Layer:    0
End_Chunk
Chunk: SCL
short  h, m, s;



time (&h, &m, &s);

xrot (#79)=360-s*6.0000;

xrot (#78)=360- (m*6.0000+s/10.0000);

xrot (#77)=360- (h*30.0000+m/2.0000);































    /*                */
















end
End_Chunk

Children:
;
;-------Object  111-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face Rep2 "
 Number:   111
 Size:     0 4799 4799
 Position: 0 0 0
 Type:     42
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 35
 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x32 0x01 0x01 0x01 0x01 0x01 0x01
 0x01 0x01 0x01 0x01 0x01 0xC7 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x00 0x01
 0x01 0x01 0x01
End_Chunk
Chunk: Distancing
 Visible:   41965
 Invisible: 44587
 Replace:   112
End_Chunk
;
;-------Object  112-------------------------------------------------------
;
Chunk: Standard
 Name:     "CLOCKA:Face Rep3 "
 Number:   112
 Size:     0 4799 4799
 Position: 0 0 0
 Type:     43
 Layer:    0
 DFlags:   R
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 35
 0x01 0x01 0x32 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01
 0x01 0x01 0x01 0x01 0x01 0xC7 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x01 0x00 0x01
 0x01 0x01 0x01
End_Chunk

End_Children

End_Children

End_Children

End_Children
;
;-------Object  113-------------------------------------------------------
;
Chunk: Standard
 Name:     "picture[113]"
 Number:   113
 Size:     2999 3300 2499
 Position: 8303 10000 3041
 Type:     65535
 Layer:    0
End_Chunk

Children:
;
;-------Object  114-------------------------------------------------------
;
Chunk: Standard
 Name:     "desk[114]"
 Number:   114
 Size:     3999 4000 2499
 Position: -500 -700 0
 Type:     44
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     7
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: SCL
if (activate (me, 0))

{

  dlgPhoto;

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 1
End_Chunk
Chunk: Colours
 Number: 10
 0x3F 0xFA 0x3F 0x3F 0x3F 0x3F 0x55 0xFA 0x3F 0x3F
End_Chunk
Chunk: Rotations
 Initial: 0x1553 0x1FFE 0x0000
 Centre:  1499 2000 1249
End_Chunk

End_Children
;
;-------Object  115-------------------------------------------------------
;
Chunk: Standard
 Name:     "picture"
 Number:   115
 Size:     2999 3300 2499
 Position: 50339 11000 2441
 Type:     65535
 Layer:    0
End_Chunk

Children:
;
;-------Object  116-------------------------------------------------------
;
Chunk: Standard
 Name:     "desk[116]"
 Number:   116
 Size:     2999 4000 2499
 Position: 0 -700 0
 Type:     45
 Layer:    0
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 45
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     7
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    0.99967 0.00049
End_Chunk
Chunk: SCL
if (activate (me, 0))

{

  dlgInfo;

  clrtrig (me, 0);

}
end
End_Chunk
Chunk: Colours
 Number: 10
 0x3F 0xFA 0x3F 0x3F 0x3F 0x3F 0x55 0xFA 0x3F 0x3F
End_Chunk
Chunk: Rotations
 Initial: 0x1553 0xFFFFE000 0x0000
 Centre:  1499 2000 1249
End_Chunk

End_Children
;
;-------Object   24-------------------------------------------------------
;
Chunk: Standard
 Name:     "3"
 Number:   24
 Size:     1000 1000 1000
 Position: 38356 0 47234
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
long   nearMe;

objnum Choose;

short  theObj;



resume (2, 0);

if (#13.Follow==me)

{

  nearMe=mdist (me, #11);

  if (nearMe<14000)

  {

    #13.Go=0;

    waitfs (#13.Delay);

    theObj=table (random (2)) {#23, #28};

    Choose=object (theObj);

    #13.Follow=Choose;

    #13.Go=1;

  }

}
end
End_Chunk
;
;-------Object   11-------------------------------------------------------
;
Chunk: Standard
 Name:     "WOMAN_HOLD"
 Number:   11
 Size:     4470 22000 4406
 Position: 3514 0 20000
 Type:     65535
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: InitPos
 Position: 3514 0 20000
End_Chunk
Chunk: Dynamics
 MovType:     0x80000081
 Fuel:        0
 Climb:       0
 Gravity:     120
 Coupled:     13
 Drive:       0 0 0
 External:    0 0 0
 MaxForce:    0 0 0
 GroundFric:  0 0 0
 Restitution: 0 0 0
 Velocity:    0 0 0
 MaxVel:      0 0 0
End_Chunk

Children:
;
;-------Object   12-------------------------------------------------------
;
Chunk: Standard
 Name:     "woman"
 Number:   12
 Size:     0 21900 6600
 Position: 2118 0 -1280
 Type:     31
 Layer:    0
 DFlags:   rE
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 44
End_Chunk
Chunk: InitPos
 Position: 2118 0 -1280
End_Chunk
Chunk: InitSize
 Size: 0 21900 6600
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  0 10950 0
End_Chunk
Chunk: SCL
short  ROT, IMG, TEMP, NUM;

fixed  Y;

short  ROTS, ONCE=1;



resume (2, 2);

yrot (me)=89-yvroff+yrot (object (vattach));

if (ROT)

{

  ROTS=ROT-44;

  NUM=table (ROTS) {18, 18, 18, 18, 18, 20, 15, 19, 18, 12, 20,

      18, 13, 23, 21, 17, 11, 16};

  Y=angle (me, #8);

  IMG= ( (-Y+181)/ (360/NUM)+NUM/2-1)%NUM+1;

  if (ONCE)

  {

    repeat (NUM)

    {

      counter (20)=inloop;

      waitf;

    }

    ONCE=0;

  }

  if (IMG!=TEMP)

  {

    counter (20)=IMG;

    TEMP=IMG;

  }

}
end
End_Chunk
;
;-------Object   13-------------------------------------------------------
;
Chunk: Standard
 Name:     "direction"
 Number:   13
 Size:     2000 2000 1000
 Position: 1350 12200 2119
 Type:     65535
 Layer:    0
 DFlags:   rE
End_Chunk
Chunk: SCL
objnum Follow;

short  Speed=800, Delay=200, Go=1;

fixed  x, y;



if (first)

  Follow=#27;

y=angle3d (Follow, me, &y);

yrot (me)=y;

if (Go==1)

  zdrive (parent (me))=Speed;

else

  zdrive (parent (me))=0;


end
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  1000 1000 500
End_Chunk

End_Children

End_Children
;
;-------Object    2-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[2]"
 Number:   2
 Size:     35000 31000 3000
 Position: 47000 0 83000
 Type:     65535
 Layer:    0
End_Chunk
;
;-------Object    3-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[3]"
 Number:   3
 Size:     4000 31000 3000
 Position: 10000 0 83000
 Type:     65535
 Layer:    0
End_Chunk
;
;-------Object  166-------------------------------------------------------
;
Chunk: Standard
 Name:     " vis cub"
 Number:   166
 Size:     33000 31000 17000
 Position: 14000 0 83000
 Type:     65535
 Layer:    0
 DFlags:   E
End_Chunk
Chunk: SCL
if (yrot (#102))

  vis (me);

else

  invis (me);


end
End_Chunk

Children:
;
;-------Object   88-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[88]"
 Number:   88
 Size:     33000 0 17000
 Position: 0 31000 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     6
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 4
End_Chunk
;
;-------Object   91-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[91]"
 Number:   91
 Size:     0 31000 17000
 Position: 33000 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 3
End_Chunk
;
;-------Object   92-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[92]"
 Number:   92
 Size:     0 31000 17000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 3
End_Chunk
;
;-------Object   98-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[98]"
 Number:   98
 Size:     33000 0 17000
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     5
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 4
End_Chunk
;
;-------Object   97-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[97]"
 Number:   97
 Size:     33000 31000 0
 Position: 0 0 17000
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     2
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 4
End_Chunk
;
;-------Object  126-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[126]"
 Number:   126
 Size:     33000 2000 0
 Position: 0 26000 7000
 Type:     29
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 2
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 5
 Index: 2 Image: 17
End_Chunk
;
;-------Object  165-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[165]"
 Number:   165
 Size:     10 4000 8000
 Position: 1990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   32-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[32]"
 Number:   32
 Size:     10 4000 8000
 Position: 3990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   48-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[48]"
 Number:   48
 Size:     10 4000 8000
 Position: 31990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   33-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[33]"
 Number:   33
 Size:     10 4000 8000
 Position: 5990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   34-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[34]"
 Number:   34
 Size:     10 4000 8000
 Position: 7490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   35-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[35]"
 Number:   35
 Size:     10 4000 8000
 Position: 8990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   36-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[36]"
 Number:   36
 Size:     10 4000 8000
 Position: 10990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   38-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[38]"
 Number:   38
 Size:     10 4000 8000
 Position: 14490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   37-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[37]"
 Number:   37
 Size:     10 4000 8000
 Position: 12490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   39-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[39]"
 Number:   39
 Size:     10 4000 8000
 Position: 15990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   41-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[41]"
 Number:   41
 Size:     10 4000 8000
 Position: 19490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   42-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[42]"
 Number:   42
 Size:     10 4000 8000
 Position: 21490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   43-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[43]"
 Number:   43
 Size:     10 4000 8000
 Position: 23490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   44-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[44]"
 Number:   44
 Size:     10 4000 8000
 Position: 25490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   45-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[45]"
 Number:   45
 Size:     10 4000 8000
 Position: 27490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   46-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[46]"
 Number:   46
 Size:     10 4000 8000
 Position: 28990 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   47-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[47]"
 Number:   47
 Size:     10 4000 8000
 Position: 30490 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   40-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[40]"
 Number:   40
 Size:     10 4000 8000
 Position: 17700 22000 3000
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 8
End_Chunk
;
;-------Object   50-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 45"
 Number:   50
 Size:     0 11500 7000
 Position: 4000 12000 3900
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=45;

  share (7)=45;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 48
End_Chunk
;
;-------Object   63-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 58"
 Number:   63
 Size:     10 6000 8000
 Position: 27480 17700 3100
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=58;

  share (7)=58;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 46
End_Chunk
;
;-------Object   64-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 60"
 Number:   64
 Size:     10 7600 8400
 Position: 30480 16500 3300
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=60;

  share (7)=60;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 62
End_Chunk
;
;-------Object   49-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 44"
 Number:   49
 Size:     10 11100 11200
 Position: 2000 13400 1200
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=44;

  share (7)=44;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 47
End_Chunk
;
;-------Object   51-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 46"
 Number:   51
 Size:     10 13900 8700
 Position: 6000 10300 3100
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=46;

  share (7)=46;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 49
End_Chunk
;
;-------Object   52-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 47"
 Number:   52
 Size:     10 10100 10500
 Position: 7500 14300 1600
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=47;

  share (7)=47;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 50
End_Chunk
;
;-------Object   53-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 48"
 Number:   53
 Size:     0 14500 8800
 Position: 9000 9600 3800
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=48;

  share (7)=48;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 51
End_Chunk
;
;-------Object   54-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 49"
 Number:   54
 Size:     0 18500 7100
 Position: 11000 5700 4400
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=49;

  share (7)=49;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 52
End_Chunk
;
;-------Object   55-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 50"
 Number:   55
 Size:     10 14100 5300
 Position: 12500 9600 4200
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=50;

  share (7)=50;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 53
End_Chunk
;
;-------Object   56-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 51"
 Number:   56
 Size:     0 9500 7300
 Position: 14500 14700 3100
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=51;

  share (7)=51;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 54
End_Chunk
;
;-------Object   57-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 52"
 Number:   57
 Size:     0 6700 7000
 Position: 16000 17800 3800
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=52;

  share (7)=52;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 55
End_Chunk
;
;-------Object   58-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 53"
 Number:   58
 Size:     10 6700 4200
 Position: 17690 18100 5600
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=53;

  share (7)=53;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 56
End_Chunk
;
;-------Object   59-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 54"
 Number:   59
 Size:     0 9900 6200
 Position: 19480 14200 3800
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=54;

  share (7)=54;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 57
End_Chunk
;
;-------Object   60-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 55"
 Number:   60
 Size:     10 8000 7100
 Position: 21480 16600 3300
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=55;

  share (7)=55;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 58
End_Chunk
;
;-------Object   61-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 56"
 Number:   61
 Size:     10 4900 6500
 Position: 23480 17400 3700
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=56;

  share (7)=56;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 59
End_Chunk
;
;-------Object   62-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 57"
 Number:   62
 Size:     10 9700 9000
 Position: 25480 14700 2400
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=57;

  share (7)=57;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 60
End_Chunk
;
;-------Object  169-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 59"
 Number:   169
 Size:     10 11600 9600
 Position: 28980 12700 2400
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=59;

  share (7)=59;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 61
End_Chunk
;
;-------Object   65-------------------------------------------------------
;
Chunk: Standard
 Name:     "Clothes 61"
 Number:   65
 Size:     10 11100 8100
 Position: 31980 11700 3100
 Type:     30
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     1
  ImageRef:  2
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    -1.00000 1.00000
    -1.00000 0.00000
End_Chunk
Chunk: SCL
resume (0, 2);

if (activate (me, 0))

{

  while (mouseb)

    waitf;

  share (1)=61;

  share (7)=61;

  #16.REFRESH=1;

  invis (me);

  clrtrig (me, 0);

}
end
End_Chunk

Chunk: ImageRef
 Number: 2
 Index: 1 Image: 46
 Index: 2 Image: 63
End_Chunk

End_Children
;
;-------Object  135-------------------------------------------------------
;
Chunk: Standard
 Name:     "floor[135]"
 Number:   135
 Size:     2000 15000 32000
 Position: 8000 12000 33000
 Type:     0
 Layer:    0
End_Chunk
Chunk: TexCoords
 Number: 1
 Mode:   0
 SubChunk
  Facet:     3
  ImageRef:  1
  PixScale:  0
  NumCoords: 4
    0.00000 0.00000
    0.00000 1.00000
    1.00000 1.00000
    1.00000 0.00000
End_Chunk
Chunk: Colours
 Number: 6
 0x00 0x76 0x77 0x76 0x75 0x75
End_Chunk

Chunk: ImageRef
 Number: 1
 Index: 1 Image: 24
End_Chunk
;
;-------Object  118-------------------------------------------------------
;
Chunk: Standard
 Name:     "other"
 Number:   118
 Size:     3000 3000 3000
 Position: 88826 0 5689
 Type:     32
 Layer:    0
End_Chunk
Chunk: SCL
long   STATS[8];



if (first)

{

  counter (20)=-1;

  counter (25)=-1;

  counter (26)=-1;

  counter (50)=-1;

  counter (51)=-1;

  counter (52)=-1;

  counter (53)=-1;

}

if (counter (50)!=-1 || counter (51)!=-1 || counter (52)!=-1 ||

    counter (53)!=-1)

{

  if (counter (50)!=-1)

    STATS[0]=counter (50);

  else

    STATS[0]=0;

  if (counter (51)!=-1)

    STATS[1]=counter (51);

  else

    STATS[1]=0;

  if (counter (52)!=-1)

    STATS[2]=counter (52);

  else

    STATS[2]=0;

  if (counter (53)!=-1)

    STATS[4]=counter (53);

  else

    STATS[4]=0;

  STATS[5]=0;

  STATS[6]=0;

  STATS[7]=0;

  statsExp (&STATS);

  counter (50)=-1;

  counter (51)=-1;

  counter (52)=-1;

  counter (53)=-1;

}
end
End_Chunk
Chunk: Text
  "char   NAME[10], PATH[256], DIR[256];\r"
  "long   WIDTH, HEIGHT, newPOS, oldWIDTH;\r"
  "short  Scale=35;\r\r"
  "if (first)\r"
  "{\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\images\\\\\");\r"
  "  strcpy (&NAME, \"4.gif\");\r"
  "}\r"
  "if (activate (me, 0) || first)\r"
  "{\r"
  "  strcpy (&PATH, &DIR);\r"
  "  strcat (&PATH, &NAME);\r"
  "  imageLd (&PATH, 57, 1, &WIDTH, &HEIGHT);\r"
  "  newPOS=zpos ('woman');\r"
  "  oldWIDTH=zsize ('woman')/2;\r"
  "  zsize ('woman')=WIDTH*Scale;\r"
  "  ysize ('woman')=HEIGHT*Scale;\r"
  "  write (&zcent ('woman'))=zsize ('woman')/2;\r"
  "  newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;\r"
  "  zpos ('woman')=newPOS;\r"
  "  strcpy (&PATH, &DIR);\r"
  "  clrtrig (me, 0);\r"
  "}"
End_Chunk
Chunk: Colours
 Number: 6
 0x2B 0x15 0x2B 0x60 0x60 0x60
End_Chunk

End_Children
;
;-------Object   14-------------------------------------------------------
;
Chunk: Standard
 Name:     "Functions"
 Number:   14
 Size:     35000 3000 3000
 Position: 2123551 0 1958973
 Type:     65535
 Layer:    0
End_Chunk

Children:
;
;-------Object   15-------------------------------------------------------
;
Chunk: Standard
 Name:     "loadImage"
 Number:   15
 Size:     3000 3000 3000
 Position: 3000 0 0
 Type:     32
 Layer:    0
End_Chunk
Chunk: Text
  "char   NAME[10], PATH[256], DIR[256];\r"
  "long   WIDTH, HEIGHT, newPOS, oldWIDTH;\r"
  "short  Scale=35;\r\r"
  "if (first)\r"
  "{\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\images\\\\\");\r"
  "  strcpy (&NAME, \"4.gif\");\r"
  "}\r"
  "if (activate (me, 0) || first)\r"
  "{\r"
  "  strcpy (&PATH, &DIR);\r"
  "  strcat (&PATH, &NAME);\r"
  "  imageLd (&PATH, 57, 1, &WIDTH, &HEIGHT);\r"
  "  newPOS=zpos ('woman');\r"
  "  oldWIDTH=zsize ('woman')/2;\r"
  "  zsize ('woman')=WIDTH*Scale;\r"
  "  ysize ('woman')=HEIGHT*Scale;\r"
  "  write (&zcent ('woman'))=zsize ('woman')/2;\r"
  "  newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;\r"
  "  zpos ('woman')=newPOS;\r"
  "  strcpy (&PATH, &DIR);\r"
  "  clrtrig (me, 0);\r"
  "}"
End_Chunk
Chunk: Colours
 Number: 6
 0x2B 0x15 0x2B 0x60 0x60 0x60
End_Chunk
Chunk: SCL
char   NAME[10], PATH[256], DIR[256], DRIVE[3];

long   WIDTH, HEIGHT, newPOS, oldWIDTH, STATS[8];

short  Scale=20, imgNum=44, LOWEST, MOODS=1, TEMP, ROT;



resume (2, 2);

if (first)

{

  cdDrive (&DRIVE);

  strcpy (&DIR, &DRIVE);

  strcat (&DIR, "\\LoveBytes\\");

  counter (20)=-1;

  counter (25)=-1;

  counter (21)=0;

}

if (vis? (#11) || vis? (#120) || first || vis? (#127))

{

  if (counter (20)>-1 && vis? (#11))

  {

    strcpy (&PATH, &DIR);

    strcat (&PATH, "images\\");

    ROT=#12.ROT;

    if (ROT>0)

    {

      ltoa (&NAME, ROT);

      strcat (&PATH, &NAME);

      strcat (&PATH, "\\");

    }

    ltoa (&NAME, counter (20));

    strcat (&PATH, &NAME);

    strcat (&PATH, ".gif");

    imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);

    newPOS=zpos (#12);

    oldWIDTH=zsize (#12)/2;

    zsize (#12)=WIDTH*Scale;

    ysize (#12)=HEIGHT*Scale;

    write (&zcent (#12))=zsize (#12)/2;

    newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;

    zpos (#12)=newPOS;

    counter (20)=-1;

    if (ROT==0)

      MOODS=1;

    ROT=0;

  }

  if (counter (20)>-1 && vis? (#120))

  {

    strcpy (&PATH, &DIR);

    strcat (&PATH, "images\\");

    ROT=#120.ROT;

    if (ROT>0)

    {

      ltoa (&NAME, ROT);

      strcat (&PATH, &NAME);

      strcat (&PATH, "\\");

    }

    ltoa (&NAME, counter (20));

    strcat (&PATH, &NAME);

    strcat (&PATH, ".gif");

    imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);

    newPOS=zpos (#120);

    oldWIDTH=zsize (#120)/2;

    zsize (#120)=WIDTH*Scale;

    ysize (#120)=HEIGHT*Scale;

    write (&zcent (#120))=zsize (#120)/2;

    newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;

    zpos (#120)=newPOS;

    counter (20)=-1;

    if (ROT==0)

      MOODS=1;

    ROT=0;

  }

  if (counter (22)>-1 && vis? (#127))

  {

    strcpy (&PATH, &DIR);

    strcat (&PATH, "images\\");

    ltoa (&NAME, counter (22));

    strcat (&PATH, &NAME);

    strcat (&PATH, ".gif");

    imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);

    newPOS=zpos (#127);

    oldWIDTH=zsize (#127)/2;

    zsize (#127)=WIDTH*Scale;

    ysize (#127)=HEIGHT*Scale;

    write (&zcent (#127))=zsize (#127)/2;

    newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;

    zpos (#127)=newPOS;

    counter (22)=-1;

  }

  if (counter (25)>-1)

  {

    strcpy (&PATH, &DIR);

    strcat (&PATH, "sounds\\");

    ltoa (&NAME, counter (25));

    strcat (&PATH, &NAME);

    strcat (&PATH, ".wav");

    playWAV (&PATH);

    counter (25)=-1;

  }

  if (counter (26)>-1)

  {

    strcpy (&PATH, &DIR);

    strcat (&PATH, "sounds\\");

    ltoa (&NAME, counter (26));

    strcat (&PATH, &NAME);

    strcat (&PATH, ".wav");

    while (sndState)

      waitf;

    playWAV (&PATH);

    counter (26)=-1;

  }

  if (MOODS && !counter (21) && !vis? (#120))

  {

    if (!first)

      waitfs (50);

    statsGet (&STATS);

    repeat (5)

    {

      TEMP=5+-inloop;

      repeat (5)

      {

        if (STATS[TEMP]<STATS[inloop-1] &&

            STATS[TEMP]<STATS[LOWEST])

          LOWEST=TEMP;

      }

    }

    if (STATS[LOWEST]<111)

      counter (20)=131;

    if (STATS[LOWEST]>=111 && STATS[LOWEST]<222)

      counter (20)=119;

    if (STATS[LOWEST]>=222 && STATS[LOWEST]<333)

      counter (20)=table (random (2)) {117, 125};

    if (STATS[LOWEST]>=333 && STATS[LOWEST]<444)

      counter (20)=table (random (3)) {120, 124, 126};

    if (STATS[LOWEST]>=444 && STATS[LOWEST]<555)

      counter (20)=table (random (2)) {121, 127};

    if (STATS[LOWEST]>=555 && STATS[LOWEST]<666)

      counter (20)=2;

    if (STATS[LOWEST]>=666 && STATS[LOWEST]<777)

      counter (20)=129;

    if (STATS[LOWEST]>=777 && STATS[LOWEST]<888)

      counter (20)=130;

    if (STATS[LOWEST]>=888)

      counter (20)=1;

    strcpy (&PATH, &DIR);

    strcat (&PATH, "images\\");

    ltoa (&NAME, counter (20));

    strcat (&PATH, &NAME);

    strcat (&PATH, ".gif");

    imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);

    newPOS=zpos (#12);

    oldWIDTH=zsize (#12)/2;

    zsize (#12)=WIDTH*Scale;

    ysize (#12)=HEIGHT*Scale;

    write (&zcent (#12))=zsize (#12)/2;

    newPOS=newPOS+oldWIDTH-WIDTH*Scale/2;

    zpos (#12)=newPOS;

    counter (20)=-1;

    MOODS=0;

  }

}
end
End_Chunk
;
;-------Object   17-------------------------------------------------------
;
Chunk: Standard
 Name:     "Icons"
 Number:   17
 Size:     3000 3000 3000
 Position: 6000 0 0
 Type:     33
 Layer:    0
End_Chunk
Chunk: Text
  "short  SELECTED=0;\r\r"
  "instr (1)=49;\r"
  "instr (2)=51;\r"
  "instr (3)=53;\r"
  "instr (4)=SELECTED;\r"
  "switch (marker (2));\r"
  "case 1: \r"
  "  instr (1)=50;\r"
  "case 2: \r"
  "  instr (2)=52;\r"
  "case 3: \r"
  "  instr (3)=54;\r"
  "switch (marker (1));\r"
  "case 1: \r"
  "  dlgStats;\r"
  "case 2: \r"
  "  dlgShop;\r"
  "case 3: \r"
  "  dlgUse;\r"
  "marker (1)=0;\r"
  "marker (2)=0;\r"
  "repeat (4)\r"
  "  update (inloop);\r\r"
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x10 0xC5 0xC5 0xC5 0xC5
End_Chunk
Chunk: SCL
short  SELECTED=36;



instr (1)=37;

instr (2)=39;

instr (3)=41;

instr (4)=SELECTED;

switch (marker (2));

case 1:

  instr (1)=38;

case 2:

  instr (2)=40;

case 3:

  instr (3)=42;

switch (marker (1));

case 1:

  dlgStats;

case 2:

  dlgShop;

case 3:

  dlgUse;

marker (1)=0;

marker (2)=0;

repeat (4)

  update (inloop);


end
End_Chunk
;
;-------Object   18-------------------------------------------------------
;
Chunk: Standard
 Name:     "Items"
 Number:   18
 Size:     3000 3000 3000
 Position: 9000 0 0
 Type:     33
 Layer:    0
End_Chunk
Chunk: Text
  "short  TEMP=-1, imgNum=56, imgNum2=55, TEMP2;\r"
  "long   WIDTH, HEIGHT, COOKEDV;\r"
  "char   NAME[10], PATH[256], DIR[256], SHARE[5];\r\r"
  "if (first)\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\images\\\\\");\r"
  "if (activate (me, 0))\r"
  "  share (1)=-1;\r"
  "if (TEMP!=share (1))\r"
  "{\r"
  "  'WASHER:DOOR'.REFRESH=1;\r"
  "  TEMP2='WASHER:DOOR'.WASH;\r"
  "  if (TEMP2)\r"
  "    'WASHER:DOOR'.WASH=1;\r"
  "  else\r"
  "    'WASHER:DOOR'.WASH=0;\r"
  "  if (share (1)>=0)\r"
  "  {\r"
  "    ltoa (&SHARE, share (1));\r"
  "    strcpy (&PATH, &DIR);\r"
  "    strcat (&PATH, &SHARE);\r"
  "    if (objAttrP (share (1), \"C\") && 'cookerLogic'.COOKED>0)\r"
  "    {\r"
  "      regGetN (\"CookedValue\", &COOKEDV);\r"
  "      if (COOKEDV==2)\r"
  "        strcat (&PATH, \"r\");\r"
  "      if (COOKEDV>2)\r"
  "        strcat (&PATH, \"b\");\r"
  "    }\r"
  "    strcat (&PATH, \".bmp\");\r"
  "    imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);\r"
  "    gvar (0, 'Icons')=imgNum;\r"
  "  }\r"
  "  else\r"
  "    gvar (0, 'Icons')=imgNum2;\r"
  "  imgNum=56;\r"
  "  strcpy (&PATH, &DIR);\r"
  "}\r"
  "TEMP=share (1);\r\r"
End_Chunk
Chunk: SCL
short  TEMP=-1, imgNum=35, imgNum2=36, TEMP2;

long   WIDTH, HEIGHT, COOKEDV;

char   NAME[10], PATH[256], DIR[256], SHARE[5];



if (first)

  strcpy (&DIR, "c:\\LoveBytes\\images\\");

if (activate (me, 0))

  share (1)=-1;

if (TEMP!=share (1))

{

  if (share (1)>=0)

  {

    ltoa (&SHARE, share (1));

    strcpy (&PATH, &DIR);

    strcat (&PATH, &SHARE);

    if (objAttrP (share (1), "C") && share (5)>0)

    {

      regGetN ("CookedValue", &COOKEDV);

      if (COOKEDV==2)

        strcat (&PATH, "r");

      if (COOKEDV>2)

        strcat (&PATH, "b");

    }

    strcat (&PATH, ".bmp");

    imageLd (&PATH, imgNum, 1, &WIDTH, &HEIGHT);

    #17.SELECTED=imgNum;

  }

  else

    #17.SELECTED=imgNum2;

  strcpy (&PATH, &DIR);

}

TEMP=share (1);


end
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x15 0xC5 0xC5 0xC5 0xC5
End_Chunk
;
;-------Object   19-------------------------------------------------------
;
Chunk: Standard
 Name:     "updateAmbient"
 Number:   19
 Size:     3000 3000 3000
 Position: 12000 0 0
 Type:     33
 Layer:    0
End_Chunk
Chunk: Text
  "long   oldVALUE, stats[8], CURRENT, TEMP;\r"
  "float  newVALUE, TOTAL, CURRENT2;\r\r"
  "resume (0, 2);\r"
  "if (first)\r"
  "{\r"
  "  if (regGetN (\"AmbientCurrent\", &TEMP))\r"
  "    regPutN (\"AmbientCurrent\", 0);\r"
  "  if (regGetN (\"AmbientTotal\", &TEMP))\r"
  "    regPutN (\"AmbientTotal\", 5);\r"
  "  TOTAL=TEMP;\r"
  "}\r"
  "if (activate (me, 0))\r"
  "{\r"
  "  regGetN (\"AmbientCurrent\", &CURRENT);\r"
  "  if (CURRENT>TOTAL)\r"
  "  {\r"
  "    CURRENT=TOTAL;\r"
  "    regPutN (\"AmbientCurrent\", CURRENT);\r"
  "  }\r"
  "  else\r"
  "  {\r"
  "    if (CURRENT<0)\r"
  "    {\r"
  "      CURRENT=0;\r"
  "      regPutN (\"AmbientCurrent\", CURRENT);\r"
  "    }\r"
  "  }\r"
  "  CURRENT2=CURRENT;\r\r"
  "  /*DO CALCULATION*/\r"
  "  newVALUE=CURRENT/TOTAL;\r"
  "  newVALUE=newVALUE*1000;\r"
  "  newVALUE=1000-newVALUE;\r\r"
  "  /*GET AMBIENT VALUE*/\r"
  "  statsGet (&stats);\r"
  "  oldVALUE=stats[3];\r\r"
  "  /*FIND DIFFERENCE*/\r"
  "  newVALUE=newVALUE-oldVALUE;\r"
  "  \r"
  "  /*WRITE NEW VALUE*/\r"
  "  stats[0]=0;\r"
  "  stats[1]=0;\r"
  "  stats[2]=0;\r"
  "  stats[3]=newVALUE;\r"
  "  stats[4]=0;\r"
  "  stats[5]=0;\r"
  "  stats[6]=0;\r"
  "  stats[7]=0;\r"
  "  statsExp (&stats);\r"
  "}\r"
End_Chunk
Chunk: SCL
long   oldVALUE, stats[8], CURRENT, TEMP, TEMP2;

float  newVALUE, TOTAL;

char   REG[256], VALUE[5];



if (counter (30) || first || activate (me, 0))

{

  CURRENT=0;

  regGetN ("AmbientTotal", &TEMP);

  TOTAL=TEMP;

  if (regGetN ("rat", &TEMP))

    TEMP=0;

  CURRENT+=TEMP*5;

  if (regGetN ("tony", &TEMP))

    TEMP=0;

  CURRENT+=TEMP*5;

  if (regGetN ("alix", &TEMP))

    TEMP=0;

  CURRENT+=TEMP*5;

  regGetN ("fish", &TEMP);

  if (TEMP==0)

    CURRENT+=5;

  regGetN ("dog", &TEMP);

  if (TEMP==0)

    CURRENT+=5;

  repeat (20)

  {

    strcpy (®, "rubbish");

    ltoa (&VALUE, inloop);

    strcat (®, &VALUE);

    if (regGetN (®, &TEMP))

      TEMP=0;

    CURRENT+=TEMP;

  }

  repeat (18)

  {

    strcpy (®, "ClothesItemStatus");

    ltoa (&VALUE, inloop);

    strcat (®, &VALUE);

    if (regGetN (®, &TEMP2))

      TEMP2=0;

    if (TEMP2==2)

      TEMP=1;

    else

      TEMP=0;

    CURRENT+=TEMP;

  }

  repeat (10)

  {

    strcpy (®, "Dishes");

    ltoa (&VALUE, inloop);

    strcat (®, &VALUE);

    if (regGetN (®, &TEMP))

      TEMP=0;

    CURRENT+=TEMP;

  }

  repeat (21)

  {

    strcpy (®, "weed");

    ltoa (&VALUE, inloop);

    strcat (®, &VALUE);

    if (regGetN (®, &TEMP))

      TEMP=0;

    CURRENT+=TEMP;

  }

  repeat (12)

  {

    strcpy (®, "grass");

    ltoa (&VALUE, inloop);

    strcat (®, &VALUE);

    if (regGetN (®, &TEMP))

      TEMP=0;

    CURRENT+=TEMP;

  }

  repeat (5)

  {

    strcpy (®, "water");

    ltoa (&VALUE, inloop);

    strcat (®, &VALUE);

    if (regGetN (®, &TEMP))

      TEMP=0;

    CURRENT+=TEMP;

  }

  repeat (25)

  {

    strcpy (®, "flower");

    ltoa (&VALUE, inloop);

    strcat (®, &VALUE);

    if (regGetN (®, &TEMP2))

      TEMP=0;

    if (!TEMP2)

      CURRENT+=1;

  }

/*

  IF CURRENT IS >TOTAL THEN AMBIENT = 0

  IF CURRENT IS 0 THEN AMBIENT = 1000

*//*DO CALCULATION*/



  CURRENT=TOTAL-CURRENT;

  if (CURRENT<0)

    CURRENT=0;

  newVALUE=CURRENT/TOTAL;

  newVALUE=newVALUE*1000;

  if (newVALUE>1000)

    newVALUE=1000;

  /*GET AMBIENT VALUE*/

  statsGet (&stats);

  oldVALUE=stats[3];

  /*FIND DIFFERENCE*/

  newVALUE=newVALUE-oldVALUE;

  /*WRITE NEW VALUE*/

  stats[0]=0;

  stats[1]=0;

  stats[2]=0;

  stats[3]=newVALUE;

  stats[4]=0;

  stats[5]=0;

  stats[6]=0;

  stats[7]=0;

  statsExp (&stats);

  counter (30)=0;

}
end
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x10 0xC5 0xC5 0xC5 0xC5
End_Chunk
;
;-------Object   21-------------------------------------------------------
;
Chunk: Standard
 Name:     "clickJo"
 Number:   21
 Size:     3000 3000 3000
 Position: 18000 0 0
 Type:     33
 Layer:    0
End_Chunk
Chunk: Text
  "long   TEMP, PARAM[4], COOKING, CURRENT;\r"
  "char   SHARE[5], PATH[1024], DIR[1024], NAME[32];\r"
  "short  SOUND, COOKED, TEMP2, RANDOM;\r\r"
  "/*\r"
  "HERE IF YOU CLICK ON JO, IT WILL CHECK IF THE ITEM IS GIVABLE\r"
  "OR BOPABLE AND REACT ACCORDINGLY\r"
  "*/\r"
  "resume (0, 2);\r"
  "if (first)\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\sounds\\\\\");\r"
  "if (activate ('woman', 0) && share (1)>=0)\r"
  "{\r"
  "    /*\r"
  "    GET SOUND FILE FROM DATABASE\r"
  "    */\r"
  "  paramGet (share (1), &PARAM);\r"
  "  if (PARAM[1]>0)\r"
  "  {\r"
  "    SOUND=1;\r"
  "    ltoa (&SHARE, PARAM[1]);\r"
  "    strcpy (&PATH, &DIR);\r"
  "    strcat (&PATH, &SHARE);\r"
  "    strcat (&PATH, \".WAV\");\r"
  "  }\r"
  "  if (objAttrP (share (1), \"B\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r\r\r"
  "/*\r"
  "IF THE OBJEST IS WASHABLE\r"
  "*/\r"
  "  }\r"
  "  if (objAttrP (share (1), \"W\") && share (1)>=0)\r"
  "  {\r"
  "    TEMP='WASHER:DOOR'.WASH;\r"
  "    if (TEMP)\r"
  "    /* CLOTHES ARE FROM FLOOR */\r"
  "      alert (\"I can't wear that, you need to wash it first\", 0);\r"
  "    else\r"
  "    {\r"
  "      TEMP2='WASHER:DOOR'.WASHED;\r"
  "      if (TEMP2)\r"
  "      {\r"
  "        repeat (2)\r"
  "        {\r"
  "          TEMP='WASHER:DOOR'.CI[inloop];\r"
  "          if (share (1)==TEMP)\r"
  "          {\r"
  "            TEMP2=inloop;\r"
  "            break;\r"
  "          }\r"
  "        }\r"
  "        ltoa (&SHARE, TEMP2);\r"
  "        strcpy (&NAME, \"ClothesItemStatus\");\r"
  "        strcat (&NAME, &SHARE);\r"
  "        RANDOM=random (3);\r"
  "        if (RANDOM>0)\r"
  "        {\r"
  "          alert (\"Thanks, its perfectly clean, I'll put it back i\"\r"
  "              \"n my wardrobe.\", 0);\r"
  "          regPutN (&NAME, 1);\r"
  "        }\r"
  "        else\r"
  "        {\r"
  "          alert (\"Oh no it has shrunk!! I can't wear that any mor\"\r"
  "              \"e!\", 0);\r"
  "          regPutN (&NAME, 0);\r"
  "        }\r"
  "        regGetN (\"AmbientCurrent\", &CURRENT);\r"
  "        regPutN (\"AmbientCurrent\", CURRENT-1);\r"
  "        settrig (0, 'updateAmbient');\r"
  "        share (1)=-1;\r"
  "      }\r"
  "    }\r\r"
  "/*\r\r"
  "IF THE OBJECT IS GIVABLE\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"G\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r"
  "    useObj (share (1));\r\r"
  "/*\r"
  "IF THE OBJECT IS Cookable\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"C\") && share (1)>=0)\r"
  "  {\r"
  "    COOKED='cookerLogic'.COOKED;\r"
  "    if (COOKED>0)\r"
  "    {\r"
  "      regGetN (\"CookedValue\", &COOKING);\r"
  "      switch (COOKING);\r"
  "      case 1: \r"
  "      {\r"
  "        alert (\"Yuck! I'm not eating that, it's under cooked!\", \r"
  "            0);\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 2: \r"
  "      {\r"
  "        if (SOUND==1)\r"
  "          playWAV (&PATH);\r"
  "        statsObj (share (1));\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 3: \r"
  "      {\r"
  "        alert (\"Yuck!! How can i eat that, it's burnt!!\", 0);\r"
  "        settrig (0, 'Items');\r\r"
  "      /*\r"
  "      ADD SOME DISHES\r"
  "      */\r\r"
  "      }\r"
  "      gvar (2, 'itemsControl')=1;\r"
  "      settrig (0, 'itemsControl');\r"
  "    }\r"
  "    else\r"
  "      alert (\"You need to cook the food first!!\", 0);\r"
  "  }\r"
  "  if (SOUND==1)\r"
  "    strcpy (&PATH, &DIR);\r"
  "  SOUND=0;\r"
  "  while (mouseb)\r"
  "    waitf;\r"
  "  clrtrig ('woman', 0);\r"
  "}\r"
End_Chunk
Chunk: SCL
long   STATS[8];

short  LOWEST, MOOD, TEMP;

float  Total;



/*CODE FOR CLICKING ON JO*/

resume (2, 2);

if (activate (#12, 0))

{

  if (share (1)>=0)

  {

    #12.ROT=0;

    #12.ONCE=1;

/*GET HER MOOD*/

  }

  statsGet (&STATS);

  repeat (5)

  {

    TEMP=5+-inloop;

    repeat (5)

    {

      if (STATS[TEMP]<STATS[inloop-1] &&

          STATS[TEMP]<STATS[LOWEST])

        LOWEST=TEMP;

    }

  }

  MOOD=STATS[LOWEST]/100;

  MOOD=table (MOOD) {0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4};

  if (share (1)<0)

  {







 /* SOUND RESPONSES FOR TOUCHING UP DEPENDING ON MOOD */







    switch (MOOD);

    case 0:

      counter (25)=table (random (6)) {176, 11, 29, 82, 89, 90};

    case 1:

      counter (25)=table (random (5)) {175, 178, 41, 28, 72,

          12};

    case 2:

      counter (25)=table (random (2)) {15, 9};

    case 3:

      counter (25)=table (random (4)) {171, 179, 94, 174};

    case 4:

      counter (25)=table (random (3)) {172, 173, 174};

    counter (50)=-2;

    counter (51)=-2;

    counter (52)=-2;

    counter (53)=-2;

  }

  else

    counter (40)=MOOD;

  statsGet (&STATS);

  Total=STATS[0]+STATS[1]+STATS[2]+STATS[4];

  Total=Total/4;

  if (Total<30)

  {

    share (1)=-1;

    dumpHim (0);

    exitVis;

  }

  while (mouseb)

    waitf;

  clrtrig (me, 0);

  clrtrig (#12, 0);

}
end
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x10 0xC5 0xC5 0xC5 0xC5
End_Chunk
;
;-------Object   16-------------------------------------------------------
;
Chunk: Standard
 Name:     "Wardrobe"
 Number:   16
 Size:     3000 3000 3000
 Position: 21000 0 0
 Type:     33
 Layer:    0
End_Chunk
Chunk: SCL
long   TEMP, GET, TEMP2[19];

short  REFRESH, CLOTHES=0;



if (first || REFRESH)

{

  if (regGetN ("ClothesItemStatus1", &GET))

    TEMP2[1]=0;

  else

    TEMP2[1]=GET;

  if (regGetN ("ClothesItemStatus2", &GET))

    TEMP2[2]=0;

  else

    TEMP2[2]=GET;

  if (regGetN ("ClothesItemStatus3", &GET))

    TEMP2[3]=0;

  else

    TEMP2[3]=GET;

  if (regGetN ("ClothesItemStatus4", &GET))

    TEMP2[4]=0;

  else

    TEMP2[4]=GET;

  if (regGetN ("ClothesItemStatus5", &GET))

    TEMP2[5]=0;

  else

    TEMP2[5]=GET;

  if (regGetN ("ClothesItemStatus6", &GET))

    TEMP2[6]=0;

  else

    TEMP2[6]=GET;

  if (regGetN ("ClothesItemStatus7", &GET))

    TEMP2[7]=0;

  else

    TEMP2[7]=GET;

  if (regGetN ("ClothesItemStatus8", &GET))

    TEMP2[8]=0;

  else

    TEMP2[8]=GET;

  if (regGetN ("ClothesItemStatus9", &GET))

    TEMP2[9]=0;

  else

    TEMP2[9]=GET;

  if (regGetN ("ClothesItemStatus10", &GET))

    TEMP2[10]=0;

  else

    TEMP2[10]=GET;

  if (regGetN ("ClothesItemStatus11", &GET))

    TEMP2[11]=0;

  else

    TEMP2[11]=GET;

  if (regGetN ("ClothesItemStatus12", &GET))

    TEMP2[12]=0;

  else

    TEMP2[12]=GET;

  if (regGetN ("ClothesItemStatus13", &GET))

    TEMP2[13]=0;

  else

    TEMP2[13]=GET;

  if (regGetN ("ClothesItemStatus14", &GET))

    TEMP2[14]=0;

  else

    TEMP2[14]=GET;

  if (regGetN ("ClothesItemStatus15", &GET))

    TEMP2[15]=0;

  else

    TEMP2[15]=GET;

  if (regGetN ("ClothesItemStatus16", &GET))

    TEMP2[16]=0;

  else

    TEMP2[16]=GET;

  if (regGetN ("ClothesItemStatus17", &GET))

    TEMP2[17]=0;

  else

    TEMP2[17]=GET;

  if (regGetN ("ClothesItemStatus18", &GET))

    TEMP2[18]=0;

  else

    TEMP2[18]=GET;

  repeat (18)

  {

    if (TEMP2[inloop]==1)

      vis (object (table (inloop-1) {#49, #50, #51, #52, #53,

          #54, #55, #56, #57, #58, #59, #60, #61, #62, #63,

          #169, #64, #65}));

    else

      invis (object (table (inloop-1) {#49, #50, #51, #52, #53,

          #54, #55, #56, #57, #58, #59, #60, #61, #62, #63,

          #169, #64, #65}));

  }

  if (share (7))

  {

    GET=share (7)-43;

    invis (object (table (GET-1) {#49, #50, #51, #52, #53, #54,

        #55, #56, #57, #58, #59, #60, #61, #62, #63, #169, #64,

        #65}));

  }

  REFRESH=0;

}

if (share (1)!=share (7))

{

  share (7)=0;

  REFRESH=1;

}
end
End_Chunk
Chunk: Text
  "long   TEMP, PARAM[4], COOKING, CURRENT;\r"
  "char   SHARE[5], PATH[1024], DIR[1024], NAME[32];\r"
  "short  SOUND, COOKED, TEMP2, RANDOM;\r\r"
  "/*\r"
  "HERE IF YOU CLICK ON JO, IT WILL CHECK IF THE ITEM IS GIVABLE\r"
  "OR BOPABLE AND REACT ACCORDINGLY\r"
  "*/\r"
  "resume (0, 2);\r"
  "if (first)\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\sounds\\\\\");\r"
  "if (activate ('woman', 0) && share (1)>=0)\r"
  "{\r"
  "    /*\r"
  "    GET SOUND FILE FROM DATABASE\r"
  "    */\r"
  "  paramGet (share (1), &PARAM);\r"
  "  if (PARAM[1]>0)\r"
  "  {\r"
  "    SOUND=1;\r"
  "    ltoa (&SHARE, PARAM[1]);\r"
  "    strcpy (&PATH, &DIR);\r"
  "    strcat (&PATH, &SHARE);\r"
  "    strcat (&PATH, \".WAV\");\r"
  "  }\r"
  "  if (objAttrP (share (1), \"B\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r\r\r"
  "/*\r"
  "IF THE OBJEST IS WASHABLE\r"
  "*/\r"
  "  }\r"
  "  if (objAttrP (share (1), \"W\") && share (1)>=0)\r"
  "  {\r"
  "    TEMP='WASHER:DOOR'.WASH;\r"
  "    if (TEMP)\r"
  "    /* CLOTHES ARE FROM FLOOR */\r"
  "      alert (\"I can't wear that, you need to wash it first\", 0);\r"
  "    else\r"
  "    {\r"
  "      TEMP2='WASHER:DOOR'.WASHED;\r"
  "      if (TEMP2)\r"
  "      {\r"
  "        repeat (2)\r"
  "        {\r"
  "          TEMP='WASHER:DOOR'.CI[inloop];\r"
  "          if (share (1)==TEMP)\r"
  "          {\r"
  "            TEMP2=inloop;\r"
  "            break;\r"
  "          }\r"
  "        }\r"
  "        ltoa (&SHARE, TEMP2);\r"
  "        strcpy (&NAME, \"ClothesItemStatus\");\r"
  "        strcat (&NAME, &SHARE);\r"
  "        RANDOM=random (3);\r"
  "        if (RANDOM>0)\r"
  "        {\r"
  "          alert (\"Thanks, its perfectly clean, I'll put it back i\"\r"
  "              \"n my wardrobe.\", 0);\r"
  "          regPutN (&NAME, 1);\r"
  "        }\r"
  "        else\r"
  "        {\r"
  "          alert (\"Oh no it has shrunk!! I can't wear that any mor\"\r"
  "              \"e!\", 0);\r"
  "          regPutN (&NAME, 0);\r"
  "        }\r"
  "        regGetN (\"AmbientCurrent\", &CURRENT);\r"
  "        regPutN (\"AmbientCurrent\", CURRENT-1);\r"
  "        settrig (0, 'updateAmbient');\r"
  "        share (1)=-1;\r"
  "      }\r"
  "    }\r\r"
  "/*\r\r"
  "IF THE OBJECT IS GIVABLE\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"G\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r"
  "    useObj (share (1));\r\r"
  "/*\r"
  "IF THE OBJECT IS Cookable\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"C\") && share (1)>=0)\r"
  "  {\r"
  "    COOKED='cookerLogic'.COOKED;\r"
  "    if (COOKED>0)\r"
  "    {\r"
  "      regGetN (\"CookedValue\", &COOKING);\r"
  "      switch (COOKING);\r"
  "      case 1: \r"
  "      {\r"
  "        alert (\"Yuck! I'm not eating that, it's under cooked!\", \r"
  "            0);\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 2: \r"
  "      {\r"
  "        if (SOUND==1)\r"
  "          playWAV (&PATH);\r"
  "        statsObj (share (1));\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 3: \r"
  "      {\r"
  "        alert (\"Yuck!! How can i eat that, it's burnt!!\", 0);\r"
  "        settrig (0, 'Items');\r\r"
  "      /*\r"
  "      ADD SOME DISHES\r"
  "      */\r\r"
  "      }\r"
  "      gvar (2, 'itemsControl')=1;\r"
  "      settrig (0, 'itemsControl');\r"
  "    }\r"
  "    else\r"
  "      alert (\"You need to cook the food first!!\", 0);\r"
  "  }\r"
  "  if (SOUND==1)\r"
  "    strcpy (&PATH, &DIR);\r"
  "  SOUND=0;\r"
  "  while (mouseb)\r"
  "    waitf;\r"
  "  clrtrig ('woman', 0);\r"
  "}\r"
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x15 0xC5 0xC5 0xC5 0xC5
End_Chunk
;
;-------Object   30-------------------------------------------------------
;
Chunk: Standard
 Name:     "remarks"
 Number:   30
 Size:     3000 3000 3000
 Position: 24000 0 0
 Type:     33
 Layer:    0
End_Chunk
Chunk: SCL
long   STATS[8], PARAM[4];

short  MOOD, RANDOM, TEMP, LOWEST, RND, EXISTS, COOK, CTIMER,

    MSLD, TCOOKED;

long   VALUE, TIMER, DAY, MONTH, CHOUR, CMONTH, CDAY, CMINS;

char   NAME[35], INLOOP[4];

objnum OBJECT;

long   ILL;



resume (0, 2);



/*CODE FOR AMBIENT REMARKS*/



if (first)

{

  ranseed (vrtime);

  if (regGetN ("ill", &ILL))

    ILL=0;

  RND=random (2);

  if (RND==0 && ILL==0)

    vis (#11);

  else

    kill (#11);

  if (ILL)

  {

    vis (#120);

    counter (20)=251;

  }

}

resume (0, 2);

if (vis? (#11))

{

  EXISTS=0;

  VALUE=0;

  RND=random (1500);

  if (RND==4 || first)

  {

    if (regGetN ("Cooking", &VALUE))

      VALUE=0;

    if (VALUE)

    {







  /*







  CHECK HOW LONG ITEM HAS BEEN COOKING







  */







      regGetN ("CookerTimer", &TIMER);

      regGetN ("CookDay", &DAY);

      regGetN ("CookMonth", &MONTH);

      regGetN ("Cooker", &VALUE);

      COOK=VALUE;

      paramGet (COOK, &PARAM);

      timeCurr (&CHOUR, &CMINS);

      dateCurr (&CMONTH, &CDAY);

      CTIMER=CHOUR*60;

      CTIMER=CTIMER+CMINS;

      if (CDAY>DAY+1 || CMONTH!=MONTH)

      {







     /* HOUSE HAS BURNT */















        share (1)=-1;

        dumpHim (1);

        exitVis;

      }

      else

      {

        if (CDAY==DAY+1)

        {

          MSLD=1440-TIMER;

          TCOOKED=MSLD+CTIMER;

        }

        if (CDAY==DAY)

          TCOOKED=CTIMER-TIMER;

        if (TCOOKED<0)

          TCOOKED=-TCOOKED;

        if (TCOOKED>=PARAM[0] && TCOOKED<PARAM[0]+10)

          counter (26)=38;

        if (TCOOKED>=PARAM[0]+10 && TCOOKED<PARAM[0]+30)

          counter (26)=table (random (3)) {3, 106, 107};

        if (TCOOKED>=PARAM[0]+30 && TCOOKED<PARAM[0]+60)

          counter (26)=table (random (4)) {39, 108, 109};



        /*vis ('smoke');*/



        if (TCOOKED>=PARAM[0]+60)

        { /*BURN HOUSE*/



          share (1)=-1;

          dumpHim (1);

          exitVis;

        }

      }







/*AMBIENT REMARKS*/







    }

  }

  RANDOM=random (1500);

  if (RANDOM==100)

  {

    statsGet (&STATS);

    repeat (5)

    {

      TEMP=5+-inloop;

      repeat (5)

      {

        if (STATS[TEMP]<STATS[inloop-1] &&

            STATS[TEMP]<STATS[LOWEST])

          LOWEST=TEMP;

      }

    }

    MOOD=STATS[LOWEST]/100;

    MOOD=table (MOOD) {0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4};

    switch (MOOD);

    case 0:

      counter (26)=table (random (4)) {182, 121, 149, 183};

    case 1:

      counter (26)=table (random (3)) {36, 71, 90};

    case 2:

      counter (26)=table (random (3)) {1, 68, 179};

    case 3:

      counter (26)=table (random (4)) {16, 68, 94, 120};

    case 4:

      counter (26)=table (random (3)) {20, 53, 52};

  }

  RANDOM=random (2000);

  if (#12.ROT)

    counter (20)=-1;

}
end
End_Chunk
Chunk: Text
  "long   TEMP, PARAM[4], COOKING, CURRENT;\r"
  "char   SHARE[5], PATH[1024], DIR[1024], NAME[32];\r"
  "short  SOUND, COOKED, TEMP2, RANDOM;\r\r"
  "/*\r"
  "HERE IF YOU CLICK ON JO, IT WILL CHECK IF THE ITEM IS GIVABLE\r"
  "OR BOPABLE AND REACT ACCORDINGLY\r"
  "*/\r"
  "resume (0, 2);\r"
  "if (first)\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\sounds\\\\\");\r"
  "if (activate ('woman', 0) && share (1)>=0)\r"
  "{\r"
  "    /*\r"
  "    GET SOUND FILE FROM DATABASE\r"
  "    */\r"
  "  paramGet (share (1), &PARAM);\r"
  "  if (PARAM[1]>0)\r"
  "  {\r"
  "    SOUND=1;\r"
  "    ltoa (&SHARE, PARAM[1]);\r"
  "    strcpy (&PATH, &DIR);\r"
  "    strcat (&PATH, &SHARE);\r"
  "    strcat (&PATH, \".WAV\");\r"
  "  }\r"
  "  if (objAttrP (share (1), \"B\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r\r\r"
  "/*\r"
  "IF THE OBJEST IS WASHABLE\r"
  "*/\r"
  "  }\r"
  "  if (objAttrP (share (1), \"W\") && share (1)>=0)\r"
  "  {\r"
  "    TEMP='WASHER:DOOR'.WASH;\r"
  "    if (TEMP)\r"
  "    /* CLOTHES ARE FROM FLOOR */\r"
  "      alert (\"I can't wear that, you need to wash it first\", 0);\r"
  "    else\r"
  "    {\r"
  "      TEMP2='WASHER:DOOR'.WASHED;\r"
  "      if (TEMP2)\r"
  "      {\r"
  "        repeat (2)\r"
  "        {\r"
  "          TEMP='WASHER:DOOR'.CI[inloop];\r"
  "          if (share (1)==TEMP)\r"
  "          {\r"
  "            TEMP2=inloop;\r"
  "            break;\r"
  "          }\r"
  "        }\r"
  "        ltoa (&SHARE, TEMP2);\r"
  "        strcpy (&NAME, \"ClothesItemStatus\");\r"
  "        strcat (&NAME, &SHARE);\r"
  "        RANDOM=random (3);\r"
  "        if (RANDOM>0)\r"
  "        {\r"
  "          alert (\"Thanks, its perfectly clean, I'll put it back i\"\r"
  "              \"n my wardrobe.\", 0);\r"
  "          regPutN (&NAME, 1);\r"
  "        }\r"
  "        else\r"
  "        {\r"
  "          alert (\"Oh no it has shrunk!! I can't wear that any mor\"\r"
  "              \"e!\", 0);\r"
  "          regPutN (&NAME, 0);\r"
  "        }\r"
  "        regGetN (\"AmbientCurrent\", &CURRENT);\r"
  "        regPutN (\"AmbientCurrent\", CURRENT-1);\r"
  "        settrig (0, 'updateAmbient');\r"
  "        share (1)=-1;\r"
  "      }\r"
  "    }\r\r"
  "/*\r\r"
  "IF THE OBJECT IS GIVABLE\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"G\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r"
  "    useObj (share (1));\r\r"
  "/*\r"
  "IF THE OBJECT IS Cookable\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"C\") && share (1)>=0)\r"
  "  {\r"
  "    COOKED='cookerLogic'.COOKED;\r"
  "    if (COOKED>0)\r"
  "    {\r"
  "      regGetN (\"CookedValue\", &COOKING);\r"
  "      switch (COOKING);\r"
  "      case 1: \r"
  "      {\r"
  "        alert (\"Yuck! I'm not eating that, it's under cooked!\", \r"
  "            0);\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 2: \r"
  "      {\r"
  "        if (SOUND==1)\r"
  "          playWAV (&PATH);\r"
  "        statsObj (share (1));\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 3: \r"
  "      {\r"
  "        alert (\"Yuck!! How can i eat that, it's burnt!!\", 0);\r"
  "        settrig (0, 'Items');\r\r"
  "      /*\r"
  "      ADD SOME DISHES\r"
  "      */\r\r"
  "      }\r"
  "      gvar (2, 'itemsControl')=1;\r"
  "      settrig (0, 'itemsControl');\r"
  "    }\r"
  "    else\r"
  "      alert (\"You need to cook the food first!!\", 0);\r"
  "  }\r"
  "  if (SOUND==1)\r"
  "    strcpy (&PATH, &DIR);\r"
  "  SOUND=0;\r"
  "  while (mouseb)\r"
  "    waitf;\r"
  "  clrtrig ('woman', 0);\r"
  "}\r"
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x10 0xC5 0xC5 0xC5 0xC5
End_Chunk
;
;-------Object   66-------------------------------------------------------
;
Chunk: Standard
 Name:     "statsOverTime"
 Number:   66
 Size:     3000 3000 3000
 Position: 27000 0 0
 Type:     33
 Layer:    0
End_Chunk
Chunk: SCL
/*



USE THIS CODE TO AFFECT STATS OVER TIME



AND TO DUMP WHEN STATS GET TOO LOW



*/



float  DAYS;

short  Hunger, Happy, Health, Sex;

long   STATS[8], Time;

float  Total;



if (vrtime>Time+120000 || first)

{

  Health=0;

  Happy=0;

  Sex=0;

  Hunger=-2;

  statsGet (&STATS);

  if (STATS[4]<50)

    Health=-3;

  if (STATS[0]<50)

    Happy=-3;

  if (STATS[1]<50)

    Sex=-2;

  STATS[0]=Health;

  STATS[1]=Happy;

  STATS[2]=Sex;

  STATS[3]=0;

  STATS[4]=Hunger;

  STATS[5]=0;

  STATS[6]=0;

  STATS[7]=0;

  statsExp (&STATS);

  statsGet (&STATS);

  Total=STATS[0]+STATS[1]+STATS[2]+STATS[4];

  Total=Total/4;

  Time=vrtime;

}

if (Total<50)

{

  share (1)=-1;

  dumpHim (0);

  exitVis;

}
end
End_Chunk
Chunk: Text
  "long   TEMP, PARAM[4], COOKING, CURRENT;\r"
  "char   SHARE[5], PATH[1024], DIR[1024], NAME[32];\r"
  "short  SOUND, COOKED, TEMP2, RANDOM;\r\r"
  "/*\r"
  "HERE IF YOU CLICK ON JO, IT WILL CHECK IF THE ITEM IS GIVABLE\r"
  "OR BOPABLE AND REACT ACCORDINGLY\r"
  "*/\r"
  "resume (0, 2);\r"
  "if (first)\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\sounds\\\\\");\r"
  "if (activate ('woman', 0) && share (1)>=0)\r"
  "{\r"
  "    /*\r"
  "    GET SOUND FILE FROM DATABASE\r"
  "    */\r"
  "  paramGet (share (1), &PARAM);\r"
  "  if (PARAM[1]>0)\r"
  "  {\r"
  "    SOUND=1;\r"
  "    ltoa (&SHARE, PARAM[1]);\r"
  "    strcpy (&PATH, &DIR);\r"
  "    strcat (&PATH, &SHARE);\r"
  "    strcat (&PATH, \".WAV\");\r"
  "  }\r"
  "  if (objAttrP (share (1), \"B\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r\r\r"
  "/*\r"
  "IF THE OBJEST IS WASHABLE\r"
  "*/\r"
  "  }\r"
  "  if (objAttrP (share (1), \"W\") && share (1)>=0)\r"
  "  {\r"
  "    TEMP='WASHER:DOOR'.WASH;\r"
  "    if (TEMP)\r"
  "    /* CLOTHES ARE FROM FLOOR */\r"
  "      alert (\"I can't wear that, you need to wash it first\", 0);\r"
  "    else\r"
  "    {\r"
  "      TEMP2='WASHER:DOOR'.WASHED;\r"
  "      if (TEMP2)\r"
  "      {\r"
  "        repeat (2)\r"
  "        {\r"
  "          TEMP='WASHER:DOOR'.CI[inloop];\r"
  "          if (share (1)==TEMP)\r"
  "          {\r"
  "            TEMP2=inloop;\r"
  "            break;\r"
  "          }\r"
  "        }\r"
  "        ltoa (&SHARE, TEMP2);\r"
  "        strcpy (&NAME, \"ClothesItemStatus\");\r"
  "        strcat (&NAME, &SHARE);\r"
  "        RANDOM=random (3);\r"
  "        if (RANDOM>0)\r"
  "        {\r"
  "          alert (\"Thanks, its perfectly clean, I'll put it back i\"\r"
  "              \"n my wardrobe.\", 0);\r"
  "          regPutN (&NAME, 1);\r"
  "        }\r"
  "        else\r"
  "        {\r"
  "          alert (\"Oh no it has shrunk!! I can't wear that any mor\"\r"
  "              \"e!\", 0);\r"
  "          regPutN (&NAME, 0);\r"
  "        }\r"
  "        regGetN (\"AmbientCurrent\", &CURRENT);\r"
  "        regPutN (\"AmbientCurrent\", CURRENT-1);\r"
  "        settrig (0, 'updateAmbient');\r"
  "        share (1)=-1;\r"
  "      }\r"
  "    }\r\r"
  "/*\r\r"
  "IF THE OBJECT IS GIVABLE\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"G\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r"
  "    useObj (share (1));\r\r"
  "/*\r"
  "IF THE OBJECT IS Cookable\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"C\") && share (1)>=0)\r"
  "  {\r"
  "    COOKED='cookerLogic'.COOKED;\r"
  "    if (COOKED>0)\r"
  "    {\r"
  "      regGetN (\"CookedValue\", &COOKING);\r"
  "      switch (COOKING);\r"
  "      case 1: \r"
  "      {\r"
  "        alert (\"Yuck! I'm not eating that, it's under cooked!\", \r"
  "            0);\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 2: \r"
  "      {\r"
  "        if (SOUND==1)\r"
  "          playWAV (&PATH);\r"
  "        statsObj (share (1));\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 3: \r"
  "      {\r"
  "        alert (\"Yuck!! How can i eat that, it's burnt!!\", 0);\r"
  "        settrig (0, 'Items');\r\r"
  "      /*\r"
  "      ADD SOME DISHES\r"
  "      */\r\r"
  "      }\r"
  "      gvar (2, 'itemsControl')=1;\r"
  "      settrig (0, 'itemsControl');\r"
  "    }\r"
  "    else\r"
  "      alert (\"You need to cook the food first!!\", 0);\r"
  "  }\r"
  "  if (SOUND==1)\r"
  "    strcpy (&PATH, &DIR);\r"
  "  SOUND=0;\r"
  "  while (mouseb)\r"
  "    waitf;\r"
  "  clrtrig ('woman', 0);\r"
  "}\r"
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x15 0xC5 0xC5 0xC5 0xC5
End_Chunk

End_Children
;
;-------Object  117-------------------------------------------------------
;
Chunk: Standard
 Name:     "Menus"
 Number:   117
 Size:     10000 10000 10000
 Position: 2141581 0 1983222
 Type:     65535
 Layer:    0
End_Chunk
Chunk: SCL
if (first)

{

  menuNew (me);

  menuLock (0);

}
end
End_Chunk
Chunk: Text
  "item \"E&xit\" scl exitVis; sclend\r"
  "item \"A&bout\" scl Credits; sclend"
End_Chunk
;
;-------Object  119-------------------------------------------------------
;
Chunk: Standard
 Name:     "clickJo 2"
 Number:   119
 Size:     3000 3000 3000
 Position: 2141551 3000 1958973
 Type:     33
 Layer:    0
End_Chunk
Chunk: Text
  "long   TEMP, PARAM[4], COOKING, CURRENT;\r"
  "char   SHARE[5], PATH[1024], DIR[1024], NAME[32];\r"
  "short  SOUND, COOKED, TEMP2, RANDOM;\r\r"
  "/*\r"
  "HERE IF YOU CLICK ON JO, IT WILL CHECK IF THE ITEM IS GIVABLE\r"
  "OR BOPABLE AND REACT ACCORDINGLY\r"
  "*/\r"
  "resume (0, 2);\r"
  "if (first)\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\sounds\\\\\");\r"
  "if (activate ('woman', 0) && share (1)>=0)\r"
  "{\r"
  "    /*\r"
  "    GET SOUND FILE FROM DATABASE\r"
  "    */\r"
  "  paramGet (share (1), &PARAM);\r"
  "  if (PARAM[1]>0)\r"
  "  {\r"
  "    SOUND=1;\r"
  "    ltoa (&SHARE, PARAM[1]);\r"
  "    strcpy (&PATH, &DIR);\r"
  "    strcat (&PATH, &SHARE);\r"
  "    strcat (&PATH, \".WAV\");\r"
  "  }\r"
  "  if (objAttrP (share (1), \"B\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r\r\r"
  "/*\r"
  "IF THE OBJEST IS WASHABLE\r"
  "*/\r"
  "  }\r"
  "  if (objAttrP (share (1), \"W\") && share (1)>=0)\r"
  "  {\r"
  "    TEMP='WASHER:DOOR'.WASH;\r"
  "    if (TEMP)\r"
  "    /* CLOTHES ARE FROM FLOOR */\r"
  "      alert (\"I can't wear that, you need to wash it first\", 0);\r"
  "    else\r"
  "    {\r"
  "      TEMP2='WASHER:DOOR'.WASHED;\r"
  "      if (TEMP2)\r"
  "      {\r"
  "        repeat (2)\r"
  "        {\r"
  "          TEMP='WASHER:DOOR'.CI[inloop];\r"
  "          if (share (1)==TEMP)\r"
  "          {\r"
  "            TEMP2=inloop;\r"
  "            break;\r"
  "          }\r"
  "        }\r"
  "        ltoa (&SHARE, TEMP2);\r"
  "        strcpy (&NAME, \"ClothesItemStatus\");\r"
  "        strcat (&NAME, &SHARE);\r"
  "        RANDOM=random (3);\r"
  "        if (RANDOM>0)\r"
  "        {\r"
  "          alert (\"Thanks, its perfectly clean, I'll put it back i\"\r"
  "              \"n my wardrobe.\", 0);\r"
  "          regPutN (&NAME, 1);\r"
  "        }\r"
  "        else\r"
  "        {\r"
  "          alert (\"Oh no it has shrunk!! I can't wear that any mor\"\r"
  "              \"e!\", 0);\r"
  "          regPutN (&NAME, 0);\r"
  "        }\r"
  "        regGetN (\"AmbientCurrent\", &CURRENT);\r"
  "        regPutN (\"AmbientCurrent\", CURRENT-1);\r"
  "        settrig (0, 'updateAmbient');\r"
  "        share (1)=-1;\r"
  "      }\r"
  "    }\r\r"
  "/*\r\r"
  "IF THE OBJECT IS GIVABLE\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"G\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r"
  "    useObj (share (1));\r\r"
  "/*\r"
  "IF THE OBJECT IS Cookable\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"C\") && share (1)>=0)\r"
  "  {\r"
  "    COOKED='cookerLogic'.COOKED;\r"
  "    if (COOKED>0)\r"
  "    {\r"
  "      regGetN (\"CookedValue\", &COOKING);\r"
  "      switch (COOKING);\r"
  "      case 1: \r"
  "      {\r"
  "        alert (\"Yuck! I'm not eating that, it's under cooked!\", \r"
  "            0);\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 2: \r"
  "      {\r"
  "        if (SOUND==1)\r"
  "          playWAV (&PATH);\r"
  "        statsObj (share (1));\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 3: \r"
  "      {\r"
  "        alert (\"Yuck!! How can i eat that, it's burnt!!\", 0);\r"
  "        settrig (0, 'Items');\r\r"
  "      /*\r"
  "      ADD SOME DISHES\r"
  "      */\r\r"
  "      }\r"
  "      gvar (2, 'itemsControl')=1;\r"
  "      settrig (0, 'itemsControl');\r"
  "    }\r"
  "    else\r"
  "      alert (\"You need to cook the food first!!\", 0);\r"
  "  }\r"
  "  if (SOUND==1)\r"
  "    strcpy (&PATH, &DIR);\r"
  "  SOUND=0;\r"
  "  while (mouseb)\r"
  "    waitf;\r"
  "  clrtrig ('woman', 0);\r"
  "}\r"
End_Chunk
Chunk: SCL
long   TEMP, COOKING;

short  COOKED, FREE=1, MOOD, WEAR;

char   NAME[256], SHARE[10];



resume (4, 4);



/*CODE FOR CLICKING ON JO*/



if (first)

  counter (40)=-1;

if (counter (40)>=0)

{

  FREE=1;

  MOOD=counter (40);

  counter (40)=-1;

  if (share (1)>=0)

  {

    if (objAttrP (share (1), "G"))

    {



      /* SOUND RESPONSES FOR GIVE DEPENDING ON MOOD  */



      switch (MOOD);

      case 0:

        counter (25)=table (random (4)) {95, 97, 6, 105};

      case 1:

        counter (25)=table (random (3)) {95, 97, 6};

      case 2:

        counter (25)=table (random (4)) {6, 14, 21, 91};

      case 3:

        counter (25)=table (random (10)) {21, 16, 40, 91, 6, 20,

            14, 21, 171, 91};

      case 4:

        counter (25)=table (random (10)) {20, 52, 53, 94, 159,

            171, 14, 1, 91, 40};















      /* END OF GIVE */







    }

    if (share (1)>=0)

    {

      if (objAttrP (share (1), "C") && FREE)

      {

        COOKED=share (5);

        if (COOKED>0)

        {

          if (share (1)==22 || share (1)==23)

          {







            /* YOU COOKED THE FISH OR THE DOG*/







            counter (25)=table (random (6)) {30, 63, 72, 73, 72,

                72};

            counter (20)=table (random (3)) {105, 113, 138};

            share (5)=0;

            counter (51)=-200;

            counter (52)=-50;

            share (1)=-1;

          }

          if (share (1)>13 && share (1)<21)

          {

            regGetN ("CookedValue", &COOKING);

            share (5)=0;

            switch (COOKING);

            case 1:

            {







            /*UNDER COOKED*/







              counter (25)=44;

              counter (20)=table (random (3)) {169, 170, 189};

              counter (51)=-20;

              share (1)=-1;

            }

            case 2:

            {







            /*PERFECT*/







              counter (25)=table (random (3)) {13, 62, 104};

              counter (20)=table (random (3)) {107, 112, 134};

              statsObj (share (1));

              share (1)=-1;

            }

            case 3:

            {







            /*BURNT*/







              counter (25)=table (random (4)) {5, 61, 102, 103};

              counter (20)=table (random (3)) {113, 138, 184};

              counter (51)=-10;

              share (1)=-1;

            }

            case 4:

            {

              counter (25)=table (random (4)) {5, 61, 102, 103};

              counter (20)=table (random (3)) {113, 138, 184};

              counter (51)=-10;

              share (1)=-1;

            }

            case 5:

            {

              counter (25)=table (random (4)) {5, 61, 102, 103};

              counter (20)=table (random (3)) {113, 138, 184};

              counter (51)=-10;

              share (1)=-1;







            /* ADD SOME DISHES*/







            }

            repeat (10)

            {

              strcpy (&NAME, "Dishes");

              ltoa (&SHARE, inloop);

              strcat (&NAME, &SHARE);

              if (regGetN (&NAME, &TEMP))

              {

                regPutN (&NAME, 1);

                break;

              }

              else

              {

                if (TEMP==0)

                {

                  regPutN (&NAME, 1);

                  break;

                }

              }

            }

          }

          FREE=0;

        }

        else

        {

          if (share (1)!=22 && share (1)!=23)

          {

            counter (25)=table (random (2)) {24, 101};

            counter (20)=table (random (3)) {169, 170, 189};

            FREE=0;

          }

        }

      }

    }

    WEAR=share (7);

    if (share (1)>=0 && FREE && WEAR==0)

    {

      if (objAttrP (share (1), "W"))

      {

        if (share (1)>43 && share (1)<62)

        {

          strcpy (&NAME, "ClothesItemStatus");

          TEMP=share (1)-43;

          ltoa (&SHARE, TEMP);

          strcat (&NAME, &SHARE);

          if (regGetN (&NAME, &TEMP))

            TEMP=0;

          if (TEMP>0)

          {

            share (1)=-1;

            counter (20)=-1;

            counter (25)=189;

          }

          else

          {

              /* TAKE IT */

            strcpy (&NAME, "ClothesItemStatus");

            TEMP=share (1)-43;

            ltoa (&SHARE, TEMP);

            strcat (&NAME, &SHARE);

            regPutN (&NAME, 1);

            statsObj (share (1));

            useObj (share (1));

            #16.REFRESH=1;

            counter (25)=193;

          }

        }

        FREE=0;

      }

    }

    if (share (1)>=0 && FREE && WEAR)

    {

      if (objAttrP (share (1), "W"))

      {

        if (share (1)>43 && share (1)<62)

        {

          if (MOOD>2)

          {

            #12.ROT=share (1);

            strcpy (&NAME, "ClothesItemStatus");

            TEMP=share (1)-43;

            ltoa (&SHARE, TEMP);

            strcat (&NAME, &SHARE);

            regPutN (&NAME, 2);

            counter (30)=1;

            counter (25)=table (random (6)) {19, 40, 42, 43, 46,

                159, 15};

            share (1)=-1;

          }

          else

          {

            /* NOT IN THE MOOD */

            share (1)=-1;

            counter (25)=table (random (6)) {27, 92, 127};

          }

        }

        FREE=0;

        share (7)=0;

      }

    }

    if (share (1)>-1 && share (1)<2 && FREE)

    { /*flowers*/







      counter (20)=table (random (4)) {108, 109, 110, 111};

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)>1 && share (1)<4 && FREE)

    { /*chocs*/







      if (random (5)==3)

        counter (25)=33;

      counter (20)=table (random (4)) {190, 191, 192, 193};

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)==9 && FREE)

    { /*budviser*/







      counter (25)=table (random (2)) {67, 123};

      counter (20)=133;

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)==33 && FREE)

    { /*frying pan*/







      counter (20)=table (random (6)) {104, 103, 102, 0, 104,

          105, 113};

      counter (25)=186;

      counter (26)=table (random (14)) {11, 12, 28, 63, 82, 83,

          89, 90, 148, 175, 176, 178, 180, 73};

      statsObj (share (1));

      if (MOOD<2)

      {

        #13.Go=0;

        counter (21)=1;

        repeat (6)

        {

          counter (20)=table (inloop-1) {154, 155, 151, 160,

              161, 158};

          waitfs (5);

        }

        counter (21)=0;

        #13.Go=1;

      }

      FREE=0;

    }

    if (share (1)==34 && FREE)

    { /*whip*/







      counter (20)=table (MOOD) {8, 138, 102, 277, 277};

      counter (25)=185;

      if (MOOD>2)

        counter (26)=table (random (8)) {9, 15, 85, 86, 94, 130,

            171, 179};

      else

        counter (26)=table (random (15)) {93, 11, 12, 28, 63,

            82, 83, 89, 90, 148, 175, 176, 178, 180, 73};

      statsObj (share (1));

      FREE=0;

    }

    if (share (1)==63 && FREE)

    {

      share (70)=3;







    /*add menu lock stuff*/







      statsObj (share (1));

      useObj (share (1));

      FREE=0;

      menuLock (1);

      loadvrt ("map.vrt");

    }

    if (share (1)==64 && FREE)

    {

      share (70)=2;

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

      menuLock (1);

      loadvrt ("map.vrt");

    }

    if (share (1)==79 && FREE)

    {

      share (70)=1;

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

      menuLock (1);

      loadvrt ("map.vrt");

    }

    if (share (1)>39 && share (1)<43 && FREE)

    {

      share (70)=0;

      switch (share (1));

      case 40:

        share (69)=1;

      case 41:

        share (69)=2;

      case 42:

        share (69)=3;

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

      share (1)=76;

      menuLock (1);

      loadvrt ("map.vrt");

    }

    if (share (1)==81 && FREE)

    {

      if (MOOD>2)

      {

        statsObj (share (1));

        useObj (share (1));

        menuLock (1);

        loadvrt ("striptease.vrt");

      }

      else

      {

        counter (25)=92;

        counter (20)=table (random (5)) {164, 169, 170, 189,

            184};

        share (1)=-1;

      }

      FREE=0;

    }

    if (share (1)>9 && share (1)<13 && FREE)

    {

      counter (25)=192;

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)==22)

    {

      if (regGetN ("dog", &TEMP))

        TEMP=0;

      if (TEMP!=0)

      {

        counter (20)=134;

        counter (25)=171;

        regPutN ("dog", 5);

        statsObj (share (1));

        useObj (share (1));

      }

      else

        counter (25)=-1;

      FREE=0;

    }

    if (share (1)>39 && share (1)<43 && FREE)

    {

      counter (20)=-1;

      counter (25)=-1;

      FREE=0;

    }

    if (share (1)>64 && share (1)<67 && FREE)

    {

      counter (20)=-1;

      counter (25)=-1;

      FREE=0;

    }

    if (share (1)==4 && FREE)

    {

      counter (20)=136;

      counter (25)=table (random (2)) {80, 76};

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)==7 && FREE)

    {

      counter (25)=20;

      statsObj (share (1));

      useObj (share (1));

      counter (21)=1;

      #13.Go=0;

      repeat (6)

      {

        counter (20)=table (inloop-1) {283, 285, 287, 286, 288,

            289};

        waitfs (5);

      }

      waitfs (5);

      counter (21)=0;

      #13.Go=1;

      FREE=0;

    }

    if (share (1)>4 && share (1)<7 && FREE)

    {

      counter (20)=table (random (3)) {170, 137, 300};

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)==80 && FREE)

    {

      counter (20)=table (random (5)) {309, 310, 311, 312, 313};

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)==29 && FREE)

    {

      counter (20)=table (random (2)) {105, 138};

      counter (25)=88;

      regPutN ("ill", 1);

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

    if (share (1)==27 && FREE)

    {

      counter (20)=table (random (2)) {105, 138};

      counter (25)=88;

      regPutN ("ill", 1);

      statsObj (share (1));

      useObj (share (1));

      FREE=0;

    }

  }

}
end
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x10 0xC5 0xC5 0xC5 0xC5
End_Chunk
;
;-------Object  121-------------------------------------------------------
;
Chunk: Standard
 Name:     "puke"
 Number:   121
 Size:     3000 3000 3000
 Position: 2150551 3000 1958973
 Type:     33
 Layer:    0
End_Chunk
Chunk: SCL
short  RND, SAY=1, COOKED;

long   COOKING, TEMP, STATS[8];

char   NAME[256], SHARE[10];



resume (1, 2);

if (vis? (#120))

{

  if (activate (#120, 0))

  {

    SAY=1;

    if (share (1)>=0)

    {

      if (objAttrP (share (1), "C"))

      {

        COOKED=share (5);

        if (COOKED>0)

        {

          if (share (1)==22 || share (1)==23)



            /* YOU COOKED THE FISH OR THE DOG*/



            SAY=1;

          if (share (1)>13 && share (1)<21)

          {

            regGetN ("CookedValue", &COOKING);

            share (5)=0;

            switch (COOKING);

            case 1:

            {



            /*UNDER COOKED*/



              counter (25)=44;

              share (1)=-1;

            }

            case 2:

            {



            /*PERFECT*/



              counter (25)=table (random (3)) {16, 52, 53};

              counter (20)=259;

              statsObj (share (1));

              SAY=0;

              regPutN ("ill", 0);

              counter (51)=10;

              share (1)=-1;

            }

            case 3:

            {

            /*BURNT*/



              SAY=1;

              share (1)=-1;

            }

            case 4:

            {

              SAY=1;

              share (1)=-1;

            }

            case 5:

            {

              SAY=1;

              share (1)=-1;







            /* ADD SOME DISHES*/







            }

            repeat (10)

            {

              strcpy (&NAME, "Dishes");

              ltoa (&SHARE, inloop);

              strcat (&NAME, &SHARE);

              if (regGetN (&NAME, &TEMP))

              {

                regPutN (&NAME, 1);

                break;

              }

              else

              {

                if (TEMP==0)

                {

                  regPutN (&NAME, 1);

                  break;

                }

              }

            }

          }

        }

        else

        {

          if (share (1)!=22 && share (1)!=23)

            counter (25)=table (random (2)) {24, 101};

        }

      }

      else

        SAY=1;

    }

    if (SAY)

    {

      RND=random (2);

      if (RND==0)

      {

        counter (26)=88;

        repeat (7)

        {

          counter (20)=table (inloop-1) {260, 257, 261, 255,

              256, 251, 258};

          if (counter (20)==261)

            counter (25)=118;

          waitfs (5);

        }

        xpos (#120)=ixpos (#120);

        ypos (#120)=iypos (#120);

        zpos (#120)=izpos (#120);

      }

      if (RND==1)

      {

        counter (26)=88;

        waitfs (10);

        repeat (4)

        {

          counter (20)=table (inloop-1) {252, 253, 254, 252};

          if (counter (20)==253)

            counter (25)=118;

          waitfs (5);

        }

        xpos (#120)=ixpos (#120);

        ypos (#120)=iypos (#120);

        zpos (#120)=izpos (#120);

      }

    }

    statsGet (&STATS);

    if (regGetN ("ill", &TEMP))

      TEMP=0;

    if (STATS[0]>=50 && !TEMP)

    {

      waitfs (20);

      invis (#120);

      #15.MOODS=1;

      waitfs (20);

      vis (#11);

      unkill (#11);

    }

    while (mouseb)

      waitf;

    clrtrig (#120, 0);

  }

}
end
End_Chunk
Chunk: Text
  "long   TEMP, PARAM[4], COOKING, CURRENT;\r"
  "char   SHARE[5], PATH[1024], DIR[1024], NAME[32];\r"
  "short  SOUND, COOKED, TEMP2, RANDOM;\r\r"
  "/*\r"
  "HERE IF YOU CLICK ON JO, IT WILL CHECK IF THE ITEM IS GIVABLE\r"
  "OR BOPABLE AND REACT ACCORDINGLY\r"
  "*/\r"
  "resume (0, 2);\r"
  "if (first)\r"
  "  strcpy (&DIR, \"c:\\\\pet\\\\sounds\\\\\");\r"
  "if (activate ('woman', 0) && share (1)>=0)\r"
  "{\r"
  "    /*\r"
  "    GET SOUND FILE FROM DATABASE\r"
  "    */\r"
  "  paramGet (share (1), &PARAM);\r"
  "  if (PARAM[1]>0)\r"
  "  {\r"
  "    SOUND=1;\r"
  "    ltoa (&SHARE, PARAM[1]);\r"
  "    strcpy (&PATH, &DIR);\r"
  "    strcat (&PATH, &SHARE);\r"
  "    strcat (&PATH, \".WAV\");\r"
  "  }\r"
  "  if (objAttrP (share (1), \"B\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r\r\r"
  "/*\r"
  "IF THE OBJEST IS WASHABLE\r"
  "*/\r"
  "  }\r"
  "  if (objAttrP (share (1), \"W\") && share (1)>=0)\r"
  "  {\r"
  "    TEMP='WASHER:DOOR'.WASH;\r"
  "    if (TEMP)\r"
  "    /* CLOTHES ARE FROM FLOOR */\r"
  "      alert (\"I can't wear that, you need to wash it first\", 0);\r"
  "    else\r"
  "    {\r"
  "      TEMP2='WASHER:DOOR'.WASHED;\r"
  "      if (TEMP2)\r"
  "      {\r"
  "        repeat (2)\r"
  "        {\r"
  "          TEMP='WASHER:DOOR'.CI[inloop];\r"
  "          if (share (1)==TEMP)\r"
  "          {\r"
  "            TEMP2=inloop;\r"
  "            break;\r"
  "          }\r"
  "        }\r"
  "        ltoa (&SHARE, TEMP2);\r"
  "        strcpy (&NAME, \"ClothesItemStatus\");\r"
  "        strcat (&NAME, &SHARE);\r"
  "        RANDOM=random (3);\r"
  "        if (RANDOM>0)\r"
  "        {\r"
  "          alert (\"Thanks, its perfectly clean, I'll put it back i\"\r"
  "              \"n my wardrobe.\", 0);\r"
  "          regPutN (&NAME, 1);\r"
  "        }\r"
  "        else\r"
  "        {\r"
  "          alert (\"Oh no it has shrunk!! I can't wear that any mor\"\r"
  "              \"e!\", 0);\r"
  "          regPutN (&NAME, 0);\r"
  "        }\r"
  "        regGetN (\"AmbientCurrent\", &CURRENT);\r"
  "        regPutN (\"AmbientCurrent\", CURRENT-1);\r"
  "        settrig (0, 'updateAmbient');\r"
  "        share (1)=-1;\r"
  "      }\r"
  "    }\r\r"
  "/*\r\r"
  "IF THE OBJECT IS GIVABLE\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"G\") && share (1)>=0)\r"
  "  {\r"
  "    if (SOUND==1)\r"
  "      playWAV (&PATH);\r"
  "    statsObj (share (1));\r"
  "    useObj (share (1));\r\r"
  "/*\r"
  "IF THE OBJECT IS Cookable\r"
  "*/\r\r"
  "  }\r"
  "  if (objAttrP (share (1), \"C\") && share (1)>=0)\r"
  "  {\r"
  "    COOKED='cookerLogic'.COOKED;\r"
  "    if (COOKED>0)\r"
  "    {\r"
  "      regGetN (\"CookedValue\", &COOKING);\r"
  "      switch (COOKING);\r"
  "      case 1: \r"
  "      {\r"
  "        alert (\"Yuck! I'm not eating that, it's under cooked!\", \r"
  "            0);\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 2: \r"
  "      {\r"
  "        if (SOUND==1)\r"
  "          playWAV (&PATH);\r"
  "        statsObj (share (1));\r"
  "        settrig (0, 'Items');\r"
  "      }\r"
  "      case 3: \r"
  "      {\r"
  "        alert (\"Yuck!! How can i eat that, it's burnt!!\", 0);\r"
  "        settrig (0, 'Items');\r\r"
  "      /*\r"
  "      ADD SOME DISHES\r"
  "      */\r\r"
  "      }\r"
  "      gvar (2, 'itemsControl')=1;\r"
  "      settrig (0, 'itemsControl');\r"
  "    }\r"
  "    else\r"
  "      alert (\"You need to cook the food first!!\", 0);\r"
  "  }\r"
  "  if (SOUND==1)\r"
  "    strcpy (&PATH, &DIR);\r"
  "  SOUND=0;\r"
  "  while (mouseb)\r"
  "    waitf;\r"
  "  clrtrig ('woman', 0);\r"
  "}\r"
End_Chunk
Chunk: Colours
 Number: 6
 0xC5 0x15 0xC5 0xC5 0xC5 0xC5
End_Chunk

End_Children
;
;-------Object    8-------------------------------------------------------
;
Chunk: Standard
 Name:     "HUMANVP: HOLD "
 Number:   8
 Size:     4000 4000 4000
 Position: 2114725 17430 1989126
 Type:     65535
 Layer:    0
 DFlags:   M
End_Chunk
Chunk: Colours
 Number: 18
 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E
 0x0E 0x0E
End_Chunk
Chunk: InitPos
 Position: 2114725 17430 1989126
End_Chunk
Chunk: Dynamics
 MovType:     0x800004A1
 Fuel:        0
 Climb:       0
 Gravity:     0
 Coupled:     9
 Drive:       0 0 0
 External:    0 0 0
 MaxForce:    0 0 0
 GroundFric:  8192 0 8192
 Restitution: 0 0 0
 Velocity:    0 0 0
 MaxVel:      0 0 0
End_Chunk

Children:
;
;-------Object    9-------------------------------------------------------
;
Chunk: Standard
 Name:     "HUMANVP:View point "
 Number:   9
 Size:     1000 1000 1000
 Position: 1500 1500 1500
 Type:     65535
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0xFFFFBF5F 0x0000
 Centre:  500 500 500
End_Chunk
Chunk: Colours
 Number: 18
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B
 0x0B 0x0B
End_Chunk
;
;-------Object   31-------------------------------------------------------
;
Chunk: Standard
 Name:     "movelogic"
 Number:   31
 Size:     1000 1000 1000
 Position: 0 0 0
 Type:     65535
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: SCL
short  X, Y;



resume (1, 2);

if (mouseb>1)

{

  if (!first)

    X=mousex;

  Y=mousey;

  while (mouseb>1)

  {

    if (mouseb==3)

    {

      Y=mousey;

      while (mouseb==3)

      {

        ydrive (#8)= (mousey-Y)*-10;

        yrot (#9)+=deg ( (mousex-X)*4);

        waitf;

      }

      Y=mousey;

    }

    zdrive (#8)= (mousey-Y)*-20;

    yrot (#9)+=deg ( (mousex-X)*4);

    waitf;

  }

}
end
End_Chunk

End_Children
End_File