Mundo do CD-ROM 5/CDROM05.iso/entret/visdemo/cube.vrt/world.script

Text File | 1995-11-13 | 29.2 KB | 2,051 lines

;
; Script conversion of file CUBE.WLD
;
Type: WRLD
Title: "\n\n\r"
       "World file CUBE.WLD revision 43\n\r"
       "Saved from VRT version 4.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: Text
  "This world is a demonstration of the popular\r"
  "cube puzzle.\r\r"
  "The cube can be mixed up and solved just like\r"
  "the real thing.\r\r"
  "To rotate a layer, click on the corresponding\r"
  "button on the control panel - one half of the\r"
  "button rotates the layer one way, the other\r"
  "half rotates it the other way.  The layer can\r"
  "also be rotated by clicking on it directly.\x0CThe top right button (olive c"
  "olour) toggles\r"
  "cube rotation on and off.\r\r"
  "The centre right button (black) generates a\r"
  "random move.  Click and hold to mix up the\r"
  "cube.\r\r"
  "The bottom right button (white) will solve the\r"
  "cube automatically - the real cube can't do\r"
  "that!"
End_Chunk
Chunk: ViewPoint
 Number:    100
 Subchunk
  Number:  1
  Type:    35
  View:    0
  Control: 2
  Point:   0
  Frames:  1
  Position:  0 Frame:   0  Type: StraightMove Pos: 2000050 1150 1997800
  Rotation:  0 Frame:   0 Type: Relative Offset: 3636 0 0 Zoom: 0x2000
 Subchunk
  Number:  2
  Type:    35
  View:    0
  Control: 2
  Point:   0
  Frames:  1
  Position:  0 Frame:   0  Type: StraightMove Pos: 2000050 1150 2000700
  Rotation:  0 Frame:   0 Type: Relative Offset: 3636 0 0 Zoom: 0x2000
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    2-------------------------------------------------------
;
Chunk: Standard
 Name:     "group"
 Number:   2
 Size:     900 900 900
 Position: 1999691 0 2002160
 Type:     65535
 Layer:    0
End_Chunk
Chunk: Rotations
 Initial: 0x11C5 0x1C6E 0x0000
 Centre:  450 450 450
End_Chunk
Chunk: Angular Velocities
 Initial: 0x0000 0x0000 0x0000
End_Chunk

Children:
;
;-------Object   18-------------------------------------------------------
;
Chunk: Standard
 Name:     "proc"
 Number:   18
 Size:     100 100 100
 Position: 0 0 0
 Type:     0
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: SCL
short  steps=10, step=9, s;

objnum obj1, obj2;

char   *p, t, f=12, c[70], buf[1000];

short  head=0;



resume (8, 8);

if (first)

