home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 95 / WIN95_CD.ISO / adds / medium / shared.dir / 00673.ls < prev    next >
Encoding:
Text File  |  1995-05-30  |  2.2 KB  |  66 lines
  1. on HiliteButton
  2.   global button, newCast, oldCast
  3.   set button to the clickOn
  4.   if the mouseCast = the number of cast "ICON A-Z" then
  5.     set newCast to the number of cast "ICON A-Z hilite"
  6.     set oldCast to the number of cast "ICON A-Z"
  7.     HiliteWhich("klick")
  8.   else
  9.     if the mouseCast = the number of cast "ICON Auge" then
  10.       set newCast to the number of cast "ICON Auge hilite"
  11.       set oldCast to the number of cast "ICON Auge"
  12.       HiliteWhich("klick")
  13.     else
  14.       if the mouseCast = the number of cast "ICON Info" then
  15.         set newCast to the number of cast "ICON Info hilite"
  16.         set oldCast to the number of cast "ICON Info"
  17.         HiliteWhich("klick")
  18.       else
  19.         if the mouseCast = the number of cast "ICON PfeilR" then
  20.           set newCast to the number of cast "ICON PfeilR hilite"
  21.           set oldCast to the number of cast "ICON PfeilR"
  22.           HiliteWhich("klick")
  23.         else
  24.           if the mouseCast = the number of cast "ICON PfeilL" then
  25.             set newCast to the number of cast "ICON PfeilL hilite"
  26.             set oldCast to the number of cast "ICON PfeilL"
  27.             HiliteWhich("klick")
  28.           else
  29.             if the mouseCast = the number of cast "ICON maik├ñfer" then
  30.               set newCast to the number of cast "ICON maik├ñfer hilite2"
  31.               set oldCast to the number of cast "ICON maik├ñfer"
  32.               HiliteWhich("marimba")
  33.             else
  34.               if the mouseCast = the number of cast "ICON maik├ñfer2" then
  35.                 set newCast to the number of cast "ICON maik├ñfer hilite"
  36.                 set oldCast to the number of cast "ICON maik├ñfer2"
  37.                 HiliteWhich("marimba")
  38.               end if
  39.             end if
  40.           end if
  41.         end if
  42.       end if
  43.     end if
  44.   end if
  45. end
  46.  
  47. on HiliteWhich sound
  48.   global button, newCast, oldCast
  49.   puppetSound(sound)
  50.   set the puppet of sprite button to 1
  51.   set the castNum of sprite button to newCast
  52.   updateStage()
  53.   repeat while the mouseCast = newCast
  54.     if the mouseCast <> newCast then
  55.       exit repeat
  56.     end if
  57.     if the mouseDown = 0 then
  58.       exit repeat
  59.     end if
  60.   end repeat
  61.   wait(4)
  62.   set the castNum of sprite button to oldCast
  63.   set the puppet of sprite button to 0
  64.   updateStage()
  65. end
  66.