home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Option.dxr / Intern_5_ButtonG.ls < prev    next >
Encoding:
Text File  |  2003-07-23  |  661 b   |  36 lines
  1. global _Kanal
  2.  
  3. on mouseEnter me
  4.   _Kanal = me.spriteNum
  5.   sprite(_Kanal).cursor = 280
  6. end
  7.  
  8. on mouseWithin me
  9.   if _Kanal = 0 then
  10.     _Kanal = me.spriteNum
  11.     sprite(_Kanal).cursor = 280
  12.   end if
  13. end
  14.  
  15. on mouseLeave
  16.   sprite(_Kanal).cursor = -1
  17.   _Kanal = 0
  18. end
  19.  
  20. on mouseDown me
  21.   _Kanal = me.spriteNum
  22.   nam = sprite(_Kanal).member.name
  23.   delete char -30000 of nam
  24.   Audioint("knopf", 1, 0)
  25.   repeat while the mouseDown
  26.     if rollover(_Kanal) then
  27.       sprite(_Kanal).member = member(nam & "G")
  28.     else
  29.       sprite(_Kanal).member = member(nam & "A")
  30.     end if
  31.     updateStage()
  32.   end repeat
  33.   sprite(_Kanal).member = member(nam & "A")
  34.   updateStage()
  35. end
  36.