Chip 1997 - Expo 2000/Image.iso/t-online/show/t_intro.dxr/00140.ls

Text File | 1996-11-25 | 659 b | 27 lines

on startMovie
  global balkenT1, balkenT2, balkenT3, balkenT4, balkenT5, schalterT4, schalterT5, balkenges, infoline, listeKoordinaten, a
  set balkenT1 to 0
  set balkenT2 to 0
  set balkenT3 to 0
  set balkenT4 to 0
  set balkenT5 to 0
  set infoline to 0
  repeat with a = 24 to 48
    puppetSprite(a, 1)
  end repeat
  repeat with a = 33 to 48
    set the blend of sprite a to 0
  end repeat
  repeat with a = 33 to 47
    set the locH of sprite a to the locH of sprite a - 600
  end repeat
  set the locH of sprite 36 to the locH of sprite 36 + 600
  set the locH of sprite 46 to 1077
end

on stopMovie
  puppetSound(0)
  sound stop 1
  sound stop 2
end