home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / schema.dxr / Script_1.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  6.8 KB  |  83 lines
  1. on prepareMovie
  2.   global GroupList, PlayList, FinalsPlayList, ActivePlayList, ActiveGrouplist, MySave
  3.   sprite(5).member = member(random(42) + 1, 2)
  4.   sprite(95).visible = 0
  5.   MySave = new(xtra("FileIO"))
  6.   put status(MySave)
  7.   if the machineType = 256 then
  8.     MySavePlace = getOSDirectory() & "\" & "Knudde.PaW"
  9.   else
  10.     MySavePlace = getOSDirectory() & "Knudde.PaW"
  11.   end if
  12.   openFile(MySave, MySavePlace, 1)
  13.   if status(MySave) <> 0 then
  14.     createFile(MySave, MySavePlace)
  15.     MakeCleanList()
  16.     openFile(MySave, MySavePlace, 2)
  17.     writeString(MySave, field("SaveList"))
  18.     prepareMovie()
  19.   else
  20.     member(15, 3).scriptText = readFile(MySave)
  21.     LoadList()
  22.   end if
  23.   closeFile(MySave)
  24.   ActivePlayList = []
  25.   ActiveGrouplist = []
  26.   OneGroupInVis()
  27.   FinalinVis(4)
  28.   FinalinVis(2)
  29.   FinalinVis(1)
  30.   FillOverALl()
  31. end
  32.  
  33. on FillOverALl
  34.   global GroupList, PlayList, ActivePlayList, ActiveGrouplist, FinalsPlayList, FinalsTeam
  35.   ActivePlayList = PlayList.GroupA
  36.   ActiveGrouplist = GroupList.GroupA
  37.   TempPlaces = CheckPoints()
  38.   put EMPTY into field "PlaceGroup1"
  39.   repeat with n = 1 to 4
  40.     put field("PlaceGroup1") & getPropAt(ActiveGrouplist, getAt(TempPlaces, n)) & RETURN into field "PlaceGroup1"
  41.   end repeat
  42.   ActivePlayList = PlayList.GroupB
  43.   ActiveGrouplist = GroupList.GroupB
  44.   TempPlaces = CheckPoints()
  45.   put EMPTY into field "PlaceGroup2"
  46.   repeat with n = 1 to 4
  47.     put field("PlaceGroup2") & getPropAt(ActiveGrouplist, getAt(TempPlaces, n)) & RETURN into field "PlaceGroup2"
  48.   end repeat
  49.   ActivePlayList = PlayList.GroupC
  50.   ActiveGrouplist = GroupList.GroupC
  51.   TempPlaces = CheckPoints()
  52.   put EMPTY into field "PlaceGroup3"
  53.   repeat with n = 1 to 4
  54.     put field("PlaceGroup3") & getPropAt(ActiveGrouplist, getAt(TempPlaces, n)) & RETURN into field "PlaceGroup3"
  55.   end repeat
  56.   ActivePlayList = PlayList.GroupD
  57.   ActiveGrouplist = GroupList.GroupD
  58.   TempPlaces = CheckPoints()
  59.   put EMPTY into field "PlaceGroup4"
  60.   repeat with n = 1 to 4
  61.     put field("PlaceGroup4") & getPropAt(ActiveGrouplist, getAt(TempPlaces, n)) & RETURN into field "PlaceGroup4"
  62.   end repeat
  63.   repeat with n = 1 to 7
  64.     f1 = "Final" & n & "WhoHome"
  65.     f2 = "Final" & n & "PointsHome"
  66.     f3 = "Final" & n & "WhoOut"
  67.     f4 = "Final" & n & "PointsOut"
  68.     put getAt(getAt(FinalsTeam, n), 1) into field f1
  69.     put getAt(getAt(FinalsTeam, n), 2) into field f3
  70.     put getAt(getAt(FinalsPlayList, n), 1) into field f2
  71.     put getAt(getAt(FinalsPlayList, n), 2) into field f4
  72.   end repeat
  73. end
  74.  
  75. on MakeCleanList
  76.   put "on LoadList" & RETURN & "global GroupList,PlayList,FinalsPlayList,FinalsTeam" into field "SaveList"
  77.   put field("SaveList") & RETURN & "GroupList = [#groupA:[ #Duitsland  :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 3 ] , #Roemenie  :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha:11 ],#Portugal   :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha:10 ] , #Engeland  :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 4 ]],#groupB:[ #Belgie     :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 1 ] , #Zweden    :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha:16 ],#Turkije    :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha:15 ] , #Italie    :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 6 ]],#groupC:[ #Spanje     :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha:13 ] , #Noorwegen :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 9 ],#Joegoslavie:[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 7 ] , #Slovenie  :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha:12 ]],#groupD:[ #Nederland  :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 8 ] , #Tsjechie  :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha:14 ],#Frankrijk  :[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 5 ] , #Denemarken:[ P:0 , W:0 , D:0 , L:0 , PO:0 , GF:0 , GT:0 , Alpha: 2 ]] ]" into field "SaveList"
  78.   put field("SaveList") & RETURN & "PlayList = [ #groupA :[#game1:[#who:[#Duitsland:" & QUOTE & QUOTE & "  ,#Roemenie:" & QUOTE & QUOTE & "]] ,#Game2:[#Who:[#Portugal :" & QUOTE & QUOTE & ",#Engeland:" & QUOTE & QUOTE & "] ],#Game3:[#Who:[#Roemenie:" & QUOTE & QUOTE & "   ,#Portugal:" & QUOTE & QUOTE & "] ],#Game4:[#Who:[#Engeland:" & QUOTE & QUOTE & "   ,#Duitsland:" & QUOTE & QUOTE & "]],#Game5:[#Who:[#Engeland:" & QUOTE & QUOTE & "   ,#Roemenie:" & QUOTE & QUOTE & "] ],#Game6:[#Who:[#Portugal:" & QUOTE & QUOTE & "   ,#Duitsland:" & QUOTE & QUOTE & "] ]],#groupB :[#Game1:[#who:[#Belgie:" & QUOTE & QUOTE & "     ,#Zweden:" & QUOTE & QUOTE & "]    ] ,#Game2:[#who:[#Turkije:" & QUOTE & QUOTE & "    ,#Italie:" & QUOTE & QUOTE & "]    ] ,#Game3:[#who:[#Italie:" & QUOTE & QUOTE & "     ,#Belgie:" & QUOTE & QUOTE & "]    ] ,#Game4:[#who:[#Zweden:" & QUOTE & QUOTE & "    ,#Turkije:" & QUOTE & QUOTE & "]   ] ,#Game5:[#who:[#Turkije:" & QUOTE & QUOTE & "   ,#Belgie:" & QUOTE & QUOTE & "]    ] ,#Game6:[#who:[#Italie:" & QUOTE & QUOTE & "     ,#Zweden:" & QUOTE & QUOTE & "]     ]],#groupC :[#Game1:[#who:[#Spanje:" & QUOTE & QUOTE & "    ,#Noorwegen:" & QUOTE & QUOTE & "] ] ,#Game2:[#who:[#Joegoslavie:" & QUOTE & QUOTE & ",#Slovenie:" & QUOTE & QUOTE & "]  ] ,#Game3:[#who:[#Slovenie:" & QUOTE & QUOTE & ",#Spanje:" & QUOTE & QUOTE & "]     ] ,#Game4:[#who:[#Noorwegen:" & QUOTE & QUOTE & ",#Joegoslavie:" & QUOTE & QUOTE & "]] ,#Game5:[#who:[#Joegoslavie:" & QUOTE & QUOTE & ",#Spanje:" & QUOTE & QUOTE & "]      ] ,#Game6:[#who:[#Slovenie:" & QUOTE & QUOTE & "   ,#Noorwegen:" & QUOTE & QUOTE & "]  ]],#groupD :[#Game1:[#who:[#Frankrijk:" & QUOTE & QUOTE & "  ,#Denemarken:" & QUOTE & QUOTE & "]] ,#Game2:[#who:[#Nederland:" & QUOTE & QUOTE & ",#Tsjechie:" & QUOTE & QUOTE & "]  ] ,#Game3:[#who:[#Tsjechie:" & QUOTE & QUOTE & ",#Frankrijk:" & QUOTE & QUOTE & "] ] ,#Game4:[#who:[#Denemarken:" & QUOTE & QUOTE & ",#Nederland:" & QUOTE & QUOTE & "] ] ,#Game5:[#who:[#Denemarken:" & QUOTE & QUOTE & ",#Tsjechie:" & QUOTE & QUOTE & "]       ] ,#Game6:[#who:[#Frankrijk:" & QUOTE & QUOTE & "  ,#Nederland:" & QUOTE & QUOTE & "]  ]] ]" into field "SaveList"
  79.   put field("SaveList") & RETURN & "FinalsPlayList = [ [" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "] ]" into field "SaveList"
  80.   put field("SaveList") & RETURN & "FinalsTeam = [ [" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "],[" & QUOTE & QUOTE & "," & QUOTE & QUOTE & "] ]" into field "SaveList"
  81.   put field("saveList") & RETURN & "end" into field "Savelist"
  82. end
  83.