The Weather Channel - Everything Weather/TheWeatherChannel-EverythingWeather-Win31.iso/twcia/winters/shared.dxr/00101.ls

Text File | 1995-08-23 | 1.5 KB | 66 lines

on globalButtonInit start, end
  global lastChannel
  set lastChannel to 0
  repeat with i = start to end
    puppetSprite(i, 1)
  end repeat
end

on freeSprites start, end
  repeat with i = start to end
    puppetSprite(i, 0)
  end repeat
end

on globalRollOver start, end
  global lastChannel, backString, movieLocation
  if lastChannel <> 0 then
    if rollOver(lastChannel) then
      exit
    else
      set the castNum of sprite lastChannel to the castNum of sprite lastChannel - 1
      set lastChannel to 0
    end if
  end if
  repeat with i = start to end
    if rollOver(i) then
      set the castNum of sprite i to the castNum of sprite i + 1
      updateStage()
      set lastChannel to i
      exit
    end if
  end repeat
end

on showSearch
  global searchWindow, CDPath
  if objectp(searchWindow) then
    forget(searchWindow)
  end if
  set searchRect to rect(88, 51, 552, 429)
  set searchWindow to window "search"
  set the rect of searchWindow to searchRect
  set the fileName of searchWindow to CDPath & "search\search"
  set the titleVisible of searchWindow to 0
  set the modal of searchWindow to 1
  if the castNum of sprite 16 <> 0 then
    set the movieRate of sprite 16 to 0
  end if
  open(searchWindow)
end

on link where
  global searchWindow, linkString, backString, movieLocation
  if objectp(searchWindow) then
    forget(searchWindow)
  end if
  if where = EMPTY then
    exit
  end if
  set linkString to where
  set backString to movieLocation
  set movieLocation to linkString
  clearPuppets()
  setLink()
end