home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 9 / cdrt09.iso / mac / UTAHDEMO / SHARED.DIR / 00745_Script_745 < prev    next >
Text File  |  1995-01-13  |  2KB  |  50 lines
  1. -- set up plan nav buttons
  2. on setUpPlanNav
  3.   global buttonPressed
  4.   
  5.   puppetSprite 22, TRUE
  6.   puppetSprite 23, TRUE
  7.   puppetSprite 24, TRUE
  8.  
  9.  
  10. if (the type of sprite 23 = 1) then
  11.   if rollover (23) then
  12.     if (buttonPressed = 5) and (the stillDown) then
  13.       set the castNum of sprite (23) to the number of cast "prev down"
  14.     else if (the stillDown) then 
  15.       set the castNum of sprite (23) to the number of cast "prev up"
  16.     else
  17.       set the castNum of sprite (23) to the number of cast "prev sel"
  18.     end if
  19.   else
  20.     set the castNum of sprite (23) to the number of cast "prev up"
  21.   end if
  22. end if
  23.  
  24. if (the type of sprite 24 = 1) then 
  25.   if rollover (24) then
  26.     if (buttonPressed = 6) and (the stillDown) then
  27.       set the castNum of sprite (24) to the number of cast "next down"
  28.     else if (the stillDown) then 
  29.       set the castNum of sprite (24) to the number of cast "next up"
  30.     else
  31.       set the castNum of sprite (24) to the number of cast "next sel"
  32.     end if
  33.   else
  34.     set the castNum of sprite (24) to the number of cast "next up"
  35.   end if
  36. end if
  37.  
  38. if (the type of sprite 22 = 1) then
  39.   if rollover (22) then
  40.     if (buttonPressed = 1) and (the stillDown) then
  41.       set the castNum of sprite (22) to the number of cast "return down"
  42.     else if (the stillDown) then 
  43.       set the castNum of sprite (22) to the number of cast "return up"
  44.     else
  45.       set the castNum of sprite (22) to the number of cast "return sel"
  46.     end if
  47.   else
  48.     set the castNum of sprite (22) to the number of cast "return up"
  49.   end if
  50. end if