home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / schema.dxr / Script_20_visibles.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  2.4 KB  |  99 lines
  1. on GroupAllVis
  2.   mylist = [point(44, 168), point(122, 170), point(202, 168), point(179, 170), point(44, 208), point(124, 210), point(202, 208), point(179, 210), point(364, 168), point(443, 171), point(520, 168), point(496, 169), point(364, 208), point(442, 209), point(520, 208), point(497, 209), point(204, 282), point(283, 284), point(362, 282), point(339, 282), point(195, 322), point(282, 323), point(364, 320), point(339, 323), point(159, 399), point(267, 398), point(380, 398), point(347, 397)]
  3.   repeat with n = 65 to 92
  4.     sprite(n).loc = getAt(mylist, n - 64)
  5.   end repeat
  6.   sprite(3).visible = 1
  7.   repeat with n = 6 to 9
  8.     sprite(n).visible = 1
  9.   end repeat
  10.   repeat with n = 11 to 17
  11.     sprite(n).visible = 1
  12.   end repeat
  13.   repeat with n = 65 to 92
  14.     sprite(n).visible = 1
  15.   end repeat
  16. end
  17.  
  18. on GroupAllInVis
  19.   repeat with n = 27 to 54
  20.     member(n).editable = 0
  21.   end repeat
  22.   sprite(3).visible = 0
  23.   repeat with n = 6 to 9
  24.     sprite(n).visible = 0
  25.   end repeat
  26.   repeat with n = 11 to 17
  27.     sprite(n).visible = 0
  28.   end repeat
  29.   repeat with n = 65 to 92
  30.     sprite(n).visible = 0
  31.   end repeat
  32. end
  33.  
  34. on OneGroupVis
  35.   repeat with n = 25 to 47
  36.     sprite(n).visible = 1
  37.   end repeat
  38.   repeat with n = 55 to 60
  39.     sprite(n).visible = 1
  40.   end repeat
  41. end
  42.  
  43. on OneGroupInVis
  44.   repeat with n = 55 to 60
  45.     sprite(n).visible = 0
  46.   end repeat
  47.   repeat with n = 25 to 47
  48.     sprite(n).visible = 0
  49.   end repeat
  50.   updateStage()
  51. end
  52.  
  53. on FinalVis which
  54.   case which of
  55.     4:
  56.       visList = [65, 80, 48, 51]
  57.     2:
  58.       visList = [81, 88, 52, 53]
  59.     1:
  60.       visList = [89, 92, 54, 54]
  61.       sprite(62).visible = 1
  62.       sprite(63).visible = 1
  63.   end case
  64.   sprite(25).visible = 1
  65.   sprite(26).visible = 1
  66.   repeat with n = getAt(visList, 1) to getAt(visList, 2)
  67.     sprite(n).visible = 1
  68.   end repeat
  69.   repeat with n = getAt(visList, 3) to getAt(visList, 4)
  70.     sprite(n).visible = 1
  71.   end repeat
  72. end
  73.  
  74. on FinalinVis which
  75.   case which of
  76.     4:
  77.       visList = [65, 80, 48, 51]
  78.     2:
  79.       visList = [81, 88, 52, 53]
  80.     1:
  81.       visList = [89, 92, 54, 54]
  82.       sprite(62).visible = 0
  83.       sprite(63).visible = 0
  84.   end case
  85.   sprite(25).visible = 0
  86.   sprite(26).visible = 0
  87.   repeat with n = 48 to 54
  88.     sprite(n).visible = 0
  89.   end repeat
  90.   repeat with n = getAt(visList, 1) to getAt(visList, 2)
  91.     sprite(n).visible = 0
  92.     member(n - 38).editable = 0
  93.   end repeat
  94.   repeat with n = getAt(visList, 3) to getAt(visList, 4)
  95.     sprite(n).visible = 0
  96.   end repeat
  97.   updateStage()
  98. end
  99.