home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / shared.dir / 31999_Script_31999 < prev    next >
Text File  |  1995-06-14  |  2KB  |  114 lines
  1.  
  2.  
  3.  
  4.  
  5. -- MOVIE SCRIPT BACKUP COPY --
  6.  
  7. --
  8. -- òò -- Lingo coding by David K. Anderson and Terry R. Schussler -- òò --
  9. --
  10. --
  11. --=============================================--
  12. --      SUPPORT.DIR movie script handlers      --
  13. --=============================================--
  14. --
  15. --on startmovie
  16. --  global gserviceList, gstartVar, gPressed
  17. --  set the preLoadEventAbort = TRUE
  18. --  set the preLoadRAM = FALSE
  19. --  put ["conference","on-line","access","training","developer","consulting","major","user",¼
  20. --"international","education","reseller"] into gserviceList
  21. --  set the visible of sprite 17 to true
  22. --  puppetSprite 17, TRUE
  23. --  set gstartVar = 0
  24. --  put 0 into gPressed
  25. --  global cAudioLevel
  26. --  put 46 into cAudioLevel -- channel for volume indicator
  27. --  global tProductSelect, tSectionSelect, tFirsttimeFlag
  28. --  global soundlevel
  29. --  if voidP(soundlevel) then put 3 into soundlevel
  30. --  global lastSprite
  31. --  put 0 into lastSprite
  32. --end
  33. --
  34. -- this routine handles a Support button selection and jumps to the appropriate frame if necessary
  35. --on supportSelect
  36. --  global tProductPressed, tSectionPressed, tProductSelect, tSectionSelect, tFirsttimeFlag
  37. --  global gpressed,gserviceList, gstartVar
  38. --  puppetSound "click"
  39. --  put the clickOn into whichSprite
  40. --  set gpressed = whichSprite
  41. --  puppetSprite whichSprite, TRUE
  42. --  set the castnum of sprite whichSprite = the number of cast ("Button " & string(whichsprite - 1) && "down")
  43. --  repeat with n = 2 to 12
  44. --    if n <> whichSprite then puppetSprite n, FALSE
  45. --  end repeat
  46. --  updateStage
  47. --  go to frame getAt(gservicelist,whichSprite-1) 
  48. --end supportSelect
  49. --
  50. --
  51. --on changeHotspot
  52. --  --  Capture the sprite info before anything can change the value
  53. --  put the mouseCast into whichCast
  54. --  put the clickOn into whichSprite
  55. --  puppetsprite whichSprite, 1
  56. --  put (the name of cast whichCast) into myName
  57. --  put the last word of myName into myNum
  58. --  put not value(myNum) into word (the number of words in myName) of myName
  59. --  set the castNum of sprite whichSprite = cast myName
  60. --  updatestage
  61. --end changeHotspot
  62. --
  63. --
  64. --
  65. -- -- THIS IS THE END OF THE LINGO SCRIPTS
  66. --
  67. --
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108. on ramtester
  109.   if (the mousedown) and (the key = RETURN) then
  110.     puppetsound "Zed"
  111.     updatestage
  112.   end if
  113. end ramtester
  114.