{

  repeat (54)

    c[inloop+6]=icolour (inloop+6, #3);

}

if (f==13 && head!=0)

{

  head-=1;

  f=buf[head] ^ 1;

}

else

{

  if (f<12 && head<1000)

  {

    buf[head]=f;

    head+=1;

  }

}

if (f<12)

{

  switch (f);

  case 0:

  {

    obj1=#14;

    obj2=#7;

    s=step;

  }

  case 1:

  {

    obj1=#14;

    obj2=#7;

    s=-step;

  }

  case 2:

  {

    obj1=#6;

    obj2=#15;

    s=step;

  }

  case 3:

  {

    obj1=#6;

    obj2=#15;

    s=-step;

  }

  case 4:

  {

    obj1=#8;

    obj2=#5;

    s=step;

  }

  case 5:

  {

    obj1=#8;

    obj2=#5;

    s=-step;

  }

  case 6:

  {

    obj1=#4;

    obj2=#9;

    s=-step;

  }

  case 7:

  {

    obj1=#4;

    obj2=#9;

    s=step;

  }

  case 8:

  {

    obj1=#12;

    obj2=#11;

    s=-step;

  }

  case 9:

  {

    obj1=#12;

    obj2=#11;

    s=step;

  }

  case 10:

  {

    obj1=#10;

    obj2=#13;

    s=step;

  }

  case 11:

  {

    obj1=#10;

    obj2=#13;

    s=-step;

  }

  invis (#3);

  xrot (obj1)=0;

  yrot (obj1)=0;

  zrot (obj1)=0;

  vis (obj1);

  vis (obj2);

  repeat (54)

  {

    write (&colour (inloop+6, obj1))=c[inloop+6];

    write (&colour (inloop+6, obj2))=c[inloop+6];

  }

  repeat (10)

  {

    if (f<4)

      yrot (obj1)+=s;

    else

    {

      if (f<8)

        zrot (obj1)+=s;

      else

        xrot (obj1)+=s;

    }

    waitf;

  }

  switch (f);

  case 0:

  {

    t=c[7];

    c[7]=c[13];

    c[13]=c[15];

    c[15]=c[9];

    c[9]=t;

    t=c[8];

    c[8]=c[10];

    c[10]=c[14];

    c[14]=c[12];

    c[12]=t;

    t=c[16];

    c[16]=c[25];

    c[25]=c[34];

    c[34]=c[43];

    c[43]=t;

    t=c[17];

    c[17]=c[26];

    c[26]=c[35];

    c[35]=c[44];

    c[44]=t;

    t=c[18];

    c[18]=c[27];

    c[27]=c[36];

    c[36]=c[45];

    c[45]=t;

  }

  case 1:

  {

    t=c[7];

    c[7]=c[9];

    c[9]=c[15];

    c[15]=c[13];

    c[13]=t;

    t=c[8];

    c[8]=c[12];

    c[12]=c[14];

    c[14]=c[10];

    c[10]=t;

    t=c[16];

    c[16]=c[43];

    c[43]=c[34];

    c[34]=c[25];

    c[25]=t;

    t=c[17];

    c[17]=c[44];

    c[44]=c[35];

    c[35]=c[26];

    c[26]=t;

    t=c[18];

    c[18]=c[45];

    c[45]=c[36];

    c[36]=c[27];

    c[27]=t;

  }

  case 2:

  {

    t=c[52];

    c[52]=c[54];

    c[54]=c[60];

    c[60]=c[58];

    c[58]=t;

    t=c[53];

    c[53]=c[57];

    c[57]=c[59];

    c[59]=c[55];

    c[55]=t;

    t=c[22];

    c[22]=c[31];

    c[31]=c[40];

    c[40]=c[49];

    c[49]=t;

    t=c[23];

    c[23]=c[32];

    c[32]=c[41];

    c[41]=c[50];

    c[50]=t;

    t=c[24];

    c[24]=c[33];

    c[33]=c[42];

    c[42]=c[51];

    c[51]=t;

  }

  case 3:

  {

    t=c[52];

    c[52]=c[58];

    c[58]=c[60];

    c[60]=c[54];

    c[54]=t;

    t=c[53];

    c[53]=c[55];

    c[55]=c[59];

    c[59]=c[57];

    c[57]=t;

    t=c[22];

    c[22]=c[49];

    c[49]=c[40];

    c[40]=c[31];

    c[31]=t;

    t=c[23];

    c[23]=c[50];

    c[50]=c[41];

    c[41]=c[32];

    c[32]=t;

    t=c[24];

    c[24]=c[51];

    c[51]=c[42];

    c[42]=c[33];

    c[33]=t;

  }

  case 4:

  {

    t=c[16];

    c[16]=c[22];

    c[22]=c[24];

    c[24]=c[18];

    c[18]=t;

    t=c[17];

    c[17]=c[19];

    c[19]=c[23];

    c[23]=c[21];

    c[21]=t;

    t=c[15];

    c[15]=c[45];

    c[45]=c[52];

    c[52]=c[31];

    c[31]=t;

    t=c[14];

    c[14]=c[48];

    c[48]=c[53];

    c[53]=c[28];

    c[28]=t;

    t=c[13];

    c[13]=c[51];

    c[51]=c[54];

    c[54]=c[25];

    c[25]=t;

  }

  case 5:

  {

    t=c[16];

    c[16]=c[18];

    c[18]=c[24];

    c[24]=c[22];

    c[22]=t;

    t=c[17];

    c[17]=c[21];

    c[21]=c[23];

    c[23]=c[19];

    c[19]=t;

    t=c[15];

    c[15]=c[31];

    c[31]=c[52];

    c[52]=c[45];

    c[45]=t;

    t=c[14];

    c[14]=c[28];

    c[28]=c[53];

    c[53]=c[48];

    c[48]=t;

    t=c[13];

    c[13]=c[25];

    c[25]=c[54];

    c[54]=c[51];

    c[51]=t;

  }

  case 6:

  {

    t=c[34];

    c[34]=c[40];

    c[40]=c[42];

    c[42]=c[36];

    c[36]=t;

    t=c[35];

    c[35]=c[37];

    c[37]=c[41];

    c[41]=c[39];

    c[39]=t;

    t=c[7];

    c[7]=c[27];

    c[27]=c[60];

    c[60]=c[49];

    c[49]=t;

    t=c[8];

    c[8]=c[30];

    c[30]=c[59];

    c[59]=c[46];

    c[46]=t;

    t=c[9];

    c[9]=c[33];

    c[33]=c[58];

    c[58]=c[43];

    c[43]=t;

  }

  case 7:

  {

    t=c[34];

    c[34]=c[36];

    c[36]=c[42];

    c[42]=c[40];

    c[40]=t;

    t=c[35];

    c[35]=c[39];

    c[39]=c[41];

    c[41]=c[37];

    c[37]=t;

    t=c[7];

    c[7]=c[49];

    c[49]=c[60];

    c[60]=c[27];

    c[27]=t;

    t=c[8];

    c[8]=c[46];

    c[46]=c[59];

    c[59]=c[30];

    c[30]=t;

    t=c[9];

    c[9]=c[43];

    c[43]=c[58];

    c[58]=c[33];

    c[33]=t;

  }

  case 8:

  {

    t=c[25];

    c[25]=c[31];

    c[31]=c[33];

    c[33]=c[27];

    c[27]=t;

    t=c[26];

    c[26]=c[28];

    c[28]=c[32];

    c[32]=c[30];

    c[30]=t;

    t=c[9];

    c[9]=c[18];

    c[18]=c[54];

    c[54]=c[40];

    c[40]=t;

    t=c[12];

    c[12]=c[21];

    c[21]=c[57];

    c[57]=c[37];

    c[37]=t;

    t=c[15];

    c[15]=c[24];

    c[24]=c[60];

    c[60]=c[34];

    c[34]=t;

  }

  case 9:

  {

    t=c[25];

    c[25]=c[27];

    c[27]=c[33];

    c[33]=c[31];

    c[31]=t;

    t=c[26];

    c[26]=c[30];

    c[30]=c[32];

    c[32]=c[28];

    c[28]=t;

    t=c[9];

    c[9]=c[40];

    c[40]=c[54];

    c[54]=c[18];

    c[18]=t;

    t=c[12];

    c[12]=c[37];

    c[37]=c[57];

    c[57]=c[21];

    c[21]=t;

    t=c[15];

    c[15]=c[34];

    c[34]=c[60];

    c[60]=c[24];

    c[24]=t;

  }

  case 10:

  {

    t=c[43];

    c[43]=c[49];

    c[49]=c[51];

    c[51]=c[45];

    c[45]=t;

    t=c[44];

    c[44]=c[46];

    c[46]=c[50];

    c[50]=c[48];

    c[48]=t;

    t=c[13];

    c[13]=c[36];

    c[36]=c[58];

    c[58]=c[22];

    c[22]=t;

    t=c[10];

    c[10]=c[39];

    c[39]=c[55];

    c[55]=c[19];

    c[19]=t;

    t=c[7];

    c[7]=c[42];

    c[42]=c[52];

    c[52]=c[16];

    c[16]=t;

  }

  case 11:

  {

    t=c[43];

    c[43]=c[45];

    c[45]=c[51];

    c[51]=c[49];

    c[49]=t;

    t=c[44];

    c[44]=c[48];

    c[48]=c[50];

    c[50]=c[46];

    c[46]=t;

    t=c[13];

    c[13]=c[22];

    c[22]=c[58];

    c[58]=c[36];

    c[36]=t;

    t=c[10];

    c[10]=c[19];

    c[19]=c[55];

    c[55]=c[39];

    c[39]=t;

    t=c[7];

    c[7]=c[16];

    c[16]=c[52];

    c[52]=c[42];

    c[42]=t;

  }

  vis (#3);

  invis (obj1);

  invis (obj2);

  repeat (54)

  {

    colour (inloop+6, #35)=c[inloop+6];

    colour (inloop+6, #31)=c[inloop+6];

    colour (inloop+6, #32)=c[inloop+6];

    colour (inloop+6, #30)=c[inloop+6];

    colour (inloop+6, #33)=c[inloop+6];

    colour (inloop+6, #34)=c[inloop+6];

  }

  f=12;

}
end
End_Chunk
;
;-------Object    3-------------------------------------------------------
;
Chunk: Standard
 Name:     "Main"
 Number:   3
 Size:     900 900 900
 Position: 0 0 0
 Type:     65535
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: Default Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk

Children:
;
;-------Object   30-------------------------------------------------------
;
Chunk: Standard
 Name:     "Back"
 Number:   30
 Size:     900 900 0
 Position: 0 0 900
 Type:     17
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=6;

  call (#18);

}
end
End_Chunk
Chunk: Default Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
;
;-------Object   31-------------------------------------------------------
;
Chunk: Standard
 Name:     "Bottom"
 Number:   31
 Size:     900 0 900
 Position: 0 0 0
 Type:     15
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=2;

  call (#18);

}
end
End_Chunk
Chunk: Default Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
;
;-------Object   32-------------------------------------------------------
;
Chunk: Standard
 Name:     "Front"
 Number:   32
 Size:     900 900 0
 Position: 0 0 0
 Type:     16
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=4;

  call (#18);

}
end
End_Chunk
Chunk: Default Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
;
;-------Object   33-------------------------------------------------------
;
Chunk: Standard
 Name:     "Left"
 Number:   33
 Size:     0 900 900
 Position: 0 0 0
 Type:     18
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=10;

  call (#18);

}
end
End_Chunk
Chunk: Default Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
;
;-------Object   34-------------------------------------------------------
;
Chunk: Standard
 Name:     "Right"
 Number:   34
 Size:     0 900 900
 Position: 900 0 0
 Type:     19
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=8;

  call (#18);

}
end
End_Chunk
Chunk: Default Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
;
;-------Object   35-------------------------------------------------------
;
Chunk: Standard
 Name:     "Top"
 Number:   35
 Size:     900 0 900
 Position: 0 900 0
 Type:     14
 Layer:    0
 DFlags:   r
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=0;

  call (#18);

}
end
End_Chunk
Chunk: Default Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk

End_Children
;
;-------Object    4-------------------------------------------------------
;
Chunk: Standard
 Name:     "k13"
 Number:   4
 Size:     900 900 300
 Position: 0 0 600
 Type:     12
 Layer:    0
 DFlags:   r
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  450 450 150
End_Chunk
;
;-------Object    5-------------------------------------------------------
;
Chunk: Standard
 Name:     "k23"
 Number:   5
 Size:     900 900 600
 Position: 0 0 300
 Type:     13
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0A 0x0E 0x0E 0x0A 0x0B 0x09 0x0B 0x0A
 0x0B 0x0A 0x0A 0x0B 0x0A 0x05 0x0B 0x05 0x0E 0x04 0x04 0x0E 0x0A 0x05 0x0A 0x04
 0x04 0x0E 0x09 0x09 0x04 0x04 0x04 0x0E 0x09 0x09 0x0B 0x0B 0x05 0x0E 0x09 0x05
 0x0B 0x0B 0x09 0x04 0x0A 0x04 0x05 0x05 0x09 0x05 0x05 0x09
End_Chunk
;
;-------Object    6-------------------------------------------------------
;
Chunk: Standard
 Name:     "b13"
 Number:   6
 Size:     900 300 900
 Position: 0 0 0
 Type:     4
 Layer:    0
 DFlags:   r
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0A 0x0A 0x0A 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x05 0x0A 0x0A 0x05 0x0A 0x0A 0x05 0x04 0x04
 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x0E 0x09 0x09 0x0E 0x09 0x09 0x0E 0x09 0x09
 0x0B 0x0B 0x0B 0x05 0x05 0x09 0x05 0x05 0x09 0x05 0x05 0x09
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  450 150 450
End_Chunk
;
;-------Object    7-------------------------------------------------------
;
Chunk: Standard
 Name:     "b23"
 Number:   7
 Size:     900 600 900
 Position: 0 0 0
 Type:     3
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0A 0x0E 0x0E 0x0A 0x0E 0x0E 0x0A 0x0A
 0x0A 0x05 0x0B 0x0B 0x0B 0x0A 0x0A 0x05 0x04 0x04 0x04 0x0A 0x0A 0x05 0x04 0x04
 0x04 0x0E 0x09 0x09 0x04 0x04 0x04 0x0E 0x09 0x09 0x0B 0x0B 0x0B 0x0E 0x09 0x09
 0x0B 0x0B 0x0B 0x05 0x05 0x09 0x05 0x05 0x09 0x05 0x05 0x09
End_Chunk
;
;-------Object    8-------------------------------------------------------
;
Chunk: Standard
 Name:     "f13"
 Number:   8
 Size:     900 900 300
 Position: 0 0 0
 Type:     10
 Layer:    0
 DFlags:   r
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 54
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0A 0x0E 0x0E 0x0A 0x0B 0x09 0x0B 0x0A
 0x0B 0x0A 0x0A 0x0B 0x0A 0x05 0x0B 0x05 0x0E 0x04 0x04 0x0E 0x0A 0x05 0x0A 0x04
 0x04 0x0E 0x09 0x09 0x04 0x04 0x04 0x0E 0x09 0x09 0x0B 0x0B 0x05 0x0E 0x09 0x05
 0x0B 0x0B 0x09 0x04 0x0A 0x04
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  450 450 150
End_Chunk
;
;-------Object    9-------------------------------------------------------
;
Chunk: Standard
 Name:     "f23"
 Number:   9
 Size:     900 900 600
 Position: 0 0 0
 Type:     11
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 57
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A 0x0A
 0x0A 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x09 0x09 0x09 0x09 0x09 0x09
 0x09 0x09 0x09 0x05 0x05 0x05 0x05 0x05 0x05
End_Chunk
;
;-------Object   10-------------------------------------------------------
;
Chunk: Standard
 Name:     "l13"
 Number:   10
 Size:     300 900 900
 Position: 0 0 0
 Type:     8
 Layer:    0
 DFlags:   r
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 58
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x09 0x0E 0x0A 0x04 0x0E 0x0A 0x09 0x09 0x0B 0x0E
 0x0B 0x0A 0x0E 0x0B 0x0A 0x0B 0x0B 0x05 0x0E 0x04 0x04 0x0E 0x0A 0x05 0x0A 0x04
 0x04 0x0E 0x09 0x05 0x04 0x04 0x05 0x0E 0x09 0x04 0x0B 0x0E 0x0B 0x0B 0x09 0x0B
 0x09 0x05 0x05 0x0A 0x0A 0x04 0x0A 0x05 0x09 0x05
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  150 450 450
End_Chunk
;
;-------Object   11-------------------------------------------------------
;
Chunk: Standard
 Name:     "l23"
 Number:   11
 Size:     600 900 900
 Position: 0 0 0
 Type:     9
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 59
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x09 0x0E 0x0A 0x04 0x0E 0x0A 0x09 0x09 0x05 0x0E
 0x0B 0x04 0x0E 0x0B 0x09 0x0B 0x0B 0x09 0x0A 0x0E 0x0E 0x04 0x0A 0x04 0x04 0x05
 0x04 0x0B 0x09 0x05 0x0A 0x04 0x05 0x0A 0x09 0x04 0x0B 0x0E 0x0B 0x0B 0x09 0x0B
 0x09 0x05 0x05 0x0A 0x0A 0x0E 0x0A 0x05 0x04 0x05 0x05
End_Chunk
;
;-------Object   12-------------------------------------------------------
;
Chunk: Standard
 Name:     "r13"
 Number:   12
 Size:     300 900 900
 Position: 600 0 0
 Type:     6
 Layer:    0
 DFlags:   r
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x09 0x0E 0x0A 0x04 0x0E 0x0A 0x09 0x09 0x05 0x0E
 0x0B 0x04 0x0E 0x0B 0x09 0x0B 0x0B 0x09 0x0A 0x0E 0x0E 0x04 0x0A 0x04 0x04 0x05
 0x04 0x0B 0x09 0x05 0x0A 0x04 0x05 0x0A 0x09 0x04 0x0B 0x0E 0x0B 0x0B 0x09 0x0B
 0x09 0x05 0x05 0x0A 0x0A 0x0E 0x0A 0x05 0x04 0x05 0x05 0x0E
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  150 450 450
End_Chunk
;
;-------Object   13-------------------------------------------------------
;
Chunk: Standard
 Name:     "r23"
 Number:   13
 Size:     600 900 900
 Position: 300 0 0
 Type:     7
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 60
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x09 0x0E 0x0A 0x04 0x0E 0x0A 0x09 0x09 0x0B 0x0E
 0x0B 0x0A 0x0E 0x0B 0x0A 0x0B 0x0B 0x05 0x0E 0x04 0x04 0x0E 0x0A 0x05 0x0A 0x04
 0x04 0x0E 0x09 0x05 0x04 0x04 0x05 0x0E 0x09 0x04 0x0B 0x0E 0x0B 0x0B 0x09 0x0B
 0x09 0x05 0x05 0x0A 0x0A 0x04 0x0A 0x05 0x09 0x05 0x05 0x09
End_Chunk
;
;-------Object   14-------------------------------------------------------
;
Chunk: Standard
 Name:     "t13"
 Number:   14
 Size:     900 300 900
 Position: 0 600 0
 Type:     1
 Layer:    0
 DFlags:   r
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 45
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0E 0x0E 0x0A 0x0E 0x0E 0x0A 0x0E 0x0E 0x0A 0x0A
 0x0A 0x05 0x0B 0x0B 0x0B 0x0A 0x0A 0x05 0x04 0x04 0x04 0x0A 0x0A 0x05 0x04 0x04
 0x04 0x0E 0x09 0x09 0x04 0x04 0x04 0x0E 0x09 0x09 0x0B 0x0B 0x0B
End_Chunk
Chunk: Rotations
 Initial: 0x0000 0x0000 0x0000
 Centre:  450 150 450
End_Chunk
;
;-------Object   15-------------------------------------------------------
;
Chunk: Standard
 Name:     "t23"
 Number:   15
 Size:     900 600 900
 Position: 0 300 0
 Type:     5
 Layer:    0
 OFlags:   Ii
End_Chunk
Chunk: Colours
 Number: 48
 0x2D 0x2D 0x2D 0x2D 0x2D 0x2D 0x0A 0x0A 0x0A 0x0E 0x0E 0x0E 0x0E 0x0E 0x0E 0x0B
 0x0B 0x0B 0x0B 0x0B 0x0B 0x0A 0x0A 0x05 0x0A 0x0A 0x05 0x0A 0x0A 0x05 0x04 0x04
 0x04 0x04 0x04 0x04 0x04 0x04 0x04 0x0E 0x09 0x09 0x0E 0x09 0x09 0x0E 0x09 0x09
End_Chunk

End_Children
;
;-------Object   36-------------------------------------------------------
;
Chunk: Standard
 Name:     "controls"
 Number:   36
 Size:     1500 30 900
 Position: 1999370 0 1998896
 Type:     65535
 Layer:    0
End_Chunk

Children:
;
;-------Object   25-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[25]"
 Number:   25
 Size:     300 30 300
 Position: 0 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x0A 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=8;

  call (#18);

}
end
End_Chunk
;
;-------Object   24-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[24]"
 Number:   24
 Size:     300 30 300
 Position: 0 0 300
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x0B 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=4;

  call (#18);

}
end
End_Chunk
;
;-------Object   23-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[23]"
 Number:   23
 Size:     300 30 300
 Position: 0 0 600
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x0E 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=0;

  call (#18);

}
end
End_Chunk
;
;-------Object   26-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[26]"
 Number:   26
 Size:     300 30 300
 Position: 300 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x0A 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=9;

  call (#18);

}
end
End_Chunk
;
;-------Object   20-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[20]"
 Number:   20
 Size:     300 30 300
 Position: 300 0 300
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x0B 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=5;

  call (#18);

}
end
End_Chunk
;
;-------Object   27-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[27]"
 Number:   27
 Size:     300 30 300
 Position: 600 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x09 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=10;

  call (#18);

}
end
End_Chunk
;
;-------Object   28-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[28]"
 Number:   28
 Size:     300 30 300
 Position: 900 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x09 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=11;

  call (#18);

}
end
End_Chunk
;
;-------Object   19-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[19]"
 Number:   19
 Size:     300 30 300
 Position: 300 0 600
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x0E 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=1;

  call (#18);

}
end
End_Chunk
;
;-------Object   21-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[21]"
 Number:   21
 Size:     300 30 300
 Position: 600 0 300
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x04 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=6;

  call (#18);

}
end
End_Chunk
;
;-------Object    1-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor"
 Number:   1
 Size:     300 30 300
 Position: 600 0 600
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x05 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=2;

  call (#18);

}
end
End_Chunk
;
;-------Object   22-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[22]"
 Number:   22
 Size:     300 30 300
 Position: 900 0 300
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x04 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=7;

  call (#18);

}
end
End_Chunk
;
;-------Object   17-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[17]"
 Number:   17
 Size:     300 30 300
 Position: 900 0 600
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x05 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=3;

  call (#18);

}
end
End_Chunk
;
;-------Object   16-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[16]"
 Number:   16
 Size:     300 30 300
 Position: 1200 0 0
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x0F 0x75
End_Chunk
Chunk: SCL
char   undo=0;



if (activate (me, 0))

  undo=1;

if (#18.head==0)

  undo=0;

if (undo==1 && #18.f==12)

{

  #18.f=13;

  call (#18);

}
end
End_Chunk
;
;-------Object   29-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[29]"
 Number:   29
 Size:     300 30 300
 Position: 1200 0 300
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x01 0x75
End_Chunk
Chunk: SCL
if (activate (me, 0) && #18.f==12)

{

  #18.f=random (6)*2;

  call (#18);

}
end
End_Chunk
;
;-------Object   37-------------------------------------------------------
;
Chunk: Standard
 Name:     "Anchor[37]"
 Number:   37
 Size:     300 30 300
 Position: 1200 0 600
 Type:     0
 Layer:    0
End_Chunk
Chunk: Colours
 Number: 6
 0x77 0x76 0x77 0x76 0x06 0x75
End_Chunk
Chunk: SCL
char   spin=0;

long   t;



resume (0, 2);

if (activate (me, 0))

{

  spin^=1;

  if (spin==1)

  {

    xangv (#2)=5;

    yangv (#2)=3;

  }

  else

  {

    xangv (#2)=0;

    yangv (#2)=0;

  }

  t=vrtime;

  while (vrtime<t+250)

    waitf;

  clrtrig (me, 0);

}
end
End_Chunk

End_Children

End_Children
End_File