unit4~1.~df

该程序用Delphi实现了一个不错的3D动画播放

object Form4: TForm4
  Left = 192
  Top = 107
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsDialog
  Caption = 'About'
  ClientHeight = 227
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 419
    Height = 227
    BiDiMode = bdLeftToRight
    Color = clWindowFrame
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'The lines.'
      ''
      
        'There is a board 9*9 cells. There is a 6 types of balls. Player ' +
        'can move them around '
      
        'by clicking on them and clicking the place he want them to go. A' +
        'fter each move '
      
        'another 3 balls appear on the board. Their type is randomly sele' +
        'cted. In the upper '
      
        'left corner of the window Player can see which type next three b' +
        'alls will be. The '
      
        'idea is to make a line with 5 or more balls of the same type. Th' +
        'e line can go either '
      
        'horizontally, vertically or diagonally. If player do that, the l' +
        'ine disappear and player '
      
        'gets 1 point for each disappeared ball. There is a counter in th' +
        'e upper right corner '
      'of the screen that indicates the number of points. '
      ''
      
        'The goal is to get as many points as possible before all board i' +
        's filled with balls. '
      
        'There is a records table, where Player can see the 10 top result' +
        's of previous '
      'players.'
      ''
      'Enjoy.')
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
end