home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / vision.dir / 00477_Script_477 < prev    next >
Text File  |  1995-06-14  |  649b  |  29 lines
  1. global gChartNum
  2.  
  3. on mouseDown
  4.   
  5.   puppetSprite 22, 1
  6.   puppetSprite 6, 1
  7.   set the castnum of sprite 22 = ¼
  8.     the number of cast  (the name of cast(the castnum of sprite 22) && "lit")
  9.   
  10.   if gChartNum = 3 then
  11.     set gChartNum = 1
  12.   else
  13.     set gChartNum = gChartNum + 1
  14.   end if
  15.   
  16. end mouseDown
  17.  
  18. on mouseUp
  19.   
  20.   set the castnum of sprite 22 = ¼
  21.     the number of cast  (word 1 of the name of cast(the castnum of sprite 22)) 
  22.   set the castnum of sprite 6 = ¼
  23.     the number of cast(the name of cast ("StratChart" && string(gChartNum)))
  24. --  updatestage
  25.   
  26.   puppetSprite 22, 0
  27. --  puppetSprite 6, 0
  28.   
  29. end mouseup