home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #7 / K-CD-7-2002.ISO / Tools / K-CS.dcr / 00343_Calc3D.ls < prev    next >
Encoding:
Text File  |  2002-04-10  |  1.0 KB  |  39 lines
  1. global ThreeDee, Dark3D, Pattern3D
  2.  
  3. on ThreeDeeStuff
  4.   if ThreeDee then
  5.     set the visible of sprite 82 to 0
  6.     if Dark3D then
  7.       set the visible of sprite 80 to 0
  8.       set the visible of sprite 83 to 0
  9.       if Pattern3D then
  10.         set the visible of sprite 81 to 0
  11.         set the visible of sprite 84 to 1
  12.       else
  13.         set the visible of sprite 81 to 1
  14.         set the visible of sprite 84 to 0
  15.       end if
  16.     else
  17.       set the visible of sprite 81 to 0
  18.       set the visible of sprite 84 to 0
  19.       if Pattern3D then
  20.         set the visible of sprite 83 to 1
  21.         set the visible of sprite 80 to 0
  22.       else
  23.         set the visible of sprite 83 to 0
  24.         set the visible of sprite 80 to 1
  25.       end if
  26.     end if
  27.   else
  28.     set the visible of sprite 80 to 0
  29.     set the visible of sprite 81 to 0
  30.     set the visible of sprite 83 to 0
  31.     set the visible of sprite 84 to 0
  32.     if Pattern3D then
  33.       set the visible of sprite 82 to 1
  34.     else
  35.       set the visible of sprite 82 to 0
  36.     end if
  37.   end if
  38. end
  39.