home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 95 / WIN95_CD.ISO / adds / medium / shared.dir / 00628.ls < prev    next >
Encoding:
Text File  |  1995-05-30  |  1.8 KB  |  106 lines
  1. on rollmenu anfang, ende, zeiger
  2.   repeat with n = anfang to ende
  3.     if rollOver(n) then
  4.       puppetSprite(zeiger, 1)
  5.       set the locV of sprite zeiger to the locV of sprite n
  6.       updateStage()
  7.     end if
  8.   end repeat
  9. end
  10.  
  11. on load movie
  12.   global mpath
  13.   go(1, movie)
  14. end
  15.  
  16. on loadsprache language
  17.   global sprache
  18.   puppetSound("klick")
  19.   set sprache to language
  20.   set mpath to the moviePath & string(language) & "\"
  21.   set movie to "main"
  22.   go(1, mpath & movie)
  23. end
  24.  
  25. on loadsprache2 movie
  26.   global mpath
  27.   puppetSound("klick")
  28.   go(1, mpath & movie)
  29. end
  30.  
  31. on loadFrame frame, movie
  32.   puppetSound("klick")
  33.   go(frame, movie)
  34. end
  35.  
  36. on resetPuppet kanal
  37.   puppetSprite(kanal, 0)
  38.   updateStage()
  39. end
  40.  
  41. on jumpinfo marker, sound
  42.   ResetInvisible(12, 21)
  43.   puppetSound(sound)
  44.   go(marker)
  45. end
  46.  
  47. on jump marker, sound
  48.   puppetSound(sound)
  49.   go(marker)
  50. end
  51.  
  52. on jump2 marker
  53.   puppetSound("klick")
  54.   go(marker)
  55. end
  56.  
  57. on wait n
  58.   set the timer to 0
  59.   repeat while the timer < n
  60.   end repeat
  61. end
  62.  
  63. on pausieren n
  64.   global mH, mV
  65.   set the timer to 0
  66.   repeat while the timer < n
  67.     pause()
  68.     if (mH <> the mouseH) and (mV <> the mouseV) then
  69.       exit repeat
  70.     end if
  71.   end repeat
  72.   continue()
  73. end
  74.  
  75. on GetPathComponent pathName
  76.   global last, CompList
  77.   set save to the itemDelimiter
  78.   set the itemDelimiter to ":"
  79.   set CompList to []
  80.   repeat with n = 1 to 100
  81.     if item n of the pathName = EMPTY then
  82.       exit repeat
  83.     end if
  84.     append(CompList, item n of the pathName)
  85.     set last to getAt(CompList, n)
  86.   end repeat
  87.   set the itemDelimiter to save
  88.   return last
  89. end
  90.  
  91. on GetPathWithoutLast moviepathname
  92.   global mpath, CompList
  93.   set mpath to EMPTY
  94.   SaveOldPath()
  95.   GetPathComponent()
  96.   repeat with n = 1 to count(CompList) - 1
  97.     set mpath to mpath & getAt(CompList, n) & ":"
  98.   end repeat
  99.   return mpath
  100. end
  101.  
  102. on SaveOldPath
  103.   global oldPath
  104.   set oldPath to the moviePath
  105. end
  106.