home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00001_main rollover script.ls next >
Encoding:
Text File  |  1998-06-17  |  1.5 KB  |  51 lines
  1. --on exitFrame
  2. --  global gLastSprite, gTimer
  3. --  
  4. --  if rollover(23) then --check for restart 
  5. --    puppetsprite 23,true
  6. --    set the castnum of sprite 23 to 65
  7. --  else
  8. --    if not(the mouseDown) then puppetsprite 23, false
  9. --  end if
  10. --  
  11. --  repeat with i = 11 to 16 -- button channels
  12. --    if rollover(i) then
  13. --      put i into RollSprite
  14. --      if RollSprite = gLastSprite then
  15. --        exit repeat
  16. --      else       
  17. --        puppetSound 2, getAt(["qv210.aif","p70.aif","v70.aif","p50.aif","v50.aif","140.aif"], i-10)
  18. --        puppetsprite i,true
  19. --        puppetsprite 10,true
  20. --        puppetsprite 9,true
  21. --        put the castnum of sprite(i) into lastcast
  22. --        set the castnum of sprite(i) to lastcast + 1
  23. --        updateStage 
  24. --        set the castnum of sprite(9) to lastcast - 1
  25. --        set the castnum of sprite(10) to lastcast - 2
  26. --        puppetTransition 26, 1, 1
  27. --        exit repeat
  28. --      end if
  29. --    end if
  30. --  end repeat
  31. --  
  32. --  if gLastSprite<>RollSprite then
  33. --    puppetsprite gLastSprite, false
  34. --    updateStage    
  35. --    if not(rollover(gLastSprite)) then 
  36. --      --      puppetsprite 10, false
  37. --      --      puppetsprite 9, false
  38. --      --      puppetTransition 01, 1, 20 
  39. --    end if
  40. --    put RollSprite into gLastSprite
  41. --  end if  
  42. --  
  43. --  if (the ticks > gTimer + 60*60) and (the lastEvent > 60*60)then
  44. --    if the castNum of sprite 48 then pauseMovie 
  45. --    if soundBusy(1) then sound stop 1
  46. --    clearSprites
  47. --    go "Splash1" 
  48. --  else        
  49. --    go to the frame    
  50. --  end if
  51. --end