Игростроение - Создание игр

  If EntityCollided( b\sprite,TYPE_SCENERY )
    For k=1 To CountCollisions( b\sprite )
     If GetEntityType( CollisionEntity( b\sprite,k ) )=TYPE_SCENERY
      cx#=CollisionX( b\sprite,k )
      cy#=CollisionY( b\sprite,k )
      cz#=CollisionZ( b\sprite,k )
      nx#=CollisionNX( b\sprite,k )
      ny#=CollisionNY( b\sprite,k )
      nz#=CollisionNZ( b\sprite,k )
      th.Hole=New Hole
      th\alpha=1
      th\sprite=CopyEntity( hole_sprite )
      PositionEntity th\sprite,cx,cy,cz
      AlignToVector th\sprite,-nx,-ny,-nz,3
      MoveEntity th\sprite,0,0,-.1
      Exit
     EndIf
    Next
    EmitSound boom,b\sprite
    CreateSpark( b )
    FreeEntity b\sprite
    Delete b
    Return
   EndIf