ATComputers Catalog/AutoCont+ATcomp.bin/Data/Funktion.dcr/00003_Navigation.ls

Text File | 2001-08-16 | 4.8 KB | 227 lines

on HdleSeiteninit
  global _warte, _FrameNum, _AktSeite, _NamKanal, _BlockFertig, _Kanal, _Audioticks
  tell the stage
    _BlockFertig = 0
    _warte = 1
    _FrameNum = 0
    _NamKanal = EMPTY
    _Kanal = 0
    _AktSeite = the frameLabel
    _Audioticks = EMPTY
    SeitenZusatz()
    repeat with i = 80 to 108
      sprite(i).visible = 0
      sprite(i).puppet = 0
    end repeat
    sprite(13).member = "weiter_A"
  end tell
end

on HdleSeiteeinrichten
  global _AktSeite, _SBLauf, _TasteFrei
  if _SBLauf then
    SBL = "# "
  else
    SBL = "  "
  end if
  tell the stage
    nam = the movieName
  end tell
  X = SBL & " " & nam & " / " & _AktSeite
  tell the stage
    member("DBuch", "Steuerung").text = X
  end tell
end

on HdleSeiteErfassen
  global _BlockFertig
  _BlockFertig = 1
  tell the stage
    sprite(13).member = "weiter_K"
  end tell
end

on HdleSeiteSchleife
  global _SBLauf
  if _SBLauf then
    HdleKanalZuruecksetzen()
    tell the stage
      go(#next)
    end tell
  else
    tell the stage
      go(the frame)
    end tell
  end if
end

on HdleButtonDown me
  global _Kanal
  _Kanal = me.spriteNum
  tell the stage
    nam = sprite(_Kanal).member.name
    if the last char in nam <> "I" then
      xo = sprite(_Kanal).locH
      yo = sprite(_Kanal).locV
      repeat while the mouseDown
        if rollover(_Kanal) then
          sprite(_Kanal).locH = xo + 1
          sprite(_Kanal).locV = yo + 1
        else
          sprite(_Kanal).locH = xo
          sprite(_Kanal).locV = yo
        end if
        updateStage()
      end repeat
      sprite(_Kanal).locH = xo
      sprite(_Kanal).locV = yo
      updateStage()
    end if
  end tell
end

on HdleMouseDown me
  global _Kanal
  _Kanal = me.spriteNum
  tell the stage
    nam = sprite(_Kanal).member.name
    if the last char in nam <> "I" then
      delete char -30000 of nam
      repeat while the mouseDown
        if rollover(_Kanal) then
          sprite(_Kanal).member = member(nam & "G")
        else
          sprite(_Kanal).member = member(nam & "A")
        end if
        updateStage()
      end repeat
      sprite(_Kanal).member = member(nam & "A")
      updateStage()
    end if
  end tell
end

on HdleButtonEnter me
  global _Kanal, _NamKanal
  _Kanal = me.spriteNum
  tell the stage
    nam = sprite(_Kanal).member.name
  end tell
  _NamKanal = nam
  if the last char in nam = "I" then
    _NamKanal = EMPTY
    _Kanal = 0
  else
    nam = nam.char[1..nam.chars.count - 1]
    tell the stage
      sprite(_Kanal).member = nam & "R"
    end tell
    HdleCursorwechsel(_Kanal, "Hand")
  end if
end

on HdleButtonLeave me
  global _Kanal, _NamKanal, _BlockFertig
  if _Kanal = me.spriteNum then
    HdleCursorwechsel(_Kanal, 0)
    if not (_NamKanal = EMPTY) then
      tell the stage
        nam = sprite(_Kanal).member.name
      end tell
      nam = nam.char[1..nam.chars.count - 1]
      if (nam = "weiter_") and _BlockFertig then
        tell the stage
          sprite(_Kanal).member = nam & "K"
        end tell
      else
        tell the stage
          sprite(_Kanal).member = nam & "A"
        end tell
      end if
      _aktPage = EMPTY
      _NamKanal = EMPTY
      _Kanal = 0
    end if
  end if
end

on HdleButtonwithIn me
  global _Kanal, _NamKanal
  if _Kanal = 0 then
    _Kanal = me.spriteNum
    tell the stage
      nam = sprite(_Kanal).member.name
    end tell
    _NamKanal = nam
    if the last char in nam = "I" then
      _NamKanal = EMPTY
      _Kanal = 0
    else
      nam = nam.char[1..nam.chars.count - 1]
      tell the stage
        sprite(_Kanal).member = nam & "R"
      end tell
      HdleCursorwechsel(_Kanal, "Hand")
    end if
  end if
end

on HdleBlendDown me
  global _Kanal
  _Kanal = me.spriteNum
  tell the stage
    nam = sprite(_Kanal).member.name
    if the last char in nam <> "I" then
      delete char -30000 of nam
      repeat while the mouseDown
        if rollover(_Kanal) then
          sprite(_Kanal).blend = 100
          sprite(_Kanal).member = member(nam & "G")
        else
          sprite(_Kanal).blend = 0
        end if
        updateStage()
      end repeat
      sprite(_Kanal).puppet = 0
    end if
  end tell
end

on HdleBlendEnter me
  global _Kanal, _NamKanal
  _Kanal = me.spriteNum
  HdleCursorwechsel(_Kanal, "Hand")
  tell the stage
    nam = sprite(_Kanal).member.name
    _NamKanal = nam
    delete char -30000 of nam
    sprite(_Kanal).member = member(nam & "R")
    sprite(_Kanal).blend = 100
  end tell
end

on HdleBlendLeave me
  global _Kanal, _NamKanal
  HdleCursorwechsel(_Kanal, 0)
  if not (_Kanal = 0) then
    tell the stage
      sprite(_Kanal).blend = 0
    end tell
    _Kanal = 0
    _NamKanal = EMPTY
  end if
end

on HdleKanalZuruecksetzen
  tell the stage
    SimHalt()
    repeat with i = 25 to 78
      puppetSprite(i, 0)
      tell sprite(1)
        HdleCursorwechsel(i, 0)
      end tell
      sprite(i).visible = 1
    end repeat
  end tell
end