home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / calndr1 / shared.dxr / 00101.ls next >
Encoding:
Text File  |  1995-08-25  |  2.4 KB  |  108 lines
  1. on globalButtonInit start, end
  2.   global lastChannel
  3.   set lastChannel to 0
  4.   repeat with i = start to end
  5.     puppetSprite(i, 1)
  6.   end repeat
  7. end
  8.  
  9. on freeSprites start, end
  10.   repeat with i = start to end
  11.     puppetSprite(i, 0)
  12.   end repeat
  13. end
  14.  
  15. on globalRollOver start, end
  16.   global lastChannel, backString, movieLocation
  17.   if lastChannel <> 0 then
  18.     if rollOver(lastChannel) then
  19.       exit
  20.     else
  21.       set the castNum of sprite lastChannel to the castNum of sprite lastChannel - 1
  22.       set lastChannel to 0
  23.     end if
  24.   end if
  25.   repeat with i = start to end
  26.     if rollOver(i) then
  27.       set the castNum of sprite i to the castNum of sprite i + 1
  28.       updateStage()
  29.       set lastChannel to i
  30.       exit
  31.     end if
  32.   end repeat
  33. end
  34.  
  35. on showSearch
  36.   global searchWindow, CDPath
  37.   if objectp(searchWindow) then
  38.     forget(searchWindow)
  39.   end if
  40.   set searchRect to rect(88, 51, 552, 429)
  41.   set searchWindow to window "search"
  42.   set the rect of searchWindow to searchRect
  43.   set the fileName of searchWindow to CDPath & "search\search"
  44.   set the titleVisible of searchWindow to 0
  45.   set the modal of searchWindow to 1
  46.   open(searchWindow)
  47. end
  48.  
  49. on link where
  50.   global searchWindow, linkString, backString, CDPath, OnLinePath, mapNumber, calPath
  51.   if objectp(searchWindow) then
  52.     forget(searchWindow)
  53.   end if
  54.   if where = EMPTY then
  55.     exit
  56.   end if
  57.   set linkString to where
  58.   set backString to "calndr1 0 0 0 0"
  59.   cleanUp()
  60.   set name to word 1 of linkString
  61.   if name = "climate" then
  62.     go(value(word 2 of linkString), CDPath & name & "\" & name)
  63.   else
  64.     go(1, CDPath & name & "\" & name)
  65.   end if
  66.   exit
  67. end
  68.  
  69. on cleanUp
  70.   global CDPath, HDPath, calPath, OnLinePath, linkString, backString, linkFlag
  71.   set temp1 to CDPath
  72.   set temp2 to HDPath
  73.   set temp3 to linkString
  74.   set temp4 to backString
  75.   set temp5 to calPath
  76.   set temp6 to OnLinePath
  77.   set temp7 to linkFlag
  78.   clearGlobals()
  79.   set CDPath to temp1
  80.   set HDPath to temp2
  81.   set linkString to temp3
  82.   set backString to temp4
  83.   set calPath to temp5
  84.   set OnLinePath to temp6
  85.   set linkFlag to temp7
  86. end
  87.  
  88. on doHelp
  89.   global CDPath, calPath
  90.   repeat while the mouseDown
  91.     nothing()
  92.   end repeat
  93.   set the volume of sprite 42 to 232
  94.   play frame 20
  95. end
  96.  
  97. on killHelp
  98.   global calPath
  99.   cursor(4)
  100.   repeat with i = 1 to 31
  101.     removeMinder(i, 0)
  102.   end repeat
  103.   minderFinder()
  104.   cursor(-1)
  105.   set the volume of sprite 42 to 236
  106.   play done
  107. end
  108.