CD-ROM Interactive: Demo Special/CDROM_0995.iso/mac/Wings/WINGS.EXE/WINGS_1.DXR/00025.ls

Text File | 1995-04-21 | 470 b | 20 lines

on myPuppet i, Num1, Num2
  puppetSprite(i, 1)
  set the immediate of sprite i to 1
  set the castNum of sprite i to Num1
  updateStage()
  set the castNum of sprite i to Num2
  puppetSprite(i, 0)
  set the immediate of sprite i to 0
end

on myMouseDown
  set h to the castNum of sprite 2
  put the castType of cast h
  if the castType of cast h = #digitalVideo then
    set the movieRate of sprite 2 to 0
    set the movieTime of sprite 2 to 0
  end if
  go(#next)
end