home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1995 November / MG_1195.ISO / puzzle.dir / 00054_Field_54.txt < prev    next >
Text File  |  1995-09-22  |  3KB  |  83 lines
  1. on scrollerei
  2.   global alterArtikel
  3.   if the loch of sprite 47 > 600 then --wenn infofenster nichtda
  4.     if rollOver(38) then
  5.       repeat while rollOver(38) -- oben scrollen
  6.         if the locV of sprite 17 < 67 then
  7.           set the locV of sprite 18 = 1000
  8.           repeat with foo = 1 to 2
  9.             set the locV of sprite 17 = the locV of sprite 17 + 15
  10.             set the locV of sprite 15 = the locV of sprite 15 + 15
  11.             set the locV of sprite 32 = the locV of sprite 32 + 15
  12.             set fooV2 = the locV of sprite 15 + 7
  13.             if fooV2 > 121 then 
  14.               set the locV of sprite 30 = 120
  15.               set the height of sprite 30 = fooV2 -120
  16.             else
  17.               set the locV of sprite 30 = fooV2
  18.               set the height of sprite 30 = 121 - fooV2
  19.             end if
  20.             updatestage
  21.           end repeat
  22.         end if
  23.       end repeat
  24.       set the locV of sprite 18 = the locV of sprite 17 - 2
  25.       updatestage
  26.     else
  27.       if rollOver(39) then
  28.         repeat while rollOver(39) -- unten scrollen
  29.           if the locV of sprite 17 > -291 then
  30.             set the locV of sprite 18 = 1000
  31.             repeat with foo = 1 to 2
  32.               set the locV of sprite 17 = the locV of sprite 17 - 15
  33.               set the locV of sprite 15 = the locV of sprite 15 - 15
  34.               set the locV of sprite 32 = the locV of sprite 32 - 15
  35.               set fooV2 = the locV of sprite 15 + 7
  36.               if fooV2 > 121 then 
  37.                 set the locV of sprite 30 = 120
  38.                 set the height of sprite 30 = fooV2 -120
  39.               else
  40.                 set the locV of sprite 30 = fooV2
  41.                 set the height of sprite 30 = 121 - fooV2
  42.               end if
  43.               updatestage
  44.             end repeat
  45.           end if
  46.         end repeat
  47.         set the locV of sprite 18 = the locV of sprite 17 - 2
  48.         updatestage
  49.       else
  50.         set mousefoo = the mouseV
  51.         if (rollOver(14) or rollOver(15) or rollOver(17) or rollOver(18)) ├é
  52.             and ((mousefoo > 60) and (mousefoo < 420)) then    
  53.           --Hilite auf den Titel bringen
  54.           set Artikel = (mousefoo + 7 - the locV of sprite 17) / 30 + 1
  55.           if Artikel <> alterArtikel then
  56.             set fooV = the locV of sprite 17 - 24 + 30 * Artikel
  57.             put fooV
  58.             set fooV2 = fooV + 7
  59.             set the locV of sprite 15 = fooV --Hilite
  60.             set the locV of sprite 32 = fooV2 --horizontale Linie
  61.             if fooV2 > 121 then --vertikale Linie
  62.               set the locV of sprite 30 = 120
  63.               set the height of sprite 30 = fooV2 -120
  64.             else
  65.               set the locV of sprite 30 = fooV2
  66.               set the height of sprite 30 = 121 - fooV2
  67.             end if
  68.             set noome = "pic" & string ( Artikel )
  69.             set the castnum of sprite 20 =  the number of cast noome
  70.             put KurzinfoText (Artikel) into field "Kurzinfofeld"
  71.             updatestage
  72.             set alterArtikel = Artikel
  73.           end if
  74.         else
  75.           -- put return into field "Kurzinfofeld"
  76.           set alterArtikel = -1
  77.           -- set the castnum of sprite 20 = the number of cast "leerbild"
  78.         end if
  79.       end if
  80.     end if
  81.   end if
  82. end
  83.