home *** CD-ROM | disk | FTP | other *** search
/ Human & Space in Asia / ARIF_ASCI.ISO / pc / arif.dir / 00439.ls < prev    next >
Encoding:
Text File  |  1996-09-25  |  2.1 KB  |  69 lines
  1. on exitFrame
  2.   global WhichGroup, WhichFoto, ThereisF, ThereisA, oldcast, ThereisS, biletvar, Volum, ThereisT, oncekibilet, BiletSay, gecensay
  3.   set FotName to FotoName(WhichGroup, WhichFoto)
  4.   set gecensay to gecensay + 1
  5.   if soundBusy(1) then
  6.     set the volume of sound 2 to Volum
  7.     puppetSound(0)
  8.   end if
  9.   puppetSprite(1, 1)
  10.   puppetSprite(5, 1)
  11.   puppetSprite(6, 1)
  12.   puppetSprite(7, 1)
  13.   puppetSprite(10, 1)
  14.   puppetSprite(11, 1)
  15.   puppetSprite(12, 1)
  16.   set the locH of sprite 12 to 320
  17.   set the locV of sprite 12 to 240
  18.   set the cursor of sprite 2 to 200
  19.   set the cursor of sprite 3 to 200
  20.   set the cursor of sprite 4 to 200
  21.   set ThereisF to ThereisFilm(FotName)
  22.   set ThereisA to ThereisArif(FotName)
  23.   set ThereisS to ThereisSes(FotName)
  24.   set ThereisT to ThereisText(FotName)
  25.   set the visible of sprite 6 to 0
  26.   set the visible of sprite 7 to 0
  27.   set the visible of sprite 10 to 0
  28.   set the visible of sprite 11 to 0
  29.   set the visible of sprite 12 to 0
  30.   if ((random(20) = 1) and not ThereisA and (oncekibilet <> FotName) and (BiletSay < 10)) or ((gecensay > 50) and (BiletSay < 10) and not ThereisA) then
  31.     set gecensay to 0
  32.     set biletvar to 1
  33.     set oncekibilet to FotName
  34.   else
  35.     set biletvar to 0
  36.   end if
  37.   set the cursor of sprite 12 to 0
  38.   DuzeltCursor(7)
  39.   DuzeltCursor(6)
  40.   set the castNum of sprite 6 to the number of cast "SesCast"
  41.   set the castNum of sprite 11 to the number of cast "Vazo"
  42.   if ThereisA then
  43.     set the castNum of sprite 6 to the number of cast ("sf" & FotName)
  44.   end if
  45.   if ThereisT then
  46.     set the castNum of sprite 6 to the number of cast "TextCast"
  47.     set the castNum of sprite 10 to the number of cast ("t" & FotName)
  48.   end if
  49.   set the castNum of sprite 7 to the number of cast "FilmCast"
  50.   set the castNum of sprite 1 to FotoCastNum(WhichGroup, WhichFoto)
  51.   set oldcast to 0
  52.   if FotName = "2519 15" then
  53.     puppetSprite(1, 0)
  54.     go("CadΓÇ║rKent")
  55.   end if
  56.   if FotName = "2521 61" then
  57.     puppetSprite(1, 0)
  58.     go("Eurovil")
  59.   end if
  60.   if FotName = "2521 02" then
  61.     puppetSprite(1, 0)
  62.     go("FaysalCami")
  63.   end if
  64.   if FotName = "2519 62" then
  65.     puppetSprite(1, 0)
  66.     go("CantarMantar")
  67.   end if
  68. end
  69.