on scrollerei
  global alterArtikel
  if the loch of sprite 47 > 600 then --wenn infofenster nichtda
    if rollOver(38) then
      repeat while rollOver(38) -- oben scrollen
        if the locV of sprite 17 < 67 then
          set the locV of sprite 18 = 1000
          repeat with foo = 1 to 2
            set the locV of sprite 17 = the locV of sprite 17 + 15
            set the locV of sprite 15 = the locV of sprite 15 + 15
            set the locV of sprite 32 = the locV of sprite 32 + 15
            set fooV2 = the locV of sprite 15 + 7
            if fooV2 > 121 then 
              set the locV of sprite 30 = 120
              set the height of sprite 30 = fooV2 -120
            else
              set the locV of sprite 30 = fooV2
              set the height of sprite 30 = 121 - fooV2
            end if
            updatestage
          end repeat
        end if
      end repeat
      set the locV of sprite 18 = the locV of sprite 17 - 2
      updatestage
    else
      if rollOver(39) then
        repeat while rollOver(39) -- unten scrollen
          if the locV of sprite 17 > -291 then
            set the locV of sprite 18 = 1000
            repeat with foo = 1 to 2
              set the locV of sprite 17 = the locV of sprite 17 - 15
              set the locV of sprite 15 = the locV of sprite 15 - 15
              set the locV of sprite 32 = the locV of sprite 32 - 15
              set fooV2 = the locV of sprite 15 + 7
              if fooV2 > 121 then 
                set the locV of sprite 30 = 120
                set the height of sprite 30 = fooV2 -120
              else
                set the locV of sprite 30 = fooV2
                set the height of sprite 30 = 121 - fooV2
              end if
              updatestage
            end repeat
          end if
        end repeat
        set the locV of sprite 18 = the locV of sprite 17 - 2
        updatestage
      else
        set mousefoo = the mouseV
        if (rollOver(14) or rollOver(15) or rollOver(17) or rollOver(18)) Â
            and ((mousefoo > 60) and (mousefoo < 420)) then    
          --Hilite auf den Titel bringen
          set Artikel = (mousefoo + 7 - the locV of sprite 17) / 30 + 1
          if Artikel <> alterArtikel then
            set fooV = the locV of sprite 17 - 24 + 30 * Artikel
            put fooV
            set fooV2 = fooV + 7
            set the locV of sprite 15 = fooV --Hilite
            set the locV of sprite 32 = fooV2 --horizontale Linie
            if fooV2 > 121 then --vertikale Linie
              set the locV of sprite 30 = 120
              set the height of sprite 30 = fooV2 -120
            else
              set the locV of sprite 30 = fooV2
              set the height of sprite 30 = 121 - fooV2
            end if
            set noome = "pic" & string ( Artikel )
            set the castnum of sprite 20 =  the number of cast noome
            put KurzinfoText (Artikel) into field "Kurzinfofeld"
            updatestage
            set alterArtikel = Artikel
          end if
        else
          -- put return into field "Kurzinfofeld"
          set alterArtikel = -1
          -- set the castnum of sprite 20 = the number of cast "leerbild"
        end if
      end if
    end if
  end if
end