home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / GameLib.dcr / 00004_ButtonSteuerung.ls < prev    next >
Encoding:
Text File  |  2001-08-24  |  1.7 KB  |  79 lines
  1. on HdleMouseDown me
  2.   global _Kanal
  3.   _Kanal = me.spriteNum
  4.   tell the stage
  5.     nam = sprite(_Kanal).member.name
  6.     if the last char in nam <> "I" then
  7.       delete char -30000 of nam
  8.       repeat while the mouseDown
  9.         if rollover(_Kanal) then
  10.           sprite(_Kanal).member = member(nam & "G")
  11.         else
  12.           sprite(_Kanal).member = member(nam & "A")
  13.         end if
  14.         updateStage()
  15.       end repeat
  16.       sprite(_Kanal).member = member(nam & "A")
  17.     end if
  18.   end tell
  19. end
  20.  
  21. on HdleButtonEnter me
  22.   global _Kanal, _NamKanal
  23.   _Kanal = me.spriteNum
  24.   tell the stage
  25.     nam = sprite(_Kanal).member.name
  26.   end tell
  27.   _NamKanal = nam
  28.   if the last char in nam = "I" then
  29.     _NamKanal = EMPTY
  30.     _Kanal = 0
  31.   else
  32.     nam = nam.char[1..nam.chars.count - 1]
  33.     tell the stage
  34.       sprite(_Kanal).member = nam & "R"
  35.     end tell
  36.     HdleCursorwechsel("Button")
  37.   end if
  38. end
  39.  
  40. on HdleButtonLeave me
  41.   global _Kanal, _NamKanal
  42.   if _Kanal = me.spriteNum then
  43.     HdleCursorwechsel("back")
  44.     if not (_NamKanal = EMPTY) then
  45.       tell the stage
  46.         nam = sprite(_Kanal).member.name
  47.       end tell
  48.       nam = nam.char[1..nam.chars.count - 1]
  49.       tell the stage
  50.         sprite(_Kanal).member = nam & "A"
  51.       end tell
  52.       _aktPage = EMPTY
  53.       _NamKanal = EMPTY
  54.       _Kanal = 0
  55.     end if
  56.   end if
  57. end
  58.  
  59. on HdleButtonwithIn me
  60.   global _Kanal, _NamKanal
  61.   if _Kanal = 0 then
  62.     _Kanal = me.spriteNum
  63.     tell the stage
  64.       nam = sprite(_Kanal).member.name
  65.     end tell
  66.     _NamKanal = nam
  67.     if the last char in nam = "I" then
  68.       _NamKanal = EMPTY
  69.       _Kanal = 0
  70.     else
  71.       nam = nam.char[1..nam.chars.count - 1]
  72.       tell the stage
  73.         sprite(_Kanal).member = nam & "R"
  74.       end tell
  75.       HdleCursorwechsel("Button")
  76.     end if
  77.   end if
  78. end
  79.