home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / crmuspl.dir / 00018_Script_18 < prev    next >
Text File  |  1996-05-26  |  1KB  |  46 lines
  1. on getColorSound
  2.   global RGBList
  3.   set colorInfo = the text of cast "colorCodes"
  4.   repeat with i = 1 to the number of lines in colorInfo
  5.     set redID = item 1 of line i of  colorInfo
  6.     set greenID = item 2 of line i of  colorInfo
  7.     set blueID =  item 3 of line i of colorInfo
  8.     
  9.     if RGBList = [redID,greenID,blueID] then
  10.       set sound = item 4 of line i of colorInfo
  11.       puppetSound sound
  12.     end if
  13.   end repeat
  14.   
  15. end 
  16.  
  17. on getColorCheck
  18.   global RGBList,fingerCursor
  19.   set colorInfo = the text of cast "colorCodes"
  20.   set test = 0
  21.   
  22.   
  23.   repeat with i = 1 to the number of lines in colorInfo
  24.     set redID = item 1 of line i of  colorInfo
  25.     set greenID = item 2 of line i of  colorInfo
  26.     set blueID =  item 3 of line i of colorInfo
  27.     
  28.     if RGBList = [redID,greenID,blueID] then
  29.       set test = test + 1
  30.     end if
  31.   end repeat
  32.   
  33.   if test = 0 then
  34.     set the cursor of sprite 4 to -1
  35.   else
  36.     set the cursor of sprite 4 to fingerCursor
  37.   end if
  38.   
  39.   
  40. end 
  41.  
  42.  
  43.  
  44.  
  45.  
  46.