home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_inter.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  646 b   |  27 lines
  1. on startMovie
  2.   global balkenT1, balkenT2, balkenT3, balkenT4, balkenT5, schalterT4, schalterT5, balkenges, infoline, listeKoordinaten, a
  3.   puppetSound(0)
  4.   repeat with a = 24 to 48
  5.     puppetSprite(a, 1)
  6.   end repeat
  7.   repeat with a = 33 to 48
  8.     set the blend of sprite a to 0
  9.   end repeat
  10.   repeat with a = 32 to 47
  11.     set the locH of sprite a to the locH of sprite a - 600
  12.   end repeat
  13.   set the locH of sprite 36 to the locH of sprite 36 + 600
  14. end
  15.  
  16. on stopMovie
  17.   global inter, btx, plus, schalterT4
  18.   puppetSound(0)
  19.   sound stop 1
  20.   sound stop 2
  21.   if schalterT4 = 1 then
  22.     set inter to 1
  23.     set btx to 1
  24.     set plus to 1
  25.   end if
  26. end
  27.