PC World 2002 December/PCWorld_2002-12_cd.bin/Software/Komercni/Krtek/MOVIE/ROZDILY.DXR/Internal_1.ls

Text File | 2002-10-07 | 576 b | 33 lines

global gMovieOn, gAuta, gBodovani, gMotylLeti, gZvukOn

on prepareMovie
  prepareMovieShared()
end

on startMovie
  if getOne(the actorList, gAuta) then
    deleteOne(the actorList, gAuta)
  end if
end

on novaHra
  gZvukOn = 0
  go(1)
  go("start")
  if windowPresent("stavHry") then
    tell window("stavHry")
      gBodovani.ini()
    end tell
  end if
end

on stopMovie
  if getOne(the actorList, gAuta) then
    deleteOne(the actorList, gAuta)
  end if
  if getOne(the actorList, gMotylLeti) then
    deleteOne(the actorList, gMotylLeti)
  end if
  StopMovieShared()
end