home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / schema.dxr / Script_17.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  1.7 KB  |  55 lines
  1. global FinalsPlayList
  2.  
  3. on Load4Final
  4.   sprite(25).memberNum = 76
  5.   GroupAllInVis()
  6.   mylist = [point(163, 122), point(259, 122), point(366, 124), point(333, 122), point(165, 196), point(259, 196), point(370, 197), point(333, 197), point(171, 271), point(259, 272), point(374, 271), point(333, 272), point(164, 347), point(259, 347), point(374, 346), point(333, 347)]
  7.   PutFinalData(1, 4)
  8.   repeat with n = 65 to 80
  9.     sprite(n).loc = getAt(mylist, n - 64)
  10.   end repeat
  11.   FinalVis(4)
  12. end
  13.  
  14. on Load2Final
  15.   sprite(25).memberNum = 77
  16.   GroupAllInVis()
  17.   mylist = [point(160, 197), point(260, 197), point(372, 197), point(334, 197), point(173, 271), point(260, 273), point(371, 271), point(335, 273)]
  18.   PutFinalData(5, 6)
  19.   repeat with n = 81 to 88
  20.     sprite(n).loc = getAt(mylist, n - 80)
  21.   end repeat
  22.   FinalVis(2)
  23. end
  24.  
  25. on LoadFinal
  26.   sprite(25).memberNum = 78
  27.   GroupAllInVis()
  28.   mylist = [point(139, 151), point(248, 151), point(352, 150), point(321, 151)]
  29.   PutFinalData(7, 7)
  30.   repeat with n = 89 to 92
  31.     sprite(n).loc = getAt(mylist, n - 88)
  32.   end repeat
  33.   FinalVis(1)
  34. end
  35.  
  36. on PutFinalData from, tot
  37.   repeat with n = from to tot
  38.     Thuis = "Final" & n & "PointsHome"
  39.     Uit = "Final" & n & "PointsOut"
  40.     if getAt(getAt(FinalsPlayList, n), 1) = EMPTY then
  41.       sprite(47 + n).member = 81
  42.       put getAt(getAt(FinalsPlayList, n), 1) into field Thuis
  43.       put getAt(getAt(FinalsPlayList, n), 2) into field Uit
  44.       member(Thuis).editable = 1
  45.       member(Uit).editable = 1
  46.       next repeat
  47.     end if
  48.     sprite(47 + n).member = 82
  49.     put getAt(getAt(FinalsPlayList, n), 1) into field Thuis
  50.     put getAt(getAt(FinalsPlayList, n), 2) into field Uit
  51.     member(Thuis).editable = 0
  52.     member(Uit).editable = 0
  53.   end repeat
  54. end
  55.