The Weather Channel - Everything Weather/TheWeatherChannel-EverythingWeather-Win31.iso/twcia/sky/sky.dxr/00094.ls

Text File | 1995-08-22 | 603 b | 28 lines

on mouseDown
  global backString, CDPath, linkFlag, movieLocation
  set n to the clickOn
  set the castNum of sprite n to the castNum of sprite n + 1
  updateStage()
  sound close 1
  repeat while the mouseDown
    nothing()
  end repeat
  set the castNum of sprite 48 to 116
  resetSprites()
  if linkFlag then
    set linkFlag to 0
    link(backString)
    exit
  end if
  if the frame < 5 then
    cleanUp()
    go(1, CDPath & "mainmenu\mainmenu")
    exit
  end if
  set linkFlag to 0
  set backString to movieLocation
  set movieLocation to "sky 0 1 1 1"
  puppetTransition(4, 1, 1, 1)
  go(2)
end