Knudde EK Editie/CD1.iso/schema.dxr/Script_3.ls

Text File | 2000-02-24 | 5.9 KB | 104 lines

on SetGameData who
  global ActivePlayList
  cursor(4)
  Thuis = "Game" & who & "Home"
  Uit = "Game" & who & "Out"
  Player1 = getPropAt(getAt(getAt(ActivePlayList, who), 1), 1)
  Player2 = getPropAt(getAt(getAt(ActivePlayList, who), 1), 2)
  if (integerp(value(field(Thuis))) = 0) or (integerp(value(field(Uit))) = 0) or (integerp(value(field(Thuis))) = EMPTY) or (integerp(value(field(Uit))) = EMPTY) or (value(field(Thuis)) < 0) or (value(field(Uit)) < 0) then
    alert("Wel een geldige uitslag invoeren A.U.B. !!!")
  else
    setProp(getAt(getAt(ActivePlayList, who), 1), Player1, integer(value(field(Thuis))))
    setProp(getAt(getAt(ActivePlayList, who), 1), Player2, integer(value(field(Uit))))
    member(Thuis).editable = 0
    member(Uit).editable = 0
    changeData(1, Player1, Player2, Thuis, Uit)
    sprite(who + 54).member = 82
    PutPouleData(#add)
  end if
  cursor(-1)
end

on deleteGameData who
  global ActivePlayList
  cursor(4)
  Thuis = "Game" & who & "Home"
  Uit = "Game" & who & "Out"
  Player1 = getPropAt(getAt(getAt(ActivePlayList, who), 1), 1)
  Player2 = getPropAt(getAt(getAt(ActivePlayList, who), 1), 2)
  if (integerp(value(field(Thuis))) = 0) or (integerp(value(field(Thuis))) = 0) then
  else
    changeData(-1, Player1, Player2, Thuis, Uit)
    setProp(getAt(getAt(ActivePlayList, who), 1), Player1, EMPTY)
    setProp(getAt(getAt(ActivePlayList, who), 1), Player2, EMPTY)
    put EMPTY into field Thuis
    put EMPTY into field Uit
    member(Thuis).editable = 1
    member(Uit).editable = 1
    PutPouleData(#Del)
    sprite(who + 54).member = 81
  end if
  cursor(-1)
end

on changeData x, Player1, Player2, Thuis, Uit
  global ActiveGrouplist
  setProp(getProp(ActiveGrouplist, Player1), #P, getProp(getProp(ActiveGrouplist, Player1), #P) + (1 * x))
  setProp(getProp(ActiveGrouplist, Player2), #P, getProp(getProp(ActiveGrouplist, Player2), #P) + (1 * x))
  if value(field(Thuis)) > value(field(Uit)) then
    setProp(getProp(ActiveGrouplist, Player1), #W, getProp(getProp(ActiveGrouplist, Player1), #W) + (1 * x))
    setProp(getProp(ActiveGrouplist, Player1), #PO, getProp(getProp(ActiveGrouplist, Player1), #PO) + (3 * x))
    setProp(getProp(ActiveGrouplist, Player1), #GF, getProp(getProp(ActiveGrouplist, Player1), #GF) + (value(field(Thuis)) * x))
    setProp(getProp(ActiveGrouplist, Player1), #GT, getProp(getProp(ActiveGrouplist, Player1), #GT) + (value(field(Uit)) * x))
    setProp(getProp(ActiveGrouplist, Player2), #L, getProp(getProp(ActiveGrouplist, Player2), #L) + (1 * x))
    setProp(getProp(ActiveGrouplist, Player2), #PO, getProp(getProp(ActiveGrouplist, Player2), #PO) + (0 * x))
    setProp(getProp(ActiveGrouplist, Player2), #GF, getProp(getProp(ActiveGrouplist, Player2), #GF) + (value(field(Uit)) * x))
    setProp(getProp(ActiveGrouplist, Player2), #GT, getProp(getProp(ActiveGrouplist, Player2), #GT) + (value(field(Thuis)) * x))
  else
    if value(field(Thuis)) = value(field(Uit)) then
      setProp(getProp(ActiveGrouplist, Player1), #d, getProp(getProp(ActiveGrouplist, Player1), #d) + (1 * x))
      setProp(getProp(ActiveGrouplist, Player1), #PO, getProp(getProp(ActiveGrouplist, Player1), #PO) + (1 * x))
      setProp(getProp(ActiveGrouplist, Player1), #GF, getProp(getProp(ActiveGrouplist, Player1), #GF) + (value(field(Thuis)) * x))
      setProp(getProp(ActiveGrouplist, Player1), #GT, getProp(getProp(ActiveGrouplist, Player1), #GT) + (value(field(Uit)) * x))
      setProp(getProp(ActiveGrouplist, Player2), #d, getProp(getProp(ActiveGrouplist, Player2), #d) + (1 * x))
      setProp(getProp(ActiveGrouplist, Player2), #PO, getProp(getProp(ActiveGrouplist, Player2), #PO) + (1 * x))
      setProp(getProp(ActiveGrouplist, Player2), #GF, getProp(getProp(ActiveGrouplist, Player2), #GF) + (value(field(Uit)) * x))
      setProp(getProp(ActiveGrouplist, Player2), #GT, getProp(getProp(ActiveGrouplist, Player2), #GT) + (value(field(Thuis)) * x))
    else
      if value(field(Thuis)) < value(field(Uit)) then
        setProp(getProp(ActiveGrouplist, Player1), #L, getProp(getProp(ActiveGrouplist, Player1), #L) + (1 * x))
        setProp(getProp(ActiveGrouplist, Player1), #PO, getProp(getProp(ActiveGrouplist, Player1), #PO) + (0 * x))
        setProp(getProp(ActiveGrouplist, Player1), #GF, getProp(getProp(ActiveGrouplist, Player1), #GF) + (value(field(Thuis)) * x))
        setProp(getProp(ActiveGrouplist, Player1), #GT, getProp(getProp(ActiveGrouplist, Player1), #GT) + (value(field(Uit)) * x))
        setProp(getProp(ActiveGrouplist, Player2), #W, getProp(getProp(ActiveGrouplist, Player2), #W) + (1 * x))
        setProp(getProp(ActiveGrouplist, Player2), #PO, getProp(getProp(ActiveGrouplist, Player2), #PO) + (3 * x))
        setProp(getProp(ActiveGrouplist, Player2), #GF, getProp(getProp(ActiveGrouplist, Player2), #GF) + (value(field(Uit)) * x))
        setProp(getProp(ActiveGrouplist, Player2), #GT, getProp(getProp(ActiveGrouplist, Player2), #GT) + (value(field(Thuis)) * x))
      end if
    end if
  end if
  updateStage()
end

on SaveData
  global MySave, GroupList, PlayList, FinalsPlayList, FinalsTeam
  if the machineType = 256 then
    MySavePlace = getOSDirectory() & "\" & "Knudde.PaW"
  else
    MySavePlace = getOSDirectory() & "Knudde.PaW"
  end if
  openFile(MySave, MySavePlace, 0)
  delete(MySave)
  createFile(MySave, MySavePlace)
  put EMPTY into field "SaveList"
  put "on LoadList" & RETURN & "global GroupList,PlayList,FinalsPlayList,FinalsTeam" into field "SaveList"
  put field("SaveList") & RETURN & "GroupList =" & GroupList into field "saveList"
  put field("SaveList") & RETURN & "PlayList =" & PlayList into field "saveList"
  put field("SaveList") & RETURN & "FinalsPlayList =" & FinalsPlayList into field "saveList"
  put field("SaveList") & RETURN & "FinalsTeam =" & FinalsTeam into field "saveList"
  put field("SaveList") & RETURN & "end" into field "saveList"
  openFile(MySave, MySavePlace, 0)
  writeString(MySave, field("SaveList"))
  closeFile(MySave)
end