home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / schema.dxr / Script_21.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  3.6 KB  |  83 lines
  1. on CheckALlPlayed temp
  2.   global ActiveGrouplist, FinalsPlayList, FinalsTeam
  3.   Played = 0
  4.   repeat with n = 55 to 60
  5.     if sprite(n).memberNum = 81 then
  6.       Played = 1
  7.     end if
  8.   end repeat
  9.   if Played = 0 then
  10.     setAt(FinalsPlayList, 5, [EMPTY, EMPTY])
  11.     setAt(FinalsPlayList, 6, [EMPTY, EMPTY])
  12.     setAt(FinalsPlayList, 7, [EMPTY, EMPTY])
  13.     case sprite(25).memberNum of
  14.       72:
  15.         setAt(FinalsPlayList, 1, [EMPTY, EMPTY])
  16.         setAt(FinalsPlayList, 2, [EMPTY, EMPTY])
  17.         setAt(FinalsTeam, 1, [getAt(getAt(FinalsTeam, 1), 1), getPropAt(ActiveGrouplist, getAt(temp, 1))])
  18.         setAt(FinalsTeam, 2, [getAt(getAt(FinalsTeam, 2), 1), getPropAt(ActiveGrouplist, getAt(temp, 2))])
  19.       73:
  20.         setAt(FinalsPlayList, 1, [EMPTY, EMPTY])
  21.         setAt(FinalsPlayList, 2, [EMPTY, EMPTY])
  22.         setAt(FinalsTeam, 1, [getPropAt(ActiveGrouplist, getAt(temp, 2)), getAt(getAt(FinalsTeam, 1), 2)])
  23.         setAt(FinalsTeam, 2, [getPropAt(ActiveGrouplist, getAt(temp, 1)), getAt(getAt(FinalsTeam, 2), 2)])
  24.       74:
  25.         setAt(FinalsPlayList, 3, [EMPTY, EMPTY])
  26.         setAt(FinalsPlayList, 4, [EMPTY, EMPTY])
  27.         setAt(FinalsTeam, 3, [getPropAt(ActiveGrouplist, getAt(temp, 2)), getAt(getAt(FinalsTeam, 3), 2)])
  28.         setAt(FinalsTeam, 4, [getPropAt(ActiveGrouplist, getAt(temp, 1)), getAt(getAt(FinalsTeam, 4), 2)])
  29.       75:
  30.         setAt(FinalsPlayList, 3, [EMPTY, EMPTY])
  31.         setAt(FinalsPlayList, 4, [EMPTY, EMPTY])
  32.         setAt(FinalsTeam, 3, [getAt(getAt(FinalsTeam, 3), 1), getPropAt(ActiveGrouplist, getAt(temp, 1))])
  33.         setAt(FinalsTeam, 4, [getAt(getAt(FinalsTeam, 4), 1), getPropAt(ActiveGrouplist, getAt(temp, 2))])
  34.     end case
  35.   end if
  36. end
  37.  
  38. on CheckALLDelete
  39.   global ActiveGrouplist, FinalsPlayList, FinalsTeam
  40.   Played = 0
  41.   repeat with n = 55 to 60
  42.     if sprite(n).memberNum = 81 then
  43.       Played = 1
  44.     end if
  45.   end repeat
  46.   if Played = 0 then
  47.     setAt(FinalsPlayList, 5, [EMPTY, EMPTY])
  48.     setAt(FinalsPlayList, 6, [EMPTY, EMPTY])
  49.     setAt(FinalsPlayList, 7, [EMPTY, EMPTY])
  50.     setAt(FinalsTeam, 7, [EMPTY, EMPTY])
  51.     case sprite(25).memberNum of
  52.       72:
  53.         setAt(FinalsPlayList, 1, [EMPTY, EMPTY])
  54.         setAt(FinalsPlayList, 2, [EMPTY, EMPTY])
  55.         setAt(FinalsTeam, 1, [getAt(getAt(FinalsTeam, 1), 1), EMPTY])
  56.         setAt(FinalsTeam, 2, [getAt(getAt(FinalsTeam, 2), 1), EMPTY])
  57.         setAt(FinalsTeam, 5, [getAt(getAt(FinalsTeam, 5), 1), EMPTY])
  58.         setAt(FinalsTeam, 6, [EMPTY, getAt(getAt(FinalsTeam, 6), 2)])
  59.       73:
  60.         setAt(FinalsPlayList, 1, [EMPTY, EMPTY])
  61.         setAt(FinalsPlayList, 2, [EMPTY, EMPTY])
  62.         setAt(FinalsTeam, 1, [EMPTY, getAt(getAt(FinalsTeam, 1), 2)])
  63.         setAt(FinalsTeam, 2, [EMPTY, getAt(getAt(FinalsTeam, 2), 2)])
  64.         setAt(FinalsTeam, 5, [getAt(getAt(FinalsTeam, 5), 1), EMPTY])
  65.         setAt(FinalsTeam, 6, [EMPTY, getAt(getAt(FinalsTeam, 6), 2)])
  66.       74:
  67.         setAt(FinalsPlayList, 3, [EMPTY, EMPTY])
  68.         setAt(FinalsPlayList, 4, [EMPTY, EMPTY])
  69.         setAt(FinalsTeam, 3, [EMPTY, getAt(getAt(FinalsTeam, 3), 2)])
  70.         setAt(FinalsTeam, 4, [EMPTY, getAt(getAt(FinalsTeam, 4), 2)])
  71.         setAt(FinalsTeam, 5, [EMPTY, getAt(getAt(FinalsTeam, 5), 2)])
  72.         setAt(FinalsTeam, 6, [getAt(getAt(FinalsTeam, 6), 1), EMPTY])
  73.       75:
  74.         setAt(FinalsPlayList, 3, [EMPTY, EMPTY])
  75.         setAt(FinalsPlayList, 4, [EMPTY, EMPTY])
  76.         setAt(FinalsTeam, 3, [getAt(getAt(FinalsTeam, 3), 1), EMPTY])
  77.         setAt(FinalsTeam, 4, [getAt(getAt(FinalsTeam, 4), 1), EMPTY])
  78.         setAt(FinalsTeam, 5, [EMPTY, getAt(getAt(FinalsTeam, 5), 2)])
  79.         setAt(FinalsTeam, 6, [getAt(getAt(FinalsTeam, 6), 1), EMPTY])
  80.     end case
  81.   end if
  82. end
  83